Modification du code lié à un champ

Version imprimable

22/12/2017, 12h53
mohammed.badre

Modification du code lié à un champ

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.
22/12/2017, 13h24
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 ?

2 pièce(s) jointe(s)

Pièce jointe 336843

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

Code:

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 :
Pièce jointe 336845

22/12/2017, 15h21
SergioMaster

Bonjour,

le code ne ressemble pas vraiment à du Pascal Delphi
22/12/2017, 15h39
mohammed.badre

ce n'est pas du delphi; mais il ressemble, même logique
22/12/2017, 18h25
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:

1 2 3 4 If SuffixeExiste(Code) Then RetireSuffixe(Code) Code := AjoutSuffixe(GetSuFfix(CC.checked),Code)
22/12/2017, 18h34
mohammed.badre

Non, ce n'est pas redondant lors de l'ajout d'un nouveau client l'utilisateur doit sélectionner CE ou CL pour l’affectation du code client
24/12/2017, 08h51
SergioMaster

Bonjour

Citation:

Envoyé par mohammed.badre

Non, ce n'est pas redondant lors de l'ajout d'un nouveau client l'utilisateur doit sélectionner CE ou CL pour l’affectation du code client

si, quelque-part c'est redondant dans le sens ou c'est soit l'un soit l'autre et donc une seul case à cocher suffirait. Cependant si pour des raisons d'interface utilisateurs on veut voir les deux options un groupe de 2 boutons radios serait certainement mieux.