diff --git a/Aviso/ATEZ/frmATEZ_EZA.vb b/Aviso/ATEZ/frmATEZ_EZA.vb index bfdc671..cdb05aa 100644 --- a/Aviso/ATEZ/frmATEZ_EZA.vb +++ b/Aviso/ATEZ/frmATEZ_EZA.vb @@ -78,26 +78,6 @@ Public Class frmATEZ_EZA Try - 'If Button1.Text = "JSON" Then - ' If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten") - ' atez.setJsonPDF(atez_data, dgvAnhaenge) - - ' Dim data As New DataObject() - ' data.SetData(DataFormats.Text, atez_data.json) - ' Clipboard.SetDataObject(data) - ' Me.Cursor = Cursors.Default - ' MsgBox("JSON-Daten in Zwischenablage gespeichert") - ' Exit Sub - 'End If - - 'If atez_data.status = "Sent" Then - ' Exit Sub - 'End If - - ''auskommentiert, weil Sendungen ohne ANhang auch geschickt werden sollen: M.Akceylan - ''If Not checkAttachment() Then - '' Exit Sub - ''End If If Not checkMandatoryField() Then diff --git a/Aviso/ATEZ/frmATEZ_MIC.vb b/Aviso/ATEZ/frmATEZ_MIC.vb index a0d9158..a0b6407 100644 --- a/Aviso/ATEZ/frmATEZ_MIC.vb +++ b/Aviso/ATEZ/frmATEZ_MIC.vb @@ -93,35 +93,41 @@ Public Class frmATEZ_MIC ' RelayHub Request - MIC NL Import '---------------------------------------------------------------------- 'Dim environment = If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, cRelayHubEnvironment.TEST, cRelayHubEnvironment.PROD) + + '---------------------------------------------------------------------- + ' RelayHub Request - MIC NL Import + '---------------------------------------------------------------------- Dim environment = cRelayHubEnvironment.TEST Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With { - .environment = environment, - .referenceNo = ioReference, - .outputApplication = cRelayHubOutputApplication.MIC_NL_IMPORT, - .dispatchCountry = "TR", - .destinationCountry = "NL", - .additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With { - .micImportShipment = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubMicImportShipment With { - .partyId = "party-id-003", - .shipmentId = ioReferenceLRN - }, - .declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From { - New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With { - .addresses = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress), - .objectIdentification = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubObjectIdentification With { - .objectName = lblBezugsnummer.Text, - .shipmentId = SENDUNG.tblSnd_SendungID, - .avisoId = SENDUNG.tblSnd_AvisoID - } + .environment = environment, + .referenceNo = ioReference, + .regimeType = "IM", + .outputApplication = cRelayHubOutputApplication.MIC_NL_IMPORT, + .dispatchCountry = "TR", + .destinationCountry = "NL", + .additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With { + .micImportShipment = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubMicImportShipment With { + .company = "NL", + .plant = "IN", + .connectionId = "MICWebService", + .partnerId = ioReferenceLRN, + .partyId = "party-id-003", + .shipmentId = ioReferenceLRN, + .actionCode = "DIF", + .shipmentType = "E" + }, + .declaration = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration) From { + New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDeclaration With { + .addresses = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAddress) + } + } + }, + .additionalSettings = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalSettings With { + .disableOutbound = True, + .disableValidation = False + } } - } - }, - .additionalSettings = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalSettings With { - .disableOutbound = False, - .disableValidation = False - } - } '---------------------------------------------------------------------- ' Dokumente diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 83764a8..39a9b13 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: ' - - + +