diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 7ea41133..0eb1efe1 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -4991,15 +4991,13 @@ - - Always - Always Always + Always diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 93c83c52..b91b740e 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -27,6 +27,7 @@ Partial Class frmMDM_USTVAntrag Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag)) Me.pnlBottom = New System.Windows.Forms.Panel() + Me.Label27 = New System.Windows.Forms.Label() Me.picExcel = New System.Windows.Forms.PictureBox() Me.Button4 = New System.Windows.Forms.Button() Me.picPDF = New System.Windows.Forms.PictureBox() @@ -39,36 +40,22 @@ Partial Class frmMDM_USTVAntrag Me.lblGesamtUSteuer = New System.Windows.Forms.Label() Me.lblDiffernezbetrag = New System.Windows.Forms.Label() Me.lblGesamtErstattung = New System.Windows.Forms.Label() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.cboAntragArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblKdNr = New System.Windows.Forms.Label() Me.Panel9 = New System.Windows.Forms.Panel() - Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblLand = New System.Windows.Forms.Label() Me.Panel8 = New System.Windows.Forms.Panel() Me.Label14 = New System.Windows.Forms.Label() - Me.txtEingereichtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblMWSTAntrag = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() - Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label11 = New System.Windows.Forms.Label() - Me.txtStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label9 = New System.Windows.Forms.Label() - Me.txtVZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label8 = New System.Windows.Forms.Label() - Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() - Me.txtBezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxWahrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblWahrung = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() - Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label3 = New System.Windows.Forms.Label() Me.lblZeitraum = New System.Windows.Forms.Label() - Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Panel6 = New System.Windows.Forms.Panel() Me.lblGesamtUSteuerFW = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() @@ -91,31 +78,45 @@ Partial Class frmMDM_USTVAntrag Me.btnStorno = New System.Windows.Forms.Button() Me.lblAntragAbgeschlossen = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() - Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.lblFirma = New System.Windows.Forms.Label() Me.lblWarnung = New System.Windows.Forms.Label() Me.pnlBody = New System.Windows.Forms.Panel() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel() - Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() Me.Panel4 = New System.Windows.Forms.Panel() Me.btnEintragloeschen = New System.Windows.Forms.Button() Me.btnNeuerEintrag = New System.Windows.Forms.Button() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.Panel3 = New System.Windows.Forms.Panel() - Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.pnlErstattungsdetails = New System.Windows.Forms.Panel() - Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() Me.Panel1 = New System.Windows.Forms.Panel() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.cboAntragArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtEingereichtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGueltig = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtStNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtBezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxWahrung = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVon = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cboStatus = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition() + Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label27 = New System.Windows.Forms.Label() + Me.btnAPI = New System.Windows.Forms.Button() Me.pnlBottom.SuspendLayout() CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit() @@ -128,15 +129,15 @@ Partial Class frmMDM_USTVAntrag Me.pnlBody.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() - CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlAntragsPosDetails.SuspendLayout() Me.Panel2.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabPage2.SuspendLayout() Me.Panel3.SuspendLayout() - CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.pnlErstattungsdetails.SuspendLayout() Me.Panel1.SuspendLayout() + CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnlBottom @@ -159,6 +160,16 @@ Partial Class frmMDM_USTVAntrag Me.pnlBottom.Size = New System.Drawing.Size(1454, 100) Me.pnlBottom.TabIndex = 3 ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.Location = New System.Drawing.Point(975, 66) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(45, 13) + Me.Label27.TabIndex = 48 + Me.Label27.Text = "Summe:" + ' 'picExcel ' Me.picExcel.Image = Global.SDL.My.Resources.Resources.Excel_logo @@ -322,48 +333,6 @@ Partial Class frmMDM_USTVAntrag Me.lblGesamtErstattung.Text = "000.000,00" Me.lblGesamtErstattung.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'KdSearchBox1 - ' - Me.KdSearchBox1._AlleFirmenCLUSTER = False - Me.KdSearchBox1._AllowSetValue = False - Me.KdSearchBox1._autoSizeGross = False - Me.KdSearchBox1._display_Name1 = False - Me.KdSearchBox1._displayAVISO_Email = False - Me.KdSearchBox1._displayFullName = False - Me.KdSearchBox1._displayWoelflKd = False - Me.KdSearchBox1._hideIfListEmpty = True - Me.KdSearchBox1._loadKdData = False - Me.KdSearchBox1._searchName1 = True - Me.KdSearchBox1._UseFIRMA = "" - Me.KdSearchBox1._ValueKdAndName = True - Me.KdSearchBox1.dgvpos = "LEFT" - Me.KdSearchBox1.KdName = Nothing - Me.KdSearchBox1.KdNr = "-1" - Me.KdSearchBox1.kdNrField = Nothing - Me.KdSearchBox1.KdNrNullInt = Nothing - Me.KdSearchBox1.Location = New System.Drawing.Point(298, 10) - Me.KdSearchBox1.Name = "KdSearchBox1" - Me.KdSearchBox1.nurAktive = True - Me.KdSearchBox1.searchActive = True - Me.KdSearchBox1.Size = New System.Drawing.Size(171, 20) - Me.KdSearchBox1.TabIndex = 22 - Me.KdSearchBox1.TIMER_SEARCH = True - Me.KdSearchBox1.usrcntl = Nothing - ' - 'cboAntragArt - ' - Me.cboAntragArt._allowedValuesFreiText = Nothing - Me.cboAntragArt._allowFreiText = False - Me.cboAntragArt._value = "" - Me.cboAntragArt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.cboAntragArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.cboAntragArt.FormattingEnabled = True - Me.cboAntragArt.Location = New System.Drawing.Point(83, 10) - Me.cboAntragArt.Name = "cboAntragArt" - Me.cboAntragArt.Size = New System.Drawing.Size(191, 28) - Me.cboAntragArt.TabIndex = 21 - Me.cboAntragArt.Text = "USTV-Antrag" - ' 'lblKdNr ' Me.lblKdNr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -388,21 +357,6 @@ Partial Class frmMDM_USTVAntrag Me.Panel9.Size = New System.Drawing.Size(65, 90) Me.Panel9.TabIndex = 20 ' - 'cbxLand - ' - Me.cbxLand._allowedValuesFreiText = Nothing - Me.cbxLand._allowFreiText = False - Me.cbxLand._value = "" - Me.cbxLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) - Me.cbxLand.FormattingEnabled = True - Me.cbxLand.Location = New System.Drawing.Point(0, 0) - Me.cbxLand.Name = "cbxLand" - Me.cbxLand.Size = New System.Drawing.Size(65, 28) - Me.cbxLand.TabIndex = 23 - Me.cbxLand.Text = "USTV-Antrag" - Me.cbxLand.Visible = False - ' 'lblLand ' Me.lblLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) @@ -463,31 +417,6 @@ Partial Class frmMDM_USTVAntrag Me.Label14.TabIndex = 27 Me.Label14.Text = "eingereicht am" ' - 'txtEingereichtAm - ' - Me.txtEingereichtAm._DateTimeOnly = False - Me.txtEingereichtAm._numbersOnly = False - Me.txtEingereichtAm._numbersOnlyKommastellen = "" - Me.txtEingereichtAm._numbersOnlyTrennzeichen = False - Me.txtEingereichtAm._Prozent = False - Me.txtEingereichtAm._ShortDateNew = False - Me.txtEingereichtAm._ShortDateOnly = True - Me.txtEingereichtAm._TimeOnly = False - Me.txtEingereichtAm._TimeOnly_Seconds = False - Me.txtEingereichtAm._value = "" - Me.txtEingereichtAm._Waehrung = False - Me.txtEingereichtAm._WaehrungZeichen = False - Me.txtEingereichtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtEingereichtAm.ForeColor = System.Drawing.Color.Black - Me.txtEingereichtAm.Location = New System.Drawing.Point(654, 60) - Me.txtEingereichtAm.MaxLength = 10 - Me.txtEingereichtAm.MaxLineLength = -1 - Me.txtEingereichtAm.MaxLines_Warning = "" - Me.txtEingereichtAm.MaxLines_Warning_Label = Nothing - Me.txtEingereichtAm.Name = "txtEingereichtAm" - Me.txtEingereichtAm.Size = New System.Drawing.Size(100, 23) - Me.txtEingereichtAm.TabIndex = 26 - ' 'lblMWSTAntrag ' Me.lblMWSTAntrag.AutoSize = True @@ -513,31 +442,6 @@ Partial Class frmMDM_USTVAntrag Me.Label13.TabIndex = 24 Me.Label13.Text = "gültig bis" ' - 'txtGueltig - ' - Me.txtGueltig._DateTimeOnly = False - Me.txtGueltig._numbersOnly = False - Me.txtGueltig._numbersOnlyKommastellen = "" - Me.txtGueltig._numbersOnlyTrennzeichen = False - Me.txtGueltig._Prozent = False - Me.txtGueltig._ShortDateNew = False - Me.txtGueltig._ShortDateOnly = True - Me.txtGueltig._TimeOnly = False - Me.txtGueltig._TimeOnly_Seconds = False - Me.txtGueltig._value = "" - Me.txtGueltig._Waehrung = False - Me.txtGueltig._WaehrungZeichen = False - Me.txtGueltig.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtGueltig.ForeColor = System.Drawing.Color.Black - Me.txtGueltig.Location = New System.Drawing.Point(101, 61) - Me.txtGueltig.MaxLength = 10 - Me.txtGueltig.MaxLineLength = -1 - Me.txtGueltig.MaxLines_Warning = "" - Me.txtGueltig.MaxLines_Warning_Label = Nothing - Me.txtGueltig.Name = "txtGueltig" - Me.txtGueltig.Size = New System.Drawing.Size(100, 23) - Me.txtGueltig.TabIndex = 23 - ' 'Label11 ' Me.Label11.AutoSize = True @@ -551,31 +455,6 @@ Partial Class frmMDM_USTVAntrag Me.Label11.TabIndex = 21 Me.Label11.Text = "Steuer-Nr:" ' - 'txtStNr - ' - Me.txtStNr._DateTimeOnly = False - Me.txtStNr._numbersOnly = False - Me.txtStNr._numbersOnlyKommastellen = "" - Me.txtStNr._numbersOnlyTrennzeichen = False - Me.txtStNr._Prozent = False - Me.txtStNr._ShortDateNew = False - Me.txtStNr._ShortDateOnly = False - Me.txtStNr._TimeOnly = False - Me.txtStNr._TimeOnly_Seconds = False - Me.txtStNr._value = "" - Me.txtStNr._Waehrung = False - Me.txtStNr._WaehrungZeichen = False - Me.txtStNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtStNr.ForeColor = System.Drawing.Color.Black - Me.txtStNr.Location = New System.Drawing.Point(101, 36) - Me.txtStNr.MaxLength = 10 - Me.txtStNr.MaxLineLength = -1 - Me.txtStNr.MaxLines_Warning = "" - Me.txtStNr.MaxLines_Warning_Label = Nothing - Me.txtStNr.Name = "txtStNr" - Me.txtStNr.Size = New System.Drawing.Size(100, 23) - Me.txtStNr.TabIndex = 22 - ' 'Label9 ' Me.Label9.AutoSize = True @@ -589,56 +468,6 @@ Partial Class frmMDM_USTVAntrag Me.Label9.TabIndex = 19 Me.Label9.Text = "VZ:" ' - 'txtVZ - ' - Me.txtVZ._DateTimeOnly = False - Me.txtVZ._numbersOnly = True - Me.txtVZ._numbersOnlyKommastellen = "" - Me.txtVZ._numbersOnlyTrennzeichen = True - Me.txtVZ._Prozent = False - Me.txtVZ._ShortDateNew = False - Me.txtVZ._ShortDateOnly = False - Me.txtVZ._TimeOnly = False - Me.txtVZ._TimeOnly_Seconds = False - Me.txtVZ._value = "" - Me.txtVZ._Waehrung = True - Me.txtVZ._WaehrungZeichen = True - Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtVZ.ForeColor = System.Drawing.Color.Black - Me.txtVZ.Location = New System.Drawing.Point(865, 31) - Me.txtVZ.MaxLength = 10 - Me.txtVZ.MaxLineLength = -1 - Me.txtVZ.MaxLines_Warning = "" - Me.txtVZ.MaxLines_Warning_Label = Nothing - Me.txtVZ.Name = "txtVZ" - Me.txtVZ.Size = New System.Drawing.Size(100, 23) - Me.txtVZ.TabIndex = 20 - ' - 'txtAbfNr - ' - Me.txtAbfNr._DateTimeOnly = False - Me.txtAbfNr._numbersOnly = True - Me.txtAbfNr._numbersOnlyKommastellen = "" - Me.txtAbfNr._numbersOnlyTrennzeichen = False - Me.txtAbfNr._Prozent = False - Me.txtAbfNr._ShortDateNew = False - Me.txtAbfNr._ShortDateOnly = False - Me.txtAbfNr._TimeOnly = False - Me.txtAbfNr._TimeOnly_Seconds = False - Me.txtAbfNr._value = "" - Me.txtAbfNr._Waehrung = False - Me.txtAbfNr._WaehrungZeichen = False - Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtAbfNr.ForeColor = System.Drawing.Color.Black - Me.txtAbfNr.Location = New System.Drawing.Point(654, 33) - Me.txtAbfNr.MaxLength = 10 - Me.txtAbfNr.MaxLineLength = -1 - Me.txtAbfNr.MaxLines_Warning = "" - Me.txtAbfNr.MaxLines_Warning_Label = Nothing - Me.txtAbfNr.Name = "txtAbfNr" - Me.txtAbfNr.Size = New System.Drawing.Size(146, 23) - Me.txtAbfNr.TabIndex = 18 - ' 'Label8 ' Me.Label8.AutoSize = True @@ -652,19 +481,6 @@ Partial Class frmMDM_USTVAntrag Me.Label8.TabIndex = 17 Me.Label8.Text = "Abfertigungs-Nr:" ' - 'cbxFiliale - ' - Me.cbxFiliale._allowedValuesFreiText = Nothing - Me.cbxFiliale._allowFreiText = False - Me.cbxFiliale._value = "" - Me.cbxFiliale.DropDownWidth = 150 - Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxFiliale.FormattingEnabled = True - Me.cbxFiliale.Location = New System.Drawing.Point(413, 32) - Me.cbxFiliale.Name = "cbxFiliale" - Me.cbxFiliale.Size = New System.Drawing.Size(105, 24) - Me.cbxFiliale.TabIndex = 16 - ' 'Label4 ' Me.Label4.AutoSize = True @@ -691,43 +507,6 @@ Partial Class frmMDM_USTVAntrag Me.Label2.TabIndex = 13 Me.Label2.Text = "Bezugs/Pos-Nr.:" ' - 'txtBezugsNr - ' - Me.txtBezugsNr._DateTimeOnly = False - Me.txtBezugsNr._numbersOnly = True - Me.txtBezugsNr._numbersOnlyKommastellen = "" - Me.txtBezugsNr._numbersOnlyTrennzeichen = False - Me.txtBezugsNr._Prozent = False - Me.txtBezugsNr._ShortDateNew = False - Me.txtBezugsNr._ShortDateOnly = False - Me.txtBezugsNr._TimeOnly = False - Me.txtBezugsNr._TimeOnly_Seconds = False - Me.txtBezugsNr._value = "" - Me.txtBezugsNr._Waehrung = False - Me.txtBezugsNr._WaehrungZeichen = False - Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtBezugsNr.ForeColor = System.Drawing.Color.Black - Me.txtBezugsNr.Location = New System.Drawing.Point(654, 4) - Me.txtBezugsNr.MaxLength = 10 - Me.txtBezugsNr.MaxLineLength = -1 - Me.txtBezugsNr.MaxLines_Warning = "" - Me.txtBezugsNr.MaxLines_Warning_Label = Nothing - Me.txtBezugsNr.Name = "txtBezugsNr" - Me.txtBezugsNr.Size = New System.Drawing.Size(146, 23) - Me.txtBezugsNr.TabIndex = 14 - ' - 'cbxWahrung - ' - Me.cbxWahrung._allowedValuesFreiText = Nothing - Me.cbxWahrung._allowFreiText = False - Me.cbxWahrung._value = "" - Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cbxWahrung.FormattingEnabled = True - Me.cbxWahrung.Location = New System.Drawing.Point(431, 4) - Me.cbxWahrung.Name = "cbxWahrung" - Me.cbxWahrung.Size = New System.Drawing.Size(87, 24) - Me.cbxWahrung.TabIndex = 12 - ' 'lblWahrung ' Me.lblWahrung.AutoSize = True @@ -754,31 +533,6 @@ Partial Class frmMDM_USTVAntrag Me.Label1.TabIndex = 10 Me.Label1.Text = "3470:" ' - 'txt3470 - ' - Me.txt3470._DateTimeOnly = False - Me.txt3470._numbersOnly = True - Me.txt3470._numbersOnlyKommastellen = "" - Me.txt3470._numbersOnlyTrennzeichen = True - Me.txt3470._Prozent = False - Me.txt3470._ShortDateNew = False - Me.txt3470._ShortDateOnly = False - Me.txt3470._TimeOnly = False - Me.txt3470._TimeOnly_Seconds = False - Me.txt3470._value = "" - Me.txt3470._Waehrung = True - Me.txt3470._WaehrungZeichen = True - Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txt3470.ForeColor = System.Drawing.Color.Black - Me.txt3470.Location = New System.Drawing.Point(865, 2) - Me.txt3470.MaxLength = 10 - Me.txt3470.MaxLineLength = -1 - Me.txt3470.MaxLines_Warning = "" - Me.txt3470.MaxLines_Warning_Label = Nothing - Me.txt3470.Name = "txt3470" - Me.txt3470.Size = New System.Drawing.Size(100, 23) - Me.txt3470.TabIndex = 10 - ' 'Label3 ' Me.Label3.AutoSize = True @@ -805,56 +559,6 @@ Partial Class frmMDM_USTVAntrag Me.lblZeitraum.TabIndex = 7 Me.lblZeitraum.Text = "-" ' - 'txtVon - ' - Me.txtVon._DateTimeOnly = False - Me.txtVon._numbersOnly = False - Me.txtVon._numbersOnlyKommastellen = "" - Me.txtVon._numbersOnlyTrennzeichen = False - Me.txtVon._Prozent = False - Me.txtVon._ShortDateNew = True - Me.txtVon._ShortDateOnly = False - Me.txtVon._TimeOnly = False - Me.txtVon._TimeOnly_Seconds = False - Me.txtVon._value = "" - Me.txtVon._Waehrung = False - Me.txtVon._WaehrungZeichen = False - Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtVon.ForeColor = System.Drawing.Color.Black - Me.txtVon.Location = New System.Drawing.Point(101, 9) - Me.txtVon.MaxLength = 10 - Me.txtVon.MaxLineLength = -1 - Me.txtVon.MaxLines_Warning = "" - Me.txtVon.MaxLines_Warning_Label = Nothing - Me.txtVon.Name = "txtVon" - Me.txtVon.Size = New System.Drawing.Size(100, 23) - Me.txtVon.TabIndex = 6 - ' - 'txtBis - ' - Me.txtBis._DateTimeOnly = False - Me.txtBis._numbersOnly = False - Me.txtBis._numbersOnlyKommastellen = "" - Me.txtBis._numbersOnlyTrennzeichen = False - Me.txtBis._Prozent = False - Me.txtBis._ShortDateNew = True - Me.txtBis._ShortDateOnly = False - Me.txtBis._TimeOnly = False - Me.txtBis._TimeOnly_Seconds = False - Me.txtBis._value = "" - Me.txtBis._Waehrung = False - Me.txtBis._WaehrungZeichen = False - Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtBis.ForeColor = System.Drawing.Color.Black - Me.txtBis.Location = New System.Drawing.Point(227, 9) - Me.txtBis.MaxLength = 10 - Me.txtBis.MaxLineLength = -1 - Me.txtBis.MaxLines_Warning = "" - Me.txtBis.MaxLines_Warning_Label = Nothing - Me.txtBis.Name = "txtBis" - Me.txtBis.Size = New System.Drawing.Size(100, 23) - Me.txtBis.TabIndex = 8 - ' 'Panel6 ' Me.Panel6.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) @@ -1150,19 +854,6 @@ Partial Class frmMDM_USTVAntrag Me.Label5.TabIndex = 0 Me.Label5.Text = "Status:" ' - 'cboStatus - ' - Me.cboStatus._allowedValuesFreiText = Nothing - Me.cboStatus._allowFreiText = False - Me.cboStatus._value = "" - Me.cboStatus.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) - Me.cboStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) - Me.cboStatus.FormattingEnabled = True - Me.cboStatus.Location = New System.Drawing.Point(76, 16) - Me.cboStatus.Name = "cboStatus" - Me.cboStatus.Size = New System.Drawing.Size(394, 28) - Me.cboStatus.TabIndex = 1 - ' 'lblFirma ' Me.lblFirma.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ @@ -1226,27 +917,6 @@ Partial Class frmMDM_USTVAntrag Me.TabPage1.Text = "Antragspositionen" Me.TabPage1.UseVisualStyleBackColor = True ' - 'dgvUSTVPositionen - ' - Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500 - Me.dgvUSTVPositionen.AllowUserToAddRows = False - Me.dgvUSTVPositionen.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.dgvUSTVPositionen.BackgroundColor = System.Drawing.Color.White - Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvUSTVPositionen.Location = New System.Drawing.Point(3, 3) - Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen" - Me.dgvUSTVPositionen.ReadOnly = True - Me.dgvUSTVPositionen.RowHeadersVisible = False - Me.dgvUSTVPositionen.RowHeadersWidth = 62 - Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1438, 169) - Me.dgvUSTVPositionen.TabIndex = 0 - ' 'pnlAntragsPosDetails ' Me.pnlAntragsPosDetails.Controls.Add(Me.Panel2) @@ -1268,18 +938,11 @@ Partial Class frmMDM_USTVAntrag Me.Panel2.Size = New System.Drawing.Size(1438, 263) Me.Panel2.TabIndex = 1 ' - 'UstCntlUSTV_AntragPosition1 - ' - Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0) - Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" - Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261) - Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 - ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke Me.Panel4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel4.Controls.Add(Me.btnAPI) Me.Panel4.Controls.Add(Me.btnEintragloeschen) Me.Panel4.Controls.Add(Me.btnNeuerEintrag) Me.Panel4.Dock = System.Windows.Forms.DockStyle.Left @@ -1339,27 +1002,6 @@ Partial Class frmMDM_USTVAntrag Me.Panel3.Size = New System.Drawing.Size(1438, 438) Me.Panel3.TabIndex = 3 ' - 'dgvErstattungspositionen - ' - Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500 - Me.dgvErstattungspositionen.AllowUserToAddRows = False - Me.dgvErstattungspositionen.AllowUserToDeleteRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 - Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.dgvErstattungspositionen.BackgroundColor = System.Drawing.Color.White - Me.dgvErstattungspositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvErstattungspositionen.Location = New System.Drawing.Point(3, 3) - Me.dgvErstattungspositionen.Name = "dgvErstattungspositionen" - Me.dgvErstattungspositionen.ReadOnly = True - Me.dgvErstattungspositionen.RowHeadersVisible = False - Me.dgvErstattungspositionen.RowHeadersWidth = 62 - Me.dgvErstattungspositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 172) - Me.dgvErstattungspositionen.TabIndex = 1 - ' 'pnlErstattungsdetails ' Me.pnlErstattungsdetails.BackColor = System.Drawing.Color.WhiteSmoke @@ -1372,14 +1014,6 @@ Partial Class frmMDM_USTVAntrag Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261) Me.pnlErstattungsdetails.TabIndex = 0 ' - 'UstCntlUSTV_AntragErstattungen1 - ' - Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0) - Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1" - Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259) - Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 - ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke @@ -1430,6 +1064,384 @@ Partial Class frmMDM_USTVAntrag Me.ContextMenuStrip2.Name = "ContextMenuStrip1" Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4) ' + 'KdSearchBox1 + ' + Me.KdSearchBox1._AlleFirmenCLUSTER = False + Me.KdSearchBox1._AllowSetValue = False + Me.KdSearchBox1._autoSizeGross = False + Me.KdSearchBox1._display_Name1 = False + Me.KdSearchBox1._displayAVISO_Email = False + Me.KdSearchBox1._displayFullName = False + Me.KdSearchBox1._displayWoelflKd = False + Me.KdSearchBox1._hideIfListEmpty = True + Me.KdSearchBox1._loadKdData = False + Me.KdSearchBox1._searchName1 = True + Me.KdSearchBox1._UseFIRMA = "" + Me.KdSearchBox1._ValueKdAndName = True + Me.KdSearchBox1.dgvpos = "LEFT" + Me.KdSearchBox1.KdName = Nothing + Me.KdSearchBox1.KdNr = "-1" + Me.KdSearchBox1.kdNrField = Nothing + Me.KdSearchBox1.KdNrNullInt = Nothing + Me.KdSearchBox1.Location = New System.Drawing.Point(298, 10) + Me.KdSearchBox1.Name = "KdSearchBox1" + Me.KdSearchBox1.nurAktive = True + Me.KdSearchBox1.searchActive = True + Me.KdSearchBox1.Size = New System.Drawing.Size(171, 20) + Me.KdSearchBox1.TabIndex = 22 + Me.KdSearchBox1.TIMER_SEARCH = True + Me.KdSearchBox1.usrcntl = Nothing + ' + 'cboAntragArt + ' + Me.cboAntragArt._allowedValuesFreiText = Nothing + Me.cboAntragArt._allowFreiText = False + Me.cboAntragArt._value = "" + Me.cboAntragArt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cboAntragArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.cboAntragArt.FormattingEnabled = True + Me.cboAntragArt.Location = New System.Drawing.Point(83, 10) + Me.cboAntragArt.Name = "cboAntragArt" + Me.cboAntragArt.Size = New System.Drawing.Size(191, 28) + Me.cboAntragArt.TabIndex = 21 + Me.cboAntragArt.Text = "USTV-Antrag" + ' + 'cbxLand + ' + Me.cbxLand._allowedValuesFreiText = Nothing + Me.cbxLand._allowFreiText = False + Me.cbxLand._value = "" + Me.cbxLand.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold) + Me.cbxLand.FormattingEnabled = True + Me.cbxLand.Location = New System.Drawing.Point(0, 0) + Me.cbxLand.Name = "cbxLand" + Me.cbxLand.Size = New System.Drawing.Size(65, 28) + Me.cbxLand.TabIndex = 23 + Me.cbxLand.Text = "USTV-Antrag" + Me.cbxLand.Visible = False + ' + 'txtEingereichtAm + ' + Me.txtEingereichtAm._DateTimeOnly = False + Me.txtEingereichtAm._numbersOnly = False + Me.txtEingereichtAm._numbersOnlyKommastellen = "" + Me.txtEingereichtAm._numbersOnlyTrennzeichen = False + Me.txtEingereichtAm._Prozent = False + Me.txtEingereichtAm._ShortDateNew = False + Me.txtEingereichtAm._ShortDateOnly = True + Me.txtEingereichtAm._TimeOnly = False + Me.txtEingereichtAm._TimeOnly_Seconds = False + Me.txtEingereichtAm._value = "" + Me.txtEingereichtAm._Waehrung = False + Me.txtEingereichtAm._WaehrungZeichen = False + Me.txtEingereichtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtEingereichtAm.ForeColor = System.Drawing.Color.Black + Me.txtEingereichtAm.Location = New System.Drawing.Point(654, 60) + Me.txtEingereichtAm.MaxLength = 10 + Me.txtEingereichtAm.MaxLineLength = -1 + Me.txtEingereichtAm.MaxLines_Warning = "" + Me.txtEingereichtAm.MaxLines_Warning_Label = Nothing + Me.txtEingereichtAm.Name = "txtEingereichtAm" + Me.txtEingereichtAm.Size = New System.Drawing.Size(100, 23) + Me.txtEingereichtAm.TabIndex = 26 + ' + 'txtGueltig + ' + Me.txtGueltig._DateTimeOnly = False + Me.txtGueltig._numbersOnly = False + Me.txtGueltig._numbersOnlyKommastellen = "" + Me.txtGueltig._numbersOnlyTrennzeichen = False + Me.txtGueltig._Prozent = False + Me.txtGueltig._ShortDateNew = False + Me.txtGueltig._ShortDateOnly = True + Me.txtGueltig._TimeOnly = False + Me.txtGueltig._TimeOnly_Seconds = False + Me.txtGueltig._value = "" + Me.txtGueltig._Waehrung = False + Me.txtGueltig._WaehrungZeichen = False + Me.txtGueltig.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtGueltig.ForeColor = System.Drawing.Color.Black + Me.txtGueltig.Location = New System.Drawing.Point(101, 61) + Me.txtGueltig.MaxLength = 10 + Me.txtGueltig.MaxLineLength = -1 + Me.txtGueltig.MaxLines_Warning = "" + Me.txtGueltig.MaxLines_Warning_Label = Nothing + Me.txtGueltig.Name = "txtGueltig" + Me.txtGueltig.Size = New System.Drawing.Size(100, 23) + Me.txtGueltig.TabIndex = 23 + ' + 'txtStNr + ' + Me.txtStNr._DateTimeOnly = False + Me.txtStNr._numbersOnly = False + Me.txtStNr._numbersOnlyKommastellen = "" + Me.txtStNr._numbersOnlyTrennzeichen = False + Me.txtStNr._Prozent = False + Me.txtStNr._ShortDateNew = False + Me.txtStNr._ShortDateOnly = False + Me.txtStNr._TimeOnly = False + Me.txtStNr._TimeOnly_Seconds = False + Me.txtStNr._value = "" + Me.txtStNr._Waehrung = False + Me.txtStNr._WaehrungZeichen = False + Me.txtStNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtStNr.ForeColor = System.Drawing.Color.Black + Me.txtStNr.Location = New System.Drawing.Point(101, 36) + Me.txtStNr.MaxLength = 10 + Me.txtStNr.MaxLineLength = -1 + Me.txtStNr.MaxLines_Warning = "" + Me.txtStNr.MaxLines_Warning_Label = Nothing + Me.txtStNr.Name = "txtStNr" + Me.txtStNr.Size = New System.Drawing.Size(100, 23) + Me.txtStNr.TabIndex = 22 + ' + 'txtVZ + ' + Me.txtVZ._DateTimeOnly = False + Me.txtVZ._numbersOnly = True + Me.txtVZ._numbersOnlyKommastellen = "" + Me.txtVZ._numbersOnlyTrennzeichen = True + Me.txtVZ._Prozent = False + Me.txtVZ._ShortDateNew = False + Me.txtVZ._ShortDateOnly = False + Me.txtVZ._TimeOnly = False + Me.txtVZ._TimeOnly_Seconds = False + Me.txtVZ._value = "" + Me.txtVZ._Waehrung = True + Me.txtVZ._WaehrungZeichen = True + Me.txtVZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtVZ.ForeColor = System.Drawing.Color.Black + Me.txtVZ.Location = New System.Drawing.Point(865, 31) + Me.txtVZ.MaxLength = 10 + Me.txtVZ.MaxLineLength = -1 + Me.txtVZ.MaxLines_Warning = "" + Me.txtVZ.MaxLines_Warning_Label = Nothing + Me.txtVZ.Name = "txtVZ" + Me.txtVZ.Size = New System.Drawing.Size(100, 23) + Me.txtVZ.TabIndex = 20 + ' + 'txtAbfNr + ' + Me.txtAbfNr._DateTimeOnly = False + Me.txtAbfNr._numbersOnly = True + Me.txtAbfNr._numbersOnlyKommastellen = "" + Me.txtAbfNr._numbersOnlyTrennzeichen = False + Me.txtAbfNr._Prozent = False + Me.txtAbfNr._ShortDateNew = False + Me.txtAbfNr._ShortDateOnly = False + Me.txtAbfNr._TimeOnly = False + Me.txtAbfNr._TimeOnly_Seconds = False + Me.txtAbfNr._value = "" + Me.txtAbfNr._Waehrung = False + Me.txtAbfNr._WaehrungZeichen = False + Me.txtAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtAbfNr.ForeColor = System.Drawing.Color.Black + Me.txtAbfNr.Location = New System.Drawing.Point(654, 33) + Me.txtAbfNr.MaxLength = 10 + Me.txtAbfNr.MaxLineLength = -1 + Me.txtAbfNr.MaxLines_Warning = "" + Me.txtAbfNr.MaxLines_Warning_Label = Nothing + Me.txtAbfNr.Name = "txtAbfNr" + Me.txtAbfNr.Size = New System.Drawing.Size(146, 23) + Me.txtAbfNr.TabIndex = 18 + ' + 'cbxFiliale + ' + Me.cbxFiliale._allowedValuesFreiText = Nothing + Me.cbxFiliale._allowFreiText = False + Me.cbxFiliale._value = "" + Me.cbxFiliale.DropDownWidth = 150 + Me.cbxFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxFiliale.FormattingEnabled = True + Me.cbxFiliale.Location = New System.Drawing.Point(413, 32) + Me.cbxFiliale.Name = "cbxFiliale" + Me.cbxFiliale.Size = New System.Drawing.Size(105, 24) + Me.cbxFiliale.TabIndex = 16 + ' + 'txtBezugsNr + ' + Me.txtBezugsNr._DateTimeOnly = False + Me.txtBezugsNr._numbersOnly = True + Me.txtBezugsNr._numbersOnlyKommastellen = "" + Me.txtBezugsNr._numbersOnlyTrennzeichen = False + Me.txtBezugsNr._Prozent = False + Me.txtBezugsNr._ShortDateNew = False + Me.txtBezugsNr._ShortDateOnly = False + Me.txtBezugsNr._TimeOnly = False + Me.txtBezugsNr._TimeOnly_Seconds = False + Me.txtBezugsNr._value = "" + Me.txtBezugsNr._Waehrung = False + Me.txtBezugsNr._WaehrungZeichen = False + Me.txtBezugsNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtBezugsNr.ForeColor = System.Drawing.Color.Black + Me.txtBezugsNr.Location = New System.Drawing.Point(654, 4) + Me.txtBezugsNr.MaxLength = 10 + Me.txtBezugsNr.MaxLineLength = -1 + Me.txtBezugsNr.MaxLines_Warning = "" + Me.txtBezugsNr.MaxLines_Warning_Label = Nothing + Me.txtBezugsNr.Name = "txtBezugsNr" + Me.txtBezugsNr.Size = New System.Drawing.Size(146, 23) + Me.txtBezugsNr.TabIndex = 14 + ' + 'cbxWahrung + ' + Me.cbxWahrung._allowedValuesFreiText = Nothing + Me.cbxWahrung._allowFreiText = False + Me.cbxWahrung._value = "" + Me.cbxWahrung.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxWahrung.FormattingEnabled = True + Me.cbxWahrung.Location = New System.Drawing.Point(431, 4) + Me.cbxWahrung.Name = "cbxWahrung" + Me.cbxWahrung.Size = New System.Drawing.Size(87, 24) + Me.cbxWahrung.TabIndex = 12 + ' + 'txt3470 + ' + Me.txt3470._DateTimeOnly = False + Me.txt3470._numbersOnly = True + Me.txt3470._numbersOnlyKommastellen = "" + Me.txt3470._numbersOnlyTrennzeichen = True + Me.txt3470._Prozent = False + Me.txt3470._ShortDateNew = False + Me.txt3470._ShortDateOnly = False + Me.txt3470._TimeOnly = False + Me.txt3470._TimeOnly_Seconds = False + Me.txt3470._value = "" + Me.txt3470._Waehrung = True + Me.txt3470._WaehrungZeichen = True + Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txt3470.ForeColor = System.Drawing.Color.Black + Me.txt3470.Location = New System.Drawing.Point(865, 2) + Me.txt3470.MaxLength = 10 + Me.txt3470.MaxLineLength = -1 + Me.txt3470.MaxLines_Warning = "" + Me.txt3470.MaxLines_Warning_Label = Nothing + Me.txt3470.Name = "txt3470" + Me.txt3470.Size = New System.Drawing.Size(100, 23) + Me.txt3470.TabIndex = 10 + ' + 'txtVon + ' + Me.txtVon._DateTimeOnly = False + Me.txtVon._numbersOnly = False + Me.txtVon._numbersOnlyKommastellen = "" + Me.txtVon._numbersOnlyTrennzeichen = False + Me.txtVon._Prozent = False + Me.txtVon._ShortDateNew = True + Me.txtVon._ShortDateOnly = False + Me.txtVon._TimeOnly = False + Me.txtVon._TimeOnly_Seconds = False + Me.txtVon._value = "" + Me.txtVon._Waehrung = False + Me.txtVon._WaehrungZeichen = False + Me.txtVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtVon.ForeColor = System.Drawing.Color.Black + Me.txtVon.Location = New System.Drawing.Point(101, 9) + Me.txtVon.MaxLength = 10 + Me.txtVon.MaxLineLength = -1 + Me.txtVon.MaxLines_Warning = "" + Me.txtVon.MaxLines_Warning_Label = Nothing + Me.txtVon.Name = "txtVon" + Me.txtVon.Size = New System.Drawing.Size(100, 23) + Me.txtVon.TabIndex = 6 + ' + 'txtBis + ' + Me.txtBis._DateTimeOnly = False + Me.txtBis._numbersOnly = False + Me.txtBis._numbersOnlyKommastellen = "" + Me.txtBis._numbersOnlyTrennzeichen = False + Me.txtBis._Prozent = False + Me.txtBis._ShortDateNew = True + Me.txtBis._ShortDateOnly = False + Me.txtBis._TimeOnly = False + Me.txtBis._TimeOnly_Seconds = False + Me.txtBis._value = "" + Me.txtBis._Waehrung = False + Me.txtBis._WaehrungZeichen = False + Me.txtBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtBis.ForeColor = System.Drawing.Color.Black + Me.txtBis.Location = New System.Drawing.Point(227, 9) + Me.txtBis.MaxLength = 10 + Me.txtBis.MaxLineLength = -1 + Me.txtBis.MaxLines_Warning = "" + Me.txtBis.MaxLines_Warning_Label = Nothing + Me.txtBis.Name = "txtBis" + Me.txtBis.Size = New System.Drawing.Size(100, 23) + Me.txtBis.TabIndex = 8 + ' + 'cboStatus + ' + Me.cboStatus._allowedValuesFreiText = Nothing + Me.cboStatus._allowFreiText = False + Me.cboStatus._value = "" + Me.cboStatus.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer)) + Me.cboStatus.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.cboStatus.FormattingEnabled = True + Me.cboStatus.Location = New System.Drawing.Point(76, 16) + Me.cboStatus.Name = "cboStatus" + Me.cboStatus.Size = New System.Drawing.Size(394, 28) + Me.cboStatus.TabIndex = 1 + ' + 'dgvUSTVPositionen + ' + Me.dgvUSTVPositionen.AKTUALISIERUNGS_INTERVALL = 500 + Me.dgvUSTVPositionen.AllowUserToAddRows = False + Me.dgvUSTVPositionen.AllowUserToDeleteRows = False + DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvUSTVPositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvUSTVPositionen.BackgroundColor = System.Drawing.Color.White + Me.dgvUSTVPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvUSTVPositionen.Location = New System.Drawing.Point(3, 3) + Me.dgvUSTVPositionen.Name = "dgvUSTVPositionen" + Me.dgvUSTVPositionen.ReadOnly = True + Me.dgvUSTVPositionen.RowHeadersVisible = False + Me.dgvUSTVPositionen.RowHeadersWidth = 62 + Me.dgvUSTVPositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvUSTVPositionen.Size = New System.Drawing.Size(1438, 169) + Me.dgvUSTVPositionen.TabIndex = 0 + ' + 'UstCntlUSTV_AntragPosition1 + ' + Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0) + Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1" + Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261) + Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 + ' + 'dgvErstattungspositionen + ' + Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500 + Me.dgvErstattungspositionen.AllowUserToAddRows = False + Me.dgvErstattungspositionen.AllowUserToDeleteRows = False + DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + Me.dgvErstattungspositionen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.dgvErstattungspositionen.BackgroundColor = System.Drawing.Color.White + Me.dgvErstattungspositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvErstattungspositionen.Location = New System.Drawing.Point(3, 3) + Me.dgvErstattungspositionen.Name = "dgvErstattungspositionen" + Me.dgvErstattungspositionen.ReadOnly = True + Me.dgvErstattungspositionen.RowHeadersVisible = False + Me.dgvErstattungspositionen.RowHeadersWidth = 62 + Me.dgvErstattungspositionen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvErstattungspositionen.Size = New System.Drawing.Size(1438, 172) + Me.dgvErstattungspositionen.TabIndex = 1 + ' + 'UstCntlUSTV_AntragErstattungen1 + ' + Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0) + Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1" + Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259) + Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 + ' 'txtSumme ' Me.txtSumme._DateTimeOnly = False @@ -1455,15 +1467,17 @@ Partial Class frmMDM_USTVAntrag Me.txtSumme.TabIndex = 49 Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' - 'Label27 + 'btnAPI ' - Me.Label27.AutoSize = True - Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label27.Location = New System.Drawing.Point(975, 66) - Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(45, 13) - Me.Label27.TabIndex = 48 - Me.Label27.Text = "Summe:" + Me.btnAPI.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAPI.ForeColor = System.Drawing.Color.Black + Me.btnAPI.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnAPI.Location = New System.Drawing.Point(6, 95) + Me.btnAPI.Name = "btnAPI" + Me.btnAPI.Size = New System.Drawing.Size(135, 39) + Me.btnAPI.TabIndex = 2 + Me.btnAPI.Text = "API Upload" + Me.btnAPI.UseVisualStyleBackColor = True ' 'frmMDM_USTVAntrag ' @@ -1496,15 +1510,15 @@ Partial Class frmMDM_USTVAntrag Me.pnlBody.ResumeLayout(False) Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) - CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlAntragsPosDetails.ResumeLayout(False) Me.Panel2.ResumeLayout(False) Me.Panel4.ResumeLayout(False) Me.TabPage2.ResumeLayout(False) Me.Panel3.ResumeLayout(False) - CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlErstattungsdetails.ResumeLayout(False) Me.Panel1.ResumeLayout(False) + CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -1599,4 +1613,5 @@ Partial Class frmMDM_USTVAntrag Friend WithEvents picExcel As PictureBox Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label27 As Label + Friend WithEvents btnAPI As Button End Class diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 4c0f32a1..180db847 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -1,10 +1,6 @@ - -Imports System.ComponentModel -Imports System.IO +Imports System.IO Imports System.Reflection Imports System.Windows.Documents -Imports com.sun.org.apache.xml.internal.utils -Imports DAKOSY_Worker.InformationEXITDE Imports itextsharp.text.pdf Imports itextsharp.text.pdf.parser Imports Microsoft.Office.Interop @@ -18,6 +14,7 @@ Public Class frmMDM_USTVAntrag Dim Antrag_LandKz As String = "" Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim posTabisSelected As Boolean = True + Dim atez_api = New cATEZ_NCTS_IN("ATEZ_VAT") Dim von, bis As Date @@ -63,10 +60,8 @@ Public Class frmMDM_USTVAntrag btnEintragloeschen.Enabled = Not UStVAn_ID <= 0 btnNeuerEintrag.Enabled = Not UStVAn_ID <= 0 UstCntlUSTV_AntragPosition1.Enabled = Not UStVAn_ID <= 0 - cbxLand.Visible = UStVAn_ID <= 0 - With dgvUSTVPositionen .ClearSelection() @@ -528,6 +523,8 @@ Public Class frmMDM_USTVAntrag setinfofields() + + End Sub Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnAntrageeinarbeiten.Click @@ -1255,9 +1252,8 @@ Public Class frmMDM_USTVAntrag ANTR_Leistender = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(ANTR_POS.UStVPo_LeistenderId) End If - UstCntlUSTV_AntragPosition1.Enabled = True - UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender) + UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender, atez_api) Else UstCntlUSTV_AntragPosition1.reset() UstCntlUSTV_AntragPosition1.Enabled = False @@ -2392,6 +2388,7 @@ Public Class frmMDM_USTVAntrag End Sub + Private Sub calcSumme() Dim countSumme As Double = 0 diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb index 49692d00..f5e4be6a 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb @@ -74,6 +74,7 @@ Partial Class ustCntlUSTV_AntragPosition 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() @@ -876,6 +877,7 @@ Partial Class ustCntlUSTV_AntragPosition ' '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 @@ -884,6 +886,18 @@ Partial Class ustCntlUSTV_AntragPosition Me.Panel1.Size = New System.Drawing.Size(99, 239) Me.Panel1.TabIndex = 2 ' + 'btnAPIUbload + ' + Me.btnAPIUbload.BackgroundImage = Global.SDL.My.Resources.Resources.refresh + Me.btnAPIUbload.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnAPIUbload.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAPIUbload.Location = New System.Drawing.Point(36, 186) + Me.btnAPIUbload.Name = "btnAPIUbload" + Me.btnAPIUbload.Size = New System.Drawing.Size(35, 24) + Me.btnAPIUbload.TabIndex = 25 + Me.btnAPIUbload.TextAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnAPIUbload.UseVisualStyleBackColor = True + ' 'Panel3 ' Me.Panel3.Controls.Add(Me.tbcntr) @@ -1050,4 +1064,5 @@ Partial Class ustCntlUSTV_AntragPosition Friend WithEvents btnLeistenderSave As Button Friend WithEvents lblWarning As Label Friend WithEvents cbxAntragsfilter As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents btnAPIUbload As Button End Class diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index 5d2e9b71..ab7dce10 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -1,4 +1,5 @@ -Imports VERAG_PROG_ALLGEMEIN +Imports com.sun.net.httpserver.Authenticator +Imports VERAG_PROG_ALLGEMEIN Public Class ustCntlUSTV_AntragPosition Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing @@ -12,6 +13,7 @@ Public Class ustCntlUSTV_AntragPosition Public Event CHANGED(UStVPo_ID) Dim gridAktiv = False Dim txtChanged As Boolean = False + Dim API As cATEZ_NCTS_IN Private Sub btnBildAuf_Click(sender As Object, e As EventArgs) Handles btnBildAuf.Click RaiseEvent EV_PREV() End Sub @@ -56,7 +58,7 @@ Public Class ustCntlUSTV_AntragPosition End Sub - Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender) + Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, atez_api As cATEZ_NCTS_IN) initSchnittstellenNr() @@ -79,6 +81,7 @@ Public Class ustCntlUSTV_AntragPosition sbLeistender.Text = UStV_Leitender.UStV_Leistender loadChangedDSToPanel(UStV_Leitender, True) + API = atez_api Dim da_id = -1 @@ -104,12 +107,15 @@ Public Class ustCntlUSTV_AntragPosition If da_id > -1 Then scanSonstiges.INIT_daId(da_id) scanSonstiges.Enabled = UStV_POS.UStVPo_daId_loeschbar 'Not UStV_POS.UStVPo_SchnittstellenNr > 0 + btnAPIUbload.Enabled = UStV_POS.UStVPo_daId_loeschbar Else scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_ID) 'scanSonstiges.INIT_daId(da_id) scanSonstiges.Enabled = True + btnAPIUbload.Enabled = False End If + scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen") scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten") @@ -240,7 +246,7 @@ Public Class ustCntlUSTV_AntragPosition Private Sub loadChangedDSToPanel(UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, Optional initial As Boolean = False) - + Dim adressLoadedByLeistender As Boolean = False UStV_Leist = UStV_Leitender 'If newLeistender <> "" Then UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(newLeistender) @@ -252,7 +258,6 @@ Public Class ustCntlUSTV_AntragPosition txtOrt.Text = "" txtLand.Text = "" txtUIDNr.Text = "" - Else pnlAdresse.Enabled = True 'enablePanel 'immer änderbar! @@ -262,20 +267,26 @@ Public Class ustCntlUSTV_AntragPosition txtOrt.Text = If(UStV_Leist.UstV_Leistender_Stadt, "") txtLand.Text = If(UStV_Leist.UstV_Leistender_Land, "") txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "") + adressLoadedByLeistender = True End If - btnLeistenderSave.Visible = True - If Not initial Then 'Listener für Änderungen im Detail-Panel - For Each c As Control In pnlAdresse.Controls - If TypeOf (c) Is TextBox Then - AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged - End If - If TypeOf (c) Is MyComboBox Then - AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged - End If - Next + If Not adressLoadedByLeistender Then + For Each c As Control In pnlAdresse.Controls + + If TypeOf (c) Is TextBox Then + AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged + End If + If TypeOf (c) Is MyComboBox Then + AddHandler CType(c, MyComboBox).TextChanged, AddressOf SomethingChanged + End If + + + Next + Else + btnLeistenderSave.Visible = False + End If Else btnLeistenderSave.Visible = False @@ -301,7 +312,7 @@ Public Class ustCntlUSTV_AntragPosition If Not UStV_Leist.hasEntry Then If vbYes = MsgBox("Dieser Leistende wurde noch nicht angelegt!" & vbNewLine & UStV_Leist.UStV_Leistender & " anlegen? ", vbYesNo) Then - + 'adresseChanged = True UStV_Leist.UstV_Leistender_Strasse = If(txtStrasse.Text, "") UStV_Leist.UstV_Leistender_StrasseNr = If(txtStrassenNr.Text, "") UStV_Leist.UstV_Leistender_PLZ = If(txtPLZ.Text, "") @@ -309,18 +320,18 @@ Public Class ustCntlUSTV_AntragPosition UStV_Leist.UstV_Leistender_Land = If(txtLand.Text, "") UStV_Leist.UstV_Leistender_UstNr = If(txtUIDNr.Text, "") - If UStV_Leist.SAVE() Then + Dim saveid = UStV_Leist.SAVEID + If saveid > 0 Then btnLeistenderSave.Visible = False UStV_POS.UStVPo_Leistender = UStV_Leist.UStV_Leistender - UStV_POS.UStVPo_LeistenderId = UStV_Leist.UStV_LeistenderId + UStV_POS.UStVPo_LeistenderId = saveid 'RaiseEvent CHANGED(UStV_POS.UStVPo_ID) values_changed() End If End If Else - Dim adresseChanged As Boolean = False If UStV_Leist.UstV_Leistender_Strasse <> If(txtStrasse.Text, "") Then adresseChanged = True @@ -405,7 +416,7 @@ Public Class ustCntlUSTV_AntragPosition loadChangedDSToPanel(UStV_Leist) Else - loadChangedDSToPanel(Nothing) + loadChangedDSToPanel(Nothing, True) End If @@ -457,11 +468,11 @@ Public Class ustCntlUSTV_AntragPosition txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100 - txtChanged = True - End If - + txtChanged = True End If + End If + ElseIf sender Is txtUSTBetragEUR Then @@ -559,5 +570,36 @@ Public Class ustCntlUSTV_AntragPosition If cbxAntragsfilter.Checked Then filter &= " and left(UstV_Leistender_UstNr,2)='" & Antrag_LandKz & "'" sbLeistender.initSearchBox(Me.FindForm, "[UStV_LeistenderId],[UStV_Leistender], ([UStV_Leistender] + ' ' + isnull([UstV_Leistender_UstNr],'')) as Leistender,[UstV_Leistender_PLZ] as PLZ, ([UstV_Leistender_Strasse] + ' ' +[UstV_Leistender_StrasseNr]) as Strasse, [UstV_Leistender_Stadt] as Stadt FROM [tblUStVLeistender]", {"UStV_Leistender", "UstV_Leistender_UstNr"}, filter, "UStV_Leistender", "UStV_LeistenderId", "Leistender", "FMZOLL",, 400, 200, {"UStV_Leistender", "UStV_LeistenderId"}) End If + End Sub + + Private Sub btnAPIUbload_Click(sender As Object, e As EventArgs) Handles btnAPIUbload.Click + If API IsNot Nothing Then + If vbYes = MsgBox("Möchten Sie die Rechnungsdaten per ATEZ-API auslesen lassen?", vbYesNoCancel) Then + + Dim failreDesc As String + Dim authResp = API.authenticate("VAT", "client1", "password") + Dim resp + If authResp <> "200" Then + MsgBox("Authentifizierung fehlgeschlagen") + Exit Sub + Else + If API.SendRequestWithAuthHeader("application/json", failreDesc, "/health", "GET") = "200" Then + + 'document_type = vat_invoice or receipt + If API.setJsonVAT("vat_invoice", UStV_POS.UStVPo_daId) Then + resp = API.SendRequestWithAuthHeader("application/json", failreDesc, "/process", "POST") + End If + + Else + MsgBox("Service is not running!") + + End If + End If + End If + End If + + + + End Sub End Class diff --git a/SDL/seriendruck/usrCntlFakturierung.Designer.vb b/SDL/seriendruck/usrCntlFakturierung.Designer.vb index b26d8e8f..3026327a 100644 --- a/SDL/seriendruck/usrCntlFakturierung.Designer.vb +++ b/SDL/seriendruck/usrCntlFakturierung.Designer.vb @@ -33,12 +33,15 @@ Partial Class usrcntlFakturierung Me.Label61 = New System.Windows.Forms.Label() Me.GBMautberichte = New System.Windows.Forms.GroupBox() Me.TextBox1 = New System.Windows.Forms.TextBox() + Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Label5 = New System.Windows.Forms.Label() Me.lblAnzahlMautberichte = New System.Windows.Forms.Label() Me.pbMautAnh_Proz = New System.Windows.Forms.ProgressBar() Me.lblMautAnh_Proz = New System.Windows.Forms.Label() + Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label69 = New System.Windows.Forms.Label() Me.Label68 = New System.Windows.Forms.Label() + Me.cbxMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label62 = New System.Windows.Forms.Label() Me.Button18 = New System.Windows.Forms.Button() Me.Label44 = New System.Windows.Forms.Label() @@ -52,7 +55,7 @@ Partial Class usrcntlFakturierung Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.cbxMautanh = New System.Windows.Forms.CheckBox() - Me.Button1 = New System.Windows.Forms.Button() + Me.btnMautanh_pruefen = New System.Windows.Forms.Button() Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.PictureBox5 = New System.Windows.Forms.PictureBox() Me.PictureBox4 = New System.Windows.Forms.PictureBox() @@ -63,16 +66,18 @@ Partial Class usrcntlFakturierung Me.cbxVorschau = New System.Windows.Forms.CheckBox() Me.cbxAbfVerbotdrucken = New System.Windows.Forms.CheckBox() Me.cbxRechnungsjournaldrucken = New System.Windows.Forms.CheckBox() - Me.Button20 = New System.Windows.Forms.Button() + Me.btn_Mautanh_entfernen = New System.Windows.Forms.Button() Me.Label72 = New System.Windows.Forms.Label() + Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.rbkunde = New System.Windows.Forms.RadioButton() Me.rbAlleKunden = New System.Windows.Forms.RadioButton() Me.txtPloseAnh_Einarbeitung = New System.Windows.Forms.TextBox() Me.Label71 = New System.Windows.Forms.Label() Me.pbPloseAnh_Proz = New System.Windows.Forms.ProgressBar() Me.lblPloseAnh_Proz = New System.Windows.Forms.Label() - Me.Button19 = New System.Windows.Forms.Button() + Me.btn_setRENr = New System.Windows.Forms.Button() Me.Label70 = New System.Windows.Forms.Label() + Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label67 = New System.Windows.Forms.Label() Me.dtRechnungsdatum = New System.Windows.Forms.DateTimePicker() Me.Label66 = New System.Windows.Forms.Label() @@ -80,14 +85,10 @@ Partial Class usrcntlFakturierung Me.Label64 = New System.Windows.Forms.Label() Me.Label63 = New System.Windows.Forms.Label() Me.Label45 = New System.Windows.Forms.Label() - Me.Button14 = New System.Windows.Forms.Button() - Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.cbxDateMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cbxMautbericht = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.KdSearchBox3 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.btnRePos = New System.Windows.Forms.Button() Me.GroupBox1.SuspendLayout() Me.GBMautberichte.SuspendLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() Me.GBSammelrechnung.SuspendLayout() CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() @@ -97,7 +98,6 @@ Partial Class usrcntlFakturierung CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GroupBox1 @@ -212,6 +212,16 @@ Partial Class usrcntlFakturierung Me.TextBox1.Size = New System.Drawing.Size(106, 13) Me.TextBox1.TabIndex = 105 ' + 'MyDatagridview1 + ' + Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 + Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Window + Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.MyDatagridview1.Location = New System.Drawing.Point(4, 71) + Me.MyDatagridview1.Name = "MyDatagridview1" + Me.MyDatagridview1.Size = New System.Drawing.Size(471, 135) + Me.MyDatagridview1.TabIndex = 34 + ' 'Label5 ' Me.Label5.AutoSize = True @@ -245,6 +255,17 @@ Partial Class usrcntlFakturierung Me.lblMautAnh_Proz.Text = "0%" Me.lblMautAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight ' + 'cbxDateMautbericht + ' + Me.cbxDateMautbericht._allowedValuesFreiText = Nothing + Me.cbxDateMautbericht._allowFreiText = False + Me.cbxDateMautbericht._value = "" + Me.cbxDateMautbericht.FormattingEnabled = True + Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12) + Me.cbxDateMautbericht.Name = "cbxDateMautbericht" + Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21) + Me.cbxDateMautbericht.TabIndex = 32 + ' 'Label69 ' Me.Label69.AutoSize = True @@ -262,6 +283,18 @@ Partial Class usrcntlFakturierung Me.Label68.TabIndex = 30 Me.Label68.Text = "Generiert Mautberichte" ' + 'cbxMautbericht + ' + Me.cbxMautbericht._allowedValuesFreiText = Nothing + Me.cbxMautbericht._allowFreiText = False + Me.cbxMautbericht._value = "" + Me.cbxMautbericht.DropDownWidth = 200 + Me.cbxMautbericht.FormattingEnabled = True + Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33) + Me.cbxMautbericht.Name = "cbxMautbericht" + Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21) + Me.cbxMautbericht.TabIndex = 30 + ' 'Label62 ' Me.Label62.AutoSize = True @@ -304,7 +337,7 @@ Partial Class usrcntlFakturierung Me.GBSammelrechnung.Controls.Add(Me.Button3) Me.GBSammelrechnung.Controls.Add(Me.Button2) Me.GBSammelrechnung.Controls.Add(Me.cbxMautanh) - Me.GBSammelrechnung.Controls.Add(Me.Button1) + Me.GBSammelrechnung.Controls.Add(Me.btnMautanh_pruefen) Me.GBSammelrechnung.Controls.Add(Me.PictureBox6) Me.GBSammelrechnung.Controls.Add(Me.PictureBox5) Me.GBSammelrechnung.Controls.Add(Me.PictureBox4) @@ -315,7 +348,7 @@ Partial Class usrcntlFakturierung Me.GBSammelrechnung.Controls.Add(Me.cbxVorschau) Me.GBSammelrechnung.Controls.Add(Me.cbxAbfVerbotdrucken) Me.GBSammelrechnung.Controls.Add(Me.cbxRechnungsjournaldrucken) - Me.GBSammelrechnung.Controls.Add(Me.Button20) + Me.GBSammelrechnung.Controls.Add(Me.btn_Mautanh_entfernen) Me.GBSammelrechnung.Controls.Add(Me.Label72) Me.GBSammelrechnung.Controls.Add(Me.KdSearchBox3) Me.GBSammelrechnung.Controls.Add(Me.rbkunde) @@ -324,7 +357,7 @@ Partial Class usrcntlFakturierung Me.GBSammelrechnung.Controls.Add(Me.Label71) Me.GBSammelrechnung.Controls.Add(Me.pbPloseAnh_Proz) Me.GBSammelrechnung.Controls.Add(Me.lblPloseAnh_Proz) - Me.GBSammelrechnung.Controls.Add(Me.Button19) + Me.GBSammelrechnung.Controls.Add(Me.btn_setRENr) Me.GBSammelrechnung.Controls.Add(Me.Label70) Me.GBSammelrechnung.Controls.Add(Me.cboSachbearbeiter) Me.GBSammelrechnung.Controls.Add(Me.Label67) @@ -334,7 +367,7 @@ Partial Class usrcntlFakturierung Me.GBSammelrechnung.Controls.Add(Me.Label64) Me.GBSammelrechnung.Controls.Add(Me.Label63) Me.GBSammelrechnung.Controls.Add(Me.Label45) - Me.GBSammelrechnung.Controls.Add(Me.Button14) + Me.GBSammelrechnung.Controls.Add(Me.btnRePos) Me.GBSammelrechnung.Enabled = False Me.GBSammelrechnung.Location = New System.Drawing.Point(10, 356) Me.GBSammelrechnung.Name = "GBSammelrechnung" @@ -438,16 +471,16 @@ Partial Class usrcntlFakturierung Me.cbxMautanh.Text = "Mautanhänge im PDF hinzufügen" Me.cbxMautanh.UseVisualStyleBackColor = True ' - 'Button1 + 'btnMautanh_pruefen ' - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button1.Location = New System.Drawing.Point(10, 12) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(121, 49) - Me.Button1.TabIndex = 106 - Me.Button1.Text = "Mautanh. prüfen" - Me.Button1.UseVisualStyleBackColor = True + Me.btnMautanh_pruefen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMautanh_pruefen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnMautanh_pruefen.Location = New System.Drawing.Point(10, 12) + Me.btnMautanh_pruefen.Name = "btnMautanh_pruefen" + Me.btnMautanh_pruefen.Size = New System.Drawing.Size(121, 49) + Me.btnMautanh_pruefen.TabIndex = 106 + Me.btnMautanh_pruefen.Text = "Mautanh. prüfen" + Me.btnMautanh_pruefen.UseVisualStyleBackColor = True ' 'PictureBox6 ' @@ -559,16 +592,16 @@ Partial Class usrcntlFakturierung Me.cbxRechnungsjournaldrucken.Text = "Rechnungsjournal drucken" Me.cbxRechnungsjournaldrucken.UseVisualStyleBackColor = True ' - 'Button20 + 'btn_Mautanh_entfernen ' - Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button20.Location = New System.Drawing.Point(147, 12) - Me.Button20.Name = "Button20" - Me.Button20.Size = New System.Drawing.Size(121, 49) - Me.Button20.TabIndex = 43 - Me.Button20.Text = "Mautanh. aus RE entfernen" - Me.Button20.UseVisualStyleBackColor = True + Me.btn_Mautanh_entfernen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_Mautanh_entfernen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btn_Mautanh_entfernen.Location = New System.Drawing.Point(147, 12) + Me.btn_Mautanh_entfernen.Name = "btn_Mautanh_entfernen" + Me.btn_Mautanh_entfernen.Size = New System.Drawing.Size(121, 49) + Me.btn_Mautanh_entfernen.TabIndex = 43 + Me.btn_Mautanh_entfernen.Text = "Mautanh. aus RE entfernen" + Me.btn_Mautanh_entfernen.UseVisualStyleBackColor = True ' 'Label72 ' @@ -578,6 +611,34 @@ Partial Class usrcntlFakturierung Me.Label72.TabIndex = 42 Me.Label72.Text = "* hier wird eine RE-Nr erzeugt, die Rechnungen gelten dann als ""gedruckt"" und kön" & "nen somit nicht mehr geändert werden." + ' + 'KdSearchBox3 + ' + Me.KdSearchBox3._AlleFirmenCLUSTER = False + Me.KdSearchBox3._AllowSetValue = True + Me.KdSearchBox3._autoSizeGross = False + Me.KdSearchBox3._display_Name1 = False + Me.KdSearchBox3._displayAVISO_Email = False + Me.KdSearchBox3._displayFullName = False + Me.KdSearchBox3._displayWoelflKd = False + Me.KdSearchBox3._hideIfListEmpty = True + Me.KdSearchBox3._loadKdData = False + Me.KdSearchBox3._searchName1 = True + Me.KdSearchBox3._UseFIRMA = "" + Me.KdSearchBox3._ValueKdAndName = True + Me.KdSearchBox3.dgvpos = "LEFT" + Me.KdSearchBox3.KdName = "" + Me.KdSearchBox3.KdNr = "-1" + Me.KdSearchBox3.kdNrField = Nothing + Me.KdSearchBox3.KdNrNullInt = Nothing + Me.KdSearchBox3.Location = New System.Drawing.Point(87, 308) + Me.KdSearchBox3.Name = "KdSearchBox3" + Me.KdSearchBox3.nurAktive = True + Me.KdSearchBox3.searchActive = True + Me.KdSearchBox3.Size = New System.Drawing.Size(350, 20) + Me.KdSearchBox3.TabIndex = 41 + Me.KdSearchBox3.TIMER_SEARCH = True + Me.KdSearchBox3.usrcntl = Nothing ' 'rbkunde ' @@ -635,16 +696,16 @@ Partial Class usrcntlFakturierung Me.lblPloseAnh_Proz.Text = "0%" Me.lblPloseAnh_Proz.TextAlign = System.Drawing.ContentAlignment.TopRight ' - 'Button19 + 'btn_setRENr ' - Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button19.Location = New System.Drawing.Point(10, 182) - Me.Button19.Name = "Button19" - Me.Button19.Size = New System.Drawing.Size(121, 49) - Me.Button19.TabIndex = 32 - Me.Button19.Text = "RE.Nr setzen*" - Me.Button19.UseVisualStyleBackColor = True + Me.btn_setRENr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btn_setRENr.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btn_setRENr.Location = New System.Drawing.Point(10, 182) + Me.btn_setRENr.Name = "btn_setRENr" + Me.btn_setRENr.Size = New System.Drawing.Size(121, 49) + Me.btn_setRENr.TabIndex = 32 + Me.btn_setRENr.Text = "RE.Nr setzen*" + Me.btn_setRENr.UseVisualStyleBackColor = True ' 'Label70 ' @@ -654,6 +715,17 @@ Partial Class usrcntlFakturierung Me.Label70.TabIndex = 30 Me.Label70.Text = "6. Hängt Mautgesamtbericht an Sammenrechnungen an." ' + 'cboSachbearbeiter + ' + Me.cboSachbearbeiter._allowedValuesFreiText = Nothing + Me.cboSachbearbeiter._allowFreiText = False + Me.cboSachbearbeiter._value = "" + Me.cboSachbearbeiter.FormattingEnabled = True + Me.cboSachbearbeiter.Location = New System.Drawing.Point(529, 38) + Me.cboSachbearbeiter.Name = "cboSachbearbeiter" + Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21) + Me.cboSachbearbeiter.TabIndex = 29 + ' 'Label67 ' Me.Label67.AutoSize = True @@ -713,88 +785,16 @@ Partial Class usrcntlFakturierung Me.Label45.TabIndex = 5 Me.Label45.Text = "1. Einträge auf Sachbearbeiter ändern." ' - 'Button14 + 'btnRePos ' - Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button14.Location = New System.Drawing.Point(10, 81) - Me.Button14.Name = "Button14" - Me.Button14.Size = New System.Drawing.Size(121, 49) - Me.Button14.TabIndex = 4 - Me.Button14.Text = "Rechnungspos. berechnen" - Me.Button14.UseVisualStyleBackColor = True - ' - 'MyDatagridview1 - ' - Me.MyDatagridview1.AKTUALISIERUNGS_INTERVALL = -1 - Me.MyDatagridview1.BackgroundColor = System.Drawing.SystemColors.Window - Me.MyDatagridview1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.MyDatagridview1.Location = New System.Drawing.Point(4, 71) - Me.MyDatagridview1.Name = "MyDatagridview1" - Me.MyDatagridview1.Size = New System.Drawing.Size(471, 135) - Me.MyDatagridview1.TabIndex = 34 - ' - 'cbxDateMautbericht - ' - Me.cbxDateMautbericht._allowedValuesFreiText = Nothing - Me.cbxDateMautbericht._allowFreiText = False - Me.cbxDateMautbericht._value = "" - Me.cbxDateMautbericht.FormattingEnabled = True - Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12) - Me.cbxDateMautbericht.Name = "cbxDateMautbericht" - Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21) - Me.cbxDateMautbericht.TabIndex = 32 - ' - 'cbxMautbericht - ' - Me.cbxMautbericht._allowedValuesFreiText = Nothing - Me.cbxMautbericht._allowFreiText = False - Me.cbxMautbericht._value = "" - Me.cbxMautbericht.DropDownWidth = 200 - Me.cbxMautbericht.FormattingEnabled = True - Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33) - Me.cbxMautbericht.Name = "cbxMautbericht" - Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21) - Me.cbxMautbericht.TabIndex = 30 - ' - 'KdSearchBox3 - ' - Me.KdSearchBox3._AlleFirmenCLUSTER = False - Me.KdSearchBox3._AllowSetValue = True - Me.KdSearchBox3._autoSizeGross = False - Me.KdSearchBox3._display_Name1 = False - Me.KdSearchBox3._displayAVISO_Email = False - Me.KdSearchBox3._displayFullName = False - Me.KdSearchBox3._displayWoelflKd = False - Me.KdSearchBox3._hideIfListEmpty = True - Me.KdSearchBox3._loadKdData = False - Me.KdSearchBox3._searchName1 = True - Me.KdSearchBox3._UseFIRMA = "" - Me.KdSearchBox3._ValueKdAndName = True - Me.KdSearchBox3.dgvpos = "LEFT" - Me.KdSearchBox3.KdName = "" - Me.KdSearchBox3.KdNr = "-1" - Me.KdSearchBox3.kdNrField = Nothing - Me.KdSearchBox3.KdNrNullInt = Nothing - Me.KdSearchBox3.Location = New System.Drawing.Point(87, 308) - Me.KdSearchBox3.Name = "KdSearchBox3" - Me.KdSearchBox3.nurAktive = True - Me.KdSearchBox3.searchActive = True - Me.KdSearchBox3.Size = New System.Drawing.Size(350, 20) - Me.KdSearchBox3.TabIndex = 41 - Me.KdSearchBox3.TIMER_SEARCH = True - Me.KdSearchBox3.usrcntl = Nothing - ' - 'cboSachbearbeiter - ' - Me.cboSachbearbeiter._allowedValuesFreiText = Nothing - Me.cboSachbearbeiter._allowFreiText = False - Me.cboSachbearbeiter._value = "" - Me.cboSachbearbeiter.FormattingEnabled = True - Me.cboSachbearbeiter.Location = New System.Drawing.Point(529, 38) - Me.cboSachbearbeiter.Name = "cboSachbearbeiter" - Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21) - Me.cboSachbearbeiter.TabIndex = 29 + Me.btnRePos.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnRePos.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnRePos.Location = New System.Drawing.Point(10, 81) + Me.btnRePos.Name = "btnRePos" + Me.btnRePos.Size = New System.Drawing.Size(121, 49) + Me.btnRePos.TabIndex = 4 + Me.btnRePos.Text = "Rechnungspos. berechnen" + Me.btnRePos.UseVisualStyleBackColor = True ' 'usrcntlFakturierung ' @@ -812,6 +812,7 @@ Partial Class usrcntlFakturierung Me.GroupBox1.ResumeLayout(False) Me.GBMautberichte.ResumeLayout(False) Me.GBMautberichte.PerformLayout() + CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() Me.GBSammelrechnung.ResumeLayout(False) Me.GBSammelrechnung.PerformLayout() CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() @@ -822,7 +823,6 @@ Partial Class usrcntlFakturierung CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -846,7 +846,7 @@ Partial Class usrcntlFakturierung Friend WithEvents cbxVorschau As CheckBox Friend WithEvents cbxAbfVerbotdrucken As CheckBox Friend WithEvents cbxRechnungsjournaldrucken As CheckBox - Friend WithEvents Button20 As Button + Friend WithEvents btn_Mautanh_entfernen As Button Friend WithEvents Label72 As Label Friend WithEvents KdSearchBox3 As VERAG_PROG_ALLGEMEIN.KdSearchBox Friend WithEvents rbkunde As RadioButton @@ -855,7 +855,7 @@ Partial Class usrcntlFakturierung Friend WithEvents Label71 As Label Friend WithEvents pbPloseAnh_Proz As ProgressBar Friend WithEvents lblPloseAnh_Proz As Label - Friend WithEvents Button19 As Button + Friend WithEvents btn_setRENr As Button Friend WithEvents Label70 As Label Friend WithEvents cboSachbearbeiter As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label67 As Label @@ -865,7 +865,7 @@ Partial Class usrcntlFakturierung Friend WithEvents Label64 As Label Friend WithEvents Label63 As Label Friend WithEvents Label45 As Label - Friend WithEvents Button14 As Button + Friend WithEvents btnRePos As Button Friend WithEvents btnMDMSammelrechnung As Button Friend WithEvents PictureBox1 As PictureBox Friend WithEvents Label4 As Label @@ -878,7 +878,7 @@ Partial Class usrcntlFakturierung Friend WithEvents PictureBox4 As PictureBox Friend WithEvents PictureBox3 As PictureBox Friend WithEvents PictureBox2 As PictureBox - Friend WithEvents Button1 As Button + Friend WithEvents btnMautanh_pruefen As Button Friend WithEvents cbxMautanh As CheckBox Friend WithEvents Button3 As Button Friend WithEvents Button2 As Button diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index 7bd825ae..5a206bb9 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -89,7 +89,7 @@ Public Class usrcntlFakturierung End Sub - Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click + Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btn_Mautanh_entfernen.Click Dim Sachbearbeiter = cboSachbearbeiter._value Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text) @@ -133,7 +133,7 @@ Public Class usrcntlFakturierung End Sub - Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click + Private Sub Button14_Click(sender As Object, e As EventArgs) Handles btnRePos.Click Label70.Text = "6. Hängt Mautgesamtbericht an Sammelrechnungen an." @@ -190,7 +190,7 @@ Public Class usrcntlFakturierung If rechnungenMitAbwAbfDat > 0 Then Dim res As MsgBoxResult - res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird autoamtisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel) + res = MsgBox("Es gibt noch " & rechnungenMitAbwAbfDat & " Rechnungen mit abweichenden Abfertigungsdatum (Abfertigungsdatum ist nicht " & rechnungsdatum & ")" & vbNewLine & "Möchten Sie fortfahren (Abfertigungsdatum wird automatisch auf " & rechnungsdatum & " gesetzt) ?", vbYesNoCancel) Select Case res Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL") Case MsgBoxResult.No @@ -234,6 +234,10 @@ Public Class usrcntlFakturierung GROUP BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift]", "FMZOLL") + If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?", vbYesNoCancel) Then + Exit Sub + End If + 'RECHNUNG ODER GUTSCHRIFT 'Rechnung oder Gutschrift im RK eintragen, abhängig vom Sammelrechnungsbetrag (+/-) @@ -912,7 +916,7 @@ Public Class usrcntlFakturierung End Function - Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click + Private Sub Button19_Click(sender As Object, e As EventArgs) Handles btn_setRENr.Click Dim Sachbearbeiter = cboSachbearbeiter._value Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text) Dim rechnungsstatus As Integer = 0 @@ -1521,21 +1525,21 @@ Public Class usrcntlFakturierung group by [Datenquelle]", "FMZOLL") Dim sumNetto As Double = 0 - Dim sumVAT As Double = 0 - Dim sumBrutto As Double = 0 + Dim sumVAT As Double = 0 + Dim sumBrutto As Double = 0 - For Each row As DataRow In dtSummen.Rows + For Each row As DataRow In dtSummen.Rows If Not IsDBNull(row("Netto")) AndAlso IsNumeric(row("Netto")) Then sumNetto += CDbl(row("Netto")) If Not IsDBNull(row("VAT")) AndAlso IsNumeric(row("VAT")) Then sumVAT += CDbl(row("VAT")) If Not IsDBNull(row("Brutto")) AndAlso IsNumeric(row("Brutto")) Then sumBrutto += CDbl(row("Brutto")) Next - Dim drLast = dtSummen.NewRow + Dim drLast = dtSummen.NewRow - If dtSummen.Columns.Contains("Lieferant") Then drLast.Item("Lieferant") = "SUMME" - If dtSummen.Columns.Contains("Netto") Then drLast.Item("Netto") = sumNetto - If dtSummen.Columns.Contains("VAT") Then drLast.Item("VAT") = sumVAT - If dtSummen.Columns.Contains("Brutto") Then drLast.Item("Brutto") = sumBrutto + If dtSummen.Columns.Contains("Lieferant") Then drLast.Item("Lieferant") = "SUMME" + If dtSummen.Columns.Contains("Netto") Then drLast.Item("Netto") = sumNetto + If dtSummen.Columns.Contains("VAT") Then drLast.Item("VAT") = sumVAT + If dtSummen.Columns.Contains("Brutto") Then drLast.Item("Brutto") = sumBrutto dtSummen.Rows.InsertAt(drLast, dtSummen.Rows.Count) @@ -1597,7 +1601,7 @@ Public Class usrcntlFakturierung f.Show(Me) End Sub - Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click + Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles btnMautanh_pruefen.Click Dim Sachbearbeiter = cboSachbearbeiter._value Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text) @@ -1701,9 +1705,9 @@ Public Class usrcntlFakturierung Dim sammelrechnung0vorhanden As Boolean = True sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text)) - Button14.Enabled = sammelrechnung0vorhanden + btnRePos.Enabled = sammelrechnung0vorhanden 'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!! - Button20.Enabled = sammelrechnung0vorhanden + btn_Mautanh_entfernen.Enabled = sammelrechnung0vorhanden End Sub @@ -1728,8 +1732,8 @@ Public Class usrcntlFakturierung sammelrechnung0vorhanden = checkIfStatus0Sammelrechnugnenvorhanden(cboSachbearbeiter._value, CDate(dtRechnungsdatum.Text)) 'Button19.Enabled = sammelrechnung0vorhanden wenn RE bereits Status 2 wird sie nur gedruckt!!!! - Button14.Enabled = True 'sammelrechnung0vorhanden - Button20.Enabled = sammelrechnung0vorhanden + btnRePos.Enabled = True 'sammelrechnung0vorhanden + btn_Mautanh_entfernen.Enabled = sammelrechnung0vorhanden End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb index ae212e43..8bc96dfb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb @@ -13,7 +13,6 @@ Public Class cUStVLeistender Property UstV_Leistender_Adresse As Boolean Property UStV_LeistenderId As Integer - Public hasEntry = False Dim SQL As New SQL @@ -59,10 +58,29 @@ Public Class cUStVLeistender " BEGIN " & getInsertCmd() & " END " & " commit tran " + Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list) End Function + Public Function SAVEID() As Integer + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblUStVLeistender WHERE UStV_Leistender=@UStV_Leistender) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + + UStV_LeistenderId = SQL.doSQLVarListID(UStV_LeistenderId, sqlstr, "FMZOLL", , list) + + Return UStV_LeistenderId + End Function + + + + Public Function INSERT() As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb index 1eb1d352..ccb20c0f 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb @@ -1,14 +1,10 @@ Imports System.Data.SqlClient Imports System.Net Imports System.Reflection -Imports System.ServiceModel.Configuration -Imports System.ServiceModel.Security Imports System.Threading -Imports System.Web.Routing Imports System.Windows.Forms -Imports System.Windows.Forms.VisualStyles.VisualStyleElement Imports Chilkat -Imports Newtonsoft.Json.Linq +Imports VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS Public Class cATEZ_NCTS_Sessions @@ -17,6 +13,7 @@ Public Class cATEZ_NCTS_Sessions Public Property datetime As DateTime = Now() Public Property refresh_token As String Public Property token_validuntil As DateTime + Public Property program As String Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -30,18 +27,24 @@ Public Class cATEZ_NCTS_Sessions list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("datetime", datetime)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("refresh_token", refresh_token)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_validuntil", token_validuntil)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("program", program)) Return list End Function Sub New() - LOAD() + LOAD("") End Sub - Sub New(token As String, refreshtoken As String, timestamp As DateTime) + Sub New(Program As String) + LOAD(Program) + End Sub + + Sub New(token As String, refreshtoken As String, timestamp As DateTime, program As String) Me.token = token Me.refresh_token = refreshtoken token_validuntil = timestamp + program = program SAVE() End Sub @@ -80,11 +83,11 @@ Public Class cATEZ_NCTS_Sessions End Function - Public Sub LOAD() + Public Sub LOAD(Program As String) Try hasEntry = False Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT TOP(1) * FROM tblATEZ_NCTS_Sessions where token_validuntil >= dateadd(minute,-10,getdate()) order by datetime desc ", conn) + Using cmd As New SqlCommand("SELECT TOP(1) * FROM tblATEZ_NCTS_Sessions where token_validuntil >= dateadd(minute,-10,getdate()) " & IIf(Program <> "", " AND program = '" & Program & "' ", "") & " order by datetime desc ", conn) Dim dr = cmd.ExecuteReader() If dr.Read Then @@ -630,17 +633,17 @@ Public Class cATEZ_NCTS_IN API_STRING = API.Rows(0).Item("api_url") If Not IsDBNull(API.Rows(0).Item("api_debugpath")) AndAlso API.Rows(0).Item("api_debugpath") <> "" Then - Rest.VerboseLogging = True - Rest.DebugLogFilePath = API.Rows(0).Item("api_debugpath") & program & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_Test", "") & ".txt" + rest.VerboseLogging = True + rest.DebugLogFilePath = API.Rows(0).Item("api_debugpath") & program & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_Test", "") & ".txt" Else - Rest.VerboseLogging = False + rest.VerboseLogging = False End If End If - API_STRING = API.Rows(0).Item("api_url") + End Sub - Shared Function SendRequestAuthentificationToken(ByVal myuri As String, ByVal contentType As String, ByVal method As String, ByRef Itoken As String) As String + Shared Function SendRequestAuthentificationToken(ByVal myuri As String, ByVal contentType As String, ByVal method As String, ByRef Itoken As String, ByVal program As String, Optional client_id As String = "", Optional grant_type As String = "") As String Try Dim session = New cATEZ_NCTS_Sessions() @@ -675,6 +678,8 @@ Public Class cATEZ_NCTS_IN Dim json As New Chilkat.JsonObject json.UpdateString("password", API.Rows(0).Item("api_password")) json.UpdateString("username", API.Rows(0).Item("api_user")) + If client_id <> "" Then json.UpdateString("client_id", client_id) + If grant_type <> "" Then json.UpdateString("grant_type", grant_type) rest.AddHeader("Content-Type", contentType) @@ -697,10 +702,10 @@ Public Class cATEZ_NCTS_IN jsonResp.LoadSb(sbResponseBody) Itoken = jsonResp.StringOf("access_token") token = Itoken - refresh_token = jsonResp.StringOf("refresh_token") + refresh_token = If(jsonResp.StringOf("refresh_token"), "") Dim now As DateTime = DateTime.Now() now = now.AddSeconds(jsonResp.IntOf("expires_in")) - session = New cATEZ_NCTS_Sessions(Itoken, refresh_token, now.ToString("yyyy-MM-dd HH:mm:ss")) + session = New cATEZ_NCTS_Sessions(Itoken, refresh_token, now.ToString("yyyy-MM-dd HH:mm:ss"), program) sessionID = session.session_Id Return rest.ResponseStatusCode @@ -710,17 +715,25 @@ Public Class cATEZ_NCTS_IN End Function - Shared Function authenticate() As String + Shared Function authenticate(program As String, Optional client_id As String = "", Optional grant_type As String = "") As String - Dim myUri As String = API_STRING & "/api/tds/auth/" - Dim response = SendRequestAuthentificationToken(myUri, "application/json", "POST", token) + Dim myUri As String = API_STRING + Dim contentType = "application/json" + + Select Case program + Case "NCTS" : myUri &= "/api/tds/auth/" + Case "VAT" : myUri &= "/token" : contentType = "application/x-www-form-urlencoded" + + End Select + + Dim response = SendRequestAuthentificationToken(myUri, contentType, "POST", token, program, client_id, grant_type) Return response End Function - Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String) As String + Shared Function SendRequestWithAuthHeader(acceptContentType As String, ByRef failureDesc As String, myUrl As String, Method As String) As String Try VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() @@ -755,7 +768,7 @@ Public Class cATEZ_NCTS_IN 'rest.PercentDoneOnSend = True rest.IdleTimeoutMs = 5000 * 31 - success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody) + success = rest.SendReqSb(Method, myUrl, sbRequestBody) Dim responseStatusCode = rest.ReadResponseHeader() If (responseStatusCode < 0) Then @@ -816,7 +829,7 @@ Public Class cATEZ_NCTS_IN End Try End Function - Shared Function setJson(ncts As cATEZ_NCTS_DATA) + Shared Function setJsonNCTS(ncts As cATEZ_NCTS_DATA) jsonData.Clear() ncts.json = "" @@ -868,6 +881,21 @@ Public Class cATEZ_NCTS_IN End Function + + Shared Function setJsonVAT(documentType As String, docID As Integer) + + jsonData.Clear() + + Dim success As Boolean + success = jsonData.UpdateString("document_type", documentType) + Dim base64 As Chilkat.BinData + success = base64.LoadFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(docID)) + success = jsonData.UpdateString("document_base64", base64.GetEncoded("base64")) + + Return success + + End Function + Public Function setJsonPDF(ncts As cATEZ_NCTS_DATA, dgv As DataGridView) Dim success As Boolean @@ -894,4 +922,7 @@ Public Class cATEZ_NCTS_IN End Function + + + End Class