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

Import Ecxel DY

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-09-05 08:54:00 +02:00
parent bdff050ac2
commit a962e67f66
1 changed files with 3 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -139,8 +139,7 @@ Public Class frmATEZ_EZA
Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
.referenceNo = ioReference,
.regimeType = "IM",
.customer = "AVISO",
.regimeType = "IM",' .customer = "AVISO",
.additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With {
.transaction = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubTransaction With {
.ioPartner = txtDyMandant.Text,
@@ -163,12 +162,8 @@ Public Class frmATEZ_EZA
.declarantIsConsignee = True,
.representationRelationshipCode = "",
.inputTaxDeduction = "",'"true",
.procedureCodeRequested = procedureCodeRequested.ToString,
.goodsStatus = "",'"EU",
.costs = New List(Of VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubCost) From {
New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubCost With {.costAmount = If(SENDUNG.tblSnd_Warenwert IsNot Nothing, CDbl(SENDUNG.tblSnd_Warenwert).ToString("F2", System.Globalization.CultureInfo.InvariantCulture), 0), .costCurrency = If(SENDUNG.tblSnd_WarenwertWaehrung, "")}
},
.transportMeansArrivalIdentity = txtLKWId.Text,
.procedureCodeRequested = procedureCodeRequested.ToString,' .goodsStatus = "",'"EU",
.transportMeansArrivalIdentity = txtLKWId.Text,
.transportMeansNationalityCode = If(AVISO.LKW_Nationalitaet, "")
}
}