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

// Filtre Kullanılırsa
  if FFilter <> '' Then
  Begin
    SetQueryParam('ekstreQ', 'KARTNO', StrToInt(FFilter));
	SetQueryParam('cariQ', 'KARTNO', StrToInt(FFilter));
  End;
End;

Function RaporFileName: String;
Begin
  Result:= ParsDir + 'Cari Kart Raporları\Hesap Ekstresi\Hesap Extresi.fr3';
End;

Function RaporDefaultSQL: String;
Begin
  Result:= 'SELECT '#13#10 +
    '   CARIDOKUM.ID, CARIDOKUM.CARIID, CARIDOKUM.KAYITTARIHI, CARIDOKUM.KARTNO,  CARIDOKUM.TARIH, CARIDOKUM.BELGENO, CARIDOKUM.ISLEM, CARIDOKUM.DOVIZ, '#13#10 +
    '   CARIDOKUM.AY, CARIDOKUM.YIL,  CARIDOKUM.TLDURUM, CARIDOKUM.CARIDURUM, TUTARI, ISLEMTIPI, KUR, ALACAK, BORC, TLALACAK, TLBORC, CARIBORC, CARIALACAK '#13#10 +
    ' FROM CARIDOKUM  LEFT OUTER JOIN TBLCARI ON TBLCARI.KARTNO = CARIDOKUM.CARIID '#13#10;
End;

procedure Start;
Begin
End;

Procedure Finish;
Begin
End;

Function ReadFilter(Var F: String): Boolean;
Var
  B: Boolean;
  IDS: String;
Begin
  IDS:= SelectRecord('SELECT KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI FROM TBLCARI', 
     'FIRMAKODU;FIRMAADI;FIRMAUNVANI', 
	 'Firma Kodu;Firma Adı;Firma Ünvanı', 
	 'KARTNO', 
	 'Firma Kodu / Adı / Ünvanı', 
	 'FIRMAKODU;FIRMAADI;FIRMAUNVANI', 
	 False);
  Result:= IDS <> '';
  if Result Then
    F:= IDS;
End;

Function ReadSQL(W: String): String;
Begin
  Result:= 'SELECT '#13#10 +
    '   CARIDOKUM.ID, CARIDOKUM.CARIID, CARIDOKUM.KAYITTARIHI, CARIDOKUM.KARTNO,  CARIDOKUM.TARIH, CARIDOKUM.BELGENO, CARIDOKUM.ISLEM, CARIDOKUM.DOVIZ, '#13#10 +
    '   CARIDOKUM.AY, CARIDOKUM.YIL,  CARIDOKUM.TLDURUM, CARIDOKUM.CARIDURUM, TUTARI, ISLEMTIPI, KUR, ALACAK, BORC, TLALACAK, TLBORC, CARIBORC, CARIALACAK '#13#10 +
    ' FROM CARIDOKUM  LEFT OUTER JOIN TBLCARI ON TBLCARI.KARTNO = CARIDOKUM.CARIID '#13#10 +
    ' Where CARIID = ' + W + #13#10;
  Result:= Result + ' ORDER BY CARIDOKUM.TARIH, CARIDOKUM.KAYITTARIHI';
End;

procedure OnCreateReport;
Begin
  CalcEkstreFromActivePage;

  CreateSummary('CARIBORC', skSum);
  CreateSummary('CARIALACAK', skSum);
End;

procedure Execute;
Var
  IDS: String;
Begin
  if ReadFilter(IDS) Then
  Begin
    CreateReport(IDS, ReadSQL(IDS), 
      'TARIH;BELGENO;ISLEM;CARIBORC;CARIALACAK;CARIDURUM;TLBORC:0;TLALACAK:0;TLDURUM:0', 
	  'Tarih;Belge No;İşlem;Borç;Alacak;Durum;TL Borç;TL Alacak;TL Durum', 
	  0);
  End;
End;

Begin
End.