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

CBAM, VERAG Cust

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-01-07 22:29:08 +01:00
parent 6b44360ed4
commit 355058cefd
8 changed files with 247 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -11,18 +11,18 @@ Public Class cImporter_TelotecToVERAG
' =====================================================================
' MAIN ENTRY
' =====================================================================
Public Function ImportTelotec(CRN As String, Optional overwrite As Boolean = True) As Boolean
Public Function ImportTelotec(CRN As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = True) As Boolean
If CRN Is Nothing Then Return False
If CRN = "" Then Return False
Dim cTelotec_Anmeldung = TELOTEC_Worker.cTelotec_Anmeldung.LOADByCRN(CRN, True)
If cTelotec_Anmeldung IsNot Nothing Then Return ImportTelotec(cTelotec_Anmeldung, overwrite)
If cTelotec_Anmeldung IsNot Nothing Then Return ImportTelotec(cTelotec_Anmeldung, overwrite, freshInsert)
Return False
End Function
Public Function ImportTelotec(tel As cTelotec_Anmeldung, Optional overwrite As Boolean = True) As Boolean
Public Function ImportTelotec(tel As cTelotec_Anmeldung, Optional overwrite As Boolean = True, Optional freshinsert As Boolean = True) As Boolean
Try
If tel Is Nothing Then Return False
If String.IsNullOrWhiteSpace(ToStringSafe(tel.Refs_LRN)) AndAlso
@@ -177,6 +177,14 @@ Public Class cImporter_TelotecToVERAG
ZA.Items.Add(it)
Next
' ================================================================
'CBAM WARNING
' ================================================================
If freshinsert Then
ZA.checkfreshCBAMWarning()
End If
' ================================================================
' ================================================================
' SAVE
' ================================================================