Program drill-down
PALL_CONS_ALLO_INT
ALLOCATE PALLET TO CONSIGNMENT INT. Type DSP, base table STK_DETS.
Field inventory
74
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 3 | I | -1 | 271, 181 | ||
| 1 | 0.0 | CMD 17 | C | -1 | 391, 109 | $SELECT S:CONS;I\SD_CONSIGN;I\MARKET;I\ORGS |
|
| 1 | 0.0 | CMD 1 | C | -1 | 261, 361 | $SELECT 'S:PALLET_CODE;I\PALL_CODE LP10022010 ON CHRISTO'S REQUEST S:PALL_POOL2;I\PALL_CODE;I\MARKET;I\ORGS;I\SECTION;I\ORGS |
|
| 1 | 0.0 | Work 24 | G | -1 | 161, 385 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | STK_DETS | SD_CONSIGN | I | -1 | 271, 109 | $SELECT S:CONS;I\SD_CONSIGN;I\MARKET;I\ORGS $VALIDATE M: 'ZEROFILL A:ZEROFILL;I\SD_CONSIGN,W\ZEROFILL;I\SD_CONSIGN F:STK_DETS;;;I\DEL_DATE=SD_DATE,I\TMP_DELNO=SD_DELNO;SD_CONSIGN='$I\SD_CONSIGN$' AND ISNULL(SD_CDATE) AND SD_STK_TAKE <> 'Y' A:VAR;I\DEL_DATE;I\DEL_DATE;;YYYY/MM/DD F:STK_MAST;;;I\SUPPLIE |
| 1 | 0.0 | Work 7 | I | -1 | 271, 217 | ||
| 1 | 0.0 | Work 4 | I | -1 | 271, 145 | ||
| 1 | 0.0 | Work 9 | I | -1 | 271, 253 | ||
| 1 | 0.0 | Work 19 | I | -1 | 641, 109 | ||
| 1 | 0.0 | Work 27 | I | -1 | 291, 361 | ||
| 1 | 0.0 | Work 28 | I | -1 | 441, 361 | ||
| 1 | 0.0 | Work 1 | I | -1 | 641, 145 | ||
| 1 | 0.0 | Work 2 | I | 0 | 21, 73 | $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 U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\PALL_CODE,I\PALL_DESC,I\QTY_AVAIL,I\QTY_ALLOC,I\DEL A:CONST;+;I\SEQ |
|
| 1 | 0.0 | Work 3 | I | 0 | 101, 73 | $DEFAULT A:USERIP;;I\IP |
|
| 1 | 0.0 | Work 4 | I | 0 | 41, 73 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,W\ZEROFILL=CM_DEL_LEN A:ADD;"2";W\ZEROFILL;W\ZEROFILL 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET |
|
| 1 | 0.0 | Work 5 | I | 0 | 81, 73 | $DEFAULT A:USERID;;I\USERID |
|
| 1 | 0.0 | Work 6 | I | 0 | 61, 73 | $DEFAULT A:ORGS;;I\ORGS F:AGENT_MAST;;;I\TMP_OWN_POOL=AM_OWN_PALL_POOL;AM_MARKET = '$I\MARKET$' AND AM_CODE='$I\ORGS$' U:ALLOC_PALL_TO_CONS;AGN_POOL_CHECK I:I\TMP_ALLOWED;=;N DO(LSW) O:HIDEUPDATE O:DISABLEINPUT;I\SEQ,I\PALL_CODE,I\QTY_ALLOC,I\DEL,I\SD_CONSIGN DOEND(LSW) I:I\TMP_ALLOWED;<>;N DO( |
|
| 1 | 0.0 | Work 7 | I | 0 | 41, 577 | ||
| 1 | 0.0 | Work 8 | I | 0 | 101, 577 | ||
| 1 | 0.0 | Work 10 | I | 0 | 81, 577 | ||
| 1 | 0.0 | Work 11 | I | 0 | 61, 577 | ||
| 1 | 0.0 | Work 12 | I | 0 | 121, 577 | ||
| 1 | 0.0 | Work 13 | I | 0 | 141, 577 | ||
| 1 | 0.0 | Work 14 | I | 0 | 101, 553 | ||
| 1 | 0.0 | Work 15 | I | 0 | 81, 553 | ||
| 1 | 0.0 | Work 16 | I | 0 | 61, 553 | ||
| 1 | 0.0 | Work 17 | I | 0 | 41, 553 | ||
| 1 | 0.0 | Work 19 | I | 0 | 141, 553 | ||
| 1 | 0.0 | Work 20 | I | 0 | 121, 553 | ||
| 1 | 0.0 | Work 21 | I | 0 | 161, 553 | ||
| 1 | 0.0 | Work 22 | I | 0 | 181, 553 | ||
| 1 | 0.0 | Work 23 | I | 0 | 161, 577 | ||
| 1 | 0.0 | Work 1 | I | 0 | 701, 529 | '$BEFORE_WRITE 'U:ALLOC_PALL_TO_CONS;UPDATE_TABLES |
|
| 1 | 0.0 | Work 1 | I | 0 | 211, 553 | ||
| 1 | 0.0 | Work 1 | I | 0 | 71, 289 | ||
| 1 | 0.0 | Label 6 | T | -1 | 121, 217 | ||
| 1 | 0.0 | Label 8 | T | -1 | 121, 253 | ||
| 1 | 0.0 | Label 5 | T | -1 | 121, 145 | ||
| 1 | 0.0 | STK_DETS | SD_CONSIGN | T | -1 | 121, 109 | |
| 1 | 0.0 | Label 2 | T | -1 | 121, 181 | ||
| 1 | 0.0 | Label 10 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 11 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 12 | T | -1 | 251, 49 | ||
| 1 | 0.0 | Label 13 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 14 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 15 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 16 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 18 | T | -1 | 491, 109 | ||
| 1 | 0.0 | Label 20 | T | -1 | 461, 181 | ||
| 1 | 0.0 | Label 21 | T | -1 | 461, 145 | ||
| 1 | 0.0 | Label 22 | T | -1 | 461, 217 | ||
| 1 | 0.0 | Label 23 | T | -1 | 461, 253 | ||
| 1 | 0.0 | Label 31 | T | -1 | 161, 337 | ||
| 1 | 0.0 | Label 32 | T | -1 | 201, 337 | ||
| 1 | 0.0 | Label 33 | T | -1 | 201, 313 | ||
| 1 | 0.0 | Label 34 | T | -1 | 291, 337 | ||
| 1 | 0.0 | Label 35 | T | -1 | 441, 337 | ||
| 1 | 0.0 | Label 36 | T | -1 | 441, 313 | ||
| 1 | 0.0 | Label 37 | T | -1 | 521, 337 | ||
| 1 | 0.0 | Label 38 | T | -1 | 521, 313 | ||
| 1 | 0.0 | Label 39 | T | -1 | 621, 337 | ||
| 1 | 0.0 | Label 9 | T | 0 | 1, 577 | ||
| 1 | 0.0 | Label 18 | T | 0 | 1, 553 | ||
| 1 | 0.0 | CMD 2 | C | -1 | 651, 553 | $SELECT U:ALLOC_PALL_TO_CONS;UPDATE_TABLES A:CONST;;I\SD_CONSIGN,I\DEL_DATE,I\COMMODITY,T\COMMODITY_DESC,I\PALL_SUPPL,I\SUPPLIER,T\SUPP_NAME,I\SMAN,T\SMAN_NAME,I\SECTION,T\SECTION_DESC U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\PALL_CODE,I\PALL_DESC,I\QTY_AVAIL,I\QTY_ALLOC,I\DEL O:SETFOCUS;I\SD_CONSIGN |
|
| 1 | 1.0 | Work 25 | I | -1 | 161, 361 | $CALCULATE I:I\SEQ;<>;+ DO(TEE) I:I\SEQ;<>; DO(GET) I:I\SEQ;<>; U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\SEQ DOEND(GET) I:I\SEQ;=; DO(GDE) O:DISABLEINPUT;I\PALL_CODE,I\QTY_ALLOC,I\DEL DOEND(GDE) DOEND(TEE) I:I\SEQ;=;+ DO(SAS) A:CONST;;I\SEQ,I\PALL_CODE,I\PALL_DESC,I\QTY_AVAIL |
|
| 1 | 1.0 | Work 26 | I | -1 | 201, 361 | $SELECT 'S:PALLET_CODE;I\PALL_CODE LP10022010 ON CHRISTO'S REQUEST S:PALL_POOL2;I\PALL_CODE;I\MARKET;I\ORGS;I\SECTION;I\ORGS $CALCULATE M: C:UCASE F:PALL_MAST;Y;;I\PALL_DESC=PM_DESC;PM_PALL='$I\PALL_CODE$';I\PALL_CODE A:VAR;I\DEL_DATE;I\DEL_DATE2;;YYYY/MM/DD F:PALL_DETS;;;I\QTY_AVAIL=PD_RECQTY-PD_SLDQTY- |
|
| 1 | 1.0 | Work 29 | I | -1 | 521, 361 | $CALCULATE M: 'COMMENTED ON JANET AND CHRISTO'S REQUEST 'I:I\QTY_ALLOC;>;I\QTY_AVAIL 'D:NOT ENOUGH PALLETS AVAILABLE;ERRORM;I\QTY_ALLOC |
|
| 1 | 1.0 | Work 30 | I | -1 | 621, 361 | $CALCULATE C:UCASE I:I\DEL;=; A:CONST;N;I\DEL V:Y;N; I:I\DEL;=;Y DO(002) U:MANIPULATE_GRID;DELETE_RECORD;I\SEQ,G\GRID,I\SEQ A:CONST;;I\PALL_CODE,I\PALL_DESC,I\QTY_AVAIL,I\QTY_ALLOC,I\DEL O:SETFOCUS;I\SEQ DOEND(002) I:I\DEL;=;N DO(GRT) U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ A:CONST;;I\PAL |
|
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |