Program drill-down
CON_SLS_TRAN_MAN
CONSIGNMENT SALES TRANSFER MAINTENANCE. Type MAN, base table STK_TRANS.
Field inventory
74
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | STK_TRANS | ST_AGENT | I | -1 | 221, 133 | $SELECT S:AGENT_CODE;I\ST_AGENT $VALIDATE M: 'LOOK UP THA CODE ENTERED AND IF IT EXISTS, DISPLAY THE NAME. IF NOT, DISPLAY AN ERROR F:AGENT_MAST;Y;;T\AGENT=AM_NAME;AM_CODE='$I\ST_AGENT$';I\ST_AGENT 'CHECK IF AGENT IS BLOCKED, IF YES, DISALLOW CONTINUE F:AGENT_MAST;;;I\TMPA1=AM_BLOCK;AM_CODE='$I\ST_AGENT$' I |
| 1 | 0.0 | STK_TRANS | ST_AGENT | T | -1 | 31, 133 | |
| 1 | 0.0 | H | -1 | 1, 1 | |||
| 1 | 0.0 | STK_DETS | SD_CONSIGN | I | -1 | 221, 169 | $SELECT 'S:CONSIGNMENT;I\SD_CONSIGN;I\ST_AGENT CHANGED BY LAZOLA 05 MAY 2008 S:CONSIGNMENT22;I\SD_CONSIGN;I\ST_AGENT $VALIDATE M: 'ZEROFILL A:ZEROFILL;I\SD_CONSIGN,W\ZEROFILL;I\SD_CONSIGN 'CHECK IF THIS CONSIGNMENT NUMBER EXISTS F:STK_DETS;Y;SD_CONSIGN;I\DATE=SD_DATE;SD_AGENT='$I\ST_AGENT$' AND ISNULL |
| 1 | 0.0 | STK_DETS | SD_CONSIGN | T | -1 | 31, 169 | |
| 1 | 0.0 | STK_DETS | SD_TOTSLS | I | -1 | 261, 457 | |
| 1 | 0.0 | STK_DETS | SD_TOTSLS | T | -1 | 211, 457 | |
| 1 | 0.0 | STK_DETS | SD_TOTVAT | I | -1 | 491, 457 | |
| 1 | 0.0 | STK_DETS | SD_TOTVAT | T | -1 | 451, 457 | |
| 1 | 0.0 | Label 11 | T | -1 | 311, 133 | ||
| 1 | 0.0 | Work 12 | I | -1 | 221, 217 | ||
| 1 | 0.0 | Work 13 | I | -1 | 221, 241 | ||
| 1 | 0.0 | Work 14 | I | -1 | 221, 265 | ||
| 1 | 0.0 | Label 15 | T | -1 | 111, 217 | ||
| 1 | 0.0 | Label 16 | T | -1 | 111, 241 | ||
| 1 | 0.0 | Label 17 | T | -1 | 111, 265 | ||
| 1 | 0.0 | CMD 18 | C | -1 | 261, 133 | $SELECT S:AGENT_CODE;I\ST_AGENT |
|
| 1 | 0.0 | CMD 19 | C | -1 | 371, 169 | $SELECT 'S:CONSIGNMENT;I\SD_CONSIGN;I\ST_AGENT CHANGED BY LAZOLA 05 MAY 2008 S:CONSIGNMENT22;I\SD_CONSIGN;I\ST_AGENT |
|
| 1 | 0.0 | Label 20 | T | -1 | 31, 313 | ||
| 1 | 0.0 | Work 21 | I | -1 | 221, 313 | $SELECT 'S:CONSIGNMENT;I\SD_CONSIGN;I\ST_AGENT CHANGED BY LAZOLA 05 MAY 2008 S:CONSIGNMENT22;I\NEW_CONS;I\ST_AGENT $VALIDATE M: 'ZEROFILL A:ZEROFILL;I\NEW_CONS,W\ZEROFILL;I\NEW_CONS I:I\NEW_CONS;=;I\SD_CONSIGN D:CANNOT TRANSFER TO THE SAME CONSIGNMENT;ERRORM;I\NEW_CONS 'CHECK IF THIS CONSIGNMENT IS N |
|
| 1 | 0.0 | CMD 22 | C | -1 | 361, 313 | $SELECT 'S:CONSIGNMENT;I\SD_CONSIGN;I\ST_AGENT CHANGED BY LAZOLA 05 MAY 2008 S:CONSIGNMENT22;I\NEW_CONS;I\ST_AGENT |
|
| 1 | 0.0 | Label 23 | T | -1 | 111, 361 | ||
| 1 | 0.0 | Label 24 | T | -1 | 111, 385 | ||
| 1 | 0.0 | Label 25 | T | -1 | 111, 409 | ||
| 1 | 0.0 | Work 26 | I | -1 | 221, 361 | ||
| 1 | 0.0 | Work 27 | I | -1 | 221, 385 | ||
| 1 | 0.0 | Work 28 | I | -1 | 221, 409 | ||
| 1 | 0.0 | Label 29 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 30 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 31 | T | -1 | 271, 49 | ||
| 1 | 0.0 | Label 32 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 33 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 34 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 35 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Work 36 | I | 0 | 51, 61 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,W\ZEROFILL=CM_DEL_LEN A:ADD;"2";W\ZEROFILL;W\ZEROFILL 'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE C:MCASE;;T\MARKET 'O:SETFOCUS;I\SD_CONSIGN |
|
| 1 | 0.0 | Work 37 | 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 A:USERID;;I\USER A:USERIP;;I\IP A:ORGS;;I\ORGS I:I\ORGS;=; DO(LLO) O:ENABLEINPUT;I\ST_AGENT O:ENABLEINPUT;C\AGENT ''O:SETFOCUS;I\ST_AGENT '''''F:AGENT_MAST;Y; |
|
| 1 | 0.0 | Label 38 | T | -1 | 31, 457 | ||
| 1 | 0.0 | Work 39 | I | -1 | 71, 457 | $VALIDATE I:I\QTY;>;I\QTY_ANS D:QUANTITY ENTERED IS MORE THAN QUANTITY AVAILABLE;ERRORM;I\QTY A:ADD;I\SD_TOTSLS,I\SD_TOTVAT;I\TMPADD A:MULT;I\QTY;I\VAL;I\TMPADD |
|
| 1 | 0.0 | Label 40 | T | -1 | 621, 457 | ||
| 1 | 0.0 | Work 41 | I | -1 | 681, 457 | ||
| 1 | 0.0 | Label 1 | T | -1 | 31, 505 | ||
| 1 | 0.0 | Work 2 | I | -1 | 151, 505 | $SELECT S:REASON;I\REASON $VALIDATE M: F:REASON_MAST;Y;;T\REAS_DESC=RSN_DESC;RSN_REASON='$I\REASON$';I\REASON |
|
| 1 | 0.0 | CMD 3 | C | -1 | 191, 505 | $SELECT S:REASON;I\REASON |
|
| 1 | 0.0 | Label 4 | T | -1 | 241, 505 | ||
| 1 | 0.0 | Work 5 | I | 0 | 431, 133 | ||
| 1 | 0.0 | Work 6 | I | 0 | 471, 133 | ||
| 1 | 0.0 | Work 7 | I | 0 | 21, 97 | ||
| 1 | 0.0 | Work 14 | I | 0 | 411, 169 | ||
| 1 | 0.0 | Work 8 | I | 0 | 351, 241 | ||
| 1 | 0.0 | Work 9 | I | 0 | 391, 241 | ||
| 1 | 0.0 | Work 10 | I | 0 | 21, 553 | ||
| 1 | 0.0 | Work 11 | I | 0 | 51, 553 | ||
| 1 | 0.0 | Work 12 | I | 0 | 81, 553 | ||
| 1 | 0.0 | Work 13 | I | 0 | 111, 553 | ||
| 1 | 0.0 | Work 16 | I | 0 | 141, 553 | ||
| 1 | 0.0 | Work 17 | I | 0 | 171, 553 | ||
| 1 | 0.0 | Work 18 | I | 0 | 201, 553 | ||
| 1 | 0.0 | Work 19 | I | 0 | 381, 505 | ||
| 1 | 0.0 | Work 21 | I | 0 | 411, 313 | ||
| 1 | 0.0 | Work 22 | I | 0 | 341, 373 | ||
| 1 | 0.0 | Work 23 | I | 0 | 381, 373 | ||
| 1 | 0.0 | Work 2 | I | 0 | 351, 553 | ||
| 1 | 0.0 | Work 1 | I | 0 | 381, 553 | ||
| 1 | 0.0 | Work 2 | I | 0 | 231, 553 | ||
| 1 | 0.0 | DATE | I | 0 | 461, 169 | ||
| 1 | 0.0 | DATE2 | I | 0 | 461, 313 | ||
| 1 | 0.0 | Work 5 | I | 0 | 601, 457 | ||
| 1 | 0.0 | Work 1 | I | 0 | 671, 385 | ||
| 1 | 0.0 | Work 1 | I | 0 | 431, 553 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 1 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 1 |