CS_OTHERDEP_AMD

$SELECT  'DISPLAY A SELECTION WINDOW  S:ROOM_SECTION;I\SECT;I\ROOM_NO

$SELECT  S:LOCATION_CS_CODES;I\ROOM_NO

'$CALCULATE  $VALIDATE  M:    'CHECK QTY IS NOT GREATER THAN QTY AVAIL  'I:I\QTYDEP;>;I\QTYAVAIL;NUM  'D:THIS IS GREATER THAN THE QUANTITY AVAILABLE;ERRORM;I\QTYDEP    I:I\QTYDEP;<;I\QTYISS;NUM  D:CANNOT ADJUST TO LESS THAN TOTAL ISSUE QTY ($I\QTYISS$);ERRORM;I\QTYDEP    I:I\MARKET;<>;18  U:CS_AGENT_DEP_MAN;GET_TARIFF 

'$CALCULATE  $VALIDATE    'MANDATORY  M:    'GET MIN & MAX COLD STORAGE CHARGES  F:CLIENT_MAST;Y;;I\TMP4=CM_CS_MIN_CHARGE,I\TMP5=CM_CS_MAX_CHARGE;CM_CODE='$I\MARKET$'    'CHECK IF ENTERED TARIFF IS GREATER THAN/LESS THAN MAX/MIN CHARGES  A:MULT;I\QTYDEP;I\TMP;I\TARIFF    A:VAR;I\TMP4;I\TMP4;;#0.000  A:VAR;I\TMP;I\TMP;;

$CALCULATE  C:UCASE    O:BACKCOLOR;C\UPDATE;YELLOW  O:SETFOCUS;C\UPDATE

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'LOAD AGENT CODE  A:ORGS;;I\ORGS    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN;;  'F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN,D\CM_CSTARIFF=CM_CSTARIFF;;  'F:CLIENT_MAST;;CM_CODE;I\TMP=SD_RECQTY,I\TMP2=SD_SLDQT

$CALCULATE    'C:UCASE    'I:I\PALLET;<>;Y  ' DO(CHK)  ' I:I\PALLET;<>;  '  D:ENTER ONLY Y OR LEAVE BLANK;ERRORM;I\PALLET  ' DOEND(CHK)    'SHOW THE POP UP IF 'Y' IS ENTERED  'I:I\PALLET;=;Y  ' DO(CHK2)  '  A:VAR;;I\PALLS_SOLD;  '  U:CS_AGENT_DEP_MAN;PALLET_CS_ENTRY  ' DOEND(CHK2)    '20221228 theunis  I:I\PALLET;<;I\Q

$SELECT  S:MKT_CS;I\ROOM_NO    $ESC  O:SETFOCUS;I\CONSIGN    '$CALCULATE  $VALIDATE  M:  C:UCASE    A:ZEROFILL;I\ROOM_NO,4,I\ROOM_NO  'MAKE SURE THE ROOM IS VALID   F:ROOM_DET;Y;RD_ROOM;;;I\ROOM_NO      'GET CHARGE TYPE OF THE ROOM AND THE ROOM TYPE  F:LOCATION_MAST;;LM_CODE;I\TMP4=LM_TYPE,I\TMP5=LM_CHG_TYPE,T\ROOMNUM=

$DEFAULT    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  'A:TIMER_ON;1000    O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\UPDATE      'A:CONST;1;I\PALLET        

$DEFAULT  'ADDS THE SPECIFIED ITEMS TO THE COMBOBOX  B:ADDITEM;D\CM_CSTARIFF;M - MONTHLY,W - WEEKLY,D - DAILY,H - HOURLY    $VALIDATE    'CONVERT TO UPPERCASE  C:UCASE    'CHECKS THAT ONLY THE ADDED ITEMS ARE ENTERED  I:D\CM_CSTARIFF;=;M - MONTHLY    DO(M)     'TAKE THE LEFT MOST CHARACTER     A:LEFT;D\CM_CSTARIFF,1;D\

$SELECT  S:OTHER_DEPOSITS;I\DEPNO      $CALCULATE  A:CONST;;I\CONSIGN,I\FULLDEPNO,I\AGENT,T\AGENT_NAME,I\SUPPL,T\SUPPL_NAME,I\COMMOD,I\ITEM,I\CONT,I\QTYAVAIL  A:CONST;;I\ROOM_NO,I\SECT,I\SHELF,I\DEP_DATE,D\CM_CSTARIFF,T\PERIOD_DESC,I\QTYDEP,I\TARIFF,I\PALLET,I\REMARKS,I\DEBTOR,T\DEBTOR,W\SECT  A:CONST;;I\TRANSNO,I\DOCN

$SELECT  'DISPLAY A SELECTION WINDOW  S:ROOM_SECTION;I\SECT;I\ROOM_NO    '$CALCULATE  $VALIDATE    'MANDATORY  M:    'CONVERT TO UPPERCASE  C:UCASE    'CHECK IF A VALID SECTION IS ENTERED  F:ROOM_DET;;;W\SECT=RD_SECTION;RD_ROOM='$I\ROOM_NO$' AND RD_SECTION = '$I\SECT$'  I:W\SECT;=;  D:THIS SECTION IS NOT FOR THIS ROOM 

$SELECT  'DISPLAY A SELECTION WINDOW  'S:ROOM_SHELVES;I\SHELF;I\ROOM_NO;I\SECT      '$CALCULATE  $VALIDATE    'MANDATORY  M:    'CHECK IF A VALID SHELF IS ENTERED  F:ROOM_DET;;;I\TMP=RD_SHELVES;RD_ROOM='$I\ROOM_NO$' AND RD_SHELVES='$I\SHELF$'  I:I\TMP;=;  D:SHELF $I\SHELF$ DOES NOT EXIST;ERRORM;I\SHELF  I:I\SHELF;>;I\T

'$CALCULATE  $VALIDATE    'DEFAULT DATE TO CURRENT  I:I\DEP_DATE;=;""  A:DATE;DD MMM YYYY;I\DEP_DATE    A:DATE;DD MMM YYYY;I\TMP  I:I\TMP;<;I\DEP_DATE;DAT  D:DEPOSIT DATE CANNOT BE GREATER THAN TODAY;ERRORM;I\DEP_DATE    'DIFF BETWEEN CURRENT DATE AND DEPOSIT DATE  A:DATEDIFF;I\DEP_DATE;I\TMP1;I\TMP;;D    'GETS ABSOLUT

$SELECT    S:CS_DEPNO;I\DEPNO;I\AGENT;I\CONSIGN

$SCMD_FOCUS  O:BACKCOLOR;C\UPDATE;YELLOW        $SELECT  'I:I\CONSIGN;=;  ' DO(CHK)  '  O:SETFOCUS;I\CONSIGN  '  D:ERROR - ENTER CONSIGNMENT AND PRESS ENTER;ERRORM;I\CONSIGN  ' DOEND(CHK)    'I:I\CONSIGN;<>;  'F:STK_DETS;Y;;;SD_CONSIGN='$I\CONSIGN$';I\CONSIGN     I:I\DEPNO;=;   DO(CHK1)    O:SETFOCUS;I\DEPNO    D:ERROR

$BEFORE_WRITE  U:CS_AGDEP_AMD_MAN;UPDATE_CS_DATA