diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb index d40bbb7..52696ad 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.vb @@ -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 diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index eda2550..2a19501 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +