السلام عليكم اخواني 

لدي مشكل في هذا البلوك؛ عند الحفض اريده ياخذ ال  الجديد دون حفض ال  القديم كل ما اقرأ البلوك يحفض القديم والجديد

 

 

PROCEDURE insert_suivi_susp IS
 begin  
  
BEGIN
declare
y number;
x number;
xx number;
xxx number ;
begin
xx:=GET_BLOCK_PROPERTY('CLIENT_RECOUV',TOP_RECORD);
  xxx:=GET_BLOCK_PROPERTY('CLIENT_RECOUV',CURRENT_RECORD );
    go_block('CLIENT_RECOUV');
first_record;


loop
-- y:= TEST_RECORD(:client_recouv.susp_sms,:client_recouv.susp_lr,:client_recouv.susp_LMD1,:client_recouv.susp_LMD2,:client_recouv.susp_SOMM,:client_recouv.susp_CRD,:client_recouv.cli);


 if :client_recouv.susp_sms is not null or :client_recouv.SUSP_LMD1 is not null or :client_recouv.SUSP_LMD2 is not null or 
:client_recouv.SUSP_SOMM is not null or :client_recouv.SUSP_CRD is not null or :client_recouv.SUSP_LR is not null  then 
  begin
select nvl(max(numsusp),0)+1 into x from SUIVI_SUSP a
WHERE  a.cli = :client_recouv.cli;
 exception when no_data_found then x:=1;end;




   INSERT INTO SUIVI_SUSP(MATUSER,DATE_SUSP,SUSP_SMS,SUSP_LMD1,SUSP_LMD2,SUSP_SOMM,SUSP_CRD,SUSP_LR,NUMSUSP,cli)
     VALUES(:global.matricule,sysdate,:client_recouv.susp_sms,:client_recouv.SUSP_LMD1,:client_recouv.SUSP_LMD2,:client_recouv.SUSP_SOMM,
     :client_recouv.SUSP_CRD,:client_recouv.SUSP_LR,x,:client_recouv.cli) ;  
     
else 
  NEXT_record ;
  
 if :client_recouv.susp_sms is not null or :client_recouv.SUSP_LMD1 is not null or :client_recouv.SUSP_LMD2 is not null 
    or :client_recouv.SUSP_SOMM is not null or :client_recouv.SUSP_CRD is not null or :client_recouv.SUSP_LR is not null then 
        
      begin
select nvl(max(numsusp),0)+1 into x from SUIVI_SUSP a
WHERE  a.cli = :client_recouv.cli; exception when no_data_found then x:=1;end;
      
    INSERT INTO SUIVI_SUSP(MATUSER,DATE_SUSP,SUSP_SMS,SUSP_LMD1,SUSP_LMD2,SUSP_SOMM,SUSP_CRD,SUSP_LR,NUMSUSP,cli)
     VALUES(:global.matricule,sysdate,:client_recouv.susp_sms,:client_recouv.SUSP_LMD1,:client_recouv.SUSP_LMD2,
     :client_recouv.SUSP_SOMM,:client_recouv.SUSP_CRD,:client_recouv.SUSP_LR,x,:client_recouv.cli);  
  end if ;




EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
next_RECORD;
end if;
end loop;
commit;


go_block('CLIENT_RECOUV');
execute_query;
SYNC_BLOCK('CLIENT_RECOUV',xxx,xx);
end;
end;
end ;

http://img11.hostingpics.net/pics/839666imp.png

الصورة في المرفق

https://www.noelshack.com/2017-09-1488200529-imp.png

تم تعديل 27 فبراير 20179 سنة بواسطة mounes13