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.
92 lines
5.2 KiB
92 lines
5.2 KiB
<?xml version="1.0" encoding="utf-8"?>
|
|
<Report ScriptLanguage="Vb" ReportInfo.Created="07/25/2012 23:56:34" ReportInfo.Modified="06/06/2013 09:56:54" 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 Text2_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
|
|
dim Ax as integer
|
|
if CType(Report.GetColumnValue("Daten.Gruppe"), Int32) = 1 then
|
|
Text2.Text="Priorität 1"
|
|
Else
|
|
Text2.Text="Priorität <> 1"
|
|
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="Counter" DataType="System.Int32"/>
|
|
<Column Name="SchuelerNr" DataType="System.Int32"/>
|
|
<Column Name="Schueler" DataType="System.String"/>
|
|
<Column Name="Lehrer" DataType="System.String"/>
|
|
<Column Name="Beruf" DataType="System.String"/>
|
|
<Column Name="Prioritaet" DataType="System.Int32"/>
|
|
<Column Name="typ" DataType="System.Int32"/>
|
|
<Column Name="Gruppe" DataType="System.Int32"/>
|
|
<Column Name="Zaehler" DataType="System.Int32"/>
|
|
</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="103.95">
|
|
<TextObject Name="Text5" Left="179.55" Top="9.45" Width="529.2" Height="28.35" Text="[Parcours]" HorzAlign="Right" Font="Arial, 12pt, style=Bold"/>
|
|
<PictureObject Name="Picture1" Left="28.35" Top="-18.9" Width="141.75" Height="122.85" BeforePrintEvent="Picture1_BeforePrint"/>
|
|
<TextObject Name="Text6" Left="179.55" Top="37.8" Width="529.2" Height="28.35" Text="Nicht zugeteilte Berufe / Zuwenig zugeteilte Berufe" HorzAlign="Right" Font="Arial, 12pt, style=Bold"/>
|
|
</ReportTitleBand>
|
|
<PageHeaderBand Name="PageHeader1" Top="107.95" Width="718.2" Height="37.8">
|
|
<TextObject Name="Text12" Left="274.05" Top="9.45" Width="94.5" Height="18.9" Text="[Daten.Zaehler]"/>
|
|
<TextObject Name="Text13" Left="9.45" Top="9.45" Width="302.4" Height="18.9" Text="Anzahl Schüler mit zuwenigen Zuteilungen:"/>
|
|
</PageHeaderBand>
|
|
<GroupHeaderBand Name="GroupHeader1" Top="149.75" Width="718.2" Height="66.15" Condition="[Daten.Gruppe]">
|
|
<TextObject Name="Text2" Left="9.45" Width="236.25" Height="28.35" BeforePrintEvent="Text2_BeforePrint" Font="Arial, 14pt, style=Bold, Underline"/>
|
|
<TextObject Name="Text4" Left="9.45" Top="37.8" Width="47.25" Height="18.9" Text="Nr." Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text8" Left="75.6" Top="37.8" Width="94.5" Height="18.9" Text="Schueler" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text9" Left="283.5" Top="37.8" Width="94.5" Height="18.9" Text="Beruf" Font="Arial, 9pt, style=Bold"/>
|
|
<TextObject Name="Text11" Left="595.35" Top="37.8" Width="94.5" Height="18.9" Text="Prio" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
|
|
<LineObject Name="Line1" Left="9.45" Top="56.7" Width="680.4"/>
|
|
<GroupHeaderBand Name="GroupHeader2" Top="219.9" Width="718.2" Height="9.45" Visible="false" Condition="[Daten.Schueler]">
|
|
<DataBand Name="Data1" Top="233.35" Width="718.2" Height="18.9" DataSource="Daten">
|
|
<TextObject Name="Text3" Left="9.45" Width="47.25" Height="18.9" Text="[Daten.SchuelerNr]" Duplicates="Hide" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text1" Left="283.5" Width="330.75" Height="18.9" Text="[Daten.Beruf]" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text10" Left="633.15" Width="56.7" Height="18.9" Text="[Daten.Prioritaet]" HorzAlign="Right" Font="Arial, 9pt"/>
|
|
<TextObject Name="Text7" Left="75.6" Width="189" Height="18.9" Text="[Daten.Schueler]" Duplicates="Hide" Font="Arial, 9pt"/>
|
|
<Sort>
|
|
<Sort Expression="[Daten.Schueler]"/>
|
|
<Sort Expression="[Daten.Prioritaet]"/>
|
|
</Sort>
|
|
</DataBand>
|
|
<GroupFooterBand Name="GroupFooter2" Top="256.25" Width="718.2">
|
|
<LineObject Name="Line2" Left="9.45" Width="680.4"/>
|
|
</GroupFooterBand>
|
|
</GroupHeaderBand>
|
|
<GroupFooterBand Name="GroupFooter1" Top="260.25" Width="718.2" Height="37.8"/>
|
|
</GroupHeaderBand>
|
|
<PageFooterBand Name="PageFooter1" Top="302.05" 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="642.6" Width="66.15" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
|
|
</PageFooterBand>
|
|
</ReportPage>
|
|
</Report>
|