Discussion :

[mohammed.badre]

Bonjour,

Ça fait des années que je n'ai pas touché au code; et là, je me trouve à modifier du code; et je souhaite de l'aide SVP.

J'ai un champ où l'utilisateur peut saisir un code client ; je dois le modifier en le rendre un champ d'affichage et en rajoutant avant la saisie que l'utilisateur puisse sélectionner si le client est Local ou Etranger. Par la suite le préfixe "CL" ou "CE" s'ajoute automatiquement au champ d'affichage et par la suite que le programme puisse récupérer la référence du dernier client; l’incrémenter et l'affiche à côté du préfixe, par exemple : "CL000000114"

Merci d'avance.

[Invité]

Comme ton précédent poste, on ne comprend rien ...

Tu souhaites gérer un compteur ? composer ton champ ? utiliser une combo pour choisir le type, ensuite une zone de saisie pour le numéro et un compteur à la fin ?
Tu as déjà du code existant ? quelle version de Delphi ?

[mohammed.badre]

Voilà ce que j'ai comme interface, avec un code de traitement Apres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Procedure Champ_Tiers_1_Ap            ; complète code Tiers en création
1        Tiers     >GTFDD.dhsd Tiers
1        x            1,0
1        rep        1
Beginp
    If CLIENT.Tiers = ' '
        If Mes_Alert(2009,bouton = MB_OKCANCEL+MB_ICONQUESTION) <> IDOK
            Harmony.Retour = XMENEXT_TRAITEMENT_AVANT
        EndIf
    Else
        Controle_Syntaxe_Tiers(CLIENT.Tiers, 2004) 
 
        If SOC.EntCodN(22) = 2 And SOC.EntCodN(24) = 2    ; gère-t-on les établissements ?
            If CLIENT.Tiers < ETS.Tiers1(2) Or CLIENT.Tiers > ETS.Tiers2(2)
                Mes_Alert(2006, MZ.Etb, ETS.Tiers1(2), ETS.Tiers2(2))
                Harmony.Retour = XMENEXT_TRAITEMENT_AVANT
            EndIf
        EndIf
    EndIf
Endp

et je dois le rendre comme ça :

[SergioMaster]

Bonjour,

le code ne ressemble pas vraiment à du Pascal Delphi

[mohammed.badre]

ce n'est pas du delphi; mais il ressemble, même logique

[anapurna]

Salut

La case à cocher client étranger et client local est un peu redondante, non ?

Le local est forcément pas étranger... L'inverse est vrai aussi.

Ensuite, il suffit de tester ton code client : s'il commence par une clé ou l'autre il te faudra la supprimer
pour ajouter celle sélectionnée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
   If SuffixeExiste(Code) Then 
     RetireSuffixe(Code)
  Code :=  AjoutSuffixe(GetSuFfix(CC.checked),Code)