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

CBAM/VERAG Zollanmeldungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-13 10:01:43 +01:00
parent 11bc5bfa95
commit a8504ac3a2
10 changed files with 158 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -11,7 +11,7 @@ Public Class cImporter_TelotecToVERAG
' =====================================================================
' MAIN ENTRY
' =====================================================================
Public Function ImportTelotec(CRN As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = True) As Boolean
Public Function ImportTelotec(CRN As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
If CRN Is Nothing Then Return False
If CRN = "" Then Return False
@@ -22,7 +22,7 @@ Public Class cImporter_TelotecToVERAG
Return False
End Function
Public Function ImportTelotec(tel As cTelotec_Anmeldung, Optional overwrite As Boolean = True, Optional freshinsert As Boolean = True) As Boolean
Public Function ImportTelotec(tel As cTelotec_Anmeldung, Optional overwrite As Boolean = True, Optional freshinsert As Boolean = False) As Boolean
Try
If tel Is Nothing Then Return False
If String.IsNullOrWhiteSpace(ToStringSafe(tel.Refs_LRN)) AndAlso
@@ -187,8 +187,11 @@ Public Class cImporter_TelotecToVERAG
' ================================================================
' ================================================================
' SAVE
Dim saved = ZA.SAVE()
' ======KAFKA==========================================================
cDakosyEZA_Greenpulse.INSERT_KAFKA(ZA)
' ================================================================
Return ZA.SAVE()
Return saved
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)