DAkosy, cWorker_verwahrung, etc.

2026-04-02 17:13:31 +02:00
parent a4dee79338
commit 2096d56db8
3 changed files with 67 additions and 10 deletions
--- a/DAKOSY_Worker/cDakosyFunftions.vb
+++ b/DAKOSY_Worker/cDakosyFunftions.vb
@@ -126,7 +126,12 @@ Public Class cDakosyFunftions
                Case "UNISPED"
                    Return "UNAT"
                Case "AMBAR"
-                    Return "ATIL" '"VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
+                    Select Case PROCEDURE ' Wenn AA über VERAG
+                        Case "AA"
+                            Return "VERG"
+                        Case Else
+                            Return "ATIL"  '"VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
+                    End Select
                Case Else : Return "VERG"
            End Select
        End If