Program drill-down
ALLOCATE_SALES
ALLOCATE SALES TO CONSINGMENTS. Type DSP, base table DEBTOR_TRANS.
Field inventory
78
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | CMD 1 | C | -1 | 241, 205 | $SELECT S:CONSDEL_GROW;I\CONSIGN |
|
| 1 | 0.0 | Work 1 | I | 0 | 541, 277 | ||
| 1 | 0.0 | Work 1 | I | 0 | 591, 349 | ||
| 1 | 0.0 | Work 1 | I | 0 | 491, 313 | ||
| 1 | 0.0 | CMD 1 | C | -1 | 241, 133 | $SELECT S:TAX_INV7;I\ST_TAXINV |
|
| 1 | 0.0 | CMD 33 | C | -1 | 661, 544 | $SELECT I:I\ALLOCATED_QTY;=;0 D:YOU MUST ALLOCATE QTY TO A CONSIGNMENT;ERRORM;K\CONF A:CONST;PROCESSING ....;T\PROG U:MARKET_FUNCTIONS;CONFIRM_ALLOC A:CONST;DONE PROCESSING !!!;T\PROG U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\GSUPPL,I\GCONSIGN,I\GCOMMODITY,I\GSLDQTY U:MARKET_FUNCTIONS;LOAD_SALES;G\GRID I: |
|
| 1 | 0.0 | Work 1 | I | 0 | 641, 133 | ||
| 1 | 0.0 | Work 2 | I | 0 | 641, 133 | ||
| 1 | 0.0 | Work 32 | G | -1 | 21, 325 | ||
| 1 | 0.0 | H | -1 | 0, 0 | |||
| 1 | 0.0 | Work 2 | I | -1 | 421, 133 | ||
| 1 | 0.0 | Work 22 | I | -1 | 421, 205 | ||
| 1 | 0.0 | Work 21 | I | 0 | 641, 133 | ||
| 1 | 0.0 | Work 17 | I | -1 | 141, 205 | $SELECT S:CONSDEL_GROW;I\CONSIGN;I\ORIG_ITEM $VALIDATE F:STK_DETS;Y;;I\DELNO=SD_DELNO,I\DELDATE=SD_DATE,I\ITEM=SD_ITEM,I\CLASS=SD_CLASS,I\SIZE=SD_SIZE,I\CONT=SD_CONT,I\PROV=SD_PROV,I\OH_QTY=SD_RECQTY-SD_SLDQTY-SD_DISQTY-SD_RETQTY-SD_ADJQTY-SD_PROVQTY;SD_MARKET='$I\MARKET$' AND SD_AGENT='$I\AGENT$' AND SD_CONSIGN |
|
| 1 | 0.0 | Work 30 | I | 0 | 641, 133 | $CALCULATE C:UCASE V:Y;N I:I\CONF;=;N DO(0) 'U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ O:SETFOCUS;I\SEQ A:CONST;;I\SEQ,I\CONSIGN,I\ITEM,I\CLASS,I\SIZE,I\CONT,I\PROV,I\OH_QTY,I\SUPPL,I\ALLOCATED_QTY,I\CONF DOEND(0) I:I\CONF;=;Y DO(01) 'U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ O:SETFOCU |
|
| 1 | 0.0 | Work 9 | I | 0 | 641, 133 | ||
| 1 | 0.0 | Work 29 | I | -1 | 421, 241 | $VALIDATE A:SUB;I\TMP_AVAIL;I\TMP_AVAIL;I\ALLOCATED_QTY A:SUB;I\OH_QTY;I\OH_QTY;I\ALLOCATED_QTY O:SETFOCUS;C\RUN O:BACKCOLOR;C\RUN;YELLOW |
|
| 1 | 0.0 | Work 13 | I | -1 | 141, 169 | $VALIDATE C:UCASE V:Y;N A:CONST;;I\SEQ,I\CONSIGN,I\ITEM,I\CLASS,I\SIZE,I\CONT,I\PROV,I\OH_QTY,I\SUPPL,I\ALLOCATED_QTY,I\CONF I:I\SPLIT;=;N O:SETFOCUS;I\SUPPL I:I\SPLIT;=;Y DO(00) 'U:CASHPOINT_SALES;ZV_GEN;I\CODEFLD,W\USERID,I\DT_DEBTOR 'E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P AGENT_SALES $I\AGE |
|
| 1 | 0.0 | Work 15 | I | -1 | 21, 325 | $CALCULATE A:CONST;;I\TMP2 I:I\SEQ;<>; DO(1) I:I\SEQ;<>;+ DO(DLD) U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LINE O:ENABLEINPUT;I\CONSIGN,I\CONF A:CONST;Y;I\CONF O:SETFOCUS;I\CONSIGN DOEND(DLD) I:I\SEQ;=;+ O:ENABLEINPUT;I\CONSIGN,I\CONF DOEND(1) I:I\SEQ;=; DO(SQS) 'U:PRI |
|
| 1 | 0.0 | Work 10 | I | -1 | 141, 97 | $VALIDATE C:UCASE I:I\ORGS;=; DO(0) I:I\AGENT;<>; DO(AGN) F:AGENT_MAST;;;T\AGENT_NAME=AM_NAME,I\NOINV=AM_NOINV_PRN,I\NOREM=AM_NOREM_PRN,I\AM_COMMIND=AM_COMMIND;AM_CODE='$I\AGENT$' I:T\AGENT_NAME;=; D:AGENT $I\AGENT$ DOES NOT EXIST;ERRORM;I\AGEBT DOEND(AGN) DOEND(0) |
|
| 1 | 0.0 | Work 9 | I | 0 | 1, 49 | $DEFAULT A:ORG;;I\MARKET A:ORGS;;I\ORGS 'CHECK IF SALES HAVE BEEN PROHIBITED F:CLIENT_MAST;;;I\CM_AGN_DOCKET=CM_AGN_DOCKET,T\MARKET=CM_NAME,I\TMP=CM_PROHIBIT_SALES,I\PROHIBIT_AGENT_SALES=CM_PROHIBIT_AGENT_SALES,I\TMP5=CM_CB_NOPREAMBLE,I\MAIN_SALE=CM_MAINBUYER_SALES,I\RFID=CM_USE_RFID,I\CREDITSALE=CM_AGENT_CR_SALE |
|
| 1 | 0.0 | Work 1 | I | -1 | 141, 133 | $SELECT S:TAX_INV7;I\ST_TAXINV $VALIDATE C:UCASE A:CONST;;I\SEQ,I\GSUPPL,I\GCONSIGN,I\GCOMMODITY,I\GSLDQTY,T\PROG 'INITIALIZES THE GRID 'U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\GSUPPL,I\GCONSIGN,I\GCOMMODITY,I\GSLDQTY A:CONST;;I\ERROR 'CHECK IF SALES HAVE BEEN PROHIBITED F:CLIENT_MAST;;;I\TMP=CM_PROHIBI |
|
| 1 | 0.0 | Work 54 | I | 0 | 51, 49 | ||
| 1 | 0.0 | Work 35 | I | 0 | 761, 133 | ||
| 1 | 0.0 | Work 35 | I | 0 | 761, 133 | ||
| 1 | 0.0 | Work 34 | I | 0 | 761, 133 | ||
| 1 | 0.0 | Work 4 | I | 0 | 21, 49 | ||
| 1 | 0.0 | Work 46 | I | 0 | 761, 133 | ||
| 1 | 0.0 | Work 51 | I | 0 | 761, 133 | ||
| 1 | 0.0 | Check 2 | K | 0 | 651, 169 | $VALIDATE I:K\CONF;=;1 DO(1) O:SETFOCUS;C\RUN O:BACKCOLOR;C\RUN;YELLOW DOEND(1) I:K\CONF;=;0 DO(0) D:TICK THE BOX AND COMPLETE THE SALES ALLOCATION;ERRORM;K\CONF O:DISABLEINPUT;G\GRID,I\LINE,I\CONSIGN,I\COMMODITY,I\SLD_QTY,I\PRICE,I\VAT,I\VALUE,I\TAXINV,I\PAY_AMT,I\PRINT,I\BLK,I\DELDATE,I\TRDATE,I\ |
|
| 1 | 0.0 | Label 4 | T | -1 | 301, 205 | ||
| 1 | 0.0 | Label 5 | T | -1 | 201, 97 | ||
| 1 | 0.0 | Label 6 | T | -1 | 311, 49 | ||
| 1 | 0.0 | Label 7 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 8 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 14 | T | -1 | 21, 169 | ||
| 1 | 0.0 | Label 16 | T | -1 | 21, 97 | ||
| 1 | 0.0 | Label 31 | T | 0 | 641, 133 | ||
| 1 | 0.0 | Label 18 | T | -1 | 21, 301 | ||
| 1 | 0.0 | Label 19 | T | -1 | 21, 205 | ||
| 1 | 0.0 | Label 20 | T | -1 | 161, 301 | ||
| 1 | 0.0 | Label 4 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 2 | T | -1 | 350, 25 | ||
| 1 | 0.0 | Label 1 | T | -1 | 3, 25 | ||
| 1 | 0.0 | Label 26 | T | -1 | 21, 133 | ||
| 1 | 0.0 | Label 28 | T | -1 | 301, 241 | ||
| 1 | 0.0 | Label 3 | T | 0 | 641, 133 | ||
| 1 | 0.0 | Work 1 | I | -1 | 141, 241 | $VALIDATE F:SUPPLIER_MAST;Y;;;SUM_MARKET='$I\MARKET$' AND SUM_SUPPL='$I\SUPPL$';I\SUPPL A:CONST;I\TMP_AVAIL;I\ALLOCATED_QTY O:SETFOCUS;K\CONF 'O:SETFOCUS;C\RUN 'O:BACKCOLOR;C\RUN;YELLOW |
|
| 1 | 0.0 | Label 1 | T | -1 | 21, 241 | ||
| 1 | 0.0 | Work 1 | I | 0 | 641, 133 | ||
| 1 | 0.0 | Work 2 | I | 0 | 641, 133 | ||
| 1 | 0.0 | Work 3 | I | -1 | 241, 325 | ||
| 1 | 0.0 | Work 4 | I | -1 | 161, 325 | ||
| 1 | 0.0 | Work 5 | I | 0 | 761, 133 | ||
| 1 | 0.0 | Work 6 | I | -1 | 371, 325 | ||
| 1 | 0.0 | Work 7 | I | 0 | 61, 325 | ||
| 1 | 0.0 | Work 8 | I | 0 | 281, 433 | ||
| 1 | 0.0 | Label 1 | T | -1 | 241, 301 | ||
| 1 | 0.0 | Label 2 | T | -1 | 371, 301 | ||
| 1 | 0.0 | Label 3 | T | 0 | 651, 133 | ||
| 1 | 0.0 | Label 4 | T | 0 | 641, 133 | ||
| 1 | 0.0 | Label 5 | T | -1 | 301, 133 | ||
| 1 | 0.0 | Work 1 | I | 0 | 691, 133 | ||
| 1 | 0.0 | Work 3 | I | 0 | 641, 133 | ||
| 1 | 0.0 | Work 4 | I | 0 | 641, 133 | ||
| 1 | 0.0 | Work 5 | I | 0 | 641, 133 | ||
| 1 | 0.0 | Work 1 | I | 0 | 591, 313 | ||
| 1 | 0.0 | Label 1 | T | -1 | 61, 301 | ||
| 1 | 0.0 | Label 2 | T | -1 | 521, 421 | ||
| 1 | 0.0 | Work 1 | I | 0 | 491, 349 | ||
| 1 | 0.0 | Work 1 | I | 0 | 611, 373 | ||
| 1 | 0.0 | Work 1 | I | 0 | 491, 373 | ||
| 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 | ||
| 10 | 0.0 | ZX_EXIT | Z | 0 | 0, 0 |