Program drill-down
WHOLESALE_MAN
WHOLESALERS MAINTENANCE. Type MAN, base table WHOLESALE_MAST.
Field inventory
57
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 1 | I | 0 | 1, 517 | $DEFAULT A:ORG;;W\MARKET A:TIME,HH:MM:SS;T\TIME A:DATE;DD MMM YYYY;T\DATE A:TIMER_ON;1000 |
|
| 1 | 0.0 | WHOLESALE_MAST | WHS_BUYER | I | -1 | 301, 469 | $SELECT S:DEBTOR;I\BUYER $VALIDATE C:UCASE M: I:I\BUYER;<>; DO(02) O:DISABLEINPUT;I\NAME F:DEBTOR_MAST;Y;;I\NAME=DM_NAME,I\DM_DTYPE=DM_DTYPE,I\DM_MAIN_DEBTOR=DM_MAIN_DEBTOR;DM_DEBTOR='$I\BUYER$';I\BUYER DOEND(02) I:I\DM_DTYPE;<>;W DO(EMSG) O:ENABLEINPUT;I\BUYER D:BUYER $I\BUYER$ IS NOT A WHOLES |
| 1 | 0.0 | WHOLESALE_MAST | WHS_NAME | I | -1 | 301, 133 | $VALIDATE M: C:UCASE |
| 1 | 0.0 | WHOLESALE_MAST | WHS_ADDR1 | I | -1 | 301, 157 | |
| 1 | 0.0 | WHOLESALE_MAST | WHS_ADDR2 | I | -1 | 301, 181 | |
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | WHOLESALE_MAST | WHS_TELNO | I | -1 | 301, 265 | $VALIDATE I:I\TELNO;<>; DO(1) A:CONST;;W\TEMP U:NUMBER_VALIDATE;TELL_CHK;I\TELNO,0,W\TEMP I:W\TEMP;=;N D:THE TELEPHONE NUMBER MUST START WITH "0";ERRORM;I\TELNO DOEND(1) I:I\TELNO;<>; DO(01) A:LEN;I\TELNO;W\TEMP I:W\TEMP;<;10;NUM D:PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;E |
| 1 | 0.0 | WHOLESALE_MAST | WHS_CELLNO | I | -1 | 581, 265 | $VALIDATE I:I\CELLNO;<>; DO(1) A:CONST;;W\TEMP U:NUMBER_VALIDATE;TELL_CHK;I\CELLNO,@,W\TEMP I:W\TEMP;=;N D:THE CELL PHONE NUMBER MUST START WITH "0";ERRORM;I\CELLNO DOEND(1) I:I\CELLNO;<>; DO(01) A:LEN;I\CELLNO;W\TEMP I:W\TEMP;<;10;NUM D:CELL PHONE NUMBER CANNOT BE LESS THAN 10 |
| 1 | 0.0 | WHOLESALE_MAST | WHS_ADDR3 | I | -1 | 301, 205 | |
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 281, 49 | ||
| 1 | 0.0 | Label 4 | T | -1 | 181, 133 | ||
| 1 | 0.0 | Label 5 | T | -1 | 181, 157 | ||
| 1 | 0.0 | Label 6 | T | 0 | 181, 181 | ||
| 1 | 0.0 | Label 7 | T | 0 | 181, 205 | ||
| 1 | 0.0 | Label 8 | T | -1 | 181, 265 | ||
| 1 | 0.0 | Label 9 | T | -1 | 461, 265 | ||
| 1 | 0.0 | Label 10 | T | -1 | 181, 289 | ||
| 1 | 0.0 | Label 11 | T | -1 | 181, 313 | ||
| 1 | 0.0 | Label 12 | T | -1 | 181, 337 | ||
| 1 | 0.0 | Label 13 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 14 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 15 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 16 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 17 | T | -1 | 181, 229 | ||
| 1 | 0.0 | Label 19 | T | -1 | 181, 361 | ||
| 1 | 0.0 | Label 20 | T | -1 | 181, 385 | ||
| 1 | 0.0 | Label 21 | T | -1 | 181, 433 | ||
| 1 | 0.0 | WHOLESALE_MAST | WHS_EMAIL | I | -1 | 301, 313 | $VALIDATE C:LCASE I:I\EMAIL;<>; DO(EMAIL) A:CONST;;W\TEMP U:NUMBER_VALIDATE;EMAIL_CHK;I\EMAIL,@,W\TEMP I:W\TEMP;=;N D:EMAIL ADDRESS MUST HAVE THE "@" SYMBOL;ERRORM;I\EMAIL DOEND(EMAIL) 'DISPLAY ERROR MESSAGE IF INVALID EMAOL ADDRESS IS ENTERED IN THIS FIELD I:I\EMAIL;=;@ D:INVALID ENTRY - |
| 1 | 0.0 | WHOLESALE_MAST | WHS_FAXNO | I | -1 | 301, 289 | $VALIDATE I:I\FAXNO;<>; DO(1) A:CONST;;W\TEMP U:NUMBER_VALIDATE;TELL_CHK;I\FAXNO,0,W\TEMP I:W\TEMP;=;N D:THE FAX NUMBER MUST START WITH "0";ERRORM;I\FAXNO DOEND(1) I:I\FAXNO;<>; DO(01) A:LEN;I\FAXNO;W\TEMP I:W\TEMP;<;10;NUM D:FAX NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I |
| 1 | 0.0 | WHOLESALE_MAST | WHS_PCODE | I | -1 | 301, 229 | $VALIDATE I:I\PCODE;<>; DO(01) A:LEN;I\PCODE;W\TEMP I:W\TEMP;<;4;NUM D:POSTAL CODE CANNOT BE LESS THAN 4 DIGITS;ERRORM;I\PCODE DOEND(01) |
| 1 | 0.0 | WHOLESALE_MAST | WHS_VATREG | I | -1 | 301, 337 | |
| 1 | 0.0 | WHOLESALE_MAST | WHS_LANGUAGE | I | -1 | 301, 361 | $VALIDATE C:UCASE I:I\LANGUAGE;<>; DO(1) V:AFR;ENG DOEND(1) I:I\LANGUAGE;=; DO(01) A:CONST;ENG;I\LANGUAGE DOEND(01) |
| 1 | 0.0 | WHOLESALE_MAST | WHS_COMMPERC | I | -1 | 301, 385 | $VALIDATE I:I\COMM_PERC;<>; DO(1) R:0;12.5 I:W\TEMP;=;N D:PLEASE ENTER BETWEEN "0 AND 12.5%";ERRORM;I\COMM_PERC DOEND(1) |
| 1 | 0.0 | WHOLESALE_MAST | WHS_BLOCKED | I | -1 | 301, 433 | $VALIDATE C:UCASE I:I\BLOCKED;<>; DO(01) V:Y;N DOEND(01) I:I\BLOCKED;=; DO(1) A:CONST;N;I\BLOCKED DOEND(1) |
| 1 | 0.0 | Label 35 | T | -1 | 181, 97 | ||
| 1 | 0.0 | WHOLESALE_MAST | WHS_CODE | I | -1 | 301, 97 | $SELECT S:WHOLESALE_CODE;I\WHOLESALE_CODE $VALIDATE M: |
| 1 | 0.0 | Label 37 | T | -1 | 181, 409 | ||
| 1 | 0.0 | WHOLESALE_MAST | WHS_VATCODE | I | -1 | 301, 409 | $SELECT S:VAT;I\VATCODE $VALIDATE M: C:UCASE I:I\VATCODE;<>; DO(1) F:VAT_MAST;Y;VT_CODE;T\VATDESC=VT_RATE;;I\VATCODE A:CONST;$T\VATDESC$ %;T\VATDESC DOEND(1) |
| 1 | 0.0 | WHOLESALE_MAST | WHS_MARKET | I | 0 | 101, 109 | |
| 1 | 0.0 | Work 2 | I | 0 | 41, 517 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 411, 409 | $SELECT S:VAT;;I\VATCODE |
|
| 1 | 0.0 | Label 1 | T | 0 | 1, 109 | ||
| 1 | 0.0 | Label 2 | T | -1 | 461, 409 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 541 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MKT=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MKT |
|
| 1 | 0.0 | Label 1 | T | -1 | 181, 469 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 381, 97 | $SELECT S:WHOLESALE_CODE;I\WHOLESALE_CODE |
|
| 1 | 0.0 | Work 2 | I | 0 | 481, 529 | ||
| 1 | 0.0 | Label 3 | T | -1 | 421, 469 | ||
| 1 | 0.0 | Work 1 | I | 0 | 361, 529 | ||
| 1 | 0.0 | Work 4 | I | 0 | 191, 529 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |