ارجوكم ياجماعة حد يقولى الخطا فين هنا ارجوكم

declare
a date;
b number(5);
n number(3);
m number(3);
h number(3);
begin select id,to_time into b,a from car_drivers
where :cars1.car_no=car_no and id=(
   select max(id) 
from car_drivers
)
;
if :global.var=1 then
if a is null then
n:=show_alert('alt');
else
if
:cars1.car_no is not null then

insert into car_drivers values
(trip_seq.nextval,:cars1.car_no,to_number(:cars1.drv),:cars1.go_date,'',:cars1.des,to_number(:cars1.nu_before),'',
:cars1.ename);


set_item_property('drv',visible,property_false);
set_item_property('go_date',visible,property_false);
set_item_property('des',visible,property_false);
set_item_property('nu_before',visible,property_false);
set_item_property('ename',visible,property_false);
go_item('listview0');
set_item_property('ok',visible,property_false);
commit;
end if;
end if;
/*:cars1.drv:='';
:cars1.go_date:='';
:cars1.des:='';
:cars1.nu_before:='';
:cars1.ename:='';
*/
elsif

a is not null then 
	m:=show_alert('alt2');
	else
update car_drivers
set no_kilo_after=to_number(:cars1.nu_after)
,to_time=sysdate
where car_no=:cars1.car_no and id=b;

	set_item_property('drv',visible,property_false);
set_item_property('go_date',visible,property_false);
set_item_property('des',visible,property_false);
set_item_property('nu_before',visible,property_false);
set_item_property('ename',visible,property_false);
	set_item_property('nu_after',visible,property_false);
		go_item('listview0');
set_item_property('ok',visible,property_false);

commit;
end if;
	elsif
 
:global(3).var=3 then
		update car_drivers
		set driver_id_no=to_number(:cars1.drv),
		 from_time=:cars1.go_date,
		 destination=:cars1.des,
		 no_kilo_before=to_number(:cars1.nu_before),
		 ename=:cars1.ename
		 where car_no=:cars1.car_no;
		 commit;
		 
	end if;

exception when no_data_found then

insert into car_drivers values
(trip_seq.nextval,:cars1.car_no,to_number(:cars1.drv),:cars1.go_date,'',:cars1.des,to_number(:cars1.nu_before),'',
:cars1.ename);
commit;
	set_item_property('drv',visible,property_false);
set_item_property('go_date',visible,property_false);
set_item_property('des',visible,property_false);
set_item_property('nu_before',visible,property_false);
set_item_property('ename',visible,property_false);
		set_item_property('drv',visible,property_false);
set_item_property('go_date',visible,property_false);
set_item_property('des',visible,property_false);
set_item_property('nu_before',visible,property_false);
set_item_property('nu_after',visible,property_false);
	go_item('listview0');
set_item_property('ok',visible,property_false);

end;

error اللى بيظهر
encountred symbol""
while expecting one of the following
:=.%,@

تم تعديل 19 يوليو 200916 سنة بواسطة sors

ياريت ترفق الفورم والجدول تتبع الخطأ كده هيكون صعب شوية وكي لاتنتظر الاجابة كتير

ارفق الفورم وان شاء الله سنجد الخطأ
موفق

تم اضافة الفورم

george.rar

يافندم ازاي تتعب واخوانك موجودين
مبدأياً الايرور اللي طالع ده لانك عامل ELSIF ن غير IF
بص كده على التيرجر وتتبع كل IF قافلتها ، هتلاقي ناك قافل كل حالات الIF ومع ذلك وضعت ELSIF

if :global.var=1 then
       if a is null then
           n:=show_alert('alt');
        else
             if
              :cars1.car_no is not null then

               insert into car_drivers values
               (trip_seq.nextval,:cars1.car_no,to_number(:cars1.drv),:cars1.go_date,'',:cars1.des,to_number(:cars1.nu_before),'',
               :cars1.ename);


               set_item_property('drv',visible,property_false);
               set_item_property('go_date',visible,property_false);
               set_item_property('des',visible,property_false);
               set_item_property('nu_before',visible,property_false);
               set_item_property('ename',visible,property_false);
               go_item('listview0');
               set_item_property('ok',visible,property_false);
               commit;
           end if;
       end if;

       elsif a is not null then 
           m:=show_alert('alt2');
       else
           update car_drivers
           set no_kilo_after=to_number(:cars1.nu_after)
           ,to_time=sysdate
           where car_no=:cars1.car_no and id=b;

           set_item_property('drv',visible,property_false);
           set_item_property('go_date',visible,property_false);
           set_item_property('des',visible,property_false);
           set_item_property('nu_before',visible,property_false);
           set_item_property('ename',visible,property_false);
           set_item_property('nu_after',visible,property_false);
           go_item('listview0');
           set_item_property('ok',visible,property_false);

           commit;
       end if;
elsif :global(3).var=3 then

تم تعديل 19 يوليو 200916 سنة بواسطة abdu1_far

انا حاولت فى كل حاجة ياريت حد يقدر يطلعلى مكان الايرور على طول

يافندم مكان الايرور اخر سطر في اللي انا كاتبه
elsif :global(3).var=3 then

خلليها IF مش ELSIF

السلام عليكم
مكان الايرور كما قال اخي عبدالله

تم تعديل 19 يوليو 200916 سنة بواسطة PALI.ORACLE