35 lines
1.3 KiB
VB.net
35 lines
1.3 KiB
VB.net
Imports GrapeCity.ActiveReports
|
|
Imports GrapeCity.ActiveReports.Document
|
|
|
|
Public Class rptMahnung
|
|
Dim _LAN = ""
|
|
Dim _OPTION = ""
|
|
Dim _FIRMAID As Integer = -1
|
|
|
|
Sub New()
|
|
InitializeComponent()
|
|
Me.Document.Printer.PrinterName = ""
|
|
End Sub
|
|
Sub New(_LAN, _OPTION, _FIRMAID)
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.Document.Printer.PrinterName = ""
|
|
Me._LAN = _LAN
|
|
Me._OPTION = _OPTION
|
|
Me._FIRMAID = _FIRMAID
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
End Sub
|
|
Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
|
|
Me.Document.Printer.PrinterName = ""
|
|
|
|
If _LAN.replace("DE", "") <> "" Then
|
|
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID)
|
|
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID)
|
|
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID)
|
|
SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptMahnung", _OPTION, _FIRMAID)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
End Class
|