PED_DELETION

$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:PED_NUMBERS;I\PED

$SELECT      I:K\CONF_DEL;<>;1  D:DELETION NOT CONFIRMED;ERRORM;I\PED      I:K\CONF_DEL;=;1  U:PED_MAN;DELETE_PED    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\UNALLOCQTY,I\CONFQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,I\ALLOCQTY:H,I\RECQTY:H,W\CONF:H    A:CO

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

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

$SELECT  S:PED_NUMBERS;I\PED      $VALIDATE  A:CONST;;I\SEQ    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\UNALLOCQTY,I\CONFQTY,I\MASS,I\PERKG,I\TOT_VAL,I\RAND_PERCENT,I\OWING,I\ALLOCQTY:H,I\RECQTY:H,W\CONF:H    A:CONST;;I\SEQ,I\ITEM_DESC,I\ITEM,I\CONT_DESC,I\CONT,I\CON

$CALCULATE    '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    I:I\FM_TRADER_TYPE;IN;03,04  DO(9)    A:MULT;I\CONFQTY;I\TOT_VAL;I\PERKG;;#0.00    A:VAR;I\SLS_PERC;I\RAND_PERCENT;;#0.00    A:DIV;I\SLS_PERC;I\SLS_PERC;100;;#0.00    A:MULT;I\TOT_VAL;I\OWING;I\SLS_PERC;;#0.00  DOEND(9)    'SAVE SCREEN FIELDS VALUES TO GRID  U:ZZGRID_SPLIT;SCREEN_TO_GRID;

$VALIDATE    I:I\FM_TRADER_TYPE;IN;03,04  DO(9)    A:MULT;I\CONFQTY;I\TOT_VAL;I\PERKG;;#0.00    A:VAR;I\SLS_PERC;I\RAND_PERCENT;;#0.00    A:DIV;I\SLS_PERC;I\SLS_PERC;100;;#0.00    A:MULT;I\TOT_VAL;I\OWING;I\SLS_PERC;;#0.00  DOEND(9)    'SAVE SCREEN FIELDS VALUES TO GRID  U:ZZGRID_SPLIT;SCREEN_TO_GRID;G\GRID;I\SEQ    'C

$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 

$VALIDATE    I:K\CONF_DEL;<>;1  D:DELETION NOT CONFIRMED;ERRORM;I\PED    I:K\CONF_DEL;=;1  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