Program drill-down
SALESMAN_MAN
SALESMAN. Type MDL, base table SALESMAN_MAST.
Field inventory
63
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 5 | T | -1 | 441, 145 | ||
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | SALESMAN_MAST | SLS_ADDR1 | I | -1 | 301, 397 | $VALIDATE C:UCASE |
| 1 | 0.0 | SALESMAN_MAST | SLS_ADDR1 | T | -1 | 141, 397 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_ADDR2 | I | -1 | 301, 421 | $VALIDATE C:UCASE |
| 1 | 0.0 | SALESMAN_MAST | SLS_ADDR3 | I | -1 | 301, 445 | $VALIDATE C:UCASE |
| 1 | 0.0 | SALESMAN_MAST | SLS_AGENT | I | -1 | 301, 109 | $SELECT S:AGENT_CODE;I\SLS_AGENT $VALIDATE M: C:UCASE $CALCULATE F:AGENT_MAST;Y;AM_CODE;T\NAME2=AM_NAME;;I\SLS_AGENT |
| 1 | 0.0 | SALESMAN_MAST | SLS_AGENT | T | -1 | 141, 109 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_CELLNO | I | -1 | 301, 301 | $VALIDATE 'CHECKS THAT '0' IS THE FIRST CHARACTER IN THE TELEPHONE NUMBER IF ITS NOT NULL I:I\SLS_CELLNO;<>; DO 'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD A:LEN;I\SLS_CELLNO;I\TMP3 'IF LENGTH IS < 10, DISPLAY AN ERROR I:I\TMP3;<;10;NUM D:PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\SLS_CELLNO |
| 1 | 0.0 | SALESMAN_MAST | SLS_CELLNO | T | -1 | 141, 301 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_CODE | I | -1 | 301, 145 | $SELECT S:SALESMAN_AGENT;I\SLS_CODE;I\SLS_AGENT $CALCULATE M: C:UCASE A:VAR;I\SLS_CODE;I\SLS_CODE;;000 F:SALESMAN_MAST;;SLS_CODE;T\NAME=SLS_NAME;SLS_AGENT='$I\SLS_AGENT$';I\SLS_CODE |
| 1 | 0.0 | SALESMAN_MAST | SLS_CODE | T | -1 | 141, 145 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_ITEM_SECT | I | -1 | 301, 205 | $SELECT S:SECTIONI;I\SLS_ITEM_SECT $VALIDATE C:UCASE I:I\SLS_ITEM_SECT;<>; DO(1) F:SECT_MAST;Y;SE_SECT;T\ITEM=SE_DESC;SE_TYPE='I';I\SLS_ITEM_SECT O:DISABLEINPUT;I\SLS_SALES_SECT 'F:SALESMAN_MAST;Y;SLS_ITEM_SECT;I\NEW_PIN=SLS_PIN_NO;SLS_AGENT='$I\SLS_AGENT$' AND SLS_CODE = '$I\SLS_CODE$';I\SLS_ITEM_SECT F:SAL |
| 1 | 0.0 | SALESMAN_MAST | SLS_ITEM_SECT | T | -1 | 141, 205 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_NAME | I | -1 | 301, 241 | $VALIDATE M: C:UCASE |
| 1 | 0.0 | SALESMAN_MAST | SLS_NAME | T | -1 | 141, 241 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_PCODE | I | -1 | 301, 469 | 'LP20091029 ON KASSIE'S REQUEST $SELECT S:AREA_CODE;I\SLS_PCODE $VALIDATE I:I\SLS_PCODE;<>; DO A:LEN;I\SLS_PCODE;I\TMP6 I:I\TMP6;<;4 D:POSTAL CODE CANNOT BE LESS THAN 4 CHARACTERS;ERRORM;I\SLS_PCODE DOEND I:I\SLS_ITEM_SECT;<>; DO(7) I:I\SLS_SALES_SECT;<>; DO(223) A:CONST;;I\SLS_ITEM_SECT,I\SLS_SAL |
| 1 | 0.0 | CMD 1 | C | -1 | 351, 469 | 'LP20091029 ON KASSIE'S REQUEST $SELECT S:AREA_CODE;I\SLS_PCODE |
|
| 1 | 0.0 | SALESMAN_MAST | SLS_MARKET | I | 0 | 71, 61 | |
| 1 | 0.0 | Work 1 | I | 0 | 11, 193 | ||
| 1 | 0.0 | SALESMAN_MAST | SLS_PCODE | T | -1 | 141, 469 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_PIN_NO | I | -1 | 301, 361 | $VALIDATE I:I\MARKET;=;15 DO(15) I:I\SLS_PROV_SALES;=;Y DO(CHK) I:I\SLS_PIN_NO;<>; DO(PIN) A:ISNUMERIC;I\SLS_PIN_NO;I\TMP5 I:I\TMP5;=;N D:PIN NO MUST BE NUMERIC;ERRORM;I\SLS_PIN_NO DOEND(PIN) DOEND(CHK) DOEND(15) I:I\MARKET;<>;15 DO(N15) I:I\SLS_PROV_S |
| 1 | 0.0 | Work 1 | I | 0 | 71, 97 | ||
| 1 | 0.0 | SALESMAN_MAST | SLS_PIN_NO | T | -1 | 141, 361 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_PROV_SALES | I | -1 | 301, 337 | $VALIDATE C:UCASE V:Y;N; I:I\SLS_PROV_SALES;=; A:CONST;N;I\SLS_PROV_SALES I:I\SLS_PROV_SALES;=;N O:DISABLEINPUT;I\SLS_PIN_NO I:I\SLS_PROV_SALES;=;Y O:ENABLEINPUT;I\SLS_PIN_NO I:I\SLS_PROV_SALES;=;N O:DISABLEINPUT;I\CONFIRM_SLS_PIN_NO I:I\SLS_PROV_SALES;=;Y O:ENABLEINPUT;I\CONFIRM_SLS_PIN_NO |
| 1 | 0.0 | SALESMAN_MAST | SLS_PROV_SALES | T | -1 | 141, 337 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_SALES_SECT | I | -1 | 301, 181 | $SELECT S:SECTIONS;I\SLS_SALES_SECT $VALIDATE C:UCASE A:ISNUMERIC;I\SLS_SALES_SECT;I\TMPNUM I:I\TMPNUM;=;Y DO(NUH) I:I\SLS_SALES_SECT;<>; A:VAR;I\SLS_SALES_SECT;I\SLS_SALES_SECT;;000 DOEND(NUH) I:I\SLS_SALES_SECT;<>; F:SECT_MAST;Y;SE_SECT;T\SALES=SE_DESC;SE_TYPE='S';I\SLS_SALES_SECT I:I\SLS_SALES_ |
| 1 | 0.0 | SALESMAN_MAST | SLS_SALES_SECT | T | -1 | 141, 181 | |
| 1 | 0.0 | SALESMAN_MAST | SLS_TELNO | I | -1 | 301, 277 | $VALIDATE 'CHECKS THAT '0' IS THE FIRST CHARACTER IN THE TELEPHONE NUMBER IF ITS NOT NULL 'I:I\SLS_TELNO;<>; 'DO 'PUT THE LENGTH OF THE FIELD INTO TEMP FIELD 'A:LEN;I\SLS_TELNO;I\TMP1 'IF LENGTH IS < 10, DISPLAY AN ERROR 'I:I\TMP1;<;10;NUM 'D:PHONE NUMBER CANNOT BE LESS THAN 10 CHARACTERS;ERRORM;I\SLS_TELNO |
| 1 | 0.0 | SALESMAN_MAST | SLS_TELNO | T | -1 | 141, 277 | |
| 1 | 0.0 | Label 14 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 15 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 16 | T | -1 | 295, 48 | ||
| 1 | 0.0 | Label 17 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 18 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 19 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 20 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Work 21 | I | 0 | 11, 61 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 A:CONST;;T\NAME,T\NAME2 A:SETPWFIELD;I\SLS_PIN_NO A:SETPWFIELD;I\CONFIRM_SLS_PIN_NO A:SETPWFIELD;I\NEW_PIN $BEFORE_DELETE 'NOT ALLOW USERS TO DELETE WHILE THESE FIELDS ARE EMPTY I:I\SLS_AGENT;=; DO I:I\SLS_CODE;=; |
|
| 1 | 0.0 | CMD 22 | C | -1 | 401, 145 | $SELECT S:SALESMAN_AGENT;I\SLS_CODE;I\SLS_AGENT |
|
| 1 | 0.0 | CMD 23 | C | -1 | 341, 109 | $SELECT S:AGENT_CODE;I\SLS_AGENT |
|
| 1 | 0.0 | Work 18 | I | 0 | 31, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORG;;I\SLS_MARKET A:ORGS;;I\SLS_AGENT A:VAR;I\SLS_AGENT;I\ORGS I:I\ORGS;<>; DO(AGN) O:DISABLEINPUT;I\SLS_AGENT,C\AGENT O:SETFOCUS;I\SLS_CODE DOEND(AGN) F:AGENT_MAST;;;T\NAME2=AM_NAME;AM_CODE='$I\ORGS$'; 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM |
|
| 1 | 0.0 | Work 1 | I | 0 | 81, 553 | ||
| 1 | 0.0 | Work 2 | I | 0 | 61, 553 | ||
| 1 | 0.0 | Work 3 | I | 0 | 41, 553 | ||
| 1 | 0.0 | Work 4 | I | 0 | 21, 553 | ||
| 1 | 0.0 | Label 6 | T | -1 | 381, 109 | ||
| 1 | 0.0 | Work 1 | I | 0 | 101, 553 | ||
| 1 | 0.0 | Work 2 | I | 0 | 621, 145 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 351, 181 | $SELECT S:SECTIONS;I\SLS_SALES_SECT |
|
| 1 | 0.0 | CMD 5 | C | -1 | 351, 205 | $SELECT S:SECTIONI;I\SLS_ITEM_SECT |
|
| 1 | 0.0 | Work 1 | I | 0 | 121, 553 | ||
| 1 | 0.0 | Label 2 | T | -1 | 391, 181 | ||
| 1 | 0.0 | Label 3 | T | -1 | 391, 205 | ||
| 1 | 0.0 | Work 2 | I | 0 | 41, 133 | ||
| 1 | 0.0 | Work 1 | I | 0 | 711, 109 | ||
| 1 | 0.0 | Work 1 | I | 0 | 431, 337 | ||
| 1 | 0.0 | Label 1 | T | -1 | 391, 361 | ||
| 1 | 0.0 | Work 2 | I | -1 | 511, 361 | $VALIDATE I:I\MARKET;=;15 DO(15) I:I\SLS_PROV_SALES;=;Y DO(CHK) I:I\SLS_PIN_NO;<>; DO(PIN) M: A:ISNUMERIC;I\CONFIRM_SLS_PIN_NO;I\TMP5 I:I\TMP5;=;N D:CONFIRMATION PIN NO MUST BE NUMERIC;ERRORM;I\CONFIRM_SLS_PIN_NO DOEND(PIN) DOEND(CHK) DOEND(15) I |
|
| 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 |