140 lines
9.8 KiB
XML
140 lines
9.8 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<Report ScriptLanguage="Vb" ReportInfo.Created="08/07/2012 22:02:15" ReportInfo.Modified="03/23/2014 20:41:27" 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_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
dim s as string
|
|
s="-"
|
|
if trim(CType(Report.GetColumnValue("Daten.Ausbildungsbemerkung"), String))<>"" then s=Trim(CType(Report.GetColumnValue("Daten.Ausbildungsbemerkung"), String))
|
|
if trim(CType(Report.GetColumnValue("Daten.Schuelerbemerkung"), String))<>"" then s=trim(CType(Report.GetColumnValue("Daten.Schuelerbemerkung"), String))
|
|
text3.Text=s
|
|
if s<>"-" then text3.TextColor=color.red
|
|
Text14.TextColor=Color.red
|
|
End Sub
|
|
|
|
Private Sub Text13_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
dim s as String
|
|
s="-"
|
|
if trim(CType(Report.GetColumnValue("Daten.Ausbildungsstandort"), String))<>"" then s=Trim(CType(Report.GetColumnValue("Daten.Ausbildungsstandort"), String))
|
|
if trim(CType(Report.GetColumnValue("Daten.Standortbemerkung"), String))<>"" then s=trim(CType(Report.GetColumnValue("Daten.Standortbemerkung"), String))
|
|
text13.Text=s
|
|
if s<>"-" then text13.TextColor=color.red
|
|
|
|
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="Klasse" DataType="System.String"/>
|
|
<Column Name="Vorname" DataType="System.String"/>
|
|
<Column Name="Beruf" DataType="System.String"/>
|
|
<Column Name="Zeit" DataType="System.String"/>
|
|
<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="Ausbildungsstandort" DataType="System.String"/>
|
|
<Column Name="Ausbildungsbemerkung" DataType="System.String"/>
|
|
<Column Name="Schuelerbemerkung" DataType="System.String"/>
|
|
<Column Name="Standortbemerkung" DataType="System.String"/>
|
|
<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"/>
|
|
<Column Name="LehrerNr" DataType="System.Int32"/>
|
|
<Column Name="KlasseNr" DataType="System.Int32"/>
|
|
<Column Name="Lehrername" DataType="System.String"/>
|
|
<Column Name="LehrerVorname" DataType="System.String"/>
|
|
<Column Name="schuelername" DataType="System.String"/>
|
|
<Column Name="Ansprechpartnername" DataType="System.String"/>
|
|
<Column Name="Ansprechpartnervorname" DataType="System.String"/>
|
|
<Column Name="AnsprechpartnerTelefon" DataType="System.String"/>
|
|
<Column Name="EintragNr" DataType="System.Int32"/>
|
|
<Column Name="ZuteilungBemerkung" 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"/>
|
|
<PageHeaderBand Name="PageHeader1" Top="4" Width="718.2" Height="122.85">
|
|
<PictureObject Name="Picture1" Left="28.35" Width="141.75" Height="122.85" BeforePrintEvent="Picture1_BeforePrint" Image=""/>
|
|
<TextObject Name="Text32" Left="236.25" Top="9.45" Width="463.05" Height="18.9" Text="[Parcours]" HorzAlign="Right" Font="Arial, 12pt, style=Bold"/>
|
|
<TextObject Name="Text33" Left="236.25" Top="28.35" Width="463.05" Height="18.9" Text="Schülerdaten" HorzAlign="Right" Font="Arial, 12pt, style=Bold"/>
|
|
</PageHeaderBand>
|
|
<GroupHeaderBand Name="GroupHeader2" Top="130.85" Width="718.2" StartNewPage="true" Condition="[Daten.Lehrername]">
|
|
<GroupHeaderBand Name="GroupHeader3" Top="134.85" Width="718.2" StartNewPage="true" Condition="[Daten.KlasseNr]">
|
|
<GroupHeaderBand Name="GroupHeader4" Top="138.85" Width="718.2" Height="56.7" StartNewPage="true" Condition="[Daten.schuelername]">
|
|
<ShapeObject Name="Shape1" Left="28.35" Width="670.95" Height="56.7" Fill="LinearGradient" Fill.StartColor="Silver" Fill.EndColor="White" Fill.Angle="270" Fill.Focus="1" Fill.Contrast="1"/>
|
|
<TextObject Name="Text16" Left="94.5" Top="18.9" Width="292.95" Height="18.9" Text="[Daten.schuelername]" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text38" Left="28.35" Top="18.9" Width="66.15" Height="18.9" Text="Schüler:" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text39" Left="500.85" Top="9.45" Width="198.45" Height="18.9" Text="[Daten.Klasse]"/>
|
|
<TextObject Name="Text40" Left="396.9" Top="9.45" Width="94.5" Height="18.9" Text="Klasse:" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text41" Left="396.9" Top="28.35" Width="94.5" Height="18.9" Text="Lehrperson:" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text42" Left="500.85" Top="28.35" Width="198.45" Height="18.9" CanGrow="true" Text="[[Daten.Lehrername]] [Daten.LehrerVorname]"/>
|
|
<ChildBand Name="Child1" Top="199.55" Width="718.2"/>
|
|
<DataBand Name="Data1" Top="203.55" Width="718.2" Height="113.4" DataSource="Daten">
|
|
<ShapeObject Name="Shape2" Left="28.35" Top="9.45" Width="670.95" Height="37.8" Fill="LinearGradient" Fill.StartColor="LightSkyBlue" Fill.EndColor="White" Fill.Angle="0" Fill.Focus="1" Fill.Contrast="1"/>
|
|
<TextObject Name="Text2" Left="94.5" Top="18.9" Width="387.45" Height="18.9" Text="[Daten.Beruf]" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text4" Left="519.75" Top="18.9" Width="170.1" Height="18.9" Text="[Daten.Zeit]" HorzAlign="Right"/>
|
|
<TextObject Name="Text5" Left="28.35" Top="18.9" Width="56.7" Height="18.9" Text="Beruf:" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text6" Left="500.85" Top="18.9" Width="37.8" Height="18.9" Text="Zeit:" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text34" Left="28.35" Top="56.7" Width="85.05" Height="37.8" Text="Zusätzliche Angaben:" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text3" Left="113.4" Top="56.7" Width="481.95" Height="18.9" CanGrow="true" BeforePrintEvent="Text3_BeforePrint" Text="[Daten.Ausbildungsbemerkung]"/>
|
|
<TextObject Name="Text14" Left="113.4" Top="94.5" Width="576.45" Height="18.9" CanGrow="true" Text="[Daten.ZuteilungBemerkung]"/>
|
|
<ChildBand Name="Child2" Top="320.95" Width="718.2" Height="151.2">
|
|
<TextObject Name="Text10" Left="85.05" Top="66.15" Width="198.45" Height="18.9" Text="[Daten.Adresszeile4]"/>
|
|
<TextObject Name="Text11" Left="85.05" Top="85.05" Width="198.45" Height="18.9" Text="[Daten.Adresszeile5]"/>
|
|
<TextObject Name="Text9" Left="85.05" Top="47.25" Width="198.45" Height="18.9" Text="[Daten.Adresszeile3]"/>
|
|
<TextObject Name="Text8" Left="85.05" Top="28.35" Width="198.45" Height="18.9" Text="[Daten.Adresszeile2]"/>
|
|
<TextObject Name="Text7" Left="85.05" Top="9.45" Width="198.45" Height="18.9" Text="[Daten.Adresszeile1]"/>
|
|
<TextObject Name="Text12" Left="28.35" Top="9.45" Width="56.7" Height="18.9" Text="Firma:" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text36" Left="368.55" Top="9.45" Width="330.75" Height="18.9" Text="Durchführungsort (wenn abweichend von Firma)" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text13" Left="368.55" Top="28.35" Width="292.95" Height="75.6" CanGrow="true" BeforePrintEvent="Text13_BeforePrint" Text="[Daten.Standortbemerkung]"/>
|
|
<LineObject Name="Line1" Left="28.35" Width="670.95"/>
|
|
<TextObject Name="Text43" Left="28.35" Top="113.4" Width="132.3" Height="18.9" Text="Ansprechpartner:" Font="Arial, 10pt, style=Bold"/>
|
|
<TextObject Name="Text1" Left="28.35" Top="132.3" Width="670.95" Height="18.9" Text="[Daten.Ansprechpartnername] [Daten.Ansprechpartnervorname], [Daten.AnsprechpartnerTelefon]"/>
|
|
<ChildBand Name="Child3" Top="476.15" Width="718.2">
|
|
<LineObject Name="Line2" Left="28.35" Width="670.95"/>
|
|
</ChildBand>
|
|
</ChildBand>
|
|
<Sort>
|
|
<Sort Expression="[Daten.Zeit]"/>
|
|
</Sort>
|
|
</DataBand>
|
|
<GroupFooterBand Name="GroupFooter4" Top="480.15" Width="718.2"/>
|
|
</GroupHeaderBand>
|
|
<GroupFooterBand Name="GroupFooter3" Top="484.15" Width="718.2"/>
|
|
</GroupHeaderBand>
|
|
<GroupFooterBand Name="GroupFooter2" Top="488.15" Width="718.2"/>
|
|
</GroupHeaderBand>
|
|
<PageFooterBand Name="PageFooter1" Top="492.15" Width="718.2" Height="56.7"/>
|
|
</ReportPage>
|
|
</Report>
|