Files

79 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="02/19/2019 09:20:43" 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=&quot;&quot;
s=report.FileName.Split(&quot;\&quot;)
dim i as integer
for i=0 to s.length-3
pfad=pfad+s(i)+&quot;\&quot;
next i
Dim ReportLogo as String
ReportLogo=pfad+&quot;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="Status" DataType="System.Int32"/>
<Column Name="Jahr" DataType="System.Int32"/>
<Column Name="Expr1" DataType="System.Double"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
<Total Name="Total" Expression="[Daten.Expr1]" Evaluator="Data1"/>
</Dictionary>
<ReportPage Name="Page1" Landscape="true" PaperWidth="297" PaperHeight="210" RawPaperSize="9" FirstPageSource="15" OtherPagesSource="15" Columns.Count="2" Columns.Width="138.5" Columns.Positions="0,138.5">
<ReportTitleBand Name="ReportTitle1" Width="1047.06" Height="340.2">
<TextObject Name="Text1" Left="774.9" Width="255.15" Height="18.9" Text="Fakturierte Jahresumsätze" HorzAlign="Right" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="680.4" Top="18.9" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
<PictureObject Name="Picture1" Left="9.45" Width="132.3" Height="66.15" BeforePrintEvent="Picture1_BeforePrint" ImageLocation="E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Roellin\Reporting\Logo\reportlogo.png"/>
<MSChartObject Name="MSChart1" Left="9.45" Top="94.5" Width="1030.05" Height="236.25" DataSource="Daten" AutoSeriesColumn="" ChartData="PENoYXJ0IEJvcmRlcmxpbmVDb2xvcj0iRGFya0dyYXkiIEJvcmRlcmxpbmVXaWR0aD0iMiIgQm9yZGVybGluZURhc2hTdHlsZT0iU29saWQiPg0KICA8U2VyaWVzPg0KICAgIDxTZXJpZXMgTmFtZT0iSmFocmUiIExlZ2VuZD0iRGVmYXVsdCIgWFZhbHVlVHlwZT0iRG91YmxlIiBZVmFsdWVUeXBlPSJEb3VibGUiIENoYXJ0QXJlYT0iRGVmYXVsdCI+DQogICAgICA8UG9pbnRzPg0KICAgICAgICA8RGF0YVBvaW50IFhWYWx1ZT0iMjAwMiIgWVZhbHVlcz0iMTE4NzUuOTUiIC8+DQogICAgICAgIDxEYXRhUG9pbnQgWFZhbHVlPSIyMDAzIiBZVmFsdWVzPSI4MTk2Ni41OTk5OTk5OTk5IiAvPg0KICAgICAgICA8RGF0YVBvaW50IFhWYWx1ZT0iMjAwNCIgWVZhbHVlcz0iODYyMjkuMTUwMDAwMDAwMSIgLz4NCiAgICAgICAgPERhdGFQb2ludCBYVmFsdWU9IjIwMDUiIFlWYWx1ZXM9Ijk0Mjc0LjcwMDAwMDAwMDEiIC8+DQogICAgICAgIDxEYXRhUG9pbnQgWFZhbHVlPSIyMDA2IiBZVmFsdWVzPSI5NzU2Ny44NTAwMDAwMDAxIiAvPg0KICAgICAgICA8RGF0YVBvaW50IFhWYWx1ZT0iMjAwNyIgWVZhbHVlcz0iMTAwNTQ4LjE1IiAvPg0KICAgICAgICA8RGF0YVBvaW50IFhWYWx1ZT0iMjAwOCIgWVZhbHVlcz0iMTA3MDIwLjY1IiAvPg0KICAgICAgICA8RGF0YVBvaW50IFhWYWx1ZT0iMjAwOSIgWVZhbHVlcz0iMTE0NjQxLjciIC8+DQogICAgICAgIDxEYXRhUG9pbnQgWFZhbHVlPSIyMDEwIiBZVmFsdWVzPSIxMTI2NDYuMzUiIC8+DQogICAgICAgIDxEYXRhUG9pbnQgWFZhbHVlPSIyMDExIiBZVmFsdWVzPSIxMzAzODEuOTUiIC8+DQogICAgICAgIDxEYXRhUG9pbnQgWFZhbHVlPSIyMDEyIiBZVmFsdWVzPSIxMTgwMzcuMjUiIC8+DQogICAgICAgIDxEYXRhUG9pbnQgWFZhbHVlPSIyMDEzIiBZVmFsdWVzPSIxMjI2NzYuMyIgLz4NCiAgICAgICAgPERhdGFQb2ludCBYVmFsdWU9IjIwMTQiIFlWYWx1ZXM9IjEyNTQyNy4wNSIgLz4NCiAgICAgICAgPERhdGFQb2ludCBYVmFsdWU9IjIwMTUiIFlWYWx1ZXM9IjEyNzkxMi4xIiAvPg0KICAgICAgICA8RGF0YVBvaW50IFhWYWx1ZT0iMjAxNiIgWVZhbHVlcz0iMTMwMzYyLjkiIC8+DQogICAgICAgIDxEYXRhUG9pbnQgWFZhbHVlPSIyMDE3IiBZVmFsdWVzPSIxMjM3OTYuMzUiIC8+DQogICAgICAgIDxEYXRhUG9pbnQgWFZhbHVlPSIyMDE4IiBZVmFsdWVzPSIxMjAxNjkuMDUiIC8+DQogICAgICAgIDxEYXRhUG9pbnQgWFZhbHVlPSIyMDE5IiBZVmFsdWVzPSIyOTA3MS41IiAvPg0KICAgICAgPC9Qb2ludHM+DQogICAgPC9TZXJpZXM+DQogIDwvU2VyaWVzPg0KICA8TGVnZW5kcz4NCiAgICA8TGVnZW5kIE5hbWU9IkRlZmF1bHQiPg0KICAgIDwvTGVnZW5kPg0KICA8L0xlZ2VuZHM+DQogIDxUaXRsZXM+DQogICAgPFRpdGxlIE5hbWU9IlRpdGxlMSIgVmlzaWJsZT0iRmFsc2UiPg0KICAgIDwvVGl0bGU+DQogIDwvVGl0bGVzPg0KICA8Q2hhcnRBcmVhcz4NCiAgICA8Q2hhcnRBcmVhIE5hbWU9IkRlZmF1bHQiPg0KICAgICAgPEF4aXNZPg0KICAgICAgICA8TWFqb3JHcmlkIExpbmVDb2xvcj0iNjQsIDY0LCA2NCwgNjQiIC8+DQogICAgICA8L0F4aXNZPg0KICAgICAgPEF4aXNYPg0KICAgICAgICA8TWFqb3JHcmlkIExpbmVDb2xvcj0iNjQsIDY0LCA2NCwgNjQiIC8+DQogICAgICA8L0F4aXNYPg0KICAgICAgPEF4aXNYMj4NCiAgICAgICAgPE1ham9yR3JpZCBMaW5lQ29sb3I9IjY0LCA2NCwgNjQsIDY0IiAvPg0KICAgICAgPC9BeGlzWDI+DQogICAgICA8QXhpc1kyPg0KICAgICAgICA8TWFqb3JHcmlkIExpbmVDb2xvcj0iNjQsIDY0LCA2NCwgNjQiIC8+DQogICAgICA8L0F4aXNZMj4NCiAgICA8L0NoYXJ0QXJlYT4NCiAgPC9DaGFydEFyZWFzPg0KICA8Qm9yZGVyU2tpbiBTa2luU3R5bGU9IkVtYm9zcyIgLz4NCjwvQ2hhcnQ+">
<MSChartSeries Name="Series1" SortBy="XValue" XValue="[Daten.Jahr]" YValue1="[Daten.Expr1]"/>
</MSChartObject>
<LineObject Name="Line4" Top="94.5"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="343.06" Width="1047.06" Height="28.35">
<TextObject Name="Text3" Left="18.9" Width="94.5" Height="18.9" Text="Jahr" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="160.65" Width="94.5" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="18.9" Top="18.9" Width="236.25"/>
<LineObject Name="Line2" Left="538.65" Top="18.9" Width="236.25"/>
<TextObject Name="Text13" Left="538.65" Width="94.5" Height="18.9" Text="Jahr" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text14" Left="680.4" Width="94.5" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="374.26" Width="523.53" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="18.9" Width="94.5" Height="18.9" Text="[Daten.Jahr]"/>
<TextObject Name="Text4" Left="160.65" Width="94.5" Height="18.9" Text="[Daten.Expr1]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<ReportSummaryBand Name="ReportSummary1" Top="396.02" Width="523.53" Height="37.8">
<TextObject Name="Text6" Left="160.65" Top="9.45" Width="94.5" Height="18.9" Text="[Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text15" Left="18.9" Top="9.45" Width="94.5" Height="18.9" Text="Total" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line3" Left="18.9" Width="236.25"/>
</ReportSummaryBand>
<PageFooterBand Name="PageFooter1" Top="436.68" Width="1047.06" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<TextObject Name="Text11" Left="935.55" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>