RETAILERS_PED_CONF

$SELECT  I:I\TRNTYPE;<>;  DO(CHK)    A:CRLF;I\TMP;I\TMP    U:DELETE_MV;DELETE;I\TRNTYPE,I\TRANS    A:SUB1;I\TBL_COUNT;I\TBL_COUNT;;#0  DOEND(CHK)    A:CONST;;I\TRNTYPE  O:SETFOCUS;C\DEL;I\TRNTYPE

$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

$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: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 CONTAINER FROM SELECTION WINDOW  $SELECT  S:CONT_GATE;I\SD_CONT;I\PROD;I\VAR    $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_COMMOD

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\SM_MARKET  A:ORGS;;I\ORGS    A:CONST;CS;I\SCREEN_TYPE    'LOAD MARKET  NAME  F:CLIENT_MAST;;CM_CODE;T\MARKET=CM_NAME,I\CM_DEL_LEN=CM_DEL_LEN    'CHANGING TEXT CASE FOR THE FIRST CHARACTER TO UPPER CASE  C:MCASE;;T\MARKET    'A:DATE;DD MMM YYYY;I\FM_PED_DATE  'A:TIME;HH:MM:SS;I\FM_P

$CALCULATE    I:I\SEQ;=;  DO(001)    A:CONST;;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\ALLOCQTY,I\RECQTY,I\CONFQTY,I\UNALLOCQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,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

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

$SELECT  S:AVAIL_TABLES;I\TRNTYPE

$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\ALLOCQTY:H,I\RECQTY,I\CONFQTY:H,I\UNALLOCQTY:H,I\MASS:H,I\PERKG:H,I\TOT_VAL:H,I\RA

$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\ALLOCQTY:H,I\RECQTY,I\CONFQTY:H,I\UNALLOCQTY:H,I\MASS:H,I\PERKG:H,I\TOT_VAL:H,I\RAND_PERCENT:H,I\OWING:H,I\AGN,I\PED_NO,W\DEL    A:CONST;;I\SEQ,I\ITEM_DESC,I\ITEM,I\CONT_DESC,I\CONT,I\CONT_MASS,I\ALLOCQ

$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: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\ALLOCQTY:H,I\RECQTY,I\CONFQTY:H,I\UNALLOCQTY:H,I\MASS:H,I\PERKG:H,I\TOT_VAL:H,I\RAND_PERCENT:H,I\OWING:H,I\AGN,I\PED_NO,W\DEL    $VALIDATE  'M:    I:I\PED_AGENT;<>; 

$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

$VALIDATE  I:I\TABLE_TARIFF;<;I\TABLE_COST  D:TABLE COST IS LESS THAN THE COST PER TABLE AMOUNT;ERRORM;I\TABLE_COST

$VALIDATE  I:I\NO_OF_TABLES;=;  A:CONST;1;I\NO_OF_TABLES    A:MULT;I\NO_OF_TABLES;I\TABLE_COST;I\TABLE_TARIFF  A:VAR;I\TABLE_COST;I\TABLE_TOT  O:SETFOCUS;I\TRNTYPE

$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

$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\ALLOCQTY:H,I\RECQTY,I\CONFQTY:H,I\UNALLOCQTY:H,I\MASS:H,I\PERKG:H,I\TOT_VAL:H,I\RAND_PERCENT:H,I\OWING:H,I\AGN,I\PED_NO,W\DEL    F:FM_PERMI

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

$SELECT  S:PERMIT_HOLDERS;I\PERMITNO

$SELECT    U:PED_MAN;CONRFIM_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\ALLOCQTY:H,I\RECQTY,I\CONFQTY:H,I\UNALLOCQTY:H,I\MASS:H,I\PERKG:H,I\TOT_VAL:H,I\RAND_PERCENT:H,I\OWING:H,I\AGN,I\PED_NO,W\DEL  A:CONST;1;I\TBL1 

'$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\ALLOCQTY:H,I\RECQTY,I\CONFQTY:H,I\UNALLOCQTY:H,I\MASS:H,I\PERKG:H,I\TOT_VAL:H,I\RAND_PERCENT:H,I\OWING:H,I\AGN,I\PED_NO,W\DEL    U:PED_MAN;CLEAR_F5;I\TRANS  A:CONST;0;I\TBL_COUNT,I\NO_OF_TABLES  A:CONST