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

Niederlassung

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-19 11:42:06 +01:00
parent 82e54fcef2
commit f17dc7fc9a
2 changed files with 37 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1612,10 +1612,10 @@ Public Class cDakosyNCTSOut004
'Transaktion:
XML.Transaktion = New VersandanmeldungNCTSDE_004.TransaktionNCTSTyp
XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
XML.Transaktion.IOPartner = cDakosyFunftions.getIOPartner(cDY.ncts_firma, "NCTS") '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) '"SUW"
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = cDakosyFunftions.getDivision(cDY.ncts_firma, "NCTS") '"SUW"
XML.Transaktion.Version = Interface_VERSION
' XML.Transaktion.IODivision3 = "DUR"
XML.EinzelVersandanmeldung = New VersandanmeldungNCTSDE_004.EinzelVersandanmeldungTyp

52
DAKOSY_Worker/cDakosyFunftions.vb
View File

@@ -1,4 +1,5 @@
Imports Renci.SshNet
Imports com.sun.tools.internal.xjc.reader.gbind
Imports Renci.SshNet
Imports System.IO
Imports System.Windows.Forms
@@ -51,7 +52,7 @@ Public Class cDakosyFunftions
MsgBox(ex.Message & ex.StackTrace)
End Try
End Sub
Shared Function getDivision(FIRMA_DY, Optional fiskal = False) As String
Shared Function getDivision(FIRMA_DY, PROCEDURE, Optional fiskal = False) As String
If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Return "SUB"
@@ -62,25 +63,37 @@ Public Class cDakosyFunftions
Case "AMBAR"
Return "AMBWO"
Case "VERAG"
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "SUB" : Return "SUB"
Case "SBG" : Return "SBG"
Case "NKD" : Return "NKD"
Case "NEU" : Return "NEU"
Case "WAI" : Return "WAI"
Case Else : Return "SUB"
End Select
Else
Return "SUB"
End If
Select Case PROCEDURE ' Wenn EZA,... -> Alles über Suben
Case "EZA", "AA", "AES"
Return "SUB"
Case Else ' --> NCTS
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "SUB" : Return "SUB"
Case "SBG" : Return "SBG"
Case "NKD" : Return "NKD"
Case "NEU" : Return "NEU"
Case "WAI" : Return "WAI"
Case Else : Return "SUB"
End Select
Else
Return "SUB"
End If
End Select
Case "UNISPED"
Return ""'"ATSP"
Case "IMEX"
If fiskal Then
Return "GLO"
Else
Return "IME"
Select Case PROCEDURE ' Wenn AA,... -> Alles über VERG/SUB
Case "AA"
Return "SUB"
Case Else
Return "IME"
End Select
End If
Case Else : Return "SUB"
End Select
@@ -88,7 +101,7 @@ Public Class cDakosyFunftions
End Function
Shared Function getIOPartner(FIRMA_DY) As String
Shared Function getIOPartner(FIRMA_DY, PROCEDURE) As String
If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Return "VERA"
@@ -101,7 +114,12 @@ Public Class cDakosyFunftions
Case "DURMAZ"
Return "DUR"
Case "IMEX"
Return "IMEX"
Select Case PROCEDURE ' Wenn AA,... -> Alles über VERAG
Case "AA"
Return "VERG"
Case Else
Return "IMEX"
End Select
Case "UNISPED"
Return "UNAT"
Case "AMBAR"