<?xml version="1.0" encoding="utf-8" standalone="no"?>
<TfrxReport Version="5.3.16" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Varsayılan" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="42383,6559224884" ReportOptions.Description.Text="" ReportOptions.LastChange="42383,7105809954" ScriptLanguage="PascalScript" ScriptText.Text="procedure Memo5OnBeforePrint(Sender: TfrxComponent);&#13;&#10;Var    &#13;&#10;  S: String;                              &#13;&#10;begin&#13;&#10;  S:= '';&#13;&#10;    &#13;&#10;  if Trim(&#60;Banka.&#34;YETKILI&#34;&#62;) &#60;&#62; '' Then S:= &#60;Banka.&#34;YETKILI&#34;&#62;;&#13;&#10;  if Trim(&#60;Banka.&#34;YETKILI2&#34;&#62;) &#60;&#62; '' Then&#13;&#10;  Begin&#13;&#10;    if S &#60;&#62; '' Then&#13;&#10;      S:= S + ' VE ' + &#60;Banka.&#34;YETKILI2&#34;&#62;&#13;&#10;    else&#13;&#10;      S:= &#60;Banka.&#34;YETKILI2&#34;&#62;;                                       &#13;&#10;  End;&#13;&#10;&#13;&#10;  if S &#60;&#62; '' Then&#13;&#10;    S:= S + ' Dikkatine !';&#13;&#10;      &#13;&#10;  memo5.Text:= S;                                   &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo8OnBeforePrint(Sender: TfrxComponent);&#13;&#10;Var&#13;&#10;  S: String;                              &#13;&#10;begin&#13;&#10;  S:= 'FİRMA : '#13'BANKA : ';&#13;&#10;  &#13;&#10;  if Trim(&#60;Cari Kart Banka.&#34;SUBE&#34;&#62;) &#60;&#62; '' Then&#13;&#10;    S:= S + #13 + 'ŞUBE : ';&#13;&#10;&#13;&#10;  if Trim(&#60;Cari Kart Banka.&#34;SUBEKODU&#34;&#62;) &#60;&#62; '' Then&#13;&#10;    S:= S + #13 + 'ŞUBE KODU : ';&#13;&#10;          &#13;&#10;  if Trim(&#60;Cari Kart Banka.&#34;IBANNO&#34;&#62;) &#60;&#62; '' Then&#13;&#10;    S:= S + #13 + 'IBAN NO : ';&#13;&#10;      &#13;&#10;  if Trim(&#60;Cari Kart Banka.&#34;SWIFTKOD&#34;&#62;) &#60;&#62; '' Then&#13;&#10;    S:= S + #13 + 'SWIFT KOD : ';&#13;&#10;&#13;&#10;  S:= S + #13'TUTAR : ';&#13;&#10;    &#13;&#10;  if &#60;ACIKLAMA&#62; &#60;&#62; '' Then&#13;&#10;    S:= S + #13 + 'AÇIKLAMA : ';&#13;&#10;&#13;&#10;  memo8.Text:= S;                                         &#13;&#10;end;&#13;&#10;&#13;&#10;procedure Memo9OnBeforePrint(Sender: TfrxComponent);&#13;&#10;Var&#13;&#10;  S: String;                              &#13;&#10;begin&#13;&#10;  S:= &#60;Cari Kart.&#34;FIRMAUNVANI&#34;&#62; + #13 + &#60;Cari Kart Banka.&#34;BANKAADI&#34;&#62;;&#13;&#10;&#13;&#10;  if Trim(&#60;Cari Kart Banka.&#34;SUBE&#34;&#62;) &#60;&#62; '' Then&#13;&#10;    S:= S + #13 + &#60;Cari Kart Banka.&#34;SUBE&#34;&#62;;&#13;&#10;&#13;&#10;  if Trim(&#60;Cari Kart Banka.&#34;SUBEKODU&#34;&#62;) &#60;&#62; '' Then&#13;&#10;    S:= S + #13 + &#60;Cari Kart Banka.&#34;SUBEKODU&#34;&#62;;&#13;&#10;          &#13;&#10;  if Trim(&#60;Cari Kart Banka.&#34;IBANNO&#34;&#62;) &#60;&#62; '' Then&#13;&#10;    S:= S + #13 +&#60;Cari Kart Banka.&#34;IBANNO&#34;&#62;;&#13;&#10;      &#13;&#10;  if Trim(&#60;Cari Kart Banka.&#34;SWIFTKOD&#34;&#62;) &#60;&#62; '' Then&#13;&#10;    S:= S + #13 + &#60;Cari Kart Banka.&#34;SWIFTKOD&#34;&#62;;&#13;&#10;&#13;&#10;  S:= S + #13 + FormatFloat('#,#0.#0', &#60;TUTAR&#62;) + ' ' + &#60;Banka.&#34;PB&#34;&#62;;&#13;&#10;    &#13;&#10;  if &#60;ACIKLAMA&#62; &#60;&#62; '' Then&#13;&#10;    S:= S + #13 + &#60;ACIKLAMA&#62;;&#13;&#10;        &#13;&#10;  memo9.Text:= S;                                   &#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;  bankaQ.SQL.Clear;&#13;&#10;  bankaQ.SQL.Add('Select');      &#13;&#10;  bankaQ.SQL.Add('  BANKAKODU, BANKAADI, SUBE, HESAPNO, IBANNO, ISNULL(D.SEMBOL, ''TL'') AS PB, YETKILI, YETKILI2, SEHIR');  &#13;&#10;  bankaQ.SQL.Add('from TBLBANKALAR B');  &#13;&#10;  bankaQ.SQL.Add('LEFT OUTER JOIN TBLDOVIZLER D ON D.KARTNO = B.DOVIZID');&#13;&#10;  bankaQ.SQL.Add('WHERE B.KARTNO = ' + IntToStr(&#60;BANKAKARTNO&#62;));&#13;&#10;    &#13;&#10;  caribankaQ.SQL.Clear;&#13;&#10;  caribankaQ.SQL.Add('Select * from TBLCARIBANKALAR WITH(INDEX=TBLCARIBANKALAR_CARIKARTNO)');&#13;&#10;  caribankaQ.SQL.Add('WHERE ID = ' + IntToStr(&#60;CARIBANKA&#62;));&#13;&#10;&#13;&#10;  cariQ.SQL.Clear;    &#13;&#10;  cariQ.SQL.Add('Set DateFormat DMY');  &#13;&#10;  cariQ.SQL.Add('');      &#13;&#10;  cariQ.SQL.Add('Select');  &#13;&#10;  cariQ.SQL.Add('  C.KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI,  VERGIDAIRESI, VERGINO, SUM(BORC - ALACAK) AS BAKIYE, DOVIZ,');  &#13;&#10;  cariQ.SQL.Add('  (SELECT ADRES FROM TBLCARI WHERE KARTNO = C.KARTNO) AS ADRES, C.SEHIR, ILCE');               &#13;&#10;  cariQ.SQL.Add('from CARIDOKUM D');  &#13;&#10;  cariQ.SQL.Add('LEFT OUTER JOIN TBLCARI C WITH(INDEX=TBLCARI_KARTNO) ON C.KARTNO = D.CARIID');  &#13;&#10;  cariQ.SQL.Add('WHERE CARIID = ' + IntToStr(&#60;CARIKARTNO&#62;));&#13;&#10;  cariQ.SQL.Add('GROUP BY C.KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI,  VERGIDAIRESI, VERGINO, DOVIZ, SEHIR, ILCE');      &#13;&#10;end.">
  <Datasets>
    <item DataSet="bankaQ" DataSetName="Banka"/>
    <item DataSet="cariBankaQ" DataSetName="Cari Kart Banka"/>
    <item DataSet="cariQ" DataSetName="Cari Kart"/>
  </Datasets>
  <Variables>
    <item Name="CARIKARTNO" Value="1"/>
    <item Name="BANKAKARTNO" Value="1"/>
    <item Name="TUTAR" Value="3000"/>
    <item Name="ACIKLAMA" Value="'3 Bin TL Denemesi'"/>
    <item Name="CARIBANKA" Value="4"/>
  </Variables>
  <TfrxDataPage Name="Data" Height="1000" Left="0" Top="0" Width="1000">
    <TfrxFDQuery Name="bankaQ" UserName="Banka" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="Select &#13;&#10;  BANKAKODU, BANKAADI, SUBE, HESAPNO, IBANNO, ISNULL(D.SEMBOL, 'TL') AS PB, YETKILI, YETKILI2, SEHIR               &#13;&#10;from TBLBANKALAR B&#13;&#10;LEFT OUTER JOIN TBLDOVIZLER D ON D.KARTNO = B.DOVIZID  " PropData="05704C65667402700470546F7002340A506172616D65746572730100"/>
    <TfrxFDQuery Name="cariBankaQ" UserName="Cari Kart Banka" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="Select * from TBLCARIBANKALAR    " PropData="05704C65667402700470546F7002780A506172616D65746572730100"/>
    <TfrxFDQuery Name="cariQ" UserName="Cari Kart" CloseDataSource="True" FieldAliases.Text="" BCDToCurrency="False" IgnoreDupParams="False" SQL.Text="Select &#13;&#10;  C.KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI,  VERGIDAIRESI, VERGINO, SUM(BORC - ALACAK) AS BAKIYE, DOVIZ,&#13;&#10;  (SELECT ADRES FROM TBLCARI WHERE KARTNO = C.KARTNO) AS ADRES,&#13;&#10;  C.SEHIR, ILCE&#13;&#10;from CARIDOKUM D&#13;&#10;LEFT OUTER JOIN TBLCARI C WITH(INDEX=TBLCARI_KARTNO) ON C.KARTNO = D.CARIID&#13;&#10;GROUP BY C.KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI,  VERGIDAIRESI, VERGINO, DOVIZ, SEHIR, ILCE    " PropData="05704C65667402700470546F7003C0000A506172616D65746572730100"/>
  </TfrxDataPage>
  <TfrxReportPage Name="Page1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" ColumnWidth="0" ColumnPositions.Text="" HGuides.Text="" VGuides.Text="">
    <TfrxReportTitle Name="ReportTitle1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="30,23624" Left="0" Top="18,89765" Width="718,1107"/>
    <TfrxMasterData Name="MasterData1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="241,88992" Left="0" Top="109,60637" Width="718,1107" ColumnWidth="0" ColumnGap="0" DataSet="bankaQ" DataSetName="Banka" RowCount="0">
      <TfrxMemoView Name="BankaBANKAADI" Left="3,77953" Top="1,77953" Width="536,69326" Height="18,89765" DataField="BANKAADI" DataSet="bankaQ" DataSetName="Banka" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[Banka.&#34;BANKAADI&#34;]"/>
      <TfrxMemoView Name="Memo1" Left="3,77953" Top="22,45671" Width="680,3154" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[Banka.&#34;SUBE&#34;] Şubesi"/>
      <TfrxMemoView Name="Memo2" Left="3,77953" Top="45,13389" Width="680,3154" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[Banka.&#34;SEHIR&#34;]"/>
      <TfrxMemoView Name="Memo3" Left="597,84292" Top="1,77953" Width="86,92919" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="[Date]"/>
      <TfrxMemoView Name="Memo4" Left="26,45671" Top="105,82684" Width="37,7953" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text="Sayın"/>
      <TfrxMemoView Name="Memo5" Left="66,81107" Top="105,82684" Width="619,84292" Height="18,89765" OnBeforePrint="Memo5OnBeforePrint" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" ParentFont="False" Text=""/>
      <TfrxMemoView Name="Memo6" Left="26,45671" Top="154,96073" Width="680,3154" Height="34,01577" AllowHTMLTags="True" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" HAlign="haBlock" ParentFont="False" Text="     Bankanız nezdinde bulunan &#60;b&#62;[Cari Kart Banka.&#34;HESAPNO&#34;]&#60;/b&#62; hesap nolu [Banka.&#34;PB&#34;] hesabımızdan aşağıda detayları yazılı firma adına aynı gün valörlü transfer yapılmasını rica ederiz.">
        <Formats>
          <item/>
          <item/>
        </Formats>
      </TfrxMemoView>
      <TfrxMemoView Name="Memo7" Left="26,45671" Top="215,43321" Width="94,48825" Height="18,89765" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" HAlign="haBlock" ParentFont="False" Text="Saygılarımızla"/>
    </TfrxMasterData>
    <TfrxPageFooter Name="PageFooter1" FillType="ftBrush" FillGap.Top="0" FillGap.Left="0" FillGap.Bottom="0" FillGap.Right="0" Height="381,73253" Left="0" Top="411,96877" Width="718,1107">
      <TfrxMemoView Name="Memo8" Left="36,33859" Top="22,67718" Width="94,48825" Height="124,72449" OnBeforePrint="Memo8OnBeforePrint" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="FİRMA"/>
      <TfrxMemoView Name="Memo9" Left="134,84261" Top="22,67718" Width="574,48856" Height="124,72449" OnBeforePrint="Memo9OnBeforePrint" Font.Charset="1" Font.Color="-16777208" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" ParentFont="False" Text="FİRMA"/>
    </TfrxPageFooter>
  </TfrxReportPage>
</TfrxReport>
