Quelque chose comme:
DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE hField AS HANDLE NO-UNDO.
ASSIGN hBuffer = BUFFER pt_mstr:HANDLE .
DO i = 1 TO hBuffer:NUM-FIELDS:
ASSIGN hField = hBuffer:BUFFER-FIELD (i) .
IF hField:DATA-TYPE = "CHARACTER" AND (hField:BUFFER-VALUE = "" OR hField:BUFFER-VALUE = ?) THEN
MESSAGE hField:NAME "is empty"
VIEW-AS ALERT-BOX.
END.
S'il y a des tableaux que vous aurez à les itérer sur la base hField: et utiliser hField ETENDUE: BUFFER-VALUE [j] pour accéder à la valeur du champ.
Obtenez un handle pour l'enregistrement dans pt_mstr, puis passez en revue les champs de l'enregistrement et signalez le nom du champ correspondant aux champs qui n'ont aucune valeur. Le manuel pour le tampon et le buffer-field vous dira comment faire cela. – Screwtape
salut @Screwtape, pouvez-vous plz m'envoyer le code pour ce programme –