Program drill-down
PALLET_TAKE_ON
PALLET TAKE-ON. Type DSP, base table PALL_TRANS.
Field inventory
54
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | PL_ID | I | 0 | 31, 553 | ||
| 1 | 0.0 | H | -1 | 0, 60 | |||
| 1 | 0.0 | PALL_TRANS | PT_OWNER | I | -1 | 151, 145 | $DEFAULT 'RETRIVING THE AGENT'S NAME A:ORGS;I\PT_OWNER F:AGENT_MAST;;AM_CODE;W\AM_PALL_POOL=AM_OWN_PALL_POOL,I\PT_POOLID=AM_CODE,T\AM_NAME=AM_NAME;AM_CODE='$I\PT_OWNER$' I:I\PT_POOLID;<>; O:DISABLEINPUT;I\PT_POOLID,I\PT_OWNER I:I\PT_POOLID;=; DO(01) F:POOLID_MAST;;;I\PT_POOLID=PI_ID;PI_TYPE='C' O:ENABLEI |
| 1 | 0.0 | PALL_TRANS | PT_OWNER | T | -1 | 41, 145 | |
| 1 | 0.0 | PALL_TRANS | PT_PALL | I | -1 | 41, 265 | $SELECT 'DISPLAY SELECTION WINDOW S:PALLET_CODE_3;I\PT_PALL $CALCULATE 'MAKE THIS FIELD MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE PALELT CODE AND DISPLAY THE DESCRIPTION F:PALL_MAST;Y;;I\PM_DESC=PM_DESC;PM_PALL='$I\PT_PALL$';I\PT_PALL |
| 1 | 0.0 | PALL_TRANS | PT_PALL | T | 0 | 41, 193 | |
| 1 | 0.0 | PALL_TRANS | PT_SECT | I | -1 | 281, 265 | $SELECT I:W\CM_PALL_SECT;=;I DO(I) 'DISPLAY SELECTION WINDOW S:SECTIONI;I\PT_SECT DOEND(I) I:W\CM_PALL_SECT;=;S DO(SE) 'DISPLAY SELECTION WINDOW S:SECT_MAST_S_2;I\PT_SECT DOEND(SE) I:W\CM_PALL_SECT;=;M DO(SE) 'DISPLAY SELECTION WINDOW S:SALESMAN;I\PT_SECT DOEND(S |
| 1 | 0.0 | PALL_TRANS | PT_SECT | T | 0 | 271, 193 | |
| 1 | 0.0 | PALL_TRANS | PT_TRQTY | I | -1 | 501, 265 | $CALCULATE 'MAKE THIS FIELD MANDATORY M: 'VALIDATE QUANTITY I:I\PT_TRQTY;<;0;NUM D:QUANTITY CANNOT BE LESS THAN ZERO;ERRORM;I\PT_TRQTY I:I\PT_TRQTY;=;0;NUM D:QUANTITY MUST BE GREATER THAN ZERO;ERRORM;I\PT_TRQTY |
| 1 | 0.0 | PALL_TRANS | PT_TRQTY | T | -1 | 501, 241 | |
| 1 | 0.0 | PALL_TRANS | PT_SUPPL | I | -1 | 561, 265 | $SELECT 'DISPLAY A SELECTION WINDOW S:SUPPLIER_CODE;I\PT_SUPPL $CALCULATE 'VALIDATE SUPPLIER AND DISPLAY THE SUPPLIER NAME I:I\PT_SUPPL;<>; DO(ZE) A:VAR;I\PT_SUPPL;I\PT_SUPPL;;#000000 F:SUPPLIER_MAST;Y;;I\SUM_NAME=SUM_NAME;SUM_SUPPL='$I\PT_SUPPL$';I\PT_SUPPL DO(ZE) |
| 1 | 0.0 | PALL_TRANS | PT_SUPPL | T | -1 | 561, 241 | |
| 1 | 0.0 | LINE | I | -1 | 1, 265 | $DEFAULT 'DEFAULT TO "+" A:CONST;+;I\LINE $CALCULATE I:I\LINE;=; DO(00) O:DISABLEINPUT;I\PT_PALL,I\PM_DESC,I\PT_SECT,I\SE_DESC,I\PT_TRQTY,I\PT_SUPPL,I\SUM_NAME,W\DEL O:BACKCOLOR;C\CREATE;YELLOW ' O:SETFOCUS;C\CREATE DOEND(00) I:I\LINE;<>; DO(L) O:ENABLEINPUT;I\PT_PALL,I\PM_DESC,I\PT_SE |
|
| 1 | 0.0 | Label 8 | T | -1 | 41, 217 | ||
| 1 | 0.0 | Label 9 | T | -1 | 41, 241 | ||
| 1 | 0.0 | PALL_MAST | PM_DESC | I | -1 | 101, 265 | |
| 1 | 0.0 | Label 11 | T | -1 | 101, 241 | ||
| 1 | 0.0 | Label 12 | T | -1 | 271, 217 | ||
| 1 | 0.0 | Label 13 | T | -1 | 281, 241 | ||
| 1 | 0.0 | Label 14 | T | -1 | 331, 241 | ||
| 1 | 0.0 | SECT_MAST | SE_DESC | I | -1 | 331, 265 | |
| 1 | 0.0 | AM_NAME | T | -1 | 281, 145 | ||
| 1 | 0.0 | Work 17 | G | -1 | 1, 289 | ||
| 1 | 0.0 | SUPPLIER_MAST | SUM_NAME | I | -1 | 641, 265 | |
| 1 | 0.0 | DELETE | I | -1 | 761, 265 | $CALCULATE 'CONVERT TO UPPERCASE C:UCASE 'VALIDATE VALUES ENTERED V:D; '= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = I:W\DEL;=; DO(W) I:I\LINE;=;+ DO(L) I:I\PT_PALL;<>; DO(0) U:PALLET_TAKE_ON;LINE_NO;G\GRID U:ZZGRID |
|
| 1 | 0.0 | Label 20 | T | -1 | 1, 241 | ||
| 1 | 0.0 | MARKET | I | 0 | 11, 61 | $DEFAULT 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCASE;;T\MARKET 'GET USERNAME A:USERNAME; |
|
| 1 | 0.0 | DEFAULT | I | 0 | 11, 85 | $DEFAULT 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\GRID;I\LINE,I\PT_PALL,I\PM_DESC,I\PT_SECT,I\SE_DESC,I\PT_TRQTY,I\PT_SUPPL,I\SUM_NAME,W\DEL ''U:ZZGRID_SPLIT;DB_TO_GRID;G\AREA;AREA_MAST 'CHECK IF CLIENT PARAMETER IS INDICATES SAL |
|
| 1 | 0.0 | Label 23 | T | -1 | 1, 25 | ||
| 1 | 0.0 | CMD 24 | C | -1 | 251, 145 | $SELECT 'DISPLAY A SELECTION WINDOW S:AGENT_CODE;I\PT_OWNER |
|
| 1 | 0.0 | Label 25 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 26 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 27 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 28 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 328, 49 | ||
| 1 | 0.0 | CM_PALL_SECT | I | 0 | 1, 505 | ||
| 1 | 0.0 | TEMP | I | 0 | 1, 553 | ||
| 1 | 0.0 | Label 5 | T | -1 | 641, 241 | ||
| 1 | 0.0 | Label 6 | T | -1 | 761, 241 | ||
| 1 | 0.0 | CREATE BUTTON | C | -1 | 651, 546 | $SCMD_FOCUS O:BACKCOLOR;C\CREATE;YELLOW $SELECT 'UPDATE THE DAABASE TABLES WITH THE GRID VALUES U:PALLET_TAKE_ON;UPDATES;G\GRID 'INITIALIZE THE GRID U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\PT_PALL,I\PM_DESC,I\PT_SECT,I\SE_DESC,I\PT_TRQTY,I\PT_SUPPL,I\SUM_NAME,W\DEL 'A:CONST;;I\PT_POOLID,I\PT_OWNER 'O:SE |
|
| 1 | 0.0 | Work 3 | I | 0 | 131, 553 | ||
| 1 | 0.0 | AM_PALL_POOL | I | 0 | 111, 553 | ||
| 1 | 0.0 | USER | I | 0 | 61, 553 | ||
| 1 | 0.0 | IP ADDRESS | I | 0 | 81, 553 | ||
| 1 | 0.0 | PALL_TRANS | PT_POOLID | I | -1 | 151, 109 | $VALIDATE C:UCASE I:W\RUNBY;=;N DO(YY) M: I:I\PT_POOLID;<>; F:POOLID_MAST;Y;;;PI_ID='$I\PT_POOLID$' AND PI_TYPE='C' DOEND(YY) I:W\RUNBY;=;Y DO(YY2) I:I\PT_POOLID;<>; DO(PLD) I:I\PT_POOLID;<>;FLOOR F:POOLID_MAST;Y;;;PI_ID='$I\PT_POOLID$' AND PI_TYPE='P' |
| 1 | 0.0 | Label 2 | T | -1 | 41, 109 | ||
| 1 | 0.0 | RUN BY AGENT OR NOT | I | 0 | 31, 505 | ||
| 1 | 0.0 | BUTTON | I | -1 | 671, 553 | $SVAR_FOCUS O:SETFOCUS;C\CREATE |
|
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 60 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 60 |