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

Vorauskassen Benachrichtigung, Spedbuch AES AUTO Erfassung

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-23 08:13:26 +01:00
parent 209bb3de50
commit 14983881e8
5 changed files with 116 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -228,6 +228,7 @@ Public Class frmNacherfassungNEU
If SPEDITIONSBUCH.EndempfängerKundenNr > 0 Then txtEndEmpf.KdNr = SPEDITIONSBUCH.EndempfängerKundenNr
txtAtlasBezNrEZA.Text = SPEDITIONSBUCH.AtlasBezNrEZA
txtAtlasBezNrAES.Text = SPEDITIONSBUCH.AtlasBezNrAES
txtAtlasBezNrNCTS.Text = SPEDITIONSBUCH.AtlasBezNrNCTS
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
@@ -896,6 +897,7 @@ Public Class frmNacherfassungNEU
SPEDITIONSBUCH.NCTS_Verzollungsadresse = txtT1Verzollungsadresse.Text
SPEDITIONSBUCH.AtlasBezNrEZA = txtAtlasBezNrEZA.Text
SPEDITIONSBUCH.AtlasBezNrAES = txtAtlasBezNrAES.Text
SPEDITIONSBUCH.AtlasBezNrNCTS = txtAtlasBezNrNCTS.Text
SPEDITIONSBUCH.Zollsystem = If(cboZollsystem._value = "", Nothing, cboZollsystem._value)
@@ -1036,7 +1038,7 @@ Public Class frmNacherfassungNEU
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles btnImport.Click
Label26.ForeColor = Color.Black
If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Then
If txtAtlasBezNrEZA.Text <> "" Or txtAtlasBezNrNCTS.Text <> "" Or txtAtlasBezNrAES.Text <> "" Then
If cboZollsystem._value = "" Then
Label26.ForeColor = Color.Red
Exit Sub
@@ -1056,6 +1058,7 @@ Public Class frmNacherfassungNEU
Dim EZANr = txtAtlasBezNrEZA.Text
Dim NCTSNr = txtAtlasBezNrNCTS.Text
Dim AESNr = txtAtlasBezNrAES.Text
If cboNiederlassung.Text <> "" Then
strManNl = cboNiederlassung.Text
@@ -1082,7 +1085,7 @@ Public Class frmNacherfassungNEU
lblLastMa.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
loadDatainSPEDBUCH()
SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, avisoLinkId, SPEDITIONSBUCH.SendungID, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound)
SPEDITIONSBUCH = ZOLL_IMPORT.IMPORT(SPEDITIONSBUCH, avisoLinkId, SPEDITIONSBUCH.SendungID, strManNr, strManNl, ZollSystem, EZANr, NCTSNr, notFound,,, AESNr)
If notFound Then
lblZollsys.Visible = True
MsgBox("Der Eintrag wurde nicht gefunden!", vbInformation)
@@ -1375,7 +1378,7 @@ Public Class frmNacherfassungNEU
End If
End Sub
Private Sub txtAtlasBezNrEZA_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAtlasBezNrEZA.KeyDown, txtAtlasBezNrNCTS.KeyDown
Private Sub txtAtlasBezNrEZA_KeyDown(sender As Object, e As KeyEventArgs) Handles txtAtlasBezNrEZA.KeyDown, txtAtlasBezNrNCTS.KeyDown, txtAtlasBezNrAES.KeyDown
If e.KeyCode = Keys.Return Then
btnImport.PerformClick()
End If