This commit is contained in:
2026-10-23 10:07:22 +02:00
3 changed files with 33 additions and 47 deletions

View File

@@ -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

View File

@@ -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

View File

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