CS_OTHER_ISS_MAN

$SELECT    'GETS PRODUCT  S:ITEM_VARIETY;I\LT_ITEM    'PUTS VARIETY INTO A SEPARATE FIELD TO BE CONCATENATED  A:SELPARM;2;W\VAR_TEMP    'CONCATENATE PRODUCT & VARIETY & PUT INTO ITEM GRID FIELD  A:CON;I\LT_ITEM;I\LT_ITEM;W\VAR_TEMP      $CALCULATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'CHECK IF A VALID

$SELECT  S:CONT_PD;I\LT_PRCONT;W\PRODUCT_TEMP;W\VAR_TEMP    $CALCULATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'CHECK IF A VALID CONTAINER IS ENTERED  F:COMMODITY_MAST;Y;;;CO_PRODUCT='$W\PRODUCT_TEMP$' AND CO_VAR = '$W\VAR_TEMP$' AND CO_CONT = '$I\LT_PRCONT$'

  $CALCULATE    'FORMAT TARIFF TO TWO DECIMAL PLACES  A:VAR;I\LT_TRTARIFF;I\LT_TRTARIFF;;#0.000  A:VAR;W\CM_CS_MIN_CHARGE;W\CM_CS_MIN_CHARGE;;#0.000  A:VAR;W\CM_CS_MAX_CHARGE;W\CM_CS_MAX_CHARGE;;#0.000    I:I\LT_TRTARIFF;=;    D:TARIFF IS INVALID;ERRORM;I\LT_TRTARIFF    I:I\MARKET;=;15  DO(15)    I:I\LT_TRTARIFF;=;0.00

$SELECT  I:I\MARKET;<>;18  S:DEPOSIT_NO;I\LT_DEPNO;I\MARKET    I:I\MARKET;=;18  S:DEPOSIT_NO_DBN;I\LT_DEPNO;I\MARKET;I\BUYER    '''S:DEPOSIT_NO_1;I\LT_DEPNO;I\MARKET    $CALCULATE  '*****SIYA****20111111  A:DATE;DD MMM YYYY;I\ISSDATE  A:DATE;DD MMM YYYY;W\TODAY  A:TIME;HH:MM;I\ISDTIME  '*****SIYA****20111111    'A:CONS

$CALCULATE    'CONVERT TO UPPERCASE  C:UCASE

$SELECT  S:DEBTOR_CODE;I\BUYER    $CALCULATE  M:  C:UCASE    'VALIDATE THE PREAMBLE  F:PREAMBLE_DEBTOR;;PDR_DEBTOR;I\TMP1=PDR_DEBTOR  I:I\MARKET;<>;14  DO(NOK)    I:I\MARKET;<>;21    DO(C98)      I:I\TMP1;=;      DO(PA)         I:I\PARM;<>;HEA        DO(VAV)          I:I\PARM;<>;HED          DO(VAK)            U:GET_BU

$DEFAULT  A:USERID;;I\USERID  

$CALCULATE    'FIELD = LT_PRQTY  'IDENTIFIER = I\LT_PRQTY     'MANDATORY  M:    I:I\LT_PRQTY;=;0    D:DEPOSIT QTY MUST BE GREATER THAN ZERO.;ERRORM    I:W\CHG_TYPE;=;C  DO(001)    O:DISABLEINPUT;I\LT_PRCONT    A:VAR;I\LT_PRQTY;I\LT_CONT_CHG_QTY  DOEND(001)    I:W\CHG_TYPE;=;P    O:ENABLEINPUT;I\LT_PRCONT    

$SELECT  S:PERIOD_TYPE;I\LT_CS_PRDTYPE    $CALCULATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'CHECK IF A VALID PERIOD IS ENTERED  F:PERIOD_TYPE;Y;;;PT_TYPE='$I\LT_CS_PRDTYPE$'

$VALIDATE    'ADDED THIS IF STATEMENT TO CATER FOR INVALID DEPOSIT BEING ENTERED   I:I\LT_DEBTOR;<>;  DO(999)      'MANDATORY  M:    I:I\ISSUE_QTY;>;I\LT_PRQTY_AVAIL;NUM    D:ISSUE QTY CAN'T BE GREATER THAN DEPOSIT QTY;ERRORM    I:I\ISSUE_QTY;=;0;NUM    DO(JRD)      D:ISSUE QTY MUST BE GREATER THAN ZERO;ERRORM;I\ISSUE_

$VALIDATE    V:1;2;    I:I\LT_PAY_OPTION;=;    A:CONST;2;I\LT_PAY_OPTION

$VALIDATE  I:I\ISSDATE;=;      A:DATE;DD MMM YYYY;I\ISSDATE  I:I\ISSDATE;<>;    DO(DATE)      A:DATEDIFF;W\TODAY;I\DATEDIFF;I\ISSDATE      I:I\DATEDIFF;<;0      D:ISSUE DATE CANNOT BE GREATER THAN TODAY'S DATE;ERRORM;I\ISSDATE      I:I\DATEDIFF;>;0     DO(CHK)      A:DATEDIFF;I\LT_DEP_DATE;I\DATEDIFF;I\ISSDATE     I:I\

$VALIDATE  I:I\MARKET;=;17  DO(17)    A:DATE;DD MMM YYYY HH:MM;W\CURRENT_DATE  A:CON;I\LT_DEP_DATE," ",I\LT_DEP_TIME;W\DEPOSIT_DATE_TIME        DO(TIME)  'CHECK THAT THE THIRD DIGIT IS A ":"  A:MID;I\ISDTIME,3,1;I\TMP1    I:I\TMP1;<>;:    D:ENTER TIME IN FORMAT XX:XX;ERRORM;I\ISDTIME    'CHECK THAT THE FIRST TWO DIGITS

$DEFAULT  A:USERIP;;I\IP  

$SELECT  S:LOCATION_CS_CODES;I\LT_LOCA    $CALCULATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'IF LOCATION IS BLANK, DISPLAY ERROR  I:I\LT_LOCA;=;    D:ROOM NO. CAN NOT BE BLANK.    'CHECK IF A VALID ROOM IS ENTERED AND GET CHARGE TYPE OF THE ROOM AND THE ROOM TYPE  F:LOCATION_MAST;Y;;W\LM_TYPE=LM_TYPE,W\

$DEFAULT  A:ORGS;;I\ORGS  

$DEFAULT    'LOAD MARKET CODE  A:ORG;;I\MARKET  I:I\MARKET;<>;17  O:HIDE;T\ISSDATE,I\ISSDATE,T\ISDTIME,I\ISDTIME    I:I\MARKET;<>;18  DO(NOT18)    O:HIDE;T\BUYER,I\BUYER,T\BUYER_NAME    O:SETFOCUS;I\LT_DEPNO  DOEND(NOT18)    'LOAD MARKET  NAME  F:CLIENT_MAST;;;T\MARKET=CM_NAME,I\RFID=CM_USE_RFID;CM_CODE='$I\MARKET$';  

$SELECT  S:ROOM_SECTION;I\LT_SECTION;I\LT_LOCA    $CALCULATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'CHECK IF A VALID SECTION IS ENTERED  F:ROOM_DET;Y;;;RD_ROOM='$I\LT_LOCA$' AND RD_SECTION = '$I\LT_SECTION$'

$SELECT  S:DEPOSIT_NO;I\LT_DEPNO;I\MARKET  '''S:DEPOSIT_NO_1;I\LT_DEPNO;I\MARKET

$SELECT    'CHECK IF A VALID DEPOSIT IS ENTERED AND GET THE DEBTOR ON THE DEPOSIT   'F:LOC_TRANS;Y;;I\LT_DEBTOR=LT_DEBTOR;LT_DEPNO='$I\LT_DEPNO$' AND LT_MARKET='$I\MARKET$' ;I\LT_DEPNO   MT20110112   F:LOC_TRANS;Y;;I\LT_DEBTOR=LT_DEBTOR;LT_DEPNO='$I\LT_DEPNO$' AND LT_MARKET='$I\MARKET$' AND LT_DELIND <>'Y';I\LT_DEPNO  

$SELECT6    '''''''I:I\MARKET;<>;18  I:W\CHG_TYPE;<>;P    U:CS_OTHER_ISS_MAN;ISSUE_PALLETS    $VALIDATE  D:    'CALCULATE CHARGES IF CHARGE TYPE = P AND ISSUE QTY <> DEPOSIT QTY  '''''''I:I\MARKET;<>;18  I:W\CHG_TYPE;<>;P  DO(001)    I:W\CHG_TYPE;=;P      DO(001)      I:I\ISSUE_QTY;<>;I\LT_PRQTY;NUM        U:CS_OTHER_I

$CALCULATE    'MANDATORY   M:    'CHECK IF ENTERED CHARGE PERIOD IS NOT GREATER THAN ORIGINALLY CALCULATED PERIOD   'I:I\LT_CHG_PRD;>;W\DAY_DIFF;NUM    ' D:CHARGE PERIOD CAN ($W\DAY_DIFF$) NOT BE GREATER THAN OVERWRITTEN VALUE ($W\DAY_DIFF$);ERRORM  

$CALCULATE    'MANDATORY  M:    

$DEFAULT    'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS   A:DATE;DD MMM YYYY;T\DATE   A:DATE;DD MMM YYYY;I\TODAY   A:TIME;HH:MM:SS;T\TIME   A:TIMER_ON;1000    A:SETPWFIELD;I\BUYER    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE    $AFTER_READ  O:

$SELECT  S:ROOM_SHELVES;I\LT_SHELF;I\LT_LOCA;I\LT_SECTION    $CALCULATE    'MANDATORY  M:    'CHECK IF A VALID SHELF IS ENTERED  'F:ROOM_DET;Y;;;RD_ROOM='$I\LT_LOCA$' AND RD_SECTION = '$I\LT_SECTION$' AND RD_SHELVES = '$I\LT_SHELF$'    'PUT CURRENT DATE INTO THE DATE FIELD  A:DATE;DD MMM YYYY;I\LT_DEP_DATE  A:DATE;DD M

'$CALCULATE    '$VALIDATE    'MANDATORY  'M:    'GETS THE DATE DIFFERENCE BETWEEN CURRENT DATE AND DEPOSIT DATE  'A:DATEDIFF;I\LT_DEP_DATE;W\DAY_DIFF;W\CURRENT_DATE;;D    'GETS ABSOLUTE VALUE OF THE DATE DIFFERENCE  'A:ABS;W\DAY_DIFF;W\DAY_DIFF    'REMOVED FOLLOWING CHECK. RK200908. REASON? NONE GIVEN...  'IF DATE DIFF

$BEFORE_WRITE    'CHECK IF A VALID DEPOSIT IS ENTERED AND GET THE DEBTOR ON THE DEPOSIT   F:LOC_TRANS;Y;;I\LT_DEBTOR=LT_DEBTOR;LT_DEPNO='$I\LT_DEPNO$' AND LT_MARKET='$I\MARKET$';I\LT_DEPNO    I:I\LT_DEBTOR;=;  DO(001)    D:INVALID DEPOSIT NO. ENTERED;ERRORM;I\LT_DEPNO    DOEND(001)      'CHECK IF SALES ARE PROHIBITED