Program drill-down
CS_DEP_DELETIONS
COLD STORAGE DEPOSIT DELETIONS. Type DSP, base table LOC_TRANS.
Field inventory
76
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | H | -1 | 1, 61 | |||
| 1 | 0.0 | Work 2 | I | 0 | 271, 541 | ||
| 1 | 0.0 | Work 1 | I | 0 | 31, 325 | ||
| 1 | 0.0 | Work 2 | I | 0 | 31, 301 | ||
| 1 | 0.0 | Work 1 | I | 0 | 31, 277 | ||
| 1 | 0.0 | Work 1 | I | 0 | 61, 145 | ||
| 1 | 0.0 | LT_CONSIGNO | I | 0 | 581, 157 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 281, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 241, 49 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 7 | T | -1 | 671, 49 | ||
| 1 | 0.0 | IP | I | 0 | 81, 61 | $DEFAULT A:USERIP;;I\IP |
|
| 1 | 0.0 | ORGS | I | 0 | 61, 61 | ||
| 1 | 0.0 | MARKET | I | 0 | 41, 61 | 'TO LOAD MARKET NAME $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET A:ORGS;;I\ORGS '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 |
|
| 1 | 0.0 | DEFAULT | 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 U:MENU_GROUP;LOOKUP 'STOP DELETION A:STOPDELETE;TRUE O:SETFOCUS;I\LT_DEPNO |
|
| 1 | 0.0 | LOC_TRANS | LT_DOCNO | T | -1 | 201, 145 | |
| 1 | 0.0 | LOC_TRANS | LT_DEPNO | T | -1 | 201, 109 | |
| 1 | 0.0 | LOC_TRANS | LT_TYPE | T | -1 | 201, 169 | |
| 1 | 0.0 | LOC_TRANS | LT_DEBTOR | T | 0 | 201, 253 | |
| 1 | 0.0 | LOC_TRANS | LT_ITEM | T | -1 | 201, 193 | |
| 1 | 0.0 | LOC_TRANS | LT_CONT_TYPE | T | -1 | 201, 217 | |
| 1 | 0.0 | ROOM | T | -1 | 201, 325 | ||
| 1 | 0.0 | QTY | T | -1 | 201, 349 | ||
| 1 | 0.0 | CONT_QTY | T | -1 | 201, 373 | ||
| 1 | 0.0 | LOC_TRANS | LT_TRTARIFF | T | -1 | 201, 397 | |
| 1 | 0.0 | LOC_TRANS | LT_TRVALUE | T | -1 | 201, 421 | |
| 1 | 0.0 | LOC_TRANS | LT_DOCNO | I | -1 | 371, 145 | |
| 1 | 0.0 | LOC_TRANS | LT_DEPNO | I | -1 | 371, 109 | $SELECT 'IF AN AGENT IS LOGGED IN I:I\ORGS;<>; DO(121) S:LOCATION_MAST_AGN_DP;I\LT_DEPNO;I\ORGS A:SELPARM;2;I\DELDATE DOEND(121) I:I\ORGS;=; DO(723) S:LOCATION_TRANS_DP;I\LT_DEPNO A:SELPARM;3;I\DELDATE A:CONST;;W\LT_CONFIRMED DOEND(723) A:CONST;;I\LT_DOCNO A:CONST;;I\LT_TYPE O:SETFOCUS; |
| 1 | 0.0 | Check 1 | K | -1 | 621, 517 | $CALCULATE O:ENABLEINPUT;C\UPD O:SETFOCUS;C\UPD O:BACKCOLOR;C\UPD;YELLOW |
|
| 1 | 0.0 | LOC_TRANS | LT_TYPE | I | -1 | 371, 169 | $DEFAULT A:CONST;DP;I\LT_TYPE $AFTER_READ A:CONST;DP;I\LT_TYPE |
| 1 | 0.0 | LOC_TRANS | LT_DEBTOR | I | 0 | 531, 241 | |
| 1 | 0.0 | LOC_TRANS | LT_ITEM | I | -1 | 371, 193 | |
| 1 | 0.0 | LOC_TRANS | LT_CONT_TYPE | I | -1 | 371, 217 | |
| 1 | 0.0 | IROOM | I | -1 | 371, 325 | ||
| 1 | 0.0 | LOC_TRANS | LT_PRQTY | I | -1 | 371, 349 | |
| 1 | 0.0 | LOC_TRANS | LT_CONT_CHG_QTY | I | -1 | 371, 373 | |
| 1 | 0.0 | LOC_TRANS | LT_TRTARIFF | I | -1 | 371, 397 | |
| 1 | 0.0 | LOC_TRANS | LT_TRVALUE | I | -1 | 371, 421 | |
| 1 | 0.0 | TYPE_DESC | T | 0 | 531, 205 | ||
| 1 | 0.0 | ITEM_DESC | T | 0 | 531, 277 | ||
| 1 | 0.0 | CONT_DESC | T | 0 | 531, 301 | ||
| 1 | 0.0 | ROOM_DESC | T | 0 | 531, 325 | ||
| 1 | 0.0 | CMD 44 | C | -1 | 471, 109 | $SELECT S:DEPOSIT_NO2;I\LT_DEPNO;I\MARKET |
|
| 1 | 0.0 | USERID | I | 0 | 101, 61 | $DEFAULT A:USERID;;I\USERID |
|
| 1 | 0.0 | Work 54 | I | 0 | 491, 157 | ||
| 1 | 0.0 | I | 0 | 421, 541 | |||
| 1 | 0.0 | LOC_TRANS | LT_AGENT | T | 0 | 201, 253 | |
| 1 | 0.0 | SUPPLIER | T | -1 | 201, 277 | ||
| 1 | 0.0 | COMMODITY | T | -1 | 201, 301 | ||
| 1 | 0.0 | LOC_TRANS | LT_AGENT | I | -1 | 371, 253 | |
| 1 | 0.0 | SUPP | I | -1 | 371, 277 | ||
| 1 | 0.0 | COMMODITY | I | 0 | 371, 301 | ||
| 1 | 0.0 | Work 66 | I | 0 | 541, 157 | ||
| 1 | 0.0 | TRNCOUNT | I | 0 | 381, 541 | ||
| 1 | 0.0 | ADJUSTMENTS | I | 0 | 381, 577 | ||
| 1 | 0.0 | Work 64 | I | 0 | 421, 169 | ||
| 1 | 0.0 | Work 15 | I | 0 | 511, 109 | ||
| 1 | 0.0 | Work 19 | I | 0 | 531, 109 | ||
| 1 | 0.0 | Work 1 | I | 0 | 441, 541 | ||
| 1 | 0.0 | Work 1 | I | 0 | 561, 109 | ||
| 1 | 0.0 | CDATE | I | 0 | 561, 133 | ||
| 1 | 0.0 | Work 1 | I | 0 | 61, 109 | ||
| 1 | 0.0 | Label 2 | T | -1 | 641, 517 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 651, 541 | $SELECT O:DISABLEINPUT;C\UPD I:K\1;<>;1 DO(ALA) O:SETFOCUS;K\1 D:PLEASE CONFIRM THIS DELETION IS CORRECT BY TICKING THE BOX;ERRORM;K\1 DOEND(ALA) '===== SIYA 20120921 AGENT CAN NOT DELETE CS_DEP BELONGING TO OTHER AGENTS ======= I:I\ORGS;<>; F:LOC_TRANS;Y;;I\DELDATE=LT_DELDATE,I\LT_CONT_TYPE=LT_CONT_TY |
|
| 1 | 0.0 | Work 2 | I | 0 | 31, 349 | ||
| 1 | 0.0 | Work 3 | I | 0 | 11, 193 | ||
| 1 | 0.0 | Work 1 | I | 0 | 31, 373 | ||
| 1 | 0.0 | Work 1 | I | 0 | 41, 193 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 61 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 61 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 61 | $AFT_MSG_DELETE A:CONST;0;I\ERRCONT F:LOC_TRANS;Y;;I\LT_CONT_TYPE=LT_CONT_TYPE,I\LT_ITEM=LT_ITEM,I\LT_DOCNO=LT_DOCNO,I\LT_AGENT=LT_AGENT,I\LT_PRQTY=LT_PRQTY,I\LT_CONT_CHG_QTY=LT_CONT_CHG_QTY,I\LT_TRTARIFF=LT_TRTARIFF,I\LT_TRVALUE=LT_TRVALUE,I\DELIND=LT_DELIND,I\CONS=LT_CONSIGNO,I\DEBTOR=LT_DEBTOR,I\TYPE=LT_TYPE |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 61 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 61 |