procedure TWizardEmlakBorc.btnOdgerClick(Sender: TObject);
begin
with dataEmlakBorc do
begin
Close;
SelectSQL.Clear;
SelectSQL.Add('SELECT EMLAKBORC.UID, EMLAKBORC.SICILID, EMLAKBORC.EMLAKID,' +
' EMLAKBORC.BORC, EMLAKBORC.ODEMETARIH,EMLAKBORC.ODENDI,EMLAKBORC.BASILDI,EMLAKBORC.EMLAKDONEMID, EMLAKBORC.GECIKME,' +
' EMLAKBORC.DURUM,' +
' EMLAKBORC.TOPLAMBORC,' +
' EMLAKBORC.FATURANO,' +
' EMLAKBORC.BEYANTURUAD,' +
' EMLAKBORC.ADSOYAD,' +
' EMLAKDONEM.FAIZYUZDE,' +
' EMLAKDONEM.SONODEMETARIHI,' +
' EMLAKDONEM.DONEMADI,' +
' EMLAK.BEYANYILI,' +
' EMLAK.BEYANTARIHI,' +
' EMLAK.BEYANTURU,' +
' EMLAK.PAFTA,EMLAK.ADA,EMLAK.PARSEL' +
' FROM EMLAKBORC, EMLAKDONEM, EMLAK WHERE' +
' (EMLAKBORC.EMLAKDONEMID = EMLAKDONEM.UID) AND' +
' (EMLAKBORC.EMLAKID = EMLAK.UID) AND (EMLAKBORC.ODENDI=0) AND' +
' (EMLAKBORC.BASILDI=0) AND (EMLAKBORC.SICILID=:SICILID)');
Params[0].Value := SICILID;
Open;
end;
end;