Program drill-down
CONS_DEL
CONSIGN DELETION. Type DSP, base table DEBT_ADDR.
Field inventory
53
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 1 | I | 0 | 131, 469 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | CMD 1 | C | -1 | 351, 457 | $SELECT A:VAR;I\DELDATE;I\DELDATE;;YYYY/MM/DD U:CONSIGN_DELETION;CHECK_SALES I:I\TMP1;=;N DO(DSS) D:CANNOT DELETE CONSIGNMENT, SALES HAVE TAKEN PLACE;ERRORM;I\CONSIGN A:CONST;;I\TMP1 DOEND(DSS) 'MAKE SURE NO CS MOVMENT IS PRESENT U:CONSIGN_DELETION;CHECK_CS I:I\TMP1;=;N DO(GBG) D:COLD STORAGE MOVEMEN |
|
| 1 | 0.0 | Label 1 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 291, 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 | Label 8 | T | -1 | 201, 169 | ||
| 1 | 0.0 | Label 9 | T | -1 | 201, 229 | ||
| 1 | 0.0 | Label 10 | T | -1 | 201, 265 | ||
| 1 | 0.0 | Label 11 | T | -1 | 201, 301 | ||
| 1 | 0.0 | Label 12 | T | -1 | 201, 337 | ||
| 1 | 0.0 | Label 13 | T | -1 | 201, 373 | ||
| 1 | 0.0 | Label 14 | T | -1 | 201, 409 | ||
| 1 | 0.0 | Work 15 | I | -1 | 381, 169 | $SELECT I:I\ORGS;=; S:CONSDEL;I\CONSIGN I:I\ORGS;<>; S:CONSDEL1;I\CONSIGN;I\ORGS $CALCULATE 'ADDED BY LAZ BECAUSE IF I FIRST ENTERED THE CONSIGNMENT THAT SALES HAVE TAKEN PLACE ON IT,IT DOES'NT CLEAR THIS TEMP FIELD WHEN I TRY TO ENTER THE ONE WITH NO SALES HAVE TAKEN PLACE A:CONST;;I\TMP1 M: 'ZEROFILL F: |
|
| 1 | 0.0 | Work 16 | I | -1 | 381, 229 | ||
| 1 | 0.0 | Work 17 | I | -1 | 381, 265 | ||
| 1 | 0.0 | Work 18 | I | -1 | 381, 301 | ||
| 1 | 0.0 | Work 19 | I | -1 | 381, 337 | ||
| 1 | 0.0 | Work 20 | I | -1 | 381, 373 | ||
| 1 | 0.0 | Work 21 | I | -1 | 381, 409 | $SELECT S:REASON2;I\REASON $VALIDATE A:CONST;;T\REAS_DESC M: C:UCASE F:REASON_MAST;Y;;T\REAS_DESC=RSN_DESC;RSN_REASON='$I\REASON$' AND RSN_TYPE ='DE' AND RSN_BLOCKED <> 'Y';I\REASON O:BACKCOLOR;C\DEL;YELLOW O:SETFOCUS;C\DEL |
|
| 1 | 0.0 | CMD 22 | C | -1 | 481, 169 | $SELECT I:I\ORGS;=; S:CONSDEL;I\CONSIGN I:I\ORGS;<>; S:CONSDEL1;I\CONSIGN;I\ORGS |
|
| 1 | 0.0 | CMD 23 | C | -1 | 481, 409 | $SELECT S:REASON2;I\REASON |
|
| 1 | 0.0 | Work 24 | I | 0 | 1, 61 | $DEFAULT A:DATE;DD MMM YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 O:CAPTION_UPD;PROCESS |
|
| 1 | 0.0 | Work 25 | I | 0 | 21, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\PROHIBIT_SALES=CM_PROHIBIT_SALES,T\MARKET=CM_NAME I:I\PROHIBIT_SALES;=;Y DO(LAM) O:DISABLEINPUT;I\CONSIGN D:SALES ARE PROHIBITED, TRANSACTION CANNOT BE DONE;ERRORM;I\CONSIGN DOEND(LAM) 'CHANGING TEXT CASE FOR THE |
|
| 1 | 0.0 | Work 26 | I | 0 | 41, 61 | $DEFAULT A:ORGS;;I\ORGS |
|
| 1 | 0.0 | Work 27 | I | 0 | 61, 61 | $DEFAULT A:USERIP;;I\IP |
|
| 1 | 0.0 | Work 28 | I | 0 | 81, 61 | $DEFAULT A:USERID;;I\USERID |
|
| 1 | 0.0 | Work 30 | I | 0 | 701, 529 | $BEFORE_WRITE A:VAR;I\DELDATE;I\DELDATE;;YYYY/MM/DD U:CONSIGN_DELETION;CHECK_SALES I:I\TMP1;=;N DO(DSS) D:CANNOT DELETE CONSIGNMENT, SALES HAVE TAKEN PLACE;ERRORM;I\CONSIGN A:CONST;;I\TMP1 DOEND(DSS) 'MAKE SURE NO CS MOVMENT IS PRESENT U:CONSIGN_DELETION;CHECK_CS I:I\TMP1;=;N DO(GBG) D:COLD STORAGE M |
|
| 1 | 0.0 | Label 32 | T | -1 | 531, 229 | ||
| 1 | 0.0 | Label 31 | T | -1 | 531, 409 | ||
| 1 | 0.0 | Work 36 | I | 0 | 11, 541 | ||
| 1 | 0.0 | Work 35 | I | 0 | 31, 541 | ||
| 1 | 0.0 | Work 34 | I | 0 | 51, 541 | ||
| 1 | 0.0 | Work 38 | I | 0 | 71, 541 | ||
| 1 | 0.0 | Work 37 | I | 0 | 91, 541 | ||
| 1 | 0.0 | STK_DETS | SD_MARKET | I | 0 | 171, 61 | |
| 1 | 0.0 | Label 39 | T | -1 | 531, 265 | ||
| 1 | 0.0 | Work 40 | I | 0 | 541, 169 | ||
| 1 | 0.0 | Work 5 | I | 0 | 691, 109 | ||
| 1 | 0.0 | Work 3 | I | 0 | 591, 193 | ||
| 1 | 0.0 | Work 2 | I | 0 | 591, 121 | ||
| 1 | 0.0 | Work 1 | I | 0 | 591, 157 | ||
| 1 | 0.0 | Work 4 | I | 0 | 591, 85 | ||
| 1 | 0.0 | RR | I | 0 | 641, 157 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | $UPDATE 'LOOK UP DETAILS FOR THIS CONSIGNMENT============================================================================================================================================================================================= I:I\ORGS;=; F:STK_DETS;Y;;I\AGENT=SD_AGENT,I\DISC=SD_DISQTY,I\RR=SD_RRQTY,I\CS=S |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |