CS_OTHER_DEP_MANO

$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$';I\LT_SECTION

$SELECT  'S:ROOM_SHELVES;I\LT_SHELF;I\LT_LOCA;I\LT_SECTION  S:ROOM_SHELVES2;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$';I\LT_SHELF    'PUT CURRENT DATE INTO

  $SELECT6    ''''''I:I\MARKET;<>;18  I:W\CHG_TYPE;<>;P  DO(DURBS)    I:I\LT_DEPNO;=;*****    DO(001)      U:CS_OTHER_DEP_MANO;PALLET_ENTRY    DOEND(001)  DOEND(DURBS)    $CALCULATE      ''''''I:I\MARKET;<>;18  I:W\CHG_TYPE;<>;P  DO(DURBS)  U:CS_OTHER_DEP_MANO;SEARCH_FOR_STRING    I:I\PALLET;<>;    DO(001)      I:I\RES

$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$';I\LT_PRCONT

$DEFAULT  A:USERID;;I\USERID  

$CALCULATE    'IF IS NOT EQUAL TO A "+" GET RECORD FROM THE GRID  I:I\LT_TRANS;<>;+    DO(001)  '    I:I\LT_DEPNO;=;*****        U:ZZGRID_SPLIT;GRID_TO_SCREEN;G\GRID;I\LT_TRANS    DOEND(001)      'IF EMPTY SET FOCUS TO UPDATE BUTTON  I:I\LT_TRANS;=;  DO(001)    '''''''O:DISABLEINPUT;I\LT_TRANS,I\PALLET_MULTIVALUES:H,I\

$CALCULATE    'CONVERT TO UPPERCASE  C:UCASE      'ONLY THE Y, X OR BLANK ARE ACCEPTED VALUES FOR THIS FIELD  V:Y;X;      'IF BLANK, PUT DATA INTO THE GRID, CLEAR GRID FIELDS.  I:W\DEL;=;    DO(001)      'PUT DATA INTO GRID FROM FIELDS      U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\LT_TRANS        'CLEAR OUT GRID SCREEN F

$DEFAULT  'INITIALIZES THE DATE AND TIME INTO THE T\DATE AND T\TIME FIELDS  A:DATE;DD MMM YYYY;T\DATE  A:DATE;YYYY/MM/DD;I\DEPDATEME  A:TIME;HH:MM:SS;T\TIME  'A:TIMER_ON;1000    A:CONST;N;I\EXT_DP      'INITIALIZES THE GRID WITH ITS COLUMNS MATCHING THE FIELDS ALONG THE TOP OF IT  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LT_T

$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    'IF DATE DIFFERENCE IS NOT WITHIN 14 DAYS OF THE CURRENT DATE, DISPLAY ERROR

'TO LOAD MARKET NAME  $DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;I\OWN_CR=CM_OWN_ROOMS,T\MARKET=CM_NAME,I\RFID=CM_USE_RFID;    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    I:I\MARKET;<>;11  DO(M)  O:DISABLEINPUT;I\LT_TRTARIFF  DOEND(M)  

$DEFAULT  A:ORGS;;I\ORGS  

$SELECT  '''S:LOCATION_CS_CODES;I\LT_LOCA    I:I\ORGS;=;  DO(AVA)    I:I\OWN_CR;=;Y    S:LOCATION_CS_CODES1;I\LT_LOCA        I:I\OWN_CR;=;N    S:LOCATION_CS_CODES;I\LT_LOCA  DOEND(AVA)    I:I\ORGS;<>;  DO(AJA)    I:I\OWN_CR;=;Y    S:LOCATION_CS_CODES2;I\LT_LOCA;I\ORGS        I:I\OWN_CR;=;N    S:LOCATION_CS_CODES;I\LT_L

$CALCULATE    'CONVERT TO UPPERCASE  C:UCASE  

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

$DEFAULT  A:USERIP;;I\IP  

$ESC  O:SETFOCUS;I\PRT_LABELS    $SELECT  A:DATE;YYYY/MM/DD;I\DEPDATEME    I:I\DM_DEBTOR;=;  D:DEPOSITOR CODE IS MANDATORY;ERRORM;I\DM_DEBTOR    U:CS_OTHER_DEP_MANTENANCEO;CS_OTHER_DEP_MANO_SAVE_DATA    I:I\MARKET;=;15  DO(15)    O:DISABLEINPUT;C\UPDATE    O:ENABLEINPUT;I\PRT_LABELS,I\NUMB_LABELS    O:SETFOCUS;I\PRT_LA

$ESC  A:CONST;;I\PRT_LABELS,I\NUMB_LABELS,T\DM_NAME  O:SETFOCUS;I\DM_DEBTOR  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LT_TRANS,I\PALLET_MULTIVALUES:H,I\LT_DEPNO,I\LT_ITEM,I\LT_PRCONT,I\LT_LOCA,I\LT_SECTION,I\LT_SHELF,I\LT_DEP_DATE,I\LT_DEP_TIME,I\LT_PRQTY,I\PALLET,I\LT_TRTARIFF,I\LT_CS_PRDTYPE,I\LT_COMMENT,W\DEL    $VALIDATE 

$CALCULATE    'MANDATORY  M:    I:I\LT_PRQTY;=;0;NUM    D:DEPOSIT QTY MUST BE GREATER THAN ZERO.;ERRORM;I\LT_PRQTY    '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

$DEFAULT    B:ADDITEM;I\LT_CS_PRDTYPE;H,D,W,M,Y    $CALCULATE    C:UCASE  B:VALIDATE;I\LT_CS_PRDTYPE;H,D,W,M,Y

$CALCULATE    'MANDATORY  M:    I:I\CM_SRT_CLR_UPDSALES;<>;  DO  'CHECK THAT THE THIRD DIGIT IS A :  A:MID;I\CM_SRT_CLR_UPDSALES,3,1;I\TMP26  I:I\TMP26;<>;:  D:ENTER IN FORMAT XX:XX;ERRORM;I\CM_SRT_CLR_UPDSALES    'CHECK THAT THE FIRST TWO DIGITS ARE BETWEEN 00 AND 24  A:LEFT;I\CM_SRT_CLR_UPDSALES,2;I\TMP26  I:I\TMP26;

$SELECT  'S:DEBTOR;I\DM_DEBTOR  S:DEBTOR;I\DM_DEBTOR    $CALCULATE  O:ENABLEINPUT;C\UPDATE  O:DISABLEINPUT;I\PRT_LABELS,I\NUMB_LABELS  A:CONST;;T\DM_NAME    'CHECK IF SALES ARE PROHIBITED  F:CLIENT_MAST;Y;;I\CM_PROHIBIT_SALES=CM_PROHIBIT_SALES;CM_CODE='$I\MARKET$';I\DM_DEBTOR    I:I\CM_PROHIBIT_SALES;=;Y  DO(001)    O:

$SELECT  'S:DEBTOR;I\DM_DEBTOR  S:DEBTOR;I\DM_DEBTOR

$SELECT    'GETS PRODUCTZ  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 VALI

$CALCULATE    'MANDATORY  M:    'GET MIN & MAX COLD STORAGE CHARGES  F:CLIENT_MAST;Y;;W\CM_CS_MIN_CHARGE=CM_CS_MIN_CHARGE,W\CM_CS_MAX_CHARGE=CM_CS_MAX_CHARGE;CM_CODE='$I\MARKET$';I\LT_TRTARIFF    'FORMAT TARIFF TO TWO DECIMAL PLACES  A:VAR;I\LT_TRTARIFF;I\LT_TRTARIFF;;#0.000    'FORMAT TARIFF TO TWO DECIMAL PLACES  A:V

$VALIDATE  I:I\NUMB_LABELS;=;0  D:ENTER A VALID NUMBER OF COPIES TO PRINT;ERRORM;I\NUMB_LABELS    I:I\NUMB_LABELS;=;  D:ENTER NUMBER OF COPIES TO PRINT;ERRORM;I\NUMB_LABELS    O:SETFOCUS;C\PRT_LABEL  O:BACKCOLOR;C\PRT_LABEL;YELLOW

$SELECT    F:LOC_TRANS;;;I\TRANS_NO=MAX(LT_TRANS);LT_TYPE='DP' AND LT_DEBTOR='$I\DM_DEBTOR$';I\TRANS_NO    U:CS_DEPOSIT_LABELS;OTHER_DEP_GRID    A:CONST;;I\PRT_LABELS,I\NUMB_LABELS,T\DM_NAME,I\DM_DEBTOR,I\TRANS_NO,I\DEPDATEME  O:DISABLEINPUT;I\PRT_LABELS,I\NUMB_LABELS  O:SETFOCUS;I\DM_DEBTOR  U:ZZGRID_SPLIT;INIT_GRID;G

$VALIDATE  C:UCASE  V:Y;N

$ESC  O:SETFOCUS;I\PRT_LABELS    $BEFORE_WRITE  U:CS_OTHER_DEP_MANTENANCEO;CS_OTHER_DEP_MANO_SAVE_DATA    A:CONST;;I\PRT_LABELS,I\NUMB_LABELS