92 lines
3.2 KiB
VB.net
92 lines
3.2 KiB
VB.net
Imports SDL
|
|
Imports SDL.EORI
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
Public Class frmATZollEingereichtSetzenEV
|
|
|
|
Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
|
|
Public SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
|
Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL
|
|
|
|
Sub New(AVISO, SND)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
Me.AVISO = AVISO
|
|
Me.SND = SND
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub frmAnkunftSetzen_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
|
|
|
|
If AVISO IsNot Nothing Then
|
|
lblAbs.Text = If(SND.tblSnd_Absender, "")
|
|
lblAuftr.Text = If(SND.tblSnd_Auftraggeber, "")
|
|
lblAbfNr.Text = SND.FilialenNr & "/" & SND.AbfertigungsNr
|
|
lblWare.Text = If(SND.tblSnd_Gewicht, "") & " kg, " & If(SND.tblSnd_Colli, "") & " Pk. " & If(SND.tblSnd_Warenbezeichnung, "")
|
|
|
|
End If
|
|
|
|
If SND IsNot Nothing Then
|
|
If SND.tblSnd_EmpfaengerKdNr > 0 Then
|
|
|
|
lblNr.Text = SND.tblSnd_PosUnterNr
|
|
|
|
'Dim ADRESSEN As New VERAG_PROG_ALLGEMEIN.cAdressen(SND.tblSnd_EmpfaengerKdNr)
|
|
'Dim KUNDEN As New VERAG_PROG_ALLGEMEIN.cKunde(SND.tblSnd_EmpfaengerKdNr)
|
|
'If ADRESSEN IsNot Nothing Then
|
|
' txtUid.Text = If(ADRESSEN.UstIdKz, "") & If(ADRESSEN.UstIdNr, "")
|
|
|
|
' Dim UID_Pruef = VERAG_PROG_ALLGEMEIN.cUIDPruefung.LOADByKdNrNewestDate(SND.tblSnd_EmpfaengerKdNr)
|
|
' If UID_Pruef IsNot Nothing Then
|
|
' lblUIDPruefdatum.Text = UID_Pruef.uid_Datum.ToShortDateString
|
|
' If UID_Pruef.uid_Datum.ToShortDateString = Now.ToShortDateString Then
|
|
' cbxUID.Checked = True
|
|
' picUIDAbfrage.Image = My.Resources.ok
|
|
' Else
|
|
' check_UID_AD(ADRESSEN)
|
|
' End If
|
|
' End If
|
|
'Else
|
|
' check_UID(txtUid.Text)
|
|
'End If
|
|
'If KUNDEN IsNot Nothing Then
|
|
' txtEori.Text = If(KUNDEN.EORITIN, "")
|
|
' check_EORI(KUNDEN)
|
|
'End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
|
|
If cbxEmpf.Checked Then
|
|
Me.DialogResult = DialogResult.OK
|
|
Else
|
|
If Not cbxRG1.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
|
|
If Not cbxRG2.Checked Then Me.DialogResult = DialogResult.None : Exit Sub
|
|
' AvisoStatusFunctions.insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "UID Prüfung Begründung: " & Txt, 47)
|
|
|
|
Me.DialogResult = DialogResult.OK
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.DialogResult = DialogResult.Cancel
|
|
End Sub
|
|
|
|
Private Sub frmAnkunftSetzen_KeyDown(sender As Object, e As KeyEventArgs)
|
|
If e.KeyCode = Keys.Return Then
|
|
btn.PerformClick()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
End Class |