Program drill-down
BUYER_MAN
SEFA BUYER MAINTENANCE SCREEN. Type MAN, base table DEBTOR_MAST.
Field inventory
57
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 7 | T | -1 | 11, 433 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_DISABLED | I | -1 | 161, 433 | $VALIDATE C:UCASE V:Y;;N I:I\DISABLED;=; A:CONST;N;I\DISABLED I:I\DISABLED;=;Y DO(01) O:SHOW;T\REASON,I\REASON O:SETFOCUS;I\REASON DOEND(01) |
| 1 | 0.0 | DEBTOR_MAST | DM_DISABLE_REASON | I | -1 | 311, 433 | $CALCULATE M: |
| 1 | 0.0 | Work 1 | I | 0 | 61, 61 | ||
| 1 | 0.0 | Label 1 | T | -1 | 11, 505 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_SEFA_TYPE | I | -1 | 161, 181 | $SELECT S:SEFA_TYPE;I\DM_SEFA_TYPE $VALIDATE M: I:I\DM_SEFA_TYPE;<>; F:SE_TYPE;Y;;T\SE_DESC=SE_DESC;SE_CODE='$I\DM_SEFA_TYPE$';I\DM_SEFA_TYPE |
| 1 | 0.0 | Label 2 | T | -1 | 11, 181 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 251, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 7 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 9 | T | -1 | 11, 109 | ||
| 1 | 0.0 | Label 10 | T | -1 | 11, 145 | ||
| 1 | 0.0 | Label 11 | T | -1 | 11, 217 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_GENDER | T | -1 | 11, 253 | |
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | I | -1 | 161, 109 | $SELECT S:DEBTOR;I\DEBTOR $VALIDATE C:UCASE M: I:I\DEBTOR;<>; DO(02) O:DISABLEINPUT;I\NAME F:DEBTOR_MAST;Y;;I\IDNO=DM_IDNO,I\NAME=DM_NAME,I\REP=DM_AUTH_REP,I\OLD_GUAR_AMT=DM_BANK_GUAR;DM_DEBTOR='$I\DEBTOR$';I\DEBTOR DOEND(02) I:I\DEBTOR;=; DO(03) A:CONST;;I\NAME O:ENABLEINPUT;I\NAME DOEND(03) B:ADD |
| 1 | 0.0 | DEBTOR_MAST | DM_NAME | I | -1 | 161, 145 | |
| 1 | 0.0 | DEBTOR_MAST | DM_IDNO | I | -1 | 161, 217 | $VALIDATE A:CONST;;W\ID C:UCASE I:I\MARKET;=;18 DO(DBN) F:DEBTOR_MAST;;;W\ID=DM_IDNO;DM_MARKET='$I\MARKET$' AND DM_IDNO='$I\IDNO$' AND DM_DEBTOR <> '$I\DEBTOR$' AND DM_BLOCKED <> 'Y' I:I\EXIST;=; DO(KW2) I:W\ID;=;I\IDNO D:THIS ID NO ALREADY EXIST IT CAN'T BE DUPLICATED;ERRORM;I\IDNO DOEND(KW2) |
| 1 | 0.0 | DEBTOR_MAST | DM_GENDER | I | -1 | 161, 253 | $VALIDATE C:UCASE V:M;F |
| 1 | 0.0 | T | -1 | 11, 325 | |||
| 1 | 0.0 | DEBTOR_MAST | DM_RACE | D | -1 | 161, 325 | $DEFAULT 'ADD ITEMS INTO THE COMBOBOX 'B:ADDITEM;D\RACE;WHITE,BLACK,COLOURED,ASIAN,OTHER $VALIDATE 'UPPERCASE C:UCASE |
| 1 | 0.0 | CMD 20 | C | -1 | 261, 109 | $SELECT S:DEBTOR;I\DEBTOR |
|
| 1 | 0.0 | T | -1 | 11, 289 | |||
| 1 | 0.0 | DEBTOR_MAST | DM_AGE | I | -1 | 161, 289 | $VALIDATE M: I:I\AGE;=;0 D:AGE MUST BE BETWEEN 1 AND 100;ERRORM;I\AGE I:I\AGE;>;100 D:AGE MUST BE BETWEEN 1 AND 100;ERRORM;I\AGE |
| 1 | 0.0 | DEBTOR_MAST | DM_MARKET | I | 0 | 1, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\ORGS 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\ |
| 1 | 0.0 | Work 24 | I | 0 | 31, 61 | ||
| 1 | 0.0 | Label 3 | T | -1 | 11, 469 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_BANK_GUAR | I | -1 | 161, 469 | $VALIDATE I:I\GUAR_AMT;<>; DO(0) A:CONST;;I\NEW_TOT I:I\GUAR_AMT;>;I\SEFA_MAX_SURETY D:GUARANTEE GREATER THAN MAX SURETY AMOUNT;ERRORM;I\GUAR_AMT A:ADD;I\GUAR_AMT,I\TOTAL_GUAR;I\NEW_TOT;;#0.00 I:I\NEW_TOT;>;I\TOT_AMT D:GUARANTEE AMT CANNOT BE GREATER THAN TOTAL AMT;ERRORM;I\GUAR_AMT DOEND(0) |
| 1 | 0.0 | Work 5 | I | 0 | 141, 565 | ||
| 1 | 0.0 | Work 11 | I | 0 | 171, 565 | ||
| 1 | 0.0 | Work 1 | I | 0 | 281, 565 | ||
| 1 | 0.0 | I | 0 | 601, 529 | |||
| 1 | 0.0 | T | -1 | 11, 397 | |||
| 1 | 0.0 | DEBTOR_MAST | DM_SEFA_CELL | I | -1 | 161, 397 | |
| 1 | 0.0 | Label 5 | T | -1 | 11, 361 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_SEFA_AREA | I | -1 | 161, 361 | |
| 1 | 0.0 | Label 1 | T | -1 | 231, 181 | ||
| 1 | 0.0 | CMD 2 | C | -1 | 191, 181 | $SELECT S:SEFA_TYPE;I\DM_SEFA_TYPE |
|
| 1 | 0.0 | Work 1 | I | 0 | 491, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 601, 505 | ||
| 1 | 0.0 | Label 2 | T | -1 | 201, 433 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_AUTH_REP | I | -1 | 161, 505 | $VALIDATE C:UCASE V:Y;;N I:I\REP;=; A:CONST;N;I\REP |
| 1 | 0.0 | CMD 2 | C | -1 | 601, 109 | $SELECT S:DEBTOR;I\OLD_BUYER |
|
| 1 | 0.0 | DEBTOR_MAST | DM_OLD_BUYER_SEFA | I | -1 | 501, 109 | $SELECT S:DEBTOR;I\OLD_BUYER $VALIDATE C:UCASE 'M: I:I\OLD_BUYER;<>; DO(02) O:DISABLEINPUT;I\NAME F:DEBTOR_MAST;Y;;;DM_DEBTOR='$I\OLD_BUYER$';I\OLD_BUYER DOEND(02) 'I:I\OLD_BUYER;=; 'DO(03) 'A:CONST;;I\NAME 'O:ENABLEINPUT;I\NAME 'DOEND(03) |
| 1 | 0.0 | Work 4 | I | 0 | 601, 481 | ||
| 1 | 0.0 | Work 3 | I | 0 | 491, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 491, 481 | ||
| 1 | 0.0 | Label 1 | T | -1 | 391, 109 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | $BEFORE_WRITE U:SEFA_BUYER;BUYER_CRLIM I:I\GUAR_AMT;<>;I\OLD_GUAR_AMT U:SEFA_GUARANTEE;GUARANTEE_AMT O:SETFOCUS;I\DEBTOR |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |