From ff705db78792205a79c4007f5c0264dff1ba6e68 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 27 Feb 2023 22:18:10 +0100 Subject: [PATCH] MDM Plaose Anpassung, div. USTV Anpassungen --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/USTV/usrCntlUSTV.Designer.vb | 171 ++-- SDL/USTV/usrCntlUSTV.vb | 88 +- SDL/kunden/Vorauskasse/frmVorauskasse.vb | 16 +- SDL/kunden/frmKundenblatt.Designer.vb | 752 +++++++++--------- SDL/mdm/frmMDMDatenverarbetiung.vb | 19 +- .../Classes/cSpeditionsbuch.vb | 2 +- 7 files changed, 559 insertions(+), 493 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 9caa35bf..03e701ba 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/usrCntlUSTV.Designer.vb b/SDL/USTV/usrCntlUSTV.Designer.vb index 7104eddb..0dd44400 100644 --- a/SDL/USTV/usrCntlUSTV.Designer.vb +++ b/SDL/USTV/usrCntlUSTV.Designer.vb @@ -23,23 +23,23 @@ Partial Class usrCntlUSTV Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnlFilter = New System.Windows.Forms.Panel() Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Label1 = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.cboJahrBis = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label2 = New System.Windows.Forms.Label() Me.lblKunde = New System.Windows.Forms.Label() Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.cboJahr = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.lblFirma = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() Me.Button14 = New System.Windows.Forms.Button() Me.FlatButton2 = New System.Windows.Forms.Button() - Me.Button8 = New System.Windows.Forms.Button() - Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() - Me.btnUpdate = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() + Me.Button8 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel2.SuspendLayout() @@ -51,9 +51,9 @@ Partial Class usrCntlUSTV Me.pnlFilter.BackColor = System.Drawing.Color.White Me.pnlFilter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlFilter.Location = New System.Drawing.Point(0, 43) + Me.pnlFilter.Location = New System.Drawing.Point(0, 53) Me.pnlFilter.Name = "pnlFilter" - Me.pnlFilter.Size = New System.Drawing.Size(1072, 34) + Me.pnlFilter.Size = New System.Drawing.Size(1072, 31) Me.pnlFilter.TabIndex = 6 ' 'dgvUSTV @@ -61,16 +61,16 @@ Partial Class usrCntlUSTV Me.dgvUSTV.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvUSTV.AllowUserToAddRows = False Me.dgvUSTV.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvUSTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvUSTV.Location = New System.Drawing.Point(0, 77) + Me.dgvUSTV.Location = New System.Drawing.Point(0, 84) Me.dgvUSTV.MultiSelect = False Me.dgvUSTV.Name = "dgvUSTV" Me.dgvUSTV.ReadOnly = True Me.dgvUSTV.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUSTV.Size = New System.Drawing.Size(1072, 103) + Me.dgvUSTV.Size = New System.Drawing.Size(1072, 457) Me.dgvUSTV.TabIndex = 1 ' 'Label1 @@ -87,19 +87,30 @@ Partial Class usrCntlUSTV 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.Panel1.Controls.Add(Me.cboJahrBis) Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.lblKunde) Me.Panel1.Controls.Add(Me.KdSearchBox1) Me.Panel1.Controls.Add(Me.cboJahr) - Me.Panel1.Controls.Add(Me.lblFirma) Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Controls.Add(Me.pnlFilter) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1072, 77) + Me.Panel1.Size = New System.Drawing.Size(1072, 84) Me.Panel1.TabIndex = 0 ' + 'cboJahrBis + ' + Me.cboJahrBis._allowedValuesFreiText = Nothing + Me.cboJahrBis._allowFreiText = False + Me.cboJahrBis._value = "" + Me.cboJahrBis.FormattingEnabled = True + Me.cboJahrBis.Location = New System.Drawing.Point(527, 8) + Me.cboJahrBis.Name = "cboJahrBis" + Me.cboJahrBis.Size = New System.Drawing.Size(121, 21) + Me.cboJahrBis.TabIndex = 7 + ' 'Label2 ' Me.Label2.AutoSize = True @@ -132,7 +143,7 @@ Partial Class usrCntlUSTV Me.KdSearchBox1._UseFIRMA = "" Me.KdSearchBox1._ValueKdAndName = True Me.KdSearchBox1.dgvpos = "LEFT" - Me.KdSearchBox1.KdName = Nothing + Me.KdSearchBox1.KdName = "" Me.KdSearchBox1.KdNr = "-1" Me.KdSearchBox1.kdNrField = Nothing Me.KdSearchBox1.KdNrNullInt = Nothing @@ -156,31 +167,35 @@ Partial Class usrCntlUSTV Me.cboJahr.Size = New System.Drawing.Size(121, 21) Me.cboJahr.TabIndex = 4 ' - 'lblFirma + 'Button1 ' - Me.lblFirma.AutoSize = True - Me.lblFirma.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirma.Location = New System.Drawing.Point(872, 23) - Me.lblFirma.Name = "lblFirma" - Me.lblFirma.Size = New System.Drawing.Size(161, 17) - Me.lblFirma.TabIndex = 5 - Me.lblFirma.Text = "VERAG Spedition AG" + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.Black + Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(955, 6) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(114, 39) + Me.Button1.TabIndex = 5 + Me.Button1.Text = "In Excel " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "konvertieren" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button1.UseVisualStyleBackColor = True ' 'Button14 ' + Me.Button14.Enabled = False Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button14.ForeColor = System.Drawing.Color.Black Me.Button14.Image = Global.SDL.My.Resources.Resources.plus Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button14.Location = New System.Drawing.Point(668, 106) + Me.Button14.Location = New System.Drawing.Point(7, 6) Me.Button14.Name = "Button14" Me.Button14.Size = New System.Drawing.Size(75, 39) Me.Button14.TabIndex = 3 Me.Button14.Text = "Neu" Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button14.UseVisualStyleBackColor = True - Me.Button14.Visible = False ' 'FlatButton2 ' @@ -189,90 +204,66 @@ Partial Class usrCntlUSTV Me.FlatButton2.ForeColor = System.Drawing.Color.Black Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.del Me.FlatButton2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.FlatButton2.Location = New System.Drawing.Point(753, 106) + Me.FlatButton2.Location = New System.Drawing.Point(88, 7) Me.FlatButton2.Name = "FlatButton2" Me.FlatButton2.Size = New System.Drawing.Size(86, 39) Me.FlatButton2.TabIndex = 4 Me.FlatButton2.Text = "Löschen" Me.FlatButton2.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.FlatButton2.UseVisualStyleBackColor = True - Me.FlatButton2.Visible = False - ' - 'Button8 - ' - Me.Button8.FlatAppearance.BorderSize = 0 - Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button8.Image = Global.SDL.My.Resources.Resources.Excel_logo - Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(544, 102) - Me.Button8.Name = "Button8" - Me.Button8.Size = New System.Drawing.Size(118, 44) - Me.Button8.TabIndex = 2 - Me.Button8.Text = "In Excel " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "konvertieren" - Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button8.UseVisualStyleBackColor = True - Me.Button8.Visible = False - ' - 'FlatButton1 - ' - Me.FlatButton1.allowBorder = False - Me.FlatButton1.FlatAppearance.BorderSize = 0 - Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.FlatButton1.ForeColor = System.Drawing.Color.Black - Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.plus - Me.FlatButton1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.FlatButton1.Location = New System.Drawing.Point(367, 106) - Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(152, 37) - Me.FlatButton1.TabIndex = 1 - Me.FlatButton1.Text = "Neuer Eintrag (unten)" - Me.FlatButton1.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.FlatButton1.UseVisualStyleBackColor = True - Me.FlatButton1.Visible = False - ' - 'btnUpdate - ' - Me.btnUpdate.allowBorder = False - Me.btnUpdate.Enabled = False - Me.btnUpdate.FlatAppearance.BorderSize = 0 - Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnUpdate.ForeColor = System.Drawing.Color.Black - Me.btnUpdate.Image = Global.SDL.My.Resources.Resources.save - Me.btnUpdate.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnUpdate.Location = New System.Drawing.Point(209, 106) - Me.btnUpdate.Name = "btnUpdate" - Me.btnUpdate.Size = New System.Drawing.Size(152, 37) - Me.btnUpdate.TabIndex = 0 - Me.btnUpdate.Text = "Änderungen speichern" - Me.btnUpdate.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnUpdate.UseVisualStyleBackColor = True - Me.btnUpdate.Visible = False ' 'Panel2 ' Me.Panel2.BackColor = System.Drawing.Color.White Me.Panel2.Controls.Add(Me.Panel3) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel2.Location = New System.Drawing.Point(0, 180) - Me.Panel2.MinimumSize = New System.Drawing.Size(0, 427) + Me.Panel2.Location = New System.Drawing.Point(0, 541) + Me.Panel2.MinimumSize = New System.Drawing.Size(0, 50) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(1072, 427) + Me.Panel2.Size = New System.Drawing.Size(1072, 66) Me.Panel2.TabIndex = 2 ' 'Panel3 ' Me.Panel3.AutoSize = True - Me.Panel3.Controls.Add(Me.btnUpdate) - Me.Panel3.Controls.Add(Me.Button14) - Me.Panel3.Controls.Add(Me.FlatButton1) - Me.Panel3.Controls.Add(Me.FlatButton2) + Me.Panel3.Controls.Add(Me.Button5) Me.Panel3.Controls.Add(Me.Button8) + Me.Panel3.Controls.Add(Me.Button1) + Me.Panel3.Controls.Add(Me.Button14) + Me.Panel3.Controls.Add(Me.FlatButton2) Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(0, 0) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1072, 427) + Me.Panel3.Size = New System.Drawing.Size(1072, 66) Me.Panel3.TabIndex = 0 - Me.Panel3.Visible = False + ' + 'Button8 + ' + Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small + Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button8.Location = New System.Drawing.Point(213, 7) + Me.Button8.Margin = New System.Windows.Forms.Padding(0) + Me.Button8.Name = "Button8" + Me.Button8.Size = New System.Drawing.Size(145, 41) + Me.Button8.TabIndex = 6 + Me.Button8.Text = "Eingereichte Anträge" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "mit Differenzbetrag" + Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button8.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Image = Global.SDL.My.Resources.Resources.kunden + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(831, 5) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(118, 40) + Me.Button5.TabIndex = 23 + Me.Button5.Text = "Gehe zum" & Global.Microsoft.VisualBasic.ChrW(10) & "Kundenblatt" + Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button5.UseVisualStyleBackColor = True ' 'usrCntlUSTV ' @@ -297,15 +288,15 @@ Partial Class usrCntlUSTV Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Panel2 As System.Windows.Forms.Panel - Friend WithEvents lblFirma As System.Windows.Forms.Label Friend WithEvents Panel3 As System.Windows.Forms.Panel - Friend WithEvents btnUpdate As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents FlatButton1 As VERAG_PROG_ALLGEMEIN.FlatButton - Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents Button14 As System.Windows.Forms.Button Friend WithEvents FlatButton2 As System.Windows.Forms.Button Friend WithEvents Label2 As Label Friend WithEvents lblKunde As Label Friend WithEvents KdSearchBox1 As VERAG_PROG_ALLGEMEIN.KdSearchBox Friend WithEvents cboJahr As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Button1 As Button + Friend WithEvents Button8 As Button + Friend WithEvents cboJahrBis As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Button5 As Button End Class diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 9983a824..b9f6b0bd 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -1,5 +1,6 @@ Imports System.ComponentModel Imports System.Data.SqlClient +Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlUSTV @@ -17,14 +18,14 @@ Public Class usrCntlUSTV With dgvUSTV .ClearSelection() - ' If KdSearchBox1.KdNr <= 0 Then Exit Sub - If cboJahr._value = "" Then Exit Sub - .SET_SQL("SELECT TOP (1000) [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],[UStVAn_Sachbearbeiter] + + .SET_SQL("SELECT TOP (200) [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],[UStVAn_Sachbearbeiter] FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr - where UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahr._value & "' " & If(KdSearchBox1.KdNr > 0, " and UStVAn_KuNr=" & KdSearchBox1.KdNr & "", "") & " - order by UStVAn_KuNr,UStVAn_Name,LandKz,[UStVAn_ReDatVon]", "FMZOLL") + where 1=1 " & getWhere() & " + order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL") .LOAD() + .RowTemplate.Height = 20 .AllowUserToOrderColumns = False .AllowUserToResizeRows = False @@ -49,6 +50,10 @@ Public Class usrCntlUSTV .Columns("UStVAn_ReDatBis").HeaderText = "Bis" .Columns("UStVAn_ReDatBis").Width = 100 + + .Columns("UStVAn_AntragEingereichtAm").HeaderText = "EingereichtAm" + .Columns("UStVAn_AntragEingereichtAm").Width = 100 + .Columns("UStVAn_3470").HeaderText = "3470" .Columns("UStVAn_3470").Width = 150 .Columns("UStVAn_3470").DefaultCellStyle.Format = "N2" @@ -87,19 +92,46 @@ Public Class usrCntlUSTV End Sub + + Function getWhere(Optional useJahr = True) As String + Dim whereStr = "" + 'If KdSearchBox1.KdNr <= 0 Then Exit Sub + + If useJahr Then + If cboJahr._value <> "" Then + If cboJahrBis._value <> "" Then + whereStr &= " AND UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahrBis._value & "' " + Else + whereStr &= " AND UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahr._value & "' " + End If + End If + End If + + If KdSearchBox1.KdNr > 0 Then whereStr &= " AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " " + Return whereStr + End Function + Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' btnFilter.Left = Panel4.Width - btnFilter.Width KdSearchBox1.initKdBox(Me.FindForm) init() cboJahr.Items.Clear() + cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) For i = 0 To 10 cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i)) Next - cboJahr.SelectedIndex = 0 + cboJahr.changeItem(Now.Year - 2) + + cboJahrBis.Items.Clear() + cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + For i = 0 To 10 + cboJahrBis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(Now.Year - i, Now.Year - i)) + Next + cboJahrBis.changeItem(Now.Year) If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then - FlatButton1.Enabled = False + 'FlatButton1.Enabled = False FlatButton2.Enabled = False Button14.Enabled = False End If @@ -115,11 +147,51 @@ Public Class usrCntlUSTV End If End Sub - Private Sub cboJahr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboJahr.SelectedIndexChanged + Private Sub cboJahr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboJahr.SelectedIndexChanged, cboJahrBis.SelectedIndexChanged init() End Sub Private Sub KdSearchBox1_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles KdSearchBox1.PropertyChanged init() End Sub + + + Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button1.Click + cProgramFunctions.genExcelFromDGV_NEW(dgvUSTV, True) + End Sub + + Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click + 'Dim sqlStr = "SELECT [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],[UStVAn_Sachbearbeiter] + ' FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr + ' where 1=1 " & getWhere(False) & " + ' AND cast( [UStVAn_USteuerbetragEUR] as decimal(17,2))-cast( [UStVAn_ErstattungsbetragEUR] as decimal(17,2))<>0 + ' AND UStVAn_AntragEingereichtAm is not null + ' order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc" + Dim sqlStr = "SELECT [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],(cast([UStVAn_USteuerbetragEUR] as decimal(17,2)) - cast( [UStVAn_ErstattungsbetragEUR] as decimal(17,2))) as Differenzbetrag, [UStVAn_Sachbearbeiter] + FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr + where 1=1 + AND cast( [UStVAn_USteuerbetragEUR] as decimal(17,2))-cast( [UStVAn_ErstattungsbetragEUR] as decimal(17,2))<>0 + AND UStVAn_AntragEingereichtAm is not null + order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc" + + Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL") + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + cProgramFunctions.genExcelFromDT_NEW(dt, {"J1:N" & (dt.Rows.Count + 1)}) + Else + MsgBox("Keine Daten!") + End If + + End Sub + + Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click + ' If Not kdNr_filter Then + If dgvUSTV.SelectedCells.Count > 0 Then + If IsNumeric(dgvUSTV.CurrentRow.Cells("UStVAn_KuNr").Value) Then + cProgramFunctions.openKundenblatt(dgvUSTV.CurrentRow.Cells("UStVAn_KuNr").Value, Me.FindForm, True) + 'Dim pf As New cProgramFunctions + 'pf.openKundenblatt(dgvSDL.CurrentRow.Cells("KundenNr").Value) + End If + End If + ' End If + End Sub End Class diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index 3dc6d78d..38bd19b6 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -672,15 +672,9 @@ Public Class cVorauskasseOptions End If End If - 'Wenn Benutzer der Sendung nicht online, dann Benutzer der Sendung .. - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then - sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO") - art = "B" - End If - - 'Wenn Benutzer des LKWs nicht online, Team... + 'Wenn Benutzer der Sendung nicht online, Team... Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' --> Bezieht sich auf BU MA - Case "IMEX" ' Bie IMEX kommen die MA durhc verschobene Dienstzeiten oft später + ' Case "IMEX" ' Bie IMEX kommen die MA durhc verschobene Dienstzeiten oft später Case Else If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO") @@ -688,6 +682,12 @@ Public Class cVorauskasseOptions End If End Select + 'Wenn nicht Team, dann Benutzer des LKW .. + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then + sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO") + art = "B" + End If + 'Wenn gefunden If sendToID >= 0 Then diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 6e590ff9..f409a667 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -89,6 +89,9 @@ Partial Class frmKundenblatt Me.Panel5 = New System.Windows.Forms.Panel() Me.Label35 = New System.Windows.Forms.Label() Me.flpSDLDok = New System.Windows.Forms.FlowLayoutPanel() + Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label34 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() @@ -99,13 +102,17 @@ Partial Class frmKundenblatt Me.Label33 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() + Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.lblAenderungsdatum_SDL = New System.Windows.Forms.Label() Me.lblErfassungsdatum_SDL = New System.Windows.Forms.Label() Me.grpMautDE = New System.Windows.Forms.GroupBox() Me.Button15 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() + Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblMautDEFlottenPIN = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() + Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() @@ -131,6 +138,14 @@ Partial Class frmKundenblatt Me.Label7 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.lblSonstigeDokumente = New System.Windows.Forms.Label() + Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -152,26 +167,11 @@ Partial Class frmKundenblatt Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.pnl = New System.Windows.Forms.Panel() Me.lblINAKTIV = New System.Windows.Forms.Label() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.tbiLeistungen = New System.Windows.Forms.ToolStripMenuItem() Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.UsrCntlLKW1 = New SDL.usrCntlLKW() @@ -247,7 +247,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1623, 676) + Me.tbFirmendaten.Size = New System.Drawing.Size(1623, 710) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -257,7 +257,7 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1617, 670) + Me.Panel4.Size = New System.Drawing.Size(1617, 704) Me.Panel4.TabIndex = 0 ' 'tbcntrMain @@ -274,7 +274,7 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1631, 705) + Me.tbcntrMain.Size = New System.Drawing.Size(1631, 739) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein @@ -307,7 +307,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1623, 676) + Me.tbAllgemein.Size = New System.Drawing.Size(1623, 710) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -642,7 +642,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 - Me.dgvSperrliste.Size = New System.Drawing.Size(828, 566) + Me.dgvSperrliste.Size = New System.Drawing.Size(828, 600) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -696,7 +696,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1623, 676) + Me.tbZoll.Size = New System.Drawing.Size(1623, 710) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -708,7 +708,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1617, 670) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1617, 704) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -716,7 +716,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1609, 644) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1609, 678) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -727,7 +727,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1623, 676) + Me.tbMdm.Size = New System.Drawing.Size(1623, 710) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -745,7 +745,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1617, 670) + Me.tbcntrMDM.Size = New System.Drawing.Size(1617, 704) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -757,7 +757,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1609, 644) + Me.tbSDL.Size = New System.Drawing.Size(1609, 678) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -799,7 +799,7 @@ Partial Class frmKundenblatt DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1603, 448) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1603, 482) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -903,7 +903,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 498) + Me.Panel5.Location = New System.Drawing.Point(3, 532) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1603, 143) Me.Panel5.TabIndex = 177 @@ -929,6 +929,67 @@ Partial Class frmKundenblatt Me.flpSDLDok.Size = New System.Drawing.Size(158, 125) Me.flpSDLDok.TabIndex = 176 ' + 'scanErstbestellung + ' + Me.scanErstbestellung._ARCHIV = True + Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" + Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanErstbestellung._MULTI_FILES = True + Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" + Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanErstbestellung.BackColor = System.Drawing.Color.White + Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) + Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) + Me.scanErstbestellung.Name = "scanErstbestellung" + Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) + Me.scanErstbestellung.TabIndex = 172 + ' + 'scanJaraVereinbarung + ' + Me.scanJaraVereinbarung._ARCHIV = True + Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" + Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing + Me.scanJaraVereinbarung._MULTI_FILES = True + Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" + Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White + Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) + Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) + Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" + Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) + Me.scanJaraVereinbarung.TabIndex = 173 + ' + 'scanMWSTAgreement + ' + Me.scanMWSTAgreement._ARCHIV = True + Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" + Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing + Me.scanMWSTAgreement._MULTI_FILES = True + Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" + Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White + Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) + Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) + Me.scanMWSTAgreement.Name = "scanMWSTAgreement" + Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) + Me.scanMWSTAgreement.TabIndex = 174 + Me.scanMWSTAgreement.Visible = False + ' 'Label34 ' Me.Label34.AutoSize = True @@ -1028,6 +1089,25 @@ Partial Class frmKundenblatt Me.Label32.TabIndex = 13 Me.Label32.Text = "Letzter Sachbearbeiter:" ' + 'scanSDLSonst + ' + Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" + Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" + Me.scanSDLSonst._OPEN_ORIGINAL = False + Me.scanSDLSonst._TYPE = "PDF" + Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSDLSonst.BackColor = System.Drawing.Color.White + Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) + Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) + Me.scanSDLSonst.Name = "scanSDLSonst" + Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) + Me.scanSDLSonst.TabIndex = 173 + ' 'lblAenderungsdatum_SDL ' Me.lblAenderungsdatum_SDL.AutoSize = True @@ -1084,6 +1164,29 @@ Partial Class frmKundenblatt Me.Label1.TabIndex = 19 Me.Label1.Text = "Benutzer-Nr:" ' + 'txtMautDE_BenutzerNr + ' + Me.txtMautDE_BenutzerNr._DateTimeOnly = False + Me.txtMautDE_BenutzerNr._numbersOnly = True + Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" + Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True + Me.txtMautDE_BenutzerNr._Prozent = False + Me.txtMautDE_BenutzerNr._ShortDateNew = False + Me.txtMautDE_BenutzerNr._ShortDateOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False + Me.txtMautDE_BenutzerNr._value = "" + Me.txtMautDE_BenutzerNr._Waehrung = False + Me.txtMautDE_BenutzerNr._WaehrungZeichen = True + Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) + Me.txtMautDE_BenutzerNr.MaxLineLength = -1 + Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" + Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing + Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" + Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) + Me.txtMautDE_BenutzerNr.TabIndex = 18 + ' 'lblMautDEFlottenPIN ' Me.lblMautDEFlottenPIN.AutoSize = True @@ -1102,6 +1205,52 @@ Partial Class frmKundenblatt Me.Label6.TabIndex = 17 Me.Label6.Text = "Master-PIN:" ' + 'txtMautDE_FlottenPIN + ' + Me.txtMautDE_FlottenPIN._DateTimeOnly = False + Me.txtMautDE_FlottenPIN._numbersOnly = True + Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" + Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True + Me.txtMautDE_FlottenPIN._Prozent = False + Me.txtMautDE_FlottenPIN._ShortDateNew = False + Me.txtMautDE_FlottenPIN._ShortDateOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False + Me.txtMautDE_FlottenPIN._value = "" + Me.txtMautDE_FlottenPIN._Waehrung = False + Me.txtMautDE_FlottenPIN._WaehrungZeichen = True + Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) + Me.txtMautDE_FlottenPIN.MaxLineLength = -1 + Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" + Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" + Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDE_FlottenPIN.TabIndex = 14 + ' + 'txtMautDEMasterPIN + ' + Me.txtMautDEMasterPIN._DateTimeOnly = False + Me.txtMautDEMasterPIN._numbersOnly = True + Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" + Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True + Me.txtMautDEMasterPIN._Prozent = False + Me.txtMautDEMasterPIN._ShortDateNew = False + Me.txtMautDEMasterPIN._ShortDateOnly = False + Me.txtMautDEMasterPIN._TimeOnly = False + Me.txtMautDEMasterPIN._TimeOnly_Seconds = False + Me.txtMautDEMasterPIN._value = "" + Me.txtMautDEMasterPIN._Waehrung = False + Me.txtMautDEMasterPIN._WaehrungZeichen = True + Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) + Me.txtMautDEMasterPIN.MaxLineLength = -1 + Me.txtMautDEMasterPIN.MaxLines_Warning = "" + Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" + Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDEMasterPIN.TabIndex = 16 + ' 'lblLetzterSA_SDL ' Me.lblLetzterSA_SDL.AutoSize = True @@ -1127,7 +1276,7 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(1609, 644) + Me.tbSDLKarten.Size = New System.Drawing.Size(1609, 678) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True @@ -1139,7 +1288,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(1609, 644) + Me.tbLKW.Size = New System.Drawing.Size(1609, 678) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1151,7 +1300,7 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(1297, 638) + Me.pnlLKWRight.Size = New System.Drawing.Size(1297, 672) Me.pnlLKWRight.TabIndex = 2 ' 'pnlLKW @@ -1162,7 +1311,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 638) + Me.pnlLKW.Size = New System.Drawing.Size(306, 672) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1203,7 +1352,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 464) + Me.dgvLKW.Size = New System.Drawing.Size(306, 498) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1215,7 +1364,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 526) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 560) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1356,7 +1505,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(1609, 644) + Me.tbVERAGCard.Size = New System.Drawing.Size(1609, 678) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1368,7 +1517,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1603, 638) + Me.Panel3.Size = New System.Drawing.Size(1603, 672) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -1386,7 +1535,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(1609, 644) + Me.tbDokumente.Size = New System.Drawing.Size(1609, 678) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -1421,12 +1570,170 @@ Partial Class frmKundenblatt Me.lblSonstigeDokumente.TabIndex = 2 Me.lblSonstigeDokumente.Text = "Sonstige Dokumente" ' + 'scanUebernahmebestätigungen + ' + Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" + Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False + Me.scanUebernahmebestätigungen._TYPE = "PDF" + Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White + Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) + Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) + Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" + Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) + Me.scanUebernahmebestätigungen.TabIndex = 5 + ' + 'scanHKA + ' + Me.scanHKA._ARCHIV = True + Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHKA._DATENSERVER_ORDNER = "MDM" + Me.scanHKA._DATENSERVER_UOrdner1 = Nothing + Me.scanHKA._DATENSERVER_UOrdner2 = Nothing + Me.scanHKA._DATENSERVER_UOrdner3 = Nothing + Me.scanHKA._MULTI_FILES = True + Me.scanHKA._TEXT_PDF = "Handelskammerauszug" + Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHKA.BackColor = System.Drawing.Color.White + Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHKA.Location = New System.Drawing.Point(17, 163) + Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHKA.Name = "scanHKA" + Me.scanHKA.Size = New System.Drawing.Size(168, 24) + Me.scanHKA.TabIndex = 4 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges._OPEN_ORIGINAL = False + Me.scanSonstiges._TYPE = "PDF" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) + Me.scanSonstiges.TabIndex = 1 + ' + 'scanEULizenz + ' + Me.scanEULizenz._ARCHIV = True + Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" + Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing + Me.scanEULizenz._MULTI_FILES = True + Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" + Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanEULizenz.BackColor = System.Drawing.Color.White + Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default + Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) + Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanEULizenz.Name = "scanEULizenz" + Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) + Me.scanEULizenz.TabIndex = 0 + ' + 'scanHRA + ' + Me.scanHRA._ARCHIV = True + Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHRA._DATENSERVER_ORDNER = "MDM" + Me.scanHRA._DATENSERVER_UOrdner1 = Nothing + Me.scanHRA._DATENSERVER_UOrdner2 = Nothing + Me.scanHRA._DATENSERVER_UOrdner3 = Nothing + Me.scanHRA._MULTI_FILES = True + Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" + Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHRA.BackColor = System.Drawing.Color.White + Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHRA.Location = New System.Drawing.Point(17, 133) + Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHRA.Name = "scanHRA" + Me.scanHRA.Size = New System.Drawing.Size(168, 24) + Me.scanHRA.TabIndex = 0 + ' + 'scanPersonalAusweisGF + ' + Me.scanPersonalAusweisGF._ARCHIV = True + Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing + Me.scanPersonalAusweisGF._MULTI_FILES = True + Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" + Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White + Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default + Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) + Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" + Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) + Me.scanPersonalAusweisGF.TabIndex = 0 + ' + 'scanBankGarantie + ' + Me.scanBankGarantie._ARCHIV = True + Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" + Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing + Me.scanBankGarantie._MULTI_FILES = True + Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" + Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanBankGarantie.BackColor = System.Drawing.Color.White + Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default + Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) + Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanBankGarantie.Name = "scanBankGarantie" + Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) + Me.scanBankGarantie.TabIndex = 0 + ' + 'scanVertragVeragKd + ' + Me.scanVertragVeragKd._ARCHIV = True + Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" + Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing + Me.scanVertragVeragKd._MULTI_FILES = True + Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" + Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White + Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default + Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) + Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanVertragVeragKd.Name = "scanVertragVeragKd" + Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) + Me.scanVertragVeragKd.TabIndex = 0 + ' 'tbBesuchsberichte ' Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) Me.tbBesuchsberichte.Name = "tbBesuchsberichte" Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(1609, 644) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(1609, 678) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -1437,7 +1744,7 @@ Partial Class frmKundenblatt Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1623, 676) + Me.tbOfferte.Size = New System.Drawing.Size(1623, 710) Me.tbOfferte.TabIndex = 11 Me.tbOfferte.Text = "Offerte" Me.tbOfferte.UseVisualStyleBackColor = True @@ -1643,337 +1950,6 @@ Partial Class frmKundenblatt Me.lblINAKTIV.Text = "! INAKTIV !" Me.lblINAKTIV.Visible = False ' - 'tbiLeistungen - ' - Me.tbiLeistungen.Name = "tbiLeistungen" - Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) - Me.tbiLeistungen.Text = "Leistungen" - ' - 'tbiKartenverwaltung - ' - Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" - Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) - Me.tbiKartenverwaltung.Text = "Kartenverwaltung" - ' - 'tbiLKW - ' - Me.tbiLKW.Name = "tbiLKW" - Me.tbiLKW.Size = New System.Drawing.Size(186, 22) - Me.tbiLKW.Text = "LKWs" - ' - 'tbiVERAGCard - ' - Me.tbiVERAGCard.Name = "tbiVERAGCard" - Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) - Me.tbiVERAGCard.Text = "VERAG Card" - ' - 'scanErstbestellung - ' - Me.scanErstbestellung._ARCHIV = True - Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" - Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing - Me.scanErstbestellung._MULTI_FILES = True - Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" - Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanErstbestellung.BackColor = System.Drawing.Color.White - Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) - Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) - Me.scanErstbestellung.Name = "scanErstbestellung" - Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) - Me.scanErstbestellung.TabIndex = 172 - ' - 'scanJaraVereinbarung - ' - Me.scanJaraVereinbarung._ARCHIV = True - Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" - Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing - Me.scanJaraVereinbarung._MULTI_FILES = True - Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" - Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White - Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) - Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) - Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" - Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) - Me.scanJaraVereinbarung.TabIndex = 173 - ' - 'scanMWSTAgreement - ' - Me.scanMWSTAgreement._ARCHIV = True - Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" - Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing - Me.scanMWSTAgreement._MULTI_FILES = True - Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" - Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White - Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) - Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) - Me.scanMWSTAgreement.Name = "scanMWSTAgreement" - Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) - Me.scanMWSTAgreement.TabIndex = 174 - Me.scanMWSTAgreement.Visible = False - ' - 'scanSDLSonst - ' - Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" - Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" - Me.scanSDLSonst._OPEN_ORIGINAL = False - Me.scanSDLSonst._TYPE = "PDF" - Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSDLSonst.BackColor = System.Drawing.Color.White - Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) - Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) - Me.scanSDLSonst.Name = "scanSDLSonst" - Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) - Me.scanSDLSonst.TabIndex = 173 - ' - 'txtMautDE_BenutzerNr - ' - Me.txtMautDE_BenutzerNr._DateTimeOnly = False - Me.txtMautDE_BenutzerNr._numbersOnly = True - Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" - Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True - Me.txtMautDE_BenutzerNr._Prozent = False - Me.txtMautDE_BenutzerNr._ShortDateNew = False - Me.txtMautDE_BenutzerNr._ShortDateOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False - Me.txtMautDE_BenutzerNr._value = "" - Me.txtMautDE_BenutzerNr._Waehrung = False - Me.txtMautDE_BenutzerNr._WaehrungZeichen = True - Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) - Me.txtMautDE_BenutzerNr.MaxLineLength = -1 - Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" - Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing - Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" - Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) - Me.txtMautDE_BenutzerNr.TabIndex = 18 - ' - 'txtMautDE_FlottenPIN - ' - Me.txtMautDE_FlottenPIN._DateTimeOnly = False - Me.txtMautDE_FlottenPIN._numbersOnly = True - Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" - Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True - Me.txtMautDE_FlottenPIN._Prozent = False - Me.txtMautDE_FlottenPIN._ShortDateNew = False - Me.txtMautDE_FlottenPIN._ShortDateOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False - Me.txtMautDE_FlottenPIN._value = "" - Me.txtMautDE_FlottenPIN._Waehrung = False - Me.txtMautDE_FlottenPIN._WaehrungZeichen = True - Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) - Me.txtMautDE_FlottenPIN.MaxLineLength = -1 - Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" - Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" - Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDE_FlottenPIN.TabIndex = 14 - ' - 'txtMautDEMasterPIN - ' - Me.txtMautDEMasterPIN._DateTimeOnly = False - Me.txtMautDEMasterPIN._numbersOnly = True - Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" - Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True - Me.txtMautDEMasterPIN._Prozent = False - Me.txtMautDEMasterPIN._ShortDateNew = False - Me.txtMautDEMasterPIN._ShortDateOnly = False - Me.txtMautDEMasterPIN._TimeOnly = False - Me.txtMautDEMasterPIN._TimeOnly_Seconds = False - Me.txtMautDEMasterPIN._value = "" - Me.txtMautDEMasterPIN._Waehrung = False - Me.txtMautDEMasterPIN._WaehrungZeichen = True - Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) - Me.txtMautDEMasterPIN.MaxLineLength = -1 - Me.txtMautDEMasterPIN.MaxLines_Warning = "" - Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" - Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDEMasterPIN.TabIndex = 16 - ' - 'scanUebernahmebestätigungen - ' - Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" - Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False - Me.scanUebernahmebestätigungen._TYPE = "PDF" - Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White - Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) - Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) - Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" - Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) - Me.scanUebernahmebestätigungen.TabIndex = 5 - ' - 'scanHKA - ' - Me.scanHKA._ARCHIV = True - Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHKA._DATENSERVER_ORDNER = "MDM" - Me.scanHKA._DATENSERVER_UOrdner1 = Nothing - Me.scanHKA._DATENSERVER_UOrdner2 = Nothing - Me.scanHKA._DATENSERVER_UOrdner3 = Nothing - Me.scanHKA._MULTI_FILES = True - Me.scanHKA._TEXT_PDF = "Handelskammerauszug" - Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHKA.BackColor = System.Drawing.Color.White - Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHKA.Location = New System.Drawing.Point(17, 163) - Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHKA.Name = "scanHKA" - Me.scanHKA.Size = New System.Drawing.Size(168, 24) - Me.scanHKA.TabIndex = 4 - ' - 'scanSonstiges - ' - Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" - Me.scanSonstiges._DATENSERVER_UOrdner1 = "" - Me.scanSonstiges._DATENSERVER_UOrdner2 = "" - Me.scanSonstiges._DATENSERVER_UOrdner3 = "" - Me.scanSonstiges._OPEN_ORIGINAL = False - Me.scanSonstiges._TYPE = "PDF" - Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSonstiges.BackColor = System.Drawing.Color.White - Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) - Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) - Me.scanSonstiges.Name = "scanSonstiges" - Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) - Me.scanSonstiges.TabIndex = 1 - ' - 'scanEULizenz - ' - Me.scanEULizenz._ARCHIV = True - Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" - Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing - Me.scanEULizenz._MULTI_FILES = True - Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" - Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanEULizenz.BackColor = System.Drawing.Color.White - Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default - Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) - Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanEULizenz.Name = "scanEULizenz" - Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) - Me.scanEULizenz.TabIndex = 0 - ' - 'scanHRA - ' - Me.scanHRA._ARCHIV = True - Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHRA._DATENSERVER_ORDNER = "MDM" - Me.scanHRA._DATENSERVER_UOrdner1 = Nothing - Me.scanHRA._DATENSERVER_UOrdner2 = Nothing - Me.scanHRA._DATENSERVER_UOrdner3 = Nothing - Me.scanHRA._MULTI_FILES = True - Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" - Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHRA.BackColor = System.Drawing.Color.White - Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHRA.Location = New System.Drawing.Point(17, 133) - Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHRA.Name = "scanHRA" - Me.scanHRA.Size = New System.Drawing.Size(168, 24) - Me.scanHRA.TabIndex = 0 - ' - 'scanPersonalAusweisGF - ' - Me.scanPersonalAusweisGF._ARCHIV = True - Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing - Me.scanPersonalAusweisGF._MULTI_FILES = True - Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" - Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White - Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default - Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) - Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" - Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) - Me.scanPersonalAusweisGF.TabIndex = 0 - ' - 'scanBankGarantie - ' - Me.scanBankGarantie._ARCHIV = True - Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" - Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing - Me.scanBankGarantie._MULTI_FILES = True - Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" - Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanBankGarantie.BackColor = System.Drawing.Color.White - Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default - Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) - Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanBankGarantie.Name = "scanBankGarantie" - Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) - Me.scanBankGarantie.TabIndex = 0 - ' - 'scanVertragVeragKd - ' - Me.scanVertragVeragKd._ARCHIV = True - Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" - Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing - Me.scanVertragVeragKd._MULTI_FILES = True - Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" - Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White - Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default - Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) - Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanVertragVeragKd.Name = "scanVertragVeragKd" - Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) - Me.scanVertragVeragKd.TabIndex = 0 - ' 'KdSearchBox1 ' Me.KdSearchBox1._AlleFirmenCLUSTER = False @@ -2007,6 +1983,30 @@ Partial Class frmKundenblatt Me.KdSearchBox1.TIMER_SEARCH = True Me.KdSearchBox1.usrcntl = Nothing ' + 'tbiLeistungen + ' + Me.tbiLeistungen.Name = "tbiLeistungen" + Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) + Me.tbiLeistungen.Text = "Leistungen" + ' + 'tbiKartenverwaltung + ' + Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" + Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) + Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + ' + 'tbiLKW + ' + Me.tbiLKW.Name = "tbiLKW" + Me.tbiLKW.Size = New System.Drawing.Size(186, 22) + Me.tbiLKW.Text = "LKWs" + ' + 'tbiVERAGCard + ' + Me.tbiVERAGCard.Name = "tbiVERAGCard" + Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) + Me.tbiVERAGCard.Text = "VERAG Card" + ' 'UsrcntlKundeBearbeitenFull1 ' Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White @@ -2014,7 +2014,7 @@ Partial Class frmKundenblatt Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1617, 670) + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1617, 704) Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 ' 'usrcntlKarten @@ -2024,7 +2024,7 @@ Partial Class frmKundenblatt Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(1603, 638) + Me.usrcntlKarten.Size = New System.Drawing.Size(1603, 672) Me.usrcntlKarten.TabIndex = 0 ' 'UsrCntlLKW1 @@ -2037,7 +2037,7 @@ Partial Class frmKundenblatt Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 638) + Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 672) Me.UsrCntlLKW1.TabIndex = 0 ' 'UsrCntlOfferte1 @@ -2047,7 +2047,7 @@ Partial Class frmKundenblatt Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1623, 676) + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1623, 710) Me.UsrCntlOfferte1.TabIndex = 0 ' 'frmKundenblatt @@ -2056,7 +2056,7 @@ Partial Class frmKundenblatt Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1180, 834) + Me.ClientSize = New System.Drawing.Size(1180, 868) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 0f99ccb4..a1cc06f6 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -7,7 +7,8 @@ Public Class frmMDMDatenverarbetiung Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - + ' Dim ProduktCode_NOT_IN = "SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 " + Dim ProduktCode_NOT_IN = "'9020'" Private Sub frmPloseDatenverarbetiung_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.Top = 0 Me.Height = My.Computer.Screen.WorkingArea.Height @@ -76,6 +77,8 @@ Public Class frmMDMDatenverarbetiung End Select End Sub + + Sub genSummenbericht_PLOSE() Dim displayFilter = False Dim sqlstr As String = "" @@ -92,7 +95,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " AND plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' " sqlstr &= " AND plose_Fakturiert =0 " - sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) " + sqlstr &= " AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & ") " sqlstr &= " group by plose_ProduktCode" sqlstr &= " order by plose_ProduktCode" @@ -181,7 +184,7 @@ Public Class frmMDMDatenverarbetiung WHERE 1 = 1 And plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' AND plose_Fakturiert=0 - AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) + AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & ") group by plose_POLSEKundennummer,plose_ProduktCode order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL") .LOAD() @@ -287,7 +290,7 @@ Public Class frmMDMDatenverarbetiung Function genRGAtt_PLOSE() As Boolean - Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") + Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") 'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ") If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then MsgBox("Keine Daten!") @@ -360,7 +363,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung " sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr and plp_LeistungsNr is not null " sqlstr &= " WHERE 1=1 " - sqlstr &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plp_Land NOT IN ('AT','DE') " + sqlstr &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plp_Land NOT IN ('AT','DE') " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " sqlstr &= " order by plp_Land, plose_DatumTransaktion" @@ -373,7 +376,7 @@ Public Class frmMDMDatenverarbetiung sqlstrAT &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,'' as plose_Produktbeschreibung ,plose_NummerKarteGeraet as plose_NummerKarteGeraet ,'' as plose_BeschreibungEinfahrt,'' as plose_BeschreibungAusfahrt,sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung,sum(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,sum(plose_BruttobetragWaehrungAbbuchung ) as plose_BruttobetragWaehrungAbbuchung " sqlstrAT &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr and plp_LeistungsNr is not null " sqlstrAT &= " WHERE 1=1 " - sqlstrAT &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plp_Land IN ('AT','DE') " + sqlstrAT &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plp_Land IN ('AT','DE') " sqlstrAT &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " sqlstrAT &= " group by plp_Land, AdressenNr, plose_Kennzeichen,plose_DatumTransaktion,plose_NummerKarteGeraet" sqlstrAT &= " order by plp_Land" @@ -548,7 +551,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr " sqlstr &= " WHERE 1=1 " sqlstr &= " AND plose_Fakturiert=0 " - sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) " + sqlstr &= " AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) " sqlstr &= " AND AdressenNr = '" & KdNr & "' " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " @@ -829,7 +832,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " sqlstr &= " WHERE 1=1 " sqlstr &= " AND plose_Fakturiert=0 " - sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) " + sqlstr &= " AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) " sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' " sqlstr &= " AND plp_LeistungsNr is not null " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb index 466a68e2..3dedb15c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb @@ -337,7 +337,7 @@ Public Class cSpeditionsbuch Me.KdAuftragsNrAvisierer = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrAvisierer"), Nothing) Me.KdAuftragsNrEmpfaenger = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrEmpfaenger"), Nothing) Me.KdAuftragsNrFrachtfuehrer = SQL.checkNullReturnValue(dr.Item("KdAuftragsNrFrachtfuehrer"), Nothing) - + Me.NCTS_Verzollungsadresse = SQL.checkNullReturnValue(dr.Item("NCTS_Verzollungsadresse"), "") Me.NCTS_VerzollungsadresseKdNr = SQL.checkNullReturnValue(dr.Item("NCTS_VerzollungsadresseKdNr"), Nothing) Me.Grenzstelle = SQL.checkNullReturnValue(dr.Item("Grenzstelle"), Nothing)