Program drill-down
DEL_MAN_DSLS_PRE
DIRECT DELIVERY SALES. Type MAN, base table STK_MAST_DIRECT.
Field inventory
102
Live detail pulled from the database.
| Page | Seq | Table | Field | Type | Visible | Position | Logic snippet |
|---|---|---|---|---|---|---|---|
| 1 | 0.0 | Label 5 | T | -1 | 441, 277 | ||
| 1 | 0.0 | CMD 3 | C | -1 | 611, 169 | $SELECT S:SUPPLIER_MAST;I\SMD_SUPP |
|
| 1 | 0.0 | CMD 4 | C | -1 | 171, 169 | ||
| 1 | 0.0 | CMD 4 | C | -1 | 191, 145 | $SELECT S:DIRECT_DELIV;I\SMD_DELNO |
|
| 1 | 0.0 | Work 4 | I | 0 | 301, 481 | ||
| 1 | 0.0 | Work 1 | G | -1 | 1, 325 | ||
| 1 | 0.0 | H | -1 | 1, 145 | |||
| 1 | 0.0 | PROD | I | 0 | 1, 571 | ||
| 1 | 0.0 | Work 2 | I | 0 | 171, 505 | ||
| 1 | 0.0 | Work 1 | I | 0 | 1, 595 | ||
| 1 | 0.0 | Work 2 | I | 0 | 21, 571 | ||
| 1 | 0.0 | ORGS | I | 0 | 101, 79 | ||
| 1 | 0.0 | Work 12 | I | -1 | 581, 505 | ||
| 1 | 0.0 | STK_DETS_DIRECT | SDD_CONQTY | I | -1 | 211, 301 | $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_PRE;DIRECTMKTAVE DOEND(MKT11) |
| 1 | 0.0 | Work 2 | I | 0 | 1, 547 | ||
| 1 | 0.0 | SM_DDATE | I | 0 | 61, 79 | ||
| 1 | 0.0 | SMD_BLOCK | I | 0 | 81, 595 | ||
| 1 | 0.0 | WW | I | 0 | 281, 145 | ||
| 1 | 0.0 | CM_DEL_LEN | I | 0 | 261, 145 | ||
| 1 | 0.0 | STK_DETS_DIRECT | SDD_SEQ | I | -1 | 1, 301 | $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_CONQTY,I\INV_PRICE,I\SDD_PRICE,I\USED_PRICE O:DISABLEINPUT;I\SDD_VAT,I\SDD_TOT_VAL,I\SDD_BLOCK,I\SDD_DUES A:CONST;;I\SDD_ITEM,I\SDD_CLAS |
| 1 | 0.0 | Work 1 | I | 0 | 81, 547 | ||
| 1 | 0.0 | AGENT | I | 0 | 41, 79 | $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 | SMD_MARKET | I | 0 | 1, 79 | $DEFAULT 'LOAD MARKET CODE A:ORG;;I\MARKET 'LOAD MARKET NAME F:CLIENT_MAST;;CM_CODE;I\DUES=CM_DIRTDUE,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_ |
|
| 1 | 0.0 | STK_DETS_DIRECT | SDD_VAT | I | -1 | 591, 301 | |
| 1 | 0.0 | MKT_ROOM | I | 0 | 701, 133 | ||
| 1 | 0.0 | SMD_SUPPLREFNO | I | -1 | 531, 193 | $CALCULATE C:UCASE |
|
| 1 | 0.0 | Work 1 | I | 0 | 21, 547 | ||
| 1 | 0.0 | STK_DETS_DIRECT | SDD_MASS | I | -1 | 171, 301 | $CALCULATE M: O:SETFOCUS;I\SDD_CONQTY |
| 1 | 0.0 | STK_DETS_DIRECT | SDD_CLASS | I | -1 | 101, 301 | $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 | SMD_TENANT | I | -1 | 101, 169 | $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 | SMD_SUPP | I | -1 | 531, 169 | $SELECT S:SUPPLIER_MAST;I\SMD_SUPP $SELECT8 A:VAR;I\SMD_SUPP;I\TMP1 A:VAR;I\SM_AGENT;DS E:$GBLROOT$LEGEND\PROJ_FMS\BIN\MAINMENU.EXE P SUPPLIER_MAN $GBLUSER$$I\SM_DTIME$ $I\SMD_SUPP$ $I\SM_AGENT$ F:ZV_USER_DEFAULTS;;;I\SM_SUPP=ZV_TEXT;ZV_CODE='$GBLUSER$$I\SM_DTIME$' I:I\SMD_SUPP;=; A:VAR;I\TM |
|
| 1 | 0.0 | I | -1 | 661, 301 | 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, U:ZZGRID_SPLIT;GRID_SUM;G\GRID;I\SDD_CONQTY,I\TOTAL_REC 'A:CONST;N;I\SDD_BLOCK U: |
||
| 1 | 0.0 | I | -1 | 511, 301 | |||
| 1 | 0.0 | SMD_INV | I | -1 | 101, 193 | $CALCULATE C:UCASE |
|
| 1 | 0.0 | STK_MAST_DIRECT | SMD_DELNO | I | -1 | 101, 145 | '$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 | 381, 301 | $CALCULATE 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_PRICE;<;I\SAVEDPRICE ''D:PRICE CANNOT BE LESS THAN MARKET AVERAGE;ERRORM;I\SDD_PRICE I:I\SDD_CONQTY;<=;0;NUM DO(99) D:QUANTITY MUST BE GREATER THAN ZERO;ERR |
| 1 | 0.0 | SMD_MKTREFNO | I | -1 | 531, 217 | $CALCULATE C:UCASE |
|
| 1 | 0.0 | Work 1 | I | 0 | 81, 79 | $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, 301 | $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 | SMD_DTIME | I | 0 | 41, 571 | ||
| 1 | 0.0 | SMD_DATE | I | 0 | 41, 595 | ||
| 1 | 0.0 | SMD_TIME | I | 0 | 61, 571 | ||
| 1 | 0.0 | SMD_USER | I | 0 | 61, 595 | ||
| 1 | 0.0 | Work 1 | I | 0 | 121, 79 | ||
| 1 | 0.0 | STK_DETS_DIRECT | SDD_ITEM | I | -1 | 31, 301 | $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 I: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 V |
| 1 | 0.0 | UPDATE_FLAG | I | 0 | 21, 79 | ||
| 1 | 0.0 | Work 1 | I | 0 | 231, 109 | ||
| 1 | 0.0 | DEPOSITS | I | 0 | 301, 145 | ||
| 1 | 0.0 | Work 1 | I | 0 | 141, 79 | ||
| 1 | 0.0 | Work 2 | I | 0 | 101, 121 | ''$VALIDATE 'C:UCASE 'V:Y;N '$ESC ''U:EXIT_SCREEN |
|
| 1 | 0.0 | Work 1 | I | 0 | 81, 571 | ||
| 1 | 0.0 | SMD_VREGNO | I | -1 | 101, 217 | $CALCULATE M: C:UCASE |
|
| 1 | 0.0 | Work 2 | I | 0 | 41, 547 | ||
| 1 | 0.0 | Work 3 | I | 0 | 61, 547 | ||
| 1 | 0.0 | Work 1 | I | 0 | 291, 109 | ||
| 1 | 0.0 | Label 1 | T | -1 | 201, 169 | ||
| 1 | 0.0 | Label 8 | T | -1 | 1, 253 | ||
| 1 | 0.0 | Label 2 | T | -1 | 641, 169 | ||
| 1 | 0.0 | Label 2 | T | -1 | 1, 55 | ||
| 1 | 0.0 | Label 6 | T | -1 | 671, 73 | ||
| 1 | 0.0 | Label 2 | T | -1 | 101, 277 | ||
| 1 | 0.0 | Label 12 | T | -1 | 411, 169 | ||
| 1 | 0.0 | Label 3 | T | -1 | 621, 49 | ||
| 1 | 0.0 | Label 1 | T | -1 | 291, 49 | ||
| 1 | 0.0 | Label 6 | T | -1 | 591, 277 | ||
| 1 | 0.0 | Label 10 | T | -1 | 661, 277 | ||
| 1 | 0.0 | Label 11 | T | -1 | 401, 505 | ||
| 1 | 0.0 | T | -1 | 1, 193 | |||
| 1 | 0.0 | Label 5 | T | -1 | 671, 49 | ||
| 1 | 0.0 | Label 4 | T | -1 | 621, 73 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 277 | ||
| 1 | 0.0 | Label 4 | T | -1 | 511, 277 | ||
| 1 | 0.0 | DELNO | T | -1 | 1, 145 | ||
| 1 | 0.0 | Label 3 | T | -1 | 41, 277 | ||
| 1 | 0.0 | Label 10 | T | -1 | 211, 277 | ||
| 1 | 0.0 | AGENT_NAME | T | -1 | 411, 217 | ||
| 1 | 0.0 | TENANT | T | -1 | 1, 169 | ||
| 1 | 0.0 | Label 8 | T | -1 | 311, 73 | ||
| 1 | 0.0 | Label 12 | T | -1 | 381, 277 | ||
| 1 | 0.0 | Label 1 | T | -1 | 411, 193 | ||
| 1 | 0.0 | Label 2 | T | 0 | 1, 121 | ||
| 1 | 0.0 | Label 1 | T | -1 | 1, 217 | ||
| 1 | 0.0 | Label 1 | T | -1 | 11, 505 | ||
| 1 | 0.0 | Label 1 | T | -1 | 141, 277 | ||
| 1 | 0.0 | Label 1 | T | -1 | 171, 277 | ||
| 1 | 0.0 | Work 3 | I | 0 | 301, 505 | ||
| 1 | 0.0 | SMD_DDATE | I | -1 | 531, 145 | $AFTER_READ 'DEFAULT CURRENT DATE I:I\SMD_DDATE;=; A:DATE;DD MMM YYYY;I\SMD_DDATE I:I\SMD_DDATE;=; A:VAR;I\SM_DDATE;I\SMD_DDATE $VALIDATE I:I\SMD_DDATE;=; A:DATE;DD MMM YYYY;I\I\SMD_DDATE M: |
|
| 1 | 0.0 | Label 3 | T | -1 | 411, 145 | ||
| 1 | 0.0 | Work 1 | I | 0 | 341, 559 | ||
| 1 | 0.0 | Work 6 | I | -1 | 321, 301 | ||
| 1 | 0.0 | Label 7 | T | -1 | 321, 277 | ||
| 1 | 0.0 | Work 2 | I | 0 | 301, 529 | ||
| 1 | 0.0 | Work 2 | I | 0 | 171, 559 | ||
| 1 | 0.0 | Label 3 | T | -1 | 251, 277 | ||
| 1 | 0.0 | Work 4 | I | -1 | 441, 301 | ||
| 1 | 0.0 | Work 2 | I | -1 | 251, 301 | $CALCULATE I:I\INV_PRICE;<>; DO(MZ) I:I\INV_PRICE;<=;0 DO(PRICE15) D:PRICE MUST BE GREATER THAN ZERO;ERRORM;I\SDD_PRICE DOEND(PRICE15) A:DIV;I\INV_PRICE;I\INV_PER_KG;I\SDD_CONTMASS;;#0.000 A:VAR;I\INV_PER_KG;I\INV_PER_KG;;#0.00 DOEND(MZ) I:I\INV_PRICE;=; A:CONST;0.00;I\INV_PRICE I:I\SDD_CONQTY;<=;0;NU |
|
| 1 | 0.0 | Work 1 | I | 0 | 411, 529 | ||
| 10 | 0.0 | ZX_PRINT | Z | 0 | 1, 145 | ||
| 10 | 0.0 | ZX_SELECT | Z | 0 | 1, 145 | ||
| 10 | 0.0 | ZX_DELETE | Z | 0 | 1, 145 | ||
| 10 | 0.0 | ZX_UPDATE | Z | 0 | 1, 145 | $BEFORE_WRITE U:DIRECT_DELIVERY_PRE;UPDATE_STK_DETS;G\GRID U:DIRECT_DELIVERY_PRE;UPDATE_DELNO U:CALL_PRINT_DIRECT_PRODUCE_DELNO;CALL |
|
| 10 | 0.0 | ZX_EXIT | Z | 0 | 1, 145 |