הוספת שדות למסך לוג שינויים בכרטיס לקוח

הקוד הסטנדרטי נמצא בהפעלה CUSTOMERS/BUF10

צריך ליצור הפעלה חדשה, נניח TEST_POST-UPDATE עם קוד כמו

:EXEC = 0+ :CUSTEXEC;
:SONEXEC = 0;
:DETAILS = ";
:CHARKEY1 = ITOA(:$.CUST);
:CHARKEY2 = :CHARKEY3 = :CHARKEY4 = :CHARKEY5 = ";
GOTO 1 WHERE :$1.MYFIELD = :$.MYFIELD;
:OLDVALUE = :$1.MYFIELD;
:NEWVALUE = :$.MYFIELD;
:COLNAME = :$.MYFIELD.TITLE;
#include func/UpdateChangesLog
LABEL 1;