DIR_DEL_CONF_PRE

$SELECT  S:DIRECT_DELIV_CON;I\SMD_DELNO  

$SELECT    S:TENANT_CODE;I\SMD_TENANT  

$SELECT  U:CONF_DIRDELIV_PRE;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)TOT_VAL,I\SMD_USER_CHECK  U:ZZGRID_SPLIT;CLEAR_GRID;G\GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SDD_SEQ

$VALIDATE  M:  C:UCASE    V:Y;N    I:I\SMD_CONFIRM;=;Y  DO(CONF)  O:DISABLEINPUT;I\REASON  O:SETFOCUS;C\CREATE  O:BACKCOLOR;C\CREATE;YELLOW  DOEND(CONF)    I:I\SMD_CONFIRM;=;N  DO(CONF)  O:SETFOCUS;I\REASON  DOEND(CONF)

$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_CONTMASS,I\SDD_CONQTY,I\SDD_INV_PRICE,I\SDD_INVKG_PRICE,I\SDD_AVEKG_PRICE,I\SDD_PRICE,I\SDD_TOTDUES,I\SDD_TOTDUESV   O:DISABLEINPUT;I\SDD_TOT_VAL   A:CONST;;I\SDD_ITE

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

$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

$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

$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

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