mounes13 بتاريخ: 27 فبراير 2017 تقديم بلاغ مشاركة بتاريخ: 27 فبراير 2017 السلام عليكم اخواني لدي مشكل في هذا البلوك؛ عند الحفض اريده ياخذ ال الجديد دون حفض ال القديم كل ما اقرأ البلوك يحفض القديم والجديد 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 ; اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
mounes13 بتاريخ: 27 فبراير 2017 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 27 فبراير 2017 http://img11.hostingpics.net/pics/839666imp.png اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
mounes13 بتاريخ: 27 فبراير 2017 كاتب الموضوع تقديم بلاغ مشاركة بتاريخ: 27 فبراير 2017 (معدل) الصورة في المرفق https://www.noelshack.com/2017-09-1488200529-imp.png تم تعديل 27 فبراير 2017 بواسطة mounes13 اقتباس رابط هذا التعليق شارك المزيد من خيارات المشاركة
Recommended Posts
انضم إلى المناقشة
يمكنك المشاركة الآن والتسجيل لاحقاً. إذا كان لديك حساب, سجل دخولك الآن لتقوم بالمشاركة من خلال حسابك.