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

NCTS_TR ATEZ Anpassungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-02-02 13:06:31 +01:00
parent f8b69353a6
commit d1101072a6
20 changed files with 13589 additions and 2069 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
initATLASAufschubkonten/cMAVIWorker.vb
View File

@@ -1,6 +1,7 @@
Imports System.Globalization
Imports System.IO
Imports System.Xml
Imports VERAG_PROG_ALLGEMEIN
Public Class cMAVIWorker
Public Shared Dateiname = ""
@@ -9,7 +10,7 @@ Public Class cMAVIWorker
Shared Partnersystem = "" ' FUnzt noch nciht --> leer für zuordnung guid mrn, sonst problem
Public Shared Function readNCTS_VersandanmeldungXML_CC015B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer) As String
Public Shared Function readNCTS_VersandanmeldungXML_CC015B(ncts_Partnersystem As String, FORM As frmTRNCTS_NachrichtenVerarbeitung, doc As XmlDocument, ByRef NS_id As Integer, d As String) As String
Try
readNCTS_VersandanmeldungXML_CC015B = ""
Dim sw = New StringWriter()
@@ -61,6 +62,15 @@ Public Class cMAVIWorker
' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status
'-------------------------------------------------------------------------------------------------
'-------DATEN AUS TR NCTS LADEN-------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
cNCTSPartnerWorker.cTR_NCTS.GET_FROM_NCTSTR_CC015B(d, NCTS)
'-------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------
If NCTS.SAVE_ALL() Then
' If If(NCTS.ncts_Status, 0) <= 5 Then DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_TMP, DAKOSY_Worker.cDY_Statusliste.S_05,,,, statusTMP)
Dim NR As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Nachrichten()
@@ -76,7 +86,6 @@ Public Class cMAVIWorker
End If
'Try
' System.IO.File.Delete(p)
'Catch ex As Exception
@@ -134,6 +143,11 @@ Public Class cMAVIWorker
If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05
' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05
NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status