Function DefaultSQL(W: String): String;
Begin
  Result:= 'Select '#13 +
    '   EvrakTipi, '#13 +
    '   Case E.STATUS '#13 +
    '     When 0 Then ''Portföyde'' '#13 +
    '     When 1 Then ''Ödendi'' '#13 +
    '     When 2 Then ''Kısmen Ödendi'' '#13 +
    '     When 3 Then ''Ciro'' '#13 +
    '     When 4 Then ''İade Edildi'' '#13 +
    '     When 5 Then ''Teminat Verildi'' '#13 +
    '     When 6 Then ''Zimmette'' '#13 +
    '     When 7 Then ''Takasta'' '#13 +
    '   END AS EDURUM, '#13 +
    '   E.PORTFOYNO, '#13 +
    '   E.VADE, '#13 +
    '   DATEPART(MONTH, E.VADE) AS VADEAY, '#13 +
    '   DATEPART(YEAR, E.VADE) AS VADEYIL, '#13 +
    '   E.TUTARI, '#13 +
    '   E.PARABIRIMI, '#13 +
    '   E.GIRISTARIHI, '#13 +
    '   E.GFIRMAKODU, '#13 +
    '   E.GFIRMAADI, '#13 +
    '   E.TARIH, '#13 +
    '   E.CFIRMAKODU, '#13 +
    '   E.CFIRMAADI '#13 +
    ' from TUMEVRAKLAR E '#13 + 
    ' WHERE E.STATUS = 0'#13;
	
  	
  if W <> '' Then 
    Result:= Result + ' AND E.ISLEM IN(' + W + ')';
	

  Result:= Result + #13' ORDER BY E.VADE ';
End;

procedure RaporLoad;
Begin
  if FFilter <> '' Then
	AddQueryToSQL('KullaniciQ', ' AND E.ISLEM IN(' + FFilter + ')');
  
  AddQueryToSQL('KullaniciQ', 'ORDER BY E.VADE');
End;

Function RaporFileName: String;
Begin
  Result:=  ParsDir + 'Cari Kart Raporları\Finansal Raporlar\Portföyler\Portfoyum.fr3';
End;

Function RaporDefaultSQL: String;
Begin
  Result:=  DefaultSQL('');
End;

procedure Start;
Begin
End;

Procedure Finish;
Begin
End;

Function ReadFilter(Var S: String): Boolean;
  procedure AddEvrak(E: String);
  Begin
    if S <> '' Then
	  S:= S + ',';
	S:= S + E; 
  End;
Var
  I: Integer;
Begin
  Result:= False;
  if InputCheck('Çek;Senet;VISA;Dekont', 'Evrak Seçin', 'Rapor Almak İstediğiniz  Evrakları Seçin', 'Evrak', I) Then
  Begin
    Result:= True;
	S:= '';
	if I And  2 =  2 Then S:= '1,4';
	if I And  4 =  4 Then AddEvrak('2,5');
	if I And  8 =  8 Then AddEvrak('3,6');
	if I And 16 = 16 Then AddEvrak('7');
  End;
End;
 
Function ReadSQL(W: String): String;
Begin
End;

procedure Execute;
Var
  S: String;
Begin
  if ReadFilter(S) Then
  Begin  
    CreateReport(S, DefaultSQL(S), 
     'EvrakTipi;EDURUM;PORTFOYNO;VADE;VADEAY:0;VADEYIL:0;TUTARI;PARABIRIMI:0;GIRISTARIHI;GFIRMAKODU:0;GFIRMAADI;TARIH;CFIRMAKODU:0;CFIRMAADI', 
	 'Evrak;Durum;Portföy No;Vade;Vade Ay;VAde Yıl;Tutarı;P.B.;Gir. Tar.;Gir.Firma Kodu;Gir. Firma Adı;Çık Tarihi;Çık. Firma Kodu;Çık. Firma Adı', 
	  0);
	  
    CreateSummary('TUTARI', skSum); 
	CreateSummary('PORTFOYNO', skCount); 
  End;
End;

Begin
End.