Program drill-down
CS_OTHER_DEP_DEL
COLD STORAGE OTHER DEPOSIT DELETIONS. Type DSP, base table LOC_TRANS.
Field inventory
69
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 | 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 '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 'STOP DELETION A:STOPDELETE;TRUE O:SETFOCUS;I\LT_DEPNO |
|
| 1 | 0.0 | LOC_TRANS | LT_DOCNO | T | -1 | 201, 145 | |
| 1 | 0.0 | T | -1 | 201, 109 | |||
| 1 | 0.0 | LOC_TRANS | LT_TYPE | T | -1 | 201, 169 | |
| 1 | 0.0 | LOC_TRANS | LT_DEBTOR | T | -1 | 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, 277 | ||
| 1 | 0.0 | QTY | T | -1 | 201, 301 | ||
| 1 | 0.0 | CONT_QTY | T | -1 | 201, 325 | ||
| 1 | 0.0 | LOC_TRANS | LT_TRTARIFF | T | -1 | 201, 361 | |
| 1 | 0.0 | LOC_TRANS | LT_TRVALUE | T | -1 | 201, 397 | |
| 1 | 0.0 | LOC_TRANS | LT_DOCNO | I | -1 | 371, 145 | |
| 1 | 0.0 | LOC_TRANS | LT_DEPNO | I | -1 | 371, 109 | $SELECT S:OTHER_DEPOSITS;I\LT_DEPNO A:CONST;;I\LT_DOCNO A:CONST;;I\LT_TYPE O:SETFOCUS;I\LT_DEPNO $VALIDATE C:UCASE A:CONST;0;I\ERRCONT F:LOC_TRANS;Y;;W\LT_CHK=LT_PRQTY_AVAIL;LT_DEPNO='$I\LT_DEPNO$' AND LT_TYPE='DP';I\LT_DEPNO I:W\LT_CHK;<;1 D:DEPOSIT COMPLETE, CAN NOT DELETE;ERRORM;I\LT_DEPNO F:LO |
| 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 | |
| 1 | 0.0 | LOC_TRANS | LT_DEBTOR | I | 0 | 551, 241 | |
| 1 | 0.0 | LOC_TRANS | LT_ITEM | I | -1 | 371, 193 | |
| 1 | 0.0 | LOC_TRANS | LT_prCONT | I | -1 | 371, 217 | |
| 1 | 0.0 | IROOM | I | -1 | 371, 277 | ||
| 1 | 0.0 | LOC_TRANS | LT_PRQTY | I | -1 | 371, 301 | |
| 1 | 0.0 | LOC_TRANS | LT_CONT_CHG_QTY | I | -1 | 371, 325 | |
| 1 | 0.0 | LOC_TRANS | LT_TRTARIFF | I | -1 | 371, 361 | |
| 1 | 0.0 | LOC_TRANS | LT_TRVALUE | I | -1 | 371, 397 | |
| 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 | 61, 265 | |
| 1 | 0.0 | SUPPLIER | T | 0 | 21, 337 | ||
| 1 | 0.0 | COMMODITY | T | 0 | 61, 289 | ||
| 1 | 0.0 | LOC_TRANS | LT_DEBTOR | I | -1 | 371, 253 | |
| 1 | 0.0 | SUPP | I | 0 | 31, 361 | ||
| 1 | 0.0 | COMMODITY | I | 0 | 21, 313 | ||
| 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 | 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) I:K\1;=;1 DO(ALL) 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_P |
|
| 1 | 0.0 | Work 1 | I | 0 | 1, 505 | ||
| 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 |