shu
/
LPWeb
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
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.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '57e1cda236'
${ noResults }
LPWeb/LPWeb20/Reporting/Schuelerdaten.frx

140 lines
9.8 KiB
Raw Blame History

<?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=&quot;-&quot;
if trim(CType(Report.GetColumnValue(&quot;Daten.Ausbildungsbemerkung&quot;), String))&lt;&gt;&quot;&quot; then s=Trim(CType(Report.GetColumnValue(&quot;Daten.Ausbildungsbemerkung&quot;), String))
if trim(CType(Report.GetColumnValue(&quot;Daten.Schuelerbemerkung&quot;), String))&lt;&gt;&quot;&quot; then s=trim(CType(Report.GetColumnValue(&quot;Daten.Schuelerbemerkung&quot;), String))
text3.Text=s
if s&lt;&gt;&quot;-&quot; 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=&quot;-&quot;
if trim(CType(Report.GetColumnValue(&quot;Daten.Ausbildungsstandort&quot;), String))&lt;&gt;&quot;&quot; then s=Trim(CType(Report.GetColumnValue(&quot;Daten.Ausbildungsstandort&quot;), String))
if trim(CType(Report.GetColumnValue(&quot;Daten.Standortbemerkung&quot;), String))&lt;&gt;&quot;&quot; then s=trim(CType(Report.GetColumnValue(&quot;Daten.Standortbemerkung&quot;), String))
text13.Text=s
if s&lt;&gt;&quot;-&quot; then text13.TextColor=color.red
End Sub
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
Picture1.ImageLocation= CType(Report.GetParameterValue(&quot;URL&quot;), 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>
Reference in new issue View Git Blame Copy Permalink