Program drill-down
COLD_STORAGE
COLD STORAGE. Type MAN, base table LOC_TRANS.
Field inventory
65
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 3 | G | -1 | 1, 241 | ||
| 1 | 0.0 | Label 12 | T | -1 | 561, 193 | ||
| 1 | 0.0 | Work 7 | I | -1 | 171, 217 | ||
| 1 | 0.0 | Label 8 | T | -1 | 461, 193 | ||
| 1 | 0.0 | Work 9 | I | -1 | 461, 217 | ||
| 1 | 0.0 | Label 10 | T | -1 | 511, 193 | ||
| 1 | 0.0 | Work 11 | I | -1 | 511, 217 | $CALCULATE M: 'MAKE SURE QTY IS NOT < 0 I:I\DEPQTY;<=;0;NUM D:QUANTITY MUST BE GREATER THAN ZERO;ERRORM;I\DEPQTY 'CHECK QTY IS NOT GREATER THAN QTY AVAIL I:I\DEPQTY;>;I\QTYAVAIL;NUM D:THIS IS GREATER THAN THE QUANTITY AVAILABLE;ERRORM;I\DEPQTY |
|
| 1 | 0.0 | Work 11 | I | -1 | 661, 217 | ||
| 1 | 0.0 | Label 2 | T | -1 | 631, 133 | ||
| 1 | 0.0 | Work 3 | I | -1 | 1, 217 | $SELECT S:G:G\GRID:R1,I\SEQ $SELECT6 S:G:G\GRID:F1,I\SEQ $CALCULATE I:I\SEQ;=; DO(001) O:SETFOCUS;C\CREATE O:DISABLEINPUT;I\CONSIGN,I\COMMOD,I\QTYAVAIL,I\SLDQTY,I\PRICE,I\VAT,I\VALUE,W\DEL DOEND(001) I:I\SEQ;<>; DO(002) I:I\SEQ;<>;+ DO(003) U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\SEQ |
|
| 1 | 0.0 | Work 1 | I | 0 | 181, 49 | $DEFAULT A:ORGS;;I\AGENT 'LOAD AGENT NAME F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME |
|
| 1 | 0.0 | Label 20 | T | -1 | 771, 193 | ||
| 1 | 0.0 | Work 2 | I | 0 | 161, 49 | $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 OF THE MARKET LABEL C:MCASE;;T\MARKET |
|
| 1 | 0.0 | Label 18 | T | -1 | 701, 193 | ||
| 1 | 0.0 | Work 19 | I | -1 | 701, 217 | ||
| 1 | 0.0 | Work 13 | I | -1 | 561, 217 | $CALCULATE U:AGENT_SALES;BUYER_AGENT_SURETY_LIMIT M: ' MAKE SURE AMOUNT IS NOT < 0 I:I\PRICE;<=;0 D:PRICE MUST BE GREATER THAN ZERO;ERRORM;I\PRICE ' CHECK THE PRICE VARAINCE F:CLIENT_MAST;;;I\TMP6=CM_PRICEVAR;CM_CODE='$I\MARKET$' F:CLIENT_MAST;;;I\TMP5=CM_PRVAR_OVR;CM_CODE='$I\MARKET$' $CALCULATE ' |
|
| 1 | 0.0 | Label 17 | T | -1 | 511, 169 | ||
| 1 | 0.0 | Work 4 | I | -1 | 341, 217 | ||
| 1 | 0.0 | Label 16 | T | -1 | 461, 169 | ||
| 1 | 0.0 | Label 6 | T | -1 | 171, 193 | ||
| 1 | 0.0 | Label 2 | T | -1 | 131, 169 | ||
| 1 | 0.0 | Label 3 | T | -1 | 131, 193 | ||
| 1 | 0.0 | Work 1 | I | 0 | 141, 49 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 'GETS WHICH SCREEN IS BEING DISPLAYED I.E. AGENTS DEPOSIT (AD) OR AGENT ISSUE (AI) A:PARM;1;I\SCREEN_TYPE 'CHANGES THE TITLE OF THE SCREEN IF AN ISSUE I:I\SCREEN_TYPE;=;AI DO(AI) A:CONST;COLD STORAGE AGENT ISSUE;T\SCREEN_TITLE |
|
| 1 | 0.0 | DELNO | T | -1 | 21, 97 | ||
| 1 | 0.0 | Work 4 | I | -1 | 31, 217 | $CALCULATE M: U:AGENT_SALES;CHK_DUPLICATION;G\GRID,I\SEQ,I\CONSIGN,I\TMP1 I:I\TMP1;<>;0;NUM D:THIS CONSIGNMENT HAS ALREADY BEEN CAPTURED IN ROW $I\TMP1$;ERRORM;I\CONSIGN 'MAKE SURE THE CONSIGNMENT IS A VALID CONSIGNMENT F:STK_DETS;Y;SD_CONSIGN;;;I\CONSIGN F:STK_DETS;Y;SD_CONSIGN;;SD_AGENT='$I\AGENT$';"THIS |
|
| 1 | 0.0 | STK_MAST | SM_AGENT | T | -1 | 21, 133 | |
| 1 | 0.0 | I | -1 | 141, 97 | $DEFAULT 'INITIALIZES THE GRID U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\CONSIGN,I\DEPNO,I\COMMOD,I\ROOM_NO,I\SECT,I\SHELF,I\QTYAVAIL,I\DEPQTY,I\PALLET,I\PERIOD_TYPE,I\TARIFF,I\REMARKS,W\DEL 'PUTS PIC ON THE UPDATE BUTTON 'O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE $SELECT 'DISPLAY A S |
||
| 1 | 0.0 | Label 1 | T | -1 | 1, 193 | ||
| 1 | 0.0 | Label 3 | T | -1 | 31, 193 | ||
| 1 | 0.0 | AGENT | I | -1 | 141, 133 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 231, 97 | $SELECT 'DISPLAY A SELECTION WINDOW S:DELIVERY_NO;I\DELNO |
|
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 653, 547 | $SELECT F:AGENT_MAST;;;I\TMP=AM_PIN_SALES;AM_CODE='$I\AGENT$' I:I\TMP;=;1 U:AGENT_SALES;BUYER_PIN_NO I:I\INVALID_BUYER_PIN;=;Y D:BUYER PIN NUMBER IS INVALID;ERRORM;I\SEQ F:AGENT_MAST;;;I\TMP=AM_RESCAN;AM_CODE='$I\AGENT$' I:I\TMP;=;1 U:AGENT_SALES;BUYER_RESCAN I:I\INVALID_BUYER_SCAN;=;Y D:BUYER CARD IS INVAL |
|
| 1 | 0.0 | Label 8 | T | -1 | 281, 49 | ||
| 1 | 0.0 | DEL DATE | T | -1 | 451, 97 | ||
| 1 | 0.0 | AGENT_NAME | T | -1 | 211, 133 | ||
| 1 | 0.0 | Work 21 | I | -1 | 771, 217 | $CALCULATE 'CONVERTS THE FIELD TO UPPER CASE C:UCASE 'ALLOW FOR PERIOD SELECTION IF SCREEN TYPE IS PROVISIONAL SALES (PS) I:I\SCREEN_TYPE;=;PS DO(PS) $SELECT 'DISPLAY PERIOD SELECTION WINDOW S:PERIOD_CODE;W\DEL F:PROV_PERIOD;Y;;;PP_CODE='$W\DEL$' DOEND(PS) I:I\SCREEN_TYPE;=;AS DO(AS) ' ON |
|
| 1 | 0.0 | DATE | I | -1 | 541, 97 | $AFTER_READ 'DEFAULT CURRENT DATE I:I\LT_DATE;=; A:DATE;DD MMM YYYY;I\LT_DATE $VALIDATE M: F:STK_MAST;;;I\TMP=SM_DDATE;SM_DELNO='$I\DELNO$'; I:I\LT_DATE;<;I\TMP;DAT D:DEPOSIT DATE CANNOT BE LESS THAN THE DELIVERY DATE;I\LT_DATE |
|
| 1 | 0.0 | Label 12 | T | -1 | 451, 133 | ||
| 1 | 0.0 | Work 13 | I | -1 | 541, 133 | ||
| 1 | 0.0 | Label 16 | T | -1 | 441, 493 | ||
| 1 | 0.0 | Work 19 | I | -1 | 501, 493 | ||
| 1 | 0.0 | Work 2 | I | -1 | 171, 517 | ||
| 1 | 0.0 | Label 5 | T | -1 | 341, 169 | ||
| 1 | 0.0 | Work 1 | I | -1 | 131, 217 | ||
| 1 | 0.0 | Work 1 | I | -1 | 621, 217 | ||
| 1 | 0.0 | H | -1 | 1, 55 | |||
| 1 | 0.0 | Label 6 | T | -1 | 341, 193 | ||
| 1 | 0.0 | Work 7 | I | -1 | 381, 217 | ||
| 1 | 0.0 | Label 8 | T | -1 | 381, 193 | ||
| 1 | 0.0 | Work 9 | I | -1 | 421, 217 | ||
| 1 | 0.0 | Label 10 | T | -1 | 421, 193 | ||
| 1 | 0.0 | Label 12 | T | -1 | 661, 193 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 193 | ||
| 1 | 0.0 | Label 1 | T | -1 | 621, 169 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 55 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 55 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 55 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 55 | '$BEFORE_WRITE 'U:AGENT_SALES;BUYER_PIN_NO |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 55 |