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

NCTS TR ; OpenAI

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-04 13:22:07 +01:00
parent 356899e64b
commit 865ab8938d
5 changed files with 85 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/cATEZ_ncts_api.vb
View File

@@ -49,14 +49,14 @@ Public Class cATEZ_ncts_api
If Not checkDY_NCTS(NCTS_TMP.Mrn) Then
Dim NCTS_FREMD = VERAG_PROG_ALLGEMEIN.cNCTS_FREMD.LOADByMRN(NCTS_TMP.Mrn, True)
If NCTS_FREMD Is Nothing Then NCTS_FREMD = New cNCTS_FREMD
NCTS_FREMD.ncts_Partnersystem = "ATEZ"
NCTS_FREMD.ncts_MRN = NCTS_TMP.Mrn
If checkDY_NCTSStatus60(NCTS_TMP.Mrn) And OverrideNCTSFin = False Then
If NCTS_FREMD.ncts_Status = 60 And OverrideNCTSFin = False Then
'Wenn NCTS beretis Erledigt und kein Flag fürs überschreiben, mach nix....
Else
Dim NCTS_FREMD = VERAG_PROG_ALLGEMEIN.cNCTS_FREMD.LOADByMRN(NCTS_TMP.Mrn, True)
If NCTS_FREMD Is Nothing Then NCTS_FREMD = New cNCTS_FREMD
NCTS_FREMD.ncts_Partnersystem = "ATEZ"
NCTS_FREMD.ncts_MRN = NCTS_TMP.Mrn
NCTS_FREMD.ncts_Eroeffnung = NCTS_TMP.MrnDate
@@ -162,6 +162,9 @@ Public Class cATEZ_ncts_api
Public Shared Function checkDY_NCTS(MRN As String) As Boolean
Return ((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("COUNT(*)", "[tblDakosy_NCTSOut004]", "ncts_MRN='" & MRN & "'", "FMZOLL", 0)) > 0
End Function
Public Shared Function checkDY_NCTSStatus60(MRN As String) As Boolean
Return ((New VERAG_PROG_ALLGEMEIN.SQL).DLookup("COUNT(*)", "[tblDakosy_NCTSOut004]", "ncts_MRN='" & MRN & "' AND ncts_Status=60 ", "FMZOLL", 0)) > 0
End Function
Public Shared Function checkDY_TC(MRN As String) As Boolean