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 MitDatum_AfterPrint(ByVal sender As object, ByVal e As EventArgs) if MitDatum.Text="0" child2.Visible=False Child3.Visible=True 'Data1.DataSource=Leistungen_LR Leistung_Datum.Visible=False Leistung_SSONummer.Visible=False Leistung_Bezd.Visible=False Leistung_Taxpunkt.Visible=False Leistung_Menge.Visible=False Leistung_Total.Visible=false Leistung_L_SSONummer.Visible=True Leistung_L_Bezd.Visible=True Leistung_L_Taxpunkte.Visible=True Leistung_L_Menge.Visible=True Leistung_L_Total.Visible=True Leistung_R_SSONummer.Visible=True Leistung_R_Bezd.Visible=True Leistung_R_Taxpunkte.Visible=True Leistung_R_Menge.Visible=True Leistung_R_Total.Visible=True else child2.Visible=True Child3.Visible=False 'Data1.DataSource=Leistungen_LR Leistung_Datum.Visible=True Leistung_SSONummer.Visible=True Leistung_Bezd.Visible=True Leistung_Taxpunkt.Visible=True Leistung_Menge.Visible=True Leistung_Total.Visible=True Leistung_L_SSONummer.Visible=False Leistung_L_Bezd.Visible=False Leistung_L_Taxpunkte.Visible=False Leistung_L_Menge.Visible=False Leistung_L_Total.Visible=False Leistung_R_SSONummer.Visible=False Leistung_R_Bezd.Visible=False Leistung_R_Taxpunkte.Visible=False Leistung_R_Menge.Visible=False Leistung_R_Total.Visible=False End If End Sub Private Sub ReportTitle1_AfterData(ByVal sender As object, ByVal e As EventArgs) if MitDatum.Text="0" data1.DataSource=Report.GetDataSource("Leistungen_LR") dim s as new sort("[Leistungen_LR.L_SSO_Nummer]", false) data1.sort.clear data1.sort.add(s) else data1.DataSource=Report.GetDataSource("Leistungen") dim s as new sort("[Leistungen.SSO_Nummer]", false) data1.sort.clear data1.sort.add(s) end if End Sub Private Sub txtFallnr_BeforePrint(ByVal sender As object, ByVal e As EventArgs) if CType(Report.GetColumnValue("Behandlungsdaten.Fallnummer"), String)="" then txtFallnr.Visible=False end if End Sub Private Sub txtBemerkung_BeforePrint(ByVal sender As object, ByVal e As EventArgs) txtBemerkung.Top=txttotal.Top+txtTotal.Height+2 End Sub End Class End Namespace