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

merge

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-02-10 10:05:24 +01:00
parent 4fb25fff37 b20660dba1
commit 11e5820364
8 changed files with 56 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -180,13 +180,13 @@ Public Class frmATEZ_EZA
}
}
},
.additionalSettings = New cRelayHubAdditionalSettings With {
.AdditionalSettings = New cRelayHubAdditionalSettings With {
.combineOptions = AdditionalSettings
}
}
If If(AVISO.Zollstelle, "").length >= 4 Then
If If(AVISO.Zollstelle, "").Length >= 4 Then
ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice = AVISO.Zollstelle.ToString.Substring(AVISO.Zollstelle.ToString.Length - 4)
'MsgBox(ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice)
End If

4
Aviso/ATEZ/frmATEZ_NCTS.vb
View File

@@ -25,7 +25,7 @@ Public Class frmATEZ_NCTS
Dim id As Integer = -1
Dim dgv As DataGridView = Nothing
Dim atez_data As cATEZ_NCTS_DATA
Dim atez = New cATEZ_NCTS_IN("atez_ncts")
Dim atez As cATEZ_NCTS_IN = New cATEZ_NCTS_IN("ATEZ")
Dim allSelected As Boolean = False
Property BezugsNr As String = ""
@@ -77,7 +77,7 @@ Public Class frmATEZ_NCTS
If Button1.Text = "JSON" Then
If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
If Not atez.setJsonNCTS(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
atez.setJsonPDF(atez_data, dgvAnhaenge)
Dim data As New DataObject()