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

dakosy

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-27 10:08:31 +01:00
parent 44244fd0dd
commit a102e0d633
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
DAKOSY_Worker/cDakosyFunftions.vb
View File

@@ -5,17 +5,21 @@ Imports System.Windows.Forms
Public Class cDakosyFunftions Public Class cDakosyFunftions
Public Shared Function getFirma_DY(FilialenNr As String, F_ME As Form) As String Public Shared Function getFirma_DY(FilialenNr As String, F_ME As Form, Procedure As String) As String
Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 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 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" FIRMA_DY = "IMEX"
ElseIf FilialenNr = 5701 Then ElseIf FilialenNr = 5701 Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_firma = "AMBAR" Then Select Case Procedure
FIRMA_DY = "AMBAR" Case "NCTS"
Else FIRMA_DY = "AMBAR"
FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.getFirma ' Akt von AMBAR aber kein AMBAR-MA -> Dakosy unter VERAG! Case Else
End If 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
End Select
ElseIf FilialenNr = 5601 Then ElseIf FilialenNr = 5601 Then
FIRMA_DY = "UNISPED" FIRMA_DY = "UNISPED"
ElseIf FilialenNr = 4801 Or FilialenNr = 4802 Then ElseIf FilialenNr = 4801 Or FilialenNr = 4802 Then
@@ -63,7 +67,6 @@ Public Class cDakosyFunftions
Case "AMBAR" Case "AMBAR"
Return "AMBWO" Return "AMBWO"
Case "VERAG" Case "VERAG"
Select Case PROCEDURE ' Wenn EZA,... -> Alles über Suben Select Case PROCEDURE ' Wenn EZA,... -> Alles über Suben
Case "EZA", "AA", "AES" Case "EZA", "AA", "AES"
Return "SUB" Return "SUB"
@@ -123,7 +126,7 @@ Public Class cDakosyFunftions
Case "UNISPED" Case "UNISPED"
Return "UNAT" Return "UNAT"
Case "AMBAR" Case "AMBAR"
Return "VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR.. Return "ATIL" '"VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
Case Else : Return "VERG" Case Else : Return "VERG"
End Select End Select
End If End If