<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" DoublePass="true" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="08/26/2018 11:27:25" ReportInfo.CreatorVersion="2018.2.11.0">
  <ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils

Namespace FastReport
  Public Class ReportScript


    Private Sub Text8_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
      if CType(Report.GetParameterValue(&quot;Mit Name&quot;), String)&lt;&gt;&quot;Ja&quot; Then
        text8.Text=&quot;Name&quot;
        text9.Text=&quot;&quot;
      end if
    End Sub

    Private Sub Text18_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
       if CType(Report.GetParameterValue(&quot;Behandler&quot;), String)     = &quot;&quot; then
           text18.Text=&quot;&quot;
       end if
      End Sub

    Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
      dim s as String()
      s=report.FileName.Split(&quot;Reporting&quot;)
      Dim ReportLogo as String
      ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
      picture1.ImageLocation=Reportlogo

    End Sub
  End Class
End Namespace
</ScriptText>
  <Dictionary>
    <TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
      <Column Name="Faelligam" DataType="System.DateTime"/>
      <Column Name="Betrag" DataType="System.Decimal"/>
      <Column Name="Datum" DataType="System.DateTime"/>
      <Column Name="Expr1" DataType="System.DateTime"/>
      <Column Name="Total" DataType="System.Decimal"/>
      <Column Name="Patient" DataType="System.String"/>
      <Column Name="Debitor" DataType="System.String"/>
      <Column Name="Statusdatum" DataType="System.DateTime"/>
      <Column Name="Mahndatum1" DataType="System.DateTime"/>
      <Column Name="Mahnfaelligkeit1" DataType="System.DateTime"/>
      <Column Name="Mahngebuehr1" DataType="System.Double"/>
      <Column Name="Mahndatum2" DataType="System.DateTime"/>
      <Column Name="Mahnfaelligkeit2" DataType="System.DateTime"/>
      <Column Name="Mahngebuehr2" DataType="System.Double"/>
      <Column Name="Mahndatum3" DataType="System.DateTime"/>
      <Column Name="Mahnfaelligkeit3" DataType="System.DateTime"/>
      <Column Name="Mahngebuehr3" DataType="System.Double"/>
      <Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
      <Column Name="nrfaktura" DataType="System.Int32"/>
      <Column Name="Behandler" DataType="System.String"/>
    </TableDataSource>
    <Parameter Name="Absender" DataType="System.String"/>
    <Parameter Name="Behandler" DataType="System.String"/>
    <Parameter Name="Mit Name" DataType="System.String"/>
    <Total Name="Total" Expression="[Daten.Betrag]" Evaluator="Data1"/>
  </Dictionary>
  <ReportPage Name="Page1">
    <ReportTitleBand Name="ReportTitle1" Width="718.2"/>
    <PageHeaderBand Name="PageHeader1" Top="3.33" Width="718.2" Height="113.4">
      <TextObject Name="Text3" Left="9.45" Top="75.6" Width="75.6" Height="18.9" Text="Datum" HorzAlign="Right" Font="Arial, 8pt, style=Bold"/>
      <TextObject Name="Text5" Left="94.5" Top="75.6" Width="94.5" Height="28.35" Text="RGNummer&#13;&#10;Fällig am" Font="Arial, 8pt, style=Bold"/>
      <TextObject Name="Text7" Left="179.55" Top="75.6" Width="94.5" Height="28.35" Text="Patient&#13;&#10;Debitor" Font="Arial, 8pt, style=Bold"/>
      <TextObject Name="Text11" Left="434.7" Top="75.6" Width="66.15" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 8pt, style=Bold"/>
      <TextObject Name="Text13" Left="510.3" Top="75.6" Width="66.15" Height="28.35" Text="Mahnung 1&#13;&#10;Fällig" HorzAlign="Right" Font="Arial, 8pt, style=Bold"/>
      <TextObject Name="Text17" Left="576.45" Top="75.6" Width="66.15" Height="28.35" Text="Mahnung 2&#13;&#10;Fällig" HorzAlign="Right" Font="Arial, 8pt, style=Bold"/>
      <TextObject Name="Text21" Left="642.6" Top="75.6" Width="66.15" Height="28.35" Text="Mahnung 3&#13;&#10;Fällig" HorzAlign="Right" Font="Arial, 8pt, style=Bold"/>
      <LineObject Name="Line1" Left="9.45" Top="103.95" Width="699.3"/>
      <PictureObject Name="Picture1" Left="9.45" Width="207.9" Height="56.7" BeforePrintEvent="Picture1_BeforePrint" Image="[encoded data, 368268 characters]"/>
      <TextObject Name="Text1" Left="425.25" Width="283.5" Height="18.9" CanBreak="false" Text="Offene Debitoren per [Date]" HorzAlign="Right" Font="Arial, 12pt, style=Bold"/>
      <TextObject Name="Text18" Left="434.7" Top="18.9" Width="274.05" Height="18.9" BeforePrintEvent="Text18_BeforePrint" Text="Behandler: [Behandler]" HorzAlign="Right"/>
    </PageHeaderBand>
    <DataBand Name="Data1" Top="120.07" Width="718.2" Height="41.35" DataSource="Daten">
      <TextObject Name="Text2" Left="9.45" Width="75.6" Height="18.9" Text="[Daten.Datum]" Format="Date" Format.Format="d" HorzAlign="Right" Font="Arial, 8pt"/>
      <TextObject Name="Text4" Left="94.5" Width="94.5" Height="18.9" Text="[Daten.nrfaktura]" Font="Arial, 8pt"/>
      <TextObject Name="Text6" Left="94.5" Top="18.9" Width="94.5" Height="18.9" Text="[Daten.Faelligam]" Format="Date" Format.Format="d" Font="Arial, 8pt"/>
      <TextObject Name="Text8" Left="179.55" Width="264.6" Height="18.9" BeforePrintEvent="Text8_BeforePrint" Text="[Daten.Patient]" Font="Arial, 8pt"/>
      <TextObject Name="Text9" Left="179.55" Top="18.9" Width="264.6" Height="18.9" Text="[IIf([Daten.Patient]&lt;&gt;[Daten.Debitor],[Daten.Debitor],&quot;&quot;)]" Font="Arial, 8pt"/>
      <TextObject Name="Text10" Left="444.15" Width="56.7" Height="18.9" Text="[Daten.Betrag]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Font="Arial, 8pt" Trimming="EllipsisCharacter"/>
      <TextObject Name="Text12" Left="510.3" Width="66.15" Height="18.9" Text="[IIf([Daten.Mahndatum1]=&quot;01.01.0001&quot;,&quot;&quot;,[Daten.Mahndatum1])]" Format="Date" Format.Format="d" HorzAlign="Right" Font="Arial, 8pt"/>
      <TextObject Name="Text14" Left="510.3" Top="18.9" Width="66.15" Height="18.9" Text="[IIf([Daten.Mahnfaelligkeit1]=&quot;01.01.0001&quot;,&quot;&quot;,[Daten.Mahnfaelligkeit1])]" Format="Date" Format.Format="d" HorzAlign="Right" Font="Arial, 8pt"/>
      <LineObject Name="Line2" Left="9.45" Top="37.8" Width="699.3"/>
      <TextObject Name="Text23" Left="576.45" Top="18.9" Width="66.15" Height="18.9" Text="[IIf([Daten.Mahnfaelligkeit2]=&quot;01.01.0001&quot;,&quot;&quot;,[Daten.Mahnfaelligkeit2])]" Format="Date" Format.Format="d" HorzAlign="Right" Font="Arial, 8pt"/>
      <TextObject Name="Text22" Left="576.45" Width="66.15" Height="18.9" Text="[IIf([Daten.Mahndatum2]=&quot;01.01.0001&quot;,&quot;&quot;,[Daten.Mahndatum2])]" Format="Date" Format.Format="d" HorzAlign="Right" Font="Arial, 8pt"/>
      <TextObject Name="Text25" Left="642.6" Top="18.9" Width="66.15" Height="18.9" Text="[IIf([Daten.Mahnfaelligkeit3]=&quot;01.01.0001&quot;,&quot;&quot;,[Daten.Mahnfaelligkeit3])]" Format="Date" Format.Format="d" HorzAlign="Right" Font="Arial, 8pt"/>
      <TextObject Name="Text24" Left="642.6" Width="66.15" Height="18.9" Text="[IIf([Daten.Mahndatum3]=&quot;01.01.0001&quot;,&quot;&quot;,[Daten.Mahndatum3])]" Format="Date" Format.Format="d" HorzAlign="Right" Font="Arial, 8pt"/>
    </DataBand>
    <ReportSummaryBand Name="ReportSummary1" Top="164.75" Width="718.2" Height="37.8">
      <TextObject Name="Text15" Left="406.35" Width="94.5" Height="18.9" Text="[Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right"/>
    </ReportSummaryBand>
    <PageFooterBand Name="PageFooter1" Top="205.88" Width="718.2" Height="18.9">
      <TextObject Name="Text16" Left="529.2" Width="179.55" Height="18.9" Text="[PageNofM]" HorzAlign="Right"/>
    </PageFooterBand>
  </ReportPage>
</Report>
