SDL MDM-Datenverarbeitung

2023-12-21 08:10:45 +01:00
parent 9f3edc0454
commit 69d1e8bd25
5 changed files with 196 additions and 150 deletions
--- a/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb
+++ b/SDL/mdm/frmMDMDatenverarbetiung.Designer.vb
@@ -41,6 +41,7 @@ Partial Class frmMDMDatenverarbetiung
        Me.Label1 = New System.Windows.Forms.Label()
        Me.lbl = New System.Windows.Forms.Label()
        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lblTTRSum = New System.Windows.Forms.Label()
        Me.lblProzPruef = New System.Windows.Forms.Label()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.pic = New System.Windows.Forms.PictureBox()
@@ -53,7 +54,6 @@ Partial Class frmMDMDatenverarbetiung
        Me.Button1 = New System.Windows.Forms.Button()
        Me.btnKunde = New System.Windows.Forms.Button()
        Me.Label4 = New System.Windows.Forms.Label()
-        Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.cbx = New System.Windows.Forms.CheckBox()
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.Label43 = New System.Windows.Forms.Label()
@@ -64,14 +64,15 @@ Partial Class frmMDMDatenverarbetiung
        Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar()
        Me.lblPloseAnh_Proz = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
-        Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label2 = New System.Windows.Forms.Label()
-        Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.lblTTRSum = New System.Windows.Forms.Label()
        Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtPruefsummeBrutto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtPruefsummeNetto = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
        Me.pnl.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.FlowLayoutPanel.SuspendLayout()
@@ -82,10 +83,12 @@ Partial Class frmMDMDatenverarbetiung
        Me.Panel3.SuspendLayout()
        Me.Panel2.SuspendLayout()
        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'pnl
        '
+        Me.pnl.Controls.Add(Me.PictureBox5)
        Me.pnl.Controls.Add(Me.cbxBelegeerstellt)
        Me.pnl.Controls.Add(Me.cbxASFINAGAbgerechnet)
        Me.pnl.Controls.Add(Me.cbxTestdaten)
@@ -288,6 +291,17 @@ Partial Class frmMDMDatenverarbetiung
        Me.Panel1.Size = New System.Drawing.Size(1163, 114)
        Me.Panel1.TabIndex = 2
        '
+        'lblTTRSum
+        '
+        Me.lblTTRSum.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblTTRSum.AutoSize = True
+        Me.lblTTRSum.Location = New System.Drawing.Point(953, 95)
+        Me.lblTTRSum.Name = "lblTTRSum"
+        Me.lblTTRSum.Size = New System.Drawing.Size(87, 13)
+        Me.lblTTRSum.TabIndex = 52
+        Me.lblTTRSum.Text = "Prüfsumme TTR:"
+        Me.lblTTRSum.Visible = False
+        '
        'lblProzPruef
        '
        Me.lblProzPruef.Location = New System.Drawing.Point(63, 92)
@@ -413,31 +427,6 @@ Partial Class frmMDMDatenverarbetiung
        Me.Label4.TabIndex = 44
        Me.Label4.Text = "Prüfsumme brutto:"
        '
-        'txtPruefsummeBrutto
-        '
-        Me.txtPruefsummeBrutto._DateTimeOnly = False
-        Me.txtPruefsummeBrutto._numbersOnly = False
-        Me.txtPruefsummeBrutto._numbersOnlyKommastellen = ""
-        Me.txtPruefsummeBrutto._numbersOnlyTrennzeichen = True
-        Me.txtPruefsummeBrutto._Prozent = False
-        Me.txtPruefsummeBrutto._ShortDateNew = False
-        Me.txtPruefsummeBrutto._ShortDateOnly = False
-        Me.txtPruefsummeBrutto._TimeOnly = False
-        Me.txtPruefsummeBrutto._TimeOnly_Seconds = False
-        Me.txtPruefsummeBrutto._value = ""
-        Me.txtPruefsummeBrutto._Waehrung = False
-        Me.txtPruefsummeBrutto._WaehrungZeichen = True
-        Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black
-        Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 69)
-        Me.txtPruefsummeBrutto.MaxLineLength = -1
-        Me.txtPruefsummeBrutto.MaxLines_Warning = ""
-        Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing
-        Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto"
-        Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20)
-        Me.txtPruefsummeBrutto.TabIndex = 43
-        Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
        'cbx
        '
        Me.cbx.AutoSize = True
@@ -534,31 +523,6 @@ Partial Class frmMDMDatenverarbetiung
        Me.Label3.TabIndex = 38
        Me.Label3.Text = "Prüfsumme netto:"
        '
-        'txtPruefsummeNetto
-        '
-        Me.txtPruefsummeNetto._DateTimeOnly = False
-        Me.txtPruefsummeNetto._numbersOnly = False
-        Me.txtPruefsummeNetto._numbersOnlyKommastellen = ""
-        Me.txtPruefsummeNetto._numbersOnlyTrennzeichen = True
-        Me.txtPruefsummeNetto._Prozent = False
-        Me.txtPruefsummeNetto._ShortDateNew = False
-        Me.txtPruefsummeNetto._ShortDateOnly = False
-        Me.txtPruefsummeNetto._TimeOnly = False
-        Me.txtPruefsummeNetto._TimeOnly_Seconds = False
-        Me.txtPruefsummeNetto._value = ""
-        Me.txtPruefsummeNetto._Waehrung = False
-        Me.txtPruefsummeNetto._WaehrungZeichen = True
-        Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black
-        Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 43)
-        Me.txtPruefsummeNetto.MaxLineLength = -1
-        Me.txtPruefsummeNetto.MaxLines_Warning = ""
-        Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing
-        Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto"
-        Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20)
-        Me.txtPruefsummeNetto.TabIndex = 37
-        Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
        'Label2
        '
        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -569,31 +533,6 @@ Partial Class frmMDMDatenverarbetiung
        Me.Label2.TabIndex = 36
        Me.Label2.Text = "Anzahl:"
        '
-        'txtAnzahl
-        '
-        Me.txtAnzahl._DateTimeOnly = False
-        Me.txtAnzahl._numbersOnly = False
-        Me.txtAnzahl._numbersOnlyKommastellen = ""
-        Me.txtAnzahl._numbersOnlyTrennzeichen = True
-        Me.txtAnzahl._Prozent = False
-        Me.txtAnzahl._ShortDateNew = False
-        Me.txtAnzahl._ShortDateOnly = False
-        Me.txtAnzahl._TimeOnly = False
-        Me.txtAnzahl._TimeOnly_Seconds = False
-        Me.txtAnzahl._value = ""
-        Me.txtAnzahl._Waehrung = False
-        Me.txtAnzahl._WaehrungZeichen = True
-        Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtAnzahl.ForeColor = System.Drawing.Color.Black
-        Me.txtAnzahl.Location = New System.Drawing.Point(1051, 16)
-        Me.txtAnzahl.MaxLineLength = -1
-        Me.txtAnzahl.MaxLines_Warning = ""
-        Me.txtAnzahl.MaxLines_Warning_Label = Nothing
-        Me.txtAnzahl.Name = "txtAnzahl"
-        Me.txtAnzahl.Size = New System.Drawing.Size(100, 20)
-        Me.txtAnzahl.TabIndex = 35
-        Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
-        '
        'Button3
        '
        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -631,17 +570,6 @@ Partial Class frmMDMDatenverarbetiung
        Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577)
        Me.MyDatagridview1.TabIndex = 0
        '
-        'lblTTRSum
-        '
-        Me.lblTTRSum.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblTTRSum.AutoSize = True
-        Me.lblTTRSum.Location = New System.Drawing.Point(953, 95)
-        Me.lblTTRSum.Name = "lblTTRSum"
-        Me.lblTTRSum.Size = New System.Drawing.Size(87, 13)
-        Me.lblTTRSum.TabIndex = 52
-        Me.lblTTRSum.Text = "Prüfsumme TTR:"
-        Me.lblTTRSum.Visible = False
-        '
        'txtTTRSum
        '
        Me.txtTTRSum._DateTimeOnly = False
@@ -668,6 +596,91 @@ Partial Class frmMDMDatenverarbetiung
        Me.txtTTRSum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.txtTTRSum.Visible = False
        '
+        'txtPruefsummeBrutto
+        '
+        Me.txtPruefsummeBrutto._DateTimeOnly = False
+        Me.txtPruefsummeBrutto._numbersOnly = False
+        Me.txtPruefsummeBrutto._numbersOnlyKommastellen = ""
+        Me.txtPruefsummeBrutto._numbersOnlyTrennzeichen = True
+        Me.txtPruefsummeBrutto._Prozent = False
+        Me.txtPruefsummeBrutto._ShortDateNew = False
+        Me.txtPruefsummeBrutto._ShortDateOnly = False
+        Me.txtPruefsummeBrutto._TimeOnly = False
+        Me.txtPruefsummeBrutto._TimeOnly_Seconds = False
+        Me.txtPruefsummeBrutto._value = ""
+        Me.txtPruefsummeBrutto._Waehrung = False
+        Me.txtPruefsummeBrutto._WaehrungZeichen = True
+        Me.txtPruefsummeBrutto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtPruefsummeBrutto.ForeColor = System.Drawing.Color.Black
+        Me.txtPruefsummeBrutto.Location = New System.Drawing.Point(1051, 69)
+        Me.txtPruefsummeBrutto.MaxLineLength = -1
+        Me.txtPruefsummeBrutto.MaxLines_Warning = ""
+        Me.txtPruefsummeBrutto.MaxLines_Warning_Label = Nothing
+        Me.txtPruefsummeBrutto.Name = "txtPruefsummeBrutto"
+        Me.txtPruefsummeBrutto.Size = New System.Drawing.Size(100, 20)
+        Me.txtPruefsummeBrutto.TabIndex = 43
+        Me.txtPruefsummeBrutto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'txtPruefsummeNetto
+        '
+        Me.txtPruefsummeNetto._DateTimeOnly = False
+        Me.txtPruefsummeNetto._numbersOnly = False
+        Me.txtPruefsummeNetto._numbersOnlyKommastellen = ""
+        Me.txtPruefsummeNetto._numbersOnlyTrennzeichen = True
+        Me.txtPruefsummeNetto._Prozent = False
+        Me.txtPruefsummeNetto._ShortDateNew = False
+        Me.txtPruefsummeNetto._ShortDateOnly = False
+        Me.txtPruefsummeNetto._TimeOnly = False
+        Me.txtPruefsummeNetto._TimeOnly_Seconds = False
+        Me.txtPruefsummeNetto._value = ""
+        Me.txtPruefsummeNetto._Waehrung = False
+        Me.txtPruefsummeNetto._WaehrungZeichen = True
+        Me.txtPruefsummeNetto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtPruefsummeNetto.ForeColor = System.Drawing.Color.Black
+        Me.txtPruefsummeNetto.Location = New System.Drawing.Point(1051, 43)
+        Me.txtPruefsummeNetto.MaxLineLength = -1
+        Me.txtPruefsummeNetto.MaxLines_Warning = ""
+        Me.txtPruefsummeNetto.MaxLines_Warning_Label = Nothing
+        Me.txtPruefsummeNetto.Name = "txtPruefsummeNetto"
+        Me.txtPruefsummeNetto.Size = New System.Drawing.Size(100, 20)
+        Me.txtPruefsummeNetto.TabIndex = 37
+        Me.txtPruefsummeNetto.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'txtAnzahl
+        '
+        Me.txtAnzahl._DateTimeOnly = False
+        Me.txtAnzahl._numbersOnly = False
+        Me.txtAnzahl._numbersOnlyKommastellen = ""
+        Me.txtAnzahl._numbersOnlyTrennzeichen = True
+        Me.txtAnzahl._Prozent = False
+        Me.txtAnzahl._ShortDateNew = False
+        Me.txtAnzahl._ShortDateOnly = False
+        Me.txtAnzahl._TimeOnly = False
+        Me.txtAnzahl._TimeOnly_Seconds = False
+        Me.txtAnzahl._value = ""
+        Me.txtAnzahl._Waehrung = False
+        Me.txtAnzahl._WaehrungZeichen = True
+        Me.txtAnzahl.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtAnzahl.ForeColor = System.Drawing.Color.Black
+        Me.txtAnzahl.Location = New System.Drawing.Point(1051, 16)
+        Me.txtAnzahl.MaxLineLength = -1
+        Me.txtAnzahl.MaxLines_Warning = ""
+        Me.txtAnzahl.MaxLines_Warning_Label = Nothing
+        Me.txtAnzahl.Name = "txtAnzahl"
+        Me.txtAnzahl.Size = New System.Drawing.Size(100, 20)
+        Me.txtAnzahl.TabIndex = 35
+        Me.txtAnzahl.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'PictureBox5
+        '
+        Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen
+        Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.PictureBox5.Location = New System.Drawing.Point(202, 11)
+        Me.PictureBox5.Name = "PictureBox5"
+        Me.PictureBox5.Size = New System.Drawing.Size(18, 19)
+        Me.PictureBox5.TabIndex = 130
+        Me.PictureBox5.TabStop = False
+        '
        'frmMDMDatenverarbetiung
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -695,6 +708,7 @@ Partial Class frmMDMDatenverarbetiung
        Me.Panel2.ResumeLayout(False)
        Me.Panel2.PerformLayout()
        CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
@@ -747,4 +761,5 @@ Partial Class frmMDMDatenverarbetiung
    Friend WithEvents cbxBelegeerstellt As CheckBox
    Friend WithEvents lblTTRSum As Label
    Friend WithEvents txtTTRSum As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents PictureBox5 As PictureBox
 End Class
--- a/SDL/mdm/frmMDMDatenverarbetiung.vb
+++ b/SDL/mdm/frmMDMDatenverarbetiung.vb
@@ -593,7 +593,10 @@ Public Class frmMDMDatenverarbetiung
            Case "ASFINAG"
                cbxASFINAGAbgerechnet.Visible = True
                cbxBelegeerstellt.Visible = True
-                cbxTestdaten.Visible = True
+                If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
+                    'cbxTestdaten.Visible = True
+                End If
+
                Panel4.Visible = False
                pnlAsfinag.Visible = True
                Exit Sub
@@ -2881,17 +2884,25 @@ Public Class frmMDMDatenverarbetiung
    End Sub

    Private Sub cbxBelegeerstellt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxBelegeerstellt.CheckedChanged
+        If Me.LIEFERANT = "ASFINAG" Then
+
+
+            If cbxBelegeerstellt.Checked Then
+                Panel2.Enabled = False
+                bntDatumsetzen.Enabled = False
+                bntDatumzuruecksetzen.Enabled = False
+            Else
+                Panel2.Enabled = True
+                bntDatumsetzen.Enabled = True
+                bntDatumzuruecksetzen.Enabled = True
+            End If

-        If cbxBelegeerstellt.Checked Then
-            btnREerstellen.Enabled = False
-            bntDatumsetzen.Enabled = False
-            bntDatumzuruecksetzen.Enabled = False
-        Else
-            btnREerstellen.Enabled = True
-            bntDatumsetzen.Enabled = True
-            bntDatumzuruecksetzen.Enabled = True
        End If
-
-
    End Sub
+
+    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
+        Dim webAddress As String = "https://wiki.verag.ag/de/software/sdl/funktionen"
+        Process.Start(webAddress)
+    End Sub
+
 End Class