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.
125 lines
8.2 KiB
125 lines
8.2 KiB
<?xml version="1.0" encoding="utf-8"?>
|
|
<Report ScriptLanguage="Vb" ReportInfo.Created="04/11/2011 17:06:43" ReportInfo.Modified="06/06/2013 17:23:42" 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 Text3_AfterPrint(ByVal sender As object, ByVal e As EventArgs)
|
|
Dim s As String
|
|
s=""
|
|
s=report.GetColumnValue("Daten.NameZ1")
|
|
If report.GetColumnValue("Daten.NameZ2")<>""
|
|
s=s+vbcrlf+Report.GetColumnValue("Daten.NameZ2")
|
|
End If
|
|
If report.GetColumnValue("Daten.Anrede")<>"Damen und Herren" Then
|
|
s=s+vbcrlf+Report.GetColumnValue("Daten.Anrede") +" "+Report.GetColumnValue("Daten.Vorname") +" "+Report.GetColumnValue("Daten.Name")
|
|
End If
|
|
If report.GetColumnValue("Daten.Strasse")<>"" Then
|
|
s=s+vbcrlf+Report.GetColumnValue("Daten.Strasse")
|
|
End If
|
|
s=s+vbcrlf+Report.GetColumnValue("Daten.PLZ") + " " + Report.GetColumnValue("Daten.Ort")
|
|
Text3.Text=s
|
|
End Sub
|
|
|
|
Private Sub Text5_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
if report.GetColumnValue("Daten.Anrede")="Damen und Herren" Then
|
|
Text5.Text="Sehr geehrte Damen und Herren"
|
|
End if
|
|
if report.GetColumnValue("Daten.Anrede")="Herr" Then
|
|
Text5.Text="Sehr geehrter Herr "+ Report.GetColumnValue("Daten.Name")
|
|
End if
|
|
if report.GetColumnValue("Daten.Anrede")="Frau" Then
|
|
Text5.Text="Sehr geehrte Frau "+ Report.GetColumnValue("Daten.Name")
|
|
End if
|
|
|
|
|
|
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="FirmaNr" DataType="System.Int32"/>
|
|
<Column Name="NameZ1" DataType="System.String"/>
|
|
<Column Name="NameZ2" DataType="System.String"/>
|
|
<Column Name="Strasse" DataType="System.String"/>
|
|
<Column Name="PLZ" DataType="System.String"/>
|
|
<Column Name="Ort" DataType="System.String"/>
|
|
<Column Name="Tel" DataType="System.String"/>
|
|
<Column Name="Fax" DataType="System.String"/>
|
|
<Column Name="Web" DataType="System.String"/>
|
|
<Column Name="EMail" DataType="System.String"/>
|
|
<Column Name="Bemerkung" DataType="System.String"/>
|
|
<Column Name="Erstellt_am" DataType="System.DateTime"/>
|
|
<Column Name="Mutiert_am" DataType="System.DateTime"/>
|
|
<Column Name="Mutierer" DataType="System.Int32"/>
|
|
<Column Name="Aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
|
|
<Column Name="Anrede" DataType="System.String"/>
|
|
<Column Name="Briefanrede" DataType="System.String"/>
|
|
<Column Name="Ausbildungsstandort" DataType="System.String"/>
|
|
<Column Name="Ausbildungsbemerkung" DataType="System.String"/>
|
|
<Column Name="Name" DataType="System.String"/>
|
|
<Column Name="Vorname" DataType="System.String"/>
|
|
<Column Name="Natel" DataType="System.String"/>
|
|
</TableDataSource>
|
|
<Parameter Name="Parcours" DataType="System.String"/>
|
|
<Parameter Name="Spruch" DataType="System.String"/>
|
|
<Parameter Name="URL" DataType="System.String"/>
|
|
</Dictionary>
|
|
<ReportPage Name="Page1">
|
|
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="151.2">
|
|
<TextObject Name="Text14" Left="311.85" Top="37.8" Width="406.35" Height="28.35" Text="Registrierte Firmen" HorzAlign="Right" Font="Arial, 14pt, style=Bold"/>
|
|
<PictureObject Name="Picture1" Left="9.45" Width="141.75" Height="122.85" BeforePrintEvent="Picture1_BeforePrint"/>
|
|
<TextObject Name="Text13" Left="311.85" Top="9.45" Width="406.35" Height="28.35" Text="[Parcours]" HorzAlign="Right" Font="Arial, 14pt, style=Bold"/>
|
|
</ReportTitleBand>
|
|
<PageHeaderBand Name="PageHeader1" Top="155.2" Width="718.2"/>
|
|
<DataBand Name="Data1" Top="159.2" Width="718.2" Height="163.65" BeforePrintEvent="Text3_AfterPrint" DataSource="Daten">
|
|
<LineObject Name="Line3" Top="154.2" Width="708.75"/>
|
|
<TextObject Name="Text1" Left="9.45" Width="28.35" Height="18.9" Text="[Daten.FirmaNr]" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text3" Left="37.8" Width="207.9" Height="94.5" AfterPrintEvent="Text3_AfterPrint" Text="Adresse" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text6" Left="330.75" Width="122.85" Height="18.9" Text="[Daten.Tel]" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text9" Left="330.75" Top="18.9" Width="179.55" Height="18.9" Text="[Daten.Fax]" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text10" Left="330.75" Top="37.8" Width="311.85" Height="18.9" Text="[Daten.Web]" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text11" Left="330.75" Top="56.7" Width="311.85" Height="18.9" Text="[Daten.EMail]" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text12" Left="633.15" Width="75.6" Height="18.9" Text="[Daten.Erstellt_am]" Format="Date" Format.Format="d" HorzAlign="Right" Font="Arial, 9pt"/>
|
|
<CheckBoxObject Name="CheckBox1" Left="689.85" Top="18.9" Width="18.9" Height="18.9" DataColumn="Daten.Aktiv"/>
|
|
<TextObject Name="Text17" Left="255.15" Width="75.6" Height="18.9" Text="Tel./Natel:" HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text18" Left="255.15" Top="18.9" Width="37.8" Height="18.9" Text="Fax:" HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text19" Left="255.15" Top="37.8" Width="37.8" Height="18.9" Text="Web:" HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text20" Left="255.15" Top="56.7" Width="37.8" Height="18.9" Text="Mail:" HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text21" Left="595.35" Width="37.8" Height="18.9" Text="Erf." HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text22" Left="595.35" Top="18.9" Width="47.25" Height="18.9" Text="Aktiv:" HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text24" Left="255.15" Top="132.3" Width="75.6" Height="18.9" Text="B-Anrede:" HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text5" Left="330.75" Top="132.3" Width="368.55" Height="18.9" BeforePrintEvent="Text5_BeforePrint" Text="[Daten.Briefanrede]" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text25" Left="255.15" Top="75.6" Width="56.7" Height="18.9" Text="Anrede:" HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text2" Left="330.75" Top="75.6" Width="179.55" Height="18.9" Text="[Daten.Anrede]"/>
|
|
<TextObject Name="Text26" Left="255.15" Top="94.5" Width="56.7" Height="18.9" Text="Name:" HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text7" Left="330.75" Top="94.5" Width="179.55" Height="18.9" Text="[Daten.Name]"/>
|
|
<TextObject Name="Text8" Left="330.75" Top="113.4" Width="179.55" Height="18.9" Text="[Daten.Vorname]"/>
|
|
<TextObject Name="Text27" Left="255.15" Top="113.4" Width="75.6" Height="18.9" Text="Vorname:" HorzAlign="Justify" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text4" Left="463.05" Width="113.4" Height="18.9" Text="[Daten.Natel]" Font="Arial, 9pt"/>
|
|
</DataBand>
|
|
<PageFooterBand Name="PageFooter1" Top="326.85" Width="718.2" Height="18.9">
|
|
<TextObject Name="Text15" Left="9.45" Width="94.5" Height="18.9" Text="[Date]" Format="Date" Format.Format="d"/>
|
|
<TextObject Name="Text16" Left="652.05" Width="66.15" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
|
|
</PageFooterBand>
|
|
</ReportPage>
|
|
</Report>
|