RETAILERS_CAPTURE

$SELECT  I:I\TRNTYPE;<>;  DO(CHK)    A:CRLF;I\TMP;I\TMP    'A:CON;I\TMP;I\DONT_EXIST;I\TRANS    'U:DELETE_MV;DELETE_DESC;I\TRNTYPE,I\TRANS    U:DELETE_MV;DELETE;I\TRNTYPE,I\TRANS  DOEND(CHK)    A:CONST;;I\TRNTYPE  O:SETFOCUS;C\DEL;I\TRNTYPE

$SELECT  S:AVAIL_TABLES;I\TRNTYPE

$SELECT  S:PERMIT_HOLDERS;I\PERMITNO

$SELECT  U:PED_MAN;CAPTURE_PED;G\GRID,I\TRANS  U:PED_MAN;ALLOCATE_TABLES;I\TRANS    U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\AGN,I\PED_NO,W\DEL  A:CONST;1;I\TBL1  A:CONST;0;I\TBL_COUNT    A:CONST;;I\SEQ,I\ITEM_DESC,I\ITEM,I\CONT_DESC,I\CONT,I\CONT_MASS,I\ALLOCQT

$SELECT  S:PED_NUMBERS;I\PED_NO    $VALIDATE    I:I\PED_NO;<>;  DO(1)    F:FM_PED_MAST;Y;;;FM_PED_NUMBER='$I\PED_NO$';I\PED_NO    O:SETFOCUS;W\DEL  DOEND(1)  

$CALCULATE    I:I\SEQ;=;  DO(001)    A:CONST;;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\AGN,I\PED_NO,W\DEL    O:DISABLEINPUT;G\GRID,I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\AGN,I\PED_NO,W\DEL      U:PED_MAN;SUM_QTY;G\GRID,I\RECQTY    A:CONST;$I\TOT_REC$;I\QTY_TOT      

$ESC  U:PED_MAN;RESERT_PED  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\AGN,I\PED_NO,W\DEL,I\PED_FROM    A:CONST;;I\SEQ,I\ITEM_DESC,I\ITEM,I\CONT_DESC,I\CONT,I\CONT_MASS,I\ALLOCQTY,I\RECQTY,I\CONFQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,I\UNALLOCQTY  A:C

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\SM_MARKET  A:ORGS;;I\ORGS    A:PARM;1;I\SCREEN_TYPE    I:I\SCREEN_TYPE;=;TM  A:CONST;UNALLOCATED STOCK ALLOCATION;T\HEADER    I:I\SCREEN_TYPE;=;CS  A:CONST;PED CONFIRMATION;T\HEADER1    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN    'CHANGING

$DEFAULT    A:DATE;DD MMM YYYY;T\DATE  A:TIME;HH:MM:SS;T\TIME  A:TIMER_ON;1000    A:USERIP;;I\IP  A:USERID;;I\USER    'INITIALIZE CONSIGNMENT GRID  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\AGN,I\PED_NO,W\DEL    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$

$SELECT  S:FM_PRODUCTS;I\ITEM    $CALCULATE  M:  C:UCASE    F:FM_PRODUCT_MAST;Y;;I\ITEM_DESC=FM_ITEM_DESC;FM_NDA_ITEM='$I\ITEM$';I\ITEM

$SELECT  S:FM_CONTAINERS;I\CONT    $CALCULATE  M:  C:UCASE    'LOOKUP FOR AN EXISTING CONTAINER, IF NOT FOUND DISPLAY ERROR MESSAGE AND IF BLOCKED DISPLAY ERROR MESSAGE  I:I\CONT;<>;  F:FM_CONT;Y;;I\CONT_DESC=FM_CONT_DESC;FM_CONTAINER = '$I\CONT$';I\CONT  F:FM_COMMODITY;;;I\CONT_MASS=FM_CONT_MASS;FM_ITEM='$I\ITEM$' AND

$SELECT  S:PED_NUMBERS;I\PED      $VALIDATE  A:CONST;;I\SEQ    I:I\SCREEN_TYPE;=;CS  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM_DESC,I\ITEM:H,I\CONT_DESC,I\CONT:H,I\CONT_MASS,I\RECQTY,I\CONFQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,I\UNALLOCQTY:H,I\ALLOCQTY:H    I:I\SCREEN_TYPE;=;TM  U:ZZGRID_SPLIT;INIT_GRI

$SELECT  S:PERMIT_HOLDERS;I\PERMITNO    $VALIDATE  A:CONST;;W\DELDATE,W\DELTIME,T\DELDATE  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\AGN,I\PED_NO,W\DEL    F:FM_PERMIT_HOLDERS;Y;;I\PERMITNO=FM_PERMITNO,I\FM_SUPPL=FM_SUPPL,T\FM_SUPPL_NAME=FM_SUPPL_NAME,I\FM_TRADER_

$VALIDATE  A:CONST;N;W\DEL    'CHECK CONSIGNMENT QTY  I:I\RECQTY;<=;0;NUM  D:DELIVERY QTY CANNOT BE LESS OR EQUAL TO ZERO;ERRORM;I\RECQTY  

$CALCULATE  A:CONST;;I\TMP2    C:UCASE    I:I\CONFQTY;<>;I\ALLOCQTY    U:PED_MAN;CONRFIM_QTY;G\GRID      I:I\TMP2;=;STOP    D:VERIFY QTY;ERRORM;I\CONFQTY        A:SUB;I\RECQTY;W\QTY_AVAIL;I\UNALLOCQTY    A:MULT;I\CONFQTY;I\MASS;I\CONT_MASS;;#0.00        I:I\FM_TRADER_TYPE;IN;03,04  DO(9)    A:MULT;I\CONFQTY;I\TOT_VAL;I

$SELECT  S:AVAIL_TABLES;I\TRNTYPE    $CALCULATE  'CONVERT TO UPPERCASE  C:UCASE    I:I\TRNTYPE;<>;  F:FM_TABLES;;;W\TABLENO=FM_TABLENO,W\PEDNO=FM_PEDNO;FM_TABLENO='$I\TRNTYPE$';I\TRNTYPE    I:W\TABLENO;=;  D:TABLE NUMBER $I\TRNTYPE$ DOES NOT EXIST;ERRORM;I\TRNTYPE    I:W\PEDNO;<>;  D:TABLE ALREADY ALLOCATED TO PED NUMB

$VALIDATE  C:UCASE  V:Y;N    $CALCULATE  C:UCASE    I:I\SEQ;=;+  U:PED_MAN;LINE_NO;G\GRID    'SAVE SCREEN FIELDS VALUES TO GRID  U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ    'CLEAR FIELDS  A:CONST;;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\AGN,I\PED_NO,W\DEL  O:DISBABLEINPUT;G\GRID,I\ITEM,I\IT

$SELECT  S:AGENT_CODE;I\PED_AGENT    $ESC  U:PED_MAN;RESERT_PED  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\AGN,I\PED_NO,W\DEL    $VALIDATE  'M:    I:I\PED_AGENT;<>;  DO(TEST)    F:AGENT_MAST;Y;;;AM_CODE='$I\PED_AGENT$';I\PED_AGENT      I:I\PED_AGENT;=;X    D:PLEA

$VALIDATE  'M:    I:I\PED_FROM;<>;  DO(TEST)    F:FM_PED_MAST;Y;;;FM_PED_NUMBER='$I\PED_FROM$' AND FM_PED_CONFIRMED = 'Y';I\PED_FROM       I:I\PED_FROM;=;X    D:PLEASE ENTER AN AGENT CODE OR A PED NUMBER;ERRORM;I\PED_FROM      U:DELETE_MV;DUPLICATES;I\PED_FROM,I\PED_LIST,I\TMP10    I:I\TMP10;=;N    D:THAT VALUE ALREADY

$SELECT  S:AGENT_CODE;I\AGN      $VALIDATE  I:I\AGN;<>;  F:AGENT_MAST;Y;;;AM_CODE='$I\AGN$';I\AGN      $ESP  O:HIDE;I\PED_NO,T\PED_NO  O:SHOW;I\AGN  O:SETFOCUS;I\AGN

$SELECT  S:PED_NUMBERS;I\PED      $VALIDATE  A:CONST;;I\SEQ    I:I\SCREEN_TYPE;=;CS  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM_DESC,I\ITEM:H,I\CONT_DESC,I\CONT:H,I\CONT_MASS,I\RECQTY,I\CONFQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,I\UNALLOCQTY:H,I\ALLOCQTY:H    I:I\SCREEN_TYPE;=;TM  U:ZZGRID_SPLIT;INIT_GRI

'$VALIDATE  'I:I\NO_OF_LINES;=;  'A:CONST;0;I\NO_OF_LINES    'I:I\NO_OF_LINES;<>;I\NO_LINES  'D:NUMBER OF LINES MUST BE EQUAL TO THE NUMBER OF ROWS IN THE GRID;ERRORM;I\NO_OF_LINES      '$VALIDATE    ''FOR PRE CHANGE 28062013  I:I\NO_LINES;=;  ''D:ERROR - NO RECORDS IN THE GRID TO PROCESS;ERRORM;I\SD_SEQ

$ESC  U:PED_MAN;RESERT_PED  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\AGN,I\PED_NO,W\DEL,I\PED_FROM    A:CONST;;I\SEQ,I\ITEM_DESC,I\ITEM,I\CONT_DESC,I\CONT,I\CONT_MASS,I\ALLOCQTY,I\RECQTY,I\CONFQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,I\UNALLOCQTY  A:C