creditsafe bugfix, abrechnungmaske (gu an CS oder AG), ZE-Buttons, Syska

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1,5 +1,4 @@
-Imports System.IO
-Imports com.sun.xml.internal.rngom.digested
+
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlFaktAbrechnung
@@ -545,7 +544,7 @@ Public Class usrCntlFaktAbrechnung
         End If
 
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-        '    FirmaTmp = "AMBAR"
+        'FirmaTmp = "AMBAR"
         'End If
 
         Select Case FirmaTmp
@@ -1886,6 +1885,7 @@ Public Class usrCntlFaktAbrechnung
 
         Dim FIRMATMP = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale2(cboFiliale._value)
         kdFirmaRechnungAn._UseFIRMA = FIRMATMP
+        If cboFiliale._value = "5701" AndAlso VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AMBAR_ALLE_RECHNUNGSEMPFÄNGER", "SDL") Then kdFirmaRechnungAn._UseFIRMA = Nothing
         kdFirmaAbsender._UseFIRMA = FIRMATMP
         kdFirmaAuftraggeber._UseFIRMA = FIRMATMP
         kdFirmaEmpfaenger._UseFIRMA = FIRMATMP
@@ -3974,14 +3974,26 @@ Nächste_Textzeile_lesen:
         End If
     End Sub
 
-    Private Sub EUStGutschriftAnVeragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GutschriftAnVeragToolStripMenuItem.Click
+    Private Sub EUStGutschriftAnVeragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VeragAGToolStripMenuItem.Click, VeragCSToolStripMenuItem.Click
+
+        Dim verag As String = ""
+
+        Select Case sender.name
+            Case "VeragAGToolStripMenuItem"
+                verag = "Verag AG"
+                veragKunde = 3013401
+
+            Case "VeragCSToolStripMenuItem"
+                verag = "Verag Customs Service"
+                veragKunde = 3017683
+        End Select
 
         Dim spedbuch = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(cboFiliale._value, txtAbfertigungsnummer.Text, cboSpedBuchUnterNr._value)
 
         If spedbuch.Abfertigungsart <> 1 AndAlso RECHNUNG.[BelegartenNr] = 71 Then Exit Sub 'nur bei Rechnung und abfertigungsart 1
 
 
-        Dim abfrage = "Soll eine neue Gutschrift an die Verag AG für die Verzollung/EUST erstellt werden?"
+        Dim abfrage = "Soll eine neue Gutschrift an die " & verag & " für die Verzollung/EUST erstellt werden?"
         Dim PosWithWEustOrVerz As Boolean = False
         Dim selectedPOS As New List(Of VERAG_PROG_ALLGEMEIN.cRechnungsausgangPositionen)
         For Each POS In RECHNUNG.POSITIONEN.Where(Function(x) x.Anzahl > 0).ToList
@@ -3994,7 +4006,6 @@ Nächste_Textzeile_lesen:
         If Not PosWithWEustOrVerz Then Exit Sub
 
         If vbYes = MsgBox(abfrage, vbYesNoCancel) Then
-            veragKunde = 3013401
             saveMe()
             Dim RECHNUNGOldID = RECHNUNG.RK_ID
             Dim RECHNUNG_TMP = New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RECHNUNGOldID)
@@ -4110,4 +4121,6 @@ Nächste_Textzeile_lesen:
         btn.Enabled = IIf(cboSammelrechnung._value = 0, True, False)
 
     End Sub
+
+
 End Class