CONFIRM_PED

$CALCULATE  A:CONST;0;I\TBL_COUNT    I:I\SEQ;=;  DO(001)    A:CONST;;I\SEQ,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\RECQTY,I\UNALLOCQTY,I\ALLOCQTY,W\CONF    O:DISABLEINPUT;G\GRID,I\ITEM,I\ITEM_DESC,I\CONT,I\CONT_DESC,I\RECQTY,I\UNALLOCQTY,I\CONFQTY,I\ALLOCQTY    O:DISABLEINPUT;G\GRID      I:I\SCREEN_TYPE;<>;SR    U:PED_

$VALIDATE  C:UCASE  

$DEFAULT  'LOAD MARKET CODE  A:ORG;;I\SM_MARKET  A:ORGS;;I\ORGS    A:PARM;1;I\SCREEN_TYPE    I:I\SCREEN_TYPE;=;CS  DO(CS)    A:CONST;PED CONFIRMATION;T\HEADER1    O:HIDE;T\RECQTY2,T\RECQTY3  DOEND(CS)    I:I\SCREEN_TYPE;=;TM  DO(TM)    A:CONST;UNALLOCATED STOCK ALLOCATION;T\HEADER    O:HIDE;T\RECQTY1,T\RECQTY3  DOEND(T

$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    O:HIDE;G\GRID1    'INITIALIZE CONSIGNMENT GRID  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_

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

$SELECT  S:FM_CONTAINERS;I\CONT    $VALIDATE    I:I\CONT;<>;  DO(0)    F:FM_CONT;Y;;I\CONT_DESC=FM_CONT_DESC;FM_CONTAINER='$I\CONT$';I\CONT    F:FM_COMMODITY;Y;;I\CONT_MASS=FM_CONT_MASS;FM_ITEM='$I\ITEM$' AND FM_CONT='$I\CONT$';I\CONT    O:HIDE;I\CONT    O:SHOW;I\CONT_DESC  DOEND(0)  

$SELECT  S:PED_NUMBERS;I\PED      $VALIDATE  A:CONST;;I\SEQ  A:CONST;1;I\TBL1  A:CONST;0;I\TBL_COUNT,I\NO_OF_TABLES    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\ALL

$ESC  O:ENABLEINPUT;I\TRANS  U:PED_MAN;CLEAR_F5;I\TRANS  A:CONST;;I\TRANS,I\NO_OF_TABLES  A:CONST;0;I\TOT_OWING    $SELECT  S:CHARGE;I\TOT_OWING;I\FM_TRADER_TYPE      $VALIDATE  I:I\TOT_OWING;<;I\MIN  DO(1)    A:VAR;I\MIN;I\TOT_OWING;;#0.00    D:A MINIMUM CHARGE OF R $I\MIN$ WILL APPLY;ERROR;I\TOT_OWING  DOEND(1)    I:

$CALCULATE    'CHECK CONSIGNMENT QTY  I:I\RECQTY;<=;0;NUM  D:DELIVERY QTY CANNOT BE LESS OR EQUAL TO ZERO;ERRORM;I\RECQTY    

$ESC  O:SHOW;I\CONT  O:ENABLEINPUT;I\CONT    $CALCULATE  A:CONST;;I\TMP2  M:    C:UCASE    I:I\SCREEN_TYPE;=;CS  DO(1)    I:I\CONFQTY;<>;I\ALLOCQTY    U:PED_MAN;CONRFIM_QTY;G\GRID      I:I\TMP2;=;STOP    D:PLEASE VERIFY QTY TO PROCEED;ERRORM;I\CONFQTY        A:SUB;I\RECQTY;W\QTY_AVAIL;I\UNALLOCQTY    A:MULT;I\CONFQTY;I

$VALIDATE    I:I\TABLE_COST;<;I\TABLE_TARIFF  D:THE MINIMUM TABLE TARRIFF IS R$I\TABLE_TARIFF$;ERRORM;I\TABLE_COST    I:I\TABLE_COST;>=;I\TABLE_TARIFF  DO(0)    A:VAR;I\TABLE_COST;I\TABLE_TOT;;0.00    A:ADD;I\TOT_OWING;I\TOT_OWING;I\TABLE_COST;#0.00    O:SETFOCUS;I\TRNTYPE  DOEND(0)

$SELECT  S:AVAIL_TABLES;I\TRNTYPE

$VALIDATE  I:I\SCREEN_TYPE;<>;SR  DO(SR)  '  U:PED_MAN;COUNT_TABLES    A:MULT;I\NO_OF_TABLES;I\TABLE_COST;I\TABLE_TARIFF    A:VAR;I\TABLE_COST;I\TABLE_TOT;;#0.00    A:VAR;I\TABLE_COST;I\TABLE_COST;;#0.00    O:SETFOCUS;I\TRNTYPE  DOEND(SR)

$ESC  O:ENABLEINPUT;I\TRANS  U:PED_MAN;CLEAR_F5;I\TRANS  A:CONST;;I\TRANS  A:CONST;0;I\TOT_OWING    $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

$SELECT  S:PED_NUMBERS;I\PED

$ESC  O:ENABLEINPUT;I\TRANS  U:PED_MAN;CLEAR_F5;I\TRANS  A:CONST;;I\TRANS  A:CONST;0;I\TOT_OWING    $SELECT  I:I\SCREEN_TYPE;<>;SR  DO(01)    U:PED_MAN;CONRFIM_PED;G\GRID,I\TRANS    U:PED_MAN;ALLOCATE_TABLES;I\TRANS  DOEND(01)    I:I\SCREEN_TYPE;=;CS  U:ZZGRID_SPLIT;INIT_GRID;G\GRID;I\SEQ,I\ITEM_DESC,I\ITEM:H,I\CONT_DE

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

$EXIT    U:PED_MAN;CLEAR_F5;I\TRANS  A:CONST;;I\TRANS  O:ENABLEINPUT;I\TRANS