AMEND_PED

$SELECT  S:FM_REASON;I\RSN

$SELECT  S:PED_NUMBERS;I\PED

$SELECT    U:AMEND_PED;AUTHORIZE    I:I\INVALID_PASSWORD;=;Y  D:ENTER A VALID PASSWORD OR USERNAME;ERRORM;C\RUN    U:PED_MAN;AMEND_PED    A:CONST;;I\PED,I\PERMITNO,T\FM_SUPPL_NAME,I\SM_VREGNO,I\ITEM,I\CONT,T\CONT_DESC,I\CONT_MASS,I\RSN,T\REASON_DESC,I\RECQTY,I\NEW_CONT,I\REMARKS  A:CONST;;I\PRICE,I\CONFQTY,I\ALLOCQTY,I

$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\RECQTY

$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    'PUTS PIC ON THE UPDATE BUTTON  O:LOADPIC;$GBLROOT$LEGEND\PROJ_FMS\PICS\NEW_TEXT_DOC.ICO;C\RUN  

$VALIDATE  M:  F:FM_PED_DETAILS;Y;;;FM_PD_PEDNO='$I\PED$' AND FM_PD_ITEM='$I\ITEM$';I\ITEM  

$VALIDATE  M:  F:FM_PED_DETAILS;Y;;I\PRICE=FM_PD_PRICE,I\RECQTY=FM_PD_RECQTY,I\CONFQTY=FM_PD_RECQTY,I\TMP_CONF=FM_PD_CONFQTY,I\ALLOCQTY=FM_PD_ALLOCQTY,I\UNALLOCQTY=FM_PD_UNALLOCQTY;FM_PD_PEDNO='$I\PED$' AND FM_PD_ITEM='$I\ITEM$' AND FM_PD_CONT='$I\CONT$';I\CONT  A:SUB;I\TOT_QTY;I\TOT_QTY;I\ALLOCQTY    F:FM_CONT;;;T\CON

$SELECT  S:PED_NUMBERS;I\PED      $VALIDATE    F:FM_PED_MAST;;;I\FM_PED_CONF_RECEIPT=FM_PED_CONF_RECEIPT,I\FM_PED_CONFIRMED=FM_PED_CONFIRMED,I\PERMITNO=FM_PED_PERMITNO,I\FM_VREGNO=FM_PED_VEHICLENO,I\FM_PED_DATE=FM_PED_DATE,I\FM_PED_TIME=FM_PED_TIME;FM_PED_NUMBER='$I\PED$';    I:I\PERMITNO;=;  D:PED NUMBER DOES NOT EXIS

$SELECT  S:FM_REASON;I\RSN      $VALIDATE  M:  C:UCASE  I:I\RSN;<>;  F:FM_REASON_MAST;Y;;T\REASON_DESC=FM_DESC;FM_REASON='$I\RSN$' AND FM_BLOCKED<>'Y';I\RSN    I:I\RSN;=;WC  DO(CC)    O:DISABLEINPUT;I\CONFQTY,I\PERKG,I\ALLOCQTY    O:SETFOCUS;I\NEW_CONT  DOEND(CC)    I:I\RSN;=;WP  DO(0)    O:DISABLEINPUT;I\CONFQTY,I\ALL

$VALIDATE    I:I\NEW_CONT;=;I\CONT  D:PLEASE CHANGE THE CONTAINER;ERRORM;I\NEW_CONT    I:I\NEW_CONT;<>;  F:FM_CONT;Y;;T\NEW_DESC=FM_CONT_DESC;FM_CONTAINER='$I\NEW_CONT$';I\NEW_CONT    F:FM_COMMODITY;;;I\NEW_MASS=FM_CONT_MASS;FM_ITEM='$I\ITEM$' AND FM_CONT='$I\NEW_CONT$';I\NEW_CONT

$CALCULATE  M:    I:I\CONFQTY;=;0  D:ENTER A VALID QTY GREATER THAN ZERO;ERRORM;I\CONFQTY    A:VAR;I\CONFQTY;I\QTY_TOT    I:I\RSN;=;WQ  DO(1)    I:I\CONFQTY;>;I\RECQTY    D:CONFIRMED QTY GREATER THAN RECEIVED QTY;ERRORM;I\CONFQTY  DOEND(1)    I:I\RSN;=;PQ  DO(0)    I:I\CONFQTY;>;I\RECQTY    D:REDUCE QTY DUE TO POOR QUA

$VALIDATE    I:I\FM_TRADER_TYPE;IN;03,04  DO(01)    A:CONST;$I\SLS_PERC$;I\RAND_PERCENT    A:MULT;I\CONFQTY;I\VAL;I\CONT_MASS;;#0.00    A:MULT;I\VAL;I\VAL;I\PERKG;;#0.00    A:MULT;I\VAL;I\TOT_OWING;I\SLS_PERC;;#0.00    A:DIV;I\TOT_OWING;I\TOT_OWING;100;;#0.00  DOEND(01)

$VALIDATE    A:SUB;I\CONFQTY;I\TMP_UNALLOC;I\ALLOCQTY    I:I\TMP_UNALLOC;<;0  D:CAN NOT ALLOCATE MORE THAN THE CONFIRMED QTY;ERRORM;I\ALLOCQTY    I:I\TMP_UNALLOC;>=;0  A:VAR;I\TMP_UNALLOC;I\UNALLOCQTY;    A:ADD;I\TOT_QTY;I\TOT_QTY;I\ALLOCQTY    U:PED_MAN;COUNT_TABLES    I:I\FM_TRADER_TYPE;IN;01,02  A:MULT;I\NO_OF_TABLE

$VALIDATE    O:SETFOCUS;C\RUN  O:BACKCOLOR;C\RUN;YELLOW

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