diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index e0ee8132..70662ed6 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -628,13 +628,13 @@ Public Class cFakturierung 'End Function - Public Shared Function doRechnungsDruck_SRorER(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printStbVdb As Boolean = False) As Boolean + Public Shared Function doRechnungsDruck_SRorER(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printStbVdb As Boolean = False, Optional AnlageEinzelRg As Boolean = False) As Boolean If RK_ID <= 0 Then Return False Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID) If RG_TMP.Sammelrechnung = 0 Then Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, , printStbVdb) Else - Return cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, , 3,, True) + Return cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", AnlageEinzelRg, , Rechnugnsdruck, Path, True) End If End Function @@ -1633,11 +1633,11 @@ Public Class cFakturierung End If Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) + ' Nächste Rechnungsnummer speichern. + RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) RG_NR.CHECK_RGNR() 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 @@ -2013,12 +2013,12 @@ Public Class cFakturierung Shared Function getNewRgNr(Firma_ID, Buchungsjahr) Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(Firma_ID, Buchungsjahr) + + ' Nächste Rechnungsnummer speichern. + RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) RG_NR.CHECK_RGNR() - getNewRgNr = RG_NR.LfdRechnungsNr - RG_NR.INCREASE_RGNR() 'für die nächste Rechnung - End Function diff --git a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb index c9d135b9..7e76727c 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.Designer.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.Designer.vb @@ -27,6 +27,8 @@ Partial Class frmRechnungenSuche Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.pnlSearch = New System.Windows.Forms.Panel() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.Label19 = New System.Windows.Forms.Label() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label34 = New System.Windows.Forms.Label() Me.Label35 = New System.Windows.Forms.Label() Me.Label36 = New System.Windows.Forms.Label() @@ -105,6 +107,7 @@ Partial Class frmRechnungenSuche Me.Label17 = New System.Windows.Forms.Label() Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlBerichte = New System.Windows.Forms.Panel() + Me.Button3 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Label10 = New System.Windows.Forms.Label() Me.cboBerichtRgAbfArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -116,7 +119,7 @@ Partial Class frmRechnungenSuche Me.EVOLOGSammelrechnungAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnl = New System.Windows.Forms.Panel() - Me.Label32 = New System.Windows.Forms.Label() + Me.Button9 = New System.Windows.Forms.Button() Me.btnExcel = New System.Windows.Forms.Button() Me.FlatButton7 = New System.Windows.Forms.Button() Me.lblErgebnis = New System.Windows.Forms.Label() @@ -127,9 +130,8 @@ Partial Class frmRechnungenSuche Me.Label4 = New System.Windows.Forms.Label() Me.pnlTop = New System.Windows.Forms.Panel() Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.Button3 = New System.Windows.Forms.Button() - Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.Label19 = New System.Windows.Forms.Label() + Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() @@ -148,6 +150,7 @@ Partial Class frmRechnungenSuche Me.MenuStrip1.SuspendLayout() Me.pnl.SuspendLayout() Me.pnlTop.SuspendLayout() + Me.ctxtRg.SuspendLayout() Me.SuspendLayout() ' 'SplitContainer @@ -267,6 +270,29 @@ Partial Class frmRechnungenSuche Me.SplitContainer1.SplitterDistance = 84 Me.SplitContainer1.TabIndex = 0 ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label19.Location = New System.Drawing.Point(991, 12) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(37, 13) + Me.Label19.TabIndex = 40 + Me.Label19.Text = "Firma" + ' + 'cboFirma + ' + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.DropDownWidth = 250 + Me.cboFirma.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.Location = New System.Drawing.Point(994, 29) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(123, 22) + Me.cboFirma.TabIndex = 39 + ' 'Label34 ' Me.Label34.AutoSize = True @@ -310,10 +336,12 @@ Partial Class frmRechnungenSuche Me.txtRechungsNr_bis._DateTimeOnly = False Me.txtRechungsNr_bis._numbersOnly = False Me.txtRechungsNr_bis._numbersOnlyKommastellen = "" + Me.txtRechungsNr_bis._numbersOnlyTrennzeichen = True Me.txtRechungsNr_bis._Prozent = False Me.txtRechungsNr_bis._ShortDateNew = False Me.txtRechungsNr_bis._ShortDateOnly = False Me.txtRechungsNr_bis._TimeOnly = False + Me.txtRechungsNr_bis._TimeOnly_Seconds = False Me.txtRechungsNr_bis._value = Nothing Me.txtRechungsNr_bis._Waehrung = False Me.txtRechungsNr_bis._WaehrungZeichen = True @@ -346,10 +374,12 @@ Partial Class frmRechnungenSuche Me.txtRechungsNr_von._DateTimeOnly = False Me.txtRechungsNr_von._numbersOnly = False Me.txtRechungsNr_von._numbersOnlyKommastellen = "" + Me.txtRechungsNr_von._numbersOnlyTrennzeichen = True Me.txtRechungsNr_von._Prozent = False Me.txtRechungsNr_von._ShortDateNew = False Me.txtRechungsNr_von._ShortDateOnly = False Me.txtRechungsNr_von._TimeOnly = False + Me.txtRechungsNr_von._TimeOnly_Seconds = False Me.txtRechungsNr_von._value = Nothing Me.txtRechungsNr_von._Waehrung = False Me.txtRechungsNr_von._WaehrungZeichen = True @@ -426,10 +456,12 @@ Partial Class frmRechnungenSuche Me.txtAbfertDat._DateTimeOnly = False Me.txtAbfertDat._numbersOnly = False Me.txtAbfertDat._numbersOnlyKommastellen = "" + Me.txtAbfertDat._numbersOnlyTrennzeichen = True Me.txtAbfertDat._Prozent = False Me.txtAbfertDat._ShortDateNew = False Me.txtAbfertDat._ShortDateOnly = True Me.txtAbfertDat._TimeOnly = False + Me.txtAbfertDat._TimeOnly_Seconds = False Me.txtAbfertDat._value = "" Me.txtAbfertDat._Waehrung = False Me.txtAbfertDat._WaehrungZeichen = True @@ -579,10 +611,12 @@ Partial Class frmRechnungenSuche Me.txtAbfertDatBis._DateTimeOnly = False Me.txtAbfertDatBis._numbersOnly = False Me.txtAbfertDatBis._numbersOnlyKommastellen = "" + Me.txtAbfertDatBis._numbersOnlyTrennzeichen = True Me.txtAbfertDatBis._Prozent = False Me.txtAbfertDatBis._ShortDateNew = False Me.txtAbfertDatBis._ShortDateOnly = True Me.txtAbfertDatBis._TimeOnly = False + Me.txtAbfertDatBis._TimeOnly_Seconds = False Me.txtAbfertDatBis._value = "" Me.txtAbfertDatBis._Waehrung = False Me.txtAbfertDatBis._WaehrungZeichen = True @@ -673,10 +707,12 @@ Partial Class frmRechnungenSuche 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 Me.txtUnterNr._TimeOnly = False + Me.txtUnterNr._TimeOnly_Seconds = False Me.txtUnterNr._value = Nothing Me.txtUnterNr._Waehrung = False Me.txtUnterNr._WaehrungZeichen = True @@ -705,10 +741,12 @@ Partial Class frmRechnungenSuche Me.txtAbfertigungsnummerBis._DateTimeOnly = False Me.txtAbfertigungsnummerBis._numbersOnly = False Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummerBis._numbersOnlyTrennzeichen = True Me.txtAbfertigungsnummerBis._Prozent = False Me.txtAbfertigungsnummerBis._ShortDateNew = False Me.txtAbfertigungsnummerBis._ShortDateOnly = False Me.txtAbfertigungsnummerBis._TimeOnly = False + Me.txtAbfertigungsnummerBis._TimeOnly_Seconds = False Me.txtAbfertigungsnummerBis._value = Nothing Me.txtAbfertigungsnummerBis._Waehrung = False Me.txtAbfertigungsnummerBis._WaehrungZeichen = True @@ -728,10 +766,12 @@ Partial Class frmRechnungenSuche Me.txtAbfertigungsnummer._DateTimeOnly = False Me.txtAbfertigungsnummer._numbersOnly = False Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._numbersOnlyTrennzeichen = True Me.txtAbfertigungsnummer._Prozent = False Me.txtAbfertigungsnummer._ShortDateNew = False Me.txtAbfertigungsnummer._ShortDateOnly = False Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._TimeOnly_Seconds = False Me.txtAbfertigungsnummer._value = Nothing Me.txtAbfertigungsnummer._Waehrung = False Me.txtAbfertigungsnummer._WaehrungZeichen = True @@ -805,10 +845,12 @@ Partial Class frmRechnungenSuche Me.KdFrachtfuehrerKdnr._DateTimeOnly = False Me.KdFrachtfuehrerKdnr._numbersOnly = False Me.KdFrachtfuehrerKdnr._numbersOnlyKommastellen = "" + Me.KdFrachtfuehrerKdnr._numbersOnlyTrennzeichen = True Me.KdFrachtfuehrerKdnr._Prozent = False Me.KdFrachtfuehrerKdnr._ShortDateNew = False Me.KdFrachtfuehrerKdnr._ShortDateOnly = False Me.KdFrachtfuehrerKdnr._TimeOnly = False + Me.KdFrachtfuehrerKdnr._TimeOnly_Seconds = False Me.KdFrachtfuehrerKdnr._value = Nothing Me.KdFrachtfuehrerKdnr._Waehrung = False Me.KdFrachtfuehrerKdnr._WaehrungZeichen = True @@ -838,10 +880,12 @@ Partial Class frmRechnungenSuche Me.txtSachbearbeiter._DateTimeOnly = False Me.txtSachbearbeiter._numbersOnly = False Me.txtSachbearbeiter._numbersOnlyKommastellen = "" + Me.txtSachbearbeiter._numbersOnlyTrennzeichen = True Me.txtSachbearbeiter._Prozent = False Me.txtSachbearbeiter._ShortDateNew = False Me.txtSachbearbeiter._ShortDateOnly = False Me.txtSachbearbeiter._TimeOnly = False + Me.txtSachbearbeiter._TimeOnly_Seconds = False Me.txtSachbearbeiter._value = Nothing Me.txtSachbearbeiter._Waehrung = False Me.txtSachbearbeiter._WaehrungZeichen = True @@ -887,10 +931,12 @@ Partial Class frmRechnungenSuche Me.txtRechnungAnKdNr._DateTimeOnly = False Me.txtRechnungAnKdNr._numbersOnly = False Me.txtRechnungAnKdNr._numbersOnlyKommastellen = "" + Me.txtRechnungAnKdNr._numbersOnlyTrennzeichen = True Me.txtRechnungAnKdNr._Prozent = False Me.txtRechnungAnKdNr._ShortDateNew = False Me.txtRechnungAnKdNr._ShortDateOnly = False Me.txtRechnungAnKdNr._TimeOnly = False + Me.txtRechnungAnKdNr._TimeOnly_Seconds = False Me.txtRechnungAnKdNr._value = Nothing Me.txtRechnungAnKdNr._Waehrung = False Me.txtRechnungAnKdNr._WaehrungZeichen = True @@ -980,10 +1026,12 @@ Partial Class frmRechnungenSuche Me.txtAvisiererKdNr._DateTimeOnly = False Me.txtAvisiererKdNr._numbersOnly = False Me.txtAvisiererKdNr._numbersOnlyKommastellen = "" + Me.txtAvisiererKdNr._numbersOnlyTrennzeichen = True Me.txtAvisiererKdNr._Prozent = False Me.txtAvisiererKdNr._ShortDateNew = False Me.txtAvisiererKdNr._ShortDateOnly = False Me.txtAvisiererKdNr._TimeOnly = False + Me.txtAvisiererKdNr._TimeOnly_Seconds = False Me.txtAvisiererKdNr._value = Nothing Me.txtAvisiererKdNr._Waehrung = False Me.txtAvisiererKdNr._WaehrungZeichen = True @@ -1106,10 +1154,12 @@ Partial Class frmRechnungenSuche Me.MyTextBox14._DateTimeOnly = False Me.MyTextBox14._numbersOnly = False Me.MyTextBox14._numbersOnlyKommastellen = "" + Me.MyTextBox14._numbersOnlyTrennzeichen = True Me.MyTextBox14._Prozent = False Me.MyTextBox14._ShortDateNew = False Me.MyTextBox14._ShortDateOnly = False Me.MyTextBox14._TimeOnly = False + Me.MyTextBox14._TimeOnly_Seconds = False Me.MyTextBox14._value = Nothing Me.MyTextBox14._Waehrung = False Me.MyTextBox14._WaehrungZeichen = True @@ -1187,10 +1237,12 @@ Partial Class frmRechnungenSuche Me.txtAbsenderKdnr._DateTimeOnly = False Me.txtAbsenderKdnr._numbersOnly = False Me.txtAbsenderKdnr._numbersOnlyKommastellen = "" + Me.txtAbsenderKdnr._numbersOnlyTrennzeichen = True Me.txtAbsenderKdnr._Prozent = False Me.txtAbsenderKdnr._ShortDateNew = False Me.txtAbsenderKdnr._ShortDateOnly = False Me.txtAbsenderKdnr._TimeOnly = False + Me.txtAbsenderKdnr._TimeOnly_Seconds = False Me.txtAbsenderKdnr._value = Nothing Me.txtAbsenderKdnr._Waehrung = False Me.txtAbsenderKdnr._WaehrungZeichen = True @@ -1211,10 +1263,12 @@ Partial Class frmRechnungenSuche Me.txtEmpfaengerKdnr._DateTimeOnly = False Me.txtEmpfaengerKdnr._numbersOnly = False Me.txtEmpfaengerKdnr._numbersOnlyKommastellen = "" + Me.txtEmpfaengerKdnr._numbersOnlyTrennzeichen = True Me.txtEmpfaengerKdnr._Prozent = False Me.txtEmpfaengerKdnr._ShortDateNew = False Me.txtEmpfaengerKdnr._ShortDateOnly = False Me.txtEmpfaengerKdnr._TimeOnly = False + Me.txtEmpfaengerKdnr._TimeOnly_Seconds = False Me.txtEmpfaengerKdnr._value = Nothing Me.txtEmpfaengerKdnr._Waehrung = False Me.txtEmpfaengerKdnr._WaehrungZeichen = True @@ -1262,10 +1316,12 @@ Partial Class frmRechnungenSuche Me.txtAuftraggeberKdnr._DateTimeOnly = False Me.txtAuftraggeberKdnr._numbersOnly = False Me.txtAuftraggeberKdnr._numbersOnlyKommastellen = "" + Me.txtAuftraggeberKdnr._numbersOnlyTrennzeichen = True Me.txtAuftraggeberKdnr._Prozent = False Me.txtAuftraggeberKdnr._ShortDateNew = False Me.txtAuftraggeberKdnr._ShortDateOnly = False Me.txtAuftraggeberKdnr._TimeOnly = False + Me.txtAuftraggeberKdnr._TimeOnly_Seconds = False Me.txtAuftraggeberKdnr._value = Nothing Me.txtAuftraggeberKdnr._Waehrung = False Me.txtAuftraggeberKdnr._WaehrungZeichen = True @@ -1313,10 +1369,12 @@ Partial Class frmRechnungenSuche Me.MyTextBox15._DateTimeOnly = False Me.MyTextBox15._numbersOnly = False Me.MyTextBox15._numbersOnlyKommastellen = "" + Me.MyTextBox15._numbersOnlyTrennzeichen = True Me.MyTextBox15._Prozent = False Me.MyTextBox15._ShortDateNew = False Me.MyTextBox15._ShortDateOnly = False Me.MyTextBox15._TimeOnly = False + Me.MyTextBox15._TimeOnly_Seconds = False Me.MyTextBox15._value = Nothing Me.MyTextBox15._Waehrung = False Me.MyTextBox15._WaehrungZeichen = True @@ -1335,10 +1393,12 @@ Partial Class frmRechnungenSuche Me.txtPackstuecke._DateTimeOnly = False Me.txtPackstuecke._numbersOnly = False Me.txtPackstuecke._numbersOnlyKommastellen = "" + Me.txtPackstuecke._numbersOnlyTrennzeichen = True Me.txtPackstuecke._Prozent = False Me.txtPackstuecke._ShortDateNew = False Me.txtPackstuecke._ShortDateOnly = False Me.txtPackstuecke._TimeOnly = False + Me.txtPackstuecke._TimeOnly_Seconds = False Me.txtPackstuecke._value = Nothing Me.txtPackstuecke._Waehrung = False Me.txtPackstuecke._WaehrungZeichen = True @@ -1432,10 +1492,12 @@ Partial Class frmRechnungenSuche Me.txtMaxSrch._DateTimeOnly = False Me.txtMaxSrch._numbersOnly = True Me.txtMaxSrch._numbersOnlyKommastellen = "" + Me.txtMaxSrch._numbersOnlyTrennzeichen = True Me.txtMaxSrch._Prozent = False Me.txtMaxSrch._ShortDateNew = False Me.txtMaxSrch._ShortDateOnly = False Me.txtMaxSrch._TimeOnly = False + Me.txtMaxSrch._TimeOnly_Seconds = False Me.txtMaxSrch._value = "" Me.txtMaxSrch._Waehrung = False Me.txtMaxSrch._WaehrungZeichen = True @@ -1461,11 +1523,26 @@ Partial Class frmRechnungenSuche Me.pnlBerichte.Controls.Add(Me.Button8) Me.pnlBerichte.Controls.Add(Me.MenuStrip1) Me.pnlBerichte.Dock = System.Windows.Forms.DockStyle.Left - Me.pnlBerichte.Location = New System.Drawing.Point(215, 0) + Me.pnlBerichte.Location = New System.Drawing.Point(233, 0) Me.pnlBerichte.Name = "pnlBerichte" Me.pnlBerichte.Size = New System.Drawing.Size(747, 68) Me.pnlBerichte.TabIndex = 6 ' + 'Button3 + ' + Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button3.Image = Global.SDL.My.Resources.Resources.statistik_small + Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button3.Location = New System.Drawing.Point(583, 21) + Me.Button3.Margin = New System.Windows.Forms.Padding(0) + Me.Button3.Name = "Button3" + Me.Button3.Size = New System.Drawing.Size(153, 39) + Me.Button3.TabIndex = 44 + Me.Button3.Text = "Brexit" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Vergütung Einnahmen)" + Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button3.UseVisualStyleBackColor = True + ' 'Button1 ' Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) @@ -1576,24 +1653,27 @@ Partial Class frmRechnungenSuche ' 'pnl ' - Me.pnl.Controls.Add(Me.Label32) + Me.pnl.Controls.Add(Me.Button9) Me.pnl.Dock = System.Windows.Forms.DockStyle.Left Me.pnl.Location = New System.Drawing.Point(0, 0) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(215, 68) + Me.pnl.Size = New System.Drawing.Size(233, 68) Me.pnl.TabIndex = 5 ' - 'Label32 + 'Button9 ' - Me.Label32.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Label32.AutoSize = True - Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label32.Location = New System.Drawing.Point(13, 7) - Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(34, 13) - Me.Label32.TabIndex = 33 - Me.Label32.Text = "Neu:" - Me.Label32.Visible = False + Me.Button9.ContextMenuStrip = Me.ctxtRg + Me.Button9.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button9.Image = Global.SDL.My.Resources.Resources.pdf1 + Me.Button9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button9.Location = New System.Drawing.Point(16, 4) + Me.Button9.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3) + Me.Button9.Name = "Button9" + Me.Button9.Size = New System.Drawing.Size(105, 57) + Me.Button9.TabIndex = 93 + Me.Button9.Text = "Als PDF" + Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button9.UseVisualStyleBackColor = True ' 'btnExcel ' @@ -1693,43 +1773,18 @@ Partial Class frmRechnungenSuche Me.TestToolStripMenuItem.Size = New System.Drawing.Size(150, 19) Me.TestToolStripMenuItem.Text = "test" ' - 'Button3 + 'ctxtRg ' - Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) - Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button3.Image = Global.SDL.My.Resources.Resources.statistik_small - Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button3.Location = New System.Drawing.Point(583, 21) - Me.Button3.Margin = New System.Windows.Forms.Padding(0) - Me.Button3.Name = "Button3" - Me.Button3.Size = New System.Drawing.Size(153, 39) - Me.Button3.TabIndex = 44 - Me.Button3.Text = "Brexit" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(Vergütung Einnahmen)" - Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button3.UseVisualStyleBackColor = True + Me.ctxtRg.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiHochladenToolStripMenuItem}) + Me.ctxtRg.Name = "ctxtRg" + Me.ctxtRg.Size = New System.Drawing.Size(197, 48) ' - 'cboFirma + 'DateiHochladenToolStripMenuItem ' - Me.cboFirma._allowedValuesFreiText = Nothing - Me.cboFirma._allowFreiText = False - Me.cboFirma._value = "" - Me.cboFirma.DropDownWidth = 250 - Me.cboFirma.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(994, 29) - Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(123, 22) - Me.cboFirma.TabIndex = 39 - ' - 'Label19 - ' - Me.Label19.AutoSize = True - Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label19.Location = New System.Drawing.Point(991, 12) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(37, 13) - Me.Label19.TabIndex = 40 - Me.Label19.Text = "Firma" + Me.DateiHochladenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf + Me.DateiHochladenToolStripMenuItem.Name = "DateiHochladenToolStripMenuItem" + Me.DateiHochladenToolStripMenuItem.Size = New System.Drawing.Size(196, 22) + Me.DateiHochladenToolStripMenuItem.Text = "PDF in Zwischenablage" ' 'frmRechnungenSuche ' @@ -1766,9 +1821,9 @@ Partial Class frmRechnungenSuche Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.PerformLayout() Me.pnl.ResumeLayout(False) - Me.pnl.PerformLayout() Me.pnlTop.ResumeLayout(False) Me.pnlTop.PerformLayout() + Me.ctxtRg.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -1839,7 +1894,6 @@ Partial Class frmRechnungenSuche Friend WithEvents Button8 As System.Windows.Forms.Button Friend WithEvents Label31 As System.Windows.Forms.Label Friend WithEvents pnl As System.Windows.Forms.Panel - Friend WithEvents Label32 As System.Windows.Forms.Label Friend WithEvents Label33 As System.Windows.Forms.Label Friend WithEvents kdtxtAvisierer As VERAG_PROG_ALLGEMEIN.KdSearchBox Friend WithEvents txtAvisiererKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox @@ -1878,4 +1932,7 @@ Partial Class frmRechnungenSuche Friend WithEvents Button3 As Button Friend WithEvents Label19 As Label Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Button9 As Button + Friend WithEvents ctxtRg As ContextMenuStrip + Friend WithEvents DateiHochladenToolStripMenuItem As ToolStripMenuItem End Class diff --git a/SDL/Fakturierung/frmRechnungenSuche.resx b/SDL/Fakturierung/frmRechnungenSuche.resx index 02c7ec05..1d191c20 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.resx +++ b/SDL/Fakturierung/frmRechnungenSuche.resx @@ -126,6 +126,12 @@ 316, 17 + + 431, 17 + + + 316, 17 + @@ -174,7 +180,7 @@ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ - 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB3VJREFUSEu9VntQ1NUe + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAB3VJREFUSEu9VntQ1NUe /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C @@ -256,7 +262,7 @@ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ - 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB3VJREFUSEu9VntQ1NUe + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAB3VJREFUSEu9VntQ1NUe /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C @@ -338,7 +344,7 @@ XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+ tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/ - 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEgAACxIB0t1+/AAAB3VJREFUSEu9VntQ1NUe + 6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALEAAACxABrSO9dQAAB3VJREFUSEu9VntQ1NUe /86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C diff --git a/SDL/Fakturierung/frmRechnungenSuche.vb b/SDL/Fakturierung/frmRechnungenSuche.vb index 3ce3a6ed..40360203 100644 --- a/SDL/Fakturierung/frmRechnungenSuche.vb +++ b/SDL/Fakturierung/frmRechnungenSuche.vb @@ -23,7 +23,7 @@ Public Class frmRechnungenSuche .RowHeadersVisible = False .ReadOnly = True .SelectionMode = DataGridViewSelectionMode.FullRowSelect - .MultiSelect = False + ' .MultiSelect = False .Columns("RK_ID").Visible = False @@ -791,4 +791,54 @@ Public Class frmRechnungenSuche brexitXLS = True End With End Sub + + Function getList_RK_ID() As List(Of Integer) + Dim listRgNr As New List(Of Integer) + Dim list As New List(Of Integer) + If DataGridView.SelectedRows.Count > 0 Then + For Each r As DataGridViewRow In DataGridView.SelectedRows + If listRgNr.FindIndex((Function(x) x.ToString = r.Cells("RechnungsNr").Value)) < 0 Then + list.Add(r.Cells("RK_ID").Value) + listRgNr.Add(r.Cells("RechnungsNr").Value) + End If + Next + End If + Return list + End Function + + Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles Button9.Click + Me.Cursor = Cursors.WaitCursor + Try + For Each RK_ID In getList_RK_ID() + Dim RG_PATH = "" + cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True) + Process.Start(RG_PATH) + Next + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Me.Cursor = Cursors.Default + End Sub + + Private Sub DateiHochladenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiHochladenToolStripMenuItem.Click + Me.Cursor = Cursors.WaitCursor + Try + + Dim list As New List(Of String) + + For Each RK_ID In getList_RK_ID() + Dim RG_PATH = "" + cFakturierung.doRechnungsDruck_SRorER(RK_ID,, False, 4, RG_PATH,,, True) + list.Add(RG_PATH) + Next + + 'Zwischenablage + Clipboard.Clear() + Dim d As New DataObject(DataFormats.FileDrop, list.ToArray) + Clipboard.SetDataObject(d, True) + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Me.Cursor = Cursors.Default + End Sub End Class \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb index a521120d..220f48c2 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptLaufzettelZollDE.Designer.vb @@ -142,7 +142,7 @@ Partial Public Class rptLaufzettelZollDE Me.Shape10.Height = 0.08346456! Me.Shape10.Left = 0.4314961! Me.Shape10.Name = "Shape10" - Me.Shape10.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape10.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius) Me.Shape10.Top = 0! Me.Shape10.Width = 7.086614! ' @@ -151,7 +151,7 @@ Partial Public Class rptLaufzettelZollDE Me.Shape11.Height = 0.08346456! Me.Shape11.Left = 0.4314961! Me.Shape11.Name = "Shape11" - Me.Shape11.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape11.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius) Me.Shape11.Top = 0! Me.Shape11.Width = 1.15748! ' @@ -161,6 +161,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtAbfertigungsart.Height = 0.1669291! Me.txtAbfertigungsart.Left = 0.614567! Me.txtAbfertigungsart.Name = "txtAbfertigungsart" + Me.txtAbfertigungsart.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbfertigungsart.Style = "font-size: 8pt; font-weight: bold; text-align: left; vertical-align: top; ddo-cha" & "r-set: 1" Me.txtAbfertigungsart.Text = "Zollabfertigung" @@ -173,6 +174,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtAbsender.Height = 0.1669292! Me.txtAbsender.Left = 1.588977! Me.txtAbsender.Name = "txtAbsender" + Me.txtAbsender.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAbsender.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & "har-set: 1" Me.txtAbsender.Text = "Absender" @@ -184,6 +186,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtVerzollungsadresse.Height = 0.1255906! Me.txtVerzollungsadresse.Left = 5.150001! Me.txtVerzollungsadresse.Name = "txtVerzollungsadresse" + Me.txtVerzollungsadresse.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtVerzollungsadresse.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & "har-set: 1" Me.txtVerzollungsadresse.Text = "Verzollungsadresse / Gümrükleme Adresi" @@ -196,6 +199,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtNr.Height = 0.1669292! Me.txtNr.Left = 0.4405512! Me.txtNr.Name = "txtNr" + Me.txtNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtNr.Style = "font-size: 8pt; font-weight: normal; text-align: center; vertical-align: top; ddo" & "-char-set: 1" Me.txtNr.Text = "1" @@ -207,6 +211,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtAnmerkung.Height = 0.1669291! Me.txtAnmerkung.Left = 5.157875! Me.txtAnmerkung.Name = "txtAnmerkung" + Me.txtAnmerkung.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtAnmerkung.Style = "font-size: 8pt; font-style: normal; font-weight: bold; text-align: left; vertical" & "-align: top; ddo-char-set: 1" Me.txtAnmerkung.Text = Nothing @@ -218,6 +223,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtPosNr.Height = 0.3858268! Me.txtPosNr.Left = 0.6149607! Me.txtPosNr.Name = "txtPosNr" + Me.txtPosNr.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtPosNr.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & "har-set: 1" Me.txtPosNr.Text = "5501/19000000" @@ -229,6 +235,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtEmpfänger.Height = 0.1669292! Me.txtEmpfänger.Left = 3.1! Me.txtEmpfänger.Name = "txtEmpfänger" + Me.txtEmpfänger.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtEmpfänger.Style = "font-size: 8pt; font-weight: normal; text-align: left; vertical-align: top; ddo-c" & "har-set: 1" Me.txtEmpfänger.Text = "Empfänger" @@ -240,7 +247,7 @@ Partial Public Class rptLaufzettelZollDE Me.Shape8.Height = 0.08346459! Me.Shape8.Left = 6.946457! Me.Shape8.Name = "Shape8" - Me.Shape8.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape8.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius) Me.Shape8.Top = 0! Me.Shape8.Width = 0.5716529! ' @@ -260,6 +267,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtPos.Height = 0.3854331! Me.txtPos.Left = 6.972441! Me.txtPos.Name = "txtPos" + Me.txtPos.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtPos.Style = "font-size: 12pt; font-weight: normal; text-align: center; vertical-align: middle;" & " white-space: inherit; ddo-char-set: 1; ddo-wrap-mode: char-wrap" Me.txtPos.Text = Nothing @@ -288,6 +296,7 @@ Partial Public Class rptLaufzettelZollDE Me.lblDetails.HyperLink = Nothing Me.lblDetails.Left = 0.388189! Me.lblDetails.Name = "lblDetails" + Me.lblDetails.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.lblDetails.Style = "font-size: 8pt" Me.lblDetails.Text = "" Me.lblDetails.Top = 0.02490158! @@ -299,6 +308,7 @@ Partial Public Class rptLaufzettelZollDE Me.Label8.HyperLink = Nothing Me.Label8.Left = 0.3937008! Me.Label8.Name = "Label8" + Me.Label8.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.Label8.Style = "font-size: 6.75pt; ddo-char-set: 204" Me.Label8.Text = resources.GetString("Label8.Text") Me.Label8.Top = 0.02519685! @@ -329,7 +339,7 @@ Partial Public Class rptLaufzettelZollDE Me.Shape1.Height = 0.3618112! Me.Shape1.Left = 0.4311019! Me.Shape1.Name = "Shape1" - Me.Shape1.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape1.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius) Me.Shape1.Top = 1.866142! Me.Shape1.Width = 1.157874! ' @@ -338,6 +348,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtFirmaInfo_ATILLA.Height = 0.5000001! Me.txtFirmaInfo_ATILLA.Left = 0.4775591! Me.txtFirmaInfo_ATILLA.Name = "txtFirmaInfo_ATILLA" + Me.txtFirmaInfo_ATILLA.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtFirmaInfo_ATILLA.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" Me.txtFirmaInfo_ATILLA.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 2845" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43 77 11 / 284" & "6" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "atilla@verag.ag" @@ -350,6 +361,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtFirmaInfo_IMEX.Height = 0.5000001! Me.txtFirmaInfo_IMEX.Left = 0.4775591! Me.txtFirmaInfo_IMEX.Name = "txtFirmaInfo_IMEX" + Me.txtFirmaInfo_IMEX.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtFirmaInfo_IMEX.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" Me.txtFirmaInfo_IMEX.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31630 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.imex-group.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +43 77 1" & "1 / 31630-1" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " info@imex-group.at" @@ -373,6 +385,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox8.Height = 0.3334647! Me.TextBox8.Left = 0.4582672! Me.TextBox8.Name = "TextBox8" + Me.TextBox8.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox8.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & "ddo-char-set: 1" Me.TextBox8.Text = "Abfertigung" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungen" @@ -385,7 +398,7 @@ Partial Public Class rptLaufzettelZollDE Me.Shape3.Height = 0.3618112! Me.Shape3.Left = 1.588977! Me.Shape3.Name = "Shape3" - Me.Shape3.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape3.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius) Me.Shape3.Top = 1.866142! Me.Shape3.Width = 1.511024! ' @@ -395,7 +408,7 @@ Partial Public Class rptLaufzettelZollDE Me.Shape4.Height = 0.3618112! Me.Shape4.Left = 3.099999! Me.Shape4.Name = "Shape4" - Me.Shape4.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape4.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius) Me.Shape4.Top = 1.866142! Me.Shape4.Width = 2.05! ' @@ -405,7 +418,7 @@ Partial Public Class rptLaufzettelZollDE Me.Shape5.Height = 0.3618112! Me.Shape5.Left = 5.150001! Me.Shape5.Name = "Shape5" - Me.Shape5.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape5.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius) Me.Shape5.Top = 1.866142! Me.Shape5.Width = 2.367716! ' @@ -414,6 +427,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox4.Height = 0.3334647! Me.TextBox4.Left = 1.604725! Me.TextBox4.Name = "TextBox4" + Me.TextBox4.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox4.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & "ddo-char-set: 1" Me.TextBox4.Text = "Absender" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ATA/MRN" @@ -425,6 +439,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox9.Height = 0.3334647! Me.TextBox9.Left = 5.157875! Me.TextBox9.Name = "TextBox9" + Me.TextBox9.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox9.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & "ddo-char-set: 1" Me.TextBox9.Text = "Verzollungsadresse (NCTS)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sendungsdetails" @@ -436,6 +451,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtLKW.Height = 0.230315! Me.txtLKW.Left = 1.188976! Me.txtLKW.Name = "txtLKW" + Me.txtLKW.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtLKW.Style = "font-size: 14pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1" Me.txtLKW.Text = "34 TR 132456" Me.txtLKW.Top = 0.6783465! @@ -446,6 +462,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox12.Height = 0.230315! Me.TextBox12.Left = 0.4582677! Me.TextBox12.Name = "TextBox12" + Me.TextBox12.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox12.Style = "font-size: 10pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" Me.TextBox12.Text = "LKW:" Me.TextBox12.Top = 0.6783465! @@ -456,6 +473,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtLKWId.Height = 0.1574803! Me.txtLKWId.Left = 5.88937! Me.txtLKWId.Name = "txtLKWId" + Me.txtLKWId.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtLKWId.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.txtLKWId.Text = "123456" @@ -467,6 +485,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox14.Height = 0.1574803! Me.TextBox14.Left = 5.057087! Me.TextBox14.Name = "TextBox14" + Me.TextBox14.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox14.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" Me.TextBox14.Text = "LKW-Id:" Me.TextBox14.Top = 0.7511811! @@ -477,6 +496,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtSB.Height = 0.1574803! Me.txtSB.Left = 5.88937! Me.txtSB.Name = "txtSB" + Me.txtSB.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtSB.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.txtSB.Text = "Maximilian Mustermann" @@ -488,6 +508,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox18.Height = 0.1574803! Me.TextBox18.Left = 5.057087! Me.TextBox18.Name = "TextBox18" + Me.TextBox18.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox18.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" Me.TextBox18.Text = "Sachbearbeiter:" Me.TextBox18.Top = 0.9086615! @@ -498,6 +519,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtDatum.Height = 0.1574803! Me.txtDatum.Left = 5.88937! Me.txtDatum.Name = "txtDatum" + Me.txtDatum.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtDatum.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.txtDatum.Text = "01.01.2019" @@ -509,6 +531,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox25.Height = 0.1574803! Me.TextBox25.Left = 5.057087! Me.TextBox25.Name = "TextBox25" + Me.TextBox25.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox25.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" Me.TextBox25.Text = "Datum:" Me.TextBox25.Top = 0.5937008! @@ -519,6 +542,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtGrenzstelle.Height = 0.1574803! Me.txtGrenzstelle.Left = 1.188976! Me.txtGrenzstelle.Name = "txtGrenzstelle" + Me.txtGrenzstelle.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGrenzstelle.Style = "font-size: 9pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1" Me.txtGrenzstelle.Text = "SUB" Me.txtGrenzstelle.Top = 1.137402! @@ -529,6 +553,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox27.Height = 0.1574803! Me.TextBox27.Left = 0.4582679! Me.TextBox27.Name = "TextBox27" + Me.TextBox27.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox27.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" Me.TextBox27.Text = "Grenze:" Me.TextBox27.Top = 1.137402! @@ -539,6 +564,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtFraechter.Height = 0.1574803! Me.txtFraechter.Left = 1.188976! Me.txtFraechter.Name = "txtFraechter" + Me.txtFraechter.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtFraechter.Style = "font-size: 9pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1" Me.txtFraechter.Text = "Frächter" Me.txtFraechter.Top = 0.9397638! @@ -549,6 +575,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox32.Height = 0.1574803! Me.TextBox32.Left = 0.4582677! Me.TextBox32.Name = "TextBox32" + Me.TextBox32.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox32.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" Me.TextBox32.Text = "Frächter (*):" Me.TextBox32.Top = 0.9397638! @@ -559,6 +586,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox5.Height = 0.3334647! Me.TextBox5.Left = 3.123621! Me.TextBox5.Name = "TextBox5" + Me.TextBox5.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox5.Style = "font-size: 6.5pt; font-weight: normal; text-align: left; vertical-align: middle; " & "ddo-char-set: 1" Me.TextBox5.Text = "Empfänger" @@ -570,6 +598,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox1.Height = 0.230315! Me.TextBox1.Left = 0.4311024! Me.TextBox1.Name = "TextBox1" + Me.TextBox1.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox1.Style = "font-size: 16pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & "-char-set: 1" Me.TextBox1.Text = "LAUFZETTEL / GESTELLUNGSMITTEILUNG" @@ -582,7 +611,7 @@ Partial Public Class rptLaufzettelZollDE Me.Shape2.Height = 0.3618112! Me.Shape2.Left = 6.946457! Me.Shape2.Name = "Shape2" - Me.Shape2.RoundingRadius = New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing) + Me.Shape2.RoundingRadius = CType(New GrapeCity.ActiveReports.Controls.CornersRadius(10.0!, Nothing, Nothing, Nothing, Nothing), GrapeCity.ActiveReports.Controls.CornersRadius) Me.Shape2.Top = 1.866142! Me.Shape2.Width = 0.5791335! ' @@ -591,6 +620,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox2.Height = 0.3334647! Me.TextBox2.Left = 6.972441! Me.TextBox2.Name = "TextBox2" + Me.TextBox2.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox2.Style = "font-size: 6.5pt; font-weight: normal; text-align: center; vertical-align: middle" & "; ddo-char-set: 1" Me.TextBox2.Text = "T1" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Position" @@ -602,6 +632,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtEmail.Height = 0.1574803! Me.txtEmail.Left = 5.057481! Me.txtEmail.Name = "txtEmail" + Me.txtEmail.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtEmail.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.txtEmail.Text = "Email / Tel" @@ -613,6 +644,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtDW.Height = 0.1574803! Me.txtDW.Left = 5.057481! Me.txtDW.Name = "txtDW" + Me.txtDW.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtDW.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.txtDW.Text = "Email / Tel" @@ -624,6 +656,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtFirmeninfo_rontoffice.Height = 0.5000001! Me.txtFirmeninfo_rontoffice.Left = 0.4775603! Me.txtFirmeninfo_rontoffice.Name = "txtFirmeninfo_rontoffice" + Me.txtFirmeninfo_rontoffice.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtFirmeninfo_rontoffice.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" Me.txtFirmeninfo_rontoffice.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 31636 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "www.front-office.eu" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " & " suben@front-office.eu" @@ -636,6 +669,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtFirma_UNISPED.Height = 0.5000001! Me.txtFirma_UNISPED.Left = 0.4775591! Me.txtFirma_UNISPED.Name = "txtFirma_UNISPED" + Me.txtFirma_UNISPED.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtFirma_UNISPED.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" Me.txtFirma_UNISPED.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 2677-0" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.unisped.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "office@uni" & "sped.at" @@ -660,6 +694,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox7.Height = 0.5000001! Me.TextBox7.Left = 0.4775591! Me.TextBox7.Name = "TextBox7" + Me.TextBox7.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox7.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" Me.TextBox7.Text = "D 92726 Waidhaus " & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +49 9652 81450 " & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Am Autohof 3" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +" & "43 77 11 / 27 88" & Global.Microsoft.VisualBasic.ChrW(9) & " waidhaus@verag.ag" @@ -672,6 +707,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtFirmaInfo_VERAG.Height = 0.5000001! Me.txtFirmaInfo_VERAG.Left = 0.4775605! Me.txtFirmaInfo_VERAG.Name = "txtFirmaInfo_VERAG" + Me.txtFirmaInfo_VERAG.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtFirmaInfo_VERAG.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" Me.txtFirmaInfo_VERAG.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel. +43 77 11 / 27 77-20 " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 14-15" & Global.Microsoft.VisualBasic.ChrW(9) & "Fax +4" & "3 77 11 / 27 88 quickstop@verag.ag" @@ -683,6 +719,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox11.Height = 0.5000001! Me.TextBox11.Left = 0.4775591! Me.TextBox11.Name = "TextBox11" + Me.TextBox11.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox11.Style = "font-size: 8.25pt; vertical-align: middle; ddo-char-set: 204" Me.TextBox11.Text = "D-97337 Dettelbach Tel. +49 9302 8194920" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " www.verag.ag" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Mainfr" & "ankenpark 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " quickstop@verag.ag" @@ -695,6 +732,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtGesColli.Height = 0.1574803! Me.txtGesColli.Left = 5.874016! Me.txtGesColli.Name = "txtGesColli" + Me.txtGesColli.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesColli.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.txtGesColli.Text = "0 Pk" @@ -707,6 +745,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox6.Height = 0.1574803! Me.TextBox6.Left = 5.789766! Me.TextBox6.Name = "TextBox6" + Me.TextBox6.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox6.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" Me.TextBox6.Text = "Colli:" Me.TextBox6.Top = 0.08700788! @@ -718,6 +757,7 @@ Partial Public Class rptLaufzettelZollDE Me.txtGesGewicht.Height = 0.1574803! Me.txtGesGewicht.Left = 5.873622! Me.txtGesGewicht.Name = "txtGesGewicht" + Me.txtGesGewicht.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.txtGesGewicht.Style = "font-size: 9pt; font-weight: bold; text-align: right; vertical-align: middle; ddo" & "-char-set: 1" Me.txtGesGewicht.Text = "0.000 kg" @@ -730,6 +770,7 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox10.Height = 0.1574803! Me.TextBox10.Left = 5.789766! Me.TextBox10.Name = "TextBox10" + Me.TextBox10.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox10.Style = "font-size: 9pt; font-weight: normal; vertical-align: middle; ddo-char-set: 1" Me.TextBox10.Text = "Gewicht:" Me.TextBox10.Top = 0.2444879! @@ -749,11 +790,12 @@ Partial Public Class rptLaufzettelZollDE Me.TextBox3.Height = 0.4700788! Me.TextBox3.Left = 0.3937008! Me.TextBox3.Name = "TextBox3" + Me.TextBox3.Padding = CType(New GrapeCity.ActiveReports.PaddingEx(0, 0, 0, 0), GrapeCity.ActiveReports.PaddingEx) Me.TextBox3.Style = "font-size: 10pt; font-weight: bold; vertical-align: middle; ddo-char-set: 1" Me.TextBox3.Text = "Wir ersuchen um T-1 auf Befreiung und um eine angemessene Frist von mehr als 8 Ta" & - "gen - EU Auslieferung." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Vielen Dank!" + "gen - EU Auslieferung. Vielen Dank!" Me.TextBox3.Top = 0.08700788! - Me.TextBox3.Width = 4.43504! + Me.TextBox3.Width = 5.091339! ' 'Line1 ' @@ -782,12 +824,12 @@ Partial Public Class rptLaufzettelZollDE Me.Sections.Add(Me.Detail) Me.Sections.Add(Me.PageFooter) Me.Sections.Add(Me.ReportFooter1) - Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & - "l; font-size: 10pt; color: Black; ddo-char-set: 0", "Normal")) - Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal")) - Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & - "lic", "Heading2", "Normal")) - Me.StyleSheet.Add(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal")) + Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Arial; font-style: normal; text-decoration: none; font-weight: norma" & + "l; font-size: 10pt; color: Black; ddo-char-set: 0", "Normal"), DDCssLib.StyleSheetRule)) + Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 16pt; font-weight: bold", "Heading1", "Normal"), DDCssLib.StyleSheetRule)) + Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-family: Times New Roman; font-size: 14pt; font-weight: bold; font-style: ita" & + "lic", "Heading2", "Normal"), DDCssLib.StyleSheetRule)) + Me.StyleSheet.Add(CType(New DDCssLib.StyleSheetRule("font-size: 13pt; font-weight: bold", "Heading3", "Normal"), DDCssLib.StyleSheetRule)) CType(Me.txtAbfertigungsart, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtAbsender, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtVerzollungsadresse, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 4af68417..3c4f6070 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -1855,16 +1855,16 @@ Public Class FormularManagerNEU - Shared Function LaufzettelZollDE(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String + Shared Function LaufzettelZollDE(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional digital As Boolean = False) As String Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "") If AVISO Is Nothing Then Return "" Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return "" - Return LaufzettelZollDE(AVISO, SENDUNG_LIST) + Return LaufzettelZollDE(AVISO, SENDUNG_LIST, printReportElsePDF, printername,, digital) End Function - Shared Function LaufzettelZollDE_VP(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String + Shared Function LaufzettelZollDE_VP(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "", Optional digital As Boolean = False) As String Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "") If AVISO Is Nothing Then Return "" Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen) @@ -1876,12 +1876,12 @@ Public Class FormularManagerNEU End If If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return "" - Return LaufzettelZollDE(AVISO, SENDUNG_LIST,,, Vorpapier) + Return LaufzettelZollDE(AVISO, SENDUNG_LIST, printReportElsePDF, printername, Vorpapier, digital) End Function Shared gesColli As Double = 0 Shared gesGewicht As Double = 0 - Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "") As String + Shared Function LaufzettelZollDE(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional Vorpapier As String = "", Optional digital As Boolean = False) As String ' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim tmpPath = "" Try @@ -1985,6 +1985,27 @@ Public Class FormularManagerNEU rpt.txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl rpt.txtEmail.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email + If digital Then + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "FRONTOFFICE" + rpt.TextBox3.Text &= vbNewLine & "Die Waren befinden sich am Amtsplatz des ZA Suben-Autobahn." + Case Else + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + Case "SBG" : rpt.TextBox3.Text &= vbNewLine & "Die Waren befinden sich am Amtsplatz des ZA Bad Reichenhall Autobahn." + Case "WAI" + Case "NKD" : rpt.TextBox3.Text &= vbNewLine & "Die Waren befinden sich am Amtsplatz des ZA Nickelsdorf." + Case "NEU" + Case "DTB", "FO_WIHD" + Case Else + Select Case AVISO.Grenzstelle + Case "SUB" + rpt.TextBox3.Text &= vbNewLine & "Die Waren befinden sich am Amtsplatz des ZA Suben-Autobahn." + Case Else + End Select + End Select + End Select + End If + Dim tb As New DataTable diff --git a/SDL/Resources/Flender_Bocholt.xlsx b/SDL/Resources/Flender_Bocholt.xlsx new file mode 100644 index 00000000..ac241a5f Binary files /dev/null and b/SDL/Resources/Flender_Bocholt.xlsx differ diff --git a/SDL/kunden/frmNeuerKunde.vb b/SDL/kunden/frmNeuerKunde.vb index 990519b9..421c405e 100644 --- a/SDL/kunden/frmNeuerKunde.vb +++ b/SDL/kunden/frmNeuerKunde.vb @@ -133,7 +133,7 @@ KUNDE_ERW.kde_BesonderheitenNeu = 1 Dim err = "" - If Not ADRESSE.VALID(err) Then + If Not ADRESSE.VALID(err, KUNDE) Then lblError.Text = err kdnr = -1 : Exit Sub End If diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index a791154e..ed0aa612 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -84,23 +84,17 @@ Partial Class usrcntlKundeBearbeitenFull Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten() Me.tbVerrechnung = New System.Windows.Forms.TabPage() Me.Label95 = New System.Windows.Forms.Label() - Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxSammelrechnungBerichtLeistungsdetails = New System.Windows.Forms.CheckBox() Me.cbxAPITradeshift = New System.Windows.Forms.CheckBox() Me.Label94 = New System.Windows.Forms.Label() Me.cbxVeranlagungskunde = New System.Windows.Forms.CheckBox() Me.Label93 = New System.Windows.Forms.Label() - Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxAutoFakturierung = New System.Windows.Forms.CheckBox() - Me.txtAbf_Zahlungsziel3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbf_Zahlungsziel2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label36 = New System.Windows.Forms.Label() Me.cbxDepot = New System.Windows.Forms.CheckBox() - Me.txtAbf_LastschriftBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label34 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label() - Me.txtAbf_LastschriftVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label31 = New System.Windows.Forms.Label() Me.Label47 = New System.Windows.Forms.Label() Me.Label46 = New System.Windows.Forms.Label() @@ -115,6 +109,12 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label49 = New System.Windows.Forms.Label() Me.Label48 = New System.Windows.Forms.Label() Me.Label39 = New System.Windows.Forms.Label() + Me.cboRechnungSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtDebKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_Zahlungsziel3 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_Zahlungsziel2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_LastschriftBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbf_LastschriftVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtProvAuftraggeber = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cboProvisionStaffel = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboProvisionStaffelArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() @@ -130,10 +130,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label81 = New System.Windows.Forms.Label() Me.Label82 = New System.Windows.Forms.Label() Me.cbxInkassoUebergeben = New System.Windows.Forms.CheckBox() - Me.txtInkasso_GemeldeterBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtInkassoUebergebenAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label1 = New System.Windows.Forms.Label() - Me.txtVers_EHNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label35 = New System.Windows.Forms.Label() Me.Label27 = New System.Windows.Forms.Label() Me.Label24 = New System.Windows.Forms.Label() @@ -157,6 +154,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label54 = New System.Windows.Forms.Label() Me.Label52 = New System.Windows.Forms.Label() Me.Label51 = New System.Windows.Forms.Label() + Me.txtInkasso_GemeldeterBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtInkassoUebergebenAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVers_EHNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAnerkVersFallAb = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVersicherung_GemeldeterBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVersUebergebenOPSaldo = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -219,7 +219,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label96 = New System.Windows.Forms.Label() Me.txtSonst_KdNrPLOSE = New System.Windows.Forms.TextBox() Me.Label83 = New System.Windows.Forms.Label() - Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.Label76 = New System.Windows.Forms.Label() Me.dgvSonst_IDSKunden = New System.Windows.Forms.DataGridView() Me.cbxSonst_CsvAsfinag = New System.Windows.Forms.CheckBox() @@ -237,29 +236,31 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtSonst_KdNrIDS = New System.Windows.Forms.TextBox() Me.Label70 = New System.Windows.Forms.Label() Me.Label71 = New System.Windows.Forms.Label() + Me.btnSonstAendSpeichern = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.cboSonst_Rechnungsdruck = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.tbSchnittstellen = New System.Windows.Forms.TabPage() Me.txtVERAG_Schnittstellen_ID = New System.Windows.Forms.TextBox() Me.Label91 = New System.Windows.Forms.Label() Me.Label92 = New System.Windows.Forms.Label() Me.DataGridView1 = New System.Windows.Forms.DataGridView() - Me.txtEORINL = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEORI = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label33 = New System.Windows.Forms.Label() Me.Label84 = New System.Windows.Forms.Label() - Me.cboUSt_UstIdNrLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUSt_UstIdNrGeprueftAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUSt_UstIdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.GroupBox3 = New System.Windows.Forms.GroupBox() + Me.Button13 = New System.Windows.Forms.Button() Me.btnUIDPruef = New System.Windows.Forms.Button() + Me.txtEORINL = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label5 = New System.Windows.Forms.Label() + Me.txtEORI = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirmenname1 = New System.Windows.Forms.TextBox() + Me.cboUSt_UstIdNrLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label15 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() + Me.txtUSt_UstIdNrGeprueftAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtKurzname = New System.Windows.Forms.TextBox() + Me.txtUSt_UstIdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirmenname2 = New System.Windows.Forms.TextBox() Me.Label16 = New System.Windows.Forms.Label() + Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label14 = New System.Windows.Forms.Label() @@ -305,18 +306,17 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboKundenkreis = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label77 = New System.Windows.Forms.Label() Me.lblKundennr = New System.Windows.Forms.Label() - Me.txtERROR = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Label79 = New System.Windows.Forms.Label() - Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label80 = New System.Windows.Forms.Label() - Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxFiBu = New System.Windows.Forms.CheckBox() Me.cbxFiBuLG = New System.Windows.Forms.CheckBox() Me.Label97 = New System.Windows.Forms.Label() Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox1 = New System.Windows.Forms.CheckBox() - Me.Button13 = New System.Windows.Forms.Button() + Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtERROR = New System.Windows.Forms.TextBox() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.tbcntrDetails.SuspendLayout() Me.tbAbfertigung.SuspendLayout() Me.tbcntrAbf.SuspendLayout() @@ -419,6 +419,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboFremdspedition.Name = "cboFremdspedition" Me.cboFremdspedition.Size = New System.Drawing.Size(126, 21) Me.cboFremdspedition.TabIndex = 238 + Me.cboFremdspedition.Text = "SEBERT" ' 'cbxVerzolltBei ' @@ -525,6 +526,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbfVerb_RechtsanwaltSeit._DateTimeOnly = False Me.txtAbfVerb_RechtsanwaltSeit._numbersOnly = False Me.txtAbfVerb_RechtsanwaltSeit._numbersOnlyKommastellen = "" + Me.txtAbfVerb_RechtsanwaltSeit._numbersOnlyTrennzeichen = True Me.txtAbfVerb_RechtsanwaltSeit._Prozent = False Me.txtAbfVerb_RechtsanwaltSeit._ShortDateNew = True Me.txtAbfVerb_RechtsanwaltSeit._ShortDateOnly = False @@ -619,6 +621,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbfVerb_AbfertigungsverbotSeit._DateTimeOnly = False Me.txtAbfVerb_AbfertigungsverbotSeit._numbersOnly = False Me.txtAbfVerb_AbfertigungsverbotSeit._numbersOnlyKommastellen = "" + Me.txtAbfVerb_AbfertigungsverbotSeit._numbersOnlyTrennzeichen = True Me.txtAbfVerb_AbfertigungsverbotSeit._Prozent = False Me.txtAbfVerb_AbfertigungsverbotSeit._ShortDateNew = True Me.txtAbfVerb_AbfertigungsverbotSeit._ShortDateOnly = True @@ -707,6 +710,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_ZollVmVom._DateTimeOnly = False Me.txtAbf_ZollVmVom._numbersOnly = False Me.txtAbf_ZollVmVom._numbersOnlyKommastellen = "" + Me.txtAbf_ZollVmVom._numbersOnlyTrennzeichen = True Me.txtAbf_ZollVmVom._Prozent = False Me.txtAbf_ZollVmVom._ShortDateNew = True Me.txtAbf_ZollVmVom._ShortDateOnly = False @@ -742,6 +746,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_Planzahl._DateTimeOnly = False Me.txtAbf_Planzahl._numbersOnly = False Me.txtAbf_Planzahl._numbersOnlyKommastellen = "" + Me.txtAbf_Planzahl._numbersOnlyTrennzeichen = True Me.txtAbf_Planzahl._Prozent = False Me.txtAbf_Planzahl._ShortDateNew = False Me.txtAbf_Planzahl._ShortDateOnly = False @@ -774,6 +779,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_Euroeinführung._DateTimeOnly = False Me.txtAbf_Euroeinführung._numbersOnly = False Me.txtAbf_Euroeinführung._numbersOnlyKommastellen = "" + Me.txtAbf_Euroeinführung._numbersOnlyTrennzeichen = True Me.txtAbf_Euroeinführung._Prozent = False Me.txtAbf_Euroeinführung._ShortDateNew = True Me.txtAbf_Euroeinführung._ShortDateOnly = False @@ -798,6 +804,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_ErsteAbfertigung._DateTimeOnly = False Me.txtAbf_ErsteAbfertigung._numbersOnly = False Me.txtAbf_ErsteAbfertigung._numbersOnlyKommastellen = "" + Me.txtAbf_ErsteAbfertigung._numbersOnlyTrennzeichen = True Me.txtAbf_ErsteAbfertigung._Prozent = False Me.txtAbf_ErsteAbfertigung._ShortDateNew = True Me.txtAbf_ErsteAbfertigung._ShortDateOnly = False @@ -996,23 +1003,17 @@ Partial Class usrcntlKundeBearbeitenFull 'tbVerrechnung ' Me.tbVerrechnung.Controls.Add(Me.Label95) - Me.tbVerrechnung.Controls.Add(Me.cboRechnungSprache) Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnungBerichtLeistungsdetails) Me.tbVerrechnung.Controls.Add(Me.cbxAPITradeshift) Me.tbVerrechnung.Controls.Add(Me.Label94) Me.tbVerrechnung.Controls.Add(Me.cbxVeranlagungskunde) Me.tbVerrechnung.Controls.Add(Me.Label93) - Me.tbVerrechnung.Controls.Add(Me.txtDebKdNr) Me.tbVerrechnung.Controls.Add(Me.cbxAutoFakturierung) - Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel3) - Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel2) Me.tbVerrechnung.Controls.Add(Me.Label36) Me.tbVerrechnung.Controls.Add(Me.cbxDepot) - Me.tbVerrechnung.Controls.Add(Me.txtAbf_LastschriftBis) Me.tbVerrechnung.Controls.Add(Me.Label34) Me.tbVerrechnung.Controls.Add(Me.Label32) Me.tbVerrechnung.Controls.Add(Me.Label30) - Me.tbVerrechnung.Controls.Add(Me.txtAbf_LastschriftVon) Me.tbVerrechnung.Controls.Add(Me.Label31) Me.tbVerrechnung.Controls.Add(Me.Label47) Me.tbVerrechnung.Controls.Add(Me.Label46) @@ -1027,6 +1028,12 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVerrechnung.Controls.Add(Me.Label49) Me.tbVerrechnung.Controls.Add(Me.Label48) Me.tbVerrechnung.Controls.Add(Me.Label39) + Me.tbVerrechnung.Controls.Add(Me.cboRechnungSprache) + Me.tbVerrechnung.Controls.Add(Me.txtDebKdNr) + Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel3) + Me.tbVerrechnung.Controls.Add(Me.txtAbf_Zahlungsziel2) + Me.tbVerrechnung.Controls.Add(Me.txtAbf_LastschriftBis) + Me.tbVerrechnung.Controls.Add(Me.txtAbf_LastschriftVon) Me.tbVerrechnung.Controls.Add(Me.txtProvAuftraggeber) Me.tbVerrechnung.Controls.Add(Me.cboProvisionStaffel) Me.tbVerrechnung.Controls.Add(Me.cboProvisionStaffelArt) @@ -1055,22 +1062,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label95.TabIndex = 38 Me.Label95.Text = "Rg.-Sprache:" ' - 'cboRechnungSprache - ' - Me.cboRechnungSprache._allowedValuesFreiText = Nothing - Me.cboRechnungSprache._allowFreiText = False - Me.cboRechnungSprache._value = "" - Me.cboRechnungSprache.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.cboRechnungSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboRechnungSprache.DropDownWidth = 200 - Me.cboRechnungSprache.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboRechnungSprache.ForeColor = System.Drawing.Color.Black - Me.cboRechnungSprache.FormattingEnabled = True - Me.cboRechnungSprache.Location = New System.Drawing.Point(527, 132) - Me.cboRechnungSprache.Name = "cboRechnungSprache" - Me.cboRechnungSprache.Size = New System.Drawing.Size(73, 21) - Me.cboRechnungSprache.TabIndex = 39 - ' 'cbxSammelrechnungBerichtLeistungsdetails ' Me.cbxSammelrechnungBerichtLeistungsdetails.AutoSize = True @@ -1122,30 +1113,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label93.TabIndex = 32 Me.Label93.Text = "Debitoren-KundenNr.:" ' - 'txtDebKdNr - ' - Me.txtDebKdNr._DateTimeOnly = False - Me.txtDebKdNr._numbersOnly = True - Me.txtDebKdNr._numbersOnlyKommastellen = "" - Me.txtDebKdNr._Prozent = False - Me.txtDebKdNr._ShortDateNew = False - Me.txtDebKdNr._ShortDateOnly = False - Me.txtDebKdNr._TimeOnly = False - Me.txtDebKdNr._TimeOnly_Seconds = False - Me.txtDebKdNr._value = "" - Me.txtDebKdNr._Waehrung = False - Me.txtDebKdNr._WaehrungZeichen = False - Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red - Me.txtDebKdNr.Location = New System.Drawing.Point(125, 20) - Me.txtDebKdNr.MaxLength = 10 - Me.txtDebKdNr.MaxLineLength = -1 - Me.txtDebKdNr.MaxLines_Warning = "" - Me.txtDebKdNr.MaxLines_Warning_Label = Nothing - Me.txtDebKdNr.Name = "txtDebKdNr" - Me.txtDebKdNr.Size = New System.Drawing.Size(86, 20) - Me.txtDebKdNr.TabIndex = 33 - Me.txtDebKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'cbxAutoFakturierung ' Me.cbxAutoFakturierung.AutoSize = True @@ -1157,54 +1124,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxAutoFakturierung.Text = "AUTO Fakturierung" Me.cbxAutoFakturierung.UseVisualStyleBackColor = True ' - 'txtAbf_Zahlungsziel3 - ' - Me.txtAbf_Zahlungsziel3._DateTimeOnly = False - Me.txtAbf_Zahlungsziel3._numbersOnly = True - Me.txtAbf_Zahlungsziel3._numbersOnlyKommastellen = "" - Me.txtAbf_Zahlungsziel3._Prozent = False - Me.txtAbf_Zahlungsziel3._ShortDateNew = False - Me.txtAbf_Zahlungsziel3._ShortDateOnly = False - Me.txtAbf_Zahlungsziel3._TimeOnly = False - Me.txtAbf_Zahlungsziel3._TimeOnly_Seconds = False - Me.txtAbf_Zahlungsziel3._value = "" - Me.txtAbf_Zahlungsziel3._Waehrung = False - Me.txtAbf_Zahlungsziel3._WaehrungZeichen = True - Me.txtAbf_Zahlungsziel3.ForeColor = System.Drawing.Color.Red - Me.txtAbf_Zahlungsziel3.Location = New System.Drawing.Point(257, 159) - Me.txtAbf_Zahlungsziel3.MaxLength = 10 - Me.txtAbf_Zahlungsziel3.MaxLineLength = -1 - Me.txtAbf_Zahlungsziel3.MaxLines_Warning = "" - Me.txtAbf_Zahlungsziel3.MaxLines_Warning_Label = Nothing - Me.txtAbf_Zahlungsziel3.Name = "txtAbf_Zahlungsziel3" - Me.txtAbf_Zahlungsziel3.Size = New System.Drawing.Size(60, 20) - Me.txtAbf_Zahlungsziel3.TabIndex = 30 - Me.txtAbf_Zahlungsziel3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtAbf_Zahlungsziel2 - ' - Me.txtAbf_Zahlungsziel2._DateTimeOnly = False - Me.txtAbf_Zahlungsziel2._numbersOnly = True - Me.txtAbf_Zahlungsziel2._numbersOnlyKommastellen = "" - Me.txtAbf_Zahlungsziel2._Prozent = False - Me.txtAbf_Zahlungsziel2._ShortDateNew = False - Me.txtAbf_Zahlungsziel2._ShortDateOnly = False - Me.txtAbf_Zahlungsziel2._TimeOnly = False - Me.txtAbf_Zahlungsziel2._TimeOnly_Seconds = False - Me.txtAbf_Zahlungsziel2._value = "" - Me.txtAbf_Zahlungsziel2._Waehrung = False - Me.txtAbf_Zahlungsziel2._WaehrungZeichen = True - Me.txtAbf_Zahlungsziel2.ForeColor = System.Drawing.Color.Red - Me.txtAbf_Zahlungsziel2.Location = New System.Drawing.Point(191, 159) - Me.txtAbf_Zahlungsziel2.MaxLength = 10 - Me.txtAbf_Zahlungsziel2.MaxLineLength = -1 - Me.txtAbf_Zahlungsziel2.MaxLines_Warning = "" - Me.txtAbf_Zahlungsziel2.MaxLines_Warning_Label = Nothing - Me.txtAbf_Zahlungsziel2.Name = "txtAbf_Zahlungsziel2" - Me.txtAbf_Zahlungsziel2.Size = New System.Drawing.Size(60, 20) - Me.txtAbf_Zahlungsziel2.TabIndex = 29 - Me.txtAbf_Zahlungsziel2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label36 ' Me.Label36.AutoSize = True @@ -1227,30 +1146,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxDepot.Text = "Depot-Kunde" Me.cbxDepot.UseVisualStyleBackColor = True ' - 'txtAbf_LastschriftBis - ' - Me.txtAbf_LastschriftBis._DateTimeOnly = False - Me.txtAbf_LastschriftBis._numbersOnly = False - Me.txtAbf_LastschriftBis._numbersOnlyKommastellen = "" - Me.txtAbf_LastschriftBis._Prozent = False - Me.txtAbf_LastschriftBis._ShortDateNew = True - Me.txtAbf_LastschriftBis._ShortDateOnly = False - Me.txtAbf_LastschriftBis._TimeOnly = False - Me.txtAbf_LastschriftBis._TimeOnly_Seconds = False - Me.txtAbf_LastschriftBis._value = "" - Me.txtAbf_LastschriftBis._Waehrung = False - Me.txtAbf_LastschriftBis._WaehrungZeichen = True - Me.txtAbf_LastschriftBis.Enabled = False - Me.txtAbf_LastschriftBis.ForeColor = System.Drawing.Color.Red - Me.txtAbf_LastschriftBis.Location = New System.Drawing.Point(257, 196) - Me.txtAbf_LastschriftBis.MaxLength = 10 - Me.txtAbf_LastschriftBis.MaxLineLength = -1 - Me.txtAbf_LastschriftBis.MaxLines_Warning = "" - Me.txtAbf_LastschriftBis.MaxLines_Warning_Label = Nothing - Me.txtAbf_LastschriftBis.Name = "txtAbf_LastschriftBis" - Me.txtAbf_LastschriftBis.Size = New System.Drawing.Size(60, 20) - Me.txtAbf_LastschriftBis.TabIndex = 9 - ' 'Label34 ' Me.Label34.AutoSize = True @@ -1281,30 +1176,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label30.TabIndex = 25 Me.Label30.Text = "Provision:" ' - 'txtAbf_LastschriftVon - ' - Me.txtAbf_LastschriftVon._DateTimeOnly = False - Me.txtAbf_LastschriftVon._numbersOnly = False - Me.txtAbf_LastschriftVon._numbersOnlyKommastellen = "" - Me.txtAbf_LastschriftVon._Prozent = False - Me.txtAbf_LastschriftVon._ShortDateNew = True - Me.txtAbf_LastschriftVon._ShortDateOnly = False - Me.txtAbf_LastschriftVon._TimeOnly = False - Me.txtAbf_LastschriftVon._TimeOnly_Seconds = False - Me.txtAbf_LastschriftVon._value = "" - Me.txtAbf_LastschriftVon._Waehrung = False - Me.txtAbf_LastschriftVon._WaehrungZeichen = True - Me.txtAbf_LastschriftVon.Enabled = False - Me.txtAbf_LastschriftVon.ForeColor = System.Drawing.Color.Red - Me.txtAbf_LastschriftVon.Location = New System.Drawing.Point(191, 196) - Me.txtAbf_LastschriftVon.MaxLength = 10 - Me.txtAbf_LastschriftVon.MaxLineLength = -1 - Me.txtAbf_LastschriftVon.MaxLines_Warning = "" - Me.txtAbf_LastschriftVon.MaxLines_Warning_Label = Nothing - Me.txtAbf_LastschriftVon.Name = "txtAbf_LastschriftVon" - Me.txtAbf_LastschriftVon.Size = New System.Drawing.Size(60, 20) - Me.txtAbf_LastschriftVon.TabIndex = 8 - ' 'Label31 ' Me.Label31.AutoSize = True @@ -1443,11 +1314,153 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label39.TabIndex = 3 Me.Label39.Text = "Sammelrechnung:" ' + 'cboRechnungSprache + ' + Me.cboRechnungSprache._allowedValuesFreiText = Nothing + Me.cboRechnungSprache._allowFreiText = False + Me.cboRechnungSprache._value = "" + Me.cboRechnungSprache.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboRechnungSprache.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboRechnungSprache.DropDownWidth = 200 + Me.cboRechnungSprache.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboRechnungSprache.ForeColor = System.Drawing.Color.Black + Me.cboRechnungSprache.FormattingEnabled = True + Me.cboRechnungSprache.Location = New System.Drawing.Point(527, 132) + Me.cboRechnungSprache.Name = "cboRechnungSprache" + Me.cboRechnungSprache.Size = New System.Drawing.Size(73, 21) + Me.cboRechnungSprache.TabIndex = 39 + ' + 'txtDebKdNr + ' + Me.txtDebKdNr._DateTimeOnly = False + Me.txtDebKdNr._numbersOnly = True + Me.txtDebKdNr._numbersOnlyKommastellen = "" + Me.txtDebKdNr._numbersOnlyTrennzeichen = True + Me.txtDebKdNr._Prozent = False + Me.txtDebKdNr._ShortDateNew = False + Me.txtDebKdNr._ShortDateOnly = False + Me.txtDebKdNr._TimeOnly = False + Me.txtDebKdNr._TimeOnly_Seconds = False + Me.txtDebKdNr._value = "" + Me.txtDebKdNr._Waehrung = False + Me.txtDebKdNr._WaehrungZeichen = False + Me.txtDebKdNr.ForeColor = System.Drawing.Color.Red + Me.txtDebKdNr.Location = New System.Drawing.Point(125, 20) + Me.txtDebKdNr.MaxLength = 10 + Me.txtDebKdNr.MaxLineLength = -1 + Me.txtDebKdNr.MaxLines_Warning = "" + Me.txtDebKdNr.MaxLines_Warning_Label = Nothing + Me.txtDebKdNr.Name = "txtDebKdNr" + Me.txtDebKdNr.Size = New System.Drawing.Size(86, 20) + Me.txtDebKdNr.TabIndex = 33 + Me.txtDebKdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtAbf_Zahlungsziel3 + ' + Me.txtAbf_Zahlungsziel3._DateTimeOnly = False + Me.txtAbf_Zahlungsziel3._numbersOnly = True + Me.txtAbf_Zahlungsziel3._numbersOnlyKommastellen = "" + Me.txtAbf_Zahlungsziel3._numbersOnlyTrennzeichen = True + Me.txtAbf_Zahlungsziel3._Prozent = False + Me.txtAbf_Zahlungsziel3._ShortDateNew = False + Me.txtAbf_Zahlungsziel3._ShortDateOnly = False + Me.txtAbf_Zahlungsziel3._TimeOnly = False + Me.txtAbf_Zahlungsziel3._TimeOnly_Seconds = False + Me.txtAbf_Zahlungsziel3._value = "" + Me.txtAbf_Zahlungsziel3._Waehrung = False + Me.txtAbf_Zahlungsziel3._WaehrungZeichen = True + Me.txtAbf_Zahlungsziel3.ForeColor = System.Drawing.Color.Red + Me.txtAbf_Zahlungsziel3.Location = New System.Drawing.Point(257, 159) + Me.txtAbf_Zahlungsziel3.MaxLength = 10 + Me.txtAbf_Zahlungsziel3.MaxLineLength = -1 + Me.txtAbf_Zahlungsziel3.MaxLines_Warning = "" + Me.txtAbf_Zahlungsziel3.MaxLines_Warning_Label = Nothing + Me.txtAbf_Zahlungsziel3.Name = "txtAbf_Zahlungsziel3" + Me.txtAbf_Zahlungsziel3.Size = New System.Drawing.Size(60, 20) + Me.txtAbf_Zahlungsziel3.TabIndex = 30 + Me.txtAbf_Zahlungsziel3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtAbf_Zahlungsziel2 + ' + Me.txtAbf_Zahlungsziel2._DateTimeOnly = False + Me.txtAbf_Zahlungsziel2._numbersOnly = True + Me.txtAbf_Zahlungsziel2._numbersOnlyKommastellen = "" + Me.txtAbf_Zahlungsziel2._numbersOnlyTrennzeichen = True + Me.txtAbf_Zahlungsziel2._Prozent = False + Me.txtAbf_Zahlungsziel2._ShortDateNew = False + Me.txtAbf_Zahlungsziel2._ShortDateOnly = False + Me.txtAbf_Zahlungsziel2._TimeOnly = False + Me.txtAbf_Zahlungsziel2._TimeOnly_Seconds = False + Me.txtAbf_Zahlungsziel2._value = "" + Me.txtAbf_Zahlungsziel2._Waehrung = False + Me.txtAbf_Zahlungsziel2._WaehrungZeichen = True + Me.txtAbf_Zahlungsziel2.ForeColor = System.Drawing.Color.Red + Me.txtAbf_Zahlungsziel2.Location = New System.Drawing.Point(191, 159) + Me.txtAbf_Zahlungsziel2.MaxLength = 10 + Me.txtAbf_Zahlungsziel2.MaxLineLength = -1 + Me.txtAbf_Zahlungsziel2.MaxLines_Warning = "" + Me.txtAbf_Zahlungsziel2.MaxLines_Warning_Label = Nothing + Me.txtAbf_Zahlungsziel2.Name = "txtAbf_Zahlungsziel2" + Me.txtAbf_Zahlungsziel2.Size = New System.Drawing.Size(60, 20) + Me.txtAbf_Zahlungsziel2.TabIndex = 29 + Me.txtAbf_Zahlungsziel2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtAbf_LastschriftBis + ' + Me.txtAbf_LastschriftBis._DateTimeOnly = False + Me.txtAbf_LastschriftBis._numbersOnly = False + Me.txtAbf_LastschriftBis._numbersOnlyKommastellen = "" + Me.txtAbf_LastschriftBis._numbersOnlyTrennzeichen = True + Me.txtAbf_LastschriftBis._Prozent = False + Me.txtAbf_LastschriftBis._ShortDateNew = True + Me.txtAbf_LastschriftBis._ShortDateOnly = False + Me.txtAbf_LastschriftBis._TimeOnly = False + Me.txtAbf_LastschriftBis._TimeOnly_Seconds = False + Me.txtAbf_LastschriftBis._value = "" + Me.txtAbf_LastschriftBis._Waehrung = False + Me.txtAbf_LastschriftBis._WaehrungZeichen = True + Me.txtAbf_LastschriftBis.Enabled = False + Me.txtAbf_LastschriftBis.ForeColor = System.Drawing.Color.Red + Me.txtAbf_LastschriftBis.Location = New System.Drawing.Point(257, 196) + Me.txtAbf_LastschriftBis.MaxLength = 10 + Me.txtAbf_LastschriftBis.MaxLineLength = -1 + Me.txtAbf_LastschriftBis.MaxLines_Warning = "" + Me.txtAbf_LastschriftBis.MaxLines_Warning_Label = Nothing + Me.txtAbf_LastschriftBis.Name = "txtAbf_LastschriftBis" + Me.txtAbf_LastschriftBis.Size = New System.Drawing.Size(60, 20) + Me.txtAbf_LastschriftBis.TabIndex = 9 + ' + 'txtAbf_LastschriftVon + ' + Me.txtAbf_LastschriftVon._DateTimeOnly = False + Me.txtAbf_LastschriftVon._numbersOnly = False + Me.txtAbf_LastschriftVon._numbersOnlyKommastellen = "" + Me.txtAbf_LastschriftVon._numbersOnlyTrennzeichen = True + Me.txtAbf_LastschriftVon._Prozent = False + Me.txtAbf_LastschriftVon._ShortDateNew = True + Me.txtAbf_LastschriftVon._ShortDateOnly = False + Me.txtAbf_LastschriftVon._TimeOnly = False + Me.txtAbf_LastschriftVon._TimeOnly_Seconds = False + Me.txtAbf_LastschriftVon._value = "" + Me.txtAbf_LastschriftVon._Waehrung = False + Me.txtAbf_LastschriftVon._WaehrungZeichen = True + Me.txtAbf_LastschriftVon.Enabled = False + Me.txtAbf_LastschriftVon.ForeColor = System.Drawing.Color.Red + Me.txtAbf_LastschriftVon.Location = New System.Drawing.Point(191, 196) + Me.txtAbf_LastschriftVon.MaxLength = 10 + Me.txtAbf_LastschriftVon.MaxLineLength = -1 + Me.txtAbf_LastschriftVon.MaxLines_Warning = "" + Me.txtAbf_LastschriftVon.MaxLines_Warning_Label = Nothing + Me.txtAbf_LastschriftVon.Name = "txtAbf_LastschriftVon" + Me.txtAbf_LastschriftVon.Size = New System.Drawing.Size(60, 20) + Me.txtAbf_LastschriftVon.TabIndex = 8 + ' 'txtProvAuftraggeber ' Me.txtProvAuftraggeber._DateTimeOnly = False Me.txtProvAuftraggeber._numbersOnly = False Me.txtProvAuftraggeber._numbersOnlyKommastellen = "" + Me.txtProvAuftraggeber._numbersOnlyTrennzeichen = True Me.txtProvAuftraggeber._Prozent = True Me.txtProvAuftraggeber._ShortDateNew = False Me.txtProvAuftraggeber._ShortDateOnly = False @@ -1552,6 +1565,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_BankspesenMindestbetrag._DateTimeOnly = False Me.txtAbf_BankspesenMindestbetrag._numbersOnly = False Me.txtAbf_BankspesenMindestbetrag._numbersOnlyKommastellen = "" + Me.txtAbf_BankspesenMindestbetrag._numbersOnlyTrennzeichen = True Me.txtAbf_BankspesenMindestbetrag._Prozent = False Me.txtAbf_BankspesenMindestbetrag._ShortDateNew = False Me.txtAbf_BankspesenMindestbetrag._ShortDateOnly = False @@ -1576,6 +1590,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_Bankspesen._DateTimeOnly = False Me.txtAbf_Bankspesen._numbersOnly = False Me.txtAbf_Bankspesen._numbersOnlyKommastellen = "" + Me.txtAbf_Bankspesen._numbersOnlyTrennzeichen = True Me.txtAbf_Bankspesen._Prozent = True Me.txtAbf_Bankspesen._ShortDateNew = False Me.txtAbf_Bankspesen._ShortDateOnly = False @@ -1601,6 +1616,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_Kreditaufwendungen._DateTimeOnly = False Me.txtAbf_Kreditaufwendungen._numbersOnly = False Me.txtAbf_Kreditaufwendungen._numbersOnlyKommastellen = "" + Me.txtAbf_Kreditaufwendungen._numbersOnlyTrennzeichen = True Me.txtAbf_Kreditaufwendungen._Prozent = True Me.txtAbf_Kreditaufwendungen._ShortDateNew = False Me.txtAbf_Kreditaufwendungen._ShortDateOnly = False @@ -1626,6 +1642,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_Vorlageprovision._DateTimeOnly = False Me.txtAbf_Vorlageprovision._numbersOnly = False Me.txtAbf_Vorlageprovision._numbersOnlyKommastellen = "" + Me.txtAbf_Vorlageprovision._numbersOnlyTrennzeichen = True Me.txtAbf_Vorlageprovision._Prozent = True Me.txtAbf_Vorlageprovision._ShortDateNew = False Me.txtAbf_Vorlageprovision._ShortDateOnly = False @@ -1651,6 +1668,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAbf_Zahlungsziel._DateTimeOnly = False Me.txtAbf_Zahlungsziel._numbersOnly = True Me.txtAbf_Zahlungsziel._numbersOnlyKommastellen = "" + Me.txtAbf_Zahlungsziel._numbersOnlyTrennzeichen = True Me.txtAbf_Zahlungsziel._Prozent = False Me.txtAbf_Zahlungsziel._ShortDateNew = False Me.txtAbf_Zahlungsziel._ShortDateOnly = False @@ -1675,10 +1693,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVersicherung.Controls.Add(Me.Label81) Me.tbVersicherung.Controls.Add(Me.Label82) Me.tbVersicherung.Controls.Add(Me.cbxInkassoUebergeben) - Me.tbVersicherung.Controls.Add(Me.txtInkasso_GemeldeterBetrag) - Me.tbVersicherung.Controls.Add(Me.txtInkassoUebergebenAm) Me.tbVersicherung.Controls.Add(Me.Label1) - Me.tbVersicherung.Controls.Add(Me.txtVers_EHNr) Me.tbVersicherung.Controls.Add(Me.Label35) Me.tbVersicherung.Controls.Add(Me.Label27) Me.tbVersicherung.Controls.Add(Me.Label24) @@ -1702,6 +1717,9 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbVersicherung.Controls.Add(Me.Label54) Me.tbVersicherung.Controls.Add(Me.Label52) Me.tbVersicherung.Controls.Add(Me.Label51) + Me.tbVersicherung.Controls.Add(Me.txtInkasso_GemeldeterBetrag) + Me.tbVersicherung.Controls.Add(Me.txtInkassoUebergebenAm) + Me.tbVersicherung.Controls.Add(Me.txtVers_EHNr) Me.tbVersicherung.Controls.Add(Me.txtAnerkVersFallAb) Me.tbVersicherung.Controls.Add(Me.txtVersicherung_GemeldeterBetrag) Me.tbVersicherung.Controls.Add(Me.txtVersUebergebenOPSaldo) @@ -1755,55 +1773,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.cbxInkassoUebergeben.Text = "Acredia Inkasso übergeben" Me.cbxInkassoUebergeben.UseVisualStyleBackColor = True ' - 'txtInkasso_GemeldeterBetrag - ' - Me.txtInkasso_GemeldeterBetrag._DateTimeOnly = False - Me.txtInkasso_GemeldeterBetrag._numbersOnly = False - Me.txtInkasso_GemeldeterBetrag._numbersOnlyKommastellen = "" - Me.txtInkasso_GemeldeterBetrag._Prozent = False - Me.txtInkasso_GemeldeterBetrag._ShortDateNew = False - Me.txtInkasso_GemeldeterBetrag._ShortDateOnly = False - Me.txtInkasso_GemeldeterBetrag._TimeOnly = False - Me.txtInkasso_GemeldeterBetrag._TimeOnly_Seconds = False - Me.txtInkasso_GemeldeterBetrag._value = "" - Me.txtInkasso_GemeldeterBetrag._Waehrung = True - Me.txtInkasso_GemeldeterBetrag._WaehrungZeichen = True - Me.txtInkasso_GemeldeterBetrag.ForeColor = System.Drawing.Color.Red - Me.txtInkasso_GemeldeterBetrag.Location = New System.Drawing.Point(523, 165) - Me.txtInkasso_GemeldeterBetrag.MaxLength = 10 - Me.txtInkasso_GemeldeterBetrag.MaxLineLength = -1 - Me.txtInkasso_GemeldeterBetrag.MaxLines_Warning = "" - Me.txtInkasso_GemeldeterBetrag.MaxLines_Warning_Label = Nothing - Me.txtInkasso_GemeldeterBetrag.Name = "txtInkasso_GemeldeterBetrag" - Me.txtInkasso_GemeldeterBetrag.Size = New System.Drawing.Size(70, 20) - Me.txtInkasso_GemeldeterBetrag.TabIndex = 46 - Me.txtInkasso_GemeldeterBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtInkassoUebergebenAm - ' - Me.txtInkassoUebergebenAm._DateTimeOnly = False - Me.txtInkassoUebergebenAm._numbersOnly = False - Me.txtInkassoUebergebenAm._numbersOnlyKommastellen = "" - Me.txtInkassoUebergebenAm._Prozent = False - Me.txtInkassoUebergebenAm._ShortDateNew = True - Me.txtInkassoUebergebenAm._ShortDateOnly = False - Me.txtInkassoUebergebenAm._TimeOnly = False - Me.txtInkassoUebergebenAm._TimeOnly_Seconds = False - Me.txtInkassoUebergebenAm._value = "" - Me.txtInkassoUebergebenAm._Waehrung = False - Me.txtInkassoUebergebenAm._WaehrungZeichen = True - Me.txtInkassoUebergebenAm.Enabled = False - Me.txtInkassoUebergebenAm.ForeColor = System.Drawing.Color.Red - Me.txtInkassoUebergebenAm.Location = New System.Drawing.Point(341, 165) - Me.txtInkassoUebergebenAm.MaxLength = 10 - Me.txtInkassoUebergebenAm.MaxLineLength = -1 - Me.txtInkassoUebergebenAm.MaxLines_Warning = "" - Me.txtInkassoUebergebenAm.MaxLines_Warning_Label = Nothing - Me.txtInkassoUebergebenAm.Name = "txtInkassoUebergebenAm" - Me.txtInkassoUebergebenAm.Size = New System.Drawing.Size(60, 20) - Me.txtInkassoUebergebenAm.TabIndex = 44 - Me.txtInkassoUebergebenAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'Label1 ' Me.Label1.AutoSize = True @@ -1814,28 +1783,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label1.TabIndex = 40 Me.Label1.Text = "EH-Nummer:" ' - 'txtVers_EHNr - ' - Me.txtVers_EHNr._DateTimeOnly = False - Me.txtVers_EHNr._numbersOnly = False - Me.txtVers_EHNr._numbersOnlyKommastellen = "" - Me.txtVers_EHNr._Prozent = False - Me.txtVers_EHNr._ShortDateNew = False - Me.txtVers_EHNr._ShortDateOnly = False - Me.txtVers_EHNr._TimeOnly = False - Me.txtVers_EHNr._TimeOnly_Seconds = False - Me.txtVers_EHNr._value = "" - Me.txtVers_EHNr._Waehrung = False - Me.txtVers_EHNr._WaehrungZeichen = False - Me.txtVers_EHNr.ForeColor = System.Drawing.Color.Black - Me.txtVers_EHNr.Location = New System.Drawing.Point(422, 6) - Me.txtVers_EHNr.MaxLineLength = -1 - Me.txtVers_EHNr.MaxLines_Warning = "" - Me.txtVers_EHNr.MaxLines_Warning_Label = Nothing - Me.txtVers_EHNr.Name = "txtVers_EHNr" - Me.txtVers_EHNr.Size = New System.Drawing.Size(171, 20) - Me.txtVers_EHNr.TabIndex = 41 - ' 'Label35 ' Me.Label35.AutoSize = True @@ -2053,11 +2000,86 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label51.TabIndex = 0 Me.Label51.Text = "Polizzennummer ACREDIA" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & ":" ' + 'txtInkasso_GemeldeterBetrag + ' + Me.txtInkasso_GemeldeterBetrag._DateTimeOnly = False + Me.txtInkasso_GemeldeterBetrag._numbersOnly = False + Me.txtInkasso_GemeldeterBetrag._numbersOnlyKommastellen = "" + Me.txtInkasso_GemeldeterBetrag._numbersOnlyTrennzeichen = True + Me.txtInkasso_GemeldeterBetrag._Prozent = False + Me.txtInkasso_GemeldeterBetrag._ShortDateNew = False + Me.txtInkasso_GemeldeterBetrag._ShortDateOnly = False + Me.txtInkasso_GemeldeterBetrag._TimeOnly = False + Me.txtInkasso_GemeldeterBetrag._TimeOnly_Seconds = False + Me.txtInkasso_GemeldeterBetrag._value = "" + Me.txtInkasso_GemeldeterBetrag._Waehrung = True + Me.txtInkasso_GemeldeterBetrag._WaehrungZeichen = True + Me.txtInkasso_GemeldeterBetrag.ForeColor = System.Drawing.Color.Red + Me.txtInkasso_GemeldeterBetrag.Location = New System.Drawing.Point(523, 165) + Me.txtInkasso_GemeldeterBetrag.MaxLength = 10 + Me.txtInkasso_GemeldeterBetrag.MaxLineLength = -1 + Me.txtInkasso_GemeldeterBetrag.MaxLines_Warning = "" + Me.txtInkasso_GemeldeterBetrag.MaxLines_Warning_Label = Nothing + Me.txtInkasso_GemeldeterBetrag.Name = "txtInkasso_GemeldeterBetrag" + Me.txtInkasso_GemeldeterBetrag.Size = New System.Drawing.Size(70, 20) + Me.txtInkasso_GemeldeterBetrag.TabIndex = 46 + Me.txtInkasso_GemeldeterBetrag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtInkassoUebergebenAm + ' + Me.txtInkassoUebergebenAm._DateTimeOnly = False + Me.txtInkassoUebergebenAm._numbersOnly = False + Me.txtInkassoUebergebenAm._numbersOnlyKommastellen = "" + Me.txtInkassoUebergebenAm._numbersOnlyTrennzeichen = True + Me.txtInkassoUebergebenAm._Prozent = False + Me.txtInkassoUebergebenAm._ShortDateNew = True + Me.txtInkassoUebergebenAm._ShortDateOnly = False + Me.txtInkassoUebergebenAm._TimeOnly = False + Me.txtInkassoUebergebenAm._TimeOnly_Seconds = False + Me.txtInkassoUebergebenAm._value = "" + Me.txtInkassoUebergebenAm._Waehrung = False + Me.txtInkassoUebergebenAm._WaehrungZeichen = True + Me.txtInkassoUebergebenAm.Enabled = False + Me.txtInkassoUebergebenAm.ForeColor = System.Drawing.Color.Red + Me.txtInkassoUebergebenAm.Location = New System.Drawing.Point(341, 165) + Me.txtInkassoUebergebenAm.MaxLength = 10 + Me.txtInkassoUebergebenAm.MaxLineLength = -1 + Me.txtInkassoUebergebenAm.MaxLines_Warning = "" + Me.txtInkassoUebergebenAm.MaxLines_Warning_Label = Nothing + Me.txtInkassoUebergebenAm.Name = "txtInkassoUebergebenAm" + Me.txtInkassoUebergebenAm.Size = New System.Drawing.Size(60, 20) + Me.txtInkassoUebergebenAm.TabIndex = 44 + Me.txtInkassoUebergebenAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'txtVers_EHNr + ' + Me.txtVers_EHNr._DateTimeOnly = False + Me.txtVers_EHNr._numbersOnly = False + Me.txtVers_EHNr._numbersOnlyKommastellen = "" + Me.txtVers_EHNr._numbersOnlyTrennzeichen = True + Me.txtVers_EHNr._Prozent = False + Me.txtVers_EHNr._ShortDateNew = False + Me.txtVers_EHNr._ShortDateOnly = False + Me.txtVers_EHNr._TimeOnly = False + Me.txtVers_EHNr._TimeOnly_Seconds = False + Me.txtVers_EHNr._value = "" + Me.txtVers_EHNr._Waehrung = False + Me.txtVers_EHNr._WaehrungZeichen = False + Me.txtVers_EHNr.ForeColor = System.Drawing.Color.Black + Me.txtVers_EHNr.Location = New System.Drawing.Point(422, 6) + Me.txtVers_EHNr.MaxLineLength = -1 + Me.txtVers_EHNr.MaxLines_Warning = "" + Me.txtVers_EHNr.MaxLines_Warning_Label = Nothing + Me.txtVers_EHNr.Name = "txtVers_EHNr" + Me.txtVers_EHNr.Size = New System.Drawing.Size(171, 20) + Me.txtVers_EHNr.TabIndex = 41 + ' 'txtAnerkVersFallAb ' Me.txtAnerkVersFallAb._DateTimeOnly = False Me.txtAnerkVersFallAb._numbersOnly = False Me.txtAnerkVersFallAb._numbersOnlyKommastellen = "" + Me.txtAnerkVersFallAb._numbersOnlyTrennzeichen = True Me.txtAnerkVersFallAb._Prozent = False Me.txtAnerkVersFallAb._ShortDateNew = True Me.txtAnerkVersFallAb._ShortDateOnly = False @@ -2082,6 +2104,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVersicherung_GemeldeterBetrag._DateTimeOnly = False Me.txtVersicherung_GemeldeterBetrag._numbersOnly = False Me.txtVersicherung_GemeldeterBetrag._numbersOnlyKommastellen = "" + Me.txtVersicherung_GemeldeterBetrag._numbersOnlyTrennzeichen = True Me.txtVersicherung_GemeldeterBetrag._Prozent = False Me.txtVersicherung_GemeldeterBetrag._ShortDateNew = False Me.txtVersicherung_GemeldeterBetrag._ShortDateOnly = False @@ -2106,6 +2129,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVersUebergebenOPSaldo._DateTimeOnly = False Me.txtVersUebergebenOPSaldo._numbersOnly = False Me.txtVersUebergebenOPSaldo._numbersOnlyKommastellen = "" + Me.txtVersUebergebenOPSaldo._numbersOnlyTrennzeichen = True Me.txtVersUebergebenOPSaldo._Prozent = True Me.txtVersUebergebenOPSaldo._ShortDateNew = False Me.txtVersUebergebenOPSaldo._ShortDateOnly = False @@ -2131,6 +2155,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVersicherungDeckungsquote._DateTimeOnly = False Me.txtVersicherungDeckungsquote._numbersOnly = False Me.txtVersicherungDeckungsquote._numbersOnlyKommastellen = "" + Me.txtVersicherungDeckungsquote._numbersOnlyTrennzeichen = True Me.txtVersicherungDeckungsquote._Prozent = True Me.txtVersicherungDeckungsquote._ShortDateNew = False Me.txtVersicherungDeckungsquote._ShortDateOnly = False @@ -2155,6 +2180,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtAnerkVersFallAm._DateTimeOnly = False Me.txtAnerkVersFallAm._numbersOnly = False Me.txtAnerkVersFallAm._numbersOnlyKommastellen = "" + Me.txtAnerkVersFallAm._numbersOnlyTrennzeichen = True Me.txtAnerkVersFallAm._Prozent = False Me.txtAnerkVersFallAm._ShortDateNew = True Me.txtAnerkVersFallAm._ShortDateOnly = False @@ -2180,6 +2206,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVersicherungUebergebenAm._DateTimeOnly = False Me.txtVersicherungUebergebenAm._numbersOnly = False Me.txtVersicherungUebergebenAm._numbersOnlyKommastellen = "" + Me.txtVersicherungUebergebenAm._numbersOnlyTrennzeichen = True Me.txtVersicherungUebergebenAm._Prozent = False Me.txtVersicherungUebergebenAm._ShortDateNew = True Me.txtVersicherungUebergebenAm._ShortDateOnly = False @@ -2205,6 +2232,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtDeckungsstoppDatum._DateTimeOnly = False Me.txtDeckungsstoppDatum._numbersOnly = False Me.txtDeckungsstoppDatum._numbersOnlyKommastellen = "" + Me.txtDeckungsstoppDatum._numbersOnlyTrennzeichen = True Me.txtDeckungsstoppDatum._Prozent = False Me.txtDeckungsstoppDatum._ShortDateNew = True Me.txtDeckungsstoppDatum._ShortDateOnly = False @@ -2230,6 +2258,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_BankgarantiebetragGueltigBis._DateTimeOnly = False Me.txtVers_BankgarantiebetragGueltigBis._numbersOnly = False Me.txtVers_BankgarantiebetragGueltigBis._numbersOnlyKommastellen = "" + Me.txtVers_BankgarantiebetragGueltigBis._numbersOnlyTrennzeichen = True Me.txtVers_BankgarantiebetragGueltigBis._Prozent = False Me.txtVers_BankgarantiebetragGueltigBis._ShortDateNew = True Me.txtVers_BankgarantiebetragGueltigBis._ShortDateOnly = False @@ -2254,6 +2283,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_KreditlimitVon._DateTimeOnly = False Me.txtVers_KreditlimitVon._numbersOnly = False Me.txtVers_KreditlimitVon._numbersOnlyKommastellen = "" + Me.txtVers_KreditlimitVon._numbersOnlyTrennzeichen = True Me.txtVers_KreditlimitVon._Prozent = False Me.txtVers_KreditlimitVon._ShortDateNew = True Me.txtVers_KreditlimitVon._ShortDateOnly = False @@ -2278,6 +2308,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Saldo._DateTimeOnly = False Me.txtVers_Saldo._numbersOnly = False Me.txtVers_Saldo._numbersOnlyKommastellen = "" + Me.txtVers_Saldo._numbersOnlyTrennzeichen = True Me.txtVers_Saldo._Prozent = False Me.txtVers_Saldo._ShortDateNew = False Me.txtVers_Saldo._ShortDateOnly = False @@ -2301,6 +2332,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_VersicherungssummeVon._DateTimeOnly = False Me.txtVers_VersicherungssummeVon._numbersOnly = False Me.txtVers_VersicherungssummeVon._numbersOnlyKommastellen = "" + Me.txtVers_VersicherungssummeVon._numbersOnlyTrennzeichen = True Me.txtVers_VersicherungssummeVon._Prozent = False Me.txtVers_VersicherungssummeVon._ShortDateNew = True Me.txtVers_VersicherungssummeVon._ShortDateOnly = False @@ -2325,6 +2357,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Bankgarantiebetrag._DateTimeOnly = False Me.txtVers_Bankgarantiebetrag._numbersOnly = False Me.txtVers_Bankgarantiebetrag._numbersOnlyKommastellen = "" + Me.txtVers_Bankgarantiebetrag._numbersOnlyTrennzeichen = True Me.txtVers_Bankgarantiebetrag._Prozent = False Me.txtVers_Bankgarantiebetrag._ShortDateNew = False Me.txtVers_Bankgarantiebetrag._ShortDateOnly = False @@ -2348,6 +2381,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Kreditlimit._DateTimeOnly = False Me.txtVers_Kreditlimit._numbersOnly = False Me.txtVers_Kreditlimit._numbersOnlyKommastellen = "" + Me.txtVers_Kreditlimit._numbersOnlyTrennzeichen = True Me.txtVers_Kreditlimit._Prozent = False Me.txtVers_Kreditlimit._ShortDateNew = False Me.txtVers_Kreditlimit._ShortDateOnly = False @@ -2371,6 +2405,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_AntragssummeVon._DateTimeOnly = False Me.txtVers_AntragssummeVon._numbersOnly = False Me.txtVers_AntragssummeVon._numbersOnlyKommastellen = "" + Me.txtVers_AntragssummeVon._numbersOnlyTrennzeichen = True Me.txtVers_AntragssummeVon._Prozent = False Me.txtVers_AntragssummeVon._ShortDateNew = True Me.txtVers_AntragssummeVon._ShortDateOnly = False @@ -2395,6 +2430,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Versicherungssumme._DateTimeOnly = False Me.txtVers_Versicherungssumme._numbersOnly = False Me.txtVers_Versicherungssumme._numbersOnlyKommastellen = "" + Me.txtVers_Versicherungssumme._numbersOnlyTrennzeichen = True Me.txtVers_Versicherungssumme._Prozent = False Me.txtVers_Versicherungssumme._ShortDateNew = False Me.txtVers_Versicherungssumme._ShortDateOnly = False @@ -2418,6 +2454,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_Antragssumme._DateTimeOnly = False Me.txtVers_Antragssumme._numbersOnly = False Me.txtVers_Antragssumme._numbersOnlyKommastellen = "" + Me.txtVers_Antragssumme._numbersOnlyTrennzeichen = True Me.txtVers_Antragssumme._Prozent = False Me.txtVers_Antragssumme._ShortDateNew = False Me.txtVers_Antragssumme._ShortDateOnly = False @@ -2441,6 +2478,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtVers_HermesRefNr._DateTimeOnly = False Me.txtVers_HermesRefNr._numbersOnly = False Me.txtVers_HermesRefNr._numbersOnlyKommastellen = "" + Me.txtVers_HermesRefNr._numbersOnlyTrennzeichen = True Me.txtVers_HermesRefNr._Prozent = False Me.txtVers_HermesRefNr._ShortDateNew = False Me.txtVers_HermesRefNr._ShortDateOnly = False @@ -2521,6 +2559,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtHoechstkredit._DateTimeOnly = False Me.txtHoechstkredit._numbersOnly = True Me.txtHoechstkredit._numbersOnlyKommastellen = "" + Me.txtHoechstkredit._numbersOnlyTrennzeichen = True Me.txtHoechstkredit._Prozent = False Me.txtHoechstkredit._ShortDateNew = False Me.txtHoechstkredit._ShortDateOnly = False @@ -2602,6 +2641,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtBonitaetsDatum._DateTimeOnly = False Me.txtBonitaetsDatum._numbersOnly = False Me.txtBonitaetsDatum._numbersOnlyKommastellen = "" + Me.txtBonitaetsDatum._numbersOnlyTrennzeichen = True Me.txtBonitaetsDatum._Prozent = False Me.txtBonitaetsDatum._ShortDateNew = True Me.txtBonitaetsDatum._ShortDateOnly = False @@ -2626,6 +2666,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtBonitaet._DateTimeOnly = False Me.txtBonitaet._numbersOnly = True Me.txtBonitaet._numbersOnlyKommastellen = "" + Me.txtBonitaet._numbersOnlyTrennzeichen = True Me.txtBonitaet._Prozent = False Me.txtBonitaet._ShortDateNew = False Me.txtBonitaet._ShortDateOnly = False @@ -2843,6 +2884,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUStIDGeprueftAm._DateTimeOnly = False Me.txtUStIDGeprueftAm._numbersOnly = False Me.txtUStIDGeprueftAm._numbersOnlyKommastellen = "" + Me.txtUStIDGeprueftAm._numbersOnlyTrennzeichen = True Me.txtUStIDGeprueftAm._Prozent = False Me.txtUStIDGeprueftAm._ShortDateNew = True Me.txtUStIDGeprueftAm._ShortDateOnly = False @@ -3008,6 +3050,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_GVAusgestelltAm._DateTimeOnly = False Me.txtUSt_GVAusgestelltAm._numbersOnly = False Me.txtUSt_GVAusgestelltAm._numbersOnlyKommastellen = "" + Me.txtUSt_GVAusgestelltAm._numbersOnlyTrennzeichen = True Me.txtUSt_GVAusgestelltAm._Prozent = False Me.txtUSt_GVAusgestelltAm._ShortDateNew = True Me.txtUSt_GVAusgestelltAm._ShortDateOnly = False @@ -3033,6 +3076,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtUSt_GVAngefordertAm._DateTimeOnly = False Me.txtUSt_GVAngefordertAm._numbersOnly = False Me.txtUSt_GVAngefordertAm._numbersOnlyKommastellen = "" + Me.txtUSt_GVAngefordertAm._numbersOnlyTrennzeichen = True Me.txtUSt_GVAngefordertAm._Prozent = False Me.txtUSt_GVAngefordertAm._ShortDateNew = True Me.txtUSt_GVAngefordertAm._ShortDateOnly = False @@ -3059,7 +3103,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSonstiges.Controls.Add(Me.Label96) Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrPLOSE) Me.tbSonstiges.Controls.Add(Me.Label83) - Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern) Me.tbSonstiges.Controls.Add(Me.Label76) Me.tbSonstiges.Controls.Add(Me.dgvSonst_IDSKunden) Me.tbSonstiges.Controls.Add(Me.cbxSonst_CsvAsfinag) @@ -3077,6 +3120,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.tbSonstiges.Controls.Add(Me.txtSonst_KdNrIDS) Me.tbSonstiges.Controls.Add(Me.Label70) Me.tbSonstiges.Controls.Add(Me.Label71) + Me.tbSonstiges.Controls.Add(Me.btnSonstAendSpeichern) Me.tbSonstiges.Controls.Add(Me.cboSonst_Rechnungsdruck) Me.tbSonstiges.Location = New System.Drawing.Point(4, 22) Me.tbSonstiges.Name = "tbSonstiges" @@ -3124,23 +3168,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label83.TabIndex = 19 Me.Label83.Text = "KdNr bei PLOSE:" ' - 'btnSonstAendSpeichern - ' - Me.btnSonstAendSpeichern.allowBorder = False - Me.btnSonstAendSpeichern.Enabled = False - Me.btnSonstAendSpeichern.FlatAppearance.BorderSize = 0 - Me.btnSonstAendSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSonstAendSpeichern.ForeColor = System.Drawing.Color.Black - Me.btnSonstAendSpeichern.Image = Global.SDL.My.Resources.Resources.save - Me.btnSonstAendSpeichern.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSonstAendSpeichern.Location = New System.Drawing.Point(512, 214) - Me.btnSonstAendSpeichern.Name = "btnSonstAendSpeichern" - Me.btnSonstAendSpeichern.Size = New System.Drawing.Size(157, 23) - Me.btnSonstAendSpeichern.TabIndex = 16 - Me.btnSonstAendSpeichern.Text = "Änderungen speichern" - Me.btnSonstAendSpeichern.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnSonstAendSpeichern.UseVisualStyleBackColor = True - ' 'Label76 ' Me.Label76.AutoSize = True @@ -3301,6 +3328,23 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label71.TabIndex = 0 Me.Label71.Text = "Rechnungsdruck:" ' + 'btnSonstAendSpeichern + ' + Me.btnSonstAendSpeichern.allowBorder = False + Me.btnSonstAendSpeichern.Enabled = False + Me.btnSonstAendSpeichern.FlatAppearance.BorderSize = 0 + Me.btnSonstAendSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSonstAendSpeichern.ForeColor = System.Drawing.Color.Black + Me.btnSonstAendSpeichern.Image = Global.SDL.My.Resources.Resources.save + Me.btnSonstAendSpeichern.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSonstAendSpeichern.Location = New System.Drawing.Point(512, 214) + Me.btnSonstAendSpeichern.Name = "btnSonstAendSpeichern" + Me.btnSonstAendSpeichern.Size = New System.Drawing.Size(157, 23) + Me.btnSonstAendSpeichern.TabIndex = 16 + Me.btnSonstAendSpeichern.Text = "Änderungen speichern" + Me.btnSonstAendSpeichern.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnSonstAendSpeichern.UseVisualStyleBackColor = True + ' 'cboSonst_Rechnungsdruck ' Me.cboSonst_Rechnungsdruck._allowedValuesFreiText = Nothing @@ -3369,52 +3413,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.DataGridView1.Size = New System.Drawing.Size(657, 358) Me.DataGridView1.TabIndex = 22 ' - 'txtEORINL - ' - Me.txtEORINL._DateTimeOnly = False - Me.txtEORINL._numbersOnly = False - Me.txtEORINL._numbersOnlyKommastellen = "" - Me.txtEORINL._Prozent = False - Me.txtEORINL._ShortDateNew = False - Me.txtEORINL._ShortDateOnly = False - Me.txtEORINL._TimeOnly = False - Me.txtEORINL._TimeOnly_Seconds = False - Me.txtEORINL._value = "" - Me.txtEORINL._Waehrung = False - Me.txtEORINL._WaehrungZeichen = True - Me.txtEORINL.ForeColor = System.Drawing.Color.Red - Me.txtEORINL.Location = New System.Drawing.Point(357, 154) - Me.txtEORINL.MaxLength = 4 - Me.txtEORINL.MaxLineLength = -1 - Me.txtEORINL.MaxLines_Warning = "" - Me.txtEORINL.MaxLines_Warning_Label = Nothing - Me.txtEORINL.Name = "txtEORINL" - Me.txtEORINL.Size = New System.Drawing.Size(87, 20) - Me.txtEORINL.TabIndex = 14 - ' - 'txtEORI - ' - Me.txtEORI._DateTimeOnly = False - Me.txtEORI._numbersOnly = False - Me.txtEORI._numbersOnlyKommastellen = "" - Me.txtEORI._Prozent = False - Me.txtEORI._ShortDateNew = False - Me.txtEORI._ShortDateOnly = False - Me.txtEORI._TimeOnly = False - Me.txtEORI._TimeOnly_Seconds = False - Me.txtEORI._value = "" - Me.txtEORI._Waehrung = False - Me.txtEORI._WaehrungZeichen = True - Me.txtEORI.ForeColor = System.Drawing.Color.Black - Me.txtEORI.Location = New System.Drawing.Point(110, 154) - Me.txtEORI.MaxLength = 17 - Me.txtEORI.MaxLineLength = -1 - Me.txtEORI.MaxLines_Warning = "" - Me.txtEORI.MaxLines_Warning_Label = Nothing - Me.txtEORI.Name = "txtEORI" - Me.txtEORI.Size = New System.Drawing.Size(248, 20) - Me.txtEORI.TabIndex = 13 - ' 'Label33 ' Me.Label33.AutoSize = True @@ -3435,92 +3433,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label84.TabIndex = 8 Me.Label84.Text = ", geprüft am:" ' - 'cboUSt_UstIdNrLand - ' - Me.cboUSt_UstIdNrLand._allowedValuesFreiText = Nothing - Me.cboUSt_UstIdNrLand._allowFreiText = False - Me.cboUSt_UstIdNrLand._value = "" - Me.cboUSt_UstIdNrLand.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboUSt_UstIdNrLand.DropDownWidth = 150 - Me.cboUSt_UstIdNrLand.FlatStyle = System.Windows.Forms.FlatStyle.System - Me.cboUSt_UstIdNrLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboUSt_UstIdNrLand.FormattingEnabled = True - Me.cboUSt_UstIdNrLand.Location = New System.Drawing.Point(111, 101) - Me.cboUSt_UstIdNrLand.Name = "cboUSt_UstIdNrLand" - Me.cboUSt_UstIdNrLand.Size = New System.Drawing.Size(43, 21) - Me.cboUSt_UstIdNrLand.TabIndex = 6 - ' - 'txtUSt_Steuernummer - ' - Me.txtUSt_Steuernummer._DateTimeOnly = False - Me.txtUSt_Steuernummer._numbersOnly = False - Me.txtUSt_Steuernummer._numbersOnlyKommastellen = "" - Me.txtUSt_Steuernummer._Prozent = False - Me.txtUSt_Steuernummer._ShortDateNew = False - Me.txtUSt_Steuernummer._ShortDateOnly = False - Me.txtUSt_Steuernummer._TimeOnly = False - Me.txtUSt_Steuernummer._TimeOnly_Seconds = False - Me.txtUSt_Steuernummer._value = Nothing - Me.txtUSt_Steuernummer._Waehrung = False - Me.txtUSt_Steuernummer._WaehrungZeichen = True - Me.txtUSt_Steuernummer.ForeColor = System.Drawing.Color.Black - Me.txtUSt_Steuernummer.Location = New System.Drawing.Point(110, 128) - Me.txtUSt_Steuernummer.MaxLineLength = -1 - Me.txtUSt_Steuernummer.MaxLines_Warning = "" - Me.txtUSt_Steuernummer.MaxLines_Warning_Label = Nothing - Me.txtUSt_Steuernummer.Name = "txtUSt_Steuernummer" - Me.txtUSt_Steuernummer.Size = New System.Drawing.Size(334, 20) - Me.txtUSt_Steuernummer.TabIndex = 11 - Me.txtUSt_Steuernummer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtUSt_UstIdNrGeprueftAm - ' - Me.txtUSt_UstIdNrGeprueftAm._DateTimeOnly = False - Me.txtUSt_UstIdNrGeprueftAm._numbersOnly = False - Me.txtUSt_UstIdNrGeprueftAm._numbersOnlyKommastellen = "" - Me.txtUSt_UstIdNrGeprueftAm._Prozent = False - Me.txtUSt_UstIdNrGeprueftAm._ShortDateNew = True - Me.txtUSt_UstIdNrGeprueftAm._ShortDateOnly = False - Me.txtUSt_UstIdNrGeprueftAm._TimeOnly = False - Me.txtUSt_UstIdNrGeprueftAm._TimeOnly_Seconds = False - Me.txtUSt_UstIdNrGeprueftAm._value = "" - Me.txtUSt_UstIdNrGeprueftAm._Waehrung = False - Me.txtUSt_UstIdNrGeprueftAm._WaehrungZeichen = True - Me.txtUSt_UstIdNrGeprueftAm.ForeColor = System.Drawing.Color.Red - Me.txtUSt_UstIdNrGeprueftAm.Location = New System.Drawing.Point(324, 101) - Me.txtUSt_UstIdNrGeprueftAm.MaxLength = 10 - Me.txtUSt_UstIdNrGeprueftAm.MaxLineLength = -1 - Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning = "" - Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning_Label = Nothing - Me.txtUSt_UstIdNrGeprueftAm.Name = "txtUSt_UstIdNrGeprueftAm" - Me.txtUSt_UstIdNrGeprueftAm.Size = New System.Drawing.Size(73, 20) - Me.txtUSt_UstIdNrGeprueftAm.TabIndex = 9 - Me.txtUSt_UstIdNrGeprueftAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtUSt_UstIdNr - ' - Me.txtUSt_UstIdNr._DateTimeOnly = False - Me.txtUSt_UstIdNr._numbersOnly = False - Me.txtUSt_UstIdNr._numbersOnlyKommastellen = "" - Me.txtUSt_UstIdNr._Prozent = False - Me.txtUSt_UstIdNr._ShortDateNew = False - Me.txtUSt_UstIdNr._ShortDateOnly = False - Me.txtUSt_UstIdNr._TimeOnly = False - Me.txtUSt_UstIdNr._TimeOnly_Seconds = False - Me.txtUSt_UstIdNr._value = Nothing - Me.txtUSt_UstIdNr._Waehrung = False - Me.txtUSt_UstIdNr._WaehrungZeichen = True - Me.txtUSt_UstIdNr.ForeColor = System.Drawing.Color.Black - Me.txtUSt_UstIdNr.Location = New System.Drawing.Point(154, 101) - Me.txtUSt_UstIdNr.MaxLength = 12 - Me.txtUSt_UstIdNr.MaxLineLength = -1 - Me.txtUSt_UstIdNr.MaxLines_Warning = "" - Me.txtUSt_UstIdNr.MaxLines_Warning_Label = Nothing - Me.txtUSt_UstIdNr.Name = "txtUSt_UstIdNr" - Me.txtUSt_UstIdNr.Size = New System.Drawing.Size(108, 20) - Me.txtUSt_UstIdNr.TabIndex = 7 - Me.txtUSt_UstIdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'GroupBox3 ' Me.GroupBox3.Controls.Add(Me.Button13) @@ -3548,6 +3460,18 @@ Partial Class usrcntlKundeBearbeitenFull Me.GroupBox3.TabStop = False Me.GroupBox3.Text = "Firma" ' + 'Button13 + ' + Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list + Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button13.FlatAppearance.BorderSize = 0 + Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button13.Location = New System.Drawing.Point(419, 101) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(25, 20) + Me.Button13.TabIndex = 16 + Me.Button13.UseVisualStyleBackColor = True + ' 'btnUIDPruef ' Me.btnUIDPruef.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen @@ -3561,6 +3485,30 @@ Partial Class usrcntlKundeBearbeitenFull Me.btnUIDPruef.UseVisualStyleBackColor = True Me.btnUIDPruef.Visible = False ' + 'txtEORINL + ' + Me.txtEORINL._DateTimeOnly = False + Me.txtEORINL._numbersOnly = False + Me.txtEORINL._numbersOnlyKommastellen = "" + Me.txtEORINL._numbersOnlyTrennzeichen = True + Me.txtEORINL._Prozent = False + Me.txtEORINL._ShortDateNew = False + Me.txtEORINL._ShortDateOnly = False + Me.txtEORINL._TimeOnly = False + Me.txtEORINL._TimeOnly_Seconds = False + Me.txtEORINL._value = "" + Me.txtEORINL._Waehrung = False + Me.txtEORINL._WaehrungZeichen = True + Me.txtEORINL.ForeColor = System.Drawing.Color.Red + Me.txtEORINL.Location = New System.Drawing.Point(357, 154) + Me.txtEORINL.MaxLength = 4 + Me.txtEORINL.MaxLineLength = -1 + Me.txtEORINL.MaxLines_Warning = "" + Me.txtEORINL.MaxLines_Warning_Label = Nothing + Me.txtEORINL.Name = "txtEORINL" + Me.txtEORINL.Size = New System.Drawing.Size(87, 20) + Me.txtEORINL.TabIndex = 14 + ' 'Label5 ' Me.Label5.AutoSize = True @@ -3571,6 +3519,30 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label5.TabIndex = 0 Me.Label5.Text = "Kurzname:" ' + 'txtEORI + ' + Me.txtEORI._DateTimeOnly = False + Me.txtEORI._numbersOnly = False + Me.txtEORI._numbersOnlyKommastellen = "" + Me.txtEORI._numbersOnlyTrennzeichen = True + Me.txtEORI._Prozent = False + Me.txtEORI._ShortDateNew = False + Me.txtEORI._ShortDateOnly = False + Me.txtEORI._TimeOnly = False + Me.txtEORI._TimeOnly_Seconds = False + Me.txtEORI._value = "" + Me.txtEORI._Waehrung = False + Me.txtEORI._WaehrungZeichen = True + Me.txtEORI.ForeColor = System.Drawing.Color.Black + Me.txtEORI.Location = New System.Drawing.Point(110, 154) + Me.txtEORI.MaxLength = 17 + Me.txtEORI.MaxLineLength = -1 + Me.txtEORI.MaxLines_Warning = "" + Me.txtEORI.MaxLines_Warning_Label = Nothing + Me.txtEORI.Name = "txtEORI" + Me.txtEORI.Size = New System.Drawing.Size(248, 20) + Me.txtEORI.TabIndex = 13 + ' 'txtFirmenname1 ' Me.txtFirmenname1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -3580,6 +3552,21 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtFirmenname1.Size = New System.Drawing.Size(334, 20) Me.txtFirmenname1.TabIndex = 3 ' + 'cboUSt_UstIdNrLand + ' + Me.cboUSt_UstIdNrLand._allowedValuesFreiText = Nothing + Me.cboUSt_UstIdNrLand._allowFreiText = False + Me.cboUSt_UstIdNrLand._value = "" + Me.cboUSt_UstIdNrLand.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboUSt_UstIdNrLand.DropDownWidth = 150 + Me.cboUSt_UstIdNrLand.FlatStyle = System.Windows.Forms.FlatStyle.System + Me.cboUSt_UstIdNrLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboUSt_UstIdNrLand.FormattingEnabled = True + Me.cboUSt_UstIdNrLand.Location = New System.Drawing.Point(111, 101) + Me.cboUSt_UstIdNrLand.Name = "cboUSt_UstIdNrLand" + Me.cboUSt_UstIdNrLand.Size = New System.Drawing.Size(43, 21) + Me.cboUSt_UstIdNrLand.TabIndex = 6 + ' 'Label15 ' Me.Label15.AutoSize = True @@ -3600,6 +3587,31 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label3.TabIndex = 2 Me.Label3.Text = "Firmenname:" ' + 'txtUSt_UstIdNrGeprueftAm + ' + Me.txtUSt_UstIdNrGeprueftAm._DateTimeOnly = False + Me.txtUSt_UstIdNrGeprueftAm._numbersOnly = False + Me.txtUSt_UstIdNrGeprueftAm._numbersOnlyKommastellen = "" + Me.txtUSt_UstIdNrGeprueftAm._numbersOnlyTrennzeichen = True + Me.txtUSt_UstIdNrGeprueftAm._Prozent = False + Me.txtUSt_UstIdNrGeprueftAm._ShortDateNew = True + Me.txtUSt_UstIdNrGeprueftAm._ShortDateOnly = False + Me.txtUSt_UstIdNrGeprueftAm._TimeOnly = False + Me.txtUSt_UstIdNrGeprueftAm._TimeOnly_Seconds = False + Me.txtUSt_UstIdNrGeprueftAm._value = "" + Me.txtUSt_UstIdNrGeprueftAm._Waehrung = False + Me.txtUSt_UstIdNrGeprueftAm._WaehrungZeichen = True + Me.txtUSt_UstIdNrGeprueftAm.ForeColor = System.Drawing.Color.Red + Me.txtUSt_UstIdNrGeprueftAm.Location = New System.Drawing.Point(324, 101) + Me.txtUSt_UstIdNrGeprueftAm.MaxLength = 10 + Me.txtUSt_UstIdNrGeprueftAm.MaxLineLength = -1 + Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning = "" + Me.txtUSt_UstIdNrGeprueftAm.MaxLines_Warning_Label = Nothing + Me.txtUSt_UstIdNrGeprueftAm.Name = "txtUSt_UstIdNrGeprueftAm" + Me.txtUSt_UstIdNrGeprueftAm.Size = New System.Drawing.Size(73, 20) + Me.txtUSt_UstIdNrGeprueftAm.TabIndex = 9 + Me.txtUSt_UstIdNrGeprueftAm.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'txtKurzname ' Me.txtKurzname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -3609,6 +3621,31 @@ Partial Class usrcntlKundeBearbeitenFull Me.txtKurzname.Size = New System.Drawing.Size(334, 20) Me.txtKurzname.TabIndex = 1 ' + 'txtUSt_UstIdNr + ' + Me.txtUSt_UstIdNr._DateTimeOnly = False + Me.txtUSt_UstIdNr._numbersOnly = False + Me.txtUSt_UstIdNr._numbersOnlyKommastellen = "" + Me.txtUSt_UstIdNr._numbersOnlyTrennzeichen = True + Me.txtUSt_UstIdNr._Prozent = False + Me.txtUSt_UstIdNr._ShortDateNew = False + Me.txtUSt_UstIdNr._ShortDateOnly = False + Me.txtUSt_UstIdNr._TimeOnly = False + Me.txtUSt_UstIdNr._TimeOnly_Seconds = False + Me.txtUSt_UstIdNr._value = Nothing + Me.txtUSt_UstIdNr._Waehrung = False + Me.txtUSt_UstIdNr._WaehrungZeichen = True + Me.txtUSt_UstIdNr.ForeColor = System.Drawing.Color.Black + Me.txtUSt_UstIdNr.Location = New System.Drawing.Point(154, 101) + Me.txtUSt_UstIdNr.MaxLength = 12 + Me.txtUSt_UstIdNr.MaxLineLength = -1 + Me.txtUSt_UstIdNr.MaxLines_Warning = "" + Me.txtUSt_UstIdNr.MaxLines_Warning_Label = Nothing + Me.txtUSt_UstIdNr.Name = "txtUSt_UstIdNr" + Me.txtUSt_UstIdNr.Size = New System.Drawing.Size(108, 20) + Me.txtUSt_UstIdNr.TabIndex = 7 + Me.txtUSt_UstIdNr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'txtFirmenname2 ' Me.txtFirmenname2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -3628,6 +3665,30 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label16.TabIndex = 10 Me.Label16.Text = "Steuernummer:" ' + 'txtUSt_Steuernummer + ' + Me.txtUSt_Steuernummer._DateTimeOnly = False + Me.txtUSt_Steuernummer._numbersOnly = False + Me.txtUSt_Steuernummer._numbersOnlyKommastellen = "" + Me.txtUSt_Steuernummer._numbersOnlyTrennzeichen = True + Me.txtUSt_Steuernummer._Prozent = False + Me.txtUSt_Steuernummer._ShortDateNew = False + Me.txtUSt_Steuernummer._ShortDateOnly = False + Me.txtUSt_Steuernummer._TimeOnly = False + Me.txtUSt_Steuernummer._TimeOnly_Seconds = False + Me.txtUSt_Steuernummer._value = Nothing + Me.txtUSt_Steuernummer._Waehrung = False + Me.txtUSt_Steuernummer._WaehrungZeichen = True + Me.txtUSt_Steuernummer.ForeColor = System.Drawing.Color.Black + Me.txtUSt_Steuernummer.Location = New System.Drawing.Point(110, 128) + Me.txtUSt_Steuernummer.MaxLineLength = -1 + Me.txtUSt_Steuernummer.MaxLines_Warning = "" + Me.txtUSt_Steuernummer.MaxLines_Warning_Label = Nothing + Me.txtUSt_Steuernummer.Name = "txtUSt_Steuernummer" + Me.txtUSt_Steuernummer.Size = New System.Drawing.Size(334, 20) + Me.txtUSt_Steuernummer.TabIndex = 11 + Me.txtUSt_Steuernummer.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.cbxLandKz) @@ -4111,38 +4172,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.lblKundennr.TabIndex = 7 Me.lblKundennr.Text = "-" ' - 'txtERROR - ' - Me.txtERROR._DateTimeOnly = False - Me.txtERROR._numbersOnly = False - Me.txtERROR._numbersOnlyKommastellen = "" - Me.txtERROR._Prozent = False - Me.txtERROR._ShortDateNew = False - Me.txtERROR._ShortDateOnly = False - Me.txtERROR._TimeOnly = False - Me.txtERROR._TimeOnly_Seconds = False - Me.txtERROR._value = "" - Me.txtERROR._Waehrung = False - Me.txtERROR._WaehrungZeichen = True - Me.txtERROR.BackColor = System.Drawing.SystemColors.Window - Me.txtERROR.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.txtERROR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtERROR.ForeColor = System.Drawing.Color.Red - Me.txtERROR.Location = New System.Drawing.Point(13, 541) - Me.txtERROR.MaxLength = 9999 - Me.txtERROR.MaxLineLength = -1 - Me.txtERROR.MaxLines_Warning = "" - Me.txtERROR.MaxLines_Warning_Label = Nothing - Me.txtERROR.Name = "txtERROR" - Me.txtERROR.Size = New System.Drawing.Size(698, 16) - Me.txtERROR.TabIndex = 17 - ' - 'DataGridViewTextBoxColumn2 - ' - Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" - Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" - ' 'Label79 ' Me.Label79.AutoSize = True @@ -4153,22 +4182,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label79.TabIndex = 4 Me.Label79.Text = "Status:" ' - 'cboAuswahl - ' - Me.cboAuswahl._allowedValuesFreiText = Nothing - Me.cboAuswahl._allowFreiText = False - Me.cboAuswahl._value = "" - Me.cboAuswahl.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.cboAuswahl.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboAuswahl.DropDownWidth = 400 - Me.cboAuswahl.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboAuswahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboAuswahl.FormattingEnabled = True - Me.cboAuswahl.Location = New System.Drawing.Point(777, 496) - Me.cboAuswahl.Name = "cboAuswahl" - Me.cboAuswahl.Size = New System.Drawing.Size(124, 28) - Me.cboAuswahl.TabIndex = 5 - ' 'Label80 ' Me.Label80.AutoSize = True @@ -4179,24 +4192,6 @@ Partial Class usrcntlKundeBearbeitenFull Me.Label80.TabIndex = 4 Me.Label80.Text = "Firma FiBu:" ' - 'cboFirma - ' - Me.cboFirma._allowedValuesFreiText = Nothing - Me.cboFirma._allowFreiText = False - Me.cboFirma._value = "" - Me.cboFirma.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) - Me.cboFirma.DropDownHeight = 350 - Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFirma.DropDownWidth = 400 - Me.cboFirma.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboFirma.FormattingEnabled = True - Me.cboFirma.IntegralHeight = False - Me.cboFirma.Location = New System.Drawing.Point(342, 496) - Me.cboFirma.Name = "cboFirma" - Me.cboFirma.Size = New System.Drawing.Size(49, 28) - Me.cboFirma.TabIndex = 5 - ' 'cbxFiBu ' Me.cbxFiBu.AutoSize = True @@ -4258,17 +4253,58 @@ Partial Class usrcntlKundeBearbeitenFull Me.CheckBox1.UseVisualStyleBackColor = True Me.CheckBox1.Visible = False ' - 'Button13 + 'cboFirma ' - Me.Button13.BackgroundImage = Global.SDL.My.Resources.Resources.list - Me.Button13.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.Button13.FlatAppearance.BorderSize = 0 - Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button13.Location = New System.Drawing.Point(419, 101) - Me.Button13.Name = "Button13" - Me.Button13.Size = New System.Drawing.Size(25, 20) - Me.Button13.TabIndex = 16 - Me.Button13.UseVisualStyleBackColor = True + Me.cboFirma._allowedValuesFreiText = Nothing + Me.cboFirma._allowFreiText = False + Me.cboFirma._value = "" + Me.cboFirma.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboFirma.DropDownHeight = 350 + Me.cboFirma.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFirma.DropDownWidth = 400 + Me.cboFirma.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFirma.FormattingEnabled = True + Me.cboFirma.IntegralHeight = False + Me.cboFirma.Location = New System.Drawing.Point(342, 496) + Me.cboFirma.Name = "cboFirma" + Me.cboFirma.Size = New System.Drawing.Size(49, 28) + Me.cboFirma.TabIndex = 5 + ' + 'cboAuswahl + ' + Me.cboAuswahl._allowedValuesFreiText = Nothing + Me.cboAuswahl._allowFreiText = False + Me.cboAuswahl._value = "" + Me.cboAuswahl.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboAuswahl.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboAuswahl.DropDownWidth = 400 + Me.cboAuswahl.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboAuswahl.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboAuswahl.FormattingEnabled = True + Me.cboAuswahl.Location = New System.Drawing.Point(777, 496) + Me.cboAuswahl.Name = "cboAuswahl" + Me.cboAuswahl.Size = New System.Drawing.Size(124, 28) + Me.cboAuswahl.TabIndex = 5 + ' + 'txtERROR + ' + Me.txtERROR.BackColor = System.Drawing.SystemColors.Window + Me.txtERROR.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.txtERROR.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtERROR.ForeColor = System.Drawing.Color.Red + Me.txtERROR.Location = New System.Drawing.Point(13, 540) + Me.txtERROR.MaxLength = 9999 + Me.txtERROR.Multiline = True + Me.txtERROR.Name = "txtERROR" + Me.txtERROR.Size = New System.Drawing.Size(443, 30) + Me.txtERROR.TabIndex = 17 + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" ' 'usrcntlKundeBearbeitenFull ' @@ -4567,7 +4603,7 @@ Partial Class usrcntlKundeBearbeitenFull Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Label28 As System.Windows.Forms.Label Friend WithEvents Label29 As System.Windows.Forms.Label - Friend WithEvents txtERROR As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtERROR As System.Windows.Forms.TextBox Friend WithEvents Label27 As System.Windows.Forms.Label Friend WithEvents txtVersicherung_GemeldeterBetrag As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label30 As System.Windows.Forms.Label diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index c8318f4f..f1042813 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -655,7 +655,7 @@ Public Class usrcntlKundeBearbeitenFull Dim err = "" - If Not ADRESSE.VALID(err) Then + If Not ADRESSE.VALID(err, KUNDE) Then txtERROR.Text = err : Exit Sub End If If Not KUNDE.VALID(err) Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb index 040725e4..94392aab 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -144,16 +144,28 @@ Public Class cAdressen - Function VALID(ByRef ERROR_TXT) As Boolean + Function VALID(ByRef ERROR_TXT, KD) As Boolean If If(Ordnungsbegriff, "") = "" Then ERROR_TXT = "Bitte geben Sie einen Ordnungsbegriff ein!" : Return False If If(Name_1, "") = "" Then ERROR_TXT = "Bitte geben Sie den Firmenwortlaut ein!" : Return False If If(LandKz, "") = "" Then ERROR_TXT = "Bitte geben Sie das Land an!" : Return False If If(Ort, "") = "" Then ERROR_TXT = "Bitte geben Sie den Ort an!" : Return False If If(PLZ, "") = "" Then ERROR_TXT = "Bitte geben Sie die PLZ an!" : Return False If If(Straße, "") = "" Then ERROR_TXT = "Bitte geben Sie die Straße an!" : Return False + If Not hasEntry Then + 'Prüfung Neuanlage: + If checkUID(KD) Then ERROR_TXT = "Die UID Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False + End If Return True End Function + Function checkUID(KD As cKunde) As Boolean + If If(UstIdKz, String.Empty) <> String.Empty And If(UstIdNr, String.Empty) <> String.Empty Then + If SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr WHERE [UstIdKz]='" & UstIdKz & "' AND [UstIdNr]='" & UstIdNr & "' and kunden.FilialenNr='" & KD.FilialenNr & "'", "FMZOLL") > 0 Then + Return True + End If + End If + Return False + End Function Public Function SAVE(Optional newFlag = False) As Boolean 'obj As Object, tablename As String, where As String) As Boolean If newFlag Then INIT_NEWKD_DATA() If AdressenNr <= 0 Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb index 8d52f1f3..a54805ea 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKunde.vb @@ -178,10 +178,8 @@ Public Class cKunde list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailAnkunft", EmailAnkunft)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmailFreigabe", EmailFreigabe)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Höchstkredit", Höchstkredit)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DakosyExport", DakosyExport)) - Return list End Function @@ -189,11 +187,21 @@ Public Class cKunde Function VALID(ByRef ERROR_TXT) As Boolean - ' If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr - + If Not hasEntry Then + 'Prüfung Neuanlage: + If If(FilialenNr Is Nothing, "", FilialenNr).ToString = "" Then ERROR_TXT = "Bitte geben Sie die zuständige Filiale an!" : Return False 'Es gibt alte Einträge ohne FilialenNr + If checkEORI() Then ERROR_TXT = "Die EORI Nummer existiert bereits!" & vbNewLine & "Bitte prüfen, damit es zu keiner doppelten Erfassung des Kunden kommt." : Return False + End If Return True End Function - + Function checkEORI() As Boolean + If If(EORITIN, String.Empty) <> String.Empty Then + If SQL.getValueTxtBySql("SELECT COUNT(*) FROM Kunden WHERE EORITIN='" & EORITIN & "' AND kunden.FilialenNr='" & FilialenNr & "' ", "FMZOLL") > 0 Then + Return True + End If + End If + Return False + End Function Sub INIT_NEWKD_DATA() diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb index 9741afbd..c0b1641c 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb @@ -81,13 +81,13 @@ Public Class cRechnungsnummern End Function - Public Function CHECK_RGNR() As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. + Public Function CHECK_RGNR(Optional sleep = False) As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. Dim increased = False - System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird + If sleep Then System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & LfdRechnungsNr & "' and Firma_ID='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) > 0 LfdRechnungsNr += 1 increased = True - System.Threading.Thread.Sleep(100) ' nur, um abzuwarten falls parallel eine Nr vergeben wird + System.Threading.Thread.Sleep(50) ' nur, um abzuwarten falls parallel eine Nr vergeben wird End While If increased Then SAVE() Return LfdRechnungsNr diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb index 9162d29a..f5999526 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb @@ -1263,6 +1263,10 @@ Public Class frmMessenger For Each c In FlowLayoutPanel1.Controls DirectCast(c, usrCntlChat_Art_Btn).setInAktiv() Next + MyFlowLayoutPanel1.Controls.Clear() + CHAT = Nothing + topMessagesDateHistory = Nothing ' zurücksetzen des HistoryDate + Me.toggle_CHAT_ART = CHAT_ART intiDGVChats() loaded = True @@ -1282,19 +1286,5 @@ Public Class frmMessenger sender.setAktiv() End Sub - Private Sub UsrCntlChat_Art_Btn1_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_MACHAT.CLICKED - End Sub - - Private Sub UsrCntlChat_Art_Btn2_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_LKWCHAT.CLICKED - - End Sub - - Private Sub UsrCntlChat_Art_snd_Load(ctl As usrCntlChat_Art_Btn) Handles UsrCntlChat_Art_Btn_SNDCHAT.CLICKED - - End Sub - - Private Sub MyFlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs) Handles MyFlowLayoutPanel1.Paint - - End Sub End Class \ No newline at end of file