Report with checkbox problem

Question

I have a process that approves activities by clicking on the checkbox of my report. This is my first column called htmldb_application.g_f01. When I try to approve activities and I try to return the value of htmldb_application.g_f11(i), it always stays on the first value. Here is my code :
Declare
--Niveau_Approb number;
Retard number;
Date_Prevue_Active date;
Approbation1 number;
Delegue2 number;
Approbateur2 number;
Approb2 number;
l_count number;
Usager_Approb2 number;
Niveau number;
Begin
for i in 1..htmldb_application.g_f01.count
loop
select count(*)
into Usager_Approb2
from Approbateur, tache, activite
where activite.code_activite        = htmldb_application.g_f01(i)
And   activite.code_tache           = tache.code_tache
And   tache.code_tache              = approbateur.code_tache
and   approbateur.niveau_approbation = 2
and   approbateur.pein               = :USAGER_ACTIF
and   code_activite not in
         select code_activite
         from Delegation, tache, activite
         where activite.code_activite        = htmldb_application.g_f01(i)
         And   activite.code_tache           = tache.code_tache
         And   tache.code_tache              = delegation.code_tache
         and   to_date(activite.date_prevue, 'YYYY-MM-DD')
         between to_date(delegation.date_debut, 'YYY-MM-DD') and to_date(delegation.date_fin, 'YYYY-MM-DD')
         and   delegation.niveau_approbation = 2
         and   delegation.pein = :USAGER_ACTIF);
select count(*)
into Approbation1
from approbation
where code_activite      = htmldb_application.g_f01(i)
and   niveau_approbation = 1;
into Delegue2
from Delegation, tache, activite
where activite.code_activite        = htmldb_application.g_f01(i)
And   activite.code_tache           = tache.code_tache
And   tache.code_tache              = delegation.code_tache
and   delegation.niveau_approbation = 2;
select count(*)
into Approbateur2
from Approbateur, tache, activite
where activite.code_activite         = htmldb_application.g_f01(i)
And   activite.code_tache            = tache.code_tache
And   tache.code_tache               = approbateur.code_tache
and   approbateur.niveau_approbation = 2;
Niveau :=htmldb_application.g_f11(i);
    RAISE_application_error(-20000,Niveau,TRUE);
IF (htmldb_application.g_f11(i)=2) And (Approbation1 <= 0)
THEN
    RAISE_application_error(-20000,'  An approbation from level 1 needs to be done before you approve level 2./ Une approbation de niveau 1 doit avoir été effectuée pour que vous puissiez approuver avec un niveau 2.',TRUE);
elsif (htmldb_application.g_f11(i)=1) and (usager_approb2 >= 1)
then
     RAISE_application_error(-20000,'You already have to approve level 2 so you can not approve level 1/ Vous devez déjà approuver un niveau 2 alors vous ne pouvez approuver un niveau 1.',TRUE);
ELSE
   Insert into Approbation (PEIN, CODE_ACTIVITE, DATE_APPROBATION, DATE_CREATION, PEIN_CREATION,
   NIVEAU_APPROBATION, PEIN_REVISION, DATE_REVISION)
   Values (:USAGER_ACTIF, htmldb_application.g_f01(i),sysdate, sysdate,
   :USAGER_ACTIF,htmldb_application.g_f11(i), :USAGER_ACTIF, sysdate);
   commit;
   Select NBJRS_RETARD into Retard from tache, activite where activite.code_activite =   
   htmldb_application.g_f01(i) and activite.code_tache = tache.code_tache;
   Select date_prevue into Date_Prevue_Active from activite where activite.code_activite =  
   htmldb_application.g_f01(i);
   if (trunc(sysdate) > trunc(Date_Prevue_Active)+Retard)
   then
      if (htmldb_application.g_f11(i)= 1 ) And (Delegue2 <=0) And (
          Approbateur2 <= 0)
      then
         Update activite set succes = 'T', STATUT_QUALITE = 'En Retard',DATE_REVISION = sysdate,
         pein_revision = :USAGER_ACTIF
         where code_activite = htmldb_application.g_f01(i);
      elsif (htmldb_application.g_f11(i) = 1) And ((Delegue2 > 0) OR (
             Approbateur2 > 0))
      then
          Update activite set succes = 'C', STATUT_QUALITE = '2',
          DATE_REVISION = sysdate,
          pein_revision = :USAGER_ACTIF
          where code_activite = htmldb_application.g_f01(i);
       elsif (htmldb_application.g_f11(i) = 2) and (Approbation1 > 0)
       then
            Update activite set succes = 'T', STATUT_QUALITE = 'En Retard',
            DATE_REVISION = sysdate,
            pein_revision = :USAGER_ACTIF
            where code_activite = htmldb_application.g_f01(i);
       end if;
   else
     if (htmldb_application.g_f11(i)= 1 ) And (Delegue2 <=0) And ( Approbateur2 <= 0)
     then
             Update activite set succes = 'T', STATUT_QUALITE = 'À Temps',
             DATE_REVISION = sysdate,
             pein_revision = :USAGER_ACTIF
             where code_activite = htmldb_application.g_f01(i);
     elsif (htmldb_application.g_f11(i) = 1) And ((Delegue2 > 0) OR ( Approbateur2 > 0))
     then
             Update activite set succes = 'C', STATUT_QUALITE = '2',DATE_REVISION = sysdate,
             pein_revision = :USAGER_ACTIF
             where code_activite = htmldb_application.g_f01(i);
     elsif (htmldb_application.g_f11(i)= 2) and (Approbation1 > 0)
     then
             Update activite set succes = 'T', STATUT_QUALITE = 'À Temps',
             DATE_REVISION = sysdate,
             pein_revision = :USAGER_ACTIF
             where code_activite = htmldb_application.g_f01(i) ;
     end if;
  end if;
Anyone can help me ??
Thanks
Chantale
   commit;
end if;
  --  RAISE_application_error(-20000,Niveau,TRUE);
end loop;
end;

Answer 1

Hi all,
I have the same problem with another report, here is part of my code :
DECLARE
q VARCHAR2 (30000);
tbl VARCHAR2 (30000);
w varchar2(500);
n varchar2(3);
BEGIN
q := ' select APEX_ITEM.CHECKBOX(14,rownum) id,x.Nom,' ||
'APEX_ITEM.SELECT_LIST_FROM_LOV(11,x.IdHoraire,''' ||
'LISTE DES HORAIRES DE TRAVAIL' || ''',null,''' || 'NO' || ''') as Horaire,' ||
'APEX_ITEM.CHECKBOX(12,x.TechAccredite,' ||
'decode(x.TechAccredite,null,null,' || '''CHECKED''' || ')) Accredite, ' ||
'APEX_ITEM.TEXT(13,x.Numero,10,10,' ||
'''onblur="javascript:if(!valider_telephone(1,this.value)){alert(''' ||
'''Numero non valide''' || '''); this.focus();};"''' || ') Tel, ' ||
'APEX_ITEM.HIDDEN(10,x.IdCT) as ICT';
q := q || ' from (';
tbl := ' a valide select statement';
q := q || tbl || ' ) x ';
w := ' where ';
w := w || ' x.IdDepot = decode(:P97_IDDEPOT,-1,x.IdDepot,:P97_IDDEPOT) ';
w := w || ' or x.IdDepot is null ';
w:= w || ' order by 2';
q := q || w;
RETURN q;
END;
and I created a process :
declare
res varchar2(100);
id number;
Begin
res := 'res';
for i in 1..APEX_APPLICATION.G_F14.count loop
id := to_number(APEX_APPLICATION.G_F14(i));
res := res || ' i=' || i || ' rownum ' || id || ' th ' ||
APEX_APPLICATION.G_F11(APEX_APPLICATION.G_F14(i));
end loop;
:P97_POUB := res;
End;
My process just print the 'res' in an item named P97_POUB, so I can see if evry thing works.
But I still have a no data found error.
Benn