Program drill-down
DELIVERY_MAN_D_SLS
DIRECT DELIVERY SALES MAN. Type MAN, base table STK_MAST_DIRECT.
Field inventory
97
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | STK_DETS_DIRECT | SDD_BLOCK | I | -1 | 711, 277 | $CALCULATE C:UCASE V:Y;N; I:I\SDD_BLOCK;=; A:CONST;N;I\SDD_BLOCK U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SDD_SEQ A:CONST;+;I\SDD_SEQ 'SET FOCUS 'A:CONST;;I\SDD_ITEM,I\SDD_CLASS,I\SDD_SIZE,I\SDD_CONT,I\SDD_CONTMASS,I\SDD_PROV,I\SDD_COUNT,I\SDD_CONTQTY,I\SDD_PRICE 'A:CONST;;I\SDD_VAT,I\SDD_TOT_VAL,I\SMD_BLOCK, |
| 1 | 0.0 | Work 1 | G | -1 | 1, 301 | ||
| 1 | 0.0 | I | 0 | 1, 541 | |||
| 1 | 0.0 | Work 2 | I | -1 | 181, 481 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 565 | ||
| 1 | 0.0 | Work 2 | I | 0 | 21, 541 | ||
| 1 | 0.0 | H | -1 | 1, 115 | |||
| 1 | 0.0 | Label 1 | T | -1 | 201, 145 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 191, 121 | $SELECT S:DIRECT_DELIV;I\SMD_DELNO |
|
| 1 | 0.0 | ORGS | I | 0 | 101, 49 | ||
| 1 | 0.0 | Work 12 | I | -1 | 591, 481 | ||
| 1 | 0.0 | STK_DETS_DIRECT | SDD_CONQTY | I | -1 | 321, 277 | $CALCULATE M: I:I\SDD_CONQTY;<=;0;NUM DO(99) D:QUANTITY MUST BE GREATER THAN ZERO;ERRORM;I\SDD_CONQTY DOEND(99) I:I\SMD_INV;=; DO(112) ''A:CONST;0.00;I\SDD_PRICE,I\SDD_VAT ''O:DISABLEINPUT;I\SDD_PRICE DOEND(112) I:I\MARKET;=;11 DO(MKT11) U:DIRECT_DELIVERY_MAN;DIRECTMKTAVE DOEND(MKT11) |
| 1 | 0.0 | Work 2 | I | 0 | 1, 517 | ||
| 1 | 0.0 | STK_DETS_DIRECT | SDD_PROV | I | -1 | 251, 277 | $SELECT I:I\MARKET;<>;40 DO(NOT40) I:I\MARKET;<>;18 S:PROVINCE_SUPPL;I\SDD_PROV;I\SMD_SUPP;I\PROD DOEND(NOT40) I:I\MARKET;=;18 S:PROVINCE;I\SDD_PROV $CALCULATE C:UCASE I:I\MARKET;<>;11 M: '<<<<<<<<<<<< 2016-01-13 SIYA ADDED THE CHECK BELLOW ON JANET'S REQUEST JOB NUMBER - 23999 >>>>>>>>>>>>>>> |
| 1 | 0.0 | SM_DDATE | I | 0 | 61, 49 | ||
| 1 | 0.0 | STK_MAST_DIRECT | SMD_BLOCK | I | 0 | 81, 565 | |
| 1 | 0.0 | WW | I | 0 | 281, 127 | ||
| 1 | 0.0 | CM_DEL_LEN | I | 0 | 261, 127 | ||
| 1 | 0.0 | STK_DETS_DIRECT | SDD_SEQ | I | -1 | 1, 277 | $SELECT S:G:G\GRID:R1 $SELECT6 S:G:G\GRID:F1,I\SDD_SEQ $CALCULATE I:I\SDD_SEQ;=; DO(001) O:DISABLEINPUT;I\SDD_ITEM,I\SDD_CLASS,I\SDD_SIZE,I\SDD_CONT,I\SDD_CONTMASS,I\SDD_PROV,I\SDD_COUNT,I\SDD_CONQTY,I\SDD_PRICE O:DISABLEINPUT;I\SDD_VAT,I\SDD_TOT_VAL,I\SDD_BLOCK A:CONST;;I\SDD_ITEM,I\SDD_CLASS,I\SDD_SIZE, |
| 1 | 0.0 | Work 1 | I | 0 | 81, 517 | ||
| 1 | 0.0 | AGENT | I | 0 | 41, 49 | $DEFAULT A:ORGS;;I\AGENT A:ORGS;;I\ORGS 'GET USERNAME A:USERID;;I\USER A:USERID;;I\SMD_USER 'GET USER IP A:USERIP;;I\IP A:CONST;N;I\SMD_BLOCK 'LOAD AGENT NAME F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME 'READ FMSX DETAILS FOR THE USER AND SEE IF IT IS ALLOWED TO CHANGE TARRIF WHEN DOING COLD STORAGE ISSU |
|
| 1 | 0.0 | STK_MAST_DIRECT | SMD_MARKET | I | 0 | 1, 49 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\CHARGEDAILY=CM_GENERATE_CS_CHARGE,I\OWN_CR=CM_OWN_ROOMS,I\TMP_TARIFF=CM_CS_MAX_CHARGE,I\TARIFF_OVRRD=CM_CS_ALLOW_TO,T\MARKET=CM_NAME,W\CM_DEL_LEN=CM_DEL_LEN,W\VATCODE=CM_CSVATCD,W\CS_MIN=CM_CS_MIN_CHARGE,W\CS_MAX=CM_CS_MAX_CHAR |
| 1 | 0.0 | STK_DETS_DIRECT | SDD_VAT | I | -1 | 541, 277 | |
| 1 | 0.0 | MKT_ROOM | I | 0 | 701, 115 | ||
| 1 | 0.0 | STK_MAST_DIRECT | SMD_SUPPL_REFNO | I | -1 | 531, 169 | $CALCULATE C:UCASE |
| 1 | 0.0 | Work 1 | I | 0 | 21, 517 | ||
| 1 | 0.0 | STK_DETS_DIRECT | SDD_MASS | I | -1 | 211, 277 | $CALCULATE 'I:I\MARKET;<>;11 'M: O:SETFOCUS;I\SDD_PROV |
| 1 | 0.0 | STK_DETS_DIRECT | SDD_CLASS | I | -1 | 101, 277 | $SELECT S:CLASS_ITEM;I\SDD_CLASS;I\PROD;I\VAR $CALCULATE 'M: C:UCASE I:I\SDD_CLASS;<>; DO(001) A:CONST;;I\TMP1 F:CLASS_MAST;Y;CL_CLASS;I\TMP1=CL_BLOCKED;;I\SDD_CLASS I:I\TMP1;=;Y D:THIS CLASS HAS BEEN BLOCKED;ERRORM;I\SDD_CLASS DOEND(001) A:VAR;I\SD_CLASS;I\CLASS I:I\CLASS;=; A:CONST;0;I\CLASS |
| 1 | 0.0 | STK_DETS_DIRECT | SDD_CONT | I | -1 | 171, 277 | $SELECT S:CONT_PR_NODEL;I\SDD_CONT;I\PROD;I\VAR;I\SDD_CLASS;I\SDD_SIZE $CALCULATE I:I\MARKET;<>;11 M: C:UCASE A:VAR;I\SD_CONT;I\TMPCONT A:CONST;;I\TMP1 I:I\MARKET;<>;11 F:COMMODITY_MAST;Y;CO_CONT;I\TMP1=CO_BLOCKED;CO_PRODUCT='$I\PROD$' AND CO_VAR='$I\VAR$' AND CO_CLASS='$I\SDD_CLASS$' AND CO_SIZE='$I |
| 1 | 0.0 | STK_MAST_DIRECT | SMD_TENANT | I | -1 | 101, 145 | $SELECT S:TENANT_CODE;I\SMD_TENANT $CALCULATE M: A:VAR;I\SMD_TENANT;I\SMD_TENANT;;000 F:TENANT_MAST;Y;;T\TENANT_NAME=TM_NAME;TM_CODE='$I\SMD_TENANT$';I\SMD_TENANT |
| 1 | 0.0 | STK_MAST_DIRECT | SMD_SUPP | I | -1 | 531, 145 | $SELECT S:SUPPLIER_MAST;I\SMD_SUPP $CALCULATE M: A:VAR;I\SMD_SUPP;I\SMD_SUPP;;000000 F:SUPPLIER_MAST;Y;;T\SUPPL_NAME=SUM_NAME;SUM_SUPPL='$I\SMD_SUPP$';I\SMD_SUPP |
| 1 | 0.0 | SDD_VALUE | I | -1 | 611, 277 | ||
| 1 | 0.0 | I | -1 | 461, 277 | |||
| 1 | 0.0 | STK_MAST_DIRECT | SMD_INV | I | -1 | 101, 169 | $CALCULATE C:UCASE |
| 1 | 0.0 | STK_MAST_DIRECT | SMD_DELNO | I | -1 | 101, 121 | '$ESC 'O:SETFOCUS;I\NEW_DEL $SELECT S:DIRECT_DELIV;I\SMD_DELNO $VALIDATE ''A:VAR;I\SMD_DELNO;I\SMD_DELNO;;000000 'F:STK_MAST_DIRECT;;;I\SMD_DELNO_TMP=SMD_DELNO;SMD_MARKET='$I\MARKET$' AND SMD_DELNO='$I\SMD_DELNO$'AND SMD_DELIND<>'Y' ''A:VAR;I\SMD_DELNO_TMP;I\SMD_DELNO_TMP;;000000 ''I:I\NEW_DEL;=;Y I:I\SMD_ |
| 1 | 0.0 | STK_DETS_DIRECT | SDD_PRICE | I | -1 | 391, 277 | $CALCULATE I:I\SMD_INV;<>; DO(PRICE) M: DOEND(PRICE) I:I\SDD_PRICE;<>; DO(MZ) I:I\SDD_PRICE;<=;0 DO(PRICE15) D:PRICE MUST BE GREATER THAN ZERO;ERRORM;I\SDD_PRICE DOEND(PRICE15) I:I\SDD_CONQTY;<=;0;NUM DO(99) D:QUANTITY MUST BE GREATER THAN ZERO;ERRORM;I\SDD_CONQTY DOEND(99) F:VAR_MAST;;;I\TMP1=VA |
| 1 | 0.0 | STK_MAST_DIRECT | SMD_MKTREFNO | I | -1 | 301, 169 | $CALCULATE C:UCASE |
| 1 | 0.0 | Work 1 | I | 0 | 81, 49 | $DEFAULT 'PUTS PIC ON THE UPDATE BUTTON O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE A:DATE;DD MMM/YYYY;T\DATE A:TIME;HH:MM:SS;T\TIME A:TIME;HH:MM:SS;I\SMD_DTIME A:TIME;HH:MM:SS;I\SMD_TIME 'A:TIMER_ON;1000 A:DATE;YYYY/MM/DD;I\SMD_DDATE A:DATE;YYYY/MM/DD;I\SMD_DATE 'GETS WHICH SCREEN |
|
| 1 | 0.0 | STK_DETS_DIRECT | SDD_SIZE | I | -1 | 131, 277 | $SELECT S:SIZE_ITEM;I\SDD_SIZE;I\PROD;I\VAR $SELECT6 S:GRADE_ITEM;I\SDD_CLASS;I\PROD;I\VAR A:SELPARM;1;I\SDD_CLASS A:SELPARM;2;I\SDD_SIZE $CALCULATE 'M: C:UCASE I:I\SDD_SIZE;<>; DO(001) A:CONST;;I\TMP1 F:SIZE_MAST;Y;SZ_SIZE;I\TMP1=SZ_BLOCKED;;I\SDD_SIZE I:I\TMP1;=;Y D:THIS SIZE HAS BEEN BLOC |
| 1 | 0.0 | STK_DETS_DIRECT | SDD_COUNT | I | -1 | 291, 277 | $DEFAULT ''DIM TMP5,TMP6 $SELECT A:CON;I\CLASS;I\TMP1;I\SIZE S:COUNT_MAST_CNT;I\SDD_COUNT;I\PROD;I\;I\SDD_COUNT $CALCULATE DIM TMP5,TMP6 I:I\SDD_COUNT;<>; DO(001) A:CON;I\CLASS;I\TMP1;I\SIZE F:COUNT_MAST;;CNT_COUNT;TMP5=CNT_PRODUCT;CNT_PRODUCT='$I\PROD$' AND CNT_CONTAINER = '$I\SDD_CONT$' AND CNT_GR |
| 1 | 0.0 | STK_MAST_DIRECT | SMD_DDATE | I | 0 | 21, 565 | |
| 1 | 0.0 | STK_MAST_DIRECT | SMD_DTIME | I | 0 | 41, 541 | |
| 1 | 0.0 | STK_MAST_DIRECT | SMD_DATE | I | 0 | 41, 565 | |
| 1 | 0.0 | STK_MAST_DIRECT | SMD_TIME | I | 0 | 61, 541 | |
| 1 | 0.0 | STK_MAST_DIRECT | SMD_USER | I | 0 | 61, 565 | |
| 1 | 0.0 | Work 1 | I | 0 | 121, 49 | ||
| 1 | 0.0 | STK_DETS_DIRECT | SDD_ITEM | I | -1 | 31, 277 | $SELECT S:ITEM_SEL;I\SDD_ITEM A:SELPARM;2;I\TMP1 A:CON;I\SDD_ITEM;I\SDD_ITEM;I\TMP1 $CALCULATE M: C:UCASE A:LEFT;I\SDD_ITEM,2;I\PROD A:MID;I\SDD_ITEM,3,2;I\VAR F:VAR_MAST;Y;;I\TMP1=VA_BLOCKED,I\PROV_REQ=VA_PROV_REQ;VA_PRODUCT='$I\PROD$' AND VA_VARIETY='$I\VAR$';I\SDD_ITEM I:I\TMP1;=;Y D:THIS VARIETY HAS BE |
| 1 | 0.0 | UPDATE_FLAG | I | 0 | 21, 49 | ||
| 1 | 0.0 | Work 1 | I | 0 | 231, 103 | ||
| 1 | 0.0 | DEPOSITS | I | 0 | 301, 127 | ||
| 1 | 0.0 | Work 1 | I | 0 | 141, 49 | ||
| 1 | 0.0 | Work 2 | I | 0 | 101, 97 | ''$VALIDATE 'C:UCASE 'V:Y;N '$ESC ''U:EXIT_SCREEN |
|
| 1 | 0.0 | Work 1 | I | 0 | 81, 541 | ||
| 1 | 0.0 | Label 8 | T | -1 | 1, 229 | ||
| 1 | 0.0 | Label 2 | T | -1 | 611, 145 | ||
| 1 | 0.0 | Label 20 | T | -1 | 711, 253 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 10 | T | -1 | 251, 253 | ||
| 1 | 0.0 | Label 2 | T | -1 | 101, 253 | ||
| 1 | 0.0 | Label 12 | T | -1 | 411, 145 | ||
| 1 | 0.0 | Label 6 | T | -1 | 171, 253 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 25 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 25 | ||
| 1 | 0.0 | Label 6 | T | -1 | 541, 253 | ||
| 1 | 0.0 | Label 10 | T | -1 | 611, 253 | ||
| 1 | 0.0 | Label 11 | T | -1 | 401, 481 | ||
| 1 | 0.0 | T | -1 | 1, 169 | |||
| 1 | 0.0 | Label 5 | T | -1 | 671, 25 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 253 | ||
| 1 | 0.0 | Label 4 | T | -1 | 461, 253 | ||
| 1 | 0.0 | DELNO | T | -1 | 1, 121 | ||
| 1 | 0.0 | Label 3 | T | -1 | 41, 253 | ||
| 1 | 0.0 | Label 10 | T | -1 | 321, 253 | ||
| 1 | 0.0 | AGENT_NAME | T | -1 | 211, 169 | ||
| 1 | 0.0 | TENANT | T | -1 | 1, 145 | ||
| 1 | 0.0 | Label 8 | T | -1 | 251, 49 | ||
| 1 | 0.0 | Label 12 | T | -1 | 391, 253 | ||
| 1 | 0.0 | Label 8 | T | -1 | 291, 253 | ||
| 1 | 0.0 | Label 1 | T | -1 | 411, 169 | ||
| 1 | 0.0 | Label 2 | T | 0 | 1, 97 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 571, 145 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 171, 145 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 193 | ||
| 1 | 0.0 | STK_MAST_DIRECT | SMD_VREGNO | I | -1 | 101, 193 | $CALCULATE M: C:UCASE |
| 1 | 0.0 | Work 2 | I | 0 | 41, 517 | ||
| 1 | 0.0 | Work 3 | I | 0 | 61, 517 | ||
| 1 | 0.0 | Label 1 | T | -1 | 11, 481 | ||
| 1 | 0.0 | Label 1 | T | -1 | 141, 253 | ||
| 1 | 0.0 | Work 1 | I | 0 | 291, 97 | ||
| 1 | 0.0 | Label 1 | T | -1 | 211, 253 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 115 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 115 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 115 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 115 | $BEFORE_WRITE U:DIRECT_DELIVERY_MAN;UPDATE_STK_DETS;G\GRID U:DIRECT_DELIVERY_MAN;UPDATE_DELNO U:CALL_PRINT_DIRECT_PRODUCE_DELNO;CALL |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 115 |