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

4
Aviso/My Project/AssemblyInfo.vb
View File

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