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

17
DAKOSY_Worker/cImporter_DakosyToVERAG.vb
View File

@@ -7,15 +7,15 @@ Public Class cImporter_DakosyToVERAG
' ========================================================================
' MAIN ENTRY
' ========================================================================
Public Function ImportDakosyEZA(MRN As String, Optional overwrite As Boolean = True) As Boolean
Public Function ImportDakosyEZA(MRN As String, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
If MRN Is Nothing Then Return False
If MRN = "" Then Return False
Dim EZA = cDakosyEZA.LOADByMRN(MRN, True)
If EZA IsNot Nothing Then Return ImportDakosyEZA(EZA)
If EZA IsNot Nothing Then Return ImportDakosyEZA(EZA, overwrite, freshInsert)
Return False
End Function
Public Function ImportDakosyEZA(eza As cDakosyEZA, Optional overwrite As Boolean = True) As Boolean
Public Function ImportDakosyEZA(eza As cDakosyEZA, Optional overwrite As Boolean = True, Optional freshInsert As Boolean = False) As Boolean
Try
If eza Is Nothing Then Return False
If String.IsNullOrWhiteSpace(eza.eza_MRN) AndAlso String.IsNullOrWhiteSpace(eza.eza_ANR) Then Return False
@@ -289,11 +289,22 @@ Public Class cImporter_DakosyToVERAG
Next
End If
' ================================================================
'CBAM WARNING
' ================================================================
If freshInsert Then
VERAG_ZA.checkfreshCBAMWarning()
End If
' ================================================================
' ================================================================
' SAVE
' ================================================================
Return VERAG_ZA.SAVE()
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
Return False