From 895f0019d36053521a8e82bc952588f18ac4accf Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Sat, 21 Jan 2023 10:36:19 +0100 Subject: [PATCH] Rechnungsnummern LTD Jahreswechsel --- SDL/frmMain.Designer.vb | 16 ++++++++-------- .../Classes/cRechnungsnummern.vb | 5 ++--- .../Messenger/frmMessenger.Designer.vb | 13 ++++++------- 3 files changed, 16 insertions(+), 18 deletions(-) diff --git a/SDL/frmMain.Designer.vb b/SDL/frmMain.Designer.vb index 2a19a79c..e6451241 100644 --- a/SDL/frmMain.Designer.vb +++ b/SDL/frmMain.Designer.vb @@ -128,7 +128,7 @@ Partial Class frmMain Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLeft.Location = New System.Drawing.Point(0, 73) Me.pnlLeft.Name = "pnlLeft" - Me.pnlLeft.Size = New System.Drawing.Size(100, 840) + Me.pnlLeft.Size = New System.Drawing.Size(100, 831) Me.pnlLeft.TabIndex = 27 ' 'MenuStripSDL @@ -179,19 +179,19 @@ Partial Class frmMain 'ArtikelTarifierenToolStripMenuItem ' Me.ArtikelTarifierenToolStripMenuItem.Name = "ArtikelTarifierenToolStripMenuItem" - Me.ArtikelTarifierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.ArtikelTarifierenToolStripMenuItem.Size = New System.Drawing.Size(158, 22) Me.ArtikelTarifierenToolStripMenuItem.Text = "Artikel tarifieren" ' 'SpeditionsbuchToolStripMenuItem ' Me.SpeditionsbuchToolStripMenuItem.Name = "SpeditionsbuchToolStripMenuItem" - Me.SpeditionsbuchToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.SpeditionsbuchToolStripMenuItem.Size = New System.Drawing.Size(158, 22) Me.SpeditionsbuchToolStripMenuItem.Text = "Speditionsbuch" ' 'AuswertungToolStripMenuItem ' Me.AuswertungToolStripMenuItem.Name = "AuswertungToolStripMenuItem" - Me.AuswertungToolStripMenuItem.Size = New System.Drawing.Size(180, 22) + Me.AuswertungToolStripMenuItem.Size = New System.Drawing.Size(158, 22) Me.AuswertungToolStripMenuItem.Text = "Auswertung" ' 'mnueMDM @@ -360,7 +360,7 @@ Partial Class frmMain Me.Panel1.Controls.Add(Me.btnExit) Me.Panel1.Controls.Add(Me.Button1) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel1.Location = New System.Drawing.Point(0, 612) + Me.Panel1.Location = New System.Drawing.Point(0, 603) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(100, 228) Me.Panel1.TabIndex = 30 @@ -713,7 +713,7 @@ Partial Class frmMain 'ToolStripSeparator3 ' Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6) + Me.ToolStripSeparator3.Size = New System.Drawing.Size(57, 6) ' 'StatistikToolStripMenuItem ' @@ -918,7 +918,7 @@ Partial Class frmMain Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlMain.Location = New System.Drawing.Point(100, 73) Me.pnlMain.Name = "pnlMain" - Me.pnlMain.Size = New System.Drawing.Size(1184, 840) + Me.pnlMain.Size = New System.Drawing.Size(1184, 831) Me.pnlMain.TabIndex = 29 ' 'cntxtZOLL @@ -955,7 +955,7 @@ Partial Class frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi - Me.ClientSize = New System.Drawing.Size(1284, 913) + Me.ClientSize = New System.Drawing.Size(1284, 904) Me.Controls.Add(Me.pnlMain) Me.Controls.Add(Me.pnlLeft) Me.Controls.Add(Me.pnlHeader) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb index c0b1641c..e833d7e1 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb @@ -51,8 +51,8 @@ Public Class cRechnungsnummern VonRechnungsNr = "5000000" BisRechnungsNr = "5999999" Case 26 ' VERAG-UNISPED - VonRechnungsNr = "0000001" - BisRechnungsNr = "9999999" + VonRechnungsNr = Now.ToString("yy") & "0000001" + BisRechnungsNr = Now.ToString("yy") & "9999999" End Select LfdRechnungsNr = VonRechnungsNr '------------------------------------- @@ -179,5 +179,4 @@ Public Class cRechnungsnummern End Function - End Class diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index 05c762d6..174ed116 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -24,7 +24,6 @@ Partial Class frmMessenger 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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() @@ -39,11 +38,11 @@ Partial Class frmMessenger Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() - Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.Panel6 = New System.Windows.Forms.Panel() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() - Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.Panel5 = New System.Windows.Forms.Panel() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox() @@ -64,7 +63,7 @@ Partial Class frmMessenger Me.btnNeu = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() - Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel() Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnTeilnehmer = New System.Windows.Forms.Button() @@ -91,9 +90,9 @@ Partial Class frmMessenger Me.btnSendAtt = New System.Windows.Forms.Button() Me.btnSenden = New System.Windows.Forms.Button() Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() - Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components) - Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components) - Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer() + Me.Timer_REFRESH = New System.Windows.Forms.Timer() + Me.cntxt = New System.Windows.Forms.ContextMenuStrip() Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()