61 lines
2.5 KiB
VB.net
61 lines
2.5 KiB
VB.net
Public Class frmLKWTicketInfo
|
||
Dim txt_info = "WAI_Parkplatz_Info"
|
||
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
|
||
Sub New(Aviso As VERAG_PROG_ALLGEMEIN.cAviso)
|
||
|
||
' Dieser Aufruf ist für den Designer erforderlich.
|
||
InitializeComponent()
|
||
|
||
Me.AVISO = Aviso
|
||
|
||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||
|
||
End Sub
|
||
Sub New(AvisoID As Integer)
|
||
|
||
' Dieser Aufruf ist für den Designer erforderlich.
|
||
InitializeComponent()
|
||
|
||
If AvisoID > 0 Then
|
||
AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoID, "")
|
||
End If
|
||
|
||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||
|
||
End Sub
|
||
|
||
|
||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||
Dim rpt As New rptTicketLKWInfo
|
||
rpt.lblInfo.Text = RichTextBox.Text
|
||
rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||
If SDL.cProgramFunctions.printRpt(rpt, cboPrinter.Text) Then
|
||
Me.Close()
|
||
End If
|
||
|
||
End Sub
|
||
|
||
Private Sub frmLKWTicket_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||
MyComboBox1.fillWithSQL("SELECT distinct([txt_sprache]) FROM [tblTextkonserve] where txt_bezeichnung='" & txt_info & "' ORDER BY [txt_sprache]", False, "FMZOLL")
|
||
If AVISO IsNot Nothing AndAlso AVISO.LKW_Nationalitaet IsNot Nothing AndAlso AVISO.LKW_Nationalitaet <> "" Then
|
||
MyComboBox1.changeItem(AVISO.LKW_Nationalitaet)
|
||
End If
|
||
If MyComboBox1.Text = "" Then MyComboBox1.changeItem("TR")
|
||
End Sub
|
||
|
||
Private Sub frmLKWTicket_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
||
SDL.cProgramFunctions.initDrucker(cboPrinter, "TICKET")
|
||
End Sub
|
||
|
||
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
|
||
RichTextBox.Text = (New VERAG_PROG_ALLGEMEIN.SQL).getValueTxtBySql("SELECT TOP 1 [txt_text] FROM [tblTextkonserve] where txt_bezeichnung='" & txt_info & "' AND txt_sprache='" & MyComboBox1.Text & "' ORDER BY [txt_sprache]", "FMZOLL")
|
||
If MyComboBox1.Text = "BG" Then
|
||
RichTextBox.Text = "Това НЕ Е обществен паркинг !!
|
||
Паркирането е строго ЗАБРАНЕНО за автомобили / камиони без митническо оформяне !!
|
||
ГЛОБА 50 EUR !!
|
||
|
||
Паркинга принадлежи на:
|
||
SPEDITION VERAG GmbH"
|
||
End If
|
||
End Sub
|
||
End Class |