DIRRECT_SLS_ENQ

$SELECT  S:DIRECT_DELIV;I\SMD_DELNO  

$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,I\SEQ    $SELECT6  S:G:G\GRID:F1,I\SEQ  $CALCULATE  I:I\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,I\

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

$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:    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;I\SMD_DELNO  $VALIDATE  M:  A:VAR;I\SMD_DELNO;I\SMD_DELNO;;000000  F:STK_MAST_DIRECT;Y;;I\SMD_DDATE=SMD_DDATE,I\SMD_TENANT=SMD_TENANT,I\SMD_SUPP=SMD_SUPP,I\SMD_INV=SMD_INV,I\SMD_MKTREFNO=SMD_MKTREFNO,I\SMD_SUPPLREFNO=SMD_SUPPL_REFNO,I\SMD_VREGNO=SMD_VREGNO;SMD_MARKET='$I\MARKET$' AND SMD_DELNO='

$DEFAULT  O:DISABLEINPUT;I\LT_TRVALUE      $CALCULATE      'CHECK MINUMUM  U:CS_AGENT_ISS_MAN;MINIMUM    I:W\FLAG2;=;N  D:RE-ENTER THE NET AMOUNT FOR THIS ISSUE;ERRORM;I\LT_TRVALUE        '===========================CALCULATE VAT============ BEGIN ================================    'CALCULATE THE VAT    F:VAT_MAST;;;W

$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

$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\SD_COUNT;I\PROD;I\TMP1;I\SD_CONT    $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

$BEFORE_WRITE  U:DIRECT_DELIVERY_MAN;UPDATE_STK_DETS;G\GRID  U:DIRECT_DELIVERY_MAN;UPDATE_DELNO