Program drill-down
AGEING_MAN
DEBTORS AGEING. Type MAN, base table SALES_AGEING.
Field inventory
50
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 2 | I | 0 | 591, 277 | 'CHANGING TEXT CASE TO UPPERCASE $VALIDATE C:UCASE 'ONLY THESE THREE INPUTS ALLOWED IN THIS FIELD AND ENTER X TO DELETE RECORD $CALCULATE V:X; 'ALLOWS RECORD TO BE DELETED WHEN THIS FIELD IS EQUAL TO X 'I:W\DEL;=;X 'U:SLSMAN_COMM;LOAD_GRID $AFTER_WRITE 'RETRIEVES DATA FROM DATABASE TO GRID 'I |
|
| 1 | 0.0 | CMD 2 | C | -1 | 181, 277 | 'SELECTING SALESMAN CODE FROM SALESMAN_MAST TABLE IN DATABASE $SELECT 'IF AGENT TEXT FIELD IS NOT EMPTY THEN DISPLAY ONLY SALESMAN OF THAT AGENT I:T\SC_AGENT1;<>; DO(01) 'A:CONST;AM_CODE;W\SC_AGENT1 S:SALESMAN_MAST;I\SC_SLSMAN;T\SC_AGENT1 DOEND(01) |
|
| 1 | 0.0 | CMD 3 | C | -1 | 481, 277 | 'SELECTING SECTION CODE FROM SECT_MAST TABLE $SELECT S:SECTION_MAST;I\SC_SECT |
|
| 1 | 0.0 | CMD 3 | C | -1 | 401, 277 | 'SELECTING PRODUCT FROM PRODUCT_MAST TABLE $SELECT S:PRODUCT_MAST;I\SC_PRODUCT |
|
| 1 | 0.0 | Work 3 | G | -1 | 121, 301 | ||
| 1 | 0.0 | H | -1 | 1, 31 | |||
| 1 | 0.0 | SMAN_COMM | SC_COMMPERC | I | -1 | 511, 277 | 'SET THIS FIELD MANDATORY AND THE RANGE 1-100 $VALIDATE 'DISPLAY ERROR MESSAGE IF THIS FIELD IS .00 BECAUSE .00 IS A DEFAULT FOR AMT I:I\SC_COMMPERC;=;.00 DO(002) A:CONST;;I\SC_COMMPERC D:COMMISSION PERCENTAGE IS MANDATORY;ERRORM;I\SC_COMMPERC DOEND(002) 'DISPLAY ERROR MESSAGE IF THIS FIELD IS EMPTY A |
| 1 | 0.0 | SMAN_COMM | SC_SLSMAN | I | -1 | 121, 277 | 'SELECTING SALESMAN CODE FROM SALESMAN_MAST TABLE IN DATABASE $SELECT 'S:SALESMAN_MAST;I\SC_SLSMAN 'IF AGENT TEXT FIELD IS NOT EMPTY THEN DISPLAY ONLY SALESMAN OF THAT AGENT I:T\SC_AGENT1;<>; DO(01) 'A:CONST;AM_CODE;W\SC_AGENT1 S:SALESMAN_MAST;I\SC_SLSMAN;T\SC_AGENT1 DOEND(01) 'CHANGING TEXT CASE T |
| 1 | 0.0 | SMAN_COMM | SC_PRODUCT | I | -1 | 351, 277 | 'SELECTING PRODUCT FROM PRODUCT_MAST TABLE $SELECT S:PRODUCT_MAST;I\SC_PRODUCT 'CHANGING TEXT CASE TO UPPER CASE $VALIDATE C:UCASE 'DISABLE FOR INPUT SECTION CODE FIELD IF PRODUCT CODE FIELD IS NOT EMPTY I:I\SC_PRODUCT;<>; DO(001) A:CONST;;I\SC_SECT O:DISABLEINPUT;I\SC_SECT,C\3 DOEND(001) 'ENABL |
| 1 | 0.0 | Work 2 | I | 0 | 1, 115 | 'SETTING DATE AND TIME $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZING GRID U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SC_SLSMAN,I\SC_SLS_NAME,I\SC_PRODUCT,I\SC_SECT,I\FLAG:H,I\SC_COMMPERC 'DISPALYS AGENT NAME IN LABEL ABOVE INPUT FIELDS A:ORGS;;T\SC_AGENT1 A:VAR;T\SC_AGENT |
|
| 1 | 0.0 | Label 2 | T | -1 | 211, 253 | ||
| 1 | 0.0 | SMAN_COMM | SC_SECT | I | -1 | 431, 277 | 'SELECTING SECTION CODE FROM SECT_MAST TABLE $SELECT S:SECTION_MAST;I\SC_SECT 'CHANGING TEXT CASE TO UPPER CASE $CALCULATE '''$VALIDATE C:UCASE A:VAR;T\SC_AGENT1;I\SC_AGENT 'PUT 2 ZEROS AS FIRST 2 CHARACTERS I:I\SC_SECT;<>; A:LEN;I\SC_SECT;W\TEMP3 I:W\TEMP3;=;1 DO(LLP) 'CHECKING IF THE USER ENTER |
| 1 | 0.0 | Label 2 | T | -1 | 191, 475 | FOR THIS AGENT |
|
| 1 | 0.0 | Label 2 | T | -1 | 191, 199 | ||
| 1 | 0.0 | Label 3 | T | -1 | 241, 199 | ||
| 1 | 0.0 | Label 1 | T | 0 | 591, 253 | ||
| 1 | 0.0 | SMAN_COMM | SC_PRODUCT | T | -1 | 351, 253 | |
| 1 | 0.0 | Label 1 | T | -1 | 671, 49 | ||
| 1 | 0.0 | SMAN_COMM | SC_SLSMAN | T | -1 | 121, 253 | |
| 1 | 0.0 | Label 1 | T | -1 | 121, 199 | ||
| 1 | 0.0 | SMAN_COMM | SC_SECT | T | -1 | 431, 253 | |
| 1 | 0.0 | Work 3 | I | 0 | 361, 475 | ||
| 1 | 0.0 | SC_SLS_NAME | I | -1 | 211, 277 | ||
| 1 | 0.0 | Work 3 | I | 0 | 401, 475 | ||
| 1 | 0.0 | Work 4 | I | 0 | 121, 475 | ||
| 1 | 0.0 | Work 6 | I | 0 | 61, 115 | $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 4 | I | 0 | 441, 475 | ||
| 1 | 0.0 | Work 5 | I | 0 | 311, 475 | ||
| 1 | 0.0 | Work 1 | I | 0 | 541, 475 | ||
| 1 | 0.0 | Work 2 | I | 0 | 491, 475 | ||
| 1 | 0.0 | Work 3 | I | 0 | 591, 475 | ||
| 1 | 0.0 | Work 4 | I | 0 | 641, 475 | ||
| 1 | 0.0 | Label 16 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 15 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 14 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 8 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 21 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 241, 49 | ||
| 1 | 0.0 | SMAN_COMM | SC_COMMPERC | T | -1 | 511, 253 | |
| 1 | 0.0 | SMAN_COMM | SC_AGENT | I | 0 | 41, 265 | |
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 31 |