edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

NCTS Gestellungsadressen

Browse Source
This commit is contained in:
d.breimaier
2024-03-12 14:30:43 +01:00
parent 6cf1d79e79
commit a8e3f3ed6e
9 changed files with 1948 additions and 1889 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Aviso/frmZollstopp.vb
View File

@@ -1,18 +1,21 @@
Public Class frmZollstopp
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen
Dim gestellungsadresse As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
Sub New(SND As VERAG_PROG_ALLGEMEIN.cSendungen)
Sub New(SND As VERAG_PROG_ALLGEMEIN.cSendungen, Optional gestellungsadresse As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen = Nothing)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.SND = SND
Me.gestellungsadresse = gestellungsadresse
End Sub
Private Sub frmZollstopp_Load(sender As Object, e As EventArgs) Handles Me.Load
If SND Is Nothing Then Me.Close()
rtbAbsender.Text = SND.tblSnd_Absender
rtbATANr.Text = IIf(gestellungsadresse IsNot Nothing, gestellungsadresse.nga_ATANr, "")
rtbZollstop.Text = SND.getNCTSAdress()
End Sub
@@ -20,7 +23,7 @@
Me.Cursor = Cursors.WaitCursor
Try
Dim path = SDL.FormularManagerNEU.Zollstopp(rtbZollstop.Text, rtbEntladestelle.Text, rtbKommentare.Text, rtbAbsender.Text)
Dim path = SDL.FormularManagerNEU.Zollstopp(rtbZollstop.Text, rtbEntladestelle.Text, rtbKommentare.Text, rtbAbsender.Text, rtbATANr.Text)
If path <> "" Then
Process.Start(path)
End If