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

eza

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-15 10:50:09 +01:00
parent eb4fdfaf58
commit cb60a0eb16
3 changed files with 33 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -164,16 +164,24 @@ Public Class cImporter_TelotecToVERAG
' ------------------------------------------------------------
' DOKUMENTE
' ------------------------------------------------------------
For Each doc In p.DOC_CERTS
Dim dd As New cVERAG_CustomsDeclarations_Document With {
.zaDoc_ItemId = Nothing,
.zaDoc_Code = ToStringSafe(doc.DocCerts_DocCd),
.zaDoc_Reference = ToStringSafe(doc.DocCerts_DRef),
.zaDoc_Date = ToNullableDate(doc.DocCerts_IssD)
}
it.Documents.Add(dd)
Try
Dim dd As New cVERAG_CustomsDeclarations_Document With {
.zaDoc_ItemId = Nothing,
.zaDoc_Code = ToStringSafe(doc.DocCerts_DocCd),
.zaDoc_Reference = ToStringSafe(doc.DocCerts_DRef),
.zaDoc_Date = ToNullableDate(doc.DocCerts_IssD)
}
it.Documents.Add(dd)
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
Next
ZA.Items.Add(it)
Next
@@ -220,14 +228,14 @@ Public Class cImporter_TelotecToVERAG
' PARTY HELPER
' =====================================================================
Private Sub AddParty(za As cVERAG_CustomsDeclarations,
eori As String,
role As String,
name As Object,
street As Object,
plz As Object,
city As Object,
country As Object,
uid As Object)
role As String,
eori As String,
name As Object,
street As Object,
plz As Object,
city As Object,
country As Object,
uid As Object)
If String.IsNullOrWhiteSpace(ToStringSafe(name)) Then Exit Sub
@@ -261,7 +269,7 @@ Public Class cImporter_TelotecToVERAG
' Small helpers (falls du sie schon hast, kannst du diese entfernen)
' =========================================================================
Private Function ToStringSafe(v As Object) As String
If v Is Nothing Then Return Nothing
If v Is Nothing Then Return ""
Dim s As String = TryCast(v, String)
If s IsNot Nothing Then Return s
Return Convert.ToString(v, Globalization.CultureInfo.InvariantCulture)