السلام عليكم 
 لو سمحت انا عامله 
block Manuel 
وبدخل في داتا بتسمع في تيبل في داتا بيز بيعمل حفظ عادي لما مبيكنش في داتا ظاهرة في بلوك 
 ولكن عند وجود داتا وانا عاوزة اضيف داتا اخري مبيعملش حفظ ممكن حل

دة كود الي جوة button

begin
go_block('block9');
first_record;

for z in (select * from attrans where DATE_ATT = :block9.t3 and CARD_ID = :block3.tc)

loop
if z.TIME_ATT is null then
p_insert1;
p_insert22;
else
next_record;
end if ;
--next_record;
end loop;
standard.commit;
end;

1- دول منعرفش مكتوب فيهم ايه 

p_insert1;
p_insert22;

 

2- المفروض دى next_record; تبقى بعد END IF; لانك ممكن تدخلى اكتر من ريكورد؟ ففى الحالتين لازم ينزل على الريكورد الى بعده.

3- اتعودى تسمى اى OBJECT فى اى حتة في الشاشة او الداتابيز اسم ليه معنى.

4- لحفظ داتا تم ادخالها عن طريق Explicit DML Statements استخدمى forms_dll('commit'); . 

5- no changes to save message كده كده هتظهر حتى لو تم الحفظ.

تم تعديل 23 مايو 20179 سنة بواسطة eslam elbyaly

1- دول منعرفش مكتوب فيهم ايه 

p_insert1;

p_insert22;

 

2- المفروض دى next_record; تبقى بعد END IF; لانك ممكن تدخلى اكتر من ريكورد؟ ففى الحالتين لازم ينزل على الريكورد الى بعده.

3- اتعودى تسمى اى OBJECT فى اى حتة في الشاشة او الداتابيز اسم ليه معنى.

4- لحفظ داتا تم ادخالها عن طريق Explicit DML Statements استخدمى forms_dll('commit'); . 

5- no changes to save message كده كده هتظهر حتى لو تم الحفظ.

 

PROCEDURE p_insert1 IS
BEGIN




  insert into  attrans ( CARD_ID , DATE_ATT , time_att ,TRANSACTION_TYPE ,PROCESSED ,SHIFT_NO ,SHIFT_TYPE) values (  :tc , :t3 , :t5 , '1'  ,'','','' );




standard.commit;
END;

مفيهاش حاجة بتقول NEXT_RECORD

تم تعديل 23 مايو 20179 سنة بواسطة eslam elbyaly