Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

Aviso/Aviso.vbproj

@@ -1152,6 +1152,12 @@
     <Compile Include="frmWarenbezeichnungBegriffeEdit.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmReferenzenSicherheiten.Designer.vb">
+      <DependentUpon>frmReferenzenSicherheiten.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmReferenzenSicherheiten.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmWarenorte.Designer.vb">
       <DependentUpon>frmWarenorte.vb</DependentUpon>
     </Compile>
@@ -1627,6 +1633,9 @@
     <EmbeddedResource Include="frmWarenbezeichnungBegriffeEdit.resx">
       <DependentUpon>frmWarenbezeichnungBegriffeEdit.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmReferenzenSicherheiten.resx">
+      <DependentUpon>frmReferenzenSicherheiten.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmWarenorte.resx">
       <DependentUpon>frmWarenorte.vb</DependentUpon>
     </EmbeddedResource>

Aviso/frmGesamtsicherheiten.vb

@@ -5,7 +5,7 @@ Public Class frmGesamtsicherheiten
 
     Public Property gessicherheitID As Integer
     Public Property datum As DateTime = Nothing
-    Property GesSichRef As cGesamtSicherheitsReferenz
+    Property GesSichRef As VERAG_PROG_ALLGEMEIN.cAufschubKonten
     Property Standort As String = ""
 
     Public ZollsatzMulti As Double = 0
@@ -53,7 +53,7 @@ Public Class frmGesamtsicherheiten
             LoadDGV()
         End If
         LoadStandort()
-        cboATR.Enabled = GesSichRef.gsr_ATR
+        cboATR.Enabled = GesSichRef.brgakto_gs_ATR
 
         Me.Text = "Gesamtsicherheit " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvGesamtsicherheitCRN)
@@ -62,11 +62,11 @@ Public Class frmGesamtsicherheiten
 
     Public Sub LoadDGV()
         'lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString("N")
-        lblSaldo.Text = "Saldo: € " & GesSichRef.gsr_Saldo.ToString()
+        lblSaldo.Text = "Saldo: € " & GesSichRef.brgakto_gs_aktSaldo.ToString()
         lblGestellungNr.Text = ""
         Dim sqladd1 As String = ""
-        If GesSichRef.gsr_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.gsr_ust & "/100), 'C', 'de-DE') as gs_ust"
+        If GesSichRef.brgakto_gs_ustEnabled Then sqladd1 &= ", FORMAT((([gs_warenwert] + [gs_sicherheitsbetrag]) * " & GesSichRef.brgakto_gs_ust & "/100), 'C', 'de-DE') as gs_ust"
-        If GesSichRef.gsr_ATR Then sqladd1 &= ", [gs_atr]"
+        If GesSichRef.brgakto_gs_ATR Then sqladd1 &= ", [gs_atr]"
 
 
         Dim addtosqlstring As String = ""
@@ -102,7 +102,7 @@ Public Class frmGesamtsicherheiten
                 .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                 .Columns("gs_saldo").DefaultCellStyle.Format = "c"
                 .Columns("gs_saldo").Visible = False
-                Select Case GesSichRef.gsr_ATR
+                Select Case GesSichRef.brgakto_gs_ATR
                     Case True
                         .Columns("gs_ATBNr").HeaderText = "ATB"
                         .Columns("gs_atr").HeaderText = "ATR"
@@ -134,7 +134,7 @@ Public Class frmGesamtsicherheiten
                 .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                 .Columns("gs_saldo").DefaultCellStyle.Format = "c"
                 .Columns("gs_saldo").Visible = False
-                Select Case GesSichRef.gsr_ATR
+                Select Case GesSichRef.brgakto_gs_ATR
                     Case True
                         .Columns("gs_ATBNr").HeaderText = "ATC / MRN"
                     Case Else
@@ -163,9 +163,9 @@ Public Class frmGesamtsicherheiten
         'Referenzwert = dt.Rows(0).Item("Referenzwert")
 
         'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
-        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
+        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.getReferenzbetrag(Now()).ToString()
-        lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
+        lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_zollsatz & "%"
-        ZollsatzMulti = GesSichRef.gsr_zollsatz / 100
+        ZollsatzMulti = GesSichRef.brgakto_gs_zollsatz / 100
     End Sub
 
 
@@ -188,7 +188,7 @@ Public Class frmGesamtsicherheiten
             Select Case sender.name
                 Case "txtMRNWarenwert"
                     txtMRNSicherheitsbetrag.Text = (txtMRNWarenwert.Text * ZollsatzMulti).ToString("N")
-                    If GesSichRef.gsr_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.gsr_ust / 100)
+                    If GesSichRef.brgakto_gs_ustEnabled Then txtEust.Text = (Double.Parse(txtMRNWarenwert.Text) + Double.Parse(txtMRNSicherheitsbetrag.Text)) * (GesSichRef.brgakto_gs_ust / 100)
                 Case "txtCRNWarenwert"
                     txtCRNSicherheitsbetrag.Text = (txtCRNWarenwert.Text * ZollsatzMulti).ToString("N")
             End Select
@@ -266,7 +266,7 @@ Public Class frmGesamtsicherheiten
                         .gs_gsNr = Me.gessicherheitID
                         .gs_erstellungsdatum = Me.datum
                         .gs_freitext = Me.txtFreitextOpen.Text
-                        .gs_saldo = GesSichRef.gsr_Saldo
+                        .gs_saldo = GesSichRef.brgakto_gs_aktSaldo
                         .gs_atr = setNullToZero(cboATR.SelectedItem)
                         setEnviromentDataToObject(OPENWithMultiplePosNr, Me)
                     End With
@@ -305,7 +305,7 @@ Public Class frmGesamtsicherheiten
                     .gs_gsNr = Me.gessicherheitID
                     .gs_erstellungsdatum = Me.datum
                     .gs_freitext = Me.txtFreitextOpen.Text
-                    .gs_saldo = GesSichRef.gsr_Saldo
+                    .gs_saldo = GesSichRef.brgakto_gs_aktSaldo
                     .gs_atr = setNullToZero(cboATR.SelectedItem)
                     setEnviromentDataToObject(OPEN, Me)
                 End With
@@ -343,7 +343,7 @@ Public Class frmGesamtsicherheiten
                 .gs_gsNr = Me.gessicherheitID
                 .gs_erstellungsdatum = Me.datum
                 .gs_freitext = Me.txtFreitextClose.Text
-                .gs_saldo = GesSichRef.gsr_Saldo
+                .gs_saldo = GesSichRef.brgakto_gs_aktSaldo
             End With
 
             If Neu = True Then Close.gs_gsNr = AddNewGesamtSichNr()

Aviso/frmGesamtsicherheitenMenu.vb

@@ -9,7 +9,7 @@ Public Class frmGesamtsicherheitenMenu
     ' Public Saldo As Integer = 0
     Public SQL As New VERAG_PROG_ALLGEMEIN.SQL
     'Dim GesSichRef As New cGesamtSicherheitsReferenz
-    Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz
+    Dim GesSichRef As VERAG_PROG_ALLGEMEIN.cAufschubKonten
 
     'Public ATR As Boolean = False
     Public Property Standort As String = ""
@@ -18,7 +18,7 @@ Public Class frmGesamtsicherheitenMenu
         cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
         Me.Text = "Gesamtsicherheiten " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvListe)
-        GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
+        GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
         'GesSichRef.LOAD("standort", Standort)
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
 
@@ -100,8 +100,8 @@ Public Class frmGesamtsicherheitenMenu
 
     Public Sub ShowStandort()
         'lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString("N")
-        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.gsr_referenzwert.ToString()
+        lblReferenzwert.Text = "Referenzwert: €" & GesSichRef.getReferenzbetrag(Now()).ToString()
-        lblZollsatz.Text = "Zollsatz: " & GesSichRef.gsr_zollsatz & "%"
+        lblZollsatz.Text = "Zollsatz: " & GesSichRef.brgakto_gs_zollsatz & "%"
         lblSaldo.Text = "Saldo: €" & Decimal.Parse(GesSichRef.CalcSaldo()).ToString("N")
     End Sub
 

Aviso/frmGesamtsicherheitenNEU.Designer.vb

@@ -22,13 +22,14 @@ Partial Class frmGesamtsicherheitenNEU
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmGesamtsicherheitenNEU))
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuStripGesSicherh = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ATBNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.MRNNRÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -65,9 +66,9 @@ Partial Class frmGesamtsicherheitenNEU
         Me.Label17 = New System.Windows.Forms.Label()
         Me.Label16 = New System.Windows.Forms.Label()
         Me.btnClosePanOverlay = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvGesamtsicherheit = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.dgvSicherheitsPos = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuStripPosSicherheiten = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ATCMRNNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnlSummeGes = New System.Windows.Forms.Panel()
         Me.txtPosSicherheitsbGes = New VERAG_PROG_ALLGEMEIN.MyTextBox()

Aviso/frmGesamtsicherheitenNEU.vb

@@ -100,9 +100,17 @@ Public Class frmGesamtsicherheitenNEU
         initPrevNextButtons()
         changeLabel()
 
+        Select Case Standort
+            Case "Verag GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
+            Case "AMBAR GmbH" : btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
+            Case "Atilla GmbH" : btnDAKOSY_AUTO.Enabled = False
+            Case "VERAG AG" : btnDAKOSY_AUTO.Enabled = False
+            Case "IMEX" : btnDAKOSY_AUTO.Enabled = False
+            Case "Verag CS" : btnDAKOSY_AUTO.Enabled = False
+            Case "Unisped GmbH" : btnDAKOSY_AUTO.Enabled = False
+            Case Else : btnDAKOSY_AUTO.Enabled = False
 
-        btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
+        End Select
-
 
         Me.Text = "Gesamtsicherheit " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)

Aviso/frmHauptfenster.vb

@@ -3203,6 +3203,7 @@ ELSE_ATILLA:
         DEAmbarToolStripMenuItem.Visible = False
         ATUnispedGmbHToolStripMenuItem.Visible = False
         ATAtillaToolStripMenuItem.Visible = False
+        ReferenzwerteToolStripMenuItem.Visible = False
 
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" Then
@@ -3233,6 +3234,7 @@ ELSE_ATILLA:
             DEVeragGmbHToolStripMenuItem.Visible = True
             ATVeragAGToolStripMenuItem.Visible = True
             ATImexCSToolStripMenuItem.Visible = True
+            ReferenzwerteToolStripMenuItem.Visible = True
 
         End If
 
@@ -5425,7 +5427,6 @@ ELSE_ATILLA:
 
         'MsgBox(IIf(VERAG_PROG_ALLGEMEIN.cProgramFunctions.IsBase64(testBase64), "true", "false"))
 
-
         Dim errors = VERAG_PROG_ALLGEMEIN.cProgramFunctions.CheckAllReportImages()
 
         If errors.Count > 0 Then
@@ -5437,5 +5438,13 @@ ELSE_ATILLA:
 
 
 
+    End Sub
+
+    Private Sub ReferenzwerteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReferenzwerteToolStripMenuItem.Click
+        Dim writepermissions As Boolean
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then writepermissions = True
+
+        Dim f As New frmReferenzenSicherheiten(writepermissions)
+        f.ShowDialog(Me)
     End Sub
 End Class

Aviso/frmReferenzenSicherheiten.Designer.vb

@@ -0,0 +1,341 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmReferenzenSicherheiten
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmReferenzenSicherheiten))
+        Me.pnlTop = New System.Windows.Forms.Panel()
+        Me.lblWarning = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.btnAdd = New System.Windows.Forms.Button()
+        Me.btnDelete = New System.Windows.Forms.Button()
+        Me.txtStandort = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtReferenzwert = New System.Windows.Forms.TextBox()
+        Me.txtUst = New System.Windows.Forms.TextBox()
+        Me.cbxATR = New System.Windows.Forms.CheckBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtSaldo = New System.Windows.Forms.TextBox()
+        Me.mainPanel = New System.Windows.Forms.Panel()
+        Me.txtZollsatz = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.dgvWarenorteNew = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.cbxUst = New System.Windows.Forms.CheckBox()
+        Me.pnlTop.SuspendLayout()
+        Me.mainPanel.SuspendLayout()
+        CType(Me.dgvWarenorteNew, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'pnlTop
+        '
+        Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnlTop.Controls.Add(Me.lblWarning)
+        Me.pnlTop.Controls.Add(Me.Label4)
+        Me.pnlTop.Controls.Add(Me.Label3)
+        Me.pnlTop.Controls.Add(Me.cbxFirma)
+        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+        Me.pnlTop.Name = "pnlTop"
+        Me.pnlTop.Size = New System.Drawing.Size(726, 48)
+        Me.pnlTop.TabIndex = 2
+        '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(166, 13)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(0, 13)
+        Me.lblWarning.TabIndex = 14
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.ForeColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(10, 13)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(166, 26)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "Referenzwerte"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(592, 8)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(32, 13)
+        Me.Label3.TabIndex = 5
+        Me.Label3.Text = "Firma"
+        '
+        'cbxFirma
+        '
+        Me.cbxFirma._allowedValuesFreiText = Nothing
+        Me.cbxFirma._allowFreiText = False
+        Me.cbxFirma._value = ""
+        Me.cbxFirma.DropDownWidth = 150
+        Me.cbxFirma.FormattingEnabled = True
+        Me.cbxFirma.Location = New System.Drawing.Point(595, 24)
+        Me.cbxFirma.Name = "cbxFirma"
+        Me.cbxFirma.Size = New System.Drawing.Size(128, 21)
+        Me.cbxFirma.TabIndex = 13
+        '
+        'btnAdd
+        '
+        Me.btnAdd.BackgroundImage = Global.AVISO.My.Resources.Resources.plus
+        Me.btnAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAdd.Location = New System.Drawing.Point(267, 360)
+        Me.btnAdd.Name = "btnAdd"
+        Me.btnAdd.Size = New System.Drawing.Size(24, 20)
+        Me.btnAdd.TabIndex = 97
+        Me.btnAdd.UseVisualStyleBackColor = True
+        '
+        'btnDelete
+        '
+        Me.btnDelete.BackgroundImage = Global.AVISO.My.Resources.Resources.del
+        Me.btnDelete.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDelete.Location = New System.Drawing.Point(290, 360)
+        Me.btnDelete.Name = "btnDelete"
+        Me.btnDelete.Size = New System.Drawing.Size(24, 20)
+        Me.btnDelete.TabIndex = 96
+        Me.btnDelete.UseVisualStyleBackColor = True
+        '
+        'txtStandort
+        '
+        Me.txtStandort.Location = New System.Drawing.Point(12, 25)
+        Me.txtStandort.Name = "txtStandort"
+        Me.txtStandort.Size = New System.Drawing.Size(126, 20)
+        Me.txtStandort.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(9, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(47, 13)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Standort"
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(152, 9)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(80, 13)
+        Me.Label2.TabIndex = 3
+        Me.Label2.Text = "Referenzbetrag"
+        '
+        'txtReferenzwert
+        '
+        Me.txtReferenzwert.Location = New System.Drawing.Point(155, 25)
+        Me.txtReferenzwert.Name = "txtReferenzwert"
+        Me.txtReferenzwert.Size = New System.Drawing.Size(161, 20)
+        Me.txtReferenzwert.TabIndex = 2
+        '
+        'txtUst
+        '
+        Me.txtUst.Location = New System.Drawing.Point(77, 75)
+        Me.txtUst.Name = "txtUst"
+        Me.txtUst.Size = New System.Drawing.Size(61, 20)
+        Me.txtUst.TabIndex = 5
+        '
+        'cbxATR
+        '
+        Me.cbxATR.AutoSize = True
+        Me.cbxATR.Location = New System.Drawing.Point(346, 9)
+        Me.cbxATR.Name = "cbxATR"
+        Me.cbxATR.Size = New System.Drawing.Size(48, 17)
+        Me.cbxATR.TabIndex = 3
+        Me.cbxATR.Text = "ATR"
+        Me.cbxATR.UseVisualStyleBackColor = True
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(152, 59)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(77, 13)
+        Me.Label8.TabIndex = 16
+        Me.Label8.Text = "aktueller Saldo"
+        '
+        'txtSaldo
+        '
+        Me.txtSaldo.Location = New System.Drawing.Point(155, 75)
+        Me.txtSaldo.Name = "txtSaldo"
+        Me.txtSaldo.ReadOnly = True
+        Me.txtSaldo.Size = New System.Drawing.Size(161, 20)
+        Me.txtSaldo.TabIndex = 6
+        '
+        'mainPanel
+        '
+        Me.mainPanel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.mainPanel.Controls.Add(Me.cbxUst)
+        Me.mainPanel.Controls.Add(Me.txtZollsatz)
+        Me.mainPanel.Controls.Add(Me.Label10)
+        Me.mainPanel.Controls.Add(Me.btnSave)
+        Me.mainPanel.Controls.Add(Me.cbxATR)
+        Me.mainPanel.Controls.Add(Me.Label1)
+        Me.mainPanel.Controls.Add(Me.Label8)
+        Me.mainPanel.Controls.Add(Me.txtStandort)
+        Me.mainPanel.Controls.Add(Me.txtSaldo)
+        Me.mainPanel.Controls.Add(Me.txtReferenzwert)
+        Me.mainPanel.Controls.Add(Me.Label2)
+        Me.mainPanel.Controls.Add(Me.txtUst)
+        Me.mainPanel.Location = New System.Drawing.Point(320, 55)
+        Me.mainPanel.Name = "mainPanel"
+        Me.mainPanel.Size = New System.Drawing.Size(406, 125)
+        Me.mainPanel.TabIndex = 17
+        '
+        'txtZollsatz
+        '
+        Me.txtZollsatz.Location = New System.Drawing.Point(12, 75)
+        Me.txtZollsatz.Name = "txtZollsatz"
+        Me.txtZollsatz.Size = New System.Drawing.Size(44, 20)
+        Me.txtZollsatz.TabIndex = 4
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(9, 59)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(43, 13)
+        Me.Label10.TabIndex = 23
+        Me.Label10.Text = "Zollsatz"
+        '
+        'btnSave
+        '
+        Me.btnSave.Location = New System.Drawing.Point(331, 73)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(75, 23)
+        Me.btnSave.TabIndex = 10
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'dgvWarenorteNew
+        '
+        Me.dgvWarenorteNew.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvWarenorteNew.AllowUserToAddRows = False
+        Me.dgvWarenorteNew.AllowUserToDeleteRows = False
+        Me.dgvWarenorteNew.BackgroundColor = System.Drawing.Color.White
+        Me.dgvWarenorteNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvWarenorteNew.Location = New System.Drawing.Point(0, 49)
+        Me.dgvWarenorteNew.Name = "dgvWarenorteNew"
+        Me.dgvWarenorteNew.Size = New System.Drawing.Size(314, 331)
+        Me.dgvWarenorteNew.TabIndex = 98
+        '
+        'MyDatagridview1
+        '
+        Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1
+        Me.MyDatagridview1.AllowUserToAddRows = False
+        Me.MyDatagridview1.AllowUserToDeleteRows = False
+        Me.MyDatagridview1.BackgroundColor = System.Drawing.Color.White
+        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.MyDatagridview1.Location = New System.Drawing.Point(322, 204)
+        Me.MyDatagridview1.Name = "MyDatagridview1"
+        Me.MyDatagridview1.Size = New System.Drawing.Size(401, 176)
+        Me.MyDatagridview1.TabIndex = 99
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(329, 188)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(82, 13)
+        Me.Label6.TabIndex = 24
+        Me.Label6.Text = "Referenzverlauf"
+        '
+        'cbxUst
+        '
+        Me.cbxUst.AutoSize = True
+        Me.cbxUst.Location = New System.Drawing.Point(77, 58)
+        Me.cbxUst.Name = "cbxUst"
+        Me.cbxUst.Size = New System.Drawing.Size(44, 17)
+        Me.cbxUst.TabIndex = 24
+        Me.cbxUst.Text = "USt"
+        Me.cbxUst.UseVisualStyleBackColor = True
+        '
+        'frmReferenzenSicherheiten
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(726, 382)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.MyDatagridview1)
+        Me.Controls.Add(Me.mainPanel)
+        Me.Controls.Add(Me.btnAdd)
+        Me.Controls.Add(Me.btnDelete)
+        Me.Controls.Add(Me.pnlTop)
+        Me.Controls.Add(Me.dgvWarenorteNew)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmReferenzenSicherheiten"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Gesamtsicherheiten-Referenzwerte"
+        Me.pnlTop.ResumeLayout(False)
+        Me.pnlTop.PerformLayout()
+        Me.mainPanel.ResumeLayout(False)
+        Me.mainPanel.PerformLayout()
+        CType(Me.dgvWarenorteNew, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents pnlTop As Panel
+    Friend WithEvents Label4 As Label
+    Friend WithEvents btnAdd As Button
+    Friend WithEvents btnDelete As Button
+    Friend WithEvents cbxATR As CheckBox
+    Friend WithEvents txtUst As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents txtReferenzwert As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents txtStandort As TextBox
+    Friend WithEvents cbxFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents txtSaldo As TextBox
+    Friend WithEvents mainPanel As Panel
+    Friend WithEvents btnSave As Button
+    Friend WithEvents lblWarning As Label
+    Friend WithEvents dgvWarenorteNew As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents txtZollsatz As TextBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents MyDatagridview1 As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents Label6 As Label
+    Friend WithEvents cbxUst As CheckBox
+End Class

Aviso/frmReferenzenSicherheiten.vb

@@ -0,0 +1,316 @@
+
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmReferenzenSicherheiten
+    'Dim REF As New VERAG_PROG_ALLGEMEIN.cAufschubKonten
+    Dim writepermission As Boolean
+
+    Sub New(writepermission As Boolean)
+        InitializeComponent()
+        Me.writepermission = writepermission
+
+    End Sub
+
+    Private Sub Warenorte_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        If Not writepermission Then
+            btnSave.Enabled = False
+            btnDelete.Enabled = False
+            btnAdd.Enabled = False
+
+            For Each c As Control In mainPanel.Controls
+                If TypeOf c Is MyTextBox Then
+                    Dim mytxtb As MyTextBox = c
+                    mytxtb.ReadOnly = True
+                ElseIf TypeOf c Is TextBox Then
+                    Dim txtb As TextBox = c
+                    txtb.ReadOnly = True
+                ElseIf TypeOf c Is CheckBox Then
+                    Dim cbx As CheckBox = c
+                    cbx.Enabled = False
+                ElseIf TypeOf c Is MyComboBox Then
+                    Dim mycbx As MyComboBox = c
+                    mycbx.Enabled = False
+                ElseIf TypeOf c Is GroupBox Then
+                    Dim gb As GroupBox = c
+                    gb.Enabled = False
+                End If
+
+            Next
+        End If
+
+        initDGVWarenort()
+        cbxFirma.fillWithSQL("SELECT [Firma_id],[Firma_Bez]  FROM  [tblFirma] ", False, "FMZOLL", True)
+
+    End Sub
+
+
+    Private Sub initDGVWarenort(Optional firma As Integer = 0)
+
+        lblWarning.Text = ""
+
+        Dim SQLString As String = "SELECT [brgakto_id],[brgakto_betrag],[brgakto_gs_standort],[brgakto_gs_zollsatz],[brgakto_gs_aktSaldo],[brgakto_gs_ustEnabled],[brgakto_gs_ust],[brgakto_gs_ATR],[brgakto_firmaID] FROM [tblBrgAufschubKonten] WHERE brgakto_gs_standort is not null"
+        Dim SQLWHere = ""
+        If firma <> 0 Then
+            SQLWHere = "  AND brgakto_firmaID = " & firma
+        End If
+
+
+        dgvWarenorteNew.SET_SQL(SQLString & SQLWHere, "ADMIN", ,)
+        dgvWarenorteNew.LOAD()
+
+
+        If dgvWarenorteNew.Columns.Count < 1 Then Exit Sub
+
+        With dgvWarenorteNew
+            If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+            .MultiSelect = False
+            .RowHeadersVisible = False
+            .ReadOnly = True
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .Columns("brgakto_id").Visible = False
+            .Columns("brgakto_gs_standort").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("brgakto_gs_standort").HeaderText = "Standort"
+            .Columns("brgakto_betrag").Visible = False
+            .Columns("brgakto_gs_aktSaldo").Visible = False
+            .Columns("brgakto_gs_ustEnabled").Visible = False
+            .Columns("brgakto_gs_zollsatz").Visible = False
+            .Columns("brgakto_gs_ust").Visible = False
+            .Columns("brgakto_gs_ATR").Visible = False
+            .Columns("brgakto_firmaID").HeaderText = "Firma"
+            .Columns("brgakto_firmaID").Width = 150
+        End With
+
+        For Each row As DataGridViewRow In dgvWarenorteNew.Rows
+
+
+            If row.Cells("brgakto_firmaID").Value IsNot DBNull.Value AndAlso row.Cells("brgakto_firmaID").Value <> 0 Then
+                If CInt(row.Cells("brgakto_firmaID").Value) > 0 Then
+
+                    Dim tmpFirma = New VERAG_PROG_ALLGEMEIN.cFirmen(row.Cells("brgakto_firmaID").Value)
+                    'row.Cells("brgakto_firmaID").Value = tmpFirma.Firma_Bez.ToString
+                End If
+            End If
+
+        Next
+
+
+        initdgvDetails()
+
+
+
+
+
+
+
+
+
+
+    End Sub
+
+    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
+
+        If checkIfFirmaIsFilled(True) = False Then Exit Sub
+
+        Dim input = InputBox("Bitte geben Sie die Bezeichnung des neuen Referenz ein:", "Referenz anlegen")
+        If input <> "" Then
+            If checkNameIsValid(input) Then
+                Dim REF As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(input, CInt(cbxFirma._value))
+                REF.brgakto_gs_ust = 0
+                REF.brgakto_betrag = 0
+                REF.brgakto_gs_ustEnabled = False
+                REF.brgakto_gs_zollsatz = 0
+                REF.brgakto_gs_ATR = False
+
+                If REF.SAVE() Then
+                    initDGVWarenort(cbxFirma._value)
+                End If
+
+            Else
+                MsgBox("Es existiert bereits eine Referenz " & input & " für die Firma " & cbxFirma._value)
+            End If
+
+        Else
+            MsgBox("Keine Bezeichnung angegeben!")
+        End If
+    End Sub
+
+    Private Sub initdgvDetails()
+
+        If dgvWarenorteNew.Rows.Count = 1 OrElse dgvWarenorteNew.SelectedRows.Count = 1 Then
+
+            Dim gsid As Integer = 0
+
+            If dgvWarenorteNew.Rows.Count = 1 Then
+                gsid = dgvWarenorteNew.Rows(0).Cells.Item("brgakto_id").Value
+
+            ElseIf dgvWarenorteNew.SelectedRows.Count = 1 Then
+                gsid = dgvWarenorteNew.SelectedRows(0).Cells.Item("brgakto_id").Value
+            End If
+
+            If gsid > 0 Then
+
+                Dim SQLStringREF As String = "SELECT  [brgarefb_gsid],[brgarefb_refbetrag],[brgarefb_gueltig_ab],[brgarefb_gueltig_bis],[brgarefb_gs_aktiv] FROM [tblBrgAufschubReferenzberaege] WHERE brgarefb_gsid = " & gsid & " order by brgarefb_gueltig_ab, brgarefb_gueltig_bis"
+
+                MyDatagridview1.SET_SQL(SQLStringREF, "ADMIN", ,)
+                MyDatagridview1.LOAD()
+
+                With MyDatagridview1
+                    If .RowCount = 0 Then Exit Sub
+
+                    .ReadOnly = True
+                    .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+                    .Columns("brgarefb_gsid").Visible = False
+                    .Columns("brgarefb_refbetrag").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                    .Columns("brgarefb_refbetrag").HeaderText = "Ref-Betrag"
+                    .Columns("brgarefb_gs_aktiv").Visible = False
+                    .Columns("brgarefb_gueltig_ab").HeaderText = "Gültig ab"
+                    .Columns("brgarefb_gueltig_ab").Width = 75
+                    .Columns("brgarefb_gueltig_bis").HeaderText = "Gültig bis"
+                    .Columns("brgarefb_gueltig_bis").Width = 75
+
+                End With
+
+            End If
+        End If
+
+    End Sub
+
+    'Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
+    '    If dgvWarenorteNew.SelectedRows.Count > 0 Then
+
+    '        Dim Warenort As New cWarenorte(dgvWarenorteNew.SelectedRows(0).Cells("wo_id").Value)
+
+    '        If vbYes = MsgBox("Möchten Sie diesen Warenort " & Warenort.wo_warenort & " in " & Warenort.wo_firma & " wirklich löschen?", vbYesNo) Then
+    '            Warenort.deleteWarenort(Warenort.wo_id)
+    '            initDGVWarenort(cbxFirma._value)
+    '        End If
+
+    '    End If
+
+    'End Sub
+
+    Private Function checkNameIsValid(name As String) As Boolean
+
+        If dgvWarenorteNew.Rows.Count = 0 Then Return True
+        If checkIfFirmaIsFilled(False) = False Then Return False
+
+
+        For Each row As DataGridViewRow In dgvWarenorteNew.Rows
+            If Not IsDBNull(row.Cells("brgakto_gs_standort").Value) AndAlso Not IsDBNull(row.Cells("brgakto_firmaID").Value) Then
+                If row.Cells("brgakto_gs_standort").Value.ToLower = name.ToLower AndAlso row.Cells("brgakto_firmaID").Value = cbxFirma._value Then
+                    Return False
+                End If
+            End If
+
+        Next
+
+        Return True
+
+    End Function
+
+
+    Private Sub dgvWarenorteNew_SelectionChanged(sender As Object, e As EventArgs) Handles dgvWarenorteNew.SelectionChanged
+
+        If dgvWarenorteNew.SelectedRows.Count < 1 Then
+            mainPanel.Enabled = False
+            Exit Sub
+        Else
+            mainPanel.Enabled = True
+
+        End If
+
+        Dim REF = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(CInt(dgvWarenorteNew.SelectedRows(0).Cells("brgakto_id").Value))
+
+        txtStandort.Text = REF.brgakto_gs_standort
+        txtReferenzwert.Text = REF.getReferenzbetrag(Now())
+        cbxATR.Checked = REF.brgakto_gs_ATR
+        txtUst.Text = REF.brgakto_gs_ust
+        cbxUst.Checked = REF.brgakto_gs_ustEnabled
+        txtSaldo.Text = REF.brgakto_gs_aktSaldo
+        txtZollsatz.Text = REF.brgakto_gs_zollsatz
+
+
+        initdgvDetails()
+
+
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+
+        checkIfFirmaIsFilled(False)
+
+        Dim REF_NEW As New VERAG_PROG_ALLGEMEIN.cAufschubKonten(CInt(dgvWarenorteNew.SelectedRows(0).Cells("brgakto_id").Value))
+
+        If checkFields() = False Then Exit Sub
+
+        REF_NEW.brgakto_gs_standort = txtStandort.Text
+        REF_NEW.brgakto_betrag = txtReferenzwert.Text
+        REF_NEW.brgakto_gs_ATR = cbxATR.Checked
+        REF_NEW.brgakto_gs_ustEnabled = cbxUst.Checked
+        REF_NEW.brgakto_gs_ust = txtUst.Text
+        REF_NEW.brgakto_gs_zollsatz = txtZollsatz.Text
+        REF_NEW.SAVE()
+
+        dgvWarenorteNew.GetOrder()
+        initDGVWarenort(IIf(cbxFirma._value = "", 0, cbxFirma._value))
+        dgvWarenorteNew.SetOrder()
+
+
+
+
+
+    End Sub
+
+    Private Sub cbxFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxFirma.SelectedValueChanged
+        dgvWarenorteNew.GetOrder()
+        initDGVWarenort(IIf(cbxFirma._value = "", 0, cbxFirma._value))
+        dgvWarenorteNew.SetOrder()
+
+
+    End Sub
+
+    Private Function checkIfFirmaIsFilled(initialSave As Boolean, Optional setWarning As Boolean = True)
+
+
+        Dim firmaLeer As Boolean = String.IsNullOrEmpty(cbxFirma._value)
+
+        Dim gridFirmaLeer As Boolean =
+            dgvWarenorteNew.SelectedRows(0).Cells("brgakto_firmaID").Value Is DBNull.Value OrElse
+            dgvWarenorteNew.SelectedRows(0).Cells("brgakto_firmaID").Value Is Nothing OrElse
+            dgvWarenorteNew.SelectedRows(0).Cells("brgakto_firmaID").Value.ToString() = ""
+
+        If firmaLeer AndAlso (gridFirmaLeer OrElse initialSave) Then
+
+            lblWarning.Text = If(setWarning, "Bitte Firma auswählen!", "")
+            Return False
+
+        End If
+
+        lblWarning.Text = ""
+        Return True
+    End Function
+
+    Private Function checkFields() As Boolean
+
+        If txtStandort.TextLength > 50 Then
+            lblWarning.Text = "Standort darf max 50 Zeichen besitzen!"
+            Return False
+        ElseIf txtReferenzwert.TextLength > 50 Then
+            lblWarning.Text = "REF-Wert darf max 50 Zeichen besitzen!"
+            Return False
+        ElseIf txtZollsatz.TextLength > 60 Then
+            lblWarning.Text = "Zollsatz darf max 60 Zeichen besitzen!"
+            Return False
+        ElseIf txtUst.TextLength > 50 Then
+            lblWarning.Text = "Ust darf max 50 Zeichen besitzen!"
+            Return False
+        End If
+
+        lblWarning.Text = ""
+        Return True
+
+
+    End Function
+
+End Class

Aviso/usrCntlSND_ATBGestellung.vb

@@ -128,7 +128,7 @@ Public Class usrCntlSND_ATBGestellung
                 Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.gsr_zollsatz / 100)
 
                 If sicherheitsbertrag > saldo Then
-                    If MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
+                If MsgBox(Standort & vbNewLine & "Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
             End If
 
                 Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort, WarenwertEUR, gsnr_proLKW_global)