CS_TRANS_FLOOR_MAN

$SVAR_FOCUS  'A:CONST;+;I\LT_TRANS        $SELECT  S:G:G\GRID:R1,I\LT_TRANS  $SELECT6  S:G:G\GRID:F1,I\LT_TRANS    $CALCULATE  I:I\LT_TRANS;=;    DO(001)      'O:SETFOCUS;C\CREATE      '''O:DISABLEINPUT;I\CONSIGN,I\COMMODITY,I\SLDQTY,I\PRICE,I\VAT,I\VALUE,W\DEL          'DISABLE GRID FIELDS      O:DISABLEINPUT;I\LT_CHG

$DEFAULT  A:ORGS;;I\AGENT      'GET USERNAME  A:USERNAME;;I\USER    'GET USER IP  A:USERIP;;I\IP      'LOAD AGENT NAME  F:AGENT_MAST;;AM_CODE;T\AGENT=AM_NAME          'INITIALIZE THE GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LT_TRANS,I\LT_DEPNO:H,W\DEPNO,I\LT_DEP_DATE,I\LT_LOCA,I\LT_SECTION,I\LT_SHELF,I\LT_PRQTY_AVAIL,I\

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\MARKET    'CONVERT ONLY THE FIRST CHARACTER OF THE MARKET LABEL  C:MCASE;;T\MARKET    A:ORGS;;I\AGENT_CODE    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;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\VATC

$CALCULATE  'CLEAR FIELD  A:CONST;;W\TEMP  O:SETFOCUS;C\CREATE1    

$DEFAULT    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\CREATE1    A:DATE;DD MMM/YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    'GETS WHICH SCREEN IS BEING DISPLAYED I.E. AGENTS DEPOSIT (AD) OR AGENT ISSUE (AI)  A:PARM;1;I\SCREEN_TYPE    'CHANGES THE TITLE OF THE 

' THIS FIELD WAS "I/PERIODTYPE" AND IT IS NOW "I\LT_CS_PRDTYPE"    $CALCULATE  'MAKE THIS FIELD MANDATORY  M:      'VALIDATE THE PERIOD TYPE ENTERED  F:PERIOD_TYPE;Y;;;PT_TYPE='$I\LT_CS_PRDTYPE$';I\LT_CS_PRDTYPE    

$SELECT  I:I\AGENT;<>;    S:CONSIGN_DEPOSITS;I\SD_CONSIGN;I\MARKET;I\AGENT    I:I\AGENT;=;    S:CONSIGN_DEPOSITS_MKT;I\SD_CONSIGN;I\MARKET            

$DEFAULT  'A:CONST;7;I\DAYS    'U:CS_TRANS_FLOOR_MAN;LOAD_GRID;G\GRID    $CALCULATE  R:1;99    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LT_TRANS,I\LT_DEPNO:H,W\DEPNO,I\LT_DEP_DATE,I\LT_LOCA,I\LT_SECTION,I\LT_SHELF,I\LT_PRQTY_AVAIL,I\LT_PRQTY,I\PALLET,I\LT_TRTARIFF,I\LT_CHG_PRD,I\LT_CS_PRDTYPE,I\LT_TRVALUE,I\LT_TRVAT,I\TOTAL_D

$SCMD_FOCUS  'O:BACKCOLOR;C\CREATE1;YELLOW        $SELECT    'DISABLE PROCESS BUTTON  O:DISABLEINPUT;C\CREATE1      I:I\LT_TRANS;=;    DO(UPD)         'UPDATE GRID DATA       U:CS_TRANS_FLOOR_MAN;UPD_GRID_DATA;G\GRID         'INITIALIZE THE GRID TO CLEAR ITS CONTENTS       U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LT_TRANS,I\L

$DEFAULT  'A:CONST;7;I\DAYS    'U:CS_TRANS_FLOOR_MAN;LOAD_GRID;G\GRID    $CALCULATE  R:1;99    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\LT_TRANS,I\LT_DEPNO:H,W\DEPNO,I\LT_DEP_DATE,I\LT_LOCA,I\LT_SECTION,I\LT_SHELF,I\LT_PRQTY_AVAIL,I\LT_PRQTY,I\PALLET,I\LT_TRTARIFF,I\LT_CHG_PRD,I\LT_CS_PRDTYPE,I\LT_TRVALUE,I\LT_TRVAT,I\TOTAL_D

$CALCULATE  'MAKE THIS FIELD MANDATORY  M:    I:I\LT_CHG_PRD;<;O;NUM  D:ERROR - PERIOD CANNOT BE LESS THAN ZERO;ERRORM;I\LT_CHG_PRD

$SELECT  I:I\AGENT_CODE;<>;  DO(ALA)    S:LOCATION_CS_CODES2;I\ROOM_NO;I\AGENT_CODE  DOEND(ALA)    $VALIDATE  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  F:LOCATION_MAST;;;I\OWNER=LM_AGENT;LM_CODE = '$I\ROOM_NO$';    I:I\AGENT;<>;  F:LOCATION_MAST;Y;LM_C

$SELECT  'ALLOW THE USER TO PRESS F5 TO VIEW SELECTION WINDOW  S:AGENT_CODE;I\AGENT_CODE  

$SELECT  'ALLOW THE USER TO PRESS F5 TO VIEW SELECTION WINDOW  S:AGENT_CODE;I\AGENT_CODE      $VALIDATE  'MAKE THIS FIELD A MANDATORY FIELD    M:  C:UCASE  F:AGENT_MAST;Y;AM_CODE;T\AGENT_NAME=AM_NAME;AM_CODE='$I\AGENT_CODE$'  

$SELECT    I:I\AGENT_CODE;<>;  DO(ALA)    S:LOCATION_CS_CODES2;I\ROOM_NO;I\AGENT_CODE  DOEND(ALA)  

'$BEFORE_WRITE  'U:AGENT_SALES;BUYER_PIN_NO