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

Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-27 10:08:36 +01:00
parent a102e0d633 bc8128c389
commit 7ec27cb8b6
9 changed files with 561 additions and 269 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -1,5 +1,4 @@
Imports System.Data.SqlClient
Imports System.Reflection
Imports System.Reflection
Imports java.lang
Imports TELOTEC_Worker
Imports VERAG_PROG_ALLGEMEIN
@@ -168,19 +167,24 @@ Public Class cImporter_TelotecToVERAG
If p.DOC_CERTS IsNot Nothing Then
For Each doc In p.DOC_CERTS
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)
Dim ItemId = Nothing
Dim Doc_Code As String = ToStringSafe(doc.DocCerts_DocCd)
Dim Doc_Reference As String = ToStringSafe(doc.DocCerts_DRef)
Dim Doc_Date As String = ToStringSafe(doc.DocCerts_IssD)
Try
Dim dd As New cVERAG_CustomsDeclarations_Document With {
.zaDoc_ItemId = ItemId,
.zaDoc_Code = Doc_Code,
.zaDoc_Reference = Doc_Reference,
.zaDoc_Date = Doc_Date
}
it.Documents.Add(dd)
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
Next
it.Documents.Add(dd)
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
Next
End If