DIRECT_DELIV_CONF

$SELECT  S:DIRECT_DELIV_CON;I\SMD_DELNO  

$SELECT    S:TENANT_CODE;I\SMD_TENANT  

$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, 

$VALIDATE  M:  V:Y  O:SETFOCUS;C\CREATE  O:BACKCOLOR;C\CREATE;YELLOW

$CALCULATE  'CLEAR FIELD  A:CONST;;W\TEMP    C:UCASE    'DETERMINE THE OWNER  'F:LOCATION_MAST;;;W\TMP=LM_AGENT;LM_CODE='$I\LT_LOCA$'    'IF LM_AGENT IS NULL THE OWNER IS THE MARKET - SO U MUST GET CHARGE TYPE FROM "CLIENT_MAST"  'I:W\TEMP;=;  'F:CLIENT_MAST;;;W\CHARGE_TYPE=CM_CHG_TYPE;CM_CODE='$I\MARKET$'      'IF LM_

$SELECT  I:I\SM_MARKET;<>;40  S:PROVINCE_SUPPL;I\SDD_PROV;I\SMD_SUPP;I\PROD    $CALCULATE  C:UCASE    M:      '<<<<<<<<<<<< 2016-01-13 SIYA ADDED THE CHECK BELLOW ON JANET'S REQUEST JOB NUMBER - 23999 >>>>>>>>>>>>>>>  F:SUPPL_PROD_PROV;;;I\TMP_SSP_PROV=SPP_PROV;SPP_CODE='$I\SMD_SUPP$' AND SPP_PROD='$I\PROD$';I\SDD_PROV

$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,

$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:USERID;;I\SMD_CONF_USER  'GET USER IP  A:USERIP;;I\SMD_CONF_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 

$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

$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

$SELECT  S:CONT_PR_NODEL;I\SDD_CONT;I\PROD;I\VAR;I\SDD_CLASS;I\SDD_SIZE    $CALCULATE  M:  C:UCASE    A:VAR;I\SD_CONT;I\TMPCONT    A:CONST;;I\TMP1  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\SDD_SIZE$';I\SD_CONT  I:I\TMP1;=;Y  D:T

$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

$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

$SELECT  S:DIRECT_DELIV_CON;I\SMD_DELNO  $VALIDATE  M:  O:DISABLEINPUT;I\SDD_ITEM,I\SDD_CLASS,I\SDD_SIZE,I\SDD_CONT,I\SDD_CONTMASS,I\SDD_PROV,I\SDD_COUNT  O:DISABLEINPUT;I\SDD_VAT,I\SDD_TOT_VAL,I\SDD_BLOCK    A:VAR;I\SMD_DELNO;I\SMD_DELNO;;000000  F:STK_MAST_DIRECT;Y;;I\SMD_USER_CHECK=SMD_USER;SMD_MARKET='$I\MARKET$' A

$CALCULATE    I:I\SMD_INV;<>;  DO(PRICE)  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_VATCD;VA_PRODUCT='$I\PROD$' AND VA_VARIETY='$I

$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  A:TIME;HH:MM:SS;I\SM

$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

$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    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_GRADE = '$I\TMP1$

$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

$SELECT  U:CONFIRM_DIRECT_DELIV;UPDATE_STK_MAST_DIRECT;G\GRID    A:CONST;;I\SMD_DELNO,I\SMD_DDATE,I\SMD_TENANT,I\SMD_SUPP,I\SMD_INV,I\SMD_MKTREFNO,I\SMD_SUPPLREFNO,I\SMD_VREGNO,T\TENANT_NAME,I\SMD_CONFIRM,I\TMP_CONF,I\SDD_VALUE,I\SMD_USER_CHECK  U:ZZGRID_SPLIT;CLEAR_GRID;G\GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SDD_SE