div. Punkte

2025-10-14 17:38:23 +02:00
parent cd81ff6d90
commit e8ade89a6b
14 changed files with 789 additions and 325 deletions
--- a/SDL/USTV/frmUSTVoffeneAntraege.Designer.vb
+++ b/SDL/USTV/frmUSTVoffeneAntraege.Designer.vb
@@ -23,9 +23,9 @@ Partial Class frmUSTVoffeneAntraege
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
-        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()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
        Me.btn = New System.Windows.Forms.Button()
        Me.Button7 = New System.Windows.Forms.Button()
@@ -47,21 +47,22 @@ Partial Class frmUSTVoffeneAntraege
        Me.lblKunde = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.pnlLand = New System.Windows.Forms.Panel()
+        Me.Label6 = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
-        Me.cbxKundeLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.cbxNichtEroeffneteAntraege = New System.Windows.Forms.CheckBox()
        Me.cbxUStV = New System.Windows.Forms.CheckBox()
-        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.AntragEröffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Button4 = New System.Windows.Forms.Button()
+        Me.cbxKundenMWST = New System.Windows.Forms.CheckBox()
+        Me.cbxLieferant = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxKundeLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.txtmaxAnz = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtMWST = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtAnzahl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.cbxKundenMWST = New System.Windows.Forms.CheckBox()
-        Me.Label6 = New System.Windows.Forms.Label()
-        Me.cbxLieferant = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Button5 = New System.Windows.Forms.Button()
        Me.FlowLayoutPanel.SuspendLayout()
        Me.Panel4.SuspendLayout()
        Me.pnlLand.SuspendLayout()
@@ -298,6 +299,16 @@ Partial Class frmUSTVoffeneAntraege
        Me.pnlLand.TabIndex = 42
        Me.pnlLand.Visible = False
        '
+        'Label6
+        '
+        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(18, 9)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(51, 13)
+        Me.Label6.TabIndex = 51
+        Me.Label6.Text = "Lieferant:"
+        '
        'Label5
        '
        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -308,17 +319,6 @@ Partial Class frmUSTVoffeneAntraege
        Me.Label5.TabIndex = 49
        Me.Label5.Text = "Land-Kunde:"
        '
-        'cbxKundeLand
-        '
-        Me.cbxKundeLand._allowedValuesFreiText = Nothing
-        Me.cbxKundeLand._allowFreiText = False
-        Me.cbxKundeLand._value = ""
-        Me.cbxKundeLand.FormattingEnabled = True
-        Me.cbxKundeLand.Location = New System.Drawing.Point(244, 6)
-        Me.cbxKundeLand.Name = "cbxKundeLand"
-        Me.cbxKundeLand.Size = New System.Drawing.Size(72, 21)
-        Me.cbxKundeLand.TabIndex = 48
-        '
        'cbxNichtEroeffneteAntraege
        '
        Me.cbxNichtEroeffneteAntraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -341,17 +341,6 @@ Partial Class frmUSTVoffeneAntraege
        Me.cbxUStV.Text = " nur mit UStV"
        Me.cbxUStV.UseVisualStyleBackColor = True
        '
-        'MyComboBox1
-        '
-        Me.MyComboBox1._allowedValuesFreiText = Nothing
-        Me.MyComboBox1._allowFreiText = False
-        Me.MyComboBox1._value = ""
-        Me.MyComboBox1.FormattingEnabled = True
-        Me.MyComboBox1.Location = New System.Drawing.Point(396, 5)
-        Me.MyComboBox1.Name = "MyComboBox1"
-        Me.MyComboBox1.Size = New System.Drawing.Size(72, 21)
-        Me.MyComboBox1.TabIndex = 46
-        '
        'ContextMenuStrip1
        '
        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AntragEröffnenToolStripMenuItem})
@@ -374,6 +363,53 @@ Partial Class frmUSTVoffeneAntraege
        Me.Button4.Text = "PDFs prüfen"
        Me.Button4.UseVisualStyleBackColor = True
        '
+        'cbxKundenMWST
+        '
+        Me.cbxKundenMWST.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cbxKundenMWST.AutoSize = True
+        Me.cbxKundenMWST.Checked = True
+        Me.cbxKundenMWST.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxKundenMWST.Location = New System.Drawing.Point(1654, 78)
+        Me.cbxKundenMWST.Name = "cbxKundenMWST"
+        Me.cbxKundenMWST.Size = New System.Drawing.Size(158, 17)
+        Me.cbxKundenMWST.TabIndex = 47
+        Me.cbxKundenMWST.Text = "Kunden-MWST ausblenden"
+        Me.cbxKundenMWST.UseVisualStyleBackColor = True
+        Me.cbxKundenMWST.Visible = False
+        '
+        'cbxLieferant
+        '
+        Me.cbxLieferant._allowedValuesFreiText = Nothing
+        Me.cbxLieferant._allowFreiText = False
+        Me.cbxLieferant._value = ""
+        Me.cbxLieferant.FormattingEnabled = True
+        Me.cbxLieferant.Location = New System.Drawing.Point(92, 6)
+        Me.cbxLieferant.Name = "cbxLieferant"
+        Me.cbxLieferant.Size = New System.Drawing.Size(72, 21)
+        Me.cbxLieferant.TabIndex = 50
+        '
+        'cbxKundeLand
+        '
+        Me.cbxKundeLand._allowedValuesFreiText = Nothing
+        Me.cbxKundeLand._allowFreiText = False
+        Me.cbxKundeLand._value = ""
+        Me.cbxKundeLand.FormattingEnabled = True
+        Me.cbxKundeLand.Location = New System.Drawing.Point(244, 6)
+        Me.cbxKundeLand.Name = "cbxKundeLand"
+        Me.cbxKundeLand.Size = New System.Drawing.Size(72, 21)
+        Me.cbxKundeLand.TabIndex = 48
+        '
+        'MyComboBox1
+        '
+        Me.MyComboBox1._allowedValuesFreiText = Nothing
+        Me.MyComboBox1._allowFreiText = False
+        Me.MyComboBox1._value = ""
+        Me.MyComboBox1.FormattingEnabled = True
+        Me.MyComboBox1.Location = New System.Drawing.Point(396, 5)
+        Me.MyComboBox1.Name = "MyComboBox1"
+        Me.MyComboBox1.Size = New System.Drawing.Size(72, 21)
+        Me.MyComboBox1.TabIndex = 46
+        '
        'txtmaxAnz
        '
        Me.txtmaxAnz._DateTimeOnly = False
@@ -460,79 +496,55 @@ Partial Class frmUSTVoffeneAntraege
        Me.MyDatagridview1.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)
-        DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.MyDatagridview1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.MyDatagridview1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
        Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.MyDatagridview1.DefaultCellStyle = DataGridViewCellStyle5
        Me.MyDatagridview1.Location = New System.Drawing.Point(12, 98)
        Me.MyDatagridview1.Name = "MyDatagridview1"
        Me.MyDatagridview1.ReadOnly = True
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.MyDatagridview1.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.MyDatagridview1.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
        Me.MyDatagridview1.RowHeadersWidth = 62
        Me.MyDatagridview1.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
        Me.MyDatagridview1.Size = New System.Drawing.Size(1770, 528)
        Me.MyDatagridview1.TabIndex = 30
        '
-        'cbxKundenMWST
+        'Button5
        '
-        Me.cbxKundenMWST.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cbxKundenMWST.AutoSize = True
-        Me.cbxKundenMWST.Checked = True
-        Me.cbxKundenMWST.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxKundenMWST.Location = New System.Drawing.Point(1654, 78)
-        Me.cbxKundenMWST.Name = "cbxKundenMWST"
-        Me.cbxKundenMWST.Size = New System.Drawing.Size(158, 17)
-        Me.cbxKundenMWST.TabIndex = 47
-        Me.cbxKundenMWST.Text = "Kunden-MWST ausblenden"
-        Me.cbxKundenMWST.UseVisualStyleBackColor = True
-        Me.cbxKundenMWST.Visible = False
-        '
-        'Label6
-        '
-        Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(18, 9)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(51, 13)
-        Me.Label6.TabIndex = 51
-        Me.Label6.Text = "Lieferant:"
-        '
-        'cbxLieferant
-        '
-        Me.cbxLieferant._allowedValuesFreiText = Nothing
-        Me.cbxLieferant._allowFreiText = False
-        Me.cbxLieferant._value = ""
-        Me.cbxLieferant.FormattingEnabled = True
-        Me.cbxLieferant.Location = New System.Drawing.Point(92, 6)
-        Me.cbxLieferant.Name = "cbxLieferant"
-        Me.cbxLieferant.Size = New System.Drawing.Size(72, 21)
-        Me.cbxLieferant.TabIndex = 50
+        Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Button5.Location = New System.Drawing.Point(111, 639)
+        Me.Button5.Name = "Button5"
+        Me.Button5.Size = New System.Drawing.Size(98, 23)
+        Me.Button5.TabIndex = 48
+        Me.Button5.Text = "SE-DK-Logik"
+        Me.Button5.UseVisualStyleBackColor = True
        '
        'frmUSTVoffeneAntraege
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(1818, 681)
+        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.cbxKundenMWST)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.lblKunde)
@@ -598,4 +610,5 @@ Partial Class frmUSTVoffeneAntraege
    Friend WithEvents cbxKundenMWST As CheckBox
    Friend WithEvents Label6 As Label
    Friend WithEvents cbxLieferant As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Button5 As Button
 End Class
--- a/SDL/USTV/frmUSTVoffeneAntraege.vb
+++ b/SDL/USTV/frmUSTVoffeneAntraege.vb
@@ -64,6 +64,12 @@ Public Class frmUSTVoffeneAntraege
        MyDatagridview1.DataSource = Nothing
        Me.LIEFERANT = l

+        If Me.LIEFERANT = "PLOSE" Then
+            Button5.Visible = True
+        Else
+            Button5.Visible = False
+        End If
+
        For Each c As Button In FlowLayoutPanel.Controls
            If c Is btn Then
                c.BackColor = Color.Wheat
@@ -1137,4 +1143,14 @@ Public Class frmUSTVoffeneAntraege
    Private Sub cbxEigeneMWST_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKundenMWST.CheckedChanged
        init()
    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+
+        Dim SQL As New SQL
+
+        If SQL.doSQL("update [VERAG].[dbo].[tblPLOSE_Inv_Data] set plInv_SupplierCountry = 'SE' where plInv_SupplierRechnungsNr like 'SE%' and plInv_SupplierCountry = 'DK'", "FMZOLL", False) Then
+            MsgBox("Wurden erfolgreich gesetzt!")
+        End If
+
+    End Sub
 End Class