Program drill-down
SAMPLE500_MAN
A AGNSECT_PALL_ACC. Type MAN, base table AGNSECT_PALL_ACC.
Field inventory
43
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 16 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 8 | T | -1 | 291, 25 | ||
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | Label 14 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 15 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 9 | T | -1 | 251, 49 | ||
| 1 | 0.0 | CMD 8 | C | -1 | 171, 253 | 'DISPLAYING DATA FOR F5 FUNCTION $SELECT 'IF SALES SECTION SELECTED 'Y' THEN ONLY DISPLAY RECORDS FROM 'SECT_MAST' FOR SALES I:I\PS_SSECTION;=;Y DO(001) A:CONST;S;W\TMP1 S:SECT_MAST;I\PS_SECT;W\TMP1 DOEND(001) 'IF ITEM SECTION SELECTED 'Y' THEN ONLY DISPLAY RECORDS FROM 'SECT_MAST' FOR ITEMS I |
|
| 1 | 0.0 | Label 9 | T | -1 | 291, 229 | ||
| 1 | 0.0 | Label 17 | T | -1 | 671, 49 | ||
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_SECT | I | -1 | 61, 253 | 'DISPLAYING DATA FOR F5 FUNCTION $SELECT 'IF SALES SECTION SELECTED 'Y' THEN ONLY DISPLAY RECORDS FROM 'SECT_MAST' FOR SALES I:I\PS_SSECTION;=;Y DO(001) A:CONST;S;W\TMP1 'S:SECT_MAST;I\PS_SECT;W\TMP1 S:SALES_SECT;I\PS_SECT;I\PS_AGENT DOEND(001) 'IF ITEM SECTION SELECTED 'Y' THEN ONLY DISPLAY R |
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_SECT | T | -1 | 61, 229 | |
| 1 | 0.0 | Work 3 | G | -1 | 61, 277 | ||
| 1 | 0.0 | Label 21 | T | -1 | 1, 25 | ||
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_ACCNO | I | -1 | 291, 253 | 'CAHNGING CASE TO UPPER CASE AND FIELD IS MANDATORY $VALIDATE M: C:UCASE |
| 1 | 0.0 | Work 4 | I | -1 | 401, 157 | 'CHANGING CASE TO UPPER CASE $VALIDATE C:UCASE 'CHECK FOR VALID ENTRIES BETWEEN 'Y','N' AND EMPTY SPACE V:Y;N; 'CHECK THE FIELD IF 'Y' THEN DISABLE AND CLEAR 'SALES SECTION AND SALESMAN FIELD' I:I\PS_ISECTION;=;Y DO(P) A:CONST;;I\PS_SSECTION,I\SMAN O:DISABLEINPUT;I\PS_SSECTION,I\SMAN O:SETF |
|
| 1 | 0.0 | Label 3 | T | -1 | 251, 157 | ||
| 1 | 0.0 | Work 2 | I | -1 | 211, 157 | 'CHANGING CASE TO UPPER CASE $VALIDATE C:UCASE 'CHECK FOR VALID ENTRIES BETWEEN 'Y','N' AND EMPTY SPACE V:Y;N; 'CHECK THE FIELD IF 'Y' THEN DISABLE AND CLEAR 'ITEM SECTION FIELD' I:I\PS_SSECTION;=;Y DO(01) O:DISABLEINPUT;I\PS_ISECTION,I\SMAN A:CONST;;I\PS_ISECTION,I\SMAN O:SETFOCUS;I\PS_SE |
|
| 1 | 0.0 | Label 1 | T | -1 | 81, 157 | ||
| 1 | 0.0 | Label 1 | T | -1 | 541, 229 | ||
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_DATE_JOINED | I | -1 | 541, 253 | 'THIS FIELD IS MANDATORY $VALIDATE M: |
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_TYPE | T | -1 | 201, 229 | |
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_TYPE | I | -1 | 201, 253 | 'DISPLAYING DATA FOR F5 FUNCTION $SELECT S:PALLET;I\PS_TYPE 'CHANGING CASE TO UPPERCASE AND FIELD IS MANDATORY $VALIDATE M: C:UCASE 'MAKING SURE THAT USER CANNOT CONTINUE WITHOUT SELECTING ONE OF THE SECTIONS I:I\PS_SSECTION;=; DO(P20) I:I\PS_ISECTION;=; DO(P21) I:I\SMAN;=; DO(S |
| 1 | 0.0 | CMD 3 | C | -1 | 261, 253 | 'DISPLAYING DATA FOR F5 FUNCTION $SELECT S:PALLET;I\PS_TYPE |
|
| 1 | 0.0 | Work 1 | I | 0 | 1, 145 | $AFTER_WRITE 'SET FOCUS TO SALES SECTION FIELD AFTER PRESSING CREATE BUTTON AND CLEAR FIELD I:I\ORGS;<>; DO(02) A:ORGS;;I\PS_AGENT F:AGENT_MAST;;;T\AGENT=AM_NAME;AM_CODE='$I\ORGS$' O:ENABLEINPUT;I\PS_SSECTION O:SETFOCUS;I\PS_SSECTION A:CONST;;I\PS_SSECTION,I\PS_ISECTION DOEND(02) I:I\ORGS;=; DO(03) |
|
| 1 | 0.0 | Work 2 | I | 0 | 421, 457 | ||
| 1 | 0.0 | Work 1 | I | 0 | 471, 457 | 'TEMPORARY FIELD FOR SALES SECTION AND ITEM SECTION |
|
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_AGENT | I | -1 | 121, 97 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZES GRID AND DATA FROM DATABASE TO GRID. U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\PS_SECT,I\PS_TYPE,I\PS_ACCOUNT,I\PS_DATE 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\MARKET$' |
| 1 | 0.0 | Label 1 | T | -1 | 441, 157 | ||
| 1 | 0.0 | SGNSECT_PALL_ACC | PS_SMAN | I | -1 | 551, 157 | 'CHANGING CASE TO UPPER CASE $VALIDATE C:UCASE 'CHECK FOR VALID ENTRIES BETWEEN 'Y','N' AND EMPTY SPACE V:Y;N; 'CHECK THE FIELD IF 'Y' THEN DISABLE AND CLEAR 'ITEM AND SALES SECTION FIELD' I:I\SMAN;=;Y DO(01) O:DISABLEINPUT;I\PS_ISECTION,I\PS_SSECTION A:CONST;;I\PS_ISECTION,I\PS_SSECTION |
| 1 | 0.0 | AGNSECT_PALL_ACC | PS_AGENT | T | -1 | 71, 97 | |
| 1 | 0.0 | Work 5 | I | 0 | 41, 145 | '$DEFAULT |
|
| 1 | 0.0 | Work 1 | I | 0 | 511, 457 | ||
| 1 | 0.0 | Work 2 | I | 0 | 571, 457 | ||
| 1 | 0.0 | Work 3 | I | 0 | 601, 457 | ||
| 1 | 0.0 | Label 1 | T | -1 | 231, 97 | ||
| 1 | 0.0 | Work 4 | I | 0 | 141, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 97 | ||
| 1 | 0.0 | Work 3 | I | 0 | 361, 457 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 1 |