لدي نظام فندقي  فيه فورم فيه بيانات تسجيل نزيل  اريد ان احفظ البيانات الى ثلاثه جداول

 

جدول البيانات الاضافيه

 

 

create table add_info

(

addinf_id     number(10)     primary key,

res_date      date           default sysdate,        

cust_no       number(5)      not null,

crnc_id        number(5)    references currency(crnc_id)   not null,

pway          char(1)        not null,

rect_id       number(10)     references  receipt(rect_id),

all_cost      number(10)     not null,

pay_cost      number(10)     not null,

res_sdate     date           not null,

res_edate     date           not null

);

 

 

جدول تسجيل نزيل

 

create table Reservation

(

res_id     number(10)   primary key,

res_name   varchar2(50)  not null,

res_phon   number(15)   not null,

res_conf_id    number(1)      default null references confirmation(conf_id),

htl_conf_id    number(1)      default null references confirmation(conf_id) ,

custt_id   number(1)    references  cust_type(custt_id) not null ,

res_for    number(10)   not null,

addinf_id  number(10)   references  add_info(addinf_id)

);

وجدول الغرف  المحجوزه 

 

 

create table reservedroom

(

resrm_id     number(10)     primary key,

rest_id      number(1)      references res_type(rest_id) not null,

res_id       number(10)     references Reservation(res_id),

rcrd_id      number(10)     references custrecord(rcrd_id),

Rm_Id        varchar2(15)    references rooms( Rm_Id),

res_sdate    date           not null,

res_edate    date            not null

);

 

عملت فيه ثلاثه  بلوكات غير مرتبطه بقاعده البيانات بلوك فيه ازرار التحكم وبلوك فيه ارقام الغرف المختاره (التي تم اختيارها من نافذه اخرى) واسعار الغرف وبلوك ثالث دمجت فيه بيانات الجدول الاول و الثاني المذكور اعلاه وكتبت الكود التالي لعمليه الاضافه

 

زر اضافه

WHEN-BUTTON-PRESSED

declare

 n number;

begin

                IF :GLOBAL.I=1 THEN

                --             set_item_property('bupdate',enabled,property_true);

   --- set_item_property('rms_name',enabled,property_true);

    clear_form;

    go_item('res_NAME');

    select NVL(max(res_id),0)+1 into :res_id from RESERVATION;

                                select NVL(max(addinf_id),0)+1 into :a_addinf_id from add_info;

                                                 

  

                ELSE

                                set_block_property('RESERVATION',insert_allowed,property_false);

    --set_item_property('rms_name',insert_allowed,property_false);

                                MESSAGE('åÐÇ ÇáãÓÊÎÏã áÇ íãáß ÕáÇÍíÉ ÇáÇÖÇÝå');

                                MESSAGE('åÐÇ ÇáãÓÊÎÏã áÇ íãáß ÕáÇÍíÉ ÇáÇÖÇÝå');                                         

                END IF;

  end;

---------------------------------------------------------------------------

زر حفظ

WHEN-BUTTON-PRESSED

 

declare

                n number;

                CR NUMBER:=0;

                resrm_id1 reservedroom.resrm_id%type;

begin    

     n:=show_alert('alsave');

   if n=alert_button1 then

                   

                   insert into add_info

                     values(:a_addinf_id,:res_date,:cust_no,:L_CRNC,:pway,:reservation.rect_id,:all_cost,:pay_cost,:res_sdate,:res_edate);

                     forms_ddl('commit');

                   insert into reservation

                     values(:res_id,:res_name,:res_phon,:res_sur,:htl_sur,:custt_id,:res_for,:a_addinf_id);

                     forms_ddl('commit');

                     

                  /*   go_block('RES_ROOM');

                     set_block_property('RES_ROOM',insert_allowed,PROPERTY_true);

                     select NVL(max(resrm_id),0)+1 into RESRM_ID1 from RESERVedroom;

                     first_record;

                     for i in 1..:parameter.list_count loop

                                   

                                                   insert into reservedroom

                                                     values(resrm_id1,1,:RESERVATION.res_id,0,:RES_ROOM.rm_id,:RESERVATION.res_sdate,:RESERVATION.res_edate);

                                                  RESRM_ID1:=RESRM_ID1+1; 

                                                   next_record;

                     end loop;

                     first_record;*/

                     

                     

                     set_block_property('RES_ROOM',insert_allowed,PROPERTY_true);

                   select NVL(max(resrm_id),0)+1 into RESRM_ID1 from RESERVedroom; 

                     go_block('RES_ROOM');

                     LAST_RECORD;

                                CR:=get_block_property('RES_ROOM',CURRENT_RECORD);

                     first_record;

                   -- :RESERVATION.tt:=RESRM_ID1;

                     FOR I IN 1..CR loop

                                   

                                                   insert into reservedroom

                                                     values(resrm_id1,1,:RESERVATION.res_id,0,:RES_ROOM.rm_id,:RESERVATION.res_sdate,:RESERVATION.res_edate);

                                                  -- forms_ddl('commit');

                                                   RESRM_ID1:=RESRM_ID1+1; 

                                                   next_record;

                     end loop;

                     first_record;

                    

                    

                        forms_ddl('commit');

                        set_block_property('RES_ROOM',insert_allowed,PROPERTY_FALSE);

                  -- clear_form;

                 

   else

                  null;

   end if;

end; 

--------------------------------------------------------------------

المشكله تظهر عندالاضاف لجدول   reservedroom  وتظهر الرساله 

FRM-40735: %s trigger raised unhandled exception %s.  ora-02291

 

 

مع العلم انه عندما الغي عمليه الاضافه للجدول  reservedroom  تتم الاضافه للجدولين السابقين  

 

ارجو الافاده مع جزيل الشكر

 

 

 

 

 

 

السلام عليكم

 

اخي ارفق لي الفورم

لقد ارفقت الفورم اخ  nadmoney    الى بريدك الالكتروني ولكن لم القى اي اجابه ارجو مساعدتي لانه معلق المشروع على هذه المشكله

غير مرفق الفورم

 

ارفق فورم 6i

السلام عليكم

 

معليش  انا في معي مشكلة في الايميل ارفع في المنتدى

شكرا اخي لكن لم استطع ارسال الفورم عن طريق المنتدى اضافه الى ان الفورم الذي اعمل عليه 10g فاذا كان معك اي شئ ممكن يساعدني في هذه المشكله نكون شاكرين وعفوا على الازعاج

ارسل لي الفورم اخي 

والله كان ودي اساعدك

 

انشاء الله تحتل مشكلتك

ارسل لي الفورم اخي 

لقد ارسلت لك الفورم عبر بريدك وشكرا لاهتمامك

اخي يوجد table غير موجودة

currency,cust_type

 

 

ارسل لي الفورم اخي 

لقد ارسلت لك الفورم عبر بريدك وشكرا لاهتمامك

 

لقد ارسلتها

لقد ارسلتها

ارجو الرد على الايميل