My form showing an alert after prcessin the bill report

Question

I m sending my code and i want to remove message and run the biill process easly bill is not processing and show msg--: bill already processed
my code is
declare
cursor c_agcd is
     select distinct bilagcd,nvl(trde_disc,0),agty,fedn,f_typ from cr_agmast
     where unit=:block3.unit and bilagcd is not null
     and bilagcd in( select distinct oldagcd from cr_dbksup
     where unit=:block3.unit and publ=:block3.ppubl and supdate between :frdt and :todt and rsup<>0
     and BTYP='Y' ---and agty=:block3.agty or :block3.agty is null)
     and (oldagcd =:block3.pagcd or :block3.pagcd is null))
     order by cr_agmast.f_typ desc,cr_agmast.bilagcd;
     sup_rec c_agcd%rowtype;
     v_typ varchar2(5);
     vagty varchar2(5);
     vagcd varchar2(15);
     vtrde_disc number(7,2):=0;
     v_rec_cnt number:=0;
cursor c_supply is
select sum(rsup),oldagcd ,supdate,sor,publ,comm from cr_dbksup
     where unit=:block3.unit and publ=:block3.ppubl and oldagcd is not null
     and oldagcd = vagcd and supdate between :frdt and :todt and rsup<>0
     group by oldagcd,supdate,sor,publ,comm
     order by supdate;
     ppubl      varchar2(6);
     vedtn      varchar2(5);
     tot_sup                     number(8)          :=0;
     rate                               number(7,2)     :=0;
     vcomm                          number(7,2)     :=0;
     gross_amt                number(12,2):=0;
     v_gross_amt           number(12,2):=0;
     v_disc_amount      number(12,2):=0;
     net_amt                     number(12,2):=0;
     disc_amount           number(12,2):=0;
     bagcd varchar2(20);
     billno varchar2(20);
     pdate date;
     pcopy number(10):=0;
/*cursor      c_rate is
     select distinct amtr from cr_rate where edtn =vedtn;*/
/*     cursor c_rate is
select distinct sor from cr_dbksup where unit=:block3.unit and
          edtn=sup_rec.fedn and glcode = sup_rec.glcode;
     cn number(5);*/
     cursor c_rate is
     select distinct sor from cr_dbksup
          where unit=:block3.unit and publ=:block3.ppubl and
                         edtn=sup_rec.fedn and oldagcd = sup_rec.bilagcd;
     cn number(5);
cursor c_dt is
     select distinct fr_date FROM fin.freeze_type
          where divn=:block3.unit AND fr_typ='SCR';
v_fdt date;
begin
     select count(*) into v_rec_cnt from cr_bill
          where unit=:block3.unit and publ=:block3.ppubl and bldate = :block3.bill_dt;
     if nvl(v_rec_cnt,0)>0 then
          message('Bill Already processed for this Publication '||:block3.ppubl);
          message('Bill Already processed for this Publication '||:block3.ppubl);
          raise form_trigger_failure;
     end if;
     :system.message_level :=25;
     -----check validationfor freeze Voucher
     open c_dt;
     fetch c_dt into v_fdt;
     close c_dt;
     if v_fdt>:block3.bill_dt then
          message('Freeze date '||v_fdt||' Not allowed to Enter/Update/Delete Data of Freeze Date ');
          message('Freeze date '||v_fdt||' Not allowed to Enter/Update/Delete Data of Freeze Date ');
          raise form_trigger_failure;
     end if;
     --message('i m here ');message('i m here ');
     open c_agcd;
     loop
          fetch c_agcd into vagcd,vtrde_disc,vagty,vedtn,v_typ;
          exit when c_agcd%notfound;
          pcopy                     :=0;
          v_disc_amount     :=0;
          gross_amt           :=0;
          disc_amount      :=0;
          net_amt                :=0;
          --message('i m here c_supply');message('i m here c_supply');
          open c_supply;
          loop
               fetch c_supply into tot_sup,bagcd,pdate,rate,ppubl,vcomm;
               exit when c_supply%notfound;
               v_gross_amt           :=      tot_sup*rate;
               v_disc_amount      := v_gross_amt*vcomm/100;
               pcopy                          :=     pcopy                    +     tot_sup;
               gross_amt                :=      gross_amt      + v_gross_amt;
               disc_amount               :=     disc_amount     +     v_disc_amount;
               tot_sup     :=0; rate :=0;vcomm:=0; v_disc_amount     :=0;
          end loop;
          net_amt           := round((gross_amt - disc_amount),0);
          select nvl(count(1),0) into cn from cr_bill
          where unit=:block3.unit and publ=:block3.ppubl
          and agcd =bagcd and bldate = :block3.bill_dt;
          if nvl(cn,0) = 0 then
               billno := bill();
          end if;
          synchronize;
          :block3.dagcd := bagcd ;
          :block3.amount:= net_amt;
          synchronize;
          --message('i m here net_amt '||bagcd||' , '||billno);message('i m here net_amt '||bagcd||' , '||billno);
          if net_amt is not null and net_amt >0 then
                    update cr_bill set totblamt = gross_amt , copr =pcopy, amtr = net_amt, comm_per =vtrde_disc, comm_amt = disc_amount,
                                                                 frdt =:block3.frdt , todt = :block3.todt, agty =vagty ,surt =rate,doctyp='SCR'
                    where unit=:block3.unit and publ=:block3.ppubl and agcd = bagcd and bldate = :block3.bill_dt; --and edtn = vedtn;
               if sql%notfound then
                    insert into cr_bill(unit,bldate,bill,agcd,glcode,totblamt,publ,edtn,copr,amtr,comm_per,comm_amt,frdt,todt,agty,surt,doctyp)
                    values(:block3.unit,:block3.bill_dt,billno,bagcd,bagcd,gross_amt,ppubl,vedtn,pcopy,net_amt,vtrde_disc,disc_amount,
                    :block3.frdt,:block3.todt,vagty,rate,'SCR');
               end if;
               update cr_outmast set amount =net_amt,balance = net_amt
                    where unit=:block3.unit and doctyp='BIL' and publ=:block3.ppubl and agcd =bagcd and billdt = :block3.bill_dt;--and edtn =vedtn;
               if sql%notfound then
                    insert into cr_outmast(unit,agcd,glcode,doctyp,billno,billdt,voucherno,voucherdt,publ,amount,balance,edtn)
                    values(:block3.unit,bagcd,bagcd,'BIL',billno,:block3.bill_dt,billno,:block3.bill_dt,ppubl,net_amt,net_amt,vedtn);
               end if;
          end if; -- for o balance entry
          close c_supply;
     end loop;
     close c_agcd;
     commit;     
     forms_ddl('commit');
     message('Bill has been Processed');
     message('Bill has been Processed');
     --set_item_property('process',visible,property_false);
     go_item('exit');
end;

Answer 1

The data form should show exactly what is in essbase so if you query essbase with the Excel Add-in you should see the same number.
Seems like either your data is not what you expect it to be or the form definition is incorrect.
Regards,
-John