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

ATEZ EZA Declarant

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-10-23 11:01:35 +02:00
parent 47a8904c31
commit e42c608853
2 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -110,8 +110,8 @@ Public Class frmATEZ_EZA
lblInfo.Text = "" lblInfo.Text = ""
txtDyMandant.Text = "VERA" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 'txtDyMandant.Text = "VERA" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' txtDyMandant.Text = "VERG" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! txtDyMandant.Text = "VERG"
' atez.setJsonPDF(atez_data, dgvAnhaenge) ' atez.setJsonPDF(atez_data, dgvAnhaenge)
@@ -139,8 +139,11 @@ Public Class frmATEZ_EZA
Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With { Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
.referenceNo = ioReference, .referenceNo = ioReference,
.regimeType = "IM",' .customer = "AVISO", .outputApplication = "dakosy/sftp/verg",'.outputApplication = "dakosy/sftp/vera",
.additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With { .regimeType = "IMPORT",' .customer = "AVISO",
.dispatchCountry = "DE",
.destinationCountry = "TR", 'Default, wird später überschrieben!! (Pflichtfeld)
.additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With {
.transaction = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubTransaction With { .transaction = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubTransaction With {
.ioPartner = txtDyMandant.Text, .ioPartner = txtDyMandant.Text,
.ioDivision3 = txtDyNiederlassung.Text, .ioDivision3 = txtDyNiederlassung.Text,
@@ -160,8 +163,8 @@ Public Class frmATEZ_EZA
.contactPersonPosition = "Zolldeklarant/in" .contactPersonPosition = "Zolldeklarant/in"
}, },
.declarantIsConsignee = True, .declarantIsConsignee = True,
.representationRelationshipCode = "", .representationRelationshipCode = -1, '??????????????????????????????????????????????????????????????
.inputTaxDeduction = "",'"true", .inputTaxDeduction = True,'"",'"true",
.procedureCodeRequested = procedureCodeRequested.ToString,' .goodsStatus = "",'"EU", .procedureCodeRequested = procedureCodeRequested.ToString,' .goodsStatus = "",'"EU",
.transportMeansArrivalIdentity = txtLKWId.Text, .transportMeansArrivalIdentity = txtLKWId.Text,
.transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "") .transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
@@ -254,7 +257,7 @@ Public Class frmATEZ_EZA
Dim CN As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress Dim CN As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
CN.addressType = "CN" CN.addressType = "CN"
CN.participantEORI = If(KD.EORITIN, "") CN.participantEORI = If(KD.EORITIN, "")
CN.participantSubsidiaryNumber = If(KD.EORITIN_NL, "") CN.participantSubsidiaryNumber = If(KD.EORITIN_NL, "0")
CN.companyName = AD.Name_1 CN.companyName = AD.Name_1
CN.streetAndNumber = AD.Straße CN.streetAndNumber = AD.Straße
CN.postalCode = AD.PLZ CN.postalCode = AD.PLZ
@@ -279,7 +282,7 @@ Public Class frmATEZ_EZA
Dim CZ As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress Dim CZ As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress
CZ.addressType = "CZ" CZ.addressType = "CZ"
CZ.participantEORI = If(KD.EORITIN, "") CZ.participantEORI = If(KD.EORITIN, "")
CZ.participantSubsidiaryNumber = If(KD.EORITIN_NL, "") CZ.participantSubsidiaryNumber = If(KD.EORITIN_NL, "0")
CZ.companyName = AD.Name_1 CZ.companyName = AD.Name_1
CZ.streetAndNumber = AD.Straße CZ.streetAndNumber = AD.Straße
CZ.postalCode = AD.PLZ CZ.postalCode = AD.PLZ
@@ -465,7 +468,7 @@ Public Class frmATEZ_EZA
If openExisting Then If openExisting Then
If id > 0 Then If id > 0 Then
atez_data = New cATEZ_NCTS_DATA(id) ' atez_data = New cATEZ_NCTS_DATA(id)
initAttachment() initAttachment()
If atez_data.atezId <> "" Then If atez_data.atezId <> "" Then
lblInfo.Text = "Atez-ID " & atez_data.atezId lblInfo.Text = "Atez-ID " & atez_data.atezId
@@ -509,7 +512,7 @@ Public Class frmATEZ_EZA
End If End If
Else Else
atez_data = New cATEZ_NCTS_DATA() ' atez_data = New cATEZ_NCTS_DATA()
initAttachment() initAttachment()
'Button1.Text = "An ATEZ senden -->" 'Button1.Text = "An ATEZ senden -->"
pnlHead.Enabled = True pnlHead.Enabled = True

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.7.5")> <Assembly: AssemblyVersion("4.1.7.6")>
<Assembly: AssemblyFileVersion("4.1.7.5")> <Assembly: AssemblyFileVersion("4.1.7.6")>