Clé de tri

[kiid]

Bonjour,

J'aimerais supprimer toutes les clé de tri de tous mes client en 1 seule opération, Est-ce possible ?

J'aimerais également décocher la case Prélèvement par paiement préautorisé de tous mes client ...

Merci de me donner des astuces.

[hench]

À ma connaissance, il n'existe pas de fonction dans Acomba pour effectuer une telle opération directement.

Par voie programmation, oui, et cela se fait très facilement.



Si un tel outil vous serait utile et vous intéresse, je pourrais vous le programmer en quelques minutes. Gratuitement!

Le cas échéant, laissez moi un message privé. !

[maxell2222]

bien il existe par ODBC qui permet de faire cela cela traite la base de données dans ACCES

[Lartis]

Avec ODBC:
UPDATE Customer SET Customer.CuSortKey = "";

Avec SDK: C:\Fortune\SDK\0C_ACOX.HLP pourra vous aider

Vous pourriez assez facilement modifier l'exemple "Modification du numéro du client" our changer le CuSortKey à la place.

Code:

Sub ChangeCustomerNumber()
'Déclarations
Dim CustomerIndex As New AcoX0125.CustomerKey
Dim CustomerData As New AcoX0125.Customer
Dim Error As Long
Dim CardPos As Long

'Met toutes les propriétés de l'interface multi-index à vide
CustomerIndex.XBlankKey   
'Recherche du client #12345 dans l'index 1 pour obtenir
'son CardPos
CustomerIndex.CuNumber = "12345"
Error = Acomba.FindKey(CustomerIndex, 1)
If Error = 0 Then

CardPos = CustomerIndex.CuCardPos
'Réservation de la fiche
Error = Acomba.ReserveCard(CustomerData, CardPos)
If Error = 0 Then

'Assignation de la nouvelle valeur de numéro de
'client à PK_Number
CustomerData.PK_Number = "2961234"
'Réservation de la nouvelle clé primaire
Error = Acomba.ReserveCardNumber(CustomerData)
If Error = 0 Then

'Assignation de la nouvelle valeur du numéro de client
'à CuNumber
[b]CustomerData.CuNumber = CustomerData.PK_Number[/b]
'Enregistrement des modifications
Error = Acomba.ModifyCard(CustomerData, CardPos, 1)
If Error = 0 Then

MsgBox "Modification complétée avec succès"

Else

MsgBox ("Erreur: " & Acomba.GetErrorMessage(Error))
'Libération de la clé primaire et de la fiche
'si la modification n'est pas complétée
Error = Acomba.FreeCardNumber(CustomerData)
If Error <> 0 Then

MsgBox ("Erreur: " & Acomba.GetErrorMessage(Error))

End If
Error = Acomba.FreeCard(CustomerData, CardPos)
If Error <> 0 Then

MsgBox ("Erreur: " & Acomba.GetErrorMessage(Error))

End If

End If

Else

MsgBox ("Erreur: " & Acomba.GetErrorMessage(Error))
'Libération de la fiche si la réservation de la clé
'primaire n'est pas complété
Error = Acomba.FreeCard(CustomerData, CardPos)
If Error <> 0 Then

MsgBox ("Erreur: " & Acomba.GetErrorMessage(Error))

End If

End If

Else

MsgBox ("Erreur: " & Acomba.GetErrorMessage(Error))

End If

Else

MsgBox ("Erreur: " & Acomba.GetErrorMessage(Error))
End If
End Sub

Sans le SDK ni ODBC: il faut passer les clients un à la fois, il n'y a aucun autre moyen.

[Contenu sponsorisé]