Need code for this checkbox trigger...please

Question

Hi All,
I have a checkbox in detail block where block is having No. of records displayed is 3(Three) so Checkbox and all other items are displaying thrice. I am inserting the records 1 by 1 using the following code
Declare
Begin
     Loop
          First_Record;
          Insert into Veri_Test values(:PNo,:c1);
          Exit When :System.Last_Record='TRUE';
          Next_Record;
     End Loop;
     COMMIT;
End;
Its inserting properly. no problem. But what I want is
when i checked on 1st row of checkbox remaining two(2nd,3rd row) checkboxes should be disabled. If i uncheck 1st row checkbox then
remaining two should be enabled. As same way
If i click on 3rd row of checkbox remaining two(1,2) should be disabled. If i uncheck 3rd row checkbox then remaining two(1,2) should be enabled.
Hope its clear. is it possible ? if yes can anyboxy give the code for this checkbox trigger ?
Thanks in Advacne
Devender

Answer 1

Hello,
Apply this in a When-Checkbox-Changed trigger:
Declare
   -- Record being modified --
   LN$CurRec pls_integer := :system.cursor_record ;
   LN$Rec    pls_integer := 1 ;
Begin
   If :BLOC.CB1 = 'O' Then
      -- Goto first record --
      First_record ;
      Loop
         If LN$Rec <> LN$CurRec Then
            -- record <> current record --
            :BLOC.CB1 := 'N' ;
         End if ; 
         If :system.last_record = 'TRUE' Then
            Exit ;
         End if ;
         -- Goto next record --
         Next_record ;
         LN$Rec := LN$Rec + 1 ;
      End loop ;
      -- Jump to current record --                
      Go_Record( LN$CurRec );
   End if ;
End ;Francois