Procedure'den cikmak,

[NightFox]

belki cok basit bir seydir ama yapamadim henuz.

//kayit butonu
procedure TForm1.Button6Click(Sender: TObject);
begin
AdoQuery3.Close;
AdoQuery3.SQL.Clear;
AdoQuery3.SQL.Add('SELECT * FROM PUNCH_WORKS WHERE PUNCH_STATUS = ''OPEN'' AND POCKET_NO = ('''+Edit1.Text+''') ');
AdoQuery3.Open;
if AdoQuery3.RecordCount<>0 then begin
if MessageDlg('This package has remaining punch! It cannot be submitted to PFD! Would you like to see them ?'#13+'?',
mtConfirmation,[mbYes,mbNo], 0) = mrYes then
begin
Form17.AdoQuery2.Close;
Form17.AdoQuery2.SQL.Clear;
Form17.AdoQuery2.SQL.Add('SELECT * FROM PUNCH_WORKS WHERE PUNCH_STATUS = ''OPEN'' AND POCKET_NO = ('''+Edit1.Text+''') ');
Form17.AdoQuery2.Open;
Form17.Show;
exit; //procedure'den nasil cikarim ???
end;
//Asagidaki kodlarin calismasini istemiyorum.
if Form2.ADOTable1.FieldByName('CAT1_CONST_SUB').AsString<>'' then else begin
Form2.ADOTable1.FieldByName('POCKET_STATUS').AsString:='WAITING FOR PFD APPROVED';
Form2.ADOTable1.Post;
end;
Form2.ADOTable1.Edit;
if Form2.ADOTable1.FieldByName('CAT1_CONST_SUB').AsString='' then else begin
Form2.ADOTable1.FieldByName('POCKET_STATUS').AsString:=Label5.Caption;
Form2.ADOTable1.Post;
end;
Form2.ADOTable1.Edit;
if Form2.ADOTable1.FieldByName('CAT1_NEWS_SUB').AsString='' then else begin
Form2.ADOTable1.FieldByName('POCKET_STATUS').AsString:=Label7.Caption;
Form2.ADOTable1.Post;

[NightFox]

Tesekkurler ben buldum, uzun sure ugrasinca kafa kalmiyor. baska bir yontem ile cozdum.

tsk.

[aslangeri]

s.a.
çözdüğünüz yöntemide yazsaydınız keşke.
neyse çalışmalarınızda başarılar.

[tuanna]

evet ya arkadaşlar burası sorun çözmek değil çözüm paylaşma ortamı ...

[ertemsoft]

selam procedure lerden çıkmak istediğimde ben şu yöntemi kullanıyorum

Procedure xxxx.xxxx
Label kac;
begin
while not table1.eof do
begin
if table1KODU.AsInteger > 100 then goto kac;
table1.next;
end;
kac:

end;

[aslangeri]

s.a.
@ertemsoft labelleri kullanmanı tavsiye etmem.
procedureden çıkmak için gerekli yerde exit
komutunu vermen yeterli.