procedure Start;
Begin
End;

Procedure Finish;
Begin
End;

Function ReadFilter(Var F: String): Boolean;
Begin
  F:= '';
  Result:= True;
End;

Function ReadSQL(W: String): String;
Begin
  Result:= 'Select '#13 +
		'   STOKKODU, CINSI, M.BARKOD AS MUADILKOD, B.BARKOD, B.SATISFIYATI1 '#13 +
		' from TBLBIRIMMUADILKOD M '#13 +
		' LEFT OUTER JOIN TBLBIRIMLEREX B ON M.BIRIMKARTNO = B.KARTNO '#13 +
		' LEFT OUTER JOIN TBLSTOKLAR S ON S.KARTNO = B.STOKID '#13 +
		' WHERE ISNULL(B.KARTNO, 0) <> 0 ';
End;

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

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

procedure Execute;
Var
  IDS: String;
Begin
  if ReadFilter(IDS) Then
  Begin    
    CreateReport(IDS, ReadSQL(IDS), 
     'STOKKODU;CINSI;MUADILKOD;BARKOD;SATISFIYATI1', 
	 'Stok Kodu;Cinsi;Muadil Kod;Barkod;1. Sat. F.', 
	  0);
    CreateSummary('STOKKODU', skCount);
  End;
End;

Begin
End.
