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

Verträge Suche

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-11-26 09:01:02 +01:00
parent d2062e9e22
commit ec89c98b9d
5 changed files with 283 additions and 198 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -3,6 +3,7 @@ Imports com.esendex.sdk.optouts.models
Imports DAKOSY_Worker.eZollTypes
Imports SDL
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cRelayHub
Public Class frmATEZ_EZA
@@ -137,11 +138,18 @@ Public Class frmATEZ_EZA
' New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument With {.type = "base64", .base64String = "SGVsbG8sIHRoaXMgaXMgYSBzYW1wbGUgYmFzZTY0IHN0cmluZy4=", .filename = "test3.txt", .fileType = "cmr"}
'},
Dim AdditionalSettings As New List(Of String)
If btnAgg_desc.Tag = 1 Then AdditionalSettings.Add("description")
If btnAgg_Tnr.Tag = 1 Then AdditionalSettings.Add("commodity_code")
If btnAgg_Origin.Tag = 1 Then AdditionalSettings.Add("country_of_origin")
If btnAgg_Unit.Tag = 1 Then AdditionalSettings.Add("unit_type")
Dim ATEZ_RH_EZA As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubJobOrderRequest With {
.referenceNo = ioReference,
.outputApplication = "dakosy/sftp/verg",'.outputApplication = "dakosy/sftp/vera",
.regimeType = "IMPORT",' .customer = "AVISO",
.dispatchCountry = "TR",
.dispatchCountry = "TR",'"TR",
.destinationCountry = "DE", 'Default, wird später überschrieben!! (Pflichtfeld)
.additionalData = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubAdditionalData With {
.transaction = New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubTransaction With {
@@ -171,8 +179,13 @@ Public Class frmATEZ_EZA
}
}
}
},
.additionalSettings = New cRelayHubAdditionalSettings With {
.combineOptions = AdditionalSettings
}
}
}
If If(AVISO.Zollstelle, "").length >= 4 Then
ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice = AVISO.Zollstelle.ToString.Substring(AVISO.Zollstelle.ToString.Length - 4)
'MsgBox(ATEZ_RH_EZA.additionalData.declaration(0).headerData.addressedCustomsOffice)
@@ -214,27 +227,7 @@ Public Class frmATEZ_EZA
Dim bd As New Chilkat.BinData
Dim DOC As New VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHubDocument
If r.Cells("anh_Art").Value IsNot DBNull.Value Then
Select Case r.Cells("anh_Art").Value
Case "Rechnung", "Konsi-Rechnung", "eFatura", "INVOICE" : DOC.fileType = "invoice"
Case "CMR" : DOC.fileType = "cmr"
Case "Ausfuhr", "EXPORT" : DOC.fileType = "tr_export_declaration"
Case "ATR", "A.TR", "ATR-EUR1" : DOC.fileType = "atr"
Case "Vorpapier", "T1" : DOC.fileType = "transit_declaration"
Case Else : DOC.fileType = "other"
''invoice',
'atr',
'cmr',
'transit_declaration',
'tr_export_declaration',
' Case Else : DOC.fileType = "additional_data" --> DARF NCIHT -_> additional_data ist das verwednete Datenformat
End Select
End If
'invoice' | 'atr' | 'cmr' | 'transit_declaration' | 'tr_export_declaration' | 'additional_data', received 'PDF'
DOC.fileType = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getRelayHub_AnhDesc(r.Cells("anh_Art").Value)
DOC.type = "base64"
DOC.filename = r.Cells("anh_Name").Value
@@ -771,4 +764,14 @@ Public Class frmATEZ_EZA
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
cRelayHubToken.DeleteStore()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnAgg_Tnr.Click, btnAgg_desc.Click, btnAgg_Origin.Click, btnAgg_Unit.Click
If sender.Tag = 0 Then
sender.Tag = 1
sender.BackColor = Color.DeepSkyBlue
Else
sender.Tag = 0
sender.BackColor = SystemColors.Control
End If
End Sub
End Class