59 lines
2.0 KiB
VB.net
59 lines
2.0 KiB
VB.net
Public Class frmLKWTicket
|
|
|
|
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 rptTicketLKW
|
|
rpt.lblLKW.Text = txtKennzeichen.Text
|
|
rpt.txtFraechter.Text = txtFraechter.Text
|
|
rpt.txtDatum.Text = txtDatum.Text
|
|
rpt.txtGrenzstelle.Text = txtGrenzstelle.Text
|
|
rpt.TextBox5.Text = Now.ToString("dd.MM.yyyy HH:mm:ss")
|
|
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
|
|
If AVISO IsNot Nothing Then
|
|
txtKennzeichen.Text = If(AVISO.LKW_Nr, "")
|
|
txtFraechter.Text = If(AVISO.Frächter, "")
|
|
txtDatum.Text = Now.ToShortDateString
|
|
txtGrenzstelle.Text = "Waidhaus"
|
|
'Select Case AVISO.Grenzstelle
|
|
' Case "SUB" : txtGrenzstelle.Text = "Suben"
|
|
' Case "SBG" : txtGrenzstelle.Text = "Bad Reichenhall"
|
|
' Case "WAI" : txtGrenzstelle.Text = "Waidhaus"
|
|
'End Select
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmLKWTicket_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
SDL.cProgramFunctions.initDrucker(cboPrinter, "TICKET")
|
|
End Sub
|
|
End Class |