108 lines
7.0 KiB
XML
108 lines
7.0 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<Report ScriptLanguage="Vb" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="04/15/2019 20:13:59" ReportInfo.CreatorVersion="2018.4.2.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 Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
dim s as String()
|
|
dim pfad as string
|
|
pfad=""
|
|
s=report.FileName.Split("\")
|
|
dim i as integer
|
|
for i=0 to s.length-3
|
|
pfad=pfad+s(i)+"\"
|
|
next i
|
|
Dim ReportLogo as String
|
|
ReportLogo=pfad+"Logo\reportlogo.png"
|
|
picture1.ImageLocation=Reportlogo
|
|
End Sub
|
|
|
|
Private Sub Text9_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
if CType(Report.GetColumnValue("Daten.Patient"), String) = CType(Report.GetColumnValue("Daten.Debitor"), String) then
|
|
text11.visible=false
|
|
else
|
|
text11.Visible=true
|
|
end if
|
|
End Sub
|
|
End Class
|
|
End Namespace
|
|
</ScriptText>
|
|
<Dictionary>
|
|
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
|
|
<Column Name="Datum" DataType="System.DateTime"/>
|
|
<Column Name="Betrag" DataType="System.Double"/>
|
|
<Column Name="Transaktion" DataType="System.String"/>
|
|
<Column Name="Taxen_PTT" DataType="System.Double"/>
|
|
<Column Name="Verbucht" DataType="System.Boolean" BindableControl="CheckBox"/>
|
|
<Column Name="fakturanr" DataType="System.String"/>
|
|
<Column Name="Einzelbetrag" DataType="System.Double"/>
|
|
<Column Name="Valuta" DataType="System.DateTime"/>
|
|
<Column Name="Patient" DataType="System.String"/>
|
|
<Column Name="Debitor" DataType="System.String"/>
|
|
</TableDataSource>
|
|
<Parameter Name="Absender" DataType="System.String"/>
|
|
<Parameter Name="Datum von" DataType="System.String"/>
|
|
<Parameter Name="Datum bis" DataType="System.String"/>
|
|
<Parameter Name="Behandler" DataType="System.String"/>
|
|
<Parameter Name="Journal" DataType="System.String"/>
|
|
<Total Name="Total" Expression="[Daten.Einzelbetrag]" Evaluator="Data1"/>
|
|
<Total Name="Total1" Expression="[Daten.Taxen_PTT]" Evaluator="Data1"/>
|
|
</Dictionary>
|
|
<ReportPage Name="Page1">
|
|
<ReportTitleBand Name="ReportTitle1" Width="718.2"/>
|
|
<PageHeaderBand Name="PageHeader1" Top="2.86" Width="718.2" Height="156.65">
|
|
<PictureObject Name="Picture1" Width="132.3" Height="56.7" BeforePrintEvent="Picture1_BeforePrint" ImageLocation="E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Roellin\Reporting\Logo\reportlogo.png"/>
|
|
<TextObject Name="Text1" Left="406.35" Top="9.45" Width="302.4" Height="28.35" Text="ESR-Journal " HorzAlign="Right"/>
|
|
<TextObject Name="Text2" Top="75.6" Width="94.5" Height="18.9" Text="Datum" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text3" Left="113.4" Top="75.6" Width="94.5" Height="18.9" Text="[Daten.Datum]" Format="Date" Format.Format="d" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text16" Top="94.5" Width="94.5" Height="18.9" Text="Totalbetrag" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text4" Left="113.4" Top="94.5" Width="94.5" Height="18.9" Text="[Daten.Betrag]" Format="Number" Format.UseLocale="true" WordWrap="false" Font="Arial, 10pt, style=Bold" Trimming="EllipsisCharacter"/>
|
|
<TextObject Name="Text17" Top="132.3" Width="28.35" Height="18.9" Text="TR" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text18" Left="122.85" Top="132.3" Width="75.6" Height="18.9" Text="Valuta" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text19" Left="37.8" Top="132.3" Width="75.6" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text20" Left="226.8" Top="132.3" Width="151.2" Height="18.9" Text="Patient / Debitor" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text21" Left="548.1" Top="132.3" Width="85.05" Height="18.9" Text="Gebühren" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text22" Left="661.5" Top="132.3" Width="47.25" Height="18.9" Text="Verb." Font="Arial, 10pt, style=Bold"/>
|
|
<LineObject Name="Line2" Top="147.65" Width="708.75"/>
|
|
<TextObject Name="Text10" Left="396.9" Top="28.35" Width="311.85" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
|
|
</PageHeaderBand>
|
|
<DataBand Name="Data1" Top="162.36" Width="718.2" Height="37.8" CanGrow="true" CanShrink="true" DataSource="Daten">
|
|
<TextObject Name="Text6" Width="37.8" Height="18.9" Text="[Daten.Transaktion]"/>
|
|
<TextObject Name="Text7" Left="47.25" Width="66.15" Height="18.9" Text="[Daten.Einzelbetrag]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
|
|
<TextObject Name="Text8" Left="122.85" Width="94.5" Height="18.9" Text="[Daten.Valuta]" Format="Date" Format.Format="d"/>
|
|
<TextObject Name="Text9" Left="226.8" Width="359.1" Height="18.9" BeforePrintEvent="Text9_BeforePrint" Text="[Daten.Patient]"/>
|
|
<TextObject Name="Text11" Left="226.8" Top="18.9" Width="359.1" Height="18.9" Text="[Daten.Debitor]"/>
|
|
<TextObject Name="Text12" Left="585.9" Width="47.25" Height="18.9" Text="[Daten.Taxen_PTT]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
|
|
<TextObject Name="Text13" Left="652.05" Width="37.8" Height="18.9" BeforePrintEvent="Text13_BeforePrint" Text="[IIf([Daten.Verbucht]=true,"","N")]" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
<ChildBand Name="Child1" Top="203.02" Width="718.2" Height="1.61">
|
|
<LineObject Name="Line3" Width="708.75"/>
|
|
</ChildBand>
|
|
</DataBand>
|
|
<ReportSummaryBand Name="ReportSummary1" Top="207.49" Width="718.2" Height="37.8">
|
|
<TextObject Name="Text14" Left="18.9" Width="94.5" Height="18.9" Text="[Total]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text23" Left="538.65" Width="94.5" Height="18.9" Text="[Total1]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
</ReportSummaryBand>
|
|
<PageFooterBand Name="PageFooter1" Top="248.15" Width="718.2" Height="18.9">
|
|
<TextObject Name="Text5" Width="189" Height="18.9" Text="[Date]" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text15" Left="614.25" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right" Font="Arial, 9pt"/>
|
|
</PageFooterBand>
|
|
</ReportPage>
|
|
</Report>
|