CS_AUTO_ISS_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    '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\VATCODE=CM_CSVATCD,W\CS_MIN=CM_CS_MIN_CHARGE,W\CS_MAX=CM_CS_MAX_CHARGE  A:VAR;I\TMP_TARIFF;I\TMP_TARIFF;

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

$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: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 S

' 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            

$SCMD_FOCUS  O:BACKCOLOR;C\CREATE;YELLOW    $SELECT    I:I\LT_TRANS;=;    DO(UPD)       'UPDATE GRID DATA       U:CS_AUTO_ISS_MAN;UPD_GRID_DATA;G\GRID         'INITIALIZE THE GRID TO CLEAR ITS CONTENTS       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,

$DEFAULT  'A:CONST;7;I\DAYS    U:CS_AUTO_ISS_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_DUE,I

$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

'$BEFORE_WRITE  'U:AGENT_SALES;BUYER_PIN_NO