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

UID-Pruefung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-05-28 15:50:25 +02:00
parent 301a7bff2a
commit a0ea2cf6e0
7 changed files with 183 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut004.vb
View File

@@ -1604,7 +1604,7 @@ Public Class cDakosyNCTSOut004
Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String, Optional DY_Mitarbeiter As String = "") As Boolean
Shared Function generateVersandanmeldungNCTSDE_004(cDY As cDakosyNCTSOut004, ByRef saveFile As String, DY_ACTION As String, StartupPath As String, Art As String, Optional DY_Mitarbeiter As String = "") As Boolean
Try
Dim Interface_VERSION = "004"
@@ -1614,10 +1614,10 @@ Public Class cDakosyNCTSOut004
'Transaktion:
XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp
XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, "NCTS") 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, Art) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
XML.Transaktion.IODatumZeit = Now
XML.Transaktion.IOReferenz = cDY.ncts_Trans_Referenz
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, "NCTS") '"SUW"
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, Art) '"SUW"
XML.Transaktion.Version = Interface_VERSION
' XML.Transaktion.IODivision3 = "DUR"
XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp

2
DAKOSY_Worker/cDakosyFunftions.vb
View File

@@ -68,7 +68,7 @@ Public Class cDakosyFunftions
Return "AMBWO"
Case "VERAG"
Select Case PROCEDURE ' Wenn EZA,... -> Alles über Suben
Case "EZA", "AA", "AES"
Case "EZA", "AA", "AES", "T1", "T2"
Return "SUB"
Case Else ' --> NCTS
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then