سلام يااصدقاء

قي الصوره المرفقه اريد ان اختار اكثر من سجل وبالنقر على (Post) يعمل update للسجلات المحدده

 

المشكله انه مايعمل update الا لاول سجل فقط 

وهذا هو الكود الي تحت الزرPost;

 

 

DECLARE
X NUMBER;
cursor c1 is select * from F_CONT_TRAN where (CONT_STATUS=:LIST1 AND LINE=:LINE_CODE)or (CONT_STATUS=:LIST3 AND LINE=:LINE_CODE);
c F_CONT_TRAN%rowtype; 


BEGIN


open c1;
   loop 
   fetch c1 into c;
  
if :post=1 then


  :CONT_STATUS:='RESHIPPED EMPTY';
 :V_NAME_EXP:=:VESSEL_NAME1;
 :TRIP_NO_EXP:=:VOYNO;
 :BERTH_DATE_EXP:=:BD;
 :RSE_DATE:=:BD;


/*UPDATE F_CONT_TRAN 
 SET CONT_STATUS='RESHIPPED EMPTY',V_NAME_EXP=:VESSEL_NAME1,TRIP_NO_EXP=:VOYNO,BERTH_DATE_EXP=:BD,RSE_DATE=:BD 
 WHERE CODE=:VIEWF_CONT_TRAN1.code and :VIEWF_CONT_TRAN1.post=1; */ 


end if;
exit when c1%notfound;
end loop;
   close c1;
           


-
COMMIT;
end if;


end if;


END;

 

 

 

تم تعديل 30 أغسطس 20169 سنة بواسطة Ahmad.Hasan

go_block('yourblock') ;

first_record ;

loop

post ;

exit when :system.last_record = 'TRUE' ;

next_record ;

end loop ;

تم تعديل 30 أغسطس 20169 سنة بواسطة Ahmad.Hasan