80 lines
3.2 KiB
VB.net
80 lines
3.2 KiB
VB.net
Imports DAKOSY_Worker
|
|
Imports SDL
|
|
|
|
Public Class usrCntlSND_ATBGestellung
|
|
|
|
'Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
|
|
|
|
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
|
|
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
|
|
|
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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
|
|
Me.Refresh()
|
|
Me.Cursor = Cursors.WaitCursor
|
|
|
|
Dim f As frmSendungsdetailsNEU = Me.FindForm
|
|
If f.SAVE_ME() Then
|
|
SND = f.SENDUNG_LIST(f.CURRENT_INDEX)
|
|
|
|
If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
|
|
If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("MRN (Gestellung) angeben!") : Exit Sub
|
|
Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"))
|
|
frMZA.Show()
|
|
AddHandler frMZA.FormClosed, Sub()
|
|
' initdgvZollAnmeldungen()
|
|
End Sub
|
|
Else
|
|
MsgBox("Fehler beim Speichern. Ankunftsanzeige abgebrochen.")
|
|
End If
|
|
Me.Cursor = Cursors.Default
|
|
|
|
End Sub
|
|
|
|
|
|
'Public Sub setValues()
|
|
' txtATBT1.Text = If(NCTS_GA.nga_name, "")
|
|
' txtT1VerzollungsadresseStrasse.Text = If(NCTS_GA.nga_strasse, "")
|
|
' txtT1VerzollungsadressePlz.Text = If(NCTS_GA.nga_plz, "")
|
|
' txtT1VerzollungsadresseOrt.Text = If(NCTS_GA.nga_ort, "")
|
|
' sbT1VerzollungsadresseLand.SET_VALUE(If(NCTS_GA.nga_land, ""))
|
|
|
|
' txtT1VerzollungsadresseAnspr.Text = If(NCTS_GA.nga_Ansprechpartner, "")
|
|
' txtT1VerzollungsadresseEORI.Text = If(NCTS_GA.nga_EORI, "")
|
|
' txtT1VerzollungsadresseEORI_NL.Text = If(NCTS_GA.nga_EORI_NL, "")
|
|
' txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(If(NCTS_GA.nga_bestZollst, ""))
|
|
|
|
|
|
' lblNGAId.Text = If(NCTS_GA.nga_id > 0, NCTS_GA.nga_id, "-")
|
|
' picDel.Visible = (NCTS_GA.nga_id > 0)
|
|
'End Sub
|
|
|
|
|
|
'Public Sub getValues()
|
|
' NCTS_GA.nga_name = txtATBT1.Text
|
|
' NCTS_GA.nga_strasse = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseStrasse.Text)
|
|
' NCTS_GA.nga_plz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadressePlz.Text)
|
|
' NCTS_GA.nga_ort = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseOrt.Text)
|
|
' NCTS_GA.nga_land = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(sbT1VerzollungsadresseLand._value)
|
|
|
|
' NCTS_GA.nga_Ansprechpartner = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseAnspr.Text)
|
|
' NCTS_GA.nga_EORI = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI.Text)
|
|
' NCTS_GA.nga_EORI_NL = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI_NL.Text)
|
|
' NCTS_GA.nga_bestZollst = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseBestimmungszollstelle._value)
|
|
'End Sub
|
|
|
|
|
|
End Class
|