procedure RaporLoad;
Begin
End;

Function RaporFileName: String;
Begin
  Result:= '';
End;

Function RaporDefaultSQL: String;
Begin
  Result:= '';
End;

procedure Start;
Begin
End;

Procedure Finish;
Begin
End;

Function ReadFilter(Var F: String): Boolean;
Begin
  Result:= ReadSQLFilter('TBLCARI', 'Select * from TBLCARI', 'DELETED = 0', 'FIRMAKODU; FIRMAADI; FIRMAUNVANI', 'Firma Kodu;Firma Adı;Ünvanı', 
        'FIRMAKODU; FIRMAADI; FIRMAUNVANI', 'FIRMAKODU;FIRMAADI;FIRMAUNVANI;RISKLIMITI;VERGIDAIRESI;VERGINO;URL;EMAIL;KOD1;KOD2;KOD3;KOD4;KOD5',
		'Firma Kodu; Firma Adı;Ünvanı;Risk Limiti;Vergi Dairesi;Vergi Nosu;WEB Adresi;E-Mail;Özel Kod 1;Özel Kod 2;Özel Kod 3;Özel Kod 4;Özel Kod 5',
        'FIRMAKODU', 'KARTNO', F);End;

Function ReadSQL(W: String): String;
Begin
  Result:= 'SELECT FIRMAKODU, FIRMAADI, BELGENO, TARIH, TUTARI FROM TBLCARI WITH(INDEX=TBLCARI_KARTNO) ' + 
    ' INNER JOIN TBLSATFATBASLIK WITH(INDEX=TBLSATFATBASLIK_KARTNO) ON (TBLCARI.KARTNO = TBLSATFATBASLIK.CARIID) ' + 
	' WHERE   TBLCARI.DELETED = 0 AND  TBLSATFATBASLIK.DELETED = 0';
  if W <> '' Then
    Result:= Result + ' AND ' + W;
End;

procedure Execute;
Var
  IDS: String;
Begin
  if ReadFilter(IDS) Then
  Begin
    CreateReport(IDS, ReadSQL(IDS), 
     'FIRMAKODU;FIRMAADI;BELGENO;TARIH;TUTARI', 
	 'Firma Kodu;Firma Adı;Belge No;Tarih;Tutarı', 
	  0);  
  End;
 End;

Begin
End.