Program drill-down
CONS_PROV_MAN
DISALLOW PROVISIONAL SALES - CONSIGNMENT. Type DSP, base table STK_DETS.
Field inventory
46
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 9 | T | -1 | 277, 49 | ||
| 1 | 0.0 | Label 16 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 17 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Work 11 | I | 0 | 151, 37 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE |
|
| 1 | 0.0 | TEMP | I | 0 | 221, 85 | ||
| 1 | 0.0 | STK_DETS | SD_AGENT | T | -1 | 141, 157 | |
| 1 | 0.0 | Label 9 | T | -1 | 491, 157 | ||
| 1 | 0.0 | Label 14 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 15 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 291, 25 | ||
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | CMD 1 | C | -1 | 111, 181 | $SELECT 'DISPLAY A SELECTION WINDOW 'SELECT THAT SHOWS CONSIGNMENTS FOR CURRENT AGENT - BY C-VIG I:I\AGENT;<>; S:STK_DETS_AGENT;I\SD_CONSIGN;I\MARKET;I\AGENT 'I:I\AGENT;<>; 'S:STK_DETS;I\SD_CONSIGN;I\MARKET '-------------- CHANGED SELECTION BECAUSE IT ONLY SHOW CONSIGNMENTS FOR ONE AGENT (LAZOLA) I:I\ |
|
| 1 | 0.0 | SUPPLIER_MAST | SUM_NAME | I | -1 | 291, 181 | |
| 1 | 0.0 | I | -1 | 491, 181 | $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_AGENT | I | -1 | 141, 181 | '$VALIDATE 'M: 'F:STK_DETS;Y;SD_AGENT;;;I\SD_AGENT $CALCULATE 'U:LOC_RATE_MAN;CHECK_VALUE;G\GRIDM,I\SD_AGENT,W\RESULT 'LOAD THE SCREEN WITH VALUES FROM THE GRID 'I:I\AGENT;<>; 'DO(01) 'I:W\RESULT;=;Y 'U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRIDM;I\SD_CONSIGN,I\AGENT 'DOEND(01) |
| 1 | 0.0 | STK_DETS | SD_ALLOWPS | I | -1 | 741, 181 | $CALCULATE $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'DISPLAY ERROR MESSAGE IF ANYTHING OTHER THAN A 'Y' OR NULL V:Y;N; C:UCASE 'DEFAULT TO 'Y' I:I\SD_ALLOWPS;=; A:CONST;Y;I\SD_ALLOWPS I:I\SD_CONSIGN;<>; U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRIDM;I\SD_CONSIGN 'CLEAR FIELDS A:CONST;;I\SD_CONSIGN, |
| 1 | 0.0 | Work 1 | I | 0 | 161, 481 | ||
| 1 | 0.0 | STK_DETS | SD_ALLOWPS | T | -1 | 741, 157 | |
| 1 | 0.0 | Label 3 | T | -1 | 191, 157 | ||
| 1 | 0.0 | Work 4 | I | -1 | 191, 181 | ||
| 1 | 0.0 | Label 6 | T | -1 | 291, 157 | ||
| 1 | 0.0 | Work 1 | G | -1 | 1, 205 | ||
| 1 | 0.0 | I DATE | I | -1 | 641, 181 | ||
| 1 | 0.0 | Label 2 | T | -1 | 641, 157 | ||
| 1 | 0.0 | STK_DETS | SD_CONSIGN | I | -1 | 1, 181 | $SELECT 'DISPLAY A SELECTION WINDOW 'SELECT THAT SHOWS CONSIGNMENTS FOR CURRENT AGENT - BY C-VIG I:I\AGENT;<>; S:STK_DETS_AGENT;I\SD_CONSIGN;I\MARKET;I\AGENT 'I:I\AGENT;<>; 'S:STK_DETS;I\SD_CONSIGN;I\MARKET '-------------- CHANGED SELECTION BECAUSE IT ONLY SHOW CONSIGNMENTS FOR ONE AGENT (LAZOLA) I:I\AG |
| 1 | 0.0 | STK_DETS | SD_CONSIGN | T | -1 | 1, 157 | |
| 1 | 0.0 | STK_DETS | SD_MARKET | I | 0 | 121, 37 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CONVERT ONLY THE FIRST CHARACTER TO UPPERCASE C:MCASE;;T\MARKET |
| 1 | 0.0 | STK_DETS | SD_CLASS | I | 0 | 61, 481 | |
| 1 | 0.0 | STK_DETS | SD_SIZE | I | 0 | 81, 481 | |
| 1 | 0.0 | STK_DETS | SD_CONT | I | 0 | 41, 481 | |
| 1 | 0.0 | STK_DETS | SD_CONTMASS | I | 0 | 101, 481 | |
| 1 | 0.0 | STK_DETS | SD_DELNO | I | 0 | 121, 481 | |
| 1 | 0.0 | Work 1 | I | 0 | 141, 481 | ||
| 1 | 0.0 | AGENT | I | -1 | 61, 85 | $DEFAULT A:ORGS;I\AGENT 'F:AGENT_MAST;;AM_CODE;T\AGENT2=AM_NAME,W\AM_DEL_LEN=AM_DEL_LEN;AM_MARKET='$I\MARKET$' '' SET LENGTH OF CONSIGNMENT NUMBER FIELD 'A:CONST;2;I\TMP 'A:ADD;W\AM_DEL_LEN;I\TMP;I\TMP 'A:FIELDLEN;I\TMP;I\SD_CONSIGN 'DEFAULT TO 'Y' A:CONST;Y;I\SD_ALLOWPS 'THE FOLLOWING WORKS WHEN THERE |
|
| 1 | 0.0 | Label 2 | T | -1 | 1, 85 | ||
| 1 | 0.0 | Label 3 | T | -1 | 121, 85 | ||
| 1 | 0.0 | STK_DETS | SD_DATE | I | 0 | 401, 157 | |
| 1 | 0.0 | W SM DDATE | I | 0 | 41, 517 | ||
| 1 | 0.0 | CREATE | C | -1 | 651, 545 | $SCMD_FOCUS O:BACKCOLOR;C\CREATE;YELLOW $SELECT 'SEND GRID DATA TO THE DATABASE 'U:ZZGRID_SPLIT;GRID_TO_DB;G\GRIDM;STK_DETS,SD_CONSIGN='$I\SD_CONSIGN$',SD_AGENT='$I\SD_AGENT$', SD_MARKET='$I\MARKET$' AND SD_DATE='$I\SD_DATE$' U:CONS_PROV_MAN;UPDATE_GRID;G\GRIDM 'RE-LOAD THE GRID ACCORDINGLY 'THE FOLL |
|
| 1 | 0.0 | DEL LEN | I | 0 | 400, 420 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 1 |