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=false Leistung_L_Menge.Visible=True Leistung_L_Total.Visible=True Leistung_R_SSONummer.Visible=True Leistung_R_Bezd.Visible=True Leistung_R_Taxpunkte.Visible=false Leistung_R_Menge.Visible=True Leistung_R_Total.Visible=True Leistung_TPTotal.Visible=false 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_TPTotal.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.Datum]", 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 Private Sub ES_Referenz_R_BeforePrint(ByVal sender As object, ByVal e As EventArgs) if CType(Report.GetVariableValue("Page"), Int32) > 1 then ES_Referenz_R.Text="XXXXXXXXXXXXXXXX" 'ES_Franken_L.Text="XXXX" 'es_franken_r.text="XXXX" 'es_rappen_l.Text="XX" 'es_rappen_r.Text="XX" ES_Codierzeile.Text="XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" End If End Sub Private Sub Leistung_TPTotal_BeforePrint(ByVal sender As object, ByVal e As EventArgs) if MitDatum.value=1 then Leistung_TPTotal.Visible=False Leistung_Taxpunkt.Visible=false dim i as integer i= CType(Report.GetColumnValue("Leistungen.SSO_Nummer"), Int32) if (i > 3999 And i<5000) or (i>8999 and i<10000) then Leistung_TPTotal.Visible=True Leistung_Taxpunkt.visible=True end if if (i>4999) and (i<7999) then Leistung_Taxpunkt.Visible=true end if end if End Sub Private Sub txtPatient_BeforePrint(ByVal sender As object, ByVal e As EventArgs) if CType(Report.GetColumnValue("Behandlungsdaten.nrgarant"), Int32)<1 then txtPatient.Visible=false else txtPatient.Visible=true end if End Sub Private Sub PageHeader1_BeforePrint(ByVal sender As object, ByVal e As EventArgs) if CType(Report.GetVariableValue("Page"), Int32) > 1 then PageHeader1.Visible=True else pageheader1.Visible=false end if End Sub Private Sub txtTextTotale_BeforePrint(ByVal sender As object, ByVal e As EventArgs) if CType(Report.GetColumnValue("Behandlungsdaten.TotalTextblock"), String)="Total Leistungen/Diverses" then txttexttotale.visible=False txttotale.visible=false line2.Visible=false titeltotal.top=txttexttotale.top txtTotal.top=titeltotal.top end if End Sub Private Sub Text74_BeforePrint(ByVal sender As object, ByVal e As EventArgs) if CType(Report.GetColumnValue("Behandlungsdaten.Taxpunktwert"), Double)<1.1 then Text74.Visible=false else Text74.Visible=true end if End Sub Private Sub PageFooter1_BeforePrint(ByVal sender As object, ByVal e As EventArgs) dim Vis as boolean if CType(Report.GetColumnValue("ESDaten.QR_Rechnung"), Int32)=1 then vis=false Subreport1.Visible=True Subreport2.Visible=false if CType(Report.GetColumnValue("ESDaten.QR_TYP"), String) = "NON" then QR_Referenz_L.Visible=false QR_Referenz_R.Visible=False QR_Ref_L.Visible=false QR_Ref_R.Visible=false end if else vis=true Subreport1.Visible=False Subreport2.Visible=True End If End Sub End Class End Namespace