You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
59 lines
3.3 KiB
59 lines
3.3 KiB
<?xml version="1.0" encoding="utf-8"?>
|
|
<Report ScriptLanguage="Vb" ReportInfo.Created="07/05/2012 12:49:56" ReportInfo.Modified="06/27/2014 08:47:04" ReportInfo.CreatorVersion="2013.2.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 Rich1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
Rich3.Text= CType(Report.GetColumnValue("Daten.Inhalt"), String)
|
|
End Sub
|
|
|
|
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
Picture1.ImageLocation= CType(Report.GetParameterValue("URL"), String)
|
|
End Sub
|
|
End Class
|
|
End Namespace
|
|
</ScriptText>
|
|
<Dictionary>
|
|
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
|
|
<Column Name="Titel" DataType="System.String"/>
|
|
<Column Name="Inhalt" DataType="System.String"/>
|
|
<Column Name="Briefanrede" DataType="System.String"/>
|
|
<Column Name="FirmaNr" DataType="System.Int32"/>
|
|
<Column Name="Adresszeile1" DataType="System.String"/>
|
|
<Column Name="Adresszeile2" DataType="System.String"/>
|
|
<Column Name="Adresszeile3" DataType="System.String"/>
|
|
<Column Name="Adresszeile4" DataType="System.String"/>
|
|
<Column Name="Adresszeile5" DataType="System.String"/>
|
|
<Column Name="Adresszeile6" DataType="System.String"/>
|
|
<Column Name="Adresszeile7" DataType="System.String"/>
|
|
</TableDataSource>
|
|
<Parameter Name="Parcours" DataType="System.String"/>
|
|
<Parameter Name="Spruch" DataType="System.String"/>
|
|
</Dictionary>
|
|
<ReportPage Name="Page1">
|
|
<PageHeaderBand Name="PageHeader1" Width="718.2" Height="359.1">
|
|
<TextObject Name="Text3" Left="387.45" Top="292.95" Width="292.95" Height="18.9" Text="Frauenfeld, [Date]" Format="Date" Format.Format="d"/>
|
|
<TextObject Name="Text1" Left="387.45" Top="160.65" Width="292.95" Height="113.4" BeforePrintEvent="Text1_BeforePrint" Text="[Daten.Adresszeile1] [Daten.Adresszeile2] [Daten.Adresszeile3] [Daten.Adresszeile4] [Daten.Adresszeile5] [Daten.Adresszeile6] [Daten.Adresszeile7]"/>
|
|
<TextObject Name="Text4" Left="378" Top="9.45" Width="302.4" Height="18.9" Text="[Parcours]" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
|
|
<PictureObject Name="Picture1" Left="37.8" Width="179.55" Height="113.4" BeforePrintEvent="Picture1_BeforePrint"/>
|
|
</PageHeaderBand>
|
|
<DataBand Name="Data1" Top="363.14" Width="718.2" Height="444.15" DataSource="Daten">
|
|
<RichObject Name="Rich3" Left="37.8" Width="633.15" Height="28.35" CanGrow="true" BeforePrintEvent="Rich3_BeforePrint" AfterDataEvent="Rich1_BeforePrint" Text="{\rtf1\ansi\ansicpg1252\deff0\deflang2055{\fonttbl{\f0\fnil Arial;}{\f1\fnil\fcharset0 Tahoma;}} {\*\generator Msftedit 5.41.21.2510;}\viewkind4\uc1\pard\f0\fs20 [Daten.Inhalt]\f1\fs17\par } "/>
|
|
</DataBand>
|
|
<PageFooterBand Name="PageFooter1" Top="811.33" Width="718.2" Height="18.9"/>
|
|
</ReportPage>
|
|
</Report>
|