Program drill-down
UPDATE_CONSIGN
WHOLESALE CONSIGNMENT UPDATE. Type MAN, base table STK_DETS.
Field inventory
105
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Work 7 | I | 0 | 561, 421 | ||
| 1 | 0.0 | Work 8 | I | 0 | 11, 241 | ||
| 1 | 0.0 | Work 8 | I | 0 | 321, 433 | ||
| 1 | 0.0 | Work 9 | I | 0 | 71, 241 | ||
| 1 | 0.0 | Work 9 | I | 0 | 271, 529 | ||
| 1 | 0.0 | Work 5 | I | 0 | 1, 313 | ||
| 1 | 0.0 | Work 5 | I | -1 | 271, 169 | ||
| 1 | 0.0 | Work 4 | I | 0 | 501, 265 | ||
| 1 | 0.0 | Work 3 | I | 0 | 471, 169 | ||
| 1 | 0.0 | Work 3 | I | 0 | 391, 373 | ||
| 1 | 0.0 | Work 3 | I | 0 | 501, 241 | ||
| 1 | 0.0 | Work 24 | I | 0 | 571, 361 | ||
| 1 | 0.0 | Work 3 | I | 0 | 61, 457 | ||
| 1 | 0.0 | Work 2 | I | 0 | 401, 217 | ||
| 1 | 0.0 | Work 2 | I | 0 | 31, 457 | ||
| 1 | 0.0 | Work 2 | I | 0 | 591, 469 | ||
| 1 | 0.0 | Work 1 | I | 0 | 421, 517 | ||
| 1 | 0.0 | Work 14 | I | 0 | 521, 313 | ||
| 1 | 0.0 | Work 15 | I | 0 | 501, 313 | ||
| 1 | 0.0 | Work 16 | I | 0 | 511, 313 | ||
| 1 | 0.0 | Work 19 | I | -1 | 271, 493 | $SELECT 'DISPLAY A SELECTION WINDOW I:I\DELETE;=;Y S:REASON;I\REASON I:I\BLOCKED;=;Y S:REASON_BLK;I\REASON I:I\BLOCKED;=;N DO(01) I:I\DELETE;=;N S:REASON_WHOLESALE;I\REASON DOEND(01) $VALIDATE M: C:UCASE 'I:I\ST_RSN_CODE;=; 'A:CONST;;T\REASON I:I\BLOCKED;=;Y F:REASON_MAST;Y;;T\REASON_DE |
|
| 1 | 0.0 | STK_DETS | SD_SIZE | I | -1 | 271, 241 | $SELECT 'S:SIZE_NB2;I\SD_SIZE S:SIZEW;I\SD_SIZE;I\SD_PRODUCT;I\SD_CLASS;I\SD_VAR $VALIDATE 'M: 21 MAY 2008 LAZOLA C:UCASE I:I\SD_SIZE;<>; DO(02) F:COMMODITY_MAST;Y;;W\BLOCKED2=CO_BLOCKED;CO_PRODUCT='$I\SD_PRODUCT$' AND CO_VAR='$I\SD_VAR$' AND CO_CLASS='$I\SD_CLASS$' AND CO_SIZE='$I\SD_SIZE$';I\SD_SIZE I:W\BL |
| 1 | 0.0 | STK_DETS | SD_SECT | I | 0 | 501, 193 | |
| 1 | 0.0 | STK_DETS | SD_PROV | I | -1 | 271, 289 | $SELECT S:PROVINCE;I\SD_PROV $VALIDATE C:UCASE A:VAR;I\SD_PROV;I\TMPPROV I:I\SD_PROV;<>; DO(001) A:CONST;;I\TMP1 F:PROV_MAST;Y;PR_PROV;I\TMP1=PR_BLOCKED,T\PROV=PR_DESC;;I\SD_PROV I:I\TMP1;=;Y D:THIS PROVINCE HAS BEEN BLOCKED;ERRORM;I\SD_PROV DOEND(001) |
| 1 | 0.0 | STK_DETS | SD_MARKET | I | 0 | 41, 49 | $DEFAULT 'GET USERS MARKET CODE - ZU_MARKET IN ZU_USER A:ORG 'GET MARKET NAME FROM CLIENT MASTER F:CLIENT_MAST;;;T\MARKET=CM_NAME;CM_CODE='$I\SD_MARKET$' 'CONVERT TO FIRST CHARACTER UPPER CASE REST LOWER CASE C:MCASE;;T\MARKET |
| 1 | 0.0 | STK_DETS | SD_ITEM | T | -1 | 141, 193 | |
| 1 | 0.0 | STK_DETS | SD_DELNO | I | 0 | 11, 277 | |
| 1 | 0.0 | STK_DETS | SD_DELETE | I | 0 | 371, 445 | |
| 1 | 0.0 | STK_DETS | SD_DATE | I | 0 | 1, 217 | |
| 1 | 0.0 | STK_DETS | SD_DATE | T | 0 | 1, 193 | |
| 1 | 0.0 | STK_DETS | SD_COSTP | I | -1 | 271, 397 | $VALIDATE I:I\PRICE;<>;W\PRICE DO(03) A:CONST;N;I\DELETE O:DISABLEINPUT;I\DELETE DOEND(03) I:I\PRICE;=;W\PRICE DO(04) I:I\QTY;=;W\QTY O:ENABLEINPUT;I\DELETE DOEND(04) |
| 1 | 0.0 | STK_DETS | SD_CONTMASS | I | 0 | 531, 481 | |
| 1 | 0.0 | STK_DETS | SD_CONT | I | -1 | 271, 265 | $SELECT S:CONT_MAST_NB;I\SD_CONT;I\SD_PRODUCT;I\SD_VAR 'S:COM_ENQ_CONT;I\CO_CONT;I\CO_PRODUCT;I\CO_VAR;I\CO_CLASS;I\CO_SIZE $VALIDATE 'M: C:UCASE ^F:CONT_MAST;Y;CN_CONT;I\SD_CONTMASS=CN_MASS,T\CONT_NAME=CN_DESC,W\BLOCKED=CN_BLOCKED;CN_PRODUCT='$I\SD_PRODUCT$' AND CN_VAR='$I\SD_VAR$';I\SD_CONT I:W\BLOCKED;=;Y |
| 1 | 0.0 | SD_CONSIGN | C | -1 | 371, 97 | $SELECT 'S:CONS_EDIT;I\SD_CONSIGN;I\MARKET;I\AGENT S:CONS_EDIT_WHOLESALE;I\SD_CONSIGN;I\MARKET;I\AGENT |
|
| 1 | 0.0 | STK_DETS | SD_CONSIGN | T | -1 | 141, 97 | |
| 1 | 0.0 | Work 5 | I | 0 | 501, 289 | ||
| 1 | 0.0 | Work 3 | I | -1 | 271, 145 | ||
| 1 | 0.0 | STK_DETS | SD_COMMP | I | 0 | 531, 517 | |
| 1 | 0.0 | STK_DETS | SD_COLOUR | I | 0 | 1, 385 | $SELECT S:COLOUR_ITEM;I\SD_COLOUR $VALIDATE C:UCASE I:I\SD_COLOUR;<>; F:COLOUR_MAST;Y;CLR_COLOUR;;;I\SD_COLOUR F:COLOUR_MAST;;;T\COLOUR=CLR_DESC;CLR_COLOUR='$I\SD_COLOUR$';I\SD_COLOUR |
| 1 | 0.0 | Label 6 | T | -1 | 401, 241 | ||
| 1 | 0.0 | Label 3 | T | -1 | 141, 241 | ||
| 1 | 0.0 | Label 23 | T | -1 | 351, 493 | ||
| 1 | 0.0 | Label 3 | T | -1 | 611, 25 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 371, 193 | $SELECT S:ITEM_NEW;I\SD_ITEM |
|
| 1 | 0.0 | Label 2 | T | -1 | 371, 121 | ||
| 1 | 0.0 | Label 2 | T | -1 | 401, 193 | ||
| 1 | 0.0 | Label 2 | T | -1 | 141, 217 | ||
| 1 | 0.0 | STK_DETS | SD_CONSIGN | I | -1 | 271, 97 | $SELECT S:CONS_EDIT_WHOLESALE;I\SD_CONSIGN;I\MARKET;I\AGENT $VALIDATE A:CONST;;W\DELDATE,W\DELNO,W\FINALDATE A:VAR;I\CONSIGN;I\CONSIGN;;00000000 F:STK_DETS;Y;SD_CONSIGN;I\SD_DATE=SD_DATE,W\DELDATE=SD_DATE,W\DELNO=SD_DELNO;SD_MARKET='$I\SD_MARKET$';I\SD_CONSIGN 'F:STK_DETS;Y;SD_CONSIGN;I\SD_DATE=SD_DATE,W\DE |
| 1 | 0.0 | STK_DETS | SD_CLASS | I | -1 | 271, 217 | $SELECT 'S:CLASS_NB2;I\SD_CLASS; 'S:COM_ENQ_CLASS;I\CO_CLASS;I\CO_PRODUCT;I\CO_VAR S:CLASSZ;I\SD_CLASS;I\SD_PRODUCT;I\SD_VAR $VALIDATE 'M: 21 MAY 2008 LAZOLA C:UCASE I:I\SD_CLASS;<>; DO(01) F:COMMODITY_MAST;Y;;W\BLOCKED=CO_BLOCKED;CO_PRODUCT='$I\SD_PRODUCT$' AND CO_VAR='$I\SD_VAR$' AND CO_CLASS='$I\SD_CLASS$ |
| 1 | 0.0 | Label 17 | T | -1 | 141, 493 | ||
| 1 | 0.0 | Label 16 | T | -1 | 141, 469 | ||
| 1 | 0.0 | Label 13 | T | 0 | 1, 373 | ||
| 1 | 0.0 | Label 13 | T | -1 | 141, 373 | ||
| 1 | 0.0 | Label 14 | T | -1 | 141, 397 | ||
| 1 | 0.0 | Label 15 | T | 0 | 1, 421 | ||
| 1 | 0.0 | STK_DETS | SD_COMMENT | I | -1 | 271, 469 | $VALIDATE C:UCASE |
| 1 | 0.0 | Label 10 | T | 0 | 1, 397 | ||
| 1 | 0.0 | Label 10 | T | -1 | 401, 265 | ||
| 1 | 0.0 | Work 1 | I | 0 | 591, 169 | ||
| 1 | 0.0 | Label 1 | T | -1 | 281, 25 | ||
| 1 | 0.0 | DEFAULT | I | 0 | 1, 49 | $DEFAULT A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIMER_ON;1000 O:HIDEUPDATE |
|
| 1 | 0.0 | CMD 8 | C | -1 | 371, 313 | $SELECT A:CON;I\SD_CLASS;I\TMP1;I\SD_SIZE S:COUNT_MAST_CNT;I\SD_COUNT;I\SD_PRODUCT;I\TMP1;I\SD_CONT |
|
| 1 | 0.0 | Work 2 | I | 0 | 391, 397 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 371, 241 | $SELECT 'S:SIZE_NB2;I\SD_SIZE 'S:COM_ENQ_SIZE;I\CO_SIZE;I\CO_PRODUCT;I\CO_VAR;I\CO_CLASS S:SIZEW;I\SD_SIZE;I\SD_PRODUCT;I\SD_CLASS;I\SD_VAR |
|
| 1 | 0.0 | CMD 4 | C | -1 | 371, 289 | $SELECT S:PROVINCE;I\SD_PROV |
|
| 1 | 0.0 | CMD 5 | C | -1 | 371, 265 | $SELECT 'S:CONT_MAST_NB;I\SD_CONT;I\SD_PRODUCT 'S:COM_ENQ_CONT;I\CO_CONT;I\CO_PRODUCT;I\CO_VAR;I\CO_CLASS;I\CO_SIZE S:CONT_MAST_NB;I\SD_CONT;I\SD_PRODUCT;I\SD_VAR |
|
| 1 | 0.0 | CMD 6 | C | -1 | 371, 217 | $SELECT 'S:CLASS_NB2;I\SD_CLASS; 'S:COM_ENQ_CLASS;I\CO_CLASS;I\CO_PRODUCT;I\CO_VAR S:CLASSZ;I\SD_CLASS;I\SD_PRODUCT;I\SD_VAR |
|
| 1 | 0.0 | Label 5 | T | -1 | 401, 289 | ||
| 1 | 0.0 | Work 7 | I | 0 | 1, 349 | ||
| 1 | 0.0 | CMD 22 | C | -1 | 321, 493 | ||
| 1 | 0.0 | CMD 12 | C | 0 | 101, 397 | $SELECT S:COLOUR_ITEM;I\SD_COLOUR |
|
| 1 | 0.0 | Work 6 | I | 0 | 621, 313 | ||
| 1 | 0.0 | Label 4 | T | -1 | 141, 265 | ||
| 1 | 0.0 | Label 21 | T | -1 | 141, 445 | ||
| 1 | 0.0 | STK_DETS | SD_SMAN | I | 0 | 641, 193 | |
| 1 | 0.0 | Work 1 | I | 0 | 1, 457 | ||
| 1 | 0.0 | Work 1 | I | 0 | 591, 445 | ||
| 1 | 0.0 | Work 1 | I | 0 | 581, 133 | ||
| 1 | 0.0 | Work 1 | I | 0 | 491, 445 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | STK_DETS | SD_DELIND | I | -1 | 271, 445 | $VALIDATE C:UCASE I:I\DELETE;=; A:CONST;N;I\DELETE V:Y;N 'I:I\BLOCKED;=;Y 'DO(02) 'I:I\DELETE;=;Y 'D:YOU CANNOT HAVE YES IN BOTH FIELDS;ERRORM;I\DELETE 'DOEND(02) U:WHOLESALE_CONS_UPDATE;CHECK I:I\CHECK;=;Y D:DELETE IS NOT ALLOWED IF YOU CHANGED QTY OR PRICE;ERRORM;I\DELETE 'I:I\BLOCKED;=;N |
| 1 | 0.0 | Label 4 | T | -1 | 371, 145 | ||
| 1 | 0.0 | Label 5 | T | -1 | 661, 25 | ||
| 1 | 0.0 | STK_DETS | SD_COMMP | I | 0 | 561, 397 | |
| 1 | 0.0 | STK_DETS | SD_SLDQTY | I | -1 | 271, 373 | $VALIDATE I:I\QTY;<>;W\QTY DO(03) A:CONST;N;I\DELETE O:DISABLEINPUT;I\DELETE DOEND(03) I:I\QTY;=;W\QTY O:ENABLEINPUT;I\DELETE U:WHOLESALE_CONS_UPDATE;WSALEMKTAVE O:DISABLEINPUT;I\PRICE I:I\PRICE;<>;W\PRICE DO(03) A:CONST;N;I\DELETE O:DISABLEINPUT;I\DELETE DOEND(03) I:I\PRICE;=;W\PRICE DO(0 |
| 1 | 0.0 | Label 4 | T | -1 | 611, 49 | ||
| 1 | 0.0 | Label 3 | T | -1 | 141, 289 | ||
| 1 | 0.0 | Label 6 | T | -1 | 661, 49 | ||
| 1 | 0.0 | Label 6 | T | -1 | 141, 313 | ||
| 1 | 0.0 | Label 6 | T | -1 | 371, 169 | ||
| 1 | 0.0 | Label 7 | T | -1 | 141, 121 | ||
| 1 | 0.0 | Label 8 | T | -1 | 291, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 141, 145 | ||
| 1 | 0.0 | Label 9 | T | -1 | 401, 313 | ||
| 1 | 0.0 | Label 9 | T | -1 | 141, 169 | ||
| 1 | 0.0 | MARKET | T | -1 | 1, 25 | ||
| 1 | 0.0 | STK_DETS | SD_AGENT | I | -1 | 271, 121 | |
| 1 | 0.0 | STK_DETS | SD_BLOCK | I | 0 | 41, 421 | '$VALIDATE 'C:UCASE 'I:I\BLOCKED;=; 'A:CONST;N;I\BLOCKED 'V:Y;N 'I:I\BLOCKED;=;Y 'DO(01) 'A:CONST;;I\DELETE 'O:DISABLEINPUT;I\DELETE 'DOEND(01) 'I:I\BLOCKED;=;N 'O:ENABLEINPUT;I\DELETE |
| 1 | 0.0 | STK_DETS | SD_ITEM | I | -1 | 271, 193 | $SELECT S:ITEM_NEW;I\SD_ITEM $VALIDATE C:UCASE A:LEFT;I\SD_ITEM,2;I\SD_PRODUCT A:RIGHT;I\SD_ITEM,2;I\SD_VAR F:VAR_MAST;Y;;T\ITEM_DESC=VA_DESC;VA_PRODUCT='$I\SD_PRODUCT$' AND VA_VARIETY='$I\SD_VAR$';I\SD_ITEM F:PRODUCT_MAST;;;I\SD_SECT=PR_SECT;PR_PRODUCT='$I\SD_PRODUCT$' '^F:CONT_MAST;Y;CN_CONT;T\CONT |
| 1 | 0.0 | STK_DETS | SD_COUNT | I | -1 | 271, 313 | $SELECT A:CON;I\SD_CLASS;I\TMP1;I\SD_SIZE S:COUNT_MAST_CNT;I\SD_COUNT;I\SD_PRODUCT;I\TMP1;I\SD_CONT $VALIDATE A:CONST;;I\TMP5,I\TMP6 I:I\SD_COUNT;<>; DO(001) ' A:CON;I\CLASS;I\TMP1;I\SIZE A:CONST;$I\SD_CLASS$$I\SD_SIZE$;I\TMP6 F:COUNT_MAST;;CNT_COUNT;TMP5=CNT_PRODUCT;CNT_PRODUCT='$I\SD_PRODUCT$' AND CNT |
| 10 | 0.0 | ZX_DELETE | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 0, 0 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 0, 0 | $BEFORE_WRITE 'U:UPD_COMMPERC A:CONST;$I\DELETE$;I\SD_DELETE U:WHOLESALE_CONS_UPDATE;CHECK U:WHOLESALE_CONS_UPDATE;CONTINUE I:I\UPDATE;=;Y U:WHOLESALE_CONS_UPDATE;UPDATE_TABLES $AFTER_WRITE O:HIDEUPDATE U:WHOLESALE_CONS_UPDATE;UPDATE_AUD_TABLE A:CONST;;T\SUPPL_NAME 'U:CONSIGN_LEVY_RECALCULA |