EXG Automatisierung Gestellungsprozess, NCTS Erstellung

2025-01-26 21:53:50 +01:00
parent 444293a564
commit 946c8c165a
15 changed files with 2636 additions and 20 deletions
--- a/DAKOSY_Worker/cDakosyFunftions.vb
+++ b/DAKOSY_Worker/cDakosyFunftions.vb
@@ -1,9 +1,113 @@
 Imports Renci.SshNet
 Imports System.IO
+Imports System.Windows.Forms

 Public Class cDakosyFunftions

+    Public Shared Function getFirma_DY(FilialenNr As String, F_ME As Form) As String
+        Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If (VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") And FilialenNr = 5501 Then
+            FIRMA_DY = "IMEX"
+        ElseIf FilialenNr = 5701 Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firma = "AMBAR" Then
+                FIRMA_DY = "AMBAR"
+            Else
+                FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.getFirma ' Akt von AMBAR aber kein AMBAR-MA -> Dakosy unter VERAG!
+            End If

+        ElseIf FilialenNr = 5601 Then
+            FIRMA_DY = "UNISPED"
+        ElseIf FilialenNr = 4801 Or FilialenNr = 4802 Then
+            FIRMA_DY = "ATILLA"
+        Else
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
+
+                'If DY Is Nothing Then
+                Dim f As New frmDakosy_SelFirma
+                If f.ShowDialog() = DialogResult.OK Then
+                    FIRMA_DY = f.FIMRA_DY
+                Else
+                    If F_ME IsNot Nothing Then F_ME.Close()
+                End If
+                'End If
+            Else
+                FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(FilialenNr)
+            End If
+        End If
+        Return FIRMA_DY
+    End Function
+
+    Public Shared Sub replaceNullDateXML(XMLFile As String)
+        Try
+            If Not System.IO.File.Exists(XMLFile) Then Exit Sub
+            Dim lines() As String = System.IO.File.ReadAllLines(XMLFile)
+            Using writer = New System.IO.StreamWriter(XMLFile, False)
+                For Each line In lines
+                    If Not line.Contains("0001-01-01") Then writer.WriteLine(line)
+                Next
+            End Using
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+    Shared Function getDivision(FIRMA_DY, 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"
+        Else
+            Select Case FIRMA_DY
+                Case "ATILLA"
+                    Return "SUW"
+                Case "AMBAR"
+                    Return "AMBWO"
+                Case "VERAG"
+                    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
+
+                Case "UNISPED"
+                    Return ""'"ATSP"
+                Case "IMEX"
+                    If fiskal Then
+                        Return "GLO"
+                    Else
+                        Return "IME"
+                    End If
+                Case Else : Return "SUB"
+            End Select
+        End If
+
+    End Function
+
+    Shared Function getIOPartner(FIRMA_DY) As String
+        If If(FIRMA_DY, "") = "" Then FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            Return "VERA"
+        Else
+            Select Case FIRMA_DY
+                Case "ATILLA"
+                    Return "VERG"
+                Case "VERAG"
+                    Return "VERG"
+                Case "DURMAZ"
+                    Return "DUR"
+                Case "IMEX"
+                    Return "IMEX"
+                Case "UNISPED"
+                    Return "UNAT"
+                Case "AMBAR"
+                    Return "VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
+                Case Else : Return "VERG"
+            End Select
+        End If
+
+    End Function
    Shared Function send_Data_To_Dakosy_FTP(file, dySt_BezugsNr, dy_Id, FRIMA_DY)
        Try
            If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_DakosyZA_Senden", "AVISO") Then