Program drill-down
BUYER_PALLET_DEPOSIT
BUYER PALLET DEPOSIT. Type DSP, base table DEBTOR_MAST.
Field inventory
59
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CMD 1 | C | -1 | 651, 550 | ''''$BEFORE WRITE $SELECT 'SAVES DATA TO TABLES U:BUYER_PALLET_DEPOSIT;BUYER_PALLET_DEPOSIT_SAVE_DATA 'IF TICK BOX IS CHECKED 1=CHECKED, 0=UNCHECKED PRINT BUYER DEPOSIT NOTE I:K\PRINT_BUYER_DEPOSIT;>;0 'PRINT BUYER DEPOSIT NOTE E:$GBLROOT$\LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_BUYER_PALLET_DEPOSI |
|
| 1 | 0.0 | Work 40 | I | -1 | 771, 229 | $CALCULATE 'CONVERT TO UPPERCASE C:UCASE 'ONLY THE Y, D OR BLANK ARE ACCEPTED VALUES FOR THIS FIELD V:Y;D; 'IF "Y" IS ENTERED, PUT DATA INTO THE GRID, CLEAR GRID FIELDS. I:W\DEL;=;Y DO(001) 'PUT DATA INTO GRID FROM FIELDS U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LINE 'CLEAR OUT GRID SCREEN |
|
| 1 | 0.0 | Work 38 | I | -1 | 561, 229 | ||
| 1 | 0.0 | Work 39 | I | -1 | 671, 229 | ||
| 1 | 0.0 | Work 37 | I | -1 | 501, 229 | ||
| 1 | 0.0 | Label 22 | T | -1 | 291, 181 | ||
| 1 | 0.0 | Work 34 | I | -1 | 291, 229 | ||
| 1 | 0.0 | Label 20 | T | -1 | 351, 205 | ||
| 1 | 0.0 | Label 18 | T | -1 | 411, 205 | ||
| 1 | 0.0 | Label 17 | T | -1 | 1, 205 | ||
| 1 | 0.0 | Label 15 | T | -1 | 561, 205 | ||
| 1 | 0.0 | Label 14 | T | -1 | 351, 181 | ||
| 1 | 0.0 | Label 13 | T | -1 | 231, 205 | ||
| 1 | 0.0 | PALL_TRANS | PT_PALL | I | -1 | 41, 229 | $SELECT S:PALLET_CODE;I\PT_PALL $CALCULATE 'MANDATORY M: 'CHECK IF A VALID PALLET IS ENTERED F:PALL_MAST;Y;;I\PALL_DESC=PM_DESC;PM_PALL='$I\PT_PALL$' 'DISPLAY THE AVAILABLE QTY I:I\CM_CENTRAL_PALL;=;1;NUM DO(001) F:POOLID_MAST;;;I\PI_ID=PI_ID;PI_TYPE='C' F:PALL_POOL;;;I\AVAIL_QTY=PL_POOLQ;PL_MARK |
| 1 | 0.0 | Work 33 | I | -1 | 1, 229 | $CALCULATE 'IF EMPTY SET FOCUS TO UPDATE BUTTON I:I\LINE;=; DO(001) O:DISABLEINPUT;I\LINE,I\PT_PALL,I\DEPOSIT_QTY,W\DEL O:DISABLEINPUT;G\GRID DOEND(001) 'IF IS EQUAL TO + SIGN YOU CAN SELLECT FROM THE GRID AND ENTER NEW VALUE I:I\LINE;=;+ DO(001) O:SETFOCUS;I\PT_PALL A:CONST;;I\LINE |
|
| 1 | 0.0 | CMD 6 | C | -1 | 81, 229 | $SELECT S:PALLET_CODE;I\PT_PALL |
|
| 1 | 0.0 | Label 43 | T | -1 | 611, 181 | ||
| 1 | 0.0 | Label 2 | T | -1 | 671, 205 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 221, 109 | $SELECT S:DEBTOR;I\DM_DEBTOR |
|
| 1 | 0.0 | Label 7 | T | -1 | 41, 205 | ||
| 1 | 0.0 | Label 31 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Work 32 | I | -1 | 111, 229 | ||
| 1 | 0.0 | Label 34 | T | -1 | 61, 109 | ||
| 1 | 0.0 | Label 24 | T | -1 | 291, 205 | ||
| 1 | 0.0 | Label 1 | T | -1 | 501, 205 | ||
| 1 | 0.0 | Label 8 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 9 | T | -1 | 301, 49 | ||
| 1 | 0.0 | Work 36 | I | -1 | 411, 229 | ||
| 1 | 0.0 | Label 19 | T | -1 | 771, 205 | ||
| 1 | 0.0 | Work 35 | I | -1 | 351, 229 | ||
| 1 | 0.0 | DEBTOR_MAST | DM_DEBTOR | I | -1 | 151, 109 | $SELECT S:DEBTOR;I\DM_DEBTOR $CALCULATE 'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP OF IT U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\PT_PALL,I\PALL_DESC,I\DEPOSIT_QTY,I\AVAIL_QTY,I\LAST_DEPOSIT_QTY,I\LAST_DEPOSIT_DATE,I\LAST_DEPOSIT_TIME,I\LAST_DEPOSIT_USER,I\LAST_DEPOSIT_IP,W\DEL 'M |
| 1 | 0.0 | Label 16 | T | -1 | 671, 25 | ||
| 1 | 0.0 | H | -1 | 1, 31 | |||
| 1 | 0.0 | Label 10 | T | -1 | 261, 109 | ||
| 1 | 0.0 | Label 17 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 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 'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP OF IT U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LINE,I\PT_PALL,I\PALL_DESC,I\DEPOSIT_QTY,I\AVAIL_QTY,I\ |
|
| 1 | 0.0 | Work 3 | I | -1 | 231, 229 | $CALCULATE 'MANDATORY M: I:I\DEPOSIT_QTY;=;0;NUM D:DEPOSIT QTY MUST BE GREATER THAN ZERO;ERRORM I:I\DEPOSIT_QTY;<;0;NUM DO(001) A:ABS;I\DEPOSIT_QTY;I\TEMP1 I:I\TEMP1;>;I\AVAIL_QTY;NUM D:THE NEGATIVE DEPOSIT QTY MUST BE LESS THAN THE AVAILABLE QTY;ERRORM DOEND(001) A:CONST;Y;W\DEL |
|
| 1 | 0.0 | Label 9 | T | -1 | 41, 181 | ||
| 1 | 0.0 | Label 14 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 15 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Work 41 | G | -1 | 1, 253 | ||
| 1 | 0.0 | Label 42 | T | -1 | 111, 205 | ||
| 1 | 0.0 | Label 44 | T | -1 | 501, 181 | ||
| 1 | 0.0 | Check 1 | K | -1 | 601, 493 | ||
| 1 | 0.0 | Label 2 | T | -1 | 621, 493 | ||
| 1 | 0.0 | Work 2 | I | 0 | 41, 61 | 'TO LOAD MARKET NAME $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET 'CHECK IF A CENTRALIZED PALLET POOL IS BEING USED 1=YES, BLANK OR 0 (ZERO) = NO F:CLIENT_MAST;;;I\CM_CENTR |
|
| 1 | 0.0 | Work 3 | I | 0 | 71, 61 | $DEFAULT A:ORGS;;I\ORGS 'CHECK IF AGENT HAS THEIR OWN POOL I:I\ORGS;<>; F:AGENT_MAST;;;I\AM_OWN_PALL_POOL=AM_OWN_PALL_POOL;AM_MARKET='$I\MARKET$' AND AM_CODE='$I\ORGS$' |
|
| 1 | 0.0 | Work 4 | I | 0 | 121, 61 | $DEFAULT A:USERIP;;I\IP |
|
| 1 | 0.0 | Work 5 | I | 0 | 151, 61 | $DEFAULT A:USERID;;I\USERID |
|
| 1 | 0.0 | Work 1 | I | 0 | 41, 157 | ||
| 1 | 0.0 | Work 1 | I | 0 | 71, 157 | ||
| 1 | 0.0 | Work 2 | I | 0 | 101, 157 | ||
| 1 | 0.0 | Work 1 | I | 0 | 231, 157 | ||
| 1 | 0.0 | Work 1 | I | 0 | 261, 157 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 31 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 31 | ''''$BEFORE WRITE $VALIDATE 'SAVES DATA TO TABLES U:BUYER_PALLET_DEPOSIT;BUYER_PALLET_DEPOSIT_SAVE_DATA 'IF TICK BOX IS CHECKED 1=CHECKED, 0=UNCHECKED PRINT BUYER DEPOSIT NOTE I:K\PRINT_BUYER_DEPOSIT;=;1 'PRINT BUYER DEPOSIT NOTE E:$GBLROOT$\LEGEND\PROJ_FMS\BIN\PRINTING.EXE /PRINT=PRINT_BUYER_PALLET_DEPO |