From 95d98b987e36442d2005d84992136c34a3106a2d Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 11 Oct 2022 22:17:22 +0200 Subject: [PATCH] USTV Anpassungen, Fatkurierung-Fix: doppelte RgNr Vergabe --- SDL/Fakturierung/cFakturierung.vb | 6 +- .../usrCntlFaktAbrechnung.Designer.vb | 1103 ++++++++--------- SDL/SDL.vbproj | 10 + SDL/USTV/cUSTVStatus.vb | 12 + SDL/USTV/frmMDM_USTVAntrag.Designer.vb | 596 +++++++-- SDL/USTV/frmMDM_USTVAntrag.vb | 216 +++- .../ustCntlUSTV_AntragPosition.Designer.vb | 590 +++++++++ SDL/USTV/ustCntlUSTV_AntragPosition.resx | 120 ++ SDL/USTV/ustCntlUSTV_AntragPosition.vb | 88 ++ .../Classes/USTV/cUSTVAntrag.vb | 74 +- .../Classes/cRechnungsnummern.vb | 8 + 11 files changed, 2097 insertions(+), 726 deletions(-) create mode 100644 SDL/USTV/cUSTVStatus.vb create mode 100644 SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb create mode 100644 SDL/USTV/ustCntlUSTV_AntragPosition.resx create mode 100644 SDL/USTV/ustCntlUSTV_AntragPosition.vb diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 33a831c9..ce57e740 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1635,12 +1635,14 @@ Public Class cFakturierung Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) RG_NR.CHECK_RGNR() - ' Nächste Rechnungsnummer speichern. RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr + ' Nächste Rechnungsnummer speichern. + RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! + 'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr If RECHNUNG.SAVE Then - RG_NR.INCREASE_RGNR() Else + RG_NR.DECREASE_RGNR() ' Bei Fehler --> LfdRgNr um eins mindern. Return False End If diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb index 3dd30e31..2b0cc524 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.Designer.vb @@ -300,10 +300,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label9.AutoSize = True Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label9.Location = New System.Drawing.Point(9, 29) - Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label9.Location = New System.Drawing.Point(6, 19) Me.Label9.Name = "Label9" - Me.Label9.Size = New System.Drawing.Size(134, 22) + Me.Label9.Size = New System.Drawing.Size(96, 15) Me.Label9.TabIndex = 0 Me.Label9.Text = "Rechnung an:" ' @@ -311,10 +310,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label4.AutoSize = True Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.Label4.Location = New System.Drawing.Point(4, 9) - Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label4.Location = New System.Drawing.Point(3, 6) Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(111, 20) + Me.Label4.Size = New System.Drawing.Size(79, 13) Me.Label4.TabIndex = 0 Me.Label4.Text = "1. Absender:" ' @@ -355,9 +353,8 @@ Partial Class usrCntlFaktAbrechnung Me.pnlTop.Controls.Add(Me.lblRechnungsNummer) Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top Me.pnlTop.Location = New System.Drawing.Point(0, 0) - Me.pnlTop.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.pnlTop.Name = "pnlTop" - Me.pnlTop.Size = New System.Drawing.Size(1245, 128) + Me.pnlTop.Size = New System.Drawing.Size(830, 84) Me.pnlTop.TabIndex = 0 ' 'Label53 @@ -366,10 +363,9 @@ Partial Class usrCntlFaktAbrechnung Me.Label53.BackColor = System.Drawing.Color.Red Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label53.ForeColor = System.Drawing.Color.White - Me.Label53.Location = New System.Drawing.Point(727, 3) - Me.Label53.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label53.Location = New System.Drawing.Point(484, 2) Me.Label53.Name = "Label53" - Me.Label53.Size = New System.Drawing.Size(336, 75) + Me.Label53.Size = New System.Drawing.Size(224, 49) Me.Label53.TabIndex = 45 Me.Label53.Text = "ACHTUNG:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Es wurde bereits eine Rechnung zu dieser Pos-Nr. erstellt!" Me.Label53.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -379,10 +375,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button13.ForeColor = System.Drawing.Color.White - Me.Button13.Location = New System.Drawing.Point(681, 9) - Me.Button13.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button13.Location = New System.Drawing.Point(454, 6) Me.Button13.Name = "Button13" - Me.Button13.Size = New System.Drawing.Size(48, 37) + Me.Button13.Size = New System.Drawing.Size(32, 24) Me.Button13.TabIndex = 28 Me.Button13.Tag = "+ SpedBuch" Me.Button13.Text = "+" @@ -392,10 +387,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button10.ForeColor = System.Drawing.Color.White - Me.Button10.Location = New System.Drawing.Point(496, 9) - Me.Button10.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button10.Location = New System.Drawing.Point(331, 6) Me.Button10.Name = "Button10" - Me.Button10.Size = New System.Drawing.Size(186, 37) + Me.Button10.Size = New System.Drawing.Size(124, 24) Me.Button10.TabIndex = 15 Me.Button10.Text = "SpedBuch anzeigen" Me.Button10.UseVisualStyleBackColor = True @@ -406,10 +400,9 @@ Partial Class usrCntlFaktAbrechnung Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button11.ForeColor = System.Drawing.Color.White Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button11.Location = New System.Drawing.Point(328, 9) - Me.Button11.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button11.Location = New System.Drawing.Point(219, 6) Me.Button11.Name = "Button11" - Me.Button11.Size = New System.Drawing.Size(160, 37) + Me.Button11.Size = New System.Drawing.Size(107, 24) Me.Button11.TabIndex = 20 Me.Button11.Text = "Gutschrift aus RG" Me.Button11.UseVisualStyleBackColor = True @@ -419,10 +412,9 @@ Partial Class usrCntlFaktAbrechnung Me.lblDruckaufheben.AutoSize = True Me.lblDruckaufheben.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDruckaufheben.LinkColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.lblDruckaufheben.Location = New System.Drawing.Point(744, 74) - Me.lblDruckaufheben.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblDruckaufheben.Location = New System.Drawing.Point(496, 48) Me.lblDruckaufheben.Name = "lblDruckaufheben" - Me.lblDruckaufheben.Size = New System.Drawing.Size(127, 20) + Me.lblDruckaufheben.Size = New System.Drawing.Size(84, 13) Me.lblDruckaufheben.TabIndex = 27 Me.lblDruckaufheben.TabStop = True Me.lblDruckaufheben.Text = "Druck aufheben" @@ -439,10 +431,9 @@ Partial Class usrCntlFaktAbrechnung Me.cboRgGS.ForeColor = System.Drawing.Color.White Me.cboRgGS.FormattingEnabled = True Me.cboRgGS.Items.AddRange(New Object() {"Rechnung", "Gutschrift"}) - Me.cboRgGS.Location = New System.Drawing.Point(4, -2) - Me.cboRgGS.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboRgGS.Location = New System.Drawing.Point(3, -1) Me.cboRgGS.Name = "cboRgGS" - Me.cboRgGS.Size = New System.Drawing.Size(314, 45) + Me.cboRgGS.Size = New System.Drawing.Size(211, 33) Me.cboRgGS.TabIndex = 26 Me.cboRgGS.Text = "Rechnung" ' @@ -452,10 +443,9 @@ Partial Class usrCntlFaktAbrechnung Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) Me.Panel3.Controls.Add(Me.lblSendungen) Me.Panel3.Controls.Add(Me.Label44) - Me.Panel3.Location = New System.Drawing.Point(1069, -3) - Me.Panel3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Panel3.Location = New System.Drawing.Point(712, -2) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(176, 85) + Me.Panel3.Size = New System.Drawing.Size(117, 55) Me.Panel3.TabIndex = 22 Me.Panel3.TabStop = True ' @@ -465,10 +455,9 @@ Partial Class usrCntlFaktAbrechnung Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblSendungen.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblSendungen.Location = New System.Drawing.Point(0, 6) - Me.lblSendungen.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblSendungen.Location = New System.Drawing.Point(0, 4) Me.lblSendungen.Name = "lblSendungen" - Me.lblSendungen.Size = New System.Drawing.Size(176, 48) + Me.lblSendungen.Size = New System.Drawing.Size(117, 31) Me.lblSendungen.TabIndex = 0 Me.lblSendungen.Text = "-" Me.lblSendungen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter @@ -478,10 +467,9 @@ Partial Class usrCntlFaktAbrechnung Me.Label44.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label44.Location = New System.Drawing.Point(0, 60) - Me.Label44.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label44.Location = New System.Drawing.Point(0, 39) Me.Label44.Name = "Label44" - Me.Label44.Size = New System.Drawing.Size(176, 20) + Me.Label44.Size = New System.Drawing.Size(117, 13) Me.Label44.TabIndex = 1 Me.Label44.Text = "Rechnung Pos." Me.Label44.TextAlign = System.Drawing.ContentAlignment.TopCenter @@ -493,10 +481,10 @@ Partial Class usrCntlFaktAbrechnung Me.btnNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.btnNext.ForeColor = System.Drawing.Color.White Me.btnNext.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnNext.Location = New System.Drawing.Point(1132, 83) - Me.btnNext.Margin = New System.Windows.Forms.Padding(15, 5, 4, 5) + Me.btnNext.Location = New System.Drawing.Point(754, 54) + Me.btnNext.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.btnNext.Name = "btnNext" - Me.btnNext.Size = New System.Drawing.Size(62, 42) + Me.btnNext.Size = New System.Drawing.Size(41, 27) Me.btnNext.TabIndex = 24 Me.btnNext.Text = ">>" Me.btnNext.UseVisualStyleBackColor = True @@ -508,10 +496,10 @@ Partial Class usrCntlFaktAbrechnung Me.btnPrev.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.btnPrev.ForeColor = System.Drawing.Color.White Me.btnPrev.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnPrev.Location = New System.Drawing.Point(1067, 83) - Me.btnPrev.Margin = New System.Windows.Forms.Padding(15, 5, 4, 5) + Me.btnPrev.Location = New System.Drawing.Point(710, 54) + Me.btnPrev.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.btnPrev.Name = "btnPrev" - Me.btnPrev.Size = New System.Drawing.Size(62, 42) + Me.btnPrev.Size = New System.Drawing.Size(41, 27) Me.btnPrev.TabIndex = 23 Me.btnPrev.Text = "<<" Me.btnPrev.UseVisualStyleBackColor = True @@ -523,10 +511,10 @@ Partial Class usrCntlFaktAbrechnung Me.btnNeueUnterNR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) Me.btnNeueUnterNR.ForeColor = System.Drawing.Color.White Me.btnNeueUnterNR.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnNeueUnterNR.Location = New System.Drawing.Point(1197, 83) - Me.btnNeueUnterNR.Margin = New System.Windows.Forms.Padding(15, 5, 4, 5) + Me.btnNeueUnterNR.Location = New System.Drawing.Point(797, 54) + Me.btnNeueUnterNR.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.btnNeueUnterNR.Name = "btnNeueUnterNR" - Me.btnNeueUnterNR.Size = New System.Drawing.Size(45, 42) + Me.btnNeueUnterNR.Size = New System.Drawing.Size(30, 27) Me.btnNeueUnterNR.TabIndex = 25 Me.btnNeueUnterNR.Text = "+" Me.btnNeueUnterNR.UseVisualStyleBackColor = True @@ -534,10 +522,9 @@ Partial Class usrCntlFaktAbrechnung 'Label45 ' Me.Label45.ForeColor = System.Drawing.Color.White - Me.Label45.Location = New System.Drawing.Point(712, 94) - Me.Label45.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label45.Location = New System.Drawing.Point(475, 61) Me.Label45.Name = "Label45" - Me.Label45.Size = New System.Drawing.Size(158, 20) + Me.Label45.Size = New System.Drawing.Size(105, 13) Me.Label45.TabIndex = 20 Me.Label45.Text = "Sachbearbeiter:" Me.Label45.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -547,10 +534,9 @@ Partial Class usrCntlFaktAbrechnung Me.Label42.AutoSize = True Me.Label42.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Label42.ForeColor = System.Drawing.Color.White - Me.Label42.Location = New System.Drawing.Point(621, 49) - Me.Label42.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label42.Location = New System.Drawing.Point(414, 32) Me.Label42.Name = "Label42" - Me.Label42.Size = New System.Drawing.Size(94, 20) + Me.Label42.Size = New System.Drawing.Size(64, 13) Me.Label42.TabIndex = 19 Me.Label42.Text = "UnterNr Rg." ' @@ -559,10 +545,9 @@ Partial Class usrCntlFaktAbrechnung Me.btnDatenLaden.BackColor = System.Drawing.Color.Transparent Me.btnDatenLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDatenLaden.ForeColor = System.Drawing.Color.White - Me.btnDatenLaden.Location = New System.Drawing.Point(496, 55) - Me.btnDatenLaden.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btnDatenLaden.Location = New System.Drawing.Point(331, 36) Me.btnDatenLaden.Name = "btnDatenLaden" - Me.btnDatenLaden.Size = New System.Drawing.Size(124, 52) + Me.btnDatenLaden.Size = New System.Drawing.Size(83, 34) Me.btnDatenLaden.TabIndex = 6 Me.btnDatenLaden.Text = "Daten laden" Me.btnDatenLaden.UseVisualStyleBackColor = False @@ -574,9 +559,10 @@ Partial Class usrCntlFaktAbrechnung Me.cboSpedBuchUnterNr._value = "" Me.cboSpedBuchUnterNr.DropDownWidth = 350 Me.cboSpedBuchUnterNr.FormattingEnabled = True - Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(382, 74) + Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(255, 48) + Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2) Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr" - Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(104, 28) + Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21) Me.cboSpedBuchUnterNr.TabIndex = 5 ' 'lblErrFiliale @@ -584,10 +570,9 @@ Partial Class usrCntlFaktAbrechnung Me.lblErrFiliale.AutoSize = True Me.lblErrFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) Me.lblErrFiliale.ForeColor = System.Drawing.Color.Red - Me.lblErrFiliale.Location = New System.Drawing.Point(10, 106) - Me.lblErrFiliale.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblErrFiliale.Location = New System.Drawing.Point(7, 69) Me.lblErrFiliale.Name = "lblErrFiliale" - Me.lblErrFiliale.Size = New System.Drawing.Size(136, 20) + Me.lblErrFiliale.Size = New System.Drawing.Size(97, 13) Me.lblErrFiliale.TabIndex = 12 Me.lblErrFiliale.Text = "Filiale angeben!" Me.lblErrFiliale.Visible = False @@ -597,10 +582,9 @@ Partial Class usrCntlFaktAbrechnung Me.lblErrUnterNr.AutoSize = True Me.lblErrUnterNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) Me.lblErrUnterNr.ForeColor = System.Drawing.Color.Red - Me.lblErrUnterNr.Location = New System.Drawing.Point(240, 106) - Me.lblErrUnterNr.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblErrUnterNr.Location = New System.Drawing.Point(160, 69) Me.lblErrUnterNr.Name = "lblErrUnterNr" - Me.lblErrUnterNr.Size = New System.Drawing.Size(235, 20) + Me.lblErrUnterNr.Size = New System.Drawing.Size(165, 13) Me.lblErrUnterNr.TabIndex = 16 Me.lblErrUnterNr.Text = "UnterNr im falschen Format!" Me.lblErrUnterNr.Visible = False @@ -610,10 +594,9 @@ Partial Class usrCntlFaktAbrechnung Me.lblAbfNrExists.AutoSize = True Me.lblAbfNrExists.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) Me.lblAbfNrExists.ForeColor = System.Drawing.Color.Red - Me.lblAbfNrExists.Location = New System.Drawing.Point(124, 106) - Me.lblAbfNrExists.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblAbfNrExists.Location = New System.Drawing.Point(83, 69) Me.lblAbfNrExists.Name = "lblAbfNrExists" - Me.lblAbfNrExists.Size = New System.Drawing.Size(306, 20) + Me.lblAbfNrExists.Size = New System.Drawing.Size(217, 13) Me.lblAbfNrExists.TabIndex = 18 Me.lblAbfNrExists.Text = "Speditionsbucheintrag existiert nicht!" Me.lblAbfNrExists.Visible = False @@ -623,10 +606,9 @@ Partial Class usrCntlFaktAbrechnung Me.lblAbfNr_Err.AutoSize = True Me.lblAbfNr_Err.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) Me.lblAbfNr_Err.ForeColor = System.Drawing.Color.Red - Me.lblAbfNr_Err.Location = New System.Drawing.Point(128, 106) - Me.lblAbfNr_Err.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblAbfNr_Err.Location = New System.Drawing.Point(85, 69) Me.lblAbfNr_Err.Name = "lblAbfNr_Err" - Me.lblAbfNr_Err.Size = New System.Drawing.Size(339, 20) + Me.lblAbfNr_Err.Size = New System.Drawing.Size(235, 13) Me.lblAbfNr_Err.TabIndex = 13 Me.lblAbfNr_Err.Text = "Abfertigungsnummer im falschen Format!" Me.lblAbfNr_Err.Visible = False @@ -636,20 +618,18 @@ Partial Class usrCntlFaktAbrechnung Me.Label8.AutoSize = True Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Label8.ForeColor = System.Drawing.Color.White - Me.Label8.Location = New System.Drawing.Point(8, 51) - Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label8.Location = New System.Drawing.Point(5, 33) Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(98, 20) + Me.Label8.Size = New System.Drawing.Size(69, 13) Me.Label8.TabIndex = 1 Me.Label8.Text = "Filiale / Scan" ' 'Label41 ' Me.Label41.ForeColor = System.Drawing.Color.White - Me.Label41.Location = New System.Drawing.Point(712, 54) - Me.Label41.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label41.Location = New System.Drawing.Point(475, 35) Me.Label41.Name = "Label41" - Me.Label41.Size = New System.Drawing.Size(158, 20) + Me.Label41.Size = New System.Drawing.Size(105, 13) Me.Label41.TabIndex = 14 Me.Label41.Text = "Druck-Datum:" Me.Label41.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -659,6 +639,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtUnterNr._DateTimeOnly = False Me.txtUnterNr._numbersOnly = False Me.txtUnterNr._numbersOnlyKommastellen = "" + Me.txtUnterNr._numbersOnlyTrennzeichen = True Me.txtUnterNr._Prozent = False Me.txtUnterNr._ShortDateNew = False Me.txtUnterNr._ShortDateOnly = False @@ -668,14 +649,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtUnterNr._Waehrung = False Me.txtUnterNr._WaehrungZeichen = True Me.txtUnterNr.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNr.Location = New System.Drawing.Point(626, 74) - Me.txtUnterNr.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtUnterNr.Location = New System.Drawing.Point(417, 48) Me.txtUnterNr.MaxLineLength = -1 Me.txtUnterNr.MaxLines_Warning = "" Me.txtUnterNr.MaxLines_Warning_Label = Nothing Me.txtUnterNr.Name = "txtUnterNr" Me.txtUnterNr.ReadOnly = True - Me.txtUnterNr.Size = New System.Drawing.Size(80, 28) + Me.txtUnterNr.Size = New System.Drawing.Size(55, 21) Me.txtUnterNr.TabIndex = 7 ' 'Label11 @@ -683,10 +663,9 @@ Partial Class usrCntlFaktAbrechnung Me.Label11.AutoSize = True Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Label11.ForeColor = System.Drawing.Color.White - Me.Label11.Location = New System.Drawing.Point(124, 49) - Me.Label11.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label11.Location = New System.Drawing.Point(83, 32) Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(158, 20) + Me.Label11.Size = New System.Drawing.Size(103, 13) Me.Label11.TabIndex = 0 Me.Label11.Text = "Abfertigungsnummer" ' @@ -695,10 +674,9 @@ Partial Class usrCntlFaktAbrechnung Me.Label12.AutoSize = True Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Label12.ForeColor = System.Drawing.Color.White - Me.Label12.Location = New System.Drawing.Point(378, 51) - Me.Label12.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label12.Location = New System.Drawing.Point(252, 33) Me.Label12.Name = "Label12" - Me.Label12.Size = New System.Drawing.Size(65, 20) + Me.Label12.Size = New System.Drawing.Size(44, 13) Me.Label12.TabIndex = 2 Me.Label12.Text = "UnterNr" ' @@ -710,10 +688,9 @@ Partial Class usrCntlFaktAbrechnung Me.cboFiliale.DropDownWidth = 280 Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.cboFiliale.FormattingEnabled = True - Me.cboFiliale.Location = New System.Drawing.Point(12, 74) - Me.cboFiliale.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboFiliale.Location = New System.Drawing.Point(8, 48) Me.cboFiliale.Name = "cboFiliale" - Me.cboFiliale.Size = New System.Drawing.Size(118, 28) + Me.cboFiliale.Size = New System.Drawing.Size(80, 21) Me.cboFiliale.TabIndex = 3 ' 'txtAbfertigungsnummer @@ -721,6 +698,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbfertigungsnummer._DateTimeOnly = False Me.txtAbfertigungsnummer._numbersOnly = True Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True Me.txtAbfertigungsnummer._Prozent = False Me.txtAbfertigungsnummer._ShortDateNew = False Me.txtAbfertigungsnummer._ShortDateOnly = False @@ -730,23 +708,21 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbfertigungsnummer._Waehrung = False Me.txtAbfertigungsnummer._WaehrungZeichen = True Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(130, 74) - Me.txtAbfertigungsnummer.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(87, 48) Me.txtAbfertigungsnummer.MaxLength = 8 Me.txtAbfertigungsnummer.MaxLineLength = -1 Me.txtAbfertigungsnummer.MaxLines_Warning = "" Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" - Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(252, 28) + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(169, 21) Me.txtAbfertigungsnummer.TabIndex = 4 ' 'Label39 ' Me.Label39.ForeColor = System.Drawing.Color.White - Me.Label39.Location = New System.Drawing.Point(712, 34) - Me.Label39.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label39.Location = New System.Drawing.Point(475, 22) Me.Label39.Name = "Label39" - Me.Label39.Size = New System.Drawing.Size(158, 20) + Me.Label39.Size = New System.Drawing.Size(105, 13) Me.Label39.TabIndex = 10 Me.Label39.Text = "Rechnungs-Datum:" Me.Label39.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -754,10 +730,9 @@ Partial Class usrCntlFaktAbrechnung 'Label38 ' Me.Label38.ForeColor = System.Drawing.Color.White - Me.Label38.Location = New System.Drawing.Point(712, 12) - Me.Label38.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label38.Location = New System.Drawing.Point(475, 8) Me.Label38.Name = "Label38" - Me.Label38.Size = New System.Drawing.Size(158, 20) + Me.Label38.Size = New System.Drawing.Size(105, 13) Me.Label38.TabIndex = 8 Me.Label38.Text = "Rechnungs-Nr.:" Me.Label38.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -766,10 +741,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.lblSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblSB.ForeColor = System.Drawing.Color.White - Me.lblSB.Location = New System.Drawing.Point(855, 94) - Me.lblSB.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblSB.Location = New System.Drawing.Point(570, 61) Me.lblSB.Name = "lblSB" - Me.lblSB.Size = New System.Drawing.Size(207, 20) + Me.lblSB.Size = New System.Drawing.Size(138, 13) Me.lblSB.TabIndex = 21 Me.lblSB.Text = "-" Me.lblSB.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -778,10 +752,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.lblDruckDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblDruckDatum.ForeColor = System.Drawing.Color.White - Me.lblDruckDatum.Location = New System.Drawing.Point(855, 54) - Me.lblDruckDatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblDruckDatum.Location = New System.Drawing.Point(570, 35) Me.lblDruckDatum.Name = "lblDruckDatum" - Me.lblDruckDatum.Size = New System.Drawing.Size(207, 20) + Me.lblDruckDatum.Size = New System.Drawing.Size(138, 13) Me.lblDruckDatum.TabIndex = 17 Me.lblDruckDatum.Text = "000" Me.lblDruckDatum.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -790,10 +763,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.lblRechnungsDatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblRechnungsDatum.ForeColor = System.Drawing.Color.White - Me.lblRechnungsDatum.Location = New System.Drawing.Point(855, 34) - Me.lblRechnungsDatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblRechnungsDatum.Location = New System.Drawing.Point(570, 22) Me.lblRechnungsDatum.Name = "lblRechnungsDatum" - Me.lblRechnungsDatum.Size = New System.Drawing.Size(207, 20) + Me.lblRechnungsDatum.Size = New System.Drawing.Size(138, 13) Me.lblRechnungsDatum.TabIndex = 11 Me.lblRechnungsDatum.Text = "000" Me.lblRechnungsDatum.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -802,10 +774,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.lblRechnungsNummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblRechnungsNummer.ForeColor = System.Drawing.Color.White - Me.lblRechnungsNummer.Location = New System.Drawing.Point(855, 12) - Me.lblRechnungsNummer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblRechnungsNummer.Location = New System.Drawing.Point(570, 8) Me.lblRechnungsNummer.Name = "lblRechnungsNummer" - Me.lblRechnungsNummer.Size = New System.Drawing.Size(207, 20) + Me.lblRechnungsNummer.Size = New System.Drawing.Size(138, 13) Me.lblRechnungsNummer.TabIndex = 9 Me.lblRechnungsNummer.Text = "000" Me.lblRechnungsNummer.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -862,22 +833,20 @@ Partial Class usrCntlFaktAbrechnung Me.Panel1.Controls.Add(Me.cboWaehrungUmrechnung) Me.Panel1.Controls.Add(Me.pnlEmpfaenger) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.Panel1.Location = New System.Drawing.Point(0, 128) - Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Panel1.Location = New System.Drawing.Point(0, 84) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(1245, 1765) + Me.Panel1.Size = New System.Drawing.Size(830, 1142) Me.Panel1.TabIndex = 1 ' 'txtTextZZ ' - Me.txtTextZZ.Location = New System.Drawing.Point(96, 1632) - Me.txtTextZZ.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtTextZZ.Location = New System.Drawing.Point(64, 1061) Me.txtTextZZ.MaxLineLength = -1 Me.txtTextZZ.MaxLines_Warning = "" Me.txtTextZZ.MaxLines_Warning_Label = Nothing Me.txtTextZZ.Name = "txtTextZZ" Me.txtTextZZ.ReadOnly = True - Me.txtTextZZ.Size = New System.Drawing.Size(632, 33) + Me.txtTextZZ.Size = New System.Drawing.Size(423, 23) Me.txtTextZZ.TabIndex = 91 Me.txtTextZZ.Text = "" ' @@ -907,8 +876,7 @@ Partial Class usrCntlFaktAbrechnung DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvAnhaenge.DefaultCellStyle = DataGridViewCellStyle4 - Me.dgvAnhaenge.Location = New System.Drawing.Point(740, 1402) - Me.dgvAnhaenge.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.dgvAnhaenge.Location = New System.Drawing.Point(493, 911) Me.dgvAnhaenge.MultiSelect = False Me.dgvAnhaenge.Name = "dgvAnhaenge" Me.dgvAnhaenge.ReadOnly = True @@ -923,7 +891,7 @@ Partial Class usrCntlFaktAbrechnung Me.dgvAnhaenge.RowHeadersVisible = False Me.dgvAnhaenge.RowHeadersWidth = 62 Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvAnhaenge.Size = New System.Drawing.Size(494, 337) + Me.dgvAnhaenge.Size = New System.Drawing.Size(329, 219) Me.dgvAnhaenge.TabIndex = 90 Me.dgvAnhaenge.TabStop = False ' @@ -985,10 +953,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label36.AutoSize = True Me.Label36.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label36.Location = New System.Drawing.Point(735, 1378) - Me.Label36.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label36.Location = New System.Drawing.Point(490, 896) Me.Label36.Name = "Label36" - Me.Label36.Size = New System.Drawing.Size(82, 20) + Me.Label36.Size = New System.Drawing.Size(57, 13) Me.Label36.TabIndex = 89 Me.Label36.Text = "Anlagen:" Me.Label36.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -996,10 +963,9 @@ Partial Class usrCntlFaktAbrechnung 'Label54 ' Me.Label54.AutoSize = True - Me.Label54.Location = New System.Drawing.Point(884, 183) - Me.Label54.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label54.Location = New System.Drawing.Point(589, 119) Me.Label54.Name = "Label54" - Me.Label54.Size = New System.Drawing.Size(151, 20) + Me.Label54.Size = New System.Drawing.Size(103, 13) Me.Label54.TabIndex = 88 Me.Label54.Text = "Sprache Rechnung:" Me.Label54.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1010,21 +976,21 @@ Partial Class usrCntlFaktAbrechnung Me.cboRechnungSprache._allowFreiText = False Me.cboRechnungSprache._value = "" Me.cboRechnungSprache.FormattingEnabled = True - Me.cboRechnungSprache.Location = New System.Drawing.Point(1046, 178) + Me.cboRechnungSprache.Location = New System.Drawing.Point(697, 116) + Me.cboRechnungSprache.Margin = New System.Windows.Forms.Padding(2) Me.cboRechnungSprache.Name = "cboRechnungSprache" - Me.cboRechnungSprache.Size = New System.Drawing.Size(182, 28) + Me.cboRechnungSprache.Size = New System.Drawing.Size(123, 21) Me.cboRechnungSprache.TabIndex = 45 Me.cboRechnungSprache.TabStop = False ' 'rtbHandling ' - Me.rtbHandling.Location = New System.Drawing.Point(420, 1402) - Me.rtbHandling.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.rtbHandling.Location = New System.Drawing.Point(280, 911) Me.rtbHandling.MaxLineLength = -1 Me.rtbHandling.MaxLines_Warning = "" Me.rtbHandling.MaxLines_Warning_Label = Nothing Me.rtbHandling.Name = "rtbHandling" - Me.rtbHandling.Size = New System.Drawing.Size(308, 184) + Me.rtbHandling.Size = New System.Drawing.Size(207, 121) Me.rtbHandling.TabIndex = 44 Me.rtbHandling.Text = "" ' @@ -1032,10 +998,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label52.AutoSize = True Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label52.Location = New System.Drawing.Point(416, 1377) - Me.Label52.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label52.Location = New System.Drawing.Point(277, 895) Me.Label52.Name = "Label52" - Me.Label52.Size = New System.Drawing.Size(82, 20) + Me.Label52.Size = New System.Drawing.Size(56, 13) Me.Label52.TabIndex = 43 Me.Label52.Text = "ATA-Nr.:" Me.Label52.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1050,10 +1015,9 @@ Partial Class usrCntlFaktAbrechnung Me.Panel2.Controls.Add(Me.txtAbfertigungsart) Me.Panel2.Controls.Add(Me.Label47) Me.Panel2.ForeColor = System.Drawing.Color.Black - Me.Panel2.Location = New System.Drawing.Point(628, 608) - Me.Panel2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Panel2.Location = New System.Drawing.Point(419, 395) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(616, 69) + Me.Panel2.Size = New System.Drawing.Size(411, 45) Me.Panel2.TabIndex = 41 ' 'txtPositionAnzahl @@ -1061,6 +1025,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtPositionAnzahl._DateTimeOnly = False Me.txtPositionAnzahl._numbersOnly = False Me.txtPositionAnzahl._numbersOnlyKommastellen = "" + Me.txtPositionAnzahl._numbersOnlyTrennzeichen = True Me.txtPositionAnzahl._Prozent = False Me.txtPositionAnzahl._ShortDateNew = False Me.txtPositionAnzahl._ShortDateOnly = False @@ -1070,24 +1035,22 @@ Partial Class usrCntlFaktAbrechnung Me.txtPositionAnzahl._Waehrung = False Me.txtPositionAnzahl._WaehrungZeichen = True Me.txtPositionAnzahl.ForeColor = System.Drawing.Color.Black - Me.txtPositionAnzahl.Location = New System.Drawing.Point(537, 32) - Me.txtPositionAnzahl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtPositionAnzahl.Location = New System.Drawing.Point(358, 21) Me.txtPositionAnzahl.MaxLength = 35 Me.txtPositionAnzahl.MaxLineLength = -1 Me.txtPositionAnzahl.MaxLines_Warning = "" Me.txtPositionAnzahl.MaxLines_Warning_Label = Nothing Me.txtPositionAnzahl.Name = "txtPositionAnzahl" Me.txtPositionAnzahl.ReadOnly = True - Me.txtPositionAnzahl.Size = New System.Drawing.Size(62, 26) + Me.txtPositionAnzahl.Size = New System.Drawing.Size(43, 20) Me.txtPositionAnzahl.TabIndex = 46 ' 'Label49 ' Me.Label49.AutoSize = True - Me.Label49.Location = New System.Drawing.Point(453, 37) - Me.Label49.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label49.Location = New System.Drawing.Point(302, 24) Me.Label49.Name = "Label49" - Me.Label49.Size = New System.Drawing.Size(76, 20) + Me.Label49.Size = New System.Drawing.Size(52, 13) Me.Label49.TabIndex = 45 Me.Label49.Text = "Pos.Anz.:" Me.Label49.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1097,6 +1060,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbfertigungsanzahl._DateTimeOnly = False Me.txtAbfertigungsanzahl._numbersOnly = False Me.txtAbfertigungsanzahl._numbersOnlyKommastellen = "" + Me.txtAbfertigungsanzahl._numbersOnlyTrennzeichen = True Me.txtAbfertigungsanzahl._Prozent = False Me.txtAbfertigungsanzahl._ShortDateNew = False Me.txtAbfertigungsanzahl._ShortDateOnly = False @@ -1106,24 +1070,22 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbfertigungsanzahl._Waehrung = False Me.txtAbfertigungsanzahl._WaehrungZeichen = True Me.txtAbfertigungsanzahl.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(537, 5) - Me.txtAbfertigungsanzahl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAbfertigungsanzahl.Location = New System.Drawing.Point(358, 3) Me.txtAbfertigungsanzahl.MaxLength = 35 Me.txtAbfertigungsanzahl.MaxLineLength = -1 Me.txtAbfertigungsanzahl.MaxLines_Warning = "" Me.txtAbfertigungsanzahl.MaxLines_Warning_Label = Nothing Me.txtAbfertigungsanzahl.Name = "txtAbfertigungsanzahl" Me.txtAbfertigungsanzahl.ReadOnly = True - Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(62, 26) + Me.txtAbfertigungsanzahl.Size = New System.Drawing.Size(43, 20) Me.txtAbfertigungsanzahl.TabIndex = 44 ' 'Label48 ' Me.Label48.AutoSize = True - Me.Label48.Location = New System.Drawing.Point(453, 9) - Me.Label48.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label48.Location = New System.Drawing.Point(302, 6) Me.Label48.Name = "Label48" - Me.Label48.Size = New System.Drawing.Size(62, 20) + Me.Label48.Size = New System.Drawing.Size(42, 13) Me.Label48.TabIndex = 43 Me.Label48.Text = "Anzahl:" Me.Label48.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1133,6 +1095,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbfertigungsart._DateTimeOnly = False Me.txtAbfertigungsart._numbersOnly = False Me.txtAbfertigungsart._numbersOnlyKommastellen = "" + Me.txtAbfertigungsart._numbersOnlyTrennzeichen = True Me.txtAbfertigungsart._Prozent = False Me.txtAbfertigungsart._ShortDateNew = False Me.txtAbfertigungsart._ShortDateOnly = False @@ -1142,24 +1105,22 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbfertigungsart._Waehrung = False Me.txtAbfertigungsart._WaehrungZeichen = True Me.txtAbfertigungsart.ForeColor = System.Drawing.Color.Black - Me.txtAbfertigungsart.Location = New System.Drawing.Point(146, 5) - Me.txtAbfertigungsart.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAbfertigungsart.Location = New System.Drawing.Point(97, 3) Me.txtAbfertigungsart.MaxLength = 35 Me.txtAbfertigungsart.MaxLineLength = -1 Me.txtAbfertigungsart.MaxLines_Warning = "" Me.txtAbfertigungsart.MaxLines_Warning_Label = Nothing Me.txtAbfertigungsart.Name = "txtAbfertigungsart" Me.txtAbfertigungsart.ReadOnly = True - Me.txtAbfertigungsart.Size = New System.Drawing.Size(296, 26) + Me.txtAbfertigungsart.Size = New System.Drawing.Size(199, 20) Me.txtAbfertigungsart.TabIndex = 42 ' 'Label47 ' Me.Label47.AutoSize = True - Me.Label47.Location = New System.Drawing.Point(3, 9) - Me.Label47.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label47.Location = New System.Drawing.Point(2, 6) Me.Label47.Name = "Label47" - Me.Label47.Size = New System.Drawing.Size(123, 20) + Me.Label47.Size = New System.Drawing.Size(81, 13) Me.Label47.TabIndex = 42 Me.Label47.Text = "Abfertigungsart:" Me.Label47.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1176,10 +1137,9 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAvisierer.Controls.Add(Me.txtAvisoId) Me.pnlAvisierer.Controls.Add(Me.kdFirmaAvisierer) Me.pnlAvisierer.Controls.Add(Me.FlatButton5) - Me.pnlAvisierer.Location = New System.Drawing.Point(0, 565) - Me.pnlAvisierer.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.pnlAvisierer.Location = New System.Drawing.Point(0, 367) Me.pnlAvisierer.Name = "pnlAvisierer" - Me.pnlAvisierer.Size = New System.Drawing.Size(622, 111) + Me.pnlAvisierer.Size = New System.Drawing.Size(415, 73) Me.pnlAvisierer.TabIndex = 8 ' 'txtkdNrAvisierer @@ -1187,6 +1147,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrAvisierer._DateTimeOnly = False Me.txtkdNrAvisierer._numbersOnly = False Me.txtkdNrAvisierer._numbersOnlyKommastellen = "" + Me.txtkdNrAvisierer._numbersOnlyTrennzeichen = True Me.txtkdNrAvisierer._Prozent = False Me.txtkdNrAvisierer._ShortDateNew = False Me.txtkdNrAvisierer._ShortDateOnly = False @@ -1198,15 +1159,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrAvisierer.BackColor = System.Drawing.Color.WhiteSmoke Me.txtkdNrAvisierer.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtkdNrAvisierer.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAvisierer.Location = New System.Drawing.Point(10, 34) - Me.txtkdNrAvisierer.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtkdNrAvisierer.Location = New System.Drawing.Point(7, 22) Me.txtkdNrAvisierer.MaxLength = 35 Me.txtkdNrAvisierer.MaxLineLength = -1 Me.txtkdNrAvisierer.MaxLines_Warning = "" Me.txtkdNrAvisierer.MaxLines_Warning_Label = Nothing Me.txtkdNrAvisierer.Name = "txtkdNrAvisierer" Me.txtkdNrAvisierer.ReadOnly = True - Me.txtkdNrAvisierer.Size = New System.Drawing.Size(141, 19) + Me.txtkdNrAvisierer.Size = New System.Drawing.Size(94, 13) Me.txtkdNrAvisierer.TabIndex = 1 Me.txtkdNrAvisierer.TabStop = False ' @@ -1215,10 +1175,9 @@ Partial Class usrCntlFaktAbrechnung Me.Label27.AutoSize = True Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) Me.Label27.ForeColor = System.Drawing.Color.Red - Me.Label27.Location = New System.Drawing.Point(428, 58) - Me.Label27.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label27.Location = New System.Drawing.Point(285, 38) Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(155, 20) + Me.Label27.Size = New System.Drawing.Size(108, 13) Me.Label27.TabIndex = 7 Me.Label27.Text = "VORAUSKASSE!""" Me.Label27.Visible = False @@ -1229,9 +1188,10 @@ Partial Class usrCntlFaktAbrechnung Me.btnAvisiererEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAvisiererEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) Me.btnAvisiererEuro.ForeColor = System.Drawing.Color.Silver - Me.btnAvisiererEuro.Location = New System.Drawing.Point(12, 42) + Me.btnAvisiererEuro.Location = New System.Drawing.Point(8, 27) + Me.btnAvisiererEuro.Margin = New System.Windows.Forms.Padding(2) Me.btnAvisiererEuro.Name = "btnAvisiererEuro" - Me.btnAvisiererEuro.Size = New System.Drawing.Size(140, 57) + Me.btnAvisiererEuro.Size = New System.Drawing.Size(93, 37) Me.btnAvisiererEuro.TabIndex = 4 Me.btnAvisiererEuro.TabStop = False Me.btnAvisiererEuro.Text = "€" @@ -1241,10 +1201,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(148, 57) - Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label2.Location = New System.Drawing.Point(99, 37) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(74, 20) + Me.Label2.Size = New System.Drawing.Size(48, 13) Me.Label2.TabIndex = 5 Me.Label2.Text = "LKW-ID:" ' @@ -1252,10 +1211,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label21.AutoSize = True Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.Label21.Location = New System.Drawing.Point(4, 9) - Me.Label21.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label21.Location = New System.Drawing.Point(3, 6) Me.Label21.Name = "Label21" - Me.Label21.Size = New System.Drawing.Size(103, 20) + Me.Label21.Size = New System.Drawing.Size(75, 13) Me.Label21.TabIndex = 0 Me.Label21.Text = "4. Avisierer:" ' @@ -1264,6 +1222,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAvisoId._DateTimeOnly = False Me.txtAvisoId._numbersOnly = False Me.txtAvisoId._numbersOnlyKommastellen = "" + Me.txtAvisoId._numbersOnlyTrennzeichen = True Me.txtAvisoId._Prozent = False Me.txtAvisoId._ShortDateNew = False Me.txtAvisoId._ShortDateOnly = False @@ -1273,15 +1232,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtAvisoId._Waehrung = False Me.txtAvisoId._WaehrungZeichen = True Me.txtAvisoId.ForeColor = System.Drawing.Color.Black - Me.txtAvisoId.Location = New System.Drawing.Point(236, 54) - Me.txtAvisoId.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAvisoId.Location = New System.Drawing.Point(157, 35) Me.txtAvisoId.MaxLength = 35 Me.txtAvisoId.MaxLineLength = -1 Me.txtAvisoId.MaxLines_Warning = "" Me.txtAvisoId.MaxLines_Warning_Label = Nothing Me.txtAvisoId.Name = "txtAvisoId" Me.txtAvisoId.ReadOnly = True - Me.txtAvisoId.Size = New System.Drawing.Size(187, 26) + Me.txtAvisoId.Size = New System.Drawing.Size(126, 20) Me.txtAvisoId.TabIndex = 6 Me.txtAvisoId.TabStop = False Me.txtAvisoId.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -1305,13 +1263,12 @@ Partial Class usrCntlFaktAbrechnung Me.kdFirmaAvisierer.KdNr = "-1" Me.kdFirmaAvisierer.kdNrField = Nothing Me.kdFirmaAvisierer.KdNrNullInt = Nothing - Me.kdFirmaAvisierer.Location = New System.Drawing.Point(152, 3) - Me.kdFirmaAvisierer.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.kdFirmaAvisierer.Location = New System.Drawing.Point(101, 2) Me.kdFirmaAvisierer.MaxLength = 35 Me.kdFirmaAvisierer.Name = "kdFirmaAvisierer" Me.kdFirmaAvisierer.nurAktive = True Me.kdFirmaAvisierer.searchActive = True - Me.kdFirmaAvisierer.Size = New System.Drawing.Size(422, 26) + Me.kdFirmaAvisierer.Size = New System.Drawing.Size(283, 20) Me.kdFirmaAvisierer.TabIndex = 3 Me.kdFirmaAvisierer.TabStop = False Me.kdFirmaAvisierer.TIMER_SEARCH = True @@ -1324,10 +1281,9 @@ Partial Class usrCntlFaktAbrechnung Me.FlatButton5.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton5.ForeColor = System.Drawing.Color.Black Me.FlatButton5.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton5.Location = New System.Drawing.Point(573, -2) - Me.FlatButton5.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.FlatButton5.Location = New System.Drawing.Point(382, -1) Me.FlatButton5.Name = "FlatButton5" - Me.FlatButton5.Size = New System.Drawing.Size(36, 38) + Me.FlatButton5.Size = New System.Drawing.Size(24, 25) Me.FlatButton5.TabIndex = 2 Me.FlatButton5.TabStop = False Me.FlatButton5.UseVisualStyleBackColor = True @@ -1340,11 +1296,10 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage5.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cboAnlage5.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboAnlage5.FormattingEnabled = True - Me.cboAnlage5.Location = New System.Drawing.Point(15, 1525) - Me.cboAnlage5.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboAnlage5.Location = New System.Drawing.Point(10, 991) Me.cboAnlage5.MaxLength = 35 Me.cboAnlage5.Name = "cboAnlage5" - Me.cboAnlage5.Size = New System.Drawing.Size(397, 28) + Me.cboAnlage5.Size = New System.Drawing.Size(266, 21) Me.cboAnlage5.TabIndex = 32 ' 'cboAnlage1 @@ -1355,11 +1310,10 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cboAnlage1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboAnlage1.FormattingEnabled = True - Me.cboAnlage1.Location = New System.Drawing.Point(15, 1402) - Me.cboAnlage1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboAnlage1.Location = New System.Drawing.Point(10, 911) Me.cboAnlage1.MaxLength = 35 Me.cboAnlage1.Name = "cboAnlage1" - Me.cboAnlage1.Size = New System.Drawing.Size(397, 28) + Me.cboAnlage1.Size = New System.Drawing.Size(266, 21) Me.cboAnlage1.TabIndex = 28 ' 'txtWarenwertUmrechnung @@ -1367,6 +1321,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtWarenwertUmrechnung._DateTimeOnly = False Me.txtWarenwertUmrechnung._numbersOnly = False Me.txtWarenwertUmrechnung._numbersOnlyKommastellen = "" + Me.txtWarenwertUmrechnung._numbersOnlyTrennzeichen = True Me.txtWarenwertUmrechnung._Prozent = False Me.txtWarenwertUmrechnung._ShortDateNew = False Me.txtWarenwertUmrechnung._ShortDateOnly = False @@ -1377,14 +1332,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtWarenwertUmrechnung._WaehrungZeichen = False Me.txtWarenwertUmrechnung.Enabled = False Me.txtWarenwertUmrechnung.ForeColor = System.Drawing.Color.Black - Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(843, 294) - Me.txtWarenwertUmrechnung.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtWarenwertUmrechnung.Location = New System.Drawing.Point(562, 191) Me.txtWarenwertUmrechnung.MaxLength = 35 Me.txtWarenwertUmrechnung.MaxLineLength = -1 Me.txtWarenwertUmrechnung.MaxLines_Warning = "" Me.txtWarenwertUmrechnung.MaxLines_Warning_Label = Nothing Me.txtWarenwertUmrechnung.Name = "txtWarenwertUmrechnung" - Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(192, 26) + Me.txtWarenwertUmrechnung.Size = New System.Drawing.Size(129, 20) Me.txtWarenwertUmrechnung.TabIndex = 18 Me.txtWarenwertUmrechnung.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' @@ -1392,10 +1346,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label13.AutoSize = True Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label13.Location = New System.Drawing.Point(10, 1377) - Me.Label13.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label13.Location = New System.Drawing.Point(7, 895) Me.Label13.Name = "Label13" - Me.Label13.Size = New System.Drawing.Size(82, 20) + Me.Label13.Size = New System.Drawing.Size(57, 13) Me.Label13.TabIndex = 26 Me.Label13.Text = "Anlagen:" Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1408,20 +1361,18 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage2.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cboAnlage2.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboAnlage2.FormattingEnabled = True - Me.cboAnlage2.Location = New System.Drawing.Point(15, 1432) - Me.cboAnlage2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboAnlage2.Location = New System.Drawing.Point(10, 931) Me.cboAnlage2.MaxLength = 35 Me.cboAnlage2.Name = "cboAnlage2" - Me.cboAnlage2.Size = New System.Drawing.Size(397, 28) + Me.cboAnlage2.Size = New System.Drawing.Size(266, 21) Me.cboAnlage2.TabIndex = 29 ' 'Label34 ' Me.Label34.AutoSize = True - Me.Label34.Location = New System.Drawing.Point(633, 298) - Me.Label34.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label34.Location = New System.Drawing.Point(422, 194) Me.Label34.Name = "Label34" - Me.Label34.Size = New System.Drawing.Size(105, 20) + Me.Label34.Size = New System.Drawing.Size(71, 13) Me.Label34.TabIndex = 40 Me.Label34.Text = "Umrechnung:" Me.Label34.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1434,11 +1385,10 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage3.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cboAnlage3.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboAnlage3.FormattingEnabled = True - Me.cboAnlage3.Location = New System.Drawing.Point(15, 1463) - Me.cboAnlage3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboAnlage3.Location = New System.Drawing.Point(10, 951) Me.cboAnlage3.MaxLength = 35 Me.cboAnlage3.Name = "cboAnlage3" - Me.cboAnlage3.Size = New System.Drawing.Size(397, 28) + Me.cboAnlage3.Size = New System.Drawing.Size(266, 21) Me.cboAnlage3.TabIndex = 30 ' 'txtVermerk @@ -1446,6 +1396,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtVermerk._DateTimeOnly = False Me.txtVermerk._numbersOnly = False Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._numbersOnlyTrennzeichen = True Me.txtVermerk._Prozent = False Me.txtVermerk._ShortDateNew = False Me.txtVermerk._ShortDateOnly = False @@ -1455,14 +1406,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtVermerk._Waehrung = False Me.txtVermerk._WaehrungZeichen = True Me.txtVermerk.ForeColor = System.Drawing.Color.Black - Me.txtVermerk.Location = New System.Drawing.Point(776, 515) - Me.txtVermerk.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtVermerk.Location = New System.Drawing.Point(517, 335) Me.txtVermerk.MaxLength = 35 Me.txtVermerk.MaxLineLength = -1 Me.txtVermerk.MaxLines_Warning = "" Me.txtVermerk.MaxLines_Warning_Label = Nothing Me.txtVermerk.Name = "txtVermerk" - Me.txtVermerk.Size = New System.Drawing.Size(456, 26) + Me.txtVermerk.Size = New System.Drawing.Size(305, 20) Me.txtVermerk.TabIndex = 25 ' 'cboAnlage6 @@ -1473,20 +1423,18 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage6.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cboAnlage6.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboAnlage6.FormattingEnabled = True - Me.cboAnlage6.Location = New System.Drawing.Point(15, 1555) - Me.cboAnlage6.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboAnlage6.Location = New System.Drawing.Point(10, 1011) Me.cboAnlage6.MaxLength = 35 Me.cboAnlage6.Name = "cboAnlage6" - Me.cboAnlage6.Size = New System.Drawing.Size(397, 28) + Me.cboAnlage6.Size = New System.Drawing.Size(266, 21) Me.cboAnlage6.TabIndex = 33 ' 'Label25 ' Me.Label25.AutoSize = True - Me.Label25.Location = New System.Drawing.Point(633, 520) - Me.Label25.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label25.Location = New System.Drawing.Point(422, 338) Me.Label25.Name = "Label25" - Me.Label25.Size = New System.Drawing.Size(73, 20) + Me.Label25.Size = New System.Drawing.Size(49, 13) Me.Label25.TabIndex = 39 Me.Label25.Text = "Vermerk:" Me.Label25.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1499,11 +1447,10 @@ Partial Class usrCntlFaktAbrechnung Me.cboAnlage4.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend Me.cboAnlage4.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboAnlage4.FormattingEnabled = True - Me.cboAnlage4.Location = New System.Drawing.Point(15, 1494) - Me.cboAnlage4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboAnlage4.Location = New System.Drawing.Point(10, 971) Me.cboAnlage4.MaxLength = 35 Me.cboAnlage4.Name = "cboAnlage4" - Me.cboAnlage4.Size = New System.Drawing.Size(397, 28) + Me.cboAnlage4.Size = New System.Drawing.Size(266, 21) Me.cboAnlage4.TabIndex = 31 ' 'txtErfassungsnummer @@ -1511,6 +1458,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtErfassungsnummer._DateTimeOnly = False Me.txtErfassungsnummer._numbersOnly = False Me.txtErfassungsnummer._numbersOnlyKommastellen = "" + Me.txtErfassungsnummer._numbersOnlyTrennzeichen = True Me.txtErfassungsnummer._Prozent = False Me.txtErfassungsnummer._ShortDateNew = False Me.txtErfassungsnummer._ShortDateOnly = False @@ -1520,23 +1468,21 @@ Partial Class usrCntlFaktAbrechnung Me.txtErfassungsnummer._Waehrung = False Me.txtErfassungsnummer._WaehrungZeichen = True Me.txtErfassungsnummer.ForeColor = System.Drawing.Color.Black - Me.txtErfassungsnummer.Location = New System.Drawing.Point(776, 363) - Me.txtErfassungsnummer.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtErfassungsnummer.Location = New System.Drawing.Point(517, 236) Me.txtErfassungsnummer.MaxLength = 35 Me.txtErfassungsnummer.MaxLineLength = -1 Me.txtErfassungsnummer.MaxLines_Warning = "" Me.txtErfassungsnummer.MaxLines_Warning_Label = Nothing Me.txtErfassungsnummer.Name = "txtErfassungsnummer" - Me.txtErfassungsnummer.Size = New System.Drawing.Size(456, 26) + Me.txtErfassungsnummer.Size = New System.Drawing.Size(305, 20) Me.txtErfassungsnummer.TabIndex = 11 ' 'Label24 ' Me.Label24.AutoSize = True - Me.Label24.Location = New System.Drawing.Point(633, 368) - Me.Label24.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label24.Location = New System.Drawing.Point(422, 239) Me.Label24.Name = "Label24" - Me.Label24.Size = New System.Drawing.Size(119, 20) + Me.Label24.Size = New System.Drawing.Size(79, 13) Me.Label24.TabIndex = 38 Me.Label24.Text = "Erfassungs-Nr.:" Me.Label24.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1544,10 +1490,9 @@ Partial Class usrCntlFaktAbrechnung 'Label22 ' Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(12, 1603) - Me.Label22.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label22.Location = New System.Drawing.Point(8, 1042) Me.Label22.Name = "Label22" - Me.Label22.Size = New System.Drawing.Size(75, 20) + Me.Label22.Size = New System.Drawing.Size(51, 13) Me.Label22.TabIndex = 37 Me.Label22.Text = "Rg-Notiz:" Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1558,19 +1503,19 @@ Partial Class usrCntlFaktAbrechnung Me.cboRechnungNotiz._allowFreiText = True Me.cboRechnungNotiz._value = "" Me.cboRechnungNotiz.FormattingEnabled = True - Me.cboRechnungNotiz.Location = New System.Drawing.Point(96, 1598) - Me.cboRechnungNotiz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboRechnungNotiz.Location = New System.Drawing.Point(64, 1039) Me.cboRechnungNotiz.Name = "cboRechnungNotiz" - Me.cboRechnungNotiz.Size = New System.Drawing.Size(632, 28) + Me.cboRechnungNotiz.Size = New System.Drawing.Size(423, 21) Me.cboRechnungNotiz.TabIndex = 36 ' 'pic ' Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.Verag_AG_Logo_med Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.pic.Location = New System.Drawing.Point(886, 3) + Me.pic.Location = New System.Drawing.Point(591, 2) + Me.pic.Margin = New System.Windows.Forms.Padding(2) Me.pic.Name = "pic" - Me.pic.Size = New System.Drawing.Size(344, 69) + Me.pic.Size = New System.Drawing.Size(229, 45) Me.pic.TabIndex = 36 Me.pic.TabStop = False ' @@ -1580,19 +1525,19 @@ Partial Class usrCntlFaktAbrechnung Me.cboFirma._allowFreiText = False Me.cboFirma._value = "" Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(888, 78) + Me.cboFirma.Location = New System.Drawing.Point(592, 51) + Me.cboFirma.Margin = New System.Windows.Forms.Padding(2) Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(342, 28) + Me.cboFirma.Size = New System.Drawing.Size(229, 21) Me.cboFirma.TabIndex = 1 Me.cboFirma.TabStop = False ' 'lblFirma3 ' Me.lblFirma3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirma3.Location = New System.Drawing.Point(884, 152) - Me.lblFirma3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblFirma3.Location = New System.Drawing.Point(589, 99) Me.lblFirma3.Name = "lblFirma3" - Me.lblFirma3.Size = New System.Drawing.Size(348, 20) + Me.lblFirma3.Size = New System.Drawing.Size(232, 13) Me.lblFirma3.TabIndex = 4 Me.lblFirma3.Text = "A 4975 Suben" Me.lblFirma3.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1600,10 +1545,9 @@ Partial Class usrCntlFaktAbrechnung 'lblFirma2 ' Me.lblFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirma2.Location = New System.Drawing.Point(884, 132) - Me.lblFirma2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblFirma2.Location = New System.Drawing.Point(589, 86) Me.lblFirma2.Name = "lblFirma2" - Me.lblFirma2.Size = New System.Drawing.Size(348, 20) + Me.lblFirma2.Size = New System.Drawing.Size(232, 13) Me.lblFirma2.TabIndex = 3 Me.lblFirma2.Text = "Suben 100" Me.lblFirma2.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1611,10 +1555,9 @@ Partial Class usrCntlFaktAbrechnung 'lblFirma1 ' Me.lblFirma1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblFirma1.Location = New System.Drawing.Point(884, 112) - Me.lblFirma1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblFirma1.Location = New System.Drawing.Point(589, 73) Me.lblFirma1.Name = "lblFirma1" - Me.lblFirma1.Size = New System.Drawing.Size(348, 20) + Me.lblFirma1.Size = New System.Drawing.Size(232, 13) Me.lblFirma1.TabIndex = 2 Me.lblFirma1.Text = "VERAG Spedition AG" Me.lblFirma1.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1622,10 +1565,9 @@ Partial Class usrCntlFaktAbrechnung 'Label32 ' Me.Label32.AutoSize = True - Me.Label32.Location = New System.Drawing.Point(12, 1632) - Me.Label32.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label32.Location = New System.Drawing.Point(8, 1061) Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(43, 20) + Me.Label32.Size = New System.Drawing.Size(31, 13) Me.Label32.TabIndex = 34 Me.Label32.Text = "Text:" Me.Label32.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1642,10 +1584,9 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAuftraggeber.Controls.Add(Me.txtAuftragggeberOrt) Me.pnlAuftraggeber.Controls.Add(Me.txtAuftragggeberStrasse) Me.pnlAuftraggeber.Controls.Add(Me.FlatButton4) - Me.pnlAuftraggeber.Location = New System.Drawing.Point(0, 454) - Me.pnlAuftraggeber.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.pnlAuftraggeber.Location = New System.Drawing.Point(0, 295) Me.pnlAuftraggeber.Name = "pnlAuftraggeber" - Me.pnlAuftraggeber.Size = New System.Drawing.Size(622, 111) + Me.pnlAuftraggeber.Size = New System.Drawing.Size(415, 73) Me.pnlAuftraggeber.TabIndex = 7 ' 'txtkdNrAuftraggeber @@ -1653,6 +1594,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrAuftraggeber._DateTimeOnly = False Me.txtkdNrAuftraggeber._numbersOnly = False Me.txtkdNrAuftraggeber._numbersOnlyKommastellen = "" + Me.txtkdNrAuftraggeber._numbersOnlyTrennzeichen = True Me.txtkdNrAuftraggeber._Prozent = False Me.txtkdNrAuftraggeber._ShortDateNew = False Me.txtkdNrAuftraggeber._ShortDateOnly = False @@ -1664,15 +1606,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrAuftraggeber.BackColor = System.Drawing.Color.WhiteSmoke Me.txtkdNrAuftraggeber.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtkdNrAuftraggeber.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(10, 38) - Me.txtkdNrAuftraggeber.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtkdNrAuftraggeber.Location = New System.Drawing.Point(7, 25) Me.txtkdNrAuftraggeber.MaxLength = 35 Me.txtkdNrAuftraggeber.MaxLineLength = -1 Me.txtkdNrAuftraggeber.MaxLines_Warning = "" Me.txtkdNrAuftraggeber.MaxLines_Warning_Label = Nothing Me.txtkdNrAuftraggeber.Name = "txtkdNrAuftraggeber" Me.txtkdNrAuftraggeber.ReadOnly = True - Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(141, 19) + Me.txtkdNrAuftraggeber.Size = New System.Drawing.Size(94, 13) Me.txtkdNrAuftraggeber.TabIndex = 1 Me.txtkdNrAuftraggeber.TabStop = False ' @@ -1682,9 +1623,10 @@ Partial Class usrCntlFaktAbrechnung Me.btnAuftraggeberEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAuftraggeberEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) Me.btnAuftraggeberEuro.ForeColor = System.Drawing.Color.Silver - Me.btnAuftraggeberEuro.Location = New System.Drawing.Point(10, 49) + Me.btnAuftraggeberEuro.Location = New System.Drawing.Point(7, 32) + Me.btnAuftraggeberEuro.Margin = New System.Windows.Forms.Padding(2) Me.btnAuftraggeberEuro.Name = "btnAuftraggeberEuro" - Me.btnAuftraggeberEuro.Size = New System.Drawing.Size(140, 57) + Me.btnAuftraggeberEuro.Size = New System.Drawing.Size(93, 37) Me.btnAuftraggeberEuro.TabIndex = 5 Me.btnAuftraggeberEuro.TabStop = False Me.btnAuftraggeberEuro.Text = "€" @@ -1709,13 +1651,12 @@ Partial Class usrCntlFaktAbrechnung Me.kdFirmaAuftraggeber.KdNr = "-1" Me.kdFirmaAuftraggeber.kdNrField = Nothing Me.kdFirmaAuftraggeber.KdNrNullInt = Nothing - Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(152, 5) - Me.kdFirmaAuftraggeber.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.kdFirmaAuftraggeber.Location = New System.Drawing.Point(101, 3) Me.kdFirmaAuftraggeber.MaxLength = 35 Me.kdFirmaAuftraggeber.Name = "kdFirmaAuftraggeber" Me.kdFirmaAuftraggeber.nurAktive = True Me.kdFirmaAuftraggeber.searchActive = True - Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(422, 26) + Me.kdFirmaAuftraggeber.Size = New System.Drawing.Size(283, 20) Me.kdFirmaAuftraggeber.TabIndex = 3 Me.kdFirmaAuftraggeber.TabStop = False Me.kdFirmaAuftraggeber.TIMER_SEARCH = True @@ -1726,6 +1667,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAuftraggeberName2._DateTimeOnly = False Me.txtAuftraggeberName2._numbersOnly = False Me.txtAuftraggeberName2._numbersOnlyKommastellen = "" + Me.txtAuftraggeberName2._numbersOnlyTrennzeichen = True Me.txtAuftraggeberName2._Prozent = False Me.txtAuftraggeberName2._ShortDateNew = False Me.txtAuftraggeberName2._ShortDateOnly = False @@ -1737,14 +1679,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtAuftraggeberName2.BackColor = System.Drawing.Color.WhiteSmoke Me.txtAuftraggeberName2.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtAuftraggeberName2.ForeColor = System.Drawing.Color.Black - Me.txtAuftraggeberName2.Location = New System.Drawing.Point(152, 38) - Me.txtAuftraggeberName2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAuftraggeberName2.Location = New System.Drawing.Point(101, 25) Me.txtAuftraggeberName2.MaxLength = 35 Me.txtAuftraggeberName2.MaxLineLength = -1 Me.txtAuftraggeberName2.MaxLines_Warning = "" Me.txtAuftraggeberName2.MaxLines_Warning_Label = Nothing Me.txtAuftraggeberName2.Name = "txtAuftraggeberName2" - Me.txtAuftraggeberName2.Size = New System.Drawing.Size(458, 19) + Me.txtAuftraggeberName2.Size = New System.Drawing.Size(305, 13) Me.txtAuftraggeberName2.TabIndex = 4 Me.txtAuftraggeberName2.TabStop = False ' @@ -1752,10 +1693,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label15.AutoSize = True Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.Label15.Location = New System.Drawing.Point(4, 9) - Me.Label15.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label15.Location = New System.Drawing.Point(3, 6) Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(140, 20) + Me.Label15.Size = New System.Drawing.Size(99, 13) Me.Label15.TabIndex = 0 Me.Label15.Text = "3. Auftraggeber:" ' @@ -1764,6 +1704,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAuftragggeberOrt._DateTimeOnly = False Me.txtAuftragggeberOrt._numbersOnly = False Me.txtAuftragggeberOrt._numbersOnlyKommastellen = "" + Me.txtAuftragggeberOrt._numbersOnlyTrennzeichen = True Me.txtAuftragggeberOrt._Prozent = False Me.txtAuftragggeberOrt._ShortDateNew = False Me.txtAuftragggeberOrt._ShortDateOnly = False @@ -1775,14 +1716,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtAuftragggeberOrt.BackColor = System.Drawing.Color.WhiteSmoke Me.txtAuftragggeberOrt.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtAuftragggeberOrt.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(152, 82) - Me.txtAuftragggeberOrt.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAuftragggeberOrt.Location = New System.Drawing.Point(101, 53) Me.txtAuftragggeberOrt.MaxLength = 35 Me.txtAuftragggeberOrt.MaxLineLength = -1 Me.txtAuftragggeberOrt.MaxLines_Warning = "" Me.txtAuftragggeberOrt.MaxLines_Warning_Label = Nothing Me.txtAuftragggeberOrt.Name = "txtAuftragggeberOrt" - Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(458, 19) + Me.txtAuftragggeberOrt.Size = New System.Drawing.Size(305, 13) Me.txtAuftragggeberOrt.TabIndex = 7 Me.txtAuftragggeberOrt.TabStop = False ' @@ -1791,6 +1731,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAuftragggeberStrasse._DateTimeOnly = False Me.txtAuftragggeberStrasse._numbersOnly = False Me.txtAuftragggeberStrasse._numbersOnlyKommastellen = "" + Me.txtAuftragggeberStrasse._numbersOnlyTrennzeichen = True Me.txtAuftragggeberStrasse._Prozent = False Me.txtAuftragggeberStrasse._ShortDateNew = False Me.txtAuftragggeberStrasse._ShortDateOnly = False @@ -1802,14 +1743,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtAuftragggeberStrasse.BackColor = System.Drawing.Color.WhiteSmoke Me.txtAuftragggeberStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtAuftragggeberStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(152, 60) - Me.txtAuftragggeberStrasse.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAuftragggeberStrasse.Location = New System.Drawing.Point(101, 39) Me.txtAuftragggeberStrasse.MaxLength = 35 Me.txtAuftragggeberStrasse.MaxLineLength = -1 Me.txtAuftragggeberStrasse.MaxLines_Warning = "" Me.txtAuftragggeberStrasse.MaxLines_Warning_Label = Nothing Me.txtAuftragggeberStrasse.Name = "txtAuftragggeberStrasse" - Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(458, 19) + Me.txtAuftragggeberStrasse.Size = New System.Drawing.Size(305, 13) Me.txtAuftragggeberStrasse.TabIndex = 6 Me.txtAuftragggeberStrasse.TabStop = False ' @@ -1820,24 +1760,22 @@ Partial Class usrCntlFaktAbrechnung Me.FlatButton4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton4.ForeColor = System.Drawing.Color.Black Me.FlatButton4.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton4.Location = New System.Drawing.Point(573, 0) - Me.FlatButton4.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.FlatButton4.Location = New System.Drawing.Point(382, 0) Me.FlatButton4.Name = "FlatButton4" - Me.FlatButton4.Size = New System.Drawing.Size(36, 38) + Me.FlatButton4.Size = New System.Drawing.Size(24, 25) Me.FlatButton4.TabIndex = 2 Me.FlatButton4.TabStop = False Me.FlatButton4.UseVisualStyleBackColor = True ' 'txtText ' - Me.txtText.Location = New System.Drawing.Point(96, 1666) - Me.txtText.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtText.Location = New System.Drawing.Point(64, 1083) Me.txtText.MaxLineLength = -1 Me.txtText.MaxLines_Warning = "" Me.txtText.MaxLines_Warning_Label = Nothing Me.txtText.Name = "txtText" Me.txtText.ReadOnly = True - Me.txtText.Size = New System.Drawing.Size(632, 70) + Me.txtText.Size = New System.Drawing.Size(423, 47) Me.txtText.TabIndex = 35 Me.txtText.Text = "" ' @@ -1846,6 +1784,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtBefoerderungsmittel._DateTimeOnly = False Me.txtBefoerderungsmittel._numbersOnly = False Me.txtBefoerderungsmittel._numbersOnlyKommastellen = "" + Me.txtBefoerderungsmittel._numbersOnlyTrennzeichen = True Me.txtBefoerderungsmittel._Prozent = False Me.txtBefoerderungsmittel._ShortDateNew = False Me.txtBefoerderungsmittel._ShortDateOnly = False @@ -1855,14 +1794,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtBefoerderungsmittel._Waehrung = False Me.txtBefoerderungsmittel._WaehrungZeichen = True Me.txtBefoerderungsmittel.ForeColor = System.Drawing.Color.Black - Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(776, 420) - Me.txtBefoerderungsmittel.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtBefoerderungsmittel.Location = New System.Drawing.Point(517, 273) Me.txtBefoerderungsmittel.MaxLength = 35 Me.txtBefoerderungsmittel.MaxLineLength = -1 Me.txtBefoerderungsmittel.MaxLines_Warning = "" Me.txtBefoerderungsmittel.MaxLines_Warning_Label = Nothing Me.txtBefoerderungsmittel.Name = "txtBefoerderungsmittel" - Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(456, 26) + Me.txtBefoerderungsmittel.Size = New System.Drawing.Size(305, 20) Me.txtBefoerderungsmittel.TabIndex = 19 ' 'txtGrenze @@ -1870,6 +1808,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtGrenze._DateTimeOnly = False Me.txtGrenze._numbersOnly = False Me.txtGrenze._numbersOnlyKommastellen = "" + Me.txtGrenze._numbersOnlyTrennzeichen = True Me.txtGrenze._Prozent = False Me.txtGrenze._ShortDateNew = False Me.txtGrenze._ShortDateOnly = False @@ -1879,23 +1818,21 @@ Partial Class usrCntlFaktAbrechnung Me.txtGrenze._Waehrung = False Me.txtGrenze._WaehrungZeichen = True Me.txtGrenze.ForeColor = System.Drawing.Color.Black - Me.txtGrenze.Location = New System.Drawing.Point(776, 391) - Me.txtGrenze.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtGrenze.Location = New System.Drawing.Point(517, 254) Me.txtGrenze.MaxLength = 35 Me.txtGrenze.MaxLineLength = -1 Me.txtGrenze.MaxLines_Warning = "" Me.txtGrenze.MaxLines_Warning_Label = Nothing Me.txtGrenze.Name = "txtGrenze" - Me.txtGrenze.Size = New System.Drawing.Size(456, 26) + Me.txtGrenze.Size = New System.Drawing.Size(305, 20) Me.txtGrenze.TabIndex = 16 ' 'Label20 ' Me.Label20.AutoSize = True - Me.Label20.Location = New System.Drawing.Point(633, 425) - Me.Label20.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label20.Location = New System.Drawing.Point(422, 276) Me.Label20.Name = "Label20" - Me.Label20.Size = New System.Drawing.Size(148, 20) + Me.Label20.Size = New System.Drawing.Size(97, 13) Me.Label20.TabIndex = 20 Me.Label20.Text = "Beförderungsmittel:" Me.Label20.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1903,10 +1840,9 @@ Partial Class usrCntlFaktAbrechnung 'Label19 ' Me.Label19.AutoSize = True - Me.Label19.Location = New System.Drawing.Point(633, 395) - Me.Label19.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label19.Location = New System.Drawing.Point(422, 257) Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(66, 20) + Me.Label19.Size = New System.Drawing.Size(44, 13) Me.Label19.TabIndex = 12 Me.Label19.Text = "Grenze:" Me.Label19.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1916,6 +1852,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtSendungsdaten._DateTimeOnly = False Me.txtSendungsdaten._numbersOnly = False Me.txtSendungsdaten._numbersOnlyKommastellen = "" + Me.txtSendungsdaten._numbersOnlyTrennzeichen = True Me.txtSendungsdaten._Prozent = False Me.txtSendungsdaten._ShortDateNew = False Me.txtSendungsdaten._ShortDateOnly = False @@ -1925,23 +1862,21 @@ Partial Class usrCntlFaktAbrechnung Me.txtSendungsdaten._Waehrung = False Me.txtSendungsdaten._WaehrungZeichen = True Me.txtSendungsdaten.ForeColor = System.Drawing.Color.Black - Me.txtSendungsdaten.Location = New System.Drawing.Point(776, 488) - Me.txtSendungsdaten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtSendungsdaten.Location = New System.Drawing.Point(517, 317) Me.txtSendungsdaten.MaxLength = 300 Me.txtSendungsdaten.MaxLineLength = -1 Me.txtSendungsdaten.MaxLines_Warning = "" Me.txtSendungsdaten.MaxLines_Warning_Label = Nothing Me.txtSendungsdaten.Name = "txtSendungsdaten" - Me.txtSendungsdaten.Size = New System.Drawing.Size(456, 26) + Me.txtSendungsdaten.Size = New System.Drawing.Size(305, 20) Me.txtSendungsdaten.TabIndex = 22 ' 'Label17 ' Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(633, 492) - Me.Label17.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label17.Location = New System.Drawing.Point(422, 320) Me.Label17.Name = "Label17" - Me.Label17.Size = New System.Drawing.Size(127, 20) + Me.Label17.Size = New System.Drawing.Size(85, 13) Me.Label17.TabIndex = 21 Me.Label17.Text = "Sendungsdaten:" Me.Label17.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1951,6 +1886,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtWarenwert._DateTimeOnly = False Me.txtWarenwert._numbersOnly = False Me.txtWarenwert._numbersOnlyKommastellen = "" + Me.txtWarenwert._numbersOnlyTrennzeichen = True Me.txtWarenwert._Prozent = False Me.txtWarenwert._ShortDateNew = False Me.txtWarenwert._ShortDateOnly = False @@ -1960,24 +1896,22 @@ Partial Class usrCntlFaktAbrechnung Me.txtWarenwert._Waehrung = True Me.txtWarenwert._WaehrungZeichen = False Me.txtWarenwert.ForeColor = System.Drawing.Color.Black - Me.txtWarenwert.Location = New System.Drawing.Point(843, 265) - Me.txtWarenwert.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtWarenwert.Location = New System.Drawing.Point(562, 172) Me.txtWarenwert.MaxLength = 35 Me.txtWarenwert.MaxLineLength = -1 Me.txtWarenwert.MaxLines_Warning = "" Me.txtWarenwert.MaxLines_Warning_Label = Nothing Me.txtWarenwert.Name = "txtWarenwert" - Me.txtWarenwert.Size = New System.Drawing.Size(192, 26) + Me.txtWarenwert.Size = New System.Drawing.Size(129, 20) Me.txtWarenwert.TabIndex = 15 Me.txtWarenwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label16 ' Me.Label16.AutoSize = True - Me.Label16.Location = New System.Drawing.Point(633, 269) - Me.Label16.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label16.Location = New System.Drawing.Point(422, 175) Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(90, 20) + Me.Label16.Size = New System.Drawing.Size(62, 13) Me.Label16.TabIndex = 13 Me.Label16.Text = "Warenwert:" Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -1987,6 +1921,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtZollbelegNr._DateTimeOnly = False Me.txtZollbelegNr._numbersOnly = False Me.txtZollbelegNr._numbersOnlyKommastellen = "" + Me.txtZollbelegNr._numbersOnlyTrennzeichen = True Me.txtZollbelegNr._Prozent = False Me.txtZollbelegNr._ShortDateNew = False Me.txtZollbelegNr._ShortDateOnly = False @@ -1996,23 +1931,21 @@ Partial Class usrCntlFaktAbrechnung Me.txtZollbelegNr._Waehrung = False Me.txtZollbelegNr._WaehrungZeichen = True Me.txtZollbelegNr.ForeColor = System.Drawing.Color.Black - Me.txtZollbelegNr.Location = New System.Drawing.Point(776, 235) - Me.txtZollbelegNr.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtZollbelegNr.Location = New System.Drawing.Point(517, 153) Me.txtZollbelegNr.MaxLength = 35 Me.txtZollbelegNr.MaxLineLength = -1 Me.txtZollbelegNr.MaxLines_Warning = "" Me.txtZollbelegNr.MaxLines_Warning_Label = Nothing Me.txtZollbelegNr.Name = "txtZollbelegNr" - Me.txtZollbelegNr.Size = New System.Drawing.Size(456, 26) + Me.txtZollbelegNr.Size = New System.Drawing.Size(305, 20) Me.txtZollbelegNr.TabIndex = 10 ' 'Label10 ' Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(633, 240) - Me.Label10.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label10.Location = New System.Drawing.Point(422, 156) Me.Label10.Name = "Label10" - Me.Label10.Size = New System.Drawing.Size(102, 20) + Me.Label10.Size = New System.Drawing.Size(70, 13) Me.Label10.TabIndex = 9 Me.Label10.Text = "Zollbeleg-Nr.:" Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -2049,19 +1982,17 @@ Partial Class usrCntlFaktAbrechnung Me.pnlRechnungAn.Controls.Add(Me.txtRechnungAnStrasse) Me.pnlRechnungAn.Controls.Add(Me.Label7) Me.pnlRechnungAn.Location = New System.Drawing.Point(0, 0) - Me.pnlRechnungAn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.pnlRechnungAn.Name = "pnlRechnungAn" - Me.pnlRechnungAn.Size = New System.Drawing.Size(872, 224) + Me.pnlRechnungAn.Size = New System.Drawing.Size(582, 146) Me.pnlRechnungAn.TabIndex = 0 ' 'Button15 ' Me.Button15.Enabled = False Me.Button15.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button15.Location = New System.Drawing.Point(777, 151) - Me.Button15.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button15.Location = New System.Drawing.Point(518, 98) Me.Button15.Name = "Button15" - Me.Button15.Size = New System.Drawing.Size(86, 35) + Me.Button15.Size = New System.Drawing.Size(57, 23) Me.Button15.TabIndex = 241 Me.Button15.Text = "Post" Me.Button15.UseVisualStyleBackColor = True @@ -2072,10 +2003,9 @@ Partial Class usrCntlFaktAbrechnung Me.cboSammelrechnung._allowFreiText = False Me.cboSammelrechnung._value = "" Me.cboSammelrechnung.FormattingEnabled = True - Me.cboSammelrechnung.Location = New System.Drawing.Point(423, 26) - Me.cboSammelrechnung.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboSammelrechnung.Location = New System.Drawing.Point(282, 17) Me.cboSammelrechnung.Name = "cboSammelrechnung" - Me.cboSammelrechnung.Size = New System.Drawing.Size(151, 28) + Me.cboSammelrechnung.Size = New System.Drawing.Size(102, 21) Me.cboSammelrechnung.TabIndex = 2 ' 'Button14 @@ -2084,10 +2014,9 @@ Partial Class usrCntlFaktAbrechnung Me.Button14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button14.FlatAppearance.BorderSize = 0 Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button14.Location = New System.Drawing.Point(574, 14) - Me.Button14.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button14.Location = New System.Drawing.Point(383, 9) Me.Button14.Name = "Button14" - Me.Button14.Size = New System.Drawing.Size(38, 38) + Me.Button14.Size = New System.Drawing.Size(25, 25) Me.Button14.TabIndex = 240 Me.Button14.TabStop = False Me.Button14.Tag = "Kunde hinzufügen" @@ -2099,10 +2028,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.picKdAuftrInfo.BackgroundImage = Global.SDL.My.Resources.Resources.warning2 Me.picKdAuftrInfo.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picKdAuftrInfo.Location = New System.Drawing.Point(10, 178) - Me.picKdAuftrInfo.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.picKdAuftrInfo.Location = New System.Drawing.Point(7, 116) Me.picKdAuftrInfo.Name = "picKdAuftrInfo" - Me.picKdAuftrInfo.Size = New System.Drawing.Size(30, 31) + Me.picKdAuftrInfo.Size = New System.Drawing.Size(20, 20) Me.picKdAuftrInfo.TabIndex = 87 Me.picKdAuftrInfo.TabStop = False Me.picKdAuftrInfo.Visible = False @@ -2112,10 +2040,9 @@ Partial Class usrCntlFaktAbrechnung Me.lblKdInaktiv.AutoSize = True Me.lblKdInaktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) Me.lblKdInaktiv.ForeColor = System.Drawing.Color.Red - Me.lblKdInaktiv.Location = New System.Drawing.Point(9, 97) - Me.lblKdInaktiv.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblKdInaktiv.Location = New System.Drawing.Point(6, 63) Me.lblKdInaktiv.Name = "lblKdInaktiv" - Me.lblKdInaktiv.Size = New System.Drawing.Size(88, 20) + Me.lblKdInaktiv.Size = New System.Drawing.Size(64, 13) Me.lblKdInaktiv.TabIndex = 22 Me.lblKdInaktiv.Text = "INAKTIV !" Me.lblKdInaktiv.Visible = False @@ -2124,10 +2051,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.picWarnRgAn.BackgroundImage = Global.SDL.My.Resources.Resources.warning2 Me.picWarnRgAn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picWarnRgAn.Location = New System.Drawing.Point(120, 89) - Me.picWarnRgAn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.picWarnRgAn.Location = New System.Drawing.Point(80, 58) Me.picWarnRgAn.Name = "picWarnRgAn" - Me.picWarnRgAn.Size = New System.Drawing.Size(30, 31) + Me.picWarnRgAn.Size = New System.Drawing.Size(20, 20) Me.picWarnRgAn.TabIndex = 86 Me.picWarnRgAn.TabStop = False Me.picWarnRgAn.Visible = False @@ -2137,10 +2063,9 @@ Partial Class usrCntlFaktAbrechnung Me.lblUIDOK.AutoSize = True Me.lblUIDOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) Me.lblUIDOK.ForeColor = System.Drawing.Color.Green - Me.lblUIDOK.Location = New System.Drawing.Point(646, 191) - Me.lblUIDOK.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblUIDOK.Location = New System.Drawing.Point(431, 124) Me.lblUIDOK.Name = "lblUIDOK" - Me.lblUIDOK.Size = New System.Drawing.Size(147, 20) + Me.lblUIDOK.Size = New System.Drawing.Size(104, 13) Me.lblUIDOK.TabIndex = 21 Me.lblUIDOK.Text = "UID-Nr. GÜLTIG!" Me.lblUIDOK.Visible = False @@ -2150,10 +2075,9 @@ Partial Class usrCntlFaktAbrechnung Me.lblUIDErr.AutoSize = True Me.lblUIDErr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) Me.lblUIDErr.ForeColor = System.Drawing.Color.Red - Me.lblUIDErr.Location = New System.Drawing.Point(646, 191) - Me.lblUIDErr.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblUIDErr.Location = New System.Drawing.Point(431, 124) Me.lblUIDErr.Name = "lblUIDErr" - Me.lblUIDErr.Size = New System.Drawing.Size(172, 20) + Me.lblUIDErr.Size = New System.Drawing.Size(122, 13) Me.lblUIDErr.TabIndex = 8 Me.lblUIDErr.Text = "UID-Nr. UNGÜLTIG!" Me.lblUIDErr.Visible = False @@ -2162,10 +2086,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Button6.Enabled = False Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button6.Location = New System.Drawing.Point(651, 151) - Me.Button6.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button6.Location = New System.Drawing.Point(434, 98) Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(128, 35) + Me.Button6.Size = New System.Drawing.Size(85, 23) Me.Button6.TabIndex = 15 Me.Button6.Text = "UID prüfen" Me.Button6.UseVisualStyleBackColor = True @@ -2175,6 +2098,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnName2._DateTimeOnly = False Me.txtRechnungAnName2._numbersOnly = False Me.txtRechnungAnName2._numbersOnlyKommastellen = "" + Me.txtRechnungAnName2._numbersOnlyTrennzeichen = True Me.txtRechnungAnName2._Prozent = False Me.txtRechnungAnName2._ShortDateNew = False Me.txtRechnungAnName2._ShortDateOnly = False @@ -2184,14 +2108,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnName2._Waehrung = False Me.txtRechnungAnName2._WaehrungZeichen = True Me.txtRechnungAnName2.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnName2.Location = New System.Drawing.Point(152, 86) - Me.txtRechnungAnName2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtRechnungAnName2.Location = New System.Drawing.Point(101, 56) Me.txtRechnungAnName2.MaxLength = 40 Me.txtRechnungAnName2.MaxLineLength = -1 Me.txtRechnungAnName2.MaxLines_Warning = "" Me.txtRechnungAnName2.MaxLines_Warning_Label = Nothing Me.txtRechnungAnName2.Name = "txtRechnungAnName2" - Me.txtRechnungAnName2.Size = New System.Drawing.Size(457, 26) + Me.txtRechnungAnName2.Size = New System.Drawing.Size(306, 20) Me.txtRechnungAnName2.TabIndex = 11 Me.txtRechnungAnName2.TabStop = False ' @@ -2213,13 +2136,12 @@ Partial Class usrCntlFaktAbrechnung Me.kdFirmaRechnungAn.KdNr = "-1" Me.kdFirmaRechnungAn.kdNrField = Nothing Me.kdFirmaRechnungAn.KdNrNullInt = Nothing - Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(152, 57) - Me.kdFirmaRechnungAn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.kdFirmaRechnungAn.Location = New System.Drawing.Point(101, 37) Me.kdFirmaRechnungAn.MaxLength = 35 Me.kdFirmaRechnungAn.Name = "kdFirmaRechnungAn" Me.kdFirmaRechnungAn.nurAktive = True Me.kdFirmaRechnungAn.searchActive = True - Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(422, 26) + Me.kdFirmaRechnungAn.Size = New System.Drawing.Size(283, 20) Me.kdFirmaRechnungAn.TabIndex = 5 Me.kdFirmaRechnungAn.TabStop = False Me.kdFirmaRechnungAn.TIMER_SEARCH = True @@ -2232,10 +2154,9 @@ Partial Class usrCntlFaktAbrechnung Me.FlatButton3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton3.ForeColor = System.Drawing.Color.Black Me.FlatButton3.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton3.Location = New System.Drawing.Point(574, 49) - Me.FlatButton3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.FlatButton3.Location = New System.Drawing.Point(383, 32) Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(36, 38) + Me.FlatButton3.Size = New System.Drawing.Size(24, 25) Me.FlatButton3.TabIndex = 7 Me.FlatButton3.TabStop = False Me.FlatButton3.UseVisualStyleBackColor = True @@ -2245,6 +2166,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtKdAuftragsNr._DateTimeOnly = False Me.txtKdAuftragsNr._numbersOnly = False Me.txtKdAuftragsNr._numbersOnlyKommastellen = "" + Me.txtKdAuftragsNr._numbersOnlyTrennzeichen = True Me.txtKdAuftragsNr._Prozent = False Me.txtKdAuftragsNr._ShortDateNew = False Me.txtKdAuftragsNr._ShortDateOnly = False @@ -2254,24 +2176,22 @@ Partial Class usrCntlFaktAbrechnung Me.txtKdAuftragsNr._Waehrung = False Me.txtKdAuftragsNr._WaehrungZeichen = True Me.txtKdAuftragsNr.ForeColor = System.Drawing.Color.Black - Me.txtKdAuftragsNr.Location = New System.Drawing.Point(152, 178) - Me.txtKdAuftragsNr.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtKdAuftragsNr.Location = New System.Drawing.Point(101, 116) Me.txtKdAuftragsNr.MaxLength = 35 Me.txtKdAuftragsNr.MaxLineLength = -1 Me.txtKdAuftragsNr.MaxLines_Warning = "" Me.txtKdAuftragsNr.MaxLines_Warning_Label = Nothing Me.txtKdAuftragsNr.Name = "txtKdAuftragsNr" - Me.txtKdAuftragsNr.Size = New System.Drawing.Size(457, 26) + Me.txtKdAuftragsNr.Size = New System.Drawing.Size(306, 20) Me.txtKdAuftragsNr.TabIndex = 20 ' 'Label43 ' Me.Label43.AutoSize = True Me.Label43.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label43.Location = New System.Drawing.Point(45, 183) - Me.Label43.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label43.Location = New System.Drawing.Point(30, 119) Me.Label43.Name = "Label43" - Me.Label43.Size = New System.Drawing.Size(102, 20) + Me.Label43.Size = New System.Drawing.Size(65, 13) Me.Label43.TabIndex = 19 Me.Label43.Text = "Kd-Auftr.Nr.:" ' @@ -2280,6 +2200,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnUIDKz._DateTimeOnly = False Me.txtRechnungAnUIDKz._numbersOnly = False Me.txtRechnungAnUIDKz._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDKz._numbersOnlyTrennzeichen = True Me.txtRechnungAnUIDKz._Prozent = False Me.txtRechnungAnUIDKz._ShortDateNew = False Me.txtRechnungAnUIDKz._ShortDateOnly = False @@ -2289,14 +2210,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnUIDKz._Waehrung = False Me.txtRechnungAnUIDKz._WaehrungZeichen = True Me.txtRechnungAnUIDKz.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(722, 86) - Me.txtRechnungAnUIDKz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtRechnungAnUIDKz.Location = New System.Drawing.Point(481, 56) Me.txtRechnungAnUIDKz.MaxLength = 35 Me.txtRechnungAnUIDKz.MaxLineLength = -1 Me.txtRechnungAnUIDKz.MaxLines_Warning = "" Me.txtRechnungAnUIDKz.MaxLines_Warning_Label = Nothing Me.txtRechnungAnUIDKz.Name = "txtRechnungAnUIDKz" - Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(38, 26) + Me.txtRechnungAnUIDKz.Size = New System.Drawing.Size(27, 20) Me.txtRechnungAnUIDKz.TabIndex = 18 Me.txtRechnungAnUIDKz.TabStop = False ' @@ -2304,10 +2224,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.lblVorauskasse.AutoSize = True Me.lblVorauskasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblVorauskasse.Location = New System.Drawing.Point(806, 31) - Me.lblVorauskasse.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblVorauskasse.Location = New System.Drawing.Point(537, 20) Me.lblVorauskasse.Name = "lblVorauskasse" - Me.lblVorauskasse.Size = New System.Drawing.Size(52, 20) + Me.lblVorauskasse.Size = New System.Drawing.Size(37, 13) Me.lblVorauskasse.TabIndex = 6 Me.lblVorauskasse.Text = "NEIN" Me.lblVorauskasse.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -2315,10 +2234,9 @@ Partial Class usrCntlFaktAbrechnung 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Location = New System.Drawing.Point(646, 31) - Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.Location = New System.Drawing.Point(431, 20) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(106, 20) + Me.Label1.Size = New System.Drawing.Size(71, 13) Me.Label1.TabIndex = 4 Me.Label1.Text = "Vorauskasse:" Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -2329,10 +2247,9 @@ Partial Class usrCntlFaktAbrechnung Me.cboRechnungAn._allowFreiText = False Me.cboRechnungAn._value = "" Me.cboRechnungAn.FormattingEnabled = True - Me.cboRechnungAn.Location = New System.Drawing.Point(152, 26) - Me.cboRechnungAn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboRechnungAn.Location = New System.Drawing.Point(101, 17) Me.cboRechnungAn.Name = "cboRechnungAn" - Me.cboRechnungAn.Size = New System.Drawing.Size(272, 28) + Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21) Me.cboRechnungAn.TabIndex = 1 ' 'txtRechnungAnUIDNr @@ -2340,6 +2257,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnUIDNr._DateTimeOnly = False Me.txtRechnungAnUIDNr._numbersOnly = False Me.txtRechnungAnUIDNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnUIDNr._numbersOnlyTrennzeichen = True Me.txtRechnungAnUIDNr._Prozent = False Me.txtRechnungAnUIDNr._ShortDateNew = False Me.txtRechnungAnUIDNr._ShortDateOnly = False @@ -2349,14 +2267,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnUIDNr._Waehrung = False Me.txtRechnungAnUIDNr._WaehrungZeichen = True Me.txtRechnungAnUIDNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(759, 86) - Me.txtRechnungAnUIDNr.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtRechnungAnUIDNr.Location = New System.Drawing.Point(506, 56) Me.txtRechnungAnUIDNr.MaxLength = 35 Me.txtRechnungAnUIDNr.MaxLineLength = -1 Me.txtRechnungAnUIDNr.MaxLines_Warning = "" Me.txtRechnungAnUIDNr.MaxLines_Warning_Label = Nothing Me.txtRechnungAnUIDNr.Name = "txtRechnungAnUIDNr" - Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(102, 26) + Me.txtRechnungAnUIDNr.Size = New System.Drawing.Size(69, 20) Me.txtRechnungAnUIDNr.TabIndex = 13 Me.txtRechnungAnUIDNr.TabStop = False ' @@ -2364,10 +2281,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label6.AutoSize = True Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(646, 91) - Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label6.Location = New System.Drawing.Point(431, 59) Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(71, 20) + Me.Label6.Size = New System.Drawing.Size(46, 13) Me.Label6.TabIndex = 12 Me.Label6.Text = "UID-Nr.:" ' @@ -2376,6 +2292,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnBuKdNr._DateTimeOnly = False Me.txtRechnungAnBuKdNr._numbersOnly = False Me.txtRechnungAnBuKdNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnBuKdNr._numbersOnlyTrennzeichen = True Me.txtRechnungAnBuKdNr._Prozent = False Me.txtRechnungAnBuKdNr._ShortDateNew = False Me.txtRechnungAnBuKdNr._ShortDateOnly = False @@ -2385,14 +2302,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnBuKdNr._Waehrung = False Me.txtRechnungAnBuKdNr._WaehrungZeichen = True Me.txtRechnungAnBuKdNr.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(722, 57) - Me.txtRechnungAnBuKdNr.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtRechnungAnBuKdNr.Location = New System.Drawing.Point(481, 37) Me.txtRechnungAnBuKdNr.MaxLength = 35 Me.txtRechnungAnBuKdNr.MaxLineLength = -1 Me.txtRechnungAnBuKdNr.MaxLines_Warning = "" Me.txtRechnungAnBuKdNr.MaxLines_Warning_Label = Nothing Me.txtRechnungAnBuKdNr.Name = "txtRechnungAnBuKdNr" - Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(139, 26) + Me.txtRechnungAnBuKdNr.Size = New System.Drawing.Size(94, 20) Me.txtRechnungAnBuKdNr.TabIndex = 10 Me.txtRechnungAnBuKdNr.TabStop = False ' @@ -2400,10 +2316,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label3.AutoSize = True Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(646, 62) - Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label3.Location = New System.Drawing.Point(431, 40) Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(73, 20) + Me.Label3.Size = New System.Drawing.Size(47, 13) Me.Label3.TabIndex = 9 Me.Label3.Text = "BuKdNr:" ' @@ -2412,6 +2327,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrRechnungAn._DateTimeOnly = False Me.txtkdNrRechnungAn._numbersOnly = False Me.txtkdNrRechnungAn._numbersOnlyKommastellen = "" + Me.txtkdNrRechnungAn._numbersOnlyTrennzeichen = True Me.txtkdNrRechnungAn._Prozent = False Me.txtkdNrRechnungAn._ShortDateNew = False Me.txtkdNrRechnungAn._ShortDateOnly = False @@ -2421,14 +2337,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrRechnungAn._Waehrung = False Me.txtkdNrRechnungAn._WaehrungZeichen = True Me.txtkdNrRechnungAn.ForeColor = System.Drawing.Color.Black - Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(12, 57) - Me.txtkdNrRechnungAn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtkdNrRechnungAn.Location = New System.Drawing.Point(8, 37) Me.txtkdNrRechnungAn.MaxLength = 35 Me.txtkdNrRechnungAn.MaxLineLength = -1 Me.txtkdNrRechnungAn.MaxLines_Warning = "" Me.txtkdNrRechnungAn.MaxLines_Warning_Label = Nothing Me.txtkdNrRechnungAn.Name = "txtkdNrRechnungAn" - Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(139, 26) + Me.txtkdNrRechnungAn.Size = New System.Drawing.Size(94, 20) Me.txtkdNrRechnungAn.TabIndex = 3 Me.txtkdNrRechnungAn.TabStop = False ' @@ -2437,6 +2352,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnOrt._DateTimeOnly = False Me.txtRechnungAnOrt._numbersOnly = False Me.txtRechnungAnOrt._numbersOnlyKommastellen = "" + Me.txtRechnungAnOrt._numbersOnlyTrennzeichen = True Me.txtRechnungAnOrt._Prozent = False Me.txtRechnungAnOrt._ShortDateNew = False Me.txtRechnungAnOrt._ShortDateOnly = False @@ -2446,14 +2362,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnOrt._Waehrung = False Me.txtRechnungAnOrt._WaehrungZeichen = True Me.txtRechnungAnOrt.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnOrt.Location = New System.Drawing.Point(152, 145) - Me.txtRechnungAnOrt.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtRechnungAnOrt.Location = New System.Drawing.Point(101, 94) Me.txtRechnungAnOrt.MaxLength = 52 Me.txtRechnungAnOrt.MaxLineLength = -1 Me.txtRechnungAnOrt.MaxLines_Warning = "" Me.txtRechnungAnOrt.MaxLines_Warning_Label = Nothing Me.txtRechnungAnOrt.Name = "txtRechnungAnOrt" - Me.txtRechnungAnOrt.Size = New System.Drawing.Size(457, 26) + Me.txtRechnungAnOrt.Size = New System.Drawing.Size(306, 20) Me.txtRechnungAnOrt.TabIndex = 17 Me.txtRechnungAnOrt.TabStop = False ' @@ -2462,6 +2377,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnStrasse._DateTimeOnly = False Me.txtRechnungAnStrasse._numbersOnly = False Me.txtRechnungAnStrasse._numbersOnlyKommastellen = "" + Me.txtRechnungAnStrasse._numbersOnlyTrennzeichen = True Me.txtRechnungAnStrasse._Prozent = False Me.txtRechnungAnStrasse._ShortDateNew = False Me.txtRechnungAnStrasse._ShortDateOnly = False @@ -2471,24 +2387,22 @@ Partial Class usrCntlFaktAbrechnung Me.txtRechnungAnStrasse._Waehrung = False Me.txtRechnungAnStrasse._WaehrungZeichen = True Me.txtRechnungAnStrasse.ForeColor = System.Drawing.Color.Black - Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(152, 115) - Me.txtRechnungAnStrasse.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtRechnungAnStrasse.Location = New System.Drawing.Point(101, 75) Me.txtRechnungAnStrasse.MaxLength = 40 Me.txtRechnungAnStrasse.MaxLineLength = -1 Me.txtRechnungAnStrasse.MaxLines_Warning = "" Me.txtRechnungAnStrasse.MaxLines_Warning_Label = Nothing Me.txtRechnungAnStrasse.Name = "txtRechnungAnStrasse" - Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(457, 26) + Me.txtRechnungAnStrasse.Size = New System.Drawing.Size(306, 20) Me.txtRechnungAnStrasse.TabIndex = 14 Me.txtRechnungAnStrasse.TabStop = False ' 'Label7 ' Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(612, 120) - Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label7.Location = New System.Drawing.Point(408, 78) Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(250, 20) + Me.Label7.Size = New System.Drawing.Size(167, 13) Me.Label7.TabIndex = 16 Me.Label7.Text = "-" Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -2505,10 +2419,9 @@ Partial Class usrCntlFaktAbrechnung Me.pnlAbsender.Controls.Add(Me.txtAbsenderOrt) Me.pnlAbsender.Controls.Add(Me.txtAbsenderStrasse) Me.pnlAbsender.Controls.Add(Me.FlatButton1) - Me.pnlAbsender.Location = New System.Drawing.Point(0, 223) - Me.pnlAbsender.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.pnlAbsender.Location = New System.Drawing.Point(0, 145) Me.pnlAbsender.Name = "pnlAbsender" - Me.pnlAbsender.Size = New System.Drawing.Size(622, 117) + Me.pnlAbsender.Size = New System.Drawing.Size(415, 77) Me.pnlAbsender.TabIndex = 5 ' 'txtkdNrAbsender @@ -2516,6 +2429,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrAbsender._DateTimeOnly = False Me.txtkdNrAbsender._numbersOnly = False Me.txtkdNrAbsender._numbersOnlyKommastellen = "" + Me.txtkdNrAbsender._numbersOnlyTrennzeichen = True Me.txtkdNrAbsender._Prozent = False Me.txtkdNrAbsender._ShortDateNew = False Me.txtkdNrAbsender._ShortDateOnly = False @@ -2527,15 +2441,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrAbsender.BackColor = System.Drawing.Color.WhiteSmoke Me.txtkdNrAbsender.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtkdNrAbsender.ForeColor = System.Drawing.Color.Black - Me.txtkdNrAbsender.Location = New System.Drawing.Point(12, 40) - Me.txtkdNrAbsender.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtkdNrAbsender.Location = New System.Drawing.Point(8, 26) Me.txtkdNrAbsender.MaxLength = 35 Me.txtkdNrAbsender.MaxLineLength = -1 Me.txtkdNrAbsender.MaxLines_Warning = "" Me.txtkdNrAbsender.MaxLines_Warning_Label = Nothing Me.txtkdNrAbsender.Name = "txtkdNrAbsender" Me.txtkdNrAbsender.ReadOnly = True - Me.txtkdNrAbsender.Size = New System.Drawing.Size(141, 19) + Me.txtkdNrAbsender.Size = New System.Drawing.Size(94, 13) Me.txtkdNrAbsender.TabIndex = 1 Me.txtkdNrAbsender.TabStop = False ' @@ -2545,10 +2458,10 @@ Partial Class usrCntlFaktAbrechnung Me.btnAbsenderEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnAbsenderEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) Me.btnAbsenderEuro.ForeColor = System.Drawing.Color.Silver - Me.btnAbsenderEuro.Location = New System.Drawing.Point(10, 46) + Me.btnAbsenderEuro.Location = New System.Drawing.Point(7, 30) Me.btnAbsenderEuro.Margin = New System.Windows.Forms.Padding(0) Me.btnAbsenderEuro.Name = "btnAbsenderEuro" - Me.btnAbsenderEuro.Size = New System.Drawing.Size(140, 57) + Me.btnAbsenderEuro.Size = New System.Drawing.Size(93, 37) Me.btnAbsenderEuro.TabIndex = 5 Me.btnAbsenderEuro.TabStop = False Me.btnAbsenderEuro.Text = "€" @@ -2573,13 +2486,12 @@ Partial Class usrCntlFaktAbrechnung Me.kdFirmaAbsender.KdNr = "-1" Me.kdFirmaAbsender.kdNrField = Nothing Me.kdFirmaAbsender.KdNrNullInt = Nothing - Me.kdFirmaAbsender.Location = New System.Drawing.Point(152, 5) - Me.kdFirmaAbsender.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.kdFirmaAbsender.Location = New System.Drawing.Point(101, 3) Me.kdFirmaAbsender.MaxLength = 35 Me.kdFirmaAbsender.Name = "kdFirmaAbsender" Me.kdFirmaAbsender.nurAktive = True Me.kdFirmaAbsender.searchActive = True - Me.kdFirmaAbsender.Size = New System.Drawing.Size(422, 26) + Me.kdFirmaAbsender.Size = New System.Drawing.Size(283, 20) Me.kdFirmaAbsender.TabIndex = 3 Me.kdFirmaAbsender.TabStop = False Me.kdFirmaAbsender.TIMER_SEARCH = True @@ -2590,6 +2502,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbsenderName2._DateTimeOnly = False Me.txtAbsenderName2._numbersOnly = False Me.txtAbsenderName2._numbersOnlyKommastellen = "" + Me.txtAbsenderName2._numbersOnlyTrennzeichen = True Me.txtAbsenderName2._Prozent = False Me.txtAbsenderName2._ShortDateNew = False Me.txtAbsenderName2._ShortDateOnly = False @@ -2601,14 +2514,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbsenderName2.BackColor = System.Drawing.Color.WhiteSmoke Me.txtAbsenderName2.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtAbsenderName2.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderName2.Location = New System.Drawing.Point(152, 40) - Me.txtAbsenderName2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAbsenderName2.Location = New System.Drawing.Point(101, 26) Me.txtAbsenderName2.MaxLength = 35 Me.txtAbsenderName2.MaxLineLength = -1 Me.txtAbsenderName2.MaxLines_Warning = "" Me.txtAbsenderName2.MaxLines_Warning_Label = Nothing Me.txtAbsenderName2.Name = "txtAbsenderName2" - Me.txtAbsenderName2.Size = New System.Drawing.Size(458, 19) + Me.txtAbsenderName2.Size = New System.Drawing.Size(305, 13) Me.txtAbsenderName2.TabIndex = 4 Me.txtAbsenderName2.TabStop = False ' @@ -2617,6 +2529,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbsenderOrt._DateTimeOnly = False Me.txtAbsenderOrt._numbersOnly = False Me.txtAbsenderOrt._numbersOnlyKommastellen = "" + Me.txtAbsenderOrt._numbersOnlyTrennzeichen = True Me.txtAbsenderOrt._Prozent = False Me.txtAbsenderOrt._ShortDateNew = False Me.txtAbsenderOrt._ShortDateOnly = False @@ -2628,14 +2541,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbsenderOrt.BackColor = System.Drawing.Color.WhiteSmoke Me.txtAbsenderOrt.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtAbsenderOrt.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderOrt.Location = New System.Drawing.Point(152, 83) - Me.txtAbsenderOrt.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAbsenderOrt.Location = New System.Drawing.Point(101, 54) Me.txtAbsenderOrt.MaxLength = 35 Me.txtAbsenderOrt.MaxLineLength = -1 Me.txtAbsenderOrt.MaxLines_Warning = "" Me.txtAbsenderOrt.MaxLines_Warning_Label = Nothing Me.txtAbsenderOrt.Name = "txtAbsenderOrt" - Me.txtAbsenderOrt.Size = New System.Drawing.Size(458, 19) + Me.txtAbsenderOrt.Size = New System.Drawing.Size(305, 13) Me.txtAbsenderOrt.TabIndex = 7 Me.txtAbsenderOrt.TabStop = False ' @@ -2644,6 +2556,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbsenderStrasse._DateTimeOnly = False Me.txtAbsenderStrasse._numbersOnly = False Me.txtAbsenderStrasse._numbersOnlyKommastellen = "" + Me.txtAbsenderStrasse._numbersOnlyTrennzeichen = True Me.txtAbsenderStrasse._Prozent = False Me.txtAbsenderStrasse._ShortDateNew = False Me.txtAbsenderStrasse._ShortDateOnly = False @@ -2655,14 +2568,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbsenderStrasse.BackColor = System.Drawing.Color.WhiteSmoke Me.txtAbsenderStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtAbsenderStrasse.ForeColor = System.Drawing.Color.Black - Me.txtAbsenderStrasse.Location = New System.Drawing.Point(152, 62) - Me.txtAbsenderStrasse.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAbsenderStrasse.Location = New System.Drawing.Point(101, 40) Me.txtAbsenderStrasse.MaxLength = 35 Me.txtAbsenderStrasse.MaxLineLength = -1 Me.txtAbsenderStrasse.MaxLines_Warning = "" Me.txtAbsenderStrasse.MaxLines_Warning_Label = Nothing Me.txtAbsenderStrasse.Name = "txtAbsenderStrasse" - Me.txtAbsenderStrasse.Size = New System.Drawing.Size(458, 19) + Me.txtAbsenderStrasse.Size = New System.Drawing.Size(305, 13) Me.txtAbsenderStrasse.TabIndex = 6 Me.txtAbsenderStrasse.TabStop = False ' @@ -2673,10 +2585,9 @@ Partial Class usrCntlFaktAbrechnung Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton1.ForeColor = System.Drawing.Color.Black Me.FlatButton1.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton1.Location = New System.Drawing.Point(573, 0) - Me.FlatButton1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.FlatButton1.Location = New System.Drawing.Point(382, 0) Me.FlatButton1.Name = "FlatButton1" - Me.FlatButton1.Size = New System.Drawing.Size(36, 38) + Me.FlatButton1.Size = New System.Drawing.Size(24, 25) Me.FlatButton1.TabIndex = 2 Me.FlatButton1.TabStop = False Me.FlatButton1.UseVisualStyleBackColor = True @@ -2709,19 +2620,19 @@ Partial Class usrCntlFaktAbrechnung Me.Panel7.Controls.Add(Me.Label18) Me.Panel7.Controls.Add(Me.lblVK_ZahlungseingangBemerkung) Me.Panel7.Controls.Add(Me.lblVK_Zahlungseingang) - Me.Panel7.Location = New System.Drawing.Point(0, 677) - Me.Panel7.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Panel7.Location = New System.Drawing.Point(0, 440) Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(1242, 697) + Me.Panel7.Size = New System.Drawing.Size(828, 453) Me.Panel7.TabIndex = 27 ' 'picVK ' Me.picVK.BackgroundImage = Global.SDL.My.Resources.Resources.ok Me.picVK.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picVK.Location = New System.Drawing.Point(520, 360) + Me.picVK.Location = New System.Drawing.Point(347, 234) + Me.picVK.Margin = New System.Windows.Forms.Padding(2) Me.picVK.Name = "picVK" - Me.picVK.Size = New System.Drawing.Size(33, 32) + Me.picVK.Size = New System.Drawing.Size(22, 21) Me.picVK.TabIndex = 37 Me.picVK.TabStop = False Me.picVK.Visible = False @@ -2729,10 +2640,9 @@ Partial Class usrCntlFaktAbrechnung 'Button1 ' Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.Location = New System.Drawing.Point(684, 5) - Me.Button1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button1.Location = New System.Drawing.Point(456, 3) Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(291, 35) + Me.Button1.Size = New System.Drawing.Size(194, 23) Me.Button1.TabIndex = 25 Me.Button1.Text = "Alle Leistungen laden (F2)" Me.Button1.UseVisualStyleBackColor = True @@ -2743,11 +2653,11 @@ Partial Class usrCntlFaktAbrechnung Me.Button12.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button12.Location = New System.Drawing.Point(1174, 357) - Me.Button12.Margin = New System.Windows.Forms.Padding(15, 5, 4, 5) + Me.Button12.Location = New System.Drawing.Point(783, 232) + Me.Button12.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button12.Name = "Button12" - Me.Button12.Padding = New System.Windows.Forms.Padding(30, 0, 0, 0) - Me.Button12.Size = New System.Drawing.Size(57, 31) + Me.Button12.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button12.Size = New System.Drawing.Size(38, 20) Me.Button12.TabIndex = 16 Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button12.UseVisualStyleBackColor = True @@ -2755,10 +2665,9 @@ Partial Class usrCntlFaktAbrechnung 'Label14 ' Me.Label14.AutoSize = True - Me.Label14.Location = New System.Drawing.Point(843, 363) - Me.Label14.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label14.Location = New System.Drawing.Point(562, 236) Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(87, 20) + Me.Label14.Size = New System.Drawing.Size(59, 13) Me.Label14.TabIndex = 15 Me.Label14.Text = "+ Leistung:" Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -2777,11 +2686,10 @@ Partial Class usrCntlFaktAbrechnung Me.sbLeistung.INVISIBLE_COLUMNS = Nothing Me.sbLeistung.key_visible = False Me.sbLeistung.KEYPARAM = Nothing - Me.sbLeistung.Location = New System.Drawing.Point(934, 357) - Me.sbLeistung.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.sbLeistung.Location = New System.Drawing.Point(623, 232) Me.sbLeistung.Name = "sbLeistung" Me.sbLeistung.searchActive = True - Me.sbLeistung.Size = New System.Drawing.Size(240, 26) + Me.sbLeistung.Size = New System.Drawing.Size(161, 20) Me.sbLeistung.SQL_ORDER_BY = Nothing Me.sbLeistung.SQL_SELECT = Nothing Me.sbLeistung.SQL_WHERE = Nothing @@ -2793,10 +2701,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Button7.Enabled = False Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button7.Location = New System.Drawing.Point(420, 5) - Me.Button7.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button7.Location = New System.Drawing.Point(280, 3) Me.Button7.Name = "Button7" - Me.Button7.Size = New System.Drawing.Size(255, 35) + Me.Button7.Size = New System.Drawing.Size(170, 23) Me.Button7.TabIndex = 13 Me.Button7.Text = "Leistungen nach KdNr (F1)" Me.Button7.UseVisualStyleBackColor = True @@ -2805,10 +2712,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.btnVorauskasseAnzeigen.Enabled = False Me.btnVorauskasseAnzeigen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnVorauskasseAnzeigen.Location = New System.Drawing.Point(330, 357) - Me.btnVorauskasseAnzeigen.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btnVorauskasseAnzeigen.Location = New System.Drawing.Point(220, 232) Me.btnVorauskasseAnzeigen.Name = "btnVorauskasseAnzeigen" - Me.btnVorauskasseAnzeigen.Size = New System.Drawing.Size(188, 35) + Me.btnVorauskasseAnzeigen.Size = New System.Drawing.Size(125, 23) Me.btnVorauskasseAnzeigen.TabIndex = 12 Me.btnVorauskasseAnzeigen.Text = "Vorauskasse anzeigen" Me.btnVorauskasseAnzeigen.UseVisualStyleBackColor = True @@ -2816,10 +2722,9 @@ Partial Class usrCntlFaktAbrechnung 'Button5 ' Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button5.Location = New System.Drawing.Point(134, 5) - Me.Button5.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button5.Location = New System.Drawing.Point(89, 3) Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(189, 35) + Me.Button5.Size = New System.Drawing.Size(126, 23) Me.Button5.TabIndex = 11 Me.Button5.Text = "Offerten bearbeiten" Me.Button5.UseVisualStyleBackColor = True @@ -2827,10 +2732,9 @@ Partial Class usrCntlFaktAbrechnung 'btn ' Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(984, 5) - Me.btn.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.btn.Location = New System.Drawing.Point(656, 3) Me.btn.Name = "btn" - Me.btn.Size = New System.Drawing.Size(248, 35) + Me.btn.Size = New System.Drawing.Size(165, 23) Me.btn.TabIndex = 10 Me.btn.Text = "ZOLL / EUST Daten (F3)" Me.btn.UseVisualStyleBackColor = True @@ -2840,6 +2744,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtUnterNrRef._DateTimeOnly = False Me.txtUnterNrRef._numbersOnly = False Me.txtUnterNrRef._numbersOnlyKommastellen = "" + Me.txtUnterNrRef._numbersOnlyTrennzeichen = True Me.txtUnterNrRef._Prozent = False Me.txtUnterNrRef._ShortDateNew = False Me.txtUnterNrRef._ShortDateOnly = False @@ -2849,13 +2754,12 @@ Partial Class usrCntlFaktAbrechnung Me.txtUnterNrRef._Waehrung = False Me.txtUnterNrRef._WaehrungZeichen = True Me.txtUnterNrRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtUnterNrRef.Location = New System.Drawing.Point(804, 106) - Me.txtUnterNrRef.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtUnterNrRef.Location = New System.Drawing.Point(536, 69) Me.txtUnterNrRef.MaxLineLength = -1 Me.txtUnterNrRef.MaxLines_Warning = "" Me.txtUnterNrRef.MaxLines_Warning_Label = Nothing Me.txtUnterNrRef.Name = "txtUnterNrRef" - Me.txtUnterNrRef.Size = New System.Drawing.Size(56, 28) + Me.txtUnterNrRef.Size = New System.Drawing.Size(39, 21) Me.txtUnterNrRef.TabIndex = 8 Me.txtUnterNrRef.Visible = False ' @@ -2867,10 +2771,9 @@ Partial Class usrCntlFaktAbrechnung Me.cboFilialeRef.DropDownWidth = 280 Me.cboFilialeRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) Me.cboFilialeRef.FormattingEnabled = True - Me.cboFilialeRef.Location = New System.Drawing.Point(434, 105) - Me.cboFilialeRef.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboFilialeRef.Location = New System.Drawing.Point(289, 68) Me.cboFilialeRef.Name = "cboFilialeRef" - Me.cboFilialeRef.Size = New System.Drawing.Size(118, 29) + Me.cboFilialeRef.Size = New System.Drawing.Size(80, 22) Me.cboFilialeRef.TabIndex = 6 Me.cboFilialeRef.Visible = False ' @@ -2879,6 +2782,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbfertigungsnummerRef._DateTimeOnly = False Me.txtAbfertigungsnummerRef._numbersOnly = False Me.txtAbfertigungsnummerRef._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummerRef._numbersOnlyTrennzeichen = True Me.txtAbfertigungsnummerRef._Prozent = False Me.txtAbfertigungsnummerRef._ShortDateNew = False Me.txtAbfertigungsnummerRef._ShortDateOnly = False @@ -2888,13 +2792,12 @@ Partial Class usrCntlFaktAbrechnung Me.txtAbfertigungsnummerRef._Waehrung = False Me.txtAbfertigungsnummerRef._WaehrungZeichen = True Me.txtAbfertigungsnummerRef.Font = New System.Drawing.Font("Microsoft Tai Le", 8.0!) - Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(552, 106) - Me.txtAbfertigungsnummerRef.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtAbfertigungsnummerRef.Location = New System.Drawing.Point(368, 69) Me.txtAbfertigungsnummerRef.MaxLineLength = -1 Me.txtAbfertigungsnummerRef.MaxLines_Warning = "" Me.txtAbfertigungsnummerRef.MaxLines_Warning_Label = Nothing Me.txtAbfertigungsnummerRef.Name = "txtAbfertigungsnummerRef" - Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(252, 28) + Me.txtAbfertigungsnummerRef.Size = New System.Drawing.Size(169, 21) Me.txtAbfertigungsnummerRef.TabIndex = 7 Me.txtAbfertigungsnummerRef.Visible = False ' @@ -2903,10 +2806,9 @@ Partial Class usrCntlFaktAbrechnung Me.Label26.AutoSize = True Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) Me.Label26.ForeColor = System.Drawing.Color.Black - Me.Label26.Location = New System.Drawing.Point(432, 86) - Me.Label26.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label26.Location = New System.Drawing.Point(288, 56) Me.Label26.Name = "Label26" - Me.Label26.Size = New System.Drawing.Size(79, 20) + Me.Label26.Size = New System.Drawing.Size(53, 13) Me.Label26.TabIndex = 9 Me.Label26.Text = "Referenz:" Me.Label26.Visible = False @@ -2914,10 +2816,9 @@ Partial Class usrCntlFaktAbrechnung 'Label31 ' Me.Label31.AutoSize = True - Me.Label31.Location = New System.Drawing.Point(10, 372) - Me.Label31.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label31.Location = New System.Drawing.Point(7, 242) Me.Label31.Name = "Label31" - Me.Label31.Size = New System.Drawing.Size(174, 20) + Me.Label31.Size = New System.Drawing.Size(117, 13) Me.Label31.TabIndex = 4 Me.Label31.Text = "Rechnungs-Positionen:" Me.Label31.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -2925,10 +2826,9 @@ Partial Class usrCntlFaktAbrechnung 'Label29 ' Me.Label29.AutoSize = True - Me.Label29.Location = New System.Drawing.Point(10, 20) - Me.Label29.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label29.Location = New System.Drawing.Point(7, 13) Me.Label29.Name = "Label29" - Me.Label29.Size = New System.Drawing.Size(114, 20) + Me.Label29.Size = New System.Drawing.Size(76, 13) Me.Label29.TabIndex = 0 Me.Label29.Text = "Kunden-Offert:" Me.Label29.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -2936,10 +2836,9 @@ Partial Class usrCntlFaktAbrechnung 'Label30 ' Me.Label30.AutoSize = True - Me.Label30.Location = New System.Drawing.Point(326, 20) - Me.Label30.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label30.Location = New System.Drawing.Point(217, 13) Me.Label30.Name = "Label30" - Me.Label30.Size = New System.Drawing.Size(87, 20) + Me.Label30.Size = New System.Drawing.Size(59, 13) Me.Label30.TabIndex = 1 Me.Label30.Text = "Positionen:" Me.Label30.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -2970,8 +2869,7 @@ Partial Class usrCntlFaktAbrechnung DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvRechnungenPositionen.DefaultCellStyle = DataGridViewCellStyle11 - Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(15, 397) - Me.dgvRechnungenPositionen.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.dgvRechnungenPositionen.Location = New System.Drawing.Point(10, 258) Me.dgvRechnungenPositionen.Name = "dgvRechnungenPositionen" Me.dgvRechnungenPositionen.ReadOnly = True DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft @@ -2985,7 +2883,7 @@ Partial Class usrCntlFaktAbrechnung Me.dgvRechnungenPositionen.RowHeadersVisible = False Me.dgvRechnungenPositionen.RowHeadersWidth = 62 Me.dgvRechnungenPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(1216, 291) + Me.dgvRechnungenPositionen.Size = New System.Drawing.Size(811, 189) Me.dgvRechnungenPositionen.TabIndex = 5 Me.dgvRechnungenPositionen.TabStop = False ' @@ -3076,8 +2974,7 @@ Partial Class usrCntlFaktAbrechnung DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvOffertenSperrliste.DefaultCellStyle = DataGridViewCellStyle14 - Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(16, 45) - Me.dgvOffertenSperrliste.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.dgvOffertenSperrliste.Location = New System.Drawing.Point(11, 29) Me.dgvOffertenSperrliste.MultiSelect = False Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste" Me.dgvOffertenSperrliste.ReadOnly = True @@ -3096,7 +2993,7 @@ Partial Class usrCntlFaktAbrechnung DataGridViewCellStyle16.SelectionForeColor = System.Drawing.Color.Black Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle16 Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(306, 309) + Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(204, 201) Me.dgvOffertenSperrliste.TabIndex = 2 Me.dgvOffertenSperrliste.TabStop = False ' @@ -3128,8 +3025,7 @@ Partial Class usrCntlFaktAbrechnung DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.dgvOfferteDetailsUebersicht.DefaultCellStyle = DataGridViewCellStyle19 - Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(330, 45) - Me.dgvOfferteDetailsUebersicht.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.dgvOfferteDetailsUebersicht.Location = New System.Drawing.Point(220, 29) Me.dgvOfferteDetailsUebersicht.MultiSelect = False Me.dgvOfferteDetailsUebersicht.Name = "dgvOfferteDetailsUebersicht" DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft @@ -3147,7 +3043,7 @@ Partial Class usrCntlFaktAbrechnung DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black Me.dgvOfferteDetailsUebersicht.RowsDefaultCellStyle = DataGridViewCellStyle21 Me.dgvOfferteDetailsUebersicht.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(902, 309) + Me.dgvOfferteDetailsUebersicht.Size = New System.Drawing.Size(601, 201) Me.dgvOfferteDetailsUebersicht.TabIndex = 3 ' 'txtRohmasse @@ -3155,6 +3051,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtRohmasse._DateTimeOnly = False Me.txtRohmasse._numbersOnly = False Me.txtRohmasse._numbersOnlyKommastellen = "" + Me.txtRohmasse._numbersOnlyTrennzeichen = True Me.txtRohmasse._Prozent = False Me.txtRohmasse._ShortDateNew = False Me.txtRohmasse._ShortDateOnly = False @@ -3164,24 +3061,22 @@ Partial Class usrCntlFaktAbrechnung Me.txtRohmasse._Waehrung = False Me.txtRohmasse._WaehrungZeichen = True Me.txtRohmasse.ForeColor = System.Drawing.Color.Black - Me.txtRohmasse.Location = New System.Drawing.Point(555, 177) - Me.txtRohmasse.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtRohmasse.Location = New System.Drawing.Point(370, 115) Me.txtRohmasse.MaxLength = 35 Me.txtRohmasse.MaxLineLength = -1 Me.txtRohmasse.MaxLines_Warning = "" Me.txtRohmasse.MaxLines_Warning_Label = Nothing Me.txtRohmasse.Name = "txtRohmasse" - Me.txtRohmasse.Size = New System.Drawing.Size(456, 26) + Me.txtRohmasse.Size = New System.Drawing.Size(305, 20) Me.txtRohmasse.TabIndex = 24 Me.txtRohmasse.Visible = False ' 'Label18 ' Me.Label18.AutoSize = True - Me.Label18.Location = New System.Drawing.Point(412, 182) - Me.Label18.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label18.Location = New System.Drawing.Point(275, 118) Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(90, 20) + Me.Label18.Size = New System.Drawing.Size(60, 13) Me.Label18.TabIndex = 23 Me.Label18.Text = "Rohmasse:" Me.Label18.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3190,10 +3085,9 @@ Partial Class usrCntlFaktAbrechnung 'lblVK_ZahlungseingangBemerkung ' Me.lblVK_ZahlungseingangBemerkung.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblVK_ZahlungseingangBemerkung.Location = New System.Drawing.Point(558, 375) - Me.lblVK_ZahlungseingangBemerkung.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblVK_ZahlungseingangBemerkung.Location = New System.Drawing.Point(372, 244) Me.lblVK_ZahlungseingangBemerkung.Name = "lblVK_ZahlungseingangBemerkung" - Me.lblVK_ZahlungseingangBemerkung.Size = New System.Drawing.Size(304, 23) + Me.lblVK_ZahlungseingangBemerkung.Size = New System.Drawing.Size(203, 15) Me.lblVK_ZahlungseingangBemerkung.TabIndex = 38 Me.lblVK_ZahlungseingangBemerkung.Text = "TEST" ' @@ -3201,10 +3095,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.lblVK_Zahlungseingang.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblVK_Zahlungseingang.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer)) - Me.lblVK_Zahlungseingang.Location = New System.Drawing.Point(558, 355) - Me.lblVK_Zahlungseingang.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblVK_Zahlungseingang.Location = New System.Drawing.Point(372, 231) Me.lblVK_Zahlungseingang.Name = "lblVK_Zahlungseingang" - Me.lblVK_Zahlungseingang.Size = New System.Drawing.Size(304, 28) + Me.lblVK_Zahlungseingang.Size = New System.Drawing.Size(203, 18) Me.lblVK_Zahlungseingang.TabIndex = 26 Me.lblVK_Zahlungseingang.Text = "TEST" ' @@ -3214,10 +3107,9 @@ Partial Class usrCntlFaktAbrechnung Me.cboWaehrung._allowFreiText = False Me.cboWaehrung._value = "" Me.cboWaehrung.FormattingEnabled = True - Me.cboWaehrung.Location = New System.Drawing.Point(776, 263) - Me.cboWaehrung.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboWaehrung.Location = New System.Drawing.Point(517, 171) Me.cboWaehrung.Name = "cboWaehrung" - Me.cboWaehrung.Size = New System.Drawing.Size(68, 28) + Me.cboWaehrung.Size = New System.Drawing.Size(47, 21) Me.cboWaehrung.TabIndex = 14 ' 'cboWaehrungUmrechnung @@ -3227,10 +3119,9 @@ Partial Class usrCntlFaktAbrechnung Me.cboWaehrungUmrechnung._value = "" Me.cboWaehrungUmrechnung.Enabled = False Me.cboWaehrungUmrechnung.FormattingEnabled = True - Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(776, 292) - Me.cboWaehrungUmrechnung.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboWaehrungUmrechnung.Location = New System.Drawing.Point(517, 190) Me.cboWaehrungUmrechnung.Name = "cboWaehrungUmrechnung" - Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(68, 28) + Me.cboWaehrungUmrechnung.Size = New System.Drawing.Size(47, 21) Me.cboWaehrungUmrechnung.TabIndex = 17 ' 'pnlEmpfaenger @@ -3245,10 +3136,9 @@ Partial Class usrCntlFaktAbrechnung Me.pnlEmpfaenger.Controls.Add(Me.txtEmpfaengerStrasse) Me.pnlEmpfaenger.Controls.Add(Me.kdFirmaEmpfaenger) Me.pnlEmpfaenger.Controls.Add(Me.FlatButton2) - Me.pnlEmpfaenger.Location = New System.Drawing.Point(0, 340) - Me.pnlEmpfaenger.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.pnlEmpfaenger.Location = New System.Drawing.Point(0, 221) Me.pnlEmpfaenger.Name = "pnlEmpfaenger" - Me.pnlEmpfaenger.Size = New System.Drawing.Size(622, 114) + Me.pnlEmpfaenger.Size = New System.Drawing.Size(415, 75) Me.pnlEmpfaenger.TabIndex = 6 ' 'txtkdNrEmpfaenger @@ -3256,6 +3146,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrEmpfaenger._DateTimeOnly = False Me.txtkdNrEmpfaenger._numbersOnly = False Me.txtkdNrEmpfaenger._numbersOnlyKommastellen = "" + Me.txtkdNrEmpfaenger._numbersOnlyTrennzeichen = True Me.txtkdNrEmpfaenger._Prozent = False Me.txtkdNrEmpfaenger._ShortDateNew = False Me.txtkdNrEmpfaenger._ShortDateOnly = False @@ -3267,15 +3158,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtkdNrEmpfaenger.BackColor = System.Drawing.Color.WhiteSmoke Me.txtkdNrEmpfaenger.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtkdNrEmpfaenger.ForeColor = System.Drawing.Color.Black - Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(12, 40) - Me.txtkdNrEmpfaenger.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtkdNrEmpfaenger.Location = New System.Drawing.Point(8, 26) Me.txtkdNrEmpfaenger.MaxLength = 35 Me.txtkdNrEmpfaenger.MaxLineLength = -1 Me.txtkdNrEmpfaenger.MaxLines_Warning = "" Me.txtkdNrEmpfaenger.MaxLines_Warning_Label = Nothing Me.txtkdNrEmpfaenger.Name = "txtkdNrEmpfaenger" Me.txtkdNrEmpfaenger.ReadOnly = True - Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(141, 19) + Me.txtkdNrEmpfaenger.Size = New System.Drawing.Size(94, 13) Me.txtkdNrEmpfaenger.TabIndex = 1 Me.txtkdNrEmpfaenger.TabStop = False ' @@ -3285,10 +3175,10 @@ Partial Class usrCntlFaktAbrechnung Me.btnEmpfaengerEuro.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnEmpfaengerEuro.Font = New System.Drawing.Font("Arial Black", 18.0!, System.Drawing.FontStyle.Bold) Me.btnEmpfaengerEuro.ForeColor = System.Drawing.Color.Silver - Me.btnEmpfaengerEuro.Location = New System.Drawing.Point(12, 40) + Me.btnEmpfaengerEuro.Location = New System.Drawing.Point(8, 26) Me.btnEmpfaengerEuro.Margin = New System.Windows.Forms.Padding(0) Me.btnEmpfaengerEuro.Name = "btnEmpfaengerEuro" - Me.btnEmpfaengerEuro.Size = New System.Drawing.Size(140, 63) + Me.btnEmpfaengerEuro.Size = New System.Drawing.Size(93, 41) Me.btnEmpfaengerEuro.TabIndex = 5 Me.btnEmpfaengerEuro.TabStop = False Me.btnEmpfaengerEuro.Text = "€" @@ -3299,6 +3189,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtEmpfeangerName2._DateTimeOnly = False Me.txtEmpfeangerName2._numbersOnly = False Me.txtEmpfeangerName2._numbersOnlyKommastellen = "" + Me.txtEmpfeangerName2._numbersOnlyTrennzeichen = True Me.txtEmpfeangerName2._Prozent = False Me.txtEmpfeangerName2._ShortDateNew = False Me.txtEmpfeangerName2._ShortDateOnly = False @@ -3310,14 +3201,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtEmpfeangerName2.BackColor = System.Drawing.Color.WhiteSmoke Me.txtEmpfeangerName2.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtEmpfeangerName2.ForeColor = System.Drawing.Color.Black - Me.txtEmpfeangerName2.Location = New System.Drawing.Point(152, 40) - Me.txtEmpfeangerName2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEmpfeangerName2.Location = New System.Drawing.Point(101, 26) Me.txtEmpfeangerName2.MaxLength = 35 Me.txtEmpfeangerName2.MaxLineLength = -1 Me.txtEmpfeangerName2.MaxLines_Warning = "" Me.txtEmpfeangerName2.MaxLines_Warning_Label = Nothing Me.txtEmpfeangerName2.Name = "txtEmpfeangerName2" - Me.txtEmpfeangerName2.Size = New System.Drawing.Size(458, 19) + Me.txtEmpfeangerName2.Size = New System.Drawing.Size(305, 13) Me.txtEmpfeangerName2.TabIndex = 4 Me.txtEmpfeangerName2.TabStop = False ' @@ -3325,10 +3215,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label5.AutoSize = True Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) - Me.Label5.Location = New System.Drawing.Point(4, 9) - Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label5.Location = New System.Drawing.Point(3, 6) Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(122, 20) + Me.Label5.Size = New System.Drawing.Size(86, 13) Me.Label5.TabIndex = 0 Me.Label5.Text = "2. Empfänger:" ' @@ -3337,6 +3226,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtEmpfaengerOrt._DateTimeOnly = False Me.txtEmpfaengerOrt._numbersOnly = False Me.txtEmpfaengerOrt._numbersOnlyKommastellen = "" + Me.txtEmpfaengerOrt._numbersOnlyTrennzeichen = True Me.txtEmpfaengerOrt._Prozent = False Me.txtEmpfaengerOrt._ShortDateNew = False Me.txtEmpfaengerOrt._ShortDateOnly = False @@ -3348,14 +3238,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtEmpfaengerOrt.BackColor = System.Drawing.Color.WhiteSmoke Me.txtEmpfaengerOrt.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtEmpfaengerOrt.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(152, 83) - Me.txtEmpfaengerOrt.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEmpfaengerOrt.Location = New System.Drawing.Point(101, 54) Me.txtEmpfaengerOrt.MaxLength = 35 Me.txtEmpfaengerOrt.MaxLineLength = -1 Me.txtEmpfaengerOrt.MaxLines_Warning = "" Me.txtEmpfaengerOrt.MaxLines_Warning_Label = Nothing Me.txtEmpfaengerOrt.Name = "txtEmpfaengerOrt" - Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(458, 19) + Me.txtEmpfaengerOrt.Size = New System.Drawing.Size(305, 13) Me.txtEmpfaengerOrt.TabIndex = 7 Me.txtEmpfaengerOrt.TabStop = False ' @@ -3364,6 +3253,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtEmpfaengerStrasse._DateTimeOnly = False Me.txtEmpfaengerStrasse._numbersOnly = False Me.txtEmpfaengerStrasse._numbersOnlyKommastellen = "" + Me.txtEmpfaengerStrasse._numbersOnlyTrennzeichen = True Me.txtEmpfaengerStrasse._Prozent = False Me.txtEmpfaengerStrasse._ShortDateNew = False Me.txtEmpfaengerStrasse._ShortDateOnly = False @@ -3375,14 +3265,13 @@ Partial Class usrCntlFaktAbrechnung Me.txtEmpfaengerStrasse.BackColor = System.Drawing.Color.WhiteSmoke Me.txtEmpfaengerStrasse.BorderStyle = System.Windows.Forms.BorderStyle.None Me.txtEmpfaengerStrasse.ForeColor = System.Drawing.Color.Black - Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(152, 62) - Me.txtEmpfaengerStrasse.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtEmpfaengerStrasse.Location = New System.Drawing.Point(101, 40) Me.txtEmpfaengerStrasse.MaxLength = 35 Me.txtEmpfaengerStrasse.MaxLineLength = -1 Me.txtEmpfaengerStrasse.MaxLines_Warning = "" Me.txtEmpfaengerStrasse.MaxLines_Warning_Label = Nothing Me.txtEmpfaengerStrasse.Name = "txtEmpfaengerStrasse" - Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(458, 19) + Me.txtEmpfaengerStrasse.Size = New System.Drawing.Size(305, 13) Me.txtEmpfaengerStrasse.TabIndex = 6 Me.txtEmpfaengerStrasse.TabStop = False ' @@ -3405,13 +3294,12 @@ Partial Class usrCntlFaktAbrechnung Me.kdFirmaEmpfaenger.KdNr = "-1" Me.kdFirmaEmpfaenger.kdNrField = Nothing Me.kdFirmaEmpfaenger.KdNrNullInt = Nothing - Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(152, 5) - Me.kdFirmaEmpfaenger.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.kdFirmaEmpfaenger.Location = New System.Drawing.Point(101, 3) Me.kdFirmaEmpfaenger.MaxLength = 35 Me.kdFirmaEmpfaenger.Name = "kdFirmaEmpfaenger" Me.kdFirmaEmpfaenger.nurAktive = True Me.kdFirmaEmpfaenger.searchActive = True - Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(422, 26) + Me.kdFirmaEmpfaenger.Size = New System.Drawing.Size(283, 20) Me.kdFirmaEmpfaenger.TabIndex = 3 Me.kdFirmaEmpfaenger.TabStop = False Me.kdFirmaEmpfaenger.TIMER_SEARCH = True @@ -3424,10 +3312,9 @@ Partial Class usrCntlFaktAbrechnung Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton2.ForeColor = System.Drawing.Color.Black Me.FlatButton2.Image = Global.SDL.My.Resources.Resources.personInaktiv - Me.FlatButton2.Location = New System.Drawing.Point(573, 0) - Me.FlatButton2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.FlatButton2.Location = New System.Drawing.Point(382, 0) Me.FlatButton2.Name = "FlatButton2" - Me.FlatButton2.Size = New System.Drawing.Size(36, 38) + Me.FlatButton2.Size = New System.Drawing.Size(24, 25) Me.FlatButton2.TabIndex = 2 Me.FlatButton2.TabStop = False Me.FlatButton2.UseVisualStyleBackColor = True @@ -3466,19 +3353,17 @@ Partial Class usrCntlFaktAbrechnung Me.pnl.Controls.Add(Me.pnlDocs) Me.pnl.Controls.Add(Me.cbxAdmin) Me.pnl.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnl.Location = New System.Drawing.Point(0, 1893) - Me.pnl.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.pnl.Location = New System.Drawing.Point(0, 1226) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(1245, 245) + Me.pnl.Size = New System.Drawing.Size(830, 164) Me.pnl.TabIndex = 2 ' 'lblEUR_1 ' Me.lblEUR_1.AutoSize = True - Me.lblEUR_1.Location = New System.Drawing.Point(958, 91) - Me.lblEUR_1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEUR_1.Location = New System.Drawing.Point(639, 59) Me.lblEUR_1.Name = "lblEUR_1" - Me.lblEUR_1.Size = New System.Drawing.Size(44, 20) + Me.lblEUR_1.Size = New System.Drawing.Size(30, 13) Me.lblEUR_1.TabIndex = 239 Me.lblEUR_1.Text = "EUR" Me.lblEUR_1.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3486,10 +3371,9 @@ Partial Class usrCntlFaktAbrechnung 'lblEUR_2 ' Me.lblEUR_2.AutoSize = True - Me.lblEUR_2.Location = New System.Drawing.Point(958, 118) - Me.lblEUR_2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEUR_2.Location = New System.Drawing.Point(639, 77) Me.lblEUR_2.Name = "lblEUR_2" - Me.lblEUR_2.Size = New System.Drawing.Size(44, 20) + Me.lblEUR_2.Size = New System.Drawing.Size(30, 13) Me.lblEUR_2.TabIndex = 238 Me.lblEUR_2.Text = "EUR" Me.lblEUR_2.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3497,10 +3381,9 @@ Partial Class usrCntlFaktAbrechnung 'lblEUR_4 ' Me.lblEUR_4.AutoSize = True - Me.lblEUR_4.Location = New System.Drawing.Point(958, 180) - Me.lblEUR_4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEUR_4.Location = New System.Drawing.Point(639, 117) Me.lblEUR_4.Name = "lblEUR_4" - Me.lblEUR_4.Size = New System.Drawing.Size(44, 20) + Me.lblEUR_4.Size = New System.Drawing.Size(30, 13) Me.lblEUR_4.TabIndex = 237 Me.lblEUR_4.Text = "EUR" Me.lblEUR_4.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3508,10 +3391,9 @@ Partial Class usrCntlFaktAbrechnung 'Label55 ' Me.Label55.AutoSize = True - Me.Label55.Location = New System.Drawing.Point(632, 118) - Me.Label55.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label55.Location = New System.Drawing.Point(421, 77) Me.Label55.Name = "Label55" - Me.Label55.Size = New System.Drawing.Size(149, 20) + Me.Label55.Size = New System.Drawing.Size(98, 13) Me.Label55.TabIndex = 236 Me.Label55.Text = "Steuerfreier Betrag:" Me.Label55.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3524,30 +3406,28 @@ Partial Class usrCntlFaktAbrechnung Me.cboSteuerschlüssel.CausesValidation = False Me.cboSteuerschlüssel.DropDownWidth = 350 Me.cboSteuerschlüssel.FormattingEnabled = True - Me.cboSteuerschlüssel.Location = New System.Drawing.Point(694, 46) - Me.cboSteuerschlüssel.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cboSteuerschlüssel.Location = New System.Drawing.Point(463, 30) Me.cboSteuerschlüssel.Name = "cboSteuerschlüssel" - Me.cboSteuerschlüssel.Size = New System.Drawing.Size(216, 28) + Me.cboSteuerschlüssel.Size = New System.Drawing.Size(145, 21) Me.cboSteuerschlüssel.TabIndex = 3 ' 'rtbAbf_Besonderheiten ' Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(15, 29) - Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(6, 8, 6, 8) + Me.rtbAbf_Besonderheiten.Location = New System.Drawing.Point(10, 19) + Me.rtbAbf_Besonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.rtbAbf_Besonderheiten.Name = "rtbAbf_Besonderheiten" - Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(160, 204) + Me.rtbAbf_Besonderheiten.Size = New System.Drawing.Size(107, 133) Me.rtbAbf_Besonderheiten.TabIndex = 235 Me.rtbAbf_Besonderheiten.Visible = False ' 'cbxOriginalPrint ' Me.cbxOriginalPrint.AutoSize = True - Me.cbxOriginalPrint.Location = New System.Drawing.Point(802, 9) - Me.cbxOriginalPrint.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cbxOriginalPrint.Location = New System.Drawing.Point(535, 6) Me.cbxOriginalPrint.Name = "cbxOriginalPrint" - Me.cbxOriginalPrint.Size = New System.Drawing.Size(194, 24) + Me.cbxOriginalPrint.Size = New System.Drawing.Size(134, 17) Me.cbxOriginalPrint.TabIndex = 28 Me.cbxOriginalPrint.Text = "Original (ohne ""Kopie"")" Me.cbxOriginalPrint.UseVisualStyleBackColor = True @@ -3558,10 +3438,9 @@ Partial Class usrCntlFaktAbrechnung Me.Label46.AutoSize = True Me.Label46.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label46.ForeColor = System.Drawing.Color.Green - Me.Label46.Location = New System.Drawing.Point(1080, 183) - Me.Label46.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label46.Location = New System.Drawing.Point(720, 119) Me.Label46.Name = "Label46" - Me.Label46.Size = New System.Drawing.Size(107, 20) + Me.Label46.Size = New System.Drawing.Size(73, 13) Me.Label46.TabIndex = 21 Me.Label46.Text = "gespeichert" Me.Label46.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3573,11 +3452,11 @@ Partial Class usrCntlFaktAbrechnung Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button9.Location = New System.Drawing.Point(1006, 40) - Me.Button9.Margin = New System.Windows.Forms.Padding(15, 5, 4, 5) + Me.Button9.Location = New System.Drawing.Point(671, 26) + Me.Button9.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button9.Name = "Button9" - Me.Button9.Padding = New System.Windows.Forms.Padding(30, 0, 0, 0) - Me.Button9.Size = New System.Drawing.Size(75, 38) + Me.Button9.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button9.Size = New System.Drawing.Size(50, 25) Me.Button9.TabIndex = 19 Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button9.UseVisualStyleBackColor = True @@ -3588,11 +3467,11 @@ Partial Class usrCntlFaktAbrechnung Me.Button8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button8.Location = New System.Drawing.Point(1080, 40) - Me.Button8.Margin = New System.Windows.Forms.Padding(15, 5, 4, 5) + Me.Button8.Location = New System.Drawing.Point(720, 26) + Me.Button8.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button8.Name = "Button8" - Me.Button8.Padding = New System.Windows.Forms.Padding(30, 0, 0, 0) - Me.Button8.Size = New System.Drawing.Size(75, 38) + Me.Button8.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button8.Size = New System.Drawing.Size(50, 25) Me.Button8.TabIndex = 18 Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button8.UseVisualStyleBackColor = True @@ -3603,11 +3482,11 @@ Partial Class usrCntlFaktAbrechnung Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button4.Location = New System.Drawing.Point(1154, 40) - Me.Button4.Margin = New System.Windows.Forms.Padding(15, 5, 4, 5) + Me.Button4.Location = New System.Drawing.Point(769, 26) + Me.Button4.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button4.Name = "Button4" - Me.Button4.Padding = New System.Windows.Forms.Padding(30, 0, 0, 0) - Me.Button4.Size = New System.Drawing.Size(75, 38) + Me.Button4.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button4.Size = New System.Drawing.Size(50, 25) Me.Button4.TabIndex = 15 Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button4.UseVisualStyleBackColor = True @@ -3617,10 +3496,9 @@ Partial Class usrCntlFaktAbrechnung Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(1006, 5) - Me.Button3.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.Button3.Location = New System.Drawing.Point(671, 3) Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(222, 38) + Me.Button3.Size = New System.Drawing.Size(148, 25) Me.Button3.TabIndex = 14 Me.Button3.Text = "Vorschau" Me.Button3.UseVisualStyleBackColor = True @@ -3629,10 +3507,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label40.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold) Me.Label40.ForeColor = System.Drawing.Color.Red - Me.Label40.Location = New System.Drawing.Point(626, 207) - Me.Label40.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label40.Location = New System.Drawing.Point(417, 135) Me.Label40.Name = "Label40" - Me.Label40.Size = New System.Drawing.Size(612, 26) + Me.Label40.Size = New System.Drawing.Size(408, 17) Me.Label40.TabIndex = 13 Me.Label40.Text = "ERROR:" Me.Label40.Visible = False @@ -3642,11 +3519,11 @@ Partial Class usrCntlFaktAbrechnung Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button2.Image = Global.SDL.My.Resources.Resources.del Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(1006, 86) - Me.Button2.Margin = New System.Windows.Forms.Padding(15, 5, 4, 5) + Me.Button2.Location = New System.Drawing.Point(671, 56) + Me.Button2.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.Button2.Name = "Button2" - Me.Button2.Padding = New System.Windows.Forms.Padding(30, 0, 0, 0) - Me.Button2.Size = New System.Drawing.Size(224, 40) + Me.Button2.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.Button2.Size = New System.Drawing.Size(149, 26) Me.Button2.TabIndex = 16 Me.Button2.Text = "Löschen" Me.Button2.UseVisualStyleBackColor = True @@ -3656,11 +3533,11 @@ Partial Class usrCntlFaktAbrechnung Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnOK.Image = CType(resources.GetObject("btnOK.Image"), System.Drawing.Image) Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnOK.Location = New System.Drawing.Point(1006, 125) - Me.btnOK.Margin = New System.Windows.Forms.Padding(15, 5, 4, 5) + Me.btnOK.Location = New System.Drawing.Point(671, 81) + Me.btnOK.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) Me.btnOK.Name = "btnOK" - Me.btnOK.Padding = New System.Windows.Forms.Padding(30, 0, 0, 0) - Me.btnOK.Size = New System.Drawing.Size(224, 82) + Me.btnOK.Padding = New System.Windows.Forms.Padding(20, 0, 0, 0) + Me.btnOK.Size = New System.Drawing.Size(149, 53) Me.btnOK.TabIndex = 17 Me.btnOK.Text = "OK" & Global.Microsoft.VisualBasic.ChrW(10) & "(Speichern)" Me.btnOK.UseVisualStyleBackColor = True @@ -3669,10 +3546,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label23.AutoSize = True Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label23.Location = New System.Drawing.Point(630, 49) - Me.Label23.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label23.Location = New System.Drawing.Point(420, 32) Me.Label23.Name = "Label23" - Me.Label23.Size = New System.Drawing.Size(63, 20) + Me.Label23.Size = New System.Drawing.Size(41, 13) Me.Label23.TabIndex = 2 Me.Label23.Text = "Steuer:" ' @@ -3681,6 +3557,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuersatz._DateTimeOnly = False Me.txtSteuersatz._numbersOnly = False Me.txtSteuersatz._numbersOnlyKommastellen = "" + Me.txtSteuersatz._numbersOnlyTrennzeichen = True Me.txtSteuersatz._Prozent = True Me.txtSteuersatz._ShortDateNew = False Me.txtSteuersatz._ShortDateOnly = False @@ -3690,15 +3567,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuersatz._Waehrung = False Me.txtSteuersatz._WaehrungZeichen = True Me.txtSteuersatz.ForeColor = System.Drawing.Color.Black - Me.txtSteuersatz.Location = New System.Drawing.Point(904, 46) - Me.txtSteuersatz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtSteuersatz.Location = New System.Drawing.Point(603, 30) Me.txtSteuersatz.MaxLineLength = -1 Me.txtSteuersatz.MaxLines_Warning = "" Me.txtSteuersatz.MaxLines_Warning_Label = Nothing Me.txtSteuersatz.Multiline = True Me.txtSteuersatz.Name = "txtSteuersatz" Me.txtSteuersatz.ReadOnly = True - Me.txtSteuersatz.Size = New System.Drawing.Size(90, 30) + Me.txtSteuersatz.Size = New System.Drawing.Size(61, 21) Me.txtSteuersatz.TabIndex = 4 Me.txtSteuersatz.Text = "0,00 %" Me.txtSteuersatz.TextAlign = System.Windows.Forms.HorizontalAlignment.Right @@ -3708,6 +3584,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerFreierBetrag._DateTimeOnly = False Me.txtSteuerFreierBetrag._numbersOnly = False Me.txtSteuerFreierBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerFreierBetrag._numbersOnlyTrennzeichen = True Me.txtSteuerFreierBetrag._Prozent = False Me.txtSteuerFreierBetrag._ShortDateNew = False Me.txtSteuerFreierBetrag._ShortDateOnly = False @@ -3717,25 +3594,23 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerFreierBetrag._Waehrung = True Me.txtSteuerFreierBetrag._WaehrungZeichen = False Me.txtSteuerFreierBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(810, 140) - Me.txtSteuerFreierBetrag.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtSteuerFreierBetrag.Location = New System.Drawing.Point(540, 91) Me.txtSteuerFreierBetrag.MaxLength = 35 Me.txtSteuerFreierBetrag.MaxLineLength = -1 Me.txtSteuerFreierBetrag.MaxLines_Warning = "" Me.txtSteuerFreierBetrag.MaxLines_Warning_Label = Nothing Me.txtSteuerFreierBetrag.Name = "txtSteuerFreierBetrag" Me.txtSteuerFreierBetrag.ReadOnly = True - Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(145, 26) + Me.txtSteuerFreierBetrag.Size = New System.Drawing.Size(98, 20) Me.txtSteuerFreierBetrag.TabIndex = 10 Me.txtSteuerFreierBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label37 ' Me.Label37.AutoSize = True - Me.Label37.Location = New System.Drawing.Point(628, 145) - Me.Label37.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label37.Location = New System.Drawing.Point(419, 94) Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(149, 20) + Me.Label37.Size = New System.Drawing.Size(98, 13) Me.Label37.TabIndex = 9 Me.Label37.Text = "Steuerfreier Betrag:" Me.Label37.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3743,10 +3618,9 @@ Partial Class usrCntlFaktAbrechnung 'lblEUR_3 ' Me.lblEUR_3.AutoSize = True - Me.lblEUR_3.Location = New System.Drawing.Point(958, 145) - Me.lblEUR_3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblEUR_3.Location = New System.Drawing.Point(639, 94) Me.lblEUR_3.Name = "lblEUR_3" - Me.lblEUR_3.Size = New System.Drawing.Size(44, 20) + Me.lblEUR_3.Size = New System.Drawing.Size(30, 13) Me.lblEUR_3.TabIndex = 7 Me.lblEUR_3.Text = "EUR" Me.lblEUR_3.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3756,6 +3630,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtGesamtsumme._DateTimeOnly = False Me.txtGesamtsumme._numbersOnly = False Me.txtGesamtsumme._numbersOnlyKommastellen = "" + Me.txtGesamtsumme._numbersOnlyTrennzeichen = True Me.txtGesamtsumme._Prozent = False Me.txtGesamtsumme._ShortDateNew = False Me.txtGesamtsumme._ShortDateOnly = False @@ -3765,15 +3640,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtGesamtsumme._Waehrung = True Me.txtGesamtsumme._WaehrungZeichen = False Me.txtGesamtsumme.ForeColor = System.Drawing.Color.Black - Me.txtGesamtsumme.Location = New System.Drawing.Point(810, 175) - Me.txtGesamtsumme.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtGesamtsumme.Location = New System.Drawing.Point(540, 114) Me.txtGesamtsumme.MaxLength = 35 Me.txtGesamtsumme.MaxLineLength = -1 Me.txtGesamtsumme.MaxLines_Warning = "" Me.txtGesamtsumme.MaxLines_Warning_Label = Nothing Me.txtGesamtsumme.Name = "txtGesamtsumme" Me.txtGesamtsumme.ReadOnly = True - Me.txtGesamtsumme.Size = New System.Drawing.Size(145, 26) + Me.txtGesamtsumme.Size = New System.Drawing.Size(98, 20) Me.txtGesamtsumme.TabIndex = 12 Me.txtGesamtsumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' @@ -3782,6 +3656,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerBetrag._DateTimeOnly = False Me.txtSteuerBetrag._numbersOnly = False Me.txtSteuerBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerBetrag._numbersOnlyTrennzeichen = True Me.txtSteuerBetrag._Prozent = False Me.txtSteuerBetrag._ShortDateNew = False Me.txtSteuerBetrag._ShortDateOnly = False @@ -3791,15 +3666,14 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerBetrag._Waehrung = True Me.txtSteuerBetrag._WaehrungZeichen = False Me.txtSteuerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerBetrag.Location = New System.Drawing.Point(810, 114) - Me.txtSteuerBetrag.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtSteuerBetrag.Location = New System.Drawing.Point(540, 74) Me.txtSteuerBetrag.MaxLength = 35 Me.txtSteuerBetrag.MaxLineLength = -1 Me.txtSteuerBetrag.MaxLines_Warning = "" Me.txtSteuerBetrag.MaxLines_Warning_Label = Nothing Me.txtSteuerBetrag.Name = "txtSteuerBetrag" Me.txtSteuerBetrag.ReadOnly = True - Me.txtSteuerBetrag.Size = New System.Drawing.Size(145, 26) + Me.txtSteuerBetrag.Size = New System.Drawing.Size(98, 20) Me.txtSteuerBetrag.TabIndex = 8 Me.txtSteuerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' @@ -3808,6 +3682,7 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerpflichtigerBetrag._DateTimeOnly = False Me.txtSteuerpflichtigerBetrag._numbersOnly = False Me.txtSteuerpflichtigerBetrag._numbersOnlyKommastellen = "" + Me.txtSteuerpflichtigerBetrag._numbersOnlyTrennzeichen = True Me.txtSteuerpflichtigerBetrag._Prozent = False Me.txtSteuerpflichtigerBetrag._ShortDateNew = False Me.txtSteuerpflichtigerBetrag._ShortDateOnly = False @@ -3817,25 +3692,23 @@ Partial Class usrCntlFaktAbrechnung Me.txtSteuerpflichtigerBetrag._Waehrung = True Me.txtSteuerpflichtigerBetrag._WaehrungZeichen = False Me.txtSteuerpflichtigerBetrag.ForeColor = System.Drawing.Color.Black - Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(810, 86) - Me.txtSteuerpflichtigerBetrag.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtSteuerpflichtigerBetrag.Location = New System.Drawing.Point(540, 56) Me.txtSteuerpflichtigerBetrag.MaxLength = 35 Me.txtSteuerpflichtigerBetrag.MaxLineLength = -1 Me.txtSteuerpflichtigerBetrag.MaxLines_Warning = "" Me.txtSteuerpflichtigerBetrag.MaxLines_Warning_Label = Nothing Me.txtSteuerpflichtigerBetrag.Name = "txtSteuerpflichtigerBetrag" Me.txtSteuerpflichtigerBetrag.ReadOnly = True - Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(145, 26) + Me.txtSteuerpflichtigerBetrag.Size = New System.Drawing.Size(98, 20) Me.txtSteuerpflichtigerBetrag.TabIndex = 6 Me.txtSteuerpflichtigerBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'Label33 ' Me.Label33.AutoSize = True - Me.Label33.Location = New System.Drawing.Point(628, 91) - Me.Label33.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label33.Location = New System.Drawing.Point(419, 59) Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(181, 20) + Me.Label33.Size = New System.Drawing.Size(120, 13) Me.Label33.TabIndex = 5 Me.Label33.Text = "Steuerpflichtiger Betrag:" Me.Label33.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3844,10 +3717,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label35.AutoSize = True Me.Label35.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label35.Location = New System.Drawing.Point(628, 180) - Me.Label35.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label35.Location = New System.Drawing.Point(419, 117) Me.Label35.Name = "Label35" - Me.Label35.Size = New System.Drawing.Size(140, 20) + Me.Label35.Size = New System.Drawing.Size(91, 13) Me.Label35.TabIndex = 11 Me.Label35.Text = "Gesamtsumme:" Me.Label35.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3855,23 +3727,21 @@ Partial Class usrCntlFaktAbrechnung 'Label28 ' Me.Label28.AutoSize = True - Me.Label28.Location = New System.Drawing.Point(9, 3) - Me.Label28.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label28.Location = New System.Drawing.Point(6, 2) Me.Label28.Name = "Label28" - Me.Label28.Size = New System.Drawing.Size(236, 20) + Me.Label28.Size = New System.Drawing.Size(157, 13) Me.Label28.TabIndex = 0 Me.Label28.Text = "Besonderheiten für Verrechung:" Me.Label28.TextAlign = System.Drawing.ContentAlignment.TopRight ' 'txtBesonderheiten ' - Me.txtBesonderheiten.Location = New System.Drawing.Point(14, 26) - Me.txtBesonderheiten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.txtBesonderheiten.Location = New System.Drawing.Point(9, 17) Me.txtBesonderheiten.MaxLineLength = -1 Me.txtBesonderheiten.MaxLines_Warning = "" Me.txtBesonderheiten.MaxLines_Warning_Label = Nothing Me.txtBesonderheiten.Name = "txtBesonderheiten" - Me.txtBesonderheiten.Size = New System.Drawing.Size(606, 199) + Me.txtBesonderheiten.Size = New System.Drawing.Size(405, 131) Me.txtBesonderheiten.TabIndex = 1 Me.txtBesonderheiten.Text = "" ' @@ -3881,10 +3751,9 @@ Partial Class usrCntlFaktAbrechnung Me.pnlDocs.Controls.Add(Me.Label51) Me.pnlDocs.Controls.Add(Me.PictureBox2) Me.pnlDocs.Controls.Add(Me.Label50) - Me.pnlDocs.Location = New System.Drawing.Point(382, -2) - Me.pnlDocs.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.pnlDocs.Location = New System.Drawing.Point(255, -1) Me.pnlDocs.Name = "pnlDocs" - Me.pnlDocs.Size = New System.Drawing.Size(194, 26) + Me.pnlDocs.Size = New System.Drawing.Size(129, 17) Me.pnlDocs.TabIndex = 27 Me.pnlDocs.Visible = False ' @@ -3892,10 +3761,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox1.Location = New System.Drawing.Point(28, 2) - Me.PictureBox1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.PictureBox1.Location = New System.Drawing.Point(19, 1) Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(24, 25) + Me.PictureBox1.Size = New System.Drawing.Size(16, 16) Me.PictureBox1.TabIndex = 23 Me.PictureBox1.TabStop = False ' @@ -3903,10 +3771,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label51.AutoSize = True Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label51.Location = New System.Drawing.Point(135, 3) - Me.Label51.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label51.Location = New System.Drawing.Point(90, 2) Me.Label51.Name = "Label51" - Me.Label51.Size = New System.Drawing.Size(36, 17) + Me.Label51.Size = New System.Drawing.Size(29, 13) Me.Label51.TabIndex = 26 Me.Label51.Text = "VBD" Me.Label51.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3915,10 +3782,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.PictureBox2.BackgroundImage = Global.SDL.My.Resources.Resources.ok Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox2.Location = New System.Drawing.Point(111, 2) - Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.PictureBox2.Location = New System.Drawing.Point(74, 1) Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(24, 25) + Me.PictureBox2.Size = New System.Drawing.Size(16, 16) Me.PictureBox2.TabIndex = 25 Me.PictureBox2.TabStop = False ' @@ -3926,10 +3792,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.Label50.AutoSize = True Me.Label50.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) - Me.Label50.Location = New System.Drawing.Point(52, 3) - Me.Label50.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label50.Location = New System.Drawing.Point(35, 2) Me.Label50.Name = "Label50" - Me.Label50.Size = New System.Drawing.Size(35, 17) + Me.Label50.Size = New System.Drawing.Size(26, 13) Me.Label50.TabIndex = 24 Me.Label50.Text = "STB" Me.Label50.TextAlign = System.Drawing.ContentAlignment.TopRight @@ -3938,10 +3803,9 @@ Partial Class usrCntlFaktAbrechnung ' Me.cbxAdmin.AutoSize = True Me.cbxAdmin.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) - Me.cbxAdmin.Location = New System.Drawing.Point(636, 0) - Me.cbxAdmin.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.cbxAdmin.Location = New System.Drawing.Point(424, 0) Me.cbxAdmin.Name = "cbxAdmin" - Me.cbxAdmin.Size = New System.Drawing.Size(162, 44) + Me.cbxAdmin.Size = New System.Drawing.Size(110, 30) Me.cbxAdmin.TabIndex = 22 Me.cbxAdmin.Text = "Admin: Änderung " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "nach Druck erl." Me.cbxAdmin.UseVisualStyleBackColor = True @@ -3956,12 +3820,12 @@ Partial Class usrCntlFaktAbrechnung Me.CntxtAbfArt.ImageScalingSize = New System.Drawing.Size(24, 24) Me.CntxtAbfArt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SdfToolStripMenuItem}) Me.CntxtAbfArt.Name = "CntxtAbfArt" - Me.CntxtAbfArt.Size = New System.Drawing.Size(110, 36) + Me.CntxtAbfArt.Size = New System.Drawing.Size(91, 26) ' 'SdfToolStripMenuItem ' Me.SdfToolStripMenuItem.Name = "SdfToolStripMenuItem" - Me.SdfToolStripMenuItem.Size = New System.Drawing.Size(109, 32) + Me.SdfToolStripMenuItem.Size = New System.Drawing.Size(90, 22) Me.SdfToolStripMenuItem.Text = "sdf" ' 'ContextMenuStrip1 @@ -3969,44 +3833,43 @@ Partial Class usrCntlFaktAbrechnung Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbsenderToolStripMenuItem, Me.EmpfängerToolStripMenuItem, Me.AuftraggeberToolStripMenuItem, Me.AvisiererToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(206, 132) + Me.ContextMenuStrip1.Size = New System.Drawing.Size(154, 92) ' 'AbsenderToolStripMenuItem ' Me.AbsenderToolStripMenuItem.Name = "AbsenderToolStripMenuItem" - Me.AbsenderToolStripMenuItem.Size = New System.Drawing.Size(205, 32) + Me.AbsenderToolStripMenuItem.Size = New System.Drawing.Size(153, 22) Me.AbsenderToolStripMenuItem.Text = "1 Absender" ' 'EmpfängerToolStripMenuItem ' Me.EmpfängerToolStripMenuItem.Name = "EmpfängerToolStripMenuItem" - Me.EmpfängerToolStripMenuItem.Size = New System.Drawing.Size(205, 32) + Me.EmpfängerToolStripMenuItem.Size = New System.Drawing.Size(153, 22) Me.EmpfängerToolStripMenuItem.Text = "2 Empfänger" ' 'AuftraggeberToolStripMenuItem ' Me.AuftraggeberToolStripMenuItem.Name = "AuftraggeberToolStripMenuItem" - Me.AuftraggeberToolStripMenuItem.Size = New System.Drawing.Size(205, 32) + Me.AuftraggeberToolStripMenuItem.Size = New System.Drawing.Size(153, 22) Me.AuftraggeberToolStripMenuItem.Text = "3 Auftraggeber" ' 'AvisiererToolStripMenuItem ' Me.AvisiererToolStripMenuItem.Name = "AvisiererToolStripMenuItem" - Me.AvisiererToolStripMenuItem.Size = New System.Drawing.Size(205, 32) + Me.AvisiererToolStripMenuItem.Size = New System.Drawing.Size(153, 22) Me.AvisiererToolStripMenuItem.Text = "4 Avisierer" ' 'usrCntlFaktAbrechnung ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.pnlTop) - Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.Name = "usrCntlFaktAbrechnung" - Me.Size = New System.Drawing.Size(1245, 2138) + Me.Size = New System.Drawing.Size(830, 1390) Me.pnlTop.ResumeLayout(False) Me.pnlTop.PerformLayout() Me.Panel3.ResumeLayout(False) diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 2a991372..ae6bffba 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -651,6 +651,7 @@ Component + frmMDM_USTVAntrag.vb @@ -723,6 +724,12 @@ Form + + ustCntlUSTV_AntragPosition.vb + + + UserControl + True True @@ -2869,6 +2876,9 @@ frmNacherfassungEndEmpfaenger.vb + + ustCntlUSTV_AntragPosition.vb + usrCntlATLAS_AES.vb diff --git a/SDL/USTV/cUSTVStatus.vb b/SDL/USTV/cUSTVStatus.vb new file mode 100644 index 00000000..244092d4 --- /dev/null +++ b/SDL/USTV/cUSTVStatus.vb @@ -0,0 +1,12 @@ +Public Class cUSTVStatus + + Public Shared STAT_INBEARBEITUNG As Integer = 0 + Public Shared STAT_UNVOLLSTAENDIG As Integer = 1 + Public Shared STAT_EINGEREICHT As Integer = 2 + Public Shared STAT_NACHFORDERUNG As Integer = 3 + Public Shared STAT_ERSTATTET As Integer = 4 + Public Shared STAT_TEILERSTATTET As Integer = 5 + Public Shared STAT_ABGELEHNT As Integer = 6 + Public Shared STAT_STORNO As Integer = 9 + +End Class diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index f02091c6..934f8ce7 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -26,72 +26,124 @@ Partial Class frmMDM_USTVAntrag Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag)) Me.Panel3 = New System.Windows.Forms.Panel() - Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox() - Me.lblPLOSE_EintrageVerarbetiet = New System.Windows.Forms.Label() Me.Button14 = New System.Windows.Forms.Button() + Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.lblPLOSE_EintrageVerarbetiet = New System.Windows.Forms.Label() Me.Panel1 = New System.Windows.Forms.Panel() + Me.Label6 = New System.Windows.Forms.Label() + Me.Panel5 = New System.Windows.Forms.Panel() + Me.Label5 = New System.Windows.Forms.Label() + Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.rtbStatusText = New System.Windows.Forms.RichTextBox() + Me.lblLand = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.lblZeitraum = New System.Windows.Forms.Label() Me.lblFirma = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.pnlFilter = New System.Windows.Forms.Panel() Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.lblZeitraum = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.lblLand = New System.Windows.Forms.Label() + Me.pnl = New System.Windows.Forms.Panel() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.Button3 = New System.Windows.Forms.Button() + Me.Button2 = New System.Windows.Forms.Button() + Me.btnBearb = New System.Windows.Forms.Button() + Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel() + Me.btnEingereicht = New System.Windows.Forms.Button() + Me.btnUnvollst = New System.Windows.Forms.Button() + Me.btnNachforderung = New System.Windows.Forms.Button() + Me.btnErstettel = New System.Windows.Forms.Button() + Me.btnAbgelehnt = New System.Windows.Forms.Button() + Me.btnStorno = New System.Windows.Forms.Button() + Me.btnTeilerstattung = New System.Windows.Forms.Button() + Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() Me.Panel3.SuspendLayout() Me.Panel1.SuspendLayout() + Me.Panel5.SuspendLayout() Me.pnlFilter.SuspendLayout() CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnl.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.Panel4.SuspendLayout() + Me.FlowLayoutPanel.SuspendLayout() Me.SuspendLayout() ' 'Panel3 ' - Me.Panel3.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien) - Me.Panel3.Controls.Add(Me.lblPLOSE_EintrageVerarbetiet) + Me.Panel3.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.Panel3.Controls.Add(Me.Button14) + Me.Panel3.Controls.Add(Me.cbxArchivierteEintracheNochmalsEinarbetien) + Me.Panel3.Controls.Add(Me.Button1) + Me.Panel3.Controls.Add(Me.lblPLOSE_EintrageVerarbetiet) Me.Panel3.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel3.Location = New System.Drawing.Point(0, 784) + Me.Panel3.Location = New System.Drawing.Point(0, 713) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1464, 76) - Me.Panel3.TabIndex = 2 - ' - 'cbxArchivierteEintracheNochmalsEinarbetien - ' - Me.cbxArchivierteEintracheNochmalsEinarbetien.AutoSize = True - Me.cbxArchivierteEintracheNochmalsEinarbetien.Location = New System.Drawing.Point(186, 6) - Me.cbxArchivierteEintracheNochmalsEinarbetien.Name = "cbxArchivierteEintracheNochmalsEinarbetien" - Me.cbxArchivierteEintracheNochmalsEinarbetien.Size = New System.Drawing.Size(227, 17) - Me.cbxArchivierteEintracheNochmalsEinarbetien.TabIndex = 5 - Me.cbxArchivierteEintracheNochmalsEinarbetien.Text = "Archivierte Einträche nochmals einarbeiten" - Me.cbxArchivierteEintracheNochmalsEinarbetien.UseVisualStyleBackColor = True - ' - 'lblPLOSE_EintrageVerarbetiet - ' - Me.lblPLOSE_EintrageVerarbetiet.Location = New System.Drawing.Point(12, 48) - Me.lblPLOSE_EintrageVerarbetiet.Name = "lblPLOSE_EintrageVerarbetiet" - Me.lblPLOSE_EintrageVerarbetiet.Size = New System.Drawing.Size(168, 19) - Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 4 - Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet" - Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight + Me.Panel3.Size = New System.Drawing.Size(1454, 100) + Me.Panel3.TabIndex = 3 ' 'Button14 ' Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) 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(12, 6) + Me.Button14.Location = New System.Drawing.Point(12, 29) Me.Button14.Name = "Button14" - Me.Button14.Size = New System.Drawing.Size(168, 39) - Me.Button14.TabIndex = 3 + Me.Button14.Size = New System.Drawing.Size(234, 38) + Me.Button14.TabIndex = 1 Me.Button14.Text = "PLOSE übernehmen" Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button14.UseVisualStyleBackColor = True ' + 'cbxArchivierteEintracheNochmalsEinarbetien + ' + Me.cbxArchivierteEintracheNochmalsEinarbetien.AutoSize = True + Me.cbxArchivierteEintracheNochmalsEinarbetien.ForeColor = System.Drawing.Color.Black + Me.cbxArchivierteEintracheNochmalsEinarbetien.Location = New System.Drawing.Point(12, 8) + Me.cbxArchivierteEintracheNochmalsEinarbetien.Name = "cbxArchivierteEintracheNochmalsEinarbetien" + Me.cbxArchivierteEintracheNochmalsEinarbetien.Size = New System.Drawing.Size(227, 17) + Me.cbxArchivierteEintracheNochmalsEinarbetien.TabIndex = 0 + Me.cbxArchivierteEintracheNochmalsEinarbetien.Text = "Archivierte Einträche nochmals einarbeiten" + Me.cbxArchivierteEintracheNochmalsEinarbetien.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Button1.ForeColor = System.Drawing.Color.Black + Me.Button1.Location = New System.Drawing.Point(1252, 13) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(189, 70) + Me.Button1.TabIndex = 2 + Me.Button1.Text = "OK" + Me.Button1.UseVisualStyleBackColor = True + ' + 'lblPLOSE_EintrageVerarbetiet + ' + Me.lblPLOSE_EintrageVerarbetiet.ForeColor = System.Drawing.Color.Black + Me.lblPLOSE_EintrageVerarbetiet.Location = New System.Drawing.Point(78, 69) + Me.lblPLOSE_EintrageVerarbetiet.Name = "lblPLOSE_EintrageVerarbetiet" + Me.lblPLOSE_EintrageVerarbetiet.Size = New System.Drawing.Size(168, 19) + Me.lblPLOSE_EintrageVerarbetiet.TabIndex = 3 + Me.lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet" + Me.lblPLOSE_EintrageVerarbetiet.TextAlign = System.Drawing.ContentAlignment.TopRight + ' '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.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel1.Controls.Add(Me.Label6) + Me.Panel1.Controls.Add(Me.Panel5) + Me.Panel1.Controls.Add(Me.txtBis) + Me.Panel1.Controls.Add(Me.txtVon) + Me.Panel1.Controls.Add(Me.rtbStatusText) Me.Panel1.Controls.Add(Me.lblLand) Me.Panel1.Controls.Add(Me.Label2) Me.Panel1.Controls.Add(Me.Label4) @@ -102,30 +154,205 @@ Partial Class frmMDM_USTVAntrag 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(1464, 75) - Me.Panel1.TabIndex = 3 + Me.Panel1.Size = New System.Drawing.Size(1454, 155) + Me.Panel1.TabIndex = 0 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.BackColor = System.Drawing.Color.Transparent + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold) + Me.Label6.ForeColor = System.Drawing.Color.White + Me.Label6.Location = New System.Drawing.Point(519, 25) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(86, 17) + Me.Label6.TabIndex = 1 + Me.Label6.Text = "Statusinfo:" + ' + 'Panel5 + ' + Me.Panel5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel5.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.Panel5.Controls.Add(Me.FlowLayoutPanel) + Me.Panel5.Controls.Add(Me.Label5) + Me.Panel5.Controls.Add(Me.cboStatus) + Me.Panel5.Location = New System.Drawing.Point(972, 0) + Me.Panel5.Name = "Panel5" + Me.Panel5.Size = New System.Drawing.Size(481, 105) + Me.Panel5.TabIndex = 9 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.BackColor = System.Drawing.Color.Transparent + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.ForeColor = System.Drawing.Color.Black + Me.Label5.Location = New System.Drawing.Point(3, 19) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(67, 20) + Me.Label5.TabIndex = 0 + Me.Label5.Text = "Status:" + ' + 'cboStatus + ' + Me.cboStatus._allowedValuesFreiText = Nothing + Me.cboStatus._allowFreiText = False + Me.cboStatus._value = "" + Me.cboStatus.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cboStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.cboStatus.FormattingEnabled = True + Me.cboStatus.Location = New System.Drawing.Point(76, 16) + Me.cboStatus.Name = "cboStatus" + Me.cboStatus.Size = New System.Drawing.Size(394, 28) + Me.cboStatus.TabIndex = 1 + ' + 'txtBis + ' + Me.txtBis._DateTimeOnly = False + Me.txtBis._numbersOnly = False + Me.txtBis._numbersOnlyKommastellen = "" + Me.txtBis._numbersOnlyTrennzeichen = True + Me.txtBis._Prozent = False + Me.txtBis._ShortDateNew = True + Me.txtBis._ShortDateOnly = False + Me.txtBis._TimeOnly = False + Me.txtBis._TimeOnly_Seconds = False + Me.txtBis._value = "" + Me.txtBis._Waehrung = False + Me.txtBis._WaehrungZeichen = True + Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtBis.ForeColor = System.Drawing.Color.Black + Me.txtBis.Location = New System.Drawing.Point(220, 67) + Me.txtBis.MaxLength = 10 + Me.txtBis.MaxLineLength = -1 + Me.txtBis.MaxLines_Warning = "" + Me.txtBis.MaxLines_Warning_Label = Nothing + Me.txtBis.Name = "txtBis" + Me.txtBis.Size = New System.Drawing.Size(100, 23) + Me.txtBis.TabIndex = 8 + ' + 'txtVon + ' + Me.txtVon._DateTimeOnly = False + Me.txtVon._numbersOnly = False + Me.txtVon._numbersOnlyKommastellen = "" + Me.txtVon._numbersOnlyTrennzeichen = True + Me.txtVon._Prozent = False + Me.txtVon._ShortDateNew = True + Me.txtVon._ShortDateOnly = False + Me.txtVon._TimeOnly = False + Me.txtVon._TimeOnly_Seconds = False + Me.txtVon._value = "" + Me.txtVon._Waehrung = False + Me.txtVon._WaehrungZeichen = True + Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtVon.ForeColor = System.Drawing.Color.Black + Me.txtVon.Location = New System.Drawing.Point(94, 67) + Me.txtVon.MaxLength = 10 + Me.txtVon.MaxLineLength = -1 + Me.txtVon.MaxLines_Warning = "" + Me.txtVon.MaxLines_Warning_Label = Nothing + Me.txtVon.Name = "txtVon" + Me.txtVon.Size = New System.Drawing.Size(100, 23) + Me.txtVon.TabIndex = 6 + ' + 'rtbStatusText + ' + Me.rtbStatusText.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.rtbStatusText.Location = New System.Drawing.Point(626, 24) + Me.rtbStatusText.Name = "rtbStatusText" + Me.rtbStatusText.Size = New System.Drawing.Size(340, 61) + Me.rtbStatusText.TabIndex = 4 + Me.rtbStatusText.Text = "" + ' + 'lblLand + ' + Me.lblLand.AutoSize = True + Me.lblLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblLand.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblLand.ForeColor = System.Drawing.Color.White + Me.lblLand.Location = New System.Drawing.Point(91, 108) + Me.lblLand.Name = "lblLand" + Me.lblLand.Size = New System.Drawing.Size(28, 17) + Me.lblLand.TabIndex = 11 + Me.lblLand.Text = "AT" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(4, 108) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(44, 17) + Me.Label2.TabIndex = 10 + Me.Label2.Text = "Land:" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.ForeColor = System.Drawing.Color.White + Me.Label4.Location = New System.Drawing.Point(3, 47) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(47, 17) + Me.Label4.TabIndex = 2 + Me.Label4.Text = "Firma:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.ForeColor = System.Drawing.Color.White + Me.Label3.Location = New System.Drawing.Point(3, 70) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(68, 17) + Me.Label3.TabIndex = 5 + Me.Label3.Text = "Zeitraum:" + ' + 'lblZeitraum + ' + Me.lblZeitraum.AutoSize = True + Me.lblZeitraum.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblZeitraum.Cursor = System.Windows.Forms.Cursors.Hand + Me.lblZeitraum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblZeitraum.ForeColor = System.Drawing.Color.White + Me.lblZeitraum.Location = New System.Drawing.Point(200, 69) + Me.lblZeitraum.Name = "lblZeitraum" + Me.lblZeitraum.Size = New System.Drawing.Size(14, 17) + Me.lblZeitraum.TabIndex = 7 + Me.lblZeitraum.Text = "-" ' 'lblFirma ' - Me.lblFirma.AutoSize = True + Me.lblFirma.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) 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(257, 20) + Me.lblFirma.ForeColor = System.Drawing.Color.White + Me.lblFirma.Location = New System.Drawing.Point(91, 47) Me.lblFirma.Name = "lblFirma" - Me.lblFirma.Size = New System.Drawing.Size(161, 17) - Me.lblFirma.TabIndex = 5 + Me.lblFirma.Size = New System.Drawing.Size(388, 17) + Me.lblFirma.TabIndex = 3 Me.lblFirma.Text = "VERAG Spedition AG" ' 'Label1 ' Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.ForeColor = System.Drawing.Color.White Me.Label1.Location = New System.Drawing.Point(3, 6) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(56, 20) + Me.Label1.Size = New System.Drawing.Size(116, 20) Me.Label1.TabIndex = 0 - Me.Label1.Text = "USTV" + Me.Label1.Text = "USTV-Antrag" ' 'pnlFilter ' @@ -133,10 +360,10 @@ Partial Class frmMDM_USTVAntrag Me.pnlFilter.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.pnlFilter.Controls.Add(Me.dgvUSTVPositionen) Me.pnlFilter.Dock = System.Windows.Forms.DockStyle.Fill - Me.pnlFilter.Location = New System.Drawing.Point(0, 75) + Me.pnlFilter.Location = New System.Drawing.Point(0, 155) Me.pnlFilter.Name = "pnlFilter" - Me.pnlFilter.Size = New System.Drawing.Size(1464, 709) - Me.pnlFilter.TabIndex = 6 + Me.pnlFilter.Size = New System.Drawing.Size(1454, 289) + Me.pnlFilter.TabIndex = 1 ' 'dgvUSTVPositionen ' @@ -145,80 +372,226 @@ Partial Class frmMDM_USTVAntrag Me.dgvUSTVPositionen.AllowUserToDeleteRows = False DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvUSTVPositionen.BackgroundColor = System.Drawing.Color.White Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUSTVPositionen.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvUSTVPositionen.Location = New System.Drawing.Point(0, 0) Me.dgvUSTVPositionen.MultiSelect = False Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen" Me.dgvUSTVPositionen.ReadOnly = True + Me.dgvUSTVPositionen.RowHeadersVisible = False + Me.dgvUSTVPositionen.RowHeadersWidth = 62 Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1462, 707) - Me.dgvUSTVPositionen.TabIndex = 4 + Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1452, 287) + Me.dgvUSTVPositionen.TabIndex = 0 ' - 'lblZeitraum + 'pnl ' - Me.lblZeitraum.AutoSize = True - Me.lblZeitraum.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblZeitraum.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblZeitraum.Location = New System.Drawing.Point(257, 43) - Me.lblZeitraum.Name = "lblZeitraum" - Me.lblZeitraum.Size = New System.Drawing.Size(188, 17) - Me.lblZeitraum.TabIndex = 6 - Me.lblZeitraum.Text = "01.01.2000 - 31.12.2000" + Me.pnl.Controls.Add(Me.Panel2) + Me.pnl.Controls.Add(Me.Panel4) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnl.Location = New System.Drawing.Point(0, 444) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(1454, 269) + Me.pnl.TabIndex = 2 ' - 'Label3 + 'Panel2 ' - Me.Label3.AutoSize = True - Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(183, 43) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(68, 17) - Me.Label3.TabIndex = 7 - Me.Label3.Text = "Zeitraum:" + Me.Panel2.BackColor = System.Drawing.Color.White + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.UstCntlUSTV_AntragPosition1) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel2.Location = New System.Drawing.Point(154, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1300, 269) + Me.Panel2.TabIndex = 1 ' - 'Label4 + 'Panel4 ' - Me.Label4.AutoSize = True - Me.Label4.Cursor = System.Windows.Forms.Cursors.Hand - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(183, 20) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(31, 11) - Me.Label4.TabIndex = 8 - Me.Label4.Text = "Firma:" + Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel4.Controls.Add(Me.Button3) + Me.Panel4.Controls.Add(Me.Button2) + Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel4.Location = New System.Drawing.Point(0, 0) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(154, 269) + Me.Panel4.TabIndex = 0 ' - 'Label2 + 'Button3 ' - Me.Label2.AutoSize = True - Me.Label2.Cursor = System.Windows.Forms.Cursors.Hand - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(4, 43) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(29, 11) - Me.Label2.TabIndex = 9 - Me.Label2.Text = "Land:" + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.ForeColor = System.Drawing.Color.Black + Me.Button3.Image = Global.SDL.My.Resources.Resources.del + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(6, 50) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(135, 39) + Me.Button3.TabIndex = 1 + Me.Button3.Text = "Eintrag löschen" + Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button3.UseVisualStyleBackColor = True ' - 'lblLand + 'Button2 ' - Me.lblLand.AutoSize = True - Me.lblLand.Cursor = System.Windows.Forms.Cursors.Hand - Me.lblLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblLand.Location = New System.Drawing.Point(78, 43) - Me.lblLand.Name = "lblLand" - Me.lblLand.Size = New System.Drawing.Size(19, 11) - Me.lblLand.TabIndex = 10 - Me.lblLand.Text = "AT" + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.ForeColor = System.Drawing.Color.Black + Me.Button2.Image = Global.SDL.My.Resources.Resources.plus + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(6, 5) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(135, 39) + Me.Button2.TabIndex = 0 + Me.Button2.Text = "Neuer Eintrag" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'btnBearb + ' + Me.btnBearb.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnBearb.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.btnBearb.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBearb.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBearb.ForeColor = System.Drawing.Color.Black + Me.btnBearb.Location = New System.Drawing.Point(3, 3) + Me.btnBearb.Name = "btnBearb" + Me.btnBearb.Size = New System.Drawing.Size(86, 36) + Me.btnBearb.TabIndex = 0 + Me.btnBearb.Text = "In Bearbeitung" + Me.btnBearb.UseVisualStyleBackColor = False + ' + 'FlowLayoutPanel + ' + Me.FlowLayoutPanel.Controls.Add(Me.btnBearb) + Me.FlowLayoutPanel.Controls.Add(Me.btnUnvollst) + Me.FlowLayoutPanel.Controls.Add(Me.btnEingereicht) + Me.FlowLayoutPanel.Controls.Add(Me.btnAbgelehnt) + Me.FlowLayoutPanel.Controls.Add(Me.btnNachforderung) + Me.FlowLayoutPanel.Controls.Add(Me.btnErstettel) + Me.FlowLayoutPanel.Controls.Add(Me.btnTeilerstattung) + Me.FlowLayoutPanel.Controls.Add(Me.btnStorno) + Me.FlowLayoutPanel.Location = New System.Drawing.Point(3, 50) + Me.FlowLayoutPanel.Name = "FlowLayoutPanel" + Me.FlowLayoutPanel.Size = New System.Drawing.Size(479, 52) + Me.FlowLayoutPanel.TabIndex = 2 + ' + 'btnEingereicht + ' + Me.btnEingereicht.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnEingereicht.BackColor = System.Drawing.Color.SteelBlue + Me.btnEingereicht.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnEingereicht.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnEingereicht.ForeColor = System.Drawing.Color.White + Me.btnEingereicht.Location = New System.Drawing.Point(191, 3) + Me.btnEingereicht.Name = "btnEingereicht" + Me.btnEingereicht.Size = New System.Drawing.Size(87, 36) + Me.btnEingereicht.TabIndex = 2 + Me.btnEingereicht.Text = "Eingereicht" + Me.btnEingereicht.UseVisualStyleBackColor = False + ' + 'btnUnvollst + ' + Me.btnUnvollst.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnUnvollst.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnUnvollst.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnUnvollst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnUnvollst.ForeColor = System.Drawing.Color.Black + Me.btnUnvollst.Location = New System.Drawing.Point(95, 3) + Me.btnUnvollst.Name = "btnUnvollst" + Me.btnUnvollst.Size = New System.Drawing.Size(90, 36) + Me.btnUnvollst.TabIndex = 1 + Me.btnUnvollst.Text = "Unvollständig" + Me.btnUnvollst.UseVisualStyleBackColor = False + ' + 'btnNachforderung + ' + Me.btnNachforderung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnNachforderung.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnNachforderung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnNachforderung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnNachforderung.ForeColor = System.Drawing.Color.Black + Me.btnNachforderung.Location = New System.Drawing.Point(370, 3) + Me.btnNachforderung.Name = "btnNachforderung" + Me.btnNachforderung.Size = New System.Drawing.Size(98, 36) + Me.btnNachforderung.TabIndex = 4 + Me.btnNachforderung.Text = "Nachforderung/" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Berichtigung" + Me.btnNachforderung.UseVisualStyleBackColor = False + ' + 'btnErstettel + ' + Me.btnErstettel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnErstettel.BackColor = System.Drawing.Color.Green + Me.btnErstettel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnErstettel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnErstettel.ForeColor = System.Drawing.Color.White + Me.btnErstettel.Location = New System.Drawing.Point(3, 45) + Me.btnErstettel.Name = "btnErstettel" + Me.btnErstettel.Size = New System.Drawing.Size(86, 36) + Me.btnErstettel.TabIndex = 5 + Me.btnErstettel.Text = "Erstattet" + Me.btnErstettel.UseVisualStyleBackColor = False + ' + 'btnAbgelehnt + ' + Me.btnAbgelehnt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnAbgelehnt.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer)) + Me.btnAbgelehnt.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAbgelehnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnAbgelehnt.ForeColor = System.Drawing.Color.White + Me.btnAbgelehnt.Location = New System.Drawing.Point(284, 3) + Me.btnAbgelehnt.Name = "btnAbgelehnt" + Me.btnAbgelehnt.Size = New System.Drawing.Size(80, 36) + Me.btnAbgelehnt.TabIndex = 3 + Me.btnAbgelehnt.Text = "Abgelehnt" + Me.btnAbgelehnt.UseVisualStyleBackColor = False + ' + 'btnStorno + ' + Me.btnStorno.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnStorno.BackColor = System.Drawing.Color.Red + Me.btnStorno.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnStorno.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnStorno.ForeColor = System.Drawing.Color.White + Me.btnStorno.Location = New System.Drawing.Point(188, 45) + Me.btnStorno.Name = "btnStorno" + Me.btnStorno.Size = New System.Drawing.Size(52, 36) + Me.btnStorno.TabIndex = 7 + Me.btnStorno.Text = "Storno" + Me.btnStorno.UseVisualStyleBackColor = False + ' + 'btnTeilerstattung + ' + Me.btnTeilerstattung.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnTeilerstattung.BackColor = System.Drawing.Color.Green + Me.btnTeilerstattung.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnTeilerstattung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnTeilerstattung.ForeColor = System.Drawing.Color.White + Me.btnTeilerstattung.Location = New System.Drawing.Point(95, 45) + Me.btnTeilerstattung.Name = "btnTeilerstattung" + Me.btnTeilerstattung.Size = New System.Drawing.Size(87, 36) + Me.btnTeilerstattung.TabIndex = 6 + Me.btnTeilerstattung.Text = "Teilerstattung" + Me.btnTeilerstattung.UseVisualStyleBackColor = False + ' + 'UstCntlUSTV_AntragPosition1 + ' + Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0) + Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" + Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267) + Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 ' 'frmMDM_USTVAntrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1464, 860) + Me.ClientSize = New System.Drawing.Size(1454, 813) Me.Controls.Add(Me.pnlFilter) - Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.pnl) Me.Controls.Add(Me.Panel3) + Me.Controls.Add(Me.Panel1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.KeyPreview = True Me.Name = "frmMDM_USTVAntrag" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "USTV Antrag" @@ -226,8 +599,14 @@ Partial Class frmMDM_USTVAntrag Me.Panel3.PerformLayout() Me.Panel1.ResumeLayout(False) Me.Panel1.PerformLayout() + Me.Panel5.ResumeLayout(False) + Me.Panel5.PerformLayout() Me.pnlFilter.ResumeLayout(False) CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnl.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.Panel4.ResumeLayout(False) + Me.FlowLayoutPanel.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -246,4 +625,27 @@ Partial Class frmMDM_USTVAntrag Friend WithEvents lblZeitraum As Label Friend WithEvents lblLand As Label Friend WithEvents Label2 As Label + Friend WithEvents cboStatus As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label5 As Label + Friend WithEvents rtbStatusText As RichTextBox + Friend WithEvents Button1 As Button + Friend WithEvents pnl As Panel + Friend WithEvents Panel2 As Panel + Friend WithEvents Button2 As Button + Friend WithEvents Panel4 As Panel + Friend WithEvents Button3 As Button + Friend WithEvents txtBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtVon As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents UstCntlUSTV_AntragPosition1 As ustCntlUSTV_AntragPosition + Friend WithEvents Panel5 As Panel + Friend WithEvents Label6 As Label + Friend WithEvents FlowLayoutPanel As FlowLayoutPanel + Friend WithEvents btnBearb As Button + Friend WithEvents btnEingereicht As Button + Friend WithEvents btnUnvollst As Button + Friend WithEvents btnNachforderung As Button + Friend WithEvents btnErstettel As Button + Friend WithEvents btnAbgelehnt As Button + Friend WithEvents btnStorno As Button + Friend WithEvents btnTeilerstattung As Button End Class diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 72596eda..c34a0ddc 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -1,6 +1,7 @@ Public Class frmMDM_USTVAntrag Dim UStVAn_ID As Integer + Dim USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag = Nothing Dim Antrag_LandKz As String = "" Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Sub New(UStVAn_ID) @@ -81,17 +82,11 @@ End With - Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID) Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV_ANTRAG.UStVAn_LandNr & "'", "FMZOLL") Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False) - lblFirma.Text = USTV_ANTRAG.UStVAn_Name - lblLand.Text = Antrag_LandKz - lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy") - - If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count Else @@ -101,8 +96,62 @@ End Sub + Sub setValue(USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag) + + lblFirma.Text = USTV_ANTRAG.UStVAn_Name + lblLand.Text = Antrag_LandKz + txtVon._value = CDate(USTV_ANTRAG.UStVAn_ReDatVon) + txtBis._value = CDate(USTV_ANTRAG.UStVAn_ReDatBis) + 'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy") + + cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, "")) + rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "") + + End Sub + + Sub getValue(ByRef USTV_ANTRAG As VERAG_PROG_ALLGEMEIN.cUSTVAntrag) + + If Me_Validate() Then + 'lblFirma.Text = USTV_ANTRAG.UStVAn_Name + 'lblLand.Text = Antrag_LandKz + If IsDate(txtVon._value) Then USTV_ANTRAG.UStVAn_ReDatVon = CDate(txtVon._value) + If IsDate(txtBis._value) Then USTV_ANTRAG.UStVAn_ReDatBis = CDate(txtBis._value) + + 'lblZeitraum.Text = CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToString("dd.MM.yyyy") & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToString("dd.MM.yyyy") + + cboStatus.changeItem(If(USTV_ANTRAG.UStVAn_Status, "")) + rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "") + End If + End Sub + Function Me_Validate() As Boolean + If IsDate(txtVon._value) Then MsgBox("Datumsformat: Von") : Return False + If IsDate(txtBis._value) Then MsgBox("Datumsformat: Bis") : Return False + Return True + End Function + + Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + cboStatus.Items.Clear() + cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("-", "")) + cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("In Bearbeitung", cUSTVStatus.STAT_INBEARBEITUNG)) + cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", cUSTVStatus.STAT_UNVOLLSTAENDIG)) + cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Eingereicht", cUSTVStatus.STAT_EINGEREICHT)) + cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Nachforderung/Berichtigung", cUSTVStatus.STAT_NACHFORDERUNG)) + cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Abgeschlossen/Erstattet", cUSTVStatus.STAT_ERSTATTET)) + cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Abgelehnt", cUSTVStatus.STAT_ABGELEHNT)) + cboStatus.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Storno", cUSTVStatus.STAT_STORNO)) + cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG) + + lblPLOSE_EintrageVerarbetiet.Text = "" + + If UStVAn_ID > 0 Then + USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID) + setValue(USTV_ANTRAG) + + End If + init() End Sub @@ -172,6 +221,161 @@ End Try End Function + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + + getValue(USTV_ANTRAG) + + If USTV_ANTRAG.SAVE Then + Me.Close() + End If + End Sub + + Sub initPosition(UStVPo_ID) + If UStVPo_ID > 0 Then + Dim ANTR_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen(USTV_ANTRAG.UStVAn_ID, UStVPo_ID) + UstCntlUSTV_AntragPosition1.Enabled = True + UstCntlUSTV_AntragPosition1.setValues(ANTR_POS) + Else + UstCntlUSTV_AntragPosition1.reset() + UstCntlUSTV_AntragPosition1.Enabled = False + End If + + End Sub + + Private Sub dgvUSTVPositionen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvUSTVPositionen.SelectionChanged + If dgvUSTVPositionen.SelectedRows.Count > 0 Then + initPosition(dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID").Value) + + End If + + End Sub + + Private Sub UstCntlUSTV_AntragPosition1_EV_NEXT() Handles UstCntlUSTV_AntragPosition1.EV_NEXT + + If dgvUSTVPositionen.SelectedRows.Count > 0 Then + If dgvUSTVPositionen.RowCount > dgvUSTVPositionen.SelectedRows(0).Index + 1 Then + UstCntlUSTV_AntragPosition1.Enabled = True + Dim selIndex = dgvUSTVPositionen.SelectedRows(0).Index + 1 + dgvUSTVPositionen.ClearSelection() + dgvUSTVPositionen.Rows(selIndex).Selected = True + dgvUSTVPositionen.CurrentCell = dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID") + End If + End If + + End Sub + Private Sub UstCntlUSTV_AntragPosition1_EV_PREV() Handles UstCntlUSTV_AntragPosition1.EV_PREV + If dgvUSTVPositionen.SelectedRows.Count > 0 Then + If dgvUSTVPositionen.SelectedRows(0).Index > 0 Then + UstCntlUSTV_AntragPosition1.Enabled = True + Dim selIndex = dgvUSTVPositionen.SelectedRows(0).Index - 1 + dgvUSTVPositionen.ClearSelection() + dgvUSTVPositionen.Rows(selIndex).Selected = True + dgvUSTVPositionen.CurrentCell = dgvUSTVPositionen.SelectedRows(0).Cells("UStVPo_ID") + End If + End If + + End Sub + + + Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown + If e.KeyValue = Keys.PageDown Then + UstCntlUSTV_AntragPosition1_EV_NEXT() + End If + If e.KeyValue = Keys.PageUp Then + UstCntlUSTV_AntragPosition1_EV_PREV() + End If + End Sub + + Private Sub frmMDM_USTVAntrag_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Me.Top = 0 + Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height + End Sub + + Private Sub cboStatus_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboStatus.SelectedIndexChanged + For Each b In FlowLayoutPanel.Controls + b.visible = False + Next + Select Case cboStatus._value + Case cUSTVStatus.STAT_INBEARBEITUNG + btnEingereicht.Visible = True + btnStorno.Visible = True + btnUnvollst.Visible = True + Case cUSTVStatus.STAT_UNVOLLSTAENDIG + btnBearb.Visible = True + btnEingereicht.Visible = True + btnStorno.Visible = True + Case cUSTVStatus.STAT_EINGEREICHT + 'btnBearb.Visible = True + btnStorno.Visible = True + btnTeilerstattung.Visible = True + btnErstettel.Visible = True + btnAbgelehnt.Visible = True + btnNachforderung.Visible = True + Case cUSTVStatus.STAT_ABGELEHNT + btnBearb.Visible = True + btnEingereicht.Visible = True + btnUnvollst.Visible = True + btnStorno.Visible = True + Case cUSTVStatus.STAT_NACHFORDERUNG + btnBearb.Visible = True + btnEingereicht.Visible = True + 'btnUnvollst.Visible = True + btnStorno.Visible = True + Case cUSTVStatus.STAT_ERSTATTET + ' btnStorno.Visible = True + Case cUSTVStatus.STAT_TEILERSTATTET + btnErstettel.Visible = True + ' btnStorno.Visible = True + End Select + + End Sub + + Private Sub btnBearb_Click(sender As Object, e As EventArgs) Handles btnBearb.Click + cboStatus.changeItem(cUSTVStatus.STAT_INBEARBEITUNG) + End Sub + + Private Sub btnTeilerstattung_Click(sender As Object, e As EventArgs) Handles btnTeilerstattung.Click + cboStatus.changeItem(cUSTVStatus.STAT_TEILERSTATTET) + End Sub + + Private Sub btnUnvollst_Click(sender As Object, e As EventArgs) Handles btnUnvollst.Click + cboStatus.changeItem(cUSTVStatus.STAT_UNVOLLSTAENDIG) + End Sub + + Private Sub btnEingereicht_Click(sender As Object, e As EventArgs) Handles btnEingereicht.Click + cboStatus.changeItem(cUSTVStatus.STAT_EINGEREICHT) + End Sub + + Private Sub btnAbgelehnt_Click(sender As Object, e As EventArgs) Handles btnAbgelehnt.Click + cboStatus.changeItem(cUSTVStatus.STAT_ABGELEHNT) + End Sub + + Private Sub btnNachforderung_Click(sender As Object, e As EventArgs) Handles btnNachforderung.Click + cboStatus.changeItem(cUSTVStatus.STAT_NACHFORDERUNG) + End Sub + + Private Sub btnErstettel_Click(sender As Object, e As EventArgs) Handles btnErstettel.Click + cboStatus.changeItem(cUSTVStatus.STAT_ERSTATTET) + End Sub + + Private Sub btnStorno_Click(sender As Object, e As EventArgs) Handles btnStorno.Click + cboStatus.changeItem(cUSTVStatus.STAT_STORNO) + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click + UstCntlUSTV_AntragPosition1.reset() + UstCntlUSTV_AntragPosition1.UStV_POS = Nothing + UstCntlUSTV_AntragPosition1.Enabled = True + End Sub + + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then + UstCntlUSTV_AntragPosition1.UStV_POS.delete() + UstCntlUSTV_AntragPosition1.Enabled = False + + End If + End Sub + ' Private Sub cmdITMautÜbernehmen_Click() ' Dim wrk As DAO.Workspace diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb new file mode 100644 index 00000000..292d8c11 --- /dev/null +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb @@ -0,0 +1,590 @@ + _ +Partial Class ustCntlUSTV_AntragPosition + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.tbcntr = New System.Windows.Forms.TabControl() + Me.cbxAPI = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.Label8 = New System.Windows.Forms.Label() + Me.txtRgDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label9 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.btnBildAuf = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.txtLeistender = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label12 = New System.Windows.Forms.Label() + Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label13 = New System.Windows.Forms.Label() + Me.cboLeistungsbezeichnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.lblAenderungsdatum = New System.Windows.Forms.Label() + Me.lblSachbearbeiter = New System.Windows.Forms.Label() + Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.pnl = New System.Windows.Forms.Panel() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.TabPage2.SuspendLayout() + Me.tbcntr.SuspendLayout() + Me.Panel2.SuspendLayout() + Me.pnl.SuspendLayout() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'scanLieferschein + ' + Me.scanLieferschein._ARCHIV = True + Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanLieferschein._DATENSERVER_ORDNER = "MDM" + Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing + Me.scanLieferschein._MULTI_FILES = True + Me.scanLieferschein._TEXT_PDF = "Lieferschein" + Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanLieferschein.BackColor = System.Drawing.Color.White + Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default + Me.scanLieferschein.Location = New System.Drawing.Point(3, 198) + Me.scanLieferschein.Name = "scanLieferschein" + Me.scanLieferschein.Size = New System.Drawing.Size(94, 24) + Me.scanLieferschein.TabIndex = 2 + Me.scanLieferschein.Visible = False + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.scanSonstiges) + 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(270, 213) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Dokumente" + Me.TabPage2.UseVisualStyleBackColor = True + ' + '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.Hand + Me.scanSonstiges.Dock = System.Windows.Forms.DockStyle.Fill + Me.scanSonstiges.Location = New System.Drawing.Point(3, 3) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(264, 207) + Me.scanSonstiges.TabIndex = 0 + ' + 'tbcntr + ' + Me.tbcntr.Controls.Add(Me.TabPage2) + Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right + Me.tbcntr.Location = New System.Drawing.Point(1022, 30) + Me.tbcntr.Name = "tbcntr" + Me.tbcntr.SelectedIndex = 0 + Me.tbcntr.Size = New System.Drawing.Size(278, 239) + Me.tbcntr.TabIndex = 3 + ' + 'cbxAPI + ' + Me.cbxAPI._date = Nothing + Me.cbxAPI._showdate = True + Me.cbxAPI._value = "" + Me.cbxAPI.AutoSize = True + Me.cbxAPI.Enabled = False + Me.cbxAPI.Location = New System.Drawing.Point(634, 132) + Me.cbxAPI.Name = "cbxAPI" + Me.cbxAPI.Size = New System.Drawing.Size(83, 17) + Me.cbxAPI.TabIndex = 17 + Me.cbxAPI.Text = "Schnittstelle" + Me.cbxAPI.TextAlign = System.Drawing.ContentAlignment.MiddleCenter + Me.cbxAPI.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.ForeColor = System.Drawing.Color.White + Me.Label8.Location = New System.Drawing.Point(6, 9) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(46, 13) + Me.Label8.TabIndex = 0 + Me.Label8.Text = "Details" + ' + 'txtRgDatum + ' + Me.txtRgDatum._DateTimeOnly = False + Me.txtRgDatum._numbersOnly = False + Me.txtRgDatum._numbersOnlyKommastellen = "" + Me.txtRgDatum._numbersOnlyTrennzeichen = True + Me.txtRgDatum._Prozent = False + Me.txtRgDatum._ShortDateNew = False + Me.txtRgDatum._ShortDateOnly = False + Me.txtRgDatum._TimeOnly = False + Me.txtRgDatum._TimeOnly_Seconds = False + Me.txtRgDatum._value = "" + Me.txtRgDatum._Waehrung = False + Me.txtRgDatum._WaehrungZeichen = True + Me.txtRgDatum.ForeColor = System.Drawing.Color.Red + Me.txtRgDatum.Location = New System.Drawing.Point(17, 49) + Me.txtRgDatum.MaxLength = 10 + Me.txtRgDatum.MaxLineLength = -1 + Me.txtRgDatum.MaxLines_Warning = "" + Me.txtRgDatum.MaxLines_Warning_Label = Nothing + Me.txtRgDatum.Name = "txtRgDatum" + Me.txtRgDatum.Size = New System.Drawing.Size(154, 20) + Me.txtRgDatum.TabIndex = 6 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label7.Location = New System.Drawing.Point(14, 31) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(114, 15) + Me.Label7.TabIndex = 2 + Me.Label7.Text = "Rechnungs-Datum:" + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel2.Controls.Add(Me.Label8) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1300, 30) + Me.Panel2.TabIndex = 0 + ' + 'txtRgNr + ' + Me.txtRgNr._DateTimeOnly = False + Me.txtRgNr._numbersOnly = False + Me.txtRgNr._numbersOnlyKommastellen = "" + Me.txtRgNr._numbersOnlyTrennzeichen = True + Me.txtRgNr._Prozent = False + Me.txtRgNr._ShortDateNew = False + Me.txtRgNr._ShortDateOnly = False + Me.txtRgNr._TimeOnly = False + Me.txtRgNr._TimeOnly_Seconds = False + Me.txtRgNr._value = Nothing + Me.txtRgNr._Waehrung = False + Me.txtRgNr._WaehrungZeichen = True + Me.txtRgNr.Location = New System.Drawing.Point(177, 49) + Me.txtRgNr.MaxLength = 250 + Me.txtRgNr.MaxLineLength = -1 + Me.txtRgNr.MaxLines_Warning = "" + Me.txtRgNr.MaxLines_Warning_Label = Nothing + Me.txtRgNr.Name = "txtRgNr" + Me.txtRgNr.Size = New System.Drawing.Size(183, 20) + Me.txtRgNr.TabIndex = 7 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(174, 33) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(82, 13) + Me.Label9.TabIndex = 3 + Me.Label9.Text = "Rechnungs-Nr.:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(442, 14) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(59, 13) + Me.Label1.TabIndex = 1 + Me.Label1.Text = "Leistung:" + ' + 'btnBildAuf + ' + Me.btnBildAuf.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben + Me.btnBildAuf.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.btnBildAuf.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBildAuf.Location = New System.Drawing.Point(16, 7) + Me.btnBildAuf.Name = "btnBildAuf" + Me.btnBildAuf.Size = New System.Drawing.Size(71, 77) + Me.btnBildAuf.TabIndex = 0 + Me.btnBildAuf.Text = "Bild auf" + Me.btnBildAuf.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnBildAuf.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Location = New System.Drawing.Point(16, 90) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(71, 77) + Me.Button1.TabIndex = 1 + Me.Button1.Text = "Bild ab" + Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button1.UseVisualStyleBackColor = True + ' + 'txtLeistender + ' + Me.txtLeistender._DateTimeOnly = False + Me.txtLeistender._numbersOnly = False + Me.txtLeistender._numbersOnlyKommastellen = "" + Me.txtLeistender._numbersOnlyTrennzeichen = True + Me.txtLeistender._Prozent = False + Me.txtLeistender._ShortDateNew = False + Me.txtLeistender._ShortDateOnly = False + Me.txtLeistender._TimeOnly = False + Me.txtLeistender._TimeOnly_Seconds = False + Me.txtLeistender._value = Nothing + Me.txtLeistender._Waehrung = False + Me.txtLeistender._WaehrungZeichen = True + Me.txtLeistender.Location = New System.Drawing.Point(634, 49) + Me.txtLeistender.MaxLength = 22 + Me.txtLeistender.MaxLineLength = -1 + Me.txtLeistender.MaxLines_Warning = "" + Me.txtLeistender.MaxLines_Warning_Label = Nothing + Me.txtLeistender.Name = "txtLeistender" + Me.txtLeistender.Size = New System.Drawing.Size(279, 20) + Me.txtLeistender.TabIndex = 9 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label2.Location = New System.Drawing.Point(442, 31) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(134, 15) + Me.Label2.TabIndex = 4 + Me.Label2.Text = "Leistungsbezeichnung:" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label3.Location = New System.Drawing.Point(630, 31) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(82, 15) + Me.Label3.TabIndex = 5 + Me.Label3.Text = "Leistungeber:" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(14, 14) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(65, 13) + Me.Label6.TabIndex = 0 + Me.Label6.Text = "Rechnung" + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label10.Location = New System.Drawing.Point(14, 92) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(65, 13) + Me.Label10.TabIndex = 10 + Me.Label10.Text = "Rechnung" + ' + 'txtUSTBetrag + ' + Me.txtUSTBetrag._DateTimeOnly = False + Me.txtUSTBetrag._numbersOnly = False + Me.txtUSTBetrag._numbersOnlyKommastellen = "" + Me.txtUSTBetrag._numbersOnlyTrennzeichen = True + Me.txtUSTBetrag._Prozent = False + Me.txtUSTBetrag._ShortDateNew = False + Me.txtUSTBetrag._ShortDateOnly = False + Me.txtUSTBetrag._TimeOnly = False + Me.txtUSTBetrag._TimeOnly_Seconds = False + Me.txtUSTBetrag._value = "" + Me.txtUSTBetrag._Waehrung = False + Me.txtUSTBetrag._WaehrungZeichen = True + Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red + Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130) + Me.txtUSTBetrag.MaxLength = 10 + Me.txtUSTBetrag.MaxLineLength = -1 + Me.txtUSTBetrag.MaxLines_Warning = "" + Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing + Me.txtUSTBetrag.Name = "txtUSTBetrag" + Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20) + Me.txtUSTBetrag.TabIndex = 14 + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label11.Location = New System.Drawing.Point(14, 112) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(70, 15) + Me.Label11.TabIndex = 11 + Me.Label11.Text = "USt-Betrag:" + ' + 'txtUmrechnungskurs + ' + Me.txtUmrechnungskurs._DateTimeOnly = False + Me.txtUmrechnungskurs._numbersOnly = True + Me.txtUmrechnungskurs._numbersOnlyKommastellen = "" + Me.txtUmrechnungskurs._numbersOnlyTrennzeichen = True + Me.txtUmrechnungskurs._Prozent = False + Me.txtUmrechnungskurs._ShortDateNew = False + Me.txtUmrechnungskurs._ShortDateOnly = False + Me.txtUmrechnungskurs._TimeOnly = False + Me.txtUmrechnungskurs._TimeOnly_Seconds = False + Me.txtUmrechnungskurs._value = "" + Me.txtUmrechnungskurs._Waehrung = False + Me.txtUmrechnungskurs._WaehrungZeichen = True + Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red + Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130) + Me.txtUmrechnungskurs.MaxLength = 10 + Me.txtUmrechnungskurs.MaxLineLength = -1 + Me.txtUmrechnungskurs.MaxLines_Warning = "" + Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing + Me.txtUmrechnungskurs.Name = "txtUmrechnungskurs" + Me.txtUmrechnungskurs.Size = New System.Drawing.Size(108, 20) + Me.txtUmrechnungskurs.TabIndex = 15 + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label12.Location = New System.Drawing.Point(174, 112) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(111, 15) + Me.Label12.TabIndex = 12 + Me.Label12.Text = "Umrechnungskurs:" + ' + 'txtUSTBetragEUR + ' + Me.txtUSTBetragEUR._DateTimeOnly = False + Me.txtUSTBetragEUR._numbersOnly = False + Me.txtUSTBetragEUR._numbersOnlyKommastellen = "" + Me.txtUSTBetragEUR._numbersOnlyTrennzeichen = True + Me.txtUSTBetragEUR._Prozent = False + Me.txtUSTBetragEUR._ShortDateNew = False + Me.txtUSTBetragEUR._ShortDateOnly = False + Me.txtUSTBetragEUR._TimeOnly = False + Me.txtUSTBetragEUR._TimeOnly_Seconds = False + Me.txtUSTBetragEUR._value = "" + Me.txtUSTBetragEUR._Waehrung = False + Me.txtUSTBetragEUR._WaehrungZeichen = True + Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red + Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130) + Me.txtUSTBetragEUR.MaxLength = 10 + Me.txtUSTBetragEUR.MaxLineLength = -1 + Me.txtUSTBetragEUR.MaxLines_Warning = "" + Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing + Me.txtUSTBetragEUR.Name = "txtUSTBetragEUR" + Me.txtUSTBetragEUR.Size = New System.Drawing.Size(154, 20) + Me.txtUSTBetragEUR.TabIndex = 16 + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label13.Location = New System.Drawing.Point(291, 112) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(96, 15) + Me.Label13.TabIndex = 13 + Me.Label13.Text = "USt-Betrag EUR" + ' + 'cboLeistungsbezeichnung + ' + Me.cboLeistungsbezeichnung._allowedValuesFreiText = Nothing + Me.cboLeistungsbezeichnung._allowFreiText = False + Me.cboLeistungsbezeichnung._value = "" + Me.cboLeistungsbezeichnung.FormattingEnabled = True + Me.cboLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49) + Me.cboLeistungsbezeichnung.Name = "cboLeistungsbezeichnung" + Me.cboLeistungsbezeichnung.Size = New System.Drawing.Size(183, 21) + Me.cboLeistungsbezeichnung.TabIndex = 8 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label4.Location = New System.Drawing.Point(14, 191) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(94, 15) + Me.Label4.TabIndex = 19 + Me.Label4.Text = "Sachbearbeiter:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label5.Location = New System.Drawing.Point(14, 207) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(104, 15) + Me.Label5.TabIndex = 21 + Me.Label5.Text = "Änderungsdatum:" + ' + 'lblAenderungsdatum + ' + Me.lblAenderungsdatum.AutoSize = True + Me.lblAenderungsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.lblAenderungsdatum.Location = New System.Drawing.Point(127, 207) + Me.lblAenderungsdatum.Name = "lblAenderungsdatum" + Me.lblAenderungsdatum.Size = New System.Drawing.Size(11, 15) + Me.lblAenderungsdatum.TabIndex = 22 + Me.lblAenderungsdatum.Text = "-" + ' + 'lblSachbearbeiter + ' + Me.lblSachbearbeiter.AutoSize = True + Me.lblSachbearbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.lblSachbearbeiter.Location = New System.Drawing.Point(127, 191) + Me.lblSachbearbeiter.Name = "lblSachbearbeiter" + Me.lblSachbearbeiter.Size = New System.Drawing.Size(11, 15) + Me.lblSachbearbeiter.TabIndex = 20 + Me.lblSachbearbeiter.Text = "-" + ' + 'cboSchnittstellennr + ' + Me.cboSchnittstellennr._allowedValuesFreiText = Nothing + Me.cboSchnittstellennr._allowFreiText = False + Me.cboSchnittstellennr._value = "" + Me.cboSchnittstellennr.Enabled = False + Me.cboSchnittstellennr.FormattingEnabled = True + Me.cboSchnittstellennr.Location = New System.Drawing.Point(723, 130) + Me.cboSchnittstellennr.Name = "cboSchnittstellennr" + Me.cboSchnittstellennr.Size = New System.Drawing.Size(190, 21) + Me.cboSchnittstellennr.TabIndex = 18 + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.White + Me.pnl.Controls.Add(Me.Label6) + Me.pnl.Controls.Add(Me.cboSchnittstellennr) + Me.pnl.Controls.Add(Me.Label9) + Me.pnl.Controls.Add(Me.lblAenderungsdatum) + Me.pnl.Controls.Add(Me.txtRgNr) + Me.pnl.Controls.Add(Me.lblSachbearbeiter) + Me.pnl.Controls.Add(Me.Label7) + Me.pnl.Controls.Add(Me.Label5) + Me.pnl.Controls.Add(Me.txtRgDatum) + Me.pnl.Controls.Add(Me.Label4) + Me.pnl.Controls.Add(Me.cbxAPI) + Me.pnl.Controls.Add(Me.Label1) + Me.pnl.Controls.Add(Me.cboLeistungsbezeichnung) + Me.pnl.Controls.Add(Me.txtLeistender) + Me.pnl.Controls.Add(Me.txtUSTBetragEUR) + Me.pnl.Controls.Add(Me.Label2) + Me.pnl.Controls.Add(Me.Label13) + Me.pnl.Controls.Add(Me.Label3) + Me.pnl.Controls.Add(Me.txtUmrechnungskurs) + Me.pnl.Controls.Add(Me.Label11) + Me.pnl.Controls.Add(Me.Label12) + Me.pnl.Controls.Add(Me.txtUSTBetrag) + Me.pnl.Controls.Add(Me.Label10) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnl.Location = New System.Drawing.Point(0, 30) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(1022, 239) + Me.pnl.TabIndex = 1 + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.btnBildAuf) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Controls.Add(Me.scanLieferschein) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right + Me.Panel1.Location = New System.Drawing.Point(923, 30) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(99, 239) + Me.Panel1.TabIndex = 2 + ' + 'ustCntlUSTV_AntragPosition + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.Panel1) + Me.Controls.Add(Me.pnl) + Me.Controls.Add(Me.tbcntr) + Me.Controls.Add(Me.Panel2) + Me.Name = "ustCntlUSTV_AntragPosition" + Me.Size = New System.Drawing.Size(1300, 269) + Me.TabPage2.ResumeLayout(False) + Me.tbcntr.ResumeLayout(False) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.pnl.ResumeLayout(False) + Me.pnl.PerformLayout() + Me.Panel1.ResumeLayout(False) + Me.ResumeLayout(False) + + End Sub + Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents TabPage2 As TabPage + Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList + Friend WithEvents tbcntr As TabControl + Friend WithEvents cbxAPI As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents Label8 As Label + Friend WithEvents txtRgDatum As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label7 As Label + Friend WithEvents Panel2 As Panel + Friend WithEvents txtRgNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label9 As Label + Friend WithEvents Label1 As Label + Friend WithEvents btnBildAuf As Button + Friend WithEvents Button1 As Button + Friend WithEvents txtLeistender As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label6 As Label + Friend WithEvents Label10 As Label + Friend WithEvents txtUSTBetrag As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label11 As Label + Friend WithEvents txtUmrechnungskurs As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label12 As Label + Friend WithEvents txtUSTBetragEUR As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label13 As Label + Friend WithEvents cboLeistungsbezeichnung As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label4 As Label + Friend WithEvents Label5 As Label + Friend WithEvents lblAenderungsdatum As Label + Friend WithEvents lblSachbearbeiter As Label + Friend WithEvents cboSchnittstellennr As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents pnl As Panel + Friend WithEvents Panel1 As Panel +End Class diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.resx b/SDL/USTV/ustCntlUSTV_AntragPosition.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb new file mode 100644 index 00000000..d2ff4e11 --- /dev/null +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -0,0 +1,88 @@ +Public Class ustCntlUSTV_AntragPosition + Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing + + Public Event EV_PREV() + Public Event EV_NEXT() + Public Event CHANGED(UStVPo_ID) + Dim gridAktiv = False + Private Sub btnBildAuf_Click(sender As Object, e As EventArgs) Handles btnBildAuf.Click + RaiseEvent EV_PREV() + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + RaiseEvent EV_NEXT() + End Sub + + Sub reset() + txtRgDatum._value = "" + txtRgNr._value = "" + End Sub + + Sub setValues(UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen) + gridAktiv = False + Me.UStV_POS = UStV_POS + cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False) + cboSchnittstellennr.changeItem(If(UStV_POS.UStVPo_SchnittstellenNr, "")) + txtRgDatum._value = If(UStV_POS.UStVPo_ReDat, "") + txtRgNr._value = If(UStV_POS.UStVPo_ReNr, "") + lblSachbearbeiter.Text = If(UStV_POS.UStVPo_Sachbearbeiter, "") + If UStV_POS.UStVPo_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_POS.UStVPo_Zeitstempel).ToString("dd.MM.yyyy HH:mm") + txtLeistender.Text = If(UStV_POS.UStVPo_Leistender, "") + cboLeistungsbezeichnung.Text = If(UStV_POS.UStVPo_Leistungsbezeichnung, "") + txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "") + txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "") + txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "") + gridAktiv = True + End Sub + + Sub getValues(ByRef UStV_POS) + If UStV_POS Is Nothing Then UStV_POS = New VERAG_PROG_ALLGEMEIN.cUStVPositionen + 'UStV_POS. + UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + UStV_POS.UStVPo_Zeitstempel = Now + End Sub + + Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown + If e.KeyValue = Keys.PageDown Then + RaiseEvent EV_NEXT() + End If + If e.KeyValue = Keys.PageUp Then + RaiseEvent EV_PREV() + End If + End Sub + + Private Sub txtUmrechnungskurs_TextChanged(sender As Object, e As EventArgs) Handles txtUmrechnungskurs.TextChanged + Dim gridAktivTMP = gridAktiv + gridAktiv = False + txtUSTBetragEUR._value = "" + If IsNumeric(txtUSTBetrag._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then + txtUSTBetragEUR._value = txtUSTBetrag._value * txtUmrechnungskurs._value + End If + gridAktiv = gridAktivTMP + End Sub + + Function save() + getValues(UStV_POS) + MsgBox("TEST") + Return UStV_POS.save + End Function + + Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged, cboLeistungsbezeichnung.SelectedIndexChanged, + txtLeistender.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetragEUR.TextChanged ', cbxAPI.CheckedChanged, cboSchnittstellennr.SelectedIndexChanged + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub + + If gridAktiv And Me.FindForm IsNot Nothing Then + 'If sender Is txtLieferung Then + ' If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!") + 'End If + values_changed() + End If + End Sub + Sub values_changed() + lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + lblAenderungsdatum.Text = Now.ToString("dd.MM.yyyy HH:mm") + ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub + If save() Then RaiseEvent CHANGED(UStV_POS.UStVPo_ID) + End Sub +End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb index 63dc0655..ea4c30fa 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb @@ -54,6 +54,8 @@ Public Class cUSTVAntrag Property UStVAn_ErstattungsbetragEUR As Object = Nothing ' MONEY Default ((0)) NULL, Property UStVAn_Sachbearbeiter As Object = Nothing ' NVARCHAR(15) NULL, Property UStVAn_Zeitstempel As Object = Nothing ' DATETIME Default (getdate()) NULL, + Property UStVAn_Status As Object = Nothing + Property UStVAn_StatusText As Object = Nothing Property POSITIONEN As New List(Of cUStVPositionen) '= Nothing @@ -118,6 +120,8 @@ Public Class cUSTVAntrag list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ErstattungsbetragEUR", UStVAn_ErstattungsbetragEUR)) ' MONEY Default ((0)) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Sachbearbeiter", UStVAn_Sachbearbeiter)) ' NVARCHAR(15) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Zeitstempel", UStVAn_Zeitstempel)) ' DATETIME Default (getdate()) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_Status", UStVAn_Status)) ' DATETIME Default (getdate()) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_StatusText", UStVAn_StatusText)) ' DATETIME Default (getdate()) NULL, Return list @@ -270,8 +274,76 @@ Public Class cUStVPositionen Dim SQL As New SQL - Sub New() + Sub New(UStVAn_ID, UStVPo_ID) + Me.UStVAn_ID = UStVAn_ID + Me.UStVPo_ID = UStVPo_ID + + LOAD(UStVAn_ID, UStVPo_ID) End Sub + Sub New() + + End Sub + + + Public Sub LOAD(UStVAn_ID, UStVPo_ID) + Try + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM [tblUStVPositionen] WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_ID ", conn) + cmd.Parameters.AddWithValue("@UStVAn_ID", UStVAn_ID) + cmd.Parameters.AddWithValue("@UStVPo_ID", UStVPo_ID) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + 'Dim l As New cOfferte + For Each i In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable) + If dr.Item(i.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(i.Text)) + End If + Next + + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + + + Public Function SAVE() As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVPositionen WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_ID) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblUStVPositionen] SET " & str & " WHERE UStVAn_ID=@UStVAn_ID AND UStVPo_ID=@UStVPo_ID") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb index 7d7d8cf6..9741afbd 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb @@ -72,6 +72,14 @@ Public Class cRechnungsnummern Return LfdRechnungsNr End Function + Public Function DECREASE_RGNR() As Integer + If LfdRechnungsNr > 0 Then + LfdRechnungsNr -= 1 + End If + SAVE() + Return LfdRechnungsNr + End Function + Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. Dim increased = False