Program drill-down
AGENT_DEP_MAN
AGENT COLD STORAGE DEPOSIT. Type MAN, base table LOC_TRANS.
Field inventory
64
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 1 | I | 0 | 401, 565 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 201, 289 | $SELECT S:LOCATION_CS_CODES;I\ROOM_NO |
|
| 1 | 0.0 | CMD 4 | C | -1 | 431, 289 | $SELECT 'DISPLAY A SELECTION WINDOW S:ROOM_SECTION;I\SECT;I\ROOM_NO |
|
| 1 | 0.0 | Label 8 | T | -1 | 21, 361 | ||
| 1 | 0.0 | Label 12 | T | -1 | 21, 433 | ||
| 1 | 0.0 | Work 9 | I | -1 | 141, 361 | $CALCULATE M: 'CHECK QTY IS NOT GREATER THAN QTY AVAIL I:I\QTYDEP;>;I\QTYAVAIL;NUM D:THIS IS GREATER THAN THE QUANTITY AVAILABLE;ERRORM;I\QTYDEP |
|
| 1 | 0.0 | Label 10 | T | -1 | 21, 253 | ||
| 1 | 0.0 | Work 11 | I | -1 | 141, 253 | ||
| 1 | 0.0 | Work 11 | I | -1 | 141, 397 | $CALCULATE 'MANDATORY M: 'GET MIN & MAX COLD STORAGE CHARGES F:CLIENT_MAST;Y;;I\TMP4=CM_CS_MIN_CHARGE,I\TMP5=CM_CS_MAX_CHARGE;CM_CODE='$I\MARKET$' 'CHECK IF ENTERED TARIFF IS GREATER THAN/LESS THAN MAX/MIN CHARGES A:MULT;I\QTYDEP;I\TMP;I\TARIFF 'I:I\TMP;<;I\TMP4;NUM ' D:TARIFF IS LESS THAN MINIMUM TARI |
|
| 1 | 0.0 | Label 2 | T | -1 | 231, 181 | ||
| 1 | 0.0 | Label 2 | T | -1 | 21, 469 | ||
| 1 | 0.0 | Work 3 | I | -1 | 141, 469 | $CALCULATE C:UCASE |
|
| 1 | 0.0 | Work 2 | I | 0 | 161, 73 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN,D\CM_CSTARIFF=CM_CSTARIFF;; 'F:CLIENT_MAST;;CM_CODE;I\TMP=SD_RECQTY,I\TMP2=SD_SLDQTY;; 'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL C:MCASE;;T\MARKET ' SET LENGTH OF CONSIGN |
|
| 1 | 0.0 | Work 13 | I | -1 | 141, 433 | $SELECT6 U:CS_AGENT_DEP_MAN;PALLET_CS_ENTRY |
|
| 1 | 0.0 | Work 4 | I | -1 | 141, 289 | $SELECT S:LOCATION_CS_CODES;I\ROOM_NO $ESC O:SETFOCUS;I\CONSIGN $CALCULATE M: C:UCASE 'MAKE SURE THE ROOM IS VALID F:ROOM_DET;Y;RD_ROOM;;;I\ROOM_NO 'GET CHARGE TYPE OF THE ROOM AND THE ROOM TYPE F:LOCATION_MAST;;LM_CODE;I\TMP4=LM_TYPE,I\TMP5=LM_CHG_TYPE;; 'IF ROOM DOESN'T HAVE A CHARGE TYPE, G |
|
| 1 | 0.0 | Label 2 | T | -1 | 441, 109 | ||
| 1 | 0.0 | Work 1 | I | 0 | 141, 73 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 |
|
| 1 | 0.0 | DELNO | T | -1 | 21, 109 | ||
| 1 | 0.0 | Drop 1 | D | -1 | 371, 325 | $DEFAULT 'ADDS THE SPECIFIED ITEMS TO THE COMBOBOX B:ADDITEM;D\CM_CSTARIFF;M - MONTHLY,W - WEEKLY,D - DAILY,H - HOURLY $VALIDATE 'CONVERT TO UPPERCASE C:UCASE 'CHECKS THAT ONLY THE ADDED ITEMS ARE ENTERED I:D\CM_CSTARIFF;=;M - MONTHLY DO(M) 'TAKE THE LEFT MOST CHARACTER A:LEFT;D\CM_CSTARIFF,1;D\ |
|
| 1 | 0.0 | STK_MAST | SM_AGENT | T | -1 | 21, 145 | |
| 1 | 0.0 | LOC_TRANS | LT_CONSIGNO | I | -1 | 141, 109 | $SELECT 'DISPLAY A SELECTION WINDOW S:CONS_QTY;I\CONSIGN $CALCULATE M: 'ZEROFILL F:CLIENT_MAST;;;I\DEL_LEN=CM_DEL_LEN;CM_CODE='$I\MARKET$' A:ADD;"2";I\DEL_LEN;I\DEL_LEN A:ZEROFILL;I\CONSIGN,I\DEL_LEN;I\CONSIGN 'MAKE SURE THE CONSIGNMENT IS A VALID CONSIGNMENT F:STK_DETS;Y;SD_CONSIGN;;;I\CONSIGN F:ST |
| 1 | 0.0 | Work 1 | I | -1 | 141, 145 | ||
| 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, 109 | $SELECT 'DISPLAY A SELECTION WINDOW S:CONS_QTY;I\CONSIGN |
|
| 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 | Label 8 | T | -1 | 271, 49 | ||
| 1 | 0.0 | DEL DATE | T | -1 | 21, 217 | ||
| 1 | 0.0 | AGENT_NAME | T | -1 | 211, 145 | ||
| 1 | 0.0 | Label 12 | T | -1 | 21, 181 | ||
| 1 | 0.0 | Work 13 | I | -1 | 141, 181 | ||
| 1 | 0.0 | Label 5 | T | -1 | 21, 289 | ||
| 1 | 0.0 | Work 1 | I | -1 | 581, 109 | ||
| 1 | 0.0 | H | -1 | 1, 115 | |||
| 1 | 0.0 | Work 7 | I | -1 | 371, 289 | $SELECT 'DISPLAY A SELECTION WINDOW S:ROOM_SECTION;I\SECT;I\ROOM_NO $CALCULATE 'MANDATORY M: 'CONVERT TO UPPERCASE C:UCASE 'CHECK IF A VALID SECTION IS ENTERED F:ROOM_DET;Y;;;RD_ROOM='$I\ROOM_NO$' AND RD_SECTION = '$I\SECT$' F:ROOM_DET;;;I\TMP=RD_SHELVES;RD_ROOM='$I\ROOM_NO$' |
|
| 1 | 0.0 | Label 8 | T | -1 | 271, 289 | ||
| 1 | 0.0 | Work 9 | I | -1 | 571, 289 | $SELECT 'DISPLAY A SELECTION WINDOW 'S:ROOM_SHELVES;I\SHELF;I\ROOM_NO;I\SECT $CALCULATE 'MANDATORY M: 'CHECK IF A VALID SHELF IS ENTERED 'F:ROOM_DET;;;I\TMP=RD_SHELVES;RD_ROOM='$I\ROOM_NO$' I:I\SHELF;>;I\TMP D:THIS IS GREATER THAN THE NUMBER OF SHELVES AVAILABLE;ERRORM |
|
| 1 | 0.0 | Label 10 | T | -1 | 501, 289 | ||
| 1 | 0.0 | Label 12 | T | -1 | 21, 397 | ||
| 1 | 0.0 | Label 3 | T | -1 | 271, 325 | ||
| 1 | 0.0 | Work 1 | I | -1 | 141, 325 | $CALCULATE 'DEFAULT DATE TO CURRENT I:I\DEP_DATE;=;"" A:DATE;DD MMM YYYY;I\DEP_DATE A:DATE;DD MMM YYYY;I\TMP I:I\TMP;<;I\DEP_DATE;DAT D:DEPOSIT DATE CANNOT BE GREATER THAN TODAY;ERRORM;I\DEP_DATE 'DIFF BETWEEN CURRENT DATE AND DEPOSIT DATE A:DATEDIFF;I\DEP_DATE;I\TMP1;I\TMP;;D 'GETS ABSOLUTE VALUE OF T |
|
| 1 | 0.0 | Label 2 | T | -1 | 21, 325 | ||
| 1 | 0.0 | Work 1 | I | 0 | 351, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 311, 529 | ||
| 1 | 0.0 | Work 3 | I | 0 | 271, 529 | ||
| 1 | 0.0 | Work 4 | I | 0 | 231, 529 | ||
| 1 | 0.0 | Work 5 | I | 0 | 191, 529 | ||
| 1 | 0.0 | Work 6 | I | 0 | 151, 529 | ||
| 1 | 0.0 | Work 8 | I | 0 | 391, 529 | ||
| 1 | 0.0 | Work 9 | I | 0 | 111, 529 | ||
| 1 | 0.0 | Work 1 | I | 0 | 471, 529 | ||
| 1 | 0.0 | Work 10 | I | -1 | 141, 217 | ||
| 1 | 0.0 | Work 1 | I | 0 | 401, 217 | ||
| 1 | 0.0 | Label 1 | T | -1 | 511, 325 | ||
| 1 | 0.0 | Work 2 | I | 0 | 301, 217 | ||
| 1 | 0.0 | Work 1 | I | 0 | 400, 499 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 115 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 115 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 115 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 115 | $AFTER_WRITE U:CS_AGENT_DEP_MAN;UPDATE_CS_DATA |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 115 |