Program drill-down
BUYER_SMS_FACILITY
ACTIVATE / DEACTIVATE BUYER SMS FACILITY. Type MAN, base table DEBTOR_MAST.
Field inventory
43
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 221, 49 | ||
| 1 | 0.0 | Label 3 | T | -1 | 1, 25 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 371, 145 | $SELECT S:DEBTOR_CODE;I\DM_DEBTOR |
|
| 1 | 0.0 | Work 5 | I | 0 | 111, 37 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET '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 |
|
| 1 | 0.0 | Work 6 | I | 0 | 171, 37 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 |
|
| 1 | 0.0 | Label 7 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 8 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 10 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Work 11 | I | 0 | 261, 517 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_SMS | I | -1 | 271, 169 | $VALIDATE 'SET THIS FIELD MANDATORY AND CHANGE TEXT CASE TO UPPERCASE M: C:UCASE 'ALLOW ONLY THE FOLLOWING INPUTS (Y OR N) V:Y;N |
| 1 | 0.0 | DEBTOR_MAST | DM_SMS | T | -1 | 101, 169 | |
| 1 | 0.0 | DEBTOR_MAST | DM_SMS_TRIGAMT | I | -1 | 271, 193 | $VALIDATE 'SET THIS FIELD MANDATORY M: 'AMOUNT CANNOT BE ZERO IF SUBSCRIBE TO SMS FIELD IS SET TO 'Y' I:I\DM_SMS;=;Y DO(05) I:I\DM_SMS_TRIGAMT;=;.00 D:AMOUNT CANNOT BE ZERO;ERRORM;I\DM_SMS_TRIGAMT DOEND(05) |
| 1 | 0.0 | DEBTOR_MAST | DM_SMS_TRIGAMT | T | -1 | 101, 193 | |
| 1 | 0.0 | DEBTOR_MAST | DM_BANK_NAME | I | -1 | 271, 241 | $VALIDATE 'CHANGE TEXT CASE TO UPPER CASE AND SET THIS FIELD MANDATORY C:UCASE M: 'THIS FIELD CANNOT BE BLANK WHILE SUBSCRIBE TO SMS FIELD IS SET TO 'Y' I:I\DM_SMS;=;Y DO(01) I:I\DM_BANK_NAME;=; D:BANK NAME CANNOT BE EMPTY;ERRORM;I\DM_BANK_NAME DOEND(01) |
| 1 | 0.0 | DEBTOR_MAST | DM_BANK_NAME | T | -1 | 101, 241 | |
| 1 | 0.0 | DEBTOR_MAST | DM_BANK_BRCH | I | -1 | 271, 265 | $VALIDATE 'CHANGE TEXT CASE TO UPPER CASE C:UCASE 'THIS FIELD CANNOT BE BLANK WHILE SUBSCRIBE TO SMS FIELD IS SET TO 'Y' I:I\DM_SMS;=;Y DO(02) I:I\DM_BANK_BRCH;=; D:BRANCH CODE CANNOT BE EMPTY;ERRORM;I\DM_BANK_BRCH DOEND(02) |
| 1 | 0.0 | DEBTOR_MAST | DM_BANK_BRCH | T | -1 | 101, 265 | |
| 1 | 0.0 | DEBTOR_MAST | DM_BANK_ACC | I | -1 | 271, 289 | $VALIDATE 'THIS FIELD CANNOT BE BLANK WHILE SUBSCRIBE TO SMS FIELD IS SET TO 'Y' I:I\DM_SMS;=;Y DO(03) I:I\DM_BANK_ACC;=; D:ACCOUNT NUMBER CANNOT BE EMPTY;ERRORM;I\DM_BANK_ACC DOEND(03) |
| 1 | 0.0 | DEBTOR_MAST | DM_BANK_ACC | T | -1 | 101, 289 | |
| 1 | 0.0 | Label 4 | T | -1 | 411, 145 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | I | -1 | 271, 145 | 'SELECTION FOR EXISTING DEBTOR CODE FROM DEBTOR_MAST $SELECT S:DEBTOR_CODE;I\DM_DEBTOR $VALIDATE 'SET THIS FIELD MANDATORY M: 'LOOKUP FOR EXISTING DEBTOR CODE FROM DEBTOR_MAST TABLE IF NOT FOUND DISPLAY ERROR MESSAGE F:DEBTOR_MAST;Y;DM_DEBTOR;T\DM_NAME=DM_NAME;DM_DTYPE='B';I\DM_DEBTOR $CALCULATE 'LOOKU |
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | T | -1 | 101, 144 | |
| 1 | 0.0 | Label 7 | T | -1 | 221, 337 | ||
| 1 | 0.0 | DA_ADDR1 | I | -1 | 271, 385 | $VALIDATE 'CHANGE TEXT CASE TO UPPERCASE C:UCASE 'THIS FIELD CANNOT BE BLANK WHILE SUBSCRIBE TO SMS FIELD IS SET TO 'Y' I:I\DM_SMS;=;Y DO(009) I:I\DA_ADDR1;=; D:THIS FIELD CANNOT BE EMPTY;ERRORM;I\DA_ADDR1 DOEND(009) |
|
| 1 | 0.0 | DA_ADDR1 | T | -1 | 101, 385 | ||
| 1 | 0.0 | DA_ADDR2 | I | -1 | 271, 409 | $VALIDATE 'CHANGE TEXT CASE TO UPPERCASE C:UCASE |
|
| 1 | 0.0 | DA_ADDR2 | T | -1 | 101, 409 | ||
| 1 | 0.0 | DA_ADDR3 | I | -1 | 271, 433 | $VALIDATE 'CHANGE TEXT CASE TO UPPERCASE C:UCASE |
|
| 1 | 0.0 | DA_ADDR3 | T | -1 | 101, 433 | ||
| 1 | 0.0 | DA_PCODE | I | -1 | 271, 457 | 'CHECKING IF THE USER ENTERS NUMBERS NOT TEXT $VALIDATE I:I\DA_ADDR1;<>; DO(0004) A:ISNUMERIC;I\DA_PCODE;W\TEMP I:W\TEMP;=;N D:POSTAL CODE MUST CONTAIN 4 NUMBERS;ERRORM;I\DA_PCODE A:VAR;I\DA_PCODE;I\DA_PCODE;;0000 'VALIDATING THE LENGHT OF THE INPUT MUST BE EQUAL TO 4 A:LEN;I |
|
| 1 | 0.0 | DA_CODE | T | -1 | 101, 457 | ||
| 1 | 0.0 | DEBT_ADDR | DA_CELLNO | I | -1 | 271, 217 | 'VALIDATING THE CELLPHONE NUMBER $VALIDATE M: 'CHECK IF IS NUMERIC I:I\DA_CELLNO;<>; DO(000) A:ISNUMERIC;I\DA_CELLNO;W\TEMP2 I:W\TEMP2;=;N D:CELLPHONE NUMBER MUST CONTAIN 10 NUMBERS;ERRORM;I\DA_CELLNO 'CHECKING THE LENGHT IF IS NOT LESS THAN 10 A:LEN;I\DA_CELLNO;W\TEMP2 I:W\TEMP2;< |
| 1 | 0.0 | DEBT_ADDR | DA_CELLNO | T | -1 | 101, 217 | |
| 1 | 0.0 | Work 14 | I | 0 | 361, 517 | ||
| 1 | 0.0 | CMD 1 | Z | 0 | 582, 538 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 1 |