41 lines
1.4 KiB
VB.net
41 lines
1.4 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
Imports GrapeCity.ActiveReports.Chart
|
|
Imports GrapeCity.ActiveReports.Document
|
|
|
|
Public Class rptSammelRechnungAnlagenDruck_ProvSum
|
|
Dim VorschauID = ""
|
|
Dim _LAN = ""
|
|
|
|
Sub New(_LAN As String, VorschauID As String)
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me._LAN = _LAN
|
|
|
|
Me.VorschauID = VorschauID
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
End Sub
|
|
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
|
|
'If _LAN.replace("DE", "") <> "" Then
|
|
' SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptRechnungDruck")
|
|
' SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptRechnungDruck")
|
|
'End If
|
|
|
|
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing Then
|
|
lblProvProzent.Text = ""
|
|
lblProvBetrag.Text = ""
|
|
|
|
'Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1)
|
|
|
|
'lblProvProzentWaehr.Text = "EUR"
|
|
'lblProvBetragWaehr.Text = "EUR"
|
|
|
|
'lblProvProzentWaehr.Text = CDbl(ProvProzent).ToString("N2") & " %"
|
|
'lblProvBetragWaehr.Text = CDbl(ProvBetrag).ToString("N2")
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|