Gutschrift-SR, VerzPreise, div.

SDL/Fakturierung/cFakturierung.vb

@@ -2793,10 +2793,15 @@ Public Class cFakturierung
             'If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
 
 
+            Dim Gesamt_RG_Betrag As Double = 0
+            If ROW("SteuerFreierBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerFreierBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerFreierBetrag")
+            If ROW("SteuerpflichtigerBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerpflichtigerBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerpflichtigerBetrag")
+            Dim BelegartenKz = If(Gesamt_RG_Betrag < 0, "AG", "AR")
+
             Select Case ROW("RechnungSprache")
                 Case "EN"
                     '   MsgBox(("EN"))
-                    Select Case ROW("BelegartenKz")
+                    Select Case BelegartenKz
                         Case "AR"
                             rpt.lblUeberschriftRG_GS.Text = "COLLECTIVE INVOICE"
                             rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
@@ -2809,7 +2814,7 @@ Public Class cFakturierung
                             rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
                     End Select
                 Case Else
-                    Select Case ROW("BelegartenKz")
+                    Select Case BelegartenKz
                         Case "AR"
                             rpt.lblUeberschriftRG_GS.Text = "SAMMELRECHNUNG"
                         Case "AG"

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb

@@ -118,6 +118,9 @@
                     MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
                     MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
                 End If
+                If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", Me.FindForm) Then
+                    cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "IMEX"))
+                End If
                 MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING"))
                 MyComboBox1.changeItem("VZ")
         End Select

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -1902,7 +1902,7 @@ Public Class FormularManagerNEU
                     Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS"
                     Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL"
                     Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD"
-                    Case "DTB" : rpt.txtGrenzstelle.Text = "DETTELBACH"
+                    Case "DTB", "FO_WIHD" : rpt.txtGrenzstelle.Text = "DETTELBACH"
                     Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "")
                 End Select
             End If
@@ -1914,7 +1914,7 @@ Public Class FormularManagerNEU
             Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                 Case "IMEX"
                     Select Case AVISO.Grenzstelle
-                        Case "DTB" '--> VERAG
+                        Case "DTB", "FO_WIHD" '--> VERAG
                             ort = "Dettelbach"
                             rpt.txtFirmaInfo_VERAG.Visible = False
                             rpt.TextBox11.Visible = True
@@ -1969,7 +1969,7 @@ Public Class FormularManagerNEU
 
                         Case "NKD" : ort = "Nickelsdorf"
                         Case "NEU" : ort = "Neuhaus am Inn"
-                        Case "DTB"
+                        Case "DTB", "FO_WIHD"
                             ort = "Dettelbach"
                             rpt.txtFirmaInfo_VERAG.Visible = False
                             rpt.TextBox11.Visible = True
@@ -2262,6 +2262,7 @@ Public Class FormularManagerNEU
                     Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS"
                     Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL"
                     Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD"
+                    Case "DTB", "FO_WIHD" : rpt.txtGrenzstelle.Text = "DETTELBACH"
                     Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "")
                 End Select
             End If

SDL/SMS/frmSendSMS.vb

@@ -232,6 +232,7 @@ Public Class frmSendSMS
 
         If Kennzeichen <> "" Then
             txtNachricht.Text &= vbNewLine & lkwTxt & Kennzeichen
+            template_ParamMFGAdditional &= " | " & lkwTxt & Kennzeichen
         End If
 
         If FirmaTmp = "FRONTOFFICE" Then

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -55,7 +55,7 @@ Public Class frmKundenUebersichtZOLL
             'strip, such as context menu strip just add additional code 
             'line under InitializeComponent(), and it will work;
             InitializeComponent()
-            MenuStripKunden.Renderer = New MyRenderer()
+            ' MenuStripKunden.Renderer = New MyRenderer()
 
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
@@ -67,7 +67,7 @@ Public Class frmKundenUebersichtZOLL
         Try
             InitializeComponent()
             Me.kdNr = KdNr
-            MenuStripKunden.Renderer = New MyRenderer()
+            'MenuStripKunden.Renderer = New MyRenderer()
 
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
@@ -209,6 +209,7 @@ Public Class frmKundenUebersichtZOLL
             btnUbersicht.Visible = True
         End If
 
+        VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
 
 
     End Sub