Program drill-down
CONS_OVERRIDE_MAN
OVERRIDE LEVY CHARGE BY CONSIGNMENT. Type MAN, base table STK_DETS.
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 | 271, 25 | ||
| 1 | 0.0 | H | -1 | 1, 25 | |||
| 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 | 231, 229 | ||
| 1 | 0.0 | Label 8 | T | -1 | 231, 121 | ||
| 1 | 0.0 | Work 11 | I | 0 | 91, 121 | $DEFAULT 'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'INITIALIZE THE GRID 'U:ZZGRID_SPLIT;INIT_GRID;G\GRIDM;I\SD_CONSIGN,I\SD_DELNO:H,I\AGENT,I\SUPPL,I\SUPPL_NAME,I\COMM,I\DATE,I\SD_CLASS:H,I\SD_SIZE:H,I\SD_CONT:H,I\SD_CON |
|
| 1 | 0.0 | Label 9 | T | -1 | 241, 49 | ||
| 1 | 0.0 | Label 17 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 1 | T | -1 | 431, 157 | ||
| 1 | 0.0 | SD_COMM | I | -1 | 371, 229 | '$AFTER_READ 'LOAD COMMODITY IF THE CONSIGNMENT IS NOT NULL 'I:I\SD_CONSIGN;<>; 'A:CON;I\COMM," ",I\SD_CLASS,I\SD_SIZE," ",I\SD_CONT," ",I\SD_CONTMASS,"KG",;I\COMM |
|
| 1 | 0.0 | STK_DETS | SD_CONSIGN | I | -1 | 371, 121 | $SELECT 'DISPLAY A SELECTION WINDOW ''S:STK_DETS;I\SD_CONSIGN;I\MARKET 'S:STK_DETS2;I\SD_CONSIGN;I\MARKET I:I\ORGS;=; S:CONSIGN;I\SD_CONSIGN;I\MARKET I:I\ORGS;<>; S:CONSIGN_NO_ENQ;I\SD_CONSIGN;I\ORGS;I\MARKET $VALIDATE 'CLEAR FIELDS 'A:CONST;;I\SD_DELNO,I\AGENT,I\SUPPL,I\SUPPL_NAME,I\COMM,I\DATE |
| 1 | 0.0 | LEVY | I | -1 | 371, 301 | '$CALCULATE 'U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRIDM;I\SD_CONSIGN,I\AGENT,I\SUPPL,I\SUPPL_NAME,I\COMM,I\DATE,I\SD_NOLEVY $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'DISPLAY ERROR MESSAGE IF ANYTHING OTHER THAN A 'N' OR NULL V:N;Y; I:I\LEVY;=; A:CONST;Y;I\LEVY A:VAR;I\LEVY;I\SD_NOLEVY |
|
| 1 | 0.0 | Label 2 | T | -1 | 481, 193 | ||
| 1 | 0.0 | STK_DETS | SD_NOLEVY | T | -1 | 231, 301 | |
| 1 | 0.0 | Label 3 | T | -1 | 231, 193 | ||
| 1 | 0.0 | SUPPL | I | -1 | 371, 193 | ||
| 1 | 0.0 | Work 13 | G | 0 | 21, 253 | ||
| 1 | 0.0 | STK_DETS | SD_DATE | I | -1 | 371, 265 | |
| 1 | 0.0 | Label 2 | T | -1 | 231, 265 | ||
| 1 | 0.0 | STK_DETS | SD_AGENT | I | -1 | 371, 157 | |
| 1 | 0.0 | Label 5 | T | -1 | 231, 157 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 481, 121 | $SELECT 'DISPLAY A SELECTION WINDOW ''S:STK_DETS;I\SD_CONSIGN;I\MARKET S:STK_DETS2;I\SD_CONSIGN;I\MARKET |
|
| 1 | 0.0 | Work 1 | I | 0 | 21, 97 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\ORGS 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PROHIBIT_SALES=CM_PROHIBIT_SALES I:I\PROHIBIT_SALES;=;Y DO(01) O:DISABLEINPUT;I\SD_CONSIGN,I\LEVY,Z\ZX_UPDATE,C\CONSIGN O:HIDE;Z\ZX_UPDATE D:YOU CAN'T CONTINUE PROGRAM PROHIBITED |
|
| 1 | 0.0 | ORGS | I | 0 | 221, 517 | ||
| 1 | 0.0 | SD_SIZE | I | 0 | 131, 517 | ||
| 1 | 0.0 | SD_CONT | I | 0 | 81, 517 | ||
| 1 | 0.0 | SD_CLASS | I | 0 | 111, 517 | ||
| 1 | 0.0 | SD_CONTMASS | I | 0 | 151, 517 | ||
| 1 | 0.0 | SD_DELNO | I | 0 | 181, 517 | ||
| 1 | 0.0 | STK_DETS | SD_MARKET | I | 0 | 371, 85 | |
| 1 | 0.0 | CM_DEL_LEN | I | 0 | 21, 517 | ||
| 1 | 0.0 | Work 1 | I | 0 | 331, 517 | ||
| 1 | 0.0 | PROHIBIT_SALES | I | 0 | 371, 517 | ||
| 1 | 0.0 | SD_ITEM | I | 0 | 261, 517 | ||
| 1 | 0.0 | STK_DETS | SD_NOLEVY | I | 0 | 301, 517 | |
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 25 |