مساعدة Show Alert

انا لما بحط show alert داخل loop
بيظهرalert
لكن لما بنقلة تحت loop مش بيظهر مش عارف لية
ودة الكود

declare 
T_filename Text_Io.File_Type;
T_filename1 Text_Io.File_Type;
w_NewLine varchar(40);
y varchar2(100);
n number;
a varchar2(40);
b varchar2(40);
b1 number;
m number(3);
c varchar2(40);
c1 date;
s varchar2(5);
x varchar2(5);
z varchar2(5);
y1 varchar2(20);
k varchar2(2);
f number;
i varchar2(4);
Begin if :block4.txt is null then 
	n:=show_alert('alert1');
else

y:=:block4.txt;
T_filename := Text_Io.Fopen(y, 'R');
T_filename1 := Text_Io.Fopen('c:\test.txt', 'W');

loop


Text_IO.Get_Line(T_filename,w_NewLine);
a:=substr(w_NewLine,7,3);
a:=to_number(a);
if a>99 then 
a:='000000000'||a;
end if;
if a>9 and a<99 then
a:='0000000000'||a;
end if;
if a<9 and a>0 then
a:='00000000000'||a;
end if;
b:=substr(w_NewLine,33,1);
b1:=to_number(;
if b1=1 then
b:='B';
end if;
if b1=0 then
b:='A';
end if;
s:=substr(w_newline,11,4);
x:=substr(w_newline,16,2);
z:=substr(w_newline,19,2);
y1:=z||'/'||x||'/'||s;
c1:=to_date(substr(w_NewLine,21,10),'hh24:mi:ss');
i:=to_char(c1,'hh24');
c:=to_char(c1,'hh:mi:ss ');


f:=to_number(substr(c,1,2));
if i>=12 then
k:='ã';
else
k:='Õ';
end if;
Text_Io.Put_Line(T_filename1,a||','||b||','||y1||' '||c||' '||k);

end loop;
m:=show_alert('alert2');
Text_Io.Fclose(T_filename);
	Text_Io.Fclose(T_filename);
		m:=show_alert('alert2');
	
end if;
--	SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'default');
message('ÇäÊåì');

exception
	 When no_data_found Then
   text_io.fclose(T_filename);
   

END;

ممكن مساعدة

تم تعديل 20 أبريل 201016 سنة بواسطة sors