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;
Var 
  I: Integer;
Begin
  F:= '';
  Result:= InputRadio('Ocak;Şubat;Mart;Nisan;Mayıs;Haziran;Temmuz;Ağustos;Eylül;Ekim;Kasım;Aralık', 
     'Personel Maaş Bordrosu',
	 'Maaş Bordrosu Alınacak Ayı Seçin',
	 'Bordro Ayı', I);
  if Result Then
    F:= IntToStr(I + 1);
  
End;

Function ReadSQL(W: String): String;
Begin
  Result:= 'SELECT ' + 
	     '   AD + '' '' + SOYAD AS PERSONEL, ACIKLAMA, ALACAK ' + 
		 ' FROM TBLPERSONELHAREKET PH ' +
		 ' LEFT OUTER JOIN TBLPERSONEL P WITH(INDEX=TBLPERSONEL_KARTNO) ON P.KARTNO = PH.PERSONELID ' +
		 ' WHERE PH.TIP = 1 AND DATEPART(MONTH, TARIH) = ' + W + ' AND DATEPART(YEAR, TARIH) = DATEPART(YEAR, GETDATE()) ' ;

  Result:= Result + ' ORDER BY AD, SOYAD';	
End;

procedure Execute;
Var
  ay: String;
Begin
  if ReadFilter(ay) Then
    CreateReport(ay, readSQL(ay),
     'PERSONEL;ACIKLAMA;ALACAK', 
	 'Personel;Açıklama;Maaş', 
	  0);
  
  CreateSummary('PERSONEL', skCount); 
  CreateSummary('ALACAK', skSum); 
End;

Begin
End.