Kundenübersciht Layout

2023-06-02 09:10:09 +02:00
parent 0b0374cbb2
commit fbdefbb615
5 changed files with 94 additions and 69 deletions
--- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb
+++ b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb
@@ -141,6 +141,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.Label87 = New System.Windows.Forms.Label()
        Me.Label76 = New System.Windows.Forms.Label()
        Me.GroupBox11 = New System.Windows.Forms.GroupBox()
+        Me.Button22 = New System.Windows.Forms.Button()
        Me.Button19 = New System.Windows.Forms.Button()
        Me.Button18 = New System.Windows.Forms.Button()
        Me.PictureBox10 = New System.Windows.Forms.PictureBox()
@@ -251,7 +252,8 @@ Partial Class usrCntlZOLLAuswertungen
        Me.Button14 = New System.Windows.Forms.Button()
        Me.PictureBox8 = New System.Windows.Forms.PictureBox()
        Me.pnl = New System.Windows.Forms.Panel()
-        Me.Button22 = New System.Windows.Forms.Button()
+        Me.Label94 = New System.Windows.Forms.Label()
+        Me.cboBRG_Verimex = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1238,7 +1240,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.tbcntr.Location = New System.Drawing.Point(0, 57)
        Me.tbcntr.Name = "tbcntr"
        Me.tbcntr.SelectedIndex = 0
-        Me.tbcntr.Size = New System.Drawing.Size(711, 1829)
+        Me.tbcntr.Size = New System.Drawing.Size(694, 1829)
        Me.tbcntr.TabIndex = 22
        '
        'TabPage1
@@ -1281,7 +1283,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(703, 1803)
+        Me.TabPage1.Size = New System.Drawing.Size(686, 1803)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Bürgschaften"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -1575,6 +1577,8 @@ Partial Class usrCntlZOLLAuswertungen
        '
        'GroupBox11
        '
+        Me.GroupBox11.Controls.Add(Me.Label94)
+        Me.GroupBox11.Controls.Add(Me.cboBRG_Verimex)
        Me.GroupBox11.Controls.Add(Me.Button22)
        Me.GroupBox11.Controls.Add(Me.Button19)
        Me.GroupBox11.Controls.Add(Me.Button18)
@@ -1594,6 +1598,17 @@ Partial Class usrCntlZOLLAuswertungen
        Me.GroupBox11.TabIndex = 32
        Me.GroupBox11.TabStop = False
        '
+        'Button22
+        '
+        Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button22.Location = New System.Drawing.Point(6, 95)
+        Me.Button22.Name = "Button22"
+        Me.Button22.Size = New System.Drawing.Size(121, 37)
+        Me.Button22.TabIndex = 16
+        Me.Button22.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(10) & "(ATEZ)"
+        Me.Button22.UseVisualStyleBackColor = True
+        '
        'Button19
        '
        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -2410,7 +2425,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(720, 1803)
+        Me.TabPage2.Size = New System.Drawing.Size(703, 1803)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Kunden"
        Me.TabPage2.UseVisualStyleBackColor = True
@@ -2441,7 +2456,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(720, 1803)
+        Me.TabPage3.Size = New System.Drawing.Size(703, 1803)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
        Me.TabPage3.UseVisualStyleBackColor = True
@@ -2476,7 +2491,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
-        Me.TabPage4.Size = New System.Drawing.Size(720, 1803)
+        Me.TabPage4.Size = New System.Drawing.Size(703, 1803)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "Aufschubdaten"
        Me.TabPage4.UseVisualStyleBackColor = True
@@ -2505,7 +2520,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.TabPage5.Location = New System.Drawing.Point(4, 22)
        Me.TabPage5.Name = "TabPage5"
        Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage5.Size = New System.Drawing.Size(720, 1803)
+        Me.TabPage5.Size = New System.Drawing.Size(703, 1803)
        Me.TabPage5.TabIndex = 4
        Me.TabPage5.Text = "UNISPED"
        Me.TabPage5.UseVisualStyleBackColor = True
@@ -2713,19 +2728,27 @@ Partial Class usrCntlZOLLAuswertungen
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(711, 57)
+        Me.pnl.Size = New System.Drawing.Size(694, 57)
        Me.pnl.TabIndex = 23
        '
-        'Button22
+        'Label94
        '
-        Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button22.Location = New System.Drawing.Point(6, 95)
-        Me.Button22.Name = "Button22"
-        Me.Button22.Size = New System.Drawing.Size(121, 37)
-        Me.Button22.TabIndex = 16
-        Me.Button22.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(10) & "(ATEZ)"
-        Me.Button22.UseVisualStyleBackColor = True
+        Me.Label94.AutoSize = True
+        Me.Label94.Location = New System.Drawing.Point(181, 106)
+        Me.Label94.Name = "Label94"
+        Me.Label94.Size = New System.Drawing.Size(167, 13)
+        Me.Label94.TabIndex = 18
+        Me.Label94.Text = "Bürgschaft (keine Auswahl = alle):"
+        '
+        'cboBRG_Verimex
+        '
+        Me.cboBRG_Verimex.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.cboBRG_Verimex.DropDownWidth = 350
+        Me.cboBRG_Verimex.FormattingEnabled = True
+        Me.cboBRG_Verimex.Location = New System.Drawing.Point(184, 120)
+        Me.cboBRG_Verimex.Name = "cboBRG_Verimex"
+        Me.cboBRG_Verimex.Size = New System.Drawing.Size(221, 21)
+        Me.cboBRG_Verimex.TabIndex = 17
        '
        'usrCntlZOLLAuswertungen
        '
@@ -2736,7 +2759,7 @@ Partial Class usrCntlZOLLAuswertungen
        Me.Controls.Add(Me.tbcntr)
        Me.Controls.Add(Me.pnl)
        Me.Name = "usrCntlZOLLAuswertungen"
-        Me.Size = New System.Drawing.Size(711, 1445)
+        Me.Size = New System.Drawing.Size(694, 1445)
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.GroupBox2.ResumeLayout(False)
@@ -3028,4 +3051,6 @@ Partial Class usrCntlZOLLAuswertungen
    Friend WithEvents datAuswertVon_NCTSTR_UNISPED As DateTimePicker
    Friend WithEvents Label87 As Label
    Friend WithEvents Button22 As Button
+    Friend WithEvents Label94 As Label
+    Friend WithEvents cboBRG_Verimex As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class
--- a/SDL/zoll/usrCntlZOLLAuswertungen.vb
+++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb
@@ -124,6 +124,16 @@ Public Class usrCntlZOLLAuswertungen
        cboEZOLLBrg.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20AT520000G000092 - AT Brg ATILLA", "20AT520000G000092"))
        cboEZOLLBrg.SelectedIndex = 1

+
+        cboBRG_Verimex.Items.Clear()
+        cboBRG_Verimex.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
+        cboBRG_Verimex.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("17DE0000000071678 - DE Brg (NEU)", "17DE0000000071678"))
+        cboBRG_Verimex.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05DE0000000009345 - DE Brg", "05DE0000000009345"))
+        cboBRG_Verimex.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT510000G000FP7 - AT Brg", "05AT510000G000FP7"))
+        cboBRG_Verimex.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16AT520000G000VA6 - AT Brg IMEX", "16AT520000G000VA6"))
+        cboBRG_Verimex.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20AT520000G000092 - AT Brg ATILLA", "20AT520000G000092"))
+        cboBRG_Verimex.SelectedIndex = 1
+
        cboUnispedBrgDy.Items.Clear()
        cboUnispedBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
        cboUnispedBrgDy.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("05AT500000G000EU9  - AT Brg UNISPED", "05AT500000G000EU9 "))
@@ -716,13 +726,13 @@ Public Class usrCntlZOLLAuswertungen

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        Dim frmPrintLayout As New frmPrintLayout()
-        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "VERIMEX_OREGON")
+        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "VERIMEX_OREGON", cboBRG_Verimex._value)
        frmPrintLayout.Show()
    End Sub

    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        Dim frmPrintLayout As New frmPrintLayout()
-        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "VERIMEX_MAVI")
+        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "VERIMEX_MAVI", cboBRG_Verimex._value)
        frmPrintLayout.Show()
    End Sub

@@ -755,19 +765,19 @@ Public Class usrCntlZOLLAuswertungen

    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
        Dim frmPrintLayout As New frmPrintLayout()
-        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR_AWOR.Text, datAuswertBis_NCTSTR_AWOR.Text, "MIC_AWOR")
+        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR_AWOR.Text, datAuswertBis_NCTSTR_AWOR.Text, "MIC_AWOR", cboBRG_Verimex._value)
        frmPrintLayout.Show()
    End Sub

    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
        Dim frmPrintLayout As New frmPrintLayout()
-        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR_UNISPED.Text, datAuswertBis_NCTSTR_UNISPED.Text, "MIC_UNISPED")
+        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR_UNISPED.Text, datAuswertBis_NCTSTR_UNISPED.Text, "MIC_UNISPED", cboBRG_Verimex._value)
        frmPrintLayout.Show()
    End Sub

    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
        Dim frmPrintLayout As New frmPrintLayout()
-        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "VERIMEX_ATEZ")
+        frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "VERIMEX_ATEZ", cboBRG_Verimex._value)
        frmPrintLayout.Show()
    End Sub
 End Class