PED_GATE_CAPTURE

$SELECT  S:PERMIT_HOLDERS;I\PERMITNO

$SELECT  S:FM_PRODUCTS;I\ITEM  'S:ITEM_SEL;I\SD_ITEM  'A:SELPARM;2;I\TMP1  'A:CON;I\SD_ITEM;I\SD_ITEM;I\TMP1    $CALCULATE  M:  C:UCASE    F:FM_PRODUCT_MAST;Y;;I\ITEM_DESC=FM_ITEM_DESC;FM_NDA_ITEM='$I\ITEM$';I\ITEM    

$CALCULATE    I:I\SEQ;=;  DO(001)    A:CONST;;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\MASS,I\RECQTY,I\UNALLOCQTY    O:DISABLEINPUT;I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\MASS,I\RECQTY,I\UNALLOCQTY,W\DEL    O:DISABLEINPUT;G\GRID      U:PED_MAN;SUM_QTY;G\GRID,I\RECQTY,I\UNALLOCQTY    A:SUB;I\TOT_REC;I\FM_ALLOCQTY;

$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\UNALLOCQTY,W\DEL  A:CONST;;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\UNALLOCQTY,W\DEL,I\FM_ALLOCQTY,I\FM_SUPPL  A:CONST;;I\PERMITNO,I\PERMITNO,T\FM_SUPPL_NAME,I\SM_V

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\SM_MARKET  A:ORGS;;I\ORGS    '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    'LOAD OPTIONS FROM CLIENT_MAST  F:CLIENT_MAST;;;I\CM_DELSECT=CM_DELSECT,I\CM_CENTRAL_P

$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\UNALLOCQTY,W\DEL    O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.

$CALCULATE  C:UCASE  V:Y;N    'I:I\SEQ;=;+  'DO(0)    I:W\DEL;=;Y  DO(1)    I:I\SEQ;<>;    U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ      A:CONST;;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\UNALLOC_QTY,I\UNALLOCQTY    O:SETFOCUS;I\SEQ  DOEND(1)  'DOEND(0)    I:W\DEL;=;N  DO(2)    'U:PED_MAN;LIN

$SELECT      U:PED_MAN;CAPTURE_PED;G\GRID,I\RECQTY,I\UNALLOCQTY    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\UNALLOCQTY,W\DEL  A:CONST;;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\CONT_MASS,I\RECQTY,I\UNALLOCQTY,W\DEL,I\FM_ALLOCQTY,I\FM_SUPPL,I\PED  A:CONST;;I\

$SELECT  S:PERMIT_HOLDERS;I\PERMITNO      $VALIDATE    I:I\PROHIBIT_SALES;=;Y  D:YOU CAN'T CONTINUE DELIVERIES ARE PROHIBITED;ERRORM;    =================================================================================  $CALCULATE    'CLEAR FIELDS AND GRID  A:CONST;;T\TYPE_DESC,I\SM_DELTYPE,I\SM_SUPP,I\SM_REFNO,I\SM_TR

$CALCULATE  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    I:I\RECQTY;>;0;NUM  DO(1)    I:I\CONT;=;    D:CONTAINER IS MANDATORY;ERRORM;I\CONT  DOEND(1)

'SELECT CONTAINER FROM SELECTION WINDOW  $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

$VALIDATE    I:I\UNALLOCQTY;=;  A:CONST;0;I\UNALLOCQTY    I:I\UNALLOCQTY;>;I\RECQTY;NUM  D:UNALLOCATED QTY CANNOT BE MORE THAN DELIVERED QTY;ERRORM;I\UNALLOCQTY

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