From 2af2eaaed0a83d7bd5df3337e608cfad96a4cd8e Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 2 Jul 2026 08:28:14 +0200 Subject: [PATCH] Fix USTV Pos speichern --- SDL/USTV/frmMDM_USTVAntrag.vb | 2 +- .../ustCntlUSTV_AntragPosition.Designer.vb | 637 +++++++++--------- SDL/USTV/ustCntlUSTV_AntragPosition.vb | 2 +- .../Classes/USTV/cUSTVAntrag.vb | 2 +- 4 files changed, 321 insertions(+), 322 deletions(-) diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 2c4f98b2..dd8f5f1a 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -2254,13 +2254,13 @@ Public Class frmMDM_USTVAntrag End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnNeuerEintrag.Click + UstCntlUSTV_AntragPosition1.reset() UstCntlUSTV_AntragPosition1.UStV_POS = New cUStVPositionen(UStVAn_ID) UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_ID = USTV_ANTRAG.getMaxPosNr UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr = USTV_ANTRAG.getMaxPosinterneNr UstCntlUSTV_AntragPosition1.Enabled = True - End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnEintragloeschen.Click diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb index 37fa4e4b..cd6474dc 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb @@ -24,12 +24,9 @@ Partial Class ustCntlUSTV_AntragPosition Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Me.tabDok = New System.Windows.Forms.TabPage() - Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbcntr = New System.Windows.Forms.TabControl() Me.tabVollmachten = New System.Windows.Forms.TabPage() - Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tabFABest = New System.Windows.Forms.TabPage() - Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.Label8 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() @@ -49,25 +46,38 @@ Partial Class ustCntlUSTV_AntragPosition Me.lblAenderungsdatum = New System.Windows.Forms.Label() Me.lblSachbearbeiter = New System.Windows.Forms.Label() Me.pnl = New System.Windows.Forms.Panel() - Me.txtNettobetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtNettobetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.btn_EUR_to_FW = New System.Windows.Forms.Button() Me.Label19 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label() Me.btnDel = New System.Windows.Forms.Button() - Me.cbxAntragsfilter = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) Me.lblWarning = New System.Windows.Forms.Label() Me.btnLeistenderSave = New System.Windows.Forms.Button() - Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox() Me.pnlAdresse = New System.Windows.Forms.Panel() - Me.txtStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label14 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.btnAPIUbload = New System.Windows.Forms.Button() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Panel4 = New System.Windows.Forms.Panel() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.cnS_KIUPLOAD = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.txtNettobetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtNettobetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxAntragsfilter = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.sbLeistender = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.txtStrasse = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtUIDNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtLand = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtStrassenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label16 = New System.Windows.Forms.Label() Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cboSchnittstellennr = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtRgNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -78,16 +88,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUmrechnungskurs = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSTBetrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Panel1 = New System.Windows.Forms.Panel() - Me.btnAPIUbload = New System.Windows.Forms.Button() - Me.Panel3 = New System.Windows.Forms.Panel() - Me.Panel4 = New System.Windows.Forms.Panel() - Me.TabControl1 = New System.Windows.Forms.TabControl() - Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.cnS_KIUPLOAD = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.btn_EUR_to_FW = New System.Windows.Forms.Button() Me.tabDok.SuspendLayout() Me.tbcntr.SuspendLayout() Me.tabVollmachten.SuspendLayout() @@ -113,27 +113,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.tabDok.Text = "Rechnungen" Me.tabDok.UseVisualStyleBackColor = True ' - 'scanSonstiges - ' - Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" - Me.scanSonstiges._DATENSERVER_UOrdner1 = "" - Me.scanSonstiges._DATENSERVER_UOrdner2 = "" - Me.scanSonstiges._DATENSERVER_UOrdner3 = "" - Me.scanSonstiges._OPEN_ORIGINAL = False - Me.scanSonstiges._TYPE = "PDF" - Me.scanSonstiges.AllowDrop = True - Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSonstiges.BackColor = System.Drawing.Color.White - Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanSonstiges.Dock = System.Windows.Forms.DockStyle.Fill - Me.scanSonstiges.Location = New System.Drawing.Point(3, 3) - Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) - Me.scanSonstiges.Name = "scanSonstiges" - Me.scanSonstiges.Size = New System.Drawing.Size(250, 191) - Me.scanSonstiges.TabIndex = 0 - ' 'tbcntr ' Me.tbcntr.Controls.Add(Me.tabDok) @@ -157,27 +136,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.tabVollmachten.Text = "Vollmachten" Me.tabVollmachten.UseVisualStyleBackColor = True ' - 'scanUSTVVollmachten - ' - Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = "" - Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = "" - Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = "" - Me.scanUSTVVollmachten._OPEN_ORIGINAL = False - Me.scanUSTVVollmachten._TYPE = "PDF" - Me.scanUSTVVollmachten.AllowDrop = True - Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White - Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanUSTVVollmachten.Dock = System.Windows.Forms.DockStyle.Fill - Me.scanUSTVVollmachten.Location = New System.Drawing.Point(3, 3) - Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0) - Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten" - Me.scanUSTVVollmachten.Size = New System.Drawing.Size(250, 191) - Me.scanUSTVVollmachten.TabIndex = 1 - ' 'tabFABest ' Me.tabFABest.Controls.Add(Me.scanUSTVFABest) @@ -188,27 +146,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.tabFABest.Text = "FA_Bestätigung" Me.tabFABest.UseVisualStyleBackColor = True ' - 'scanUSTVFABest - ' - Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVFABest._DATENSERVER_UOrdner1 = "" - Me.scanUSTVFABest._DATENSERVER_UOrdner2 = "" - Me.scanUSTVFABest._DATENSERVER_UOrdner3 = "" - Me.scanUSTVFABest._OPEN_ORIGINAL = False - Me.scanUSTVFABest._TYPE = "PDF" - Me.scanUSTVFABest.AllowDrop = True - Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVFABest.BackColor = System.Drawing.Color.White - Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanUSTVFABest.Dock = System.Windows.Forms.DockStyle.Fill - Me.scanUSTVFABest.Location = New System.Drawing.Point(0, 0) - Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0) - Me.scanUSTVFABest.Name = "scanUSTVFABest" - Me.scanUSTVFABest.Size = New System.Drawing.Size(256, 197) - Me.scanUSTVFABest.TabIndex = 1 - ' 'Label8 ' Me.Label8.AutoSize = True @@ -439,6 +376,304 @@ Partial Class ustCntlUSTV_AntragPosition Me.pnl.Size = New System.Drawing.Size(1300, 239) Me.pnl.TabIndex = 1 ' + 'btn_EUR_to_FW + ' + Me.btn_EUR_to_FW.BackgroundImage = Global.SDL.My.Resources.Resources.picboxPrevious_Enter + Me.btn_EUR_to_FW.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btn_EUR_to_FW.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_EUR_to_FW.Location = New System.Drawing.Point(208, 166) + Me.btn_EUR_to_FW.Name = "btn_EUR_to_FW" + Me.btn_EUR_to_FW.Size = New System.Drawing.Size(36, 24) + Me.btn_EUR_to_FW.TabIndex = 30 + Me.btn_EUR_to_FW.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.btn_EUR_to_FW.UseVisualStyleBackColor = True + Me.btn_EUR_to_FW.Visible = False + ' + 'Label19 + ' + Me.Label19.AutoSize = True + Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label19.Location = New System.Drawing.Point(291, 152) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(105, 15) + Me.Label19.TabIndex = 27 + Me.Label19.Text = "Netto-Betrag EUR" + ' + 'Label18 + ' + Me.Label18.AutoSize = True + Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label18.Location = New System.Drawing.Point(14, 152) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(79, 15) + Me.Label18.TabIndex = 26 + Me.Label18.Text = "Netto-Betrag:" + ' + 'btnDel + ' + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del + Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnDel.Location = New System.Drawing.Point(834, 162) + Me.btnDel.Name = "btnDel" + Me.btnDel.Size = New System.Drawing.Size(36, 24) + Me.btnDel.TabIndex = 25 + Me.btnDel.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnDel.UseVisualStyleBackColor = True + Me.btnDel.Visible = False + ' + 'lblWarning + ' + Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(294, 193) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(322, 39) + Me.lblWarning.TabIndex = 23 + ' + 'btnLeistenderSave + ' + Me.btnLeistenderSave.BackgroundImage = Global.SDL.My.Resources.Resources.save + Me.btnLeistenderSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnLeistenderSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnLeistenderSave.Location = New System.Drawing.Point(876, 162) + Me.btnLeistenderSave.Name = "btnLeistenderSave" + Me.btnLeistenderSave.Size = New System.Drawing.Size(36, 24) + Me.btnLeistenderSave.TabIndex = 16 + Me.btnLeistenderSave.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnLeistenderSave.UseVisualStyleBackColor = True + Me.btnLeistenderSave.Visible = False + ' + 'pnlAdresse + ' + Me.pnlAdresse.AccessibleRole = System.Windows.Forms.AccessibleRole.WhiteSpace + Me.pnlAdresse.Controls.Add(Me.txtStrasse) + Me.pnlAdresse.Controls.Add(Me.txtUIDNr) + Me.pnlAdresse.Controls.Add(Me.Label14) + Me.pnlAdresse.Controls.Add(Me.Label17) + Me.pnlAdresse.Controls.Add(Me.Label15) + Me.pnlAdresse.Controls.Add(Me.txtLand) + Me.pnlAdresse.Controls.Add(Me.txtPLZ) + Me.pnlAdresse.Controls.Add(Me.txtStrassenNr) + Me.pnlAdresse.Controls.Add(Me.Label16) + Me.pnlAdresse.Controls.Add(Me.txtOrt) + Me.pnlAdresse.Location = New System.Drawing.Point(626, 76) + Me.pnlAdresse.Name = "pnlAdresse" + Me.pnlAdresse.Size = New System.Drawing.Size(287, 82) + Me.pnlAdresse.TabIndex = 14 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label14.Location = New System.Drawing.Point(4, 5) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(64, 15) + Me.Label14.TabIndex = 23 + Me.Label14.Text = "Strasse/Nr" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label17.Location = New System.Drawing.Point(129, 63) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(45, 15) + Me.Label17.TabIndex = 31 + Me.Label17.Text = "UID-Nr" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label15.Location = New System.Drawing.Point(8, 32) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(48, 15) + Me.Label15.TabIndex = 25 + Me.Label15.Text = "PLZ/Ort" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) + Me.Label16.Location = New System.Drawing.Point(8, 58) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(35, 15) + Me.Label16.TabIndex = 27 + Me.Label16.Text = "Land" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.btnAPIUbload) + Me.Panel1.Controls.Add(Me.btnBildAuf) + Me.Panel1.Controls.Add(Me.Button1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right + Me.Panel1.Location = New System.Drawing.Point(937, 30) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(99, 239) + Me.Panel1.TabIndex = 2 + ' + 'btnAPIUbload + ' + Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight + Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186) + Me.btnAPIUbload.Name = "btnAPIUbload" + Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24) + Me.btnAPIUbload.TabIndex = 25 + Me.btnAPIUbload.Text = "API-Upload" + Me.btnAPIUbload.UseVisualStyleBackColor = True + ' + 'Panel3 + ' + Me.Panel3.Controls.Add(Me.tbcntr) + Me.Panel3.Controls.Add(Me.Panel4) + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right + Me.Panel3.Location = New System.Drawing.Point(1036, 30) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(264, 239) + Me.Panel3.TabIndex = 25 + ' + 'Panel4 + ' + Me.Panel4.Controls.Add(Me.TabControl1) + Me.Panel4.Controls.Add(Me.scanLieferschein) + Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel4.Location = New System.Drawing.Point(0, 0) + Me.Panel4.Name = "Panel4" + Me.Panel4.Size = New System.Drawing.Size(264, 16) + Me.Panel4.TabIndex = 26 + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Location = New System.Drawing.Point(39, 49) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(278, 239) + Me.TabControl1.TabIndex = 3 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.UsrcntlPDFScanList1) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(270, 213) + Me.TabPage1.TabIndex = 1 + Me.TabPage1.Text = "Dokumente" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'cnS_KIUPLOAD + ' + Me.cnS_KIUPLOAD.Name = "ContextMenuStrip1" + Me.cnS_KIUPLOAD.Size = New System.Drawing.Size(61, 4) + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges._OPEN_ORIGINAL = False + Me.scanSonstiges._TYPE = "PDF" + Me.scanSonstiges.AllowDrop = True + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanSonstiges.Dock = System.Windows.Forms.DockStyle.Fill + Me.scanSonstiges.Location = New System.Drawing.Point(3, 3) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(250, 191) + Me.scanSonstiges.TabIndex = 0 + ' + 'scanUSTVVollmachten + ' + Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = "" + Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = "" + Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = "" + Me.scanUSTVVollmachten._OPEN_ORIGINAL = False + Me.scanUSTVVollmachten._TYPE = "PDF" + Me.scanUSTVVollmachten.AllowDrop = True + Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White + Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanUSTVVollmachten.Dock = System.Windows.Forms.DockStyle.Fill + Me.scanUSTVVollmachten.Location = New System.Drawing.Point(3, 3) + Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0) + Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten" + Me.scanUSTVVollmachten.Size = New System.Drawing.Size(250, 191) + Me.scanUSTVVollmachten.TabIndex = 1 + ' + 'scanUSTVFABest + ' + Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVFABest._DATENSERVER_UOrdner1 = "" + Me.scanUSTVFABest._DATENSERVER_UOrdner2 = "" + Me.scanUSTVFABest._DATENSERVER_UOrdner3 = "" + Me.scanUSTVFABest._OPEN_ORIGINAL = False + Me.scanUSTVFABest._TYPE = "PDF" + Me.scanUSTVFABest.AllowDrop = True + Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVFABest.BackColor = System.Drawing.Color.White + Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanUSTVFABest.Dock = System.Windows.Forms.DockStyle.Fill + Me.scanUSTVFABest.Location = New System.Drawing.Point(0, 0) + Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0) + Me.scanUSTVFABest.Name = "scanUSTVFABest" + Me.scanUSTVFABest.Size = New System.Drawing.Size(256, 197) + Me.scanUSTVFABest.TabIndex = 1 + ' + 'UsrcntlPDFScanList1 + ' + Me.UsrcntlPDFScanList1._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.UsrcntlPDFScanList1._DATENSERVER_ORDNER = "MDM" + Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner1 = "" + Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner2 = "" + Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner3 = "" + Me.UsrcntlPDFScanList1._OPEN_ORIGINAL = False + Me.UsrcntlPDFScanList1._TYPE = "PDF" + Me.UsrcntlPDFScanList1.AllowDrop = True + Me.UsrcntlPDFScanList1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.UsrcntlPDFScanList1.BackColor = System.Drawing.Color.White + Me.UsrcntlPDFScanList1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrcntlPDFScanList1.Cursor = System.Windows.Forms.Cursors.Hand + Me.UsrcntlPDFScanList1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(3, 3) + Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0) + Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1" + Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(264, 207) + Me.UsrcntlPDFScanList1.TabIndex = 0 + ' + 'scanLieferschein + ' + Me.scanLieferschein._ARCHIV = True + Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanLieferschein._DATENSERVER_ORDNER = "MDM" + Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing + Me.scanLieferschein._MULTI_FILES = True + Me.scanLieferschein._TEXT_PDF = "XX Vollmacht" + Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanLieferschein.BackColor = System.Drawing.Color.White + Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default + Me.scanLieferschein.Location = New System.Drawing.Point(146, 3) + Me.scanLieferschein.Name = "scanLieferschein" + Me.scanLieferschein.Size = New System.Drawing.Size(111, 34) + Me.scanLieferschein.TabIndex = 2 + Me.scanLieferschein.Visible = False + ' 'txtNettobetragEUR ' Me.txtNettobetragEUR._DateTimeOnly = False @@ -489,39 +724,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtNettobetrag.Size = New System.Drawing.Size(154, 20) Me.txtNettobetrag.TabIndex = 28 ' - 'Label19 - ' - Me.Label19.AutoSize = True - Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) - Me.Label19.Location = New System.Drawing.Point(291, 152) - Me.Label19.Name = "Label19" - Me.Label19.Size = New System.Drawing.Size(105, 15) - Me.Label19.TabIndex = 27 - Me.Label19.Text = "Netto-Betrag EUR" - ' - 'Label18 - ' - Me.Label18.AutoSize = True - Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) - Me.Label18.Location = New System.Drawing.Point(14, 152) - Me.Label18.Name = "Label18" - Me.Label18.Size = New System.Drawing.Size(79, 15) - Me.Label18.TabIndex = 26 - Me.Label18.Text = "Netto-Betrag:" - ' - 'btnDel - ' - Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del - Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDel.Location = New System.Drawing.Point(834, 162) - Me.btnDel.Name = "btnDel" - Me.btnDel.Size = New System.Drawing.Size(36, 24) - Me.btnDel.TabIndex = 25 - Me.btnDel.TextAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnDel.UseVisualStyleBackColor = True - Me.btnDel.Visible = False - ' 'cbxAntragsfilter ' Me.cbxAntragsfilter._date = Nothing @@ -536,29 +738,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.cbxAntragsfilter.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.cbxAntragsfilter.UseVisualStyleBackColor = True ' - 'lblWarning - ' - Me.lblWarning.AutoSize = True - Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblWarning.ForeColor = System.Drawing.Color.Red - Me.lblWarning.Location = New System.Drawing.Point(14, 167) - Me.lblWarning.Name = "lblWarning" - Me.lblWarning.Size = New System.Drawing.Size(0, 16) - Me.lblWarning.TabIndex = 23 - ' - 'btnLeistenderSave - ' - Me.btnLeistenderSave.BackgroundImage = Global.SDL.My.Resources.Resources.save - Me.btnLeistenderSave.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnLeistenderSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnLeistenderSave.Location = New System.Drawing.Point(876, 162) - Me.btnLeistenderSave.Name = "btnLeistenderSave" - Me.btnLeistenderSave.Size = New System.Drawing.Size(36, 24) - Me.btnLeistenderSave.TabIndex = 16 - Me.btnLeistenderSave.TextAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnLeistenderSave.UseVisualStyleBackColor = True - Me.btnLeistenderSave.Visible = False - ' 'sbLeistender ' Me.sbLeistender._allowFreitext = True @@ -584,24 +763,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.sbLeistender.TabIndex = 9 Me.sbLeistender.usrcntl = Nothing ' - 'pnlAdresse - ' - Me.pnlAdresse.AccessibleRole = System.Windows.Forms.AccessibleRole.WhiteSpace - Me.pnlAdresse.Controls.Add(Me.txtStrasse) - Me.pnlAdresse.Controls.Add(Me.txtUIDNr) - Me.pnlAdresse.Controls.Add(Me.Label14) - Me.pnlAdresse.Controls.Add(Me.Label17) - Me.pnlAdresse.Controls.Add(Me.Label15) - Me.pnlAdresse.Controls.Add(Me.txtLand) - Me.pnlAdresse.Controls.Add(Me.txtPLZ) - Me.pnlAdresse.Controls.Add(Me.txtStrassenNr) - Me.pnlAdresse.Controls.Add(Me.Label16) - Me.pnlAdresse.Controls.Add(Me.txtOrt) - Me.pnlAdresse.Location = New System.Drawing.Point(626, 76) - Me.pnlAdresse.Name = "pnlAdresse" - Me.pnlAdresse.Size = New System.Drawing.Size(287, 82) - Me.pnlAdresse.TabIndex = 14 - ' 'txtStrasse ' Me.txtStrasse._DateTimeOnly = False @@ -650,36 +811,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtUIDNr.Size = New System.Drawing.Size(106, 20) Me.txtUIDNr.TabIndex = 15 ' - 'Label14 - ' - Me.Label14.AutoSize = True - Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) - Me.Label14.Location = New System.Drawing.Point(4, 5) - Me.Label14.Name = "Label14" - Me.Label14.Size = New System.Drawing.Size(64, 15) - Me.Label14.TabIndex = 23 - Me.Label14.Text = "Strasse/Nr" - ' - 'Label17 - ' - Me.Label17.AutoSize = True - Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) - Me.Label17.Location = New System.Drawing.Point(129, 63) - Me.Label17.Name = "Label17" - Me.Label17.Size = New System.Drawing.Size(45, 15) - Me.Label17.TabIndex = 31 - Me.Label17.Text = "UID-Nr" - ' - 'Label15 - ' - Me.Label15.AutoSize = True - Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) - Me.Label15.Location = New System.Drawing.Point(8, 32) - Me.Label15.Name = "Label15" - Me.Label15.Size = New System.Drawing.Size(48, 15) - Me.Label15.TabIndex = 25 - Me.Label15.Text = "PLZ/Ort" - ' 'txtLand ' Me.txtLand._DateTimeOnly = False @@ -752,16 +883,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtStrassenNr.Size = New System.Drawing.Size(45, 20) Me.txtStrassenNr.TabIndex = 11 ' - 'Label16 - ' - Me.Label16.AutoSize = True - Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) - Me.Label16.Location = New System.Drawing.Point(8, 58) - Me.Label16.Name = "Label16" - Me.Label16.Size = New System.Drawing.Size(35, 15) - Me.Label16.TabIndex = 27 - Me.Label16.Text = "Land" - ' 'txtOrt ' Me.txtOrt._DateTimeOnly = False @@ -971,128 +1092,6 @@ Partial Class ustCntlUSTV_AntragPosition Me.txtUSTBetrag.Size = New System.Drawing.Size(154, 20) Me.txtUSTBetrag.TabIndex = 17 ' - 'Panel1 - ' - Me.Panel1.Controls.Add(Me.btnAPIUbload) - Me.Panel1.Controls.Add(Me.btnBildAuf) - Me.Panel1.Controls.Add(Me.Button1) - Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right - Me.Panel1.Location = New System.Drawing.Point(937, 30) - Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(99, 239) - Me.Panel1.TabIndex = 2 - ' - 'btnAPIUbload - ' - Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAPIUbload.ImageAlign = System.Drawing.ContentAlignment.MiddleRight - Me.btnAPIUbload.Location = New System.Drawing.Point(16, 186) - Me.btnAPIUbload.Name = "btnAPIUbload" - Me.btnAPIUbload.Size = New System.Drawing.Size(71, 24) - Me.btnAPIUbload.TabIndex = 25 - Me.btnAPIUbload.Text = "API-Upload" - Me.btnAPIUbload.UseVisualStyleBackColor = True - ' - 'Panel3 - ' - Me.Panel3.Controls.Add(Me.tbcntr) - Me.Panel3.Controls.Add(Me.Panel4) - Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right - Me.Panel3.Location = New System.Drawing.Point(1036, 30) - Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(264, 239) - Me.Panel3.TabIndex = 25 - ' - 'Panel4 - ' - Me.Panel4.Controls.Add(Me.TabControl1) - Me.Panel4.Controls.Add(Me.scanLieferschein) - Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top - Me.Panel4.Location = New System.Drawing.Point(0, 0) - Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(264, 16) - Me.Panel4.TabIndex = 26 - ' - 'TabControl1 - ' - Me.TabControl1.Controls.Add(Me.TabPage1) - Me.TabControl1.Location = New System.Drawing.Point(39, 49) - Me.TabControl1.Name = "TabControl1" - Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(278, 239) - Me.TabControl1.TabIndex = 3 - ' - 'TabPage1 - ' - Me.TabPage1.Controls.Add(Me.UsrcntlPDFScanList1) - Me.TabPage1.Location = New System.Drawing.Point(4, 22) - Me.TabPage1.Name = "TabPage1" - Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(270, 213) - Me.TabPage1.TabIndex = 1 - Me.TabPage1.Text = "Dokumente" - Me.TabPage1.UseVisualStyleBackColor = True - ' - 'UsrcntlPDFScanList1 - ' - Me.UsrcntlPDFScanList1._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.UsrcntlPDFScanList1._DATENSERVER_ORDNER = "MDM" - Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner1 = "" - Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner2 = "" - Me.UsrcntlPDFScanList1._DATENSERVER_UOrdner3 = "" - Me.UsrcntlPDFScanList1._OPEN_ORIGINAL = False - Me.UsrcntlPDFScanList1._TYPE = "PDF" - Me.UsrcntlPDFScanList1.AllowDrop = True - Me.UsrcntlPDFScanList1.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.UsrcntlPDFScanList1.BackColor = System.Drawing.Color.White - Me.UsrcntlPDFScanList1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrcntlPDFScanList1.Cursor = System.Windows.Forms.Cursors.Hand - Me.UsrcntlPDFScanList1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(3, 3) - Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0) - Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1" - Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(264, 207) - Me.UsrcntlPDFScanList1.TabIndex = 0 - ' - 'scanLieferschein - ' - Me.scanLieferschein._ARCHIV = True - Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanLieferschein._DATENSERVER_ORDNER = "MDM" - Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing - Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing - Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing - Me.scanLieferschein._MULTI_FILES = True - Me.scanLieferschein._TEXT_PDF = "XX Vollmacht" - Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanLieferschein.BackColor = System.Drawing.Color.White - Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default - Me.scanLieferschein.Location = New System.Drawing.Point(146, 3) - Me.scanLieferschein.Name = "scanLieferschein" - Me.scanLieferschein.Size = New System.Drawing.Size(111, 34) - Me.scanLieferschein.TabIndex = 2 - Me.scanLieferschein.Visible = False - ' - 'cnS_KIUPLOAD - ' - Me.cnS_KIUPLOAD.Name = "ContextMenuStrip1" - Me.cnS_KIUPLOAD.Size = New System.Drawing.Size(61, 4) - ' - 'btn_EUR_to_FW - ' - Me.btn_EUR_to_FW.BackgroundImage = Global.SDL.My.Resources.Resources.picboxPrevious_Enter - Me.btn_EUR_to_FW.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.btn_EUR_to_FW.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn_EUR_to_FW.Location = New System.Drawing.Point(208, 166) - Me.btn_EUR_to_FW.Name = "btn_EUR_to_FW" - Me.btn_EUR_to_FW.Size = New System.Drawing.Size(36, 24) - Me.btn_EUR_to_FW.TabIndex = 30 - Me.btn_EUR_to_FW.TextAlign = System.Drawing.ContentAlignment.TopCenter - Me.btn_EUR_to_FW.UseVisualStyleBackColor = True - Me.btn_EUR_to_FW.Visible = False - ' 'ustCntlUSTV_AntragPosition ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index ad4cb41b..3adbcae6 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -234,7 +234,7 @@ Public Class ustCntlUSTV_AntragPosition Function save() Dim setSave As Boolean = True getValues(UStV_POS, setSave) - 'MsgBox("TEST") + If setSave Then Return UStV_POS.SAVE Return False End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb index e8fc63a3..d46b84fb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUSTVAntrag.vb @@ -450,7 +450,7 @@ Public Class cUStVPositionen Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.ValidateSQLFieldLengths(list, "tblUStVPositionen", "", "FMZOLL") Then + If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.ValidateSQLFieldLengths(list, "tblUStVPositionen", "", "FMZOLL") Then Return False End If