procedure RaporLoad;
	Begin
  SetViewCaption('BASLIK', 'PARADOX ÖZET HESAP LİSTESİ');

// Select Kullanılırsa  
//  AddQueryToSQL('KullaniciQ', 'WHERE KARTNO IN (' + FFilter + ')');

// Filtre Kullanılırsa
  if FFilter <> '' Then
    AddQueryToSQL('KullaniciQ', ' AND ' + FFilter);
  AddQueryToSQL('KullaniciQ', 'ORDER BY FIRMAKODU');
End;

Function RaporFileName: String;
Begin
  Result:= ParsDir + 'Cari Kart Raporları\HesapListesi\OzetHesapListesi.fr3';
End;

Function RaporDefaultSQL: String;
Begin
  Result:= 'SELECT KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI, BAKIYE, TELEFON1, TELEFON2, FAKS, KOD1, KOD2, KOD3, KOD4, KOD5, ' + 
    ' ISNULL((SELECT SUM(BORC) FROM CARIDOKUM WHERE CARIID = C.KARTNO), 0) AS BORC, ' +
	' ISNULL((SELECT SUM(ALACAK) FROM CARIDOKUM WHERE CARIID = C.KARTNO), 0) AS ALACAK, ' + 
	' ISNULL((SELECT SUM(ISNULL(BORC, 0)) - SUM(ISNULL(ALACAK, 0)) FROM CARIDOKUM WHERE CARIID = C.KARTNO), 0) AS BAKIYE ' + 
	' FROM TBLCARI C WITH(INDEX=TBLCARI_KARTNO) WHERE DELETED = 0';
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 KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI, BAKIYE, TELEFON1, TELEFON2, FAKS, KOD1, KOD2, KOD3, KOD4, KOD5, ' + 
    ' ISNULL((SELECT SUM(BORC) FROM CARIDOKUM WHERE CARIID = C.KARTNO), 0) AS BORC, ' +
	' ISNULL((SELECT SUM(ALACAK) FROM CARIDOKUM WHERE CARIID = C.KARTNO), 0) AS ALACAK, ' + 
	' ISNULL((SELECT SUM(ISNULL(BORC, 0)) - SUM(ISNULL(ALACAK, 0)) FROM CARIDOKUM WHERE CARIID = C.KARTNO), 0) AS BAKIYE ' + 
   '  FROM TBLCARI C WITH(INDEX=TBLCARI_KARTNO) WHERE 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;FIRMAUNVANI:0;BORC;ALACAK;BAKIYE;TELEFON1;TELEFON2;FAKS;KOD1;KOD2;KOD3:0;KOD4:0;KOD5:0', 
	 'Firma Kodu;Firma Adı;Firma Ünvanı;Borç;Alacak;Bakiye;1. Telefon;2. Telefon;Faks;Ö.Kod 1;Ö.Kod 2;Ö.Kod 3;Ö.Kod 4;Ö.Kod 5', 
	  0);
  End;
 End;

Begin
End.