89 lines
5.6 KiB
XML
89 lines
5.6 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<Report ScriptLanguage="Vb" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="01/10/2020 18:57:32" ReportInfo.CreatorVersion="2019.3.22.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
|
|
End Class
|
|
End Namespace
|
|
</ScriptText>
|
|
<Dictionary>
|
|
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
|
|
<Column Name="Total" DataType="System.Double"/>
|
|
<Column Name="Anz_Monate" DataType="System.Int32"/>
|
|
<Column Name="Jahr" DataType="System.Int32"/>
|
|
<Column Name="Monat" DataType="System.Int32"/>
|
|
<Column Name="Expr1" DataType="System.String"/>
|
|
</TableDataSource>
|
|
<Parameter Name="Absender" DataType="System.String"/>
|
|
<Parameter Name="Anzahl Monate" DataType="System.String"/>
|
|
<Parameter Name="Behandler" DataType="System.String"/>
|
|
<Total Name="Total" Expression="[Daten.Total]" Evaluator="Data1" PrintOn="GroupFooter1"/>
|
|
</Dictionary>
|
|
<ReportPage Name="Page1" RawPaperSize="9" FirstPageSource="15" OtherPagesSource="15" Columns.Count="2" Columns.Width="95" Columns.Positions="0,95" Watermark.Font="Arial, 60pt">
|
|
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="103.95">
|
|
<TextObject Name="Text1" Left="444.15" Width="255.15" Height="18.9" Text="Fakturierte Monatsumsätze" HorzAlign="Right" Font="Arial, 10pt, style=Bold, Underline"/>
|
|
<TextObject Name="Text12" Left="349.65" Top="18.9" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right" Font="Arial, 10pt"/>
|
|
<PictureObject Name="Picture1" Left="9.45" Width="132.3" Height="66.15" BeforePrintEvent="Picture1_BeforePrint" ImageLocation="E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Dental2Smile\Reporting\Logo\reportlogo.png"/>
|
|
<TextObject Name="Text8" Left="444.15" Top="47.25" Width="255.15" Height="18.9" Text="[Behandler]" HorzAlign="Right" Font="Arial, 10pt"/>
|
|
</ReportTitleBand>
|
|
<PageHeaderBand Name="PageHeader1" Top="106.81" Width="718.2" Height="28.35">
|
|
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Jahr / Monat" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
<LineObject Name="Line2" Left="9.45" Top="18.9" Width="207.9"/>
|
|
<LineObject Name="Line3" Left="368.55" Top="18.9" Width="207.9"/>
|
|
<TextObject Name="Text13" Left="368.55" Width="94.5" Height="18.9" Text="Jahr / Monat" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text14" Left="481.95" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
</PageHeaderBand>
|
|
<GroupHeaderBand Name="GroupHeader1" Top="138.01" Width="359.1" Height="37.8" KeepWithData="true" Condition="[Daten.Jahr]" SortOrder="Descending" KeepTogether="true">
|
|
<TextObject Name="Text7" Left="9.45" Top="12.9" Width="94.5" Height="18.9" Text="[[Daten.Jahr]]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="0" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" Font="Arial, 10pt, style=Bold"/>
|
|
<LineObject Name="Line4" Left="9.45" Top="31.35" Width="207.9"/>
|
|
<DataBand Name="Data1" Top="178.67" Width="359.1" Height="18.9" DataSource="Daten" KeepTogether="true" KeepDetail="true">
|
|
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Expr1]" Font="Arial, 10pt"/>
|
|
<TextObject Name="Text4" Left="122.85" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Font="Arial, 10pt" Trimming="EllipsisCharacter"/>
|
|
<Sort>
|
|
<Sort Expression="[Daten.Jahr]" Descending="true"/>
|
|
<Sort Expression="[Daten.Monat]"/>
|
|
</Sort>
|
|
</DataBand>
|
|
<GroupFooterBand Name="GroupFooter1" Top="200.43" Width="359.1" Height="37.8" KeepWithData="true">
|
|
<TextObject Name="Text6" Left="122.85" Top="9.45" Width="94.5" Height="18.9" Text="[Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
<LineObject Name="Line1" Left="9.45" Top="4.45" Width="207.9"/>
|
|
<TextObject Name="Text15" Left="9.45" Top="9.45" Width="94.5" Height="18.9" Text="Total" Font="Arial, 10pt, style=Bold"/>
|
|
</GroupFooterBand>
|
|
</GroupHeaderBand>
|
|
<ReportSummaryBand Name="ReportSummary1" Top="241.09" Width="359.1" Height="37.8" KeepWithData="true"/>
|
|
<PageFooterBand Name="PageFooter1" Top="281.74" Width="718.2" Height="37.8">
|
|
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]" Font="Arial, 10pt"/>
|
|
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right" Font="Arial, 10pt"/>
|
|
</PageFooterBand>
|
|
</ReportPage>
|
|
</Report>
|