Program drill-down
ALLOC_PALLS_TO_DELL
ALLOCATE PALLETS TO A DELIVERY. 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 2 | I | 0 | 681, 133 | $DEFAULT A:USERIP;;I\IP |
|
| 1 | 0.0 | CMD 1 | C | -1 | 391, 325 | $SELECT S:PALLET_CODE_CHEP;I\PALL |
|
| 1 | 0.0 | CMD 15 | C | -1 | 651, 541 | $SELECT 'I:I\MARKET;=;15 'DO(15) ' I:I\PASSWORD;<>; ' DO(S) ' M: ' I:I\PASSWRD;<>;I\PASSWORD ' D:PASSWORD INCORRECT - RETRY;ERRORM;I\SM_SMAN ' ''D:PASSWORD INCORRECT - RETRY;ERRORM;I\PASSWRD ' DOEND(S) 'DOEND(15) U:ALLOC_PALL_DEL_NEW;UPDATE_DATA U:ALLOC_PALL_DEL_NEW;CLEAR_GRID I:I\ORGS |
|
| 1 | 0.0 | CMD 16 | C | -1 | 371, 133 | $SELECT S:DELIVERY_AGN_SUPPL;I\DELNO;I\AGENT |
|
| 1 | 0.0 | CMD 11 | C | -1 | 321, 97 | $SELECT S:AGENT_CODE;I\AGENT |
|
| 1 | 0.0 | Work 13 | G | -1 | 91, 349 | ||
| 1 | 0.0 | H | -1 | 1, 25 | |||
| 1 | 0.0 | Work 11 | I | 0 | 21, 61 | $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 | SUPPL | I | -1 | 271, 169 | ||
| 1 | 0.0 | SD_CONSIGN | I | -1 | 191, 325 | ||
| 1 | 0.0 | COMMODITY | I | 0 | 11, 529 | ||
| 1 | 0.0 | DELDATE | I | -1 | 271, 205 | $CALCULATE A:CONST;Y;I\UPD_SLS |
|
| 1 | 0.0 | PALLET | I | -1 | 341, 325 | $SELECT S:PALLET_CODE_CHEP;I\PALL $CALCULATE M: C:UCASE I:I\PALL;<>; '20220104 THEUNIS 'F:AGENT_MAST;Y;;I\AM_DEF_SLSMAN=AM_DEF_SLSMAN,I\PASSWORD=AM_SMAN_PIN,T\AGN_NAME=AM_NAME;AM_CODE='$I\PALL$';I\PALL F:PALL_MAST;Y;;,T\PALLET_NAME=PM_DESC;PM_PALL='$I\PALL$';I\PALL I:I\MARKET;<>;15 DO(15) I:I\PASSWOR |
|
| 1 | 0.0 | Work 1 | I | 0 | 1, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\PROHIBIT_SALES=CM_PROHIBIT_SALES 'CONVERT THE FIRST CHARACTER TO UPPERCASE C:MCASE;;T\MARKET I:I\PROHIBIT_SALES;=;Y D:YOU CAN'T CONTINUE PROGRAM IS PROHIBITED;ERRORM; A:VAR;I\MARKET;I\SD_MARKET 'U |
|
| 1 | 0.0 | Work 1 | I | 0 | 41, 61 | $DEFAULT A:ORGS;;I\ORGS I:I\ORGS;<>; DO(C98) O:DISABLEINPUT;I\AGENT,C\AGENT A:VAR;I\ORGS;I\AGENT F:AGENT_MAST;;;I\AM_DEF_SLSMAN=AM_DEF_SLSMAN,I\PASSWORD=AM_SMAN_PIN,T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT$' DOEND(C98) I:I\ORGS;=; DO(CG5) O:ENABLEINPUT;I\AGENT,C\AGENT DOEND(CG5) 'I:I\ORGS;<>; 'F: |
|
| 1 | 0.0 | SD_SIZE | I | 0 | 61, 565 | ||
| 1 | 0.0 | SD_CONT | I | 0 | 21, 565 | ||
| 1 | 0.0 | SD_CLASS | I | 0 | 41, 565 | ||
| 1 | 0.0 | SD_CONTMASS | I | 0 | 81, 565 | ||
| 1 | 0.0 | SD_DELNO | I | 0 | 101, 565 | ||
| 1 | 0.0 | CM_DEL_LEN | I | 0 | 1, 565 | ||
| 1 | 0.0 | Work 1 | I | 0 | 181, 565 | ||
| 1 | 0.0 | SD_ITEM | I | 0 | 141, 565 | ||
| 1 | 0.0 | STK_DETS | SD_SMAN | I | 0 | 161, 565 | |
| 1 | 0.0 | UPD_SLS | I | 0 | 341, 241 | $CALCULATE C:UCASE V:Y;N; I:I\UPD_SLS;=; A:CONST;Y;I\UPD_SLS I:I\UPD_SLS;=;Y DO(S) O:ENABLEINPUT;C\CREATE,I\LINE,I\PALL,I\RECQTY,W\DEL O:SETFOCUS;I\LINE O:BACKCOLOR;I\LINE;YELLOW DOEND(S) I:I\UPD_SLS;<>;Y DO(S1) O:DISABLEINPUT;C\CREATE,I\LINE,I\PALL,I\RECQTY,W\DEL O:SETFOCUS;I\AGENT O:BACKCOLOR;I |
|
| 1 | 0.0 | Work 2 | I | 0 | 11, 157 | $DEFAULT A:SETPWFIELD;I\PASSWRD $VALIDATE I:I\MARKET;=;15 DO(15) I:I\PASSWORD;<>; DO(S) M: I:I\PASSWRD;<>;I\PASSWORD D:PASSWORD INCORRECT - RETRY;ERRORM;I\PASSWRD '' D:PASSWORD INCORRECT - RETRY;ERRORM;I\SM_SMAN DOEND(S) DOEND(15) |
|
| 1 | 0.0 | Work 2 | I | 0 | 31, 289 | $VALIDATE I:I\DELNO;=; DO(NO_DEL) M: DONED(NO_DEL) I:I\WAYBILL;<>; F:STK_MAST;Y;;I\SUPPL=SM_SUPP,I\DELDATE=SM_DDATE,I\SM_SMAN=SM_SMAN;SM_AGENT='$I\AGENT$' AND SM_WAYBILLNO='$I\WAYBILL$' AND ISNULL(SM_FINPDTE) A:VAR;I\SM_SMAN;W\SM_SMAN I:I\WAYBILL;<>; DO(W) I:I\DELNO;<>; DO(D) I:I\AGENT;< |
|
| 1 | 0.0 | Work 3 | I | 0 | 11, 421 | ||
| 1 | 0.0 | PROD | I | 0 | 221, 565 | ||
| 1 | 0.0 | PASSWORD | I | 0 | 11, 349 | ||
| 1 | 0.0 | VARIETY | I | 0 | 201, 565 | ||
| 1 | 0.0 | Work 10 | I | 0 | 121, 565 | ||
| 1 | 0.0 | DELNO | I | -1 | 271, 133 | $SELECT S:DELIVERY_AGN_SUPPL;I\DELNO;I\AGENT $CALCULATE I:I\MARKET;<>;15 M: O:DISABLEINPUT;C\CREATE I:I\DELNO;=; DO(02) O:SETFOCUS;I\DELNO DOEND(02) I:I\DELNO;<>; DO(01) A:VAR;I\DELNO;I\DELNO;;000000 F:STK_MAST;Y;;I\SUPPL=SM_SUPP,I\DELDATE=SM_DDATE,I\SM_SMAN=SM_SMAN;SM_AGENT='$I\AGENT$' AND SM_ |
|
| 1 | 0.0 | Work 5 | I | 0 | 11, 397 | ||
| 1 | 0.0 | AGENT | I | -1 | 271, 97 | $SELECT S:AGENT_CODE;I\AGENT $CALCULATE M: C:UCASE I:I\AGENT;<>; F:AGENT_MAST;Y;;I\AM_DEF_SLSMAN=AM_DEF_SLSMAN,I\PASSWORD=AM_SMAN_PIN,T\AGN_NAME=AM_NAME;AM_CODE='$I\AGENT$';I\AGENT I:I\MARKET;<>;15 DO(15) I:I\PASSWORD;=; DO(09) O:DISABLEINPUT;T\PASSWRD,I\PASSWRD O:HIDE;T\PASSWRD,I\PASSWR |
|
| 1 | 0.0 | RECQTY | I | -1 | 571, 325 | $CALCULATE I:W\DEL;=; A:CONST;A;W\DEL 'SAVE SCREEN FIELDS VALUES TO GRID U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRIDM;I\LINE,I\SD_CONSIGN ',I\TRANS_DESC,I\PM_PALL 'CLEAR GRID AND SET FOCUS TO LINE FIELD A:CONST;;I\LINE,I\SD_CONSIGN,I\PALL,I\RECQTY,W\DEL,T\PALLET_NAME,I\SECTION O:ENABLEINPUT;C\CREATE O:SETFOCUS; |
|
| 1 | 0.0 | Work 7 | I | 0 | 211, 529 | ||
| 1 | 0.0 | DISQTY | I | 0 | 261, 529 | ||
| 1 | 0.0 | Work 4 | I | 0 | 11, 373 | ||
| 1 | 0.0 | Label 8 | T | -1 | 271, 25 | ||
| 1 | 0.0 | Label 16 | T | -1 | 671, 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 | 0 | 11, 217 | ||
| 1 | 0.0 | Label 8 | T | -1 | 191, 289 | ||
| 1 | 0.0 | Label 9 | T | -1 | 221, 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 | 421, 325 | ||
| 1 | 0.0 | Label 2 | T | -1 | 391, 169 | ||
| 1 | 0.0 | STK_DETS | SD_SMAN | T | -1 | 341, 289 | |
| 1 | 0.0 | Label 3 | T | -1 | 141, 169 | ||
| 1 | 0.0 | Label 2 | T | -1 | 141, 205 | ||
| 1 | 0.0 | Label 5 | T | 0 | 501, 229 | ||
| 1 | 0.0 | Label 13 | T | 0 | 141, 241 | ||
| 1 | 0.0 | Label 1 | T | -1 | 11, 193 | ||
| 1 | 0.0 | Label 1 | T | 0 | 11, 289 | ||
| 1 | 0.0 | Label 2 | T | -1 | 141, 133 | ||
| 1 | 0.0 | Label 12 | T | -1 | 371, 97 | ||
| 1 | 0.0 | AGN | T | -1 | 141, 97 | ||
| 1 | 0.0 | Label 5 | T | 0 | 11, 265 | ||
| 1 | 0.0 | Label 3 | T | 0 | 11, 241 | ||
| 1 | 0.0 | Label 4 | T | -1 | 571, 289 | ||
| 1 | 0.0 | Work 1 | I | -1 | 91, 325 | $DEFAULT 'A:CONST;+;I\LINE $VALIDATE '==JUSTIN=== I:I\LINE;=;+ A:CONST;;I\LINE,I\SD_CONSIGN,I\PALL,I\RECQTY,W\DEL,T\PALLET_NAME '=========== 'IF THIS FIELD IS EMPTY DISABLE ALL FIELDS AND BUTTON THEN SET FOCUS TO CONFIRM BUTTON I:I\LINE;=; DO(005) O:DISABLEINPUT;I\LINE,I\SD_CONSIGN,I\PALL,I\RECQTY |
|
| 1 | 0.0 | Work 1 | I | -1 | 291, 325 | ||
| 1 | 0.0 | Label 2 | T | -1 | 291, 289 | ||
| 1 | 0.0 | Work 1 | I | 0 | 621, 325 | $CALCULATE 'CHANGE TEXT CASE TO UPPER CASE C:UCASE 'ONLY THESE VALUES ALLOWED V:A; I:W\DEL;=; A:CONST;A;W\DEL 'IF LINE FIELD CONTAINS PLUS SIGN THEN CALL ROUTINE TP COUNT THE NUMBER OF ROWS ''''I:I\LINE;=;+ ''''U:SUPPLIER_PALL_RETURN;LINE_NO;G\GRID 'VALIDATE ALL THE FIELDS BEFORE GET SAVED IN THE GRID |
|
| 1 | 0.0 | Label 2 | T | 0 | 621, 289 | ||
| 1 | 0.0 | Work 1 | I | 0 | 681, 109 | $DEFAULT A:USERID;;I\USERID |
|
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 25 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 25 |