From d279c89da0479624e067d2b1fa5f818cff9cb08b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 10 Feb 2026 11:19:33 +0100 Subject: [PATCH 1/5] fakt Wallner bei AMBAR als Verrechnung --- SDL/Fakturierung/cFakturierung.vb | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 9134b43d..f3328657 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2248,7 +2248,7 @@ Public Class cFakturierung rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) - rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") + rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") If firma.Firma_ID = 4 Then rpt.lblWarenWertUeberschrift.Visible = False @@ -5024,7 +5024,7 @@ Public Class cFakturierung 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter"), True) - rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU + rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU 'rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben @@ -5868,7 +5868,11 @@ Public Class cFakturierung 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter"), True) - rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU + + Select Case ROW("Firma_ID") + Case 24 : sachbearbeiterAufRechnung = IIf(sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU + End Select + 'rpt.lblSachbearbeiter.Text = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - ALT From 1f24c3032a849e56ffeca0c1753948cbf14c8c66 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 10 Feb 2026 11:27:48 +0100 Subject: [PATCH 2/5] fakt --- SDL/Fakturierung/cFakturierung.vb | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index f3328657..ce5da64a 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1450,9 +1450,9 @@ Public Class cFakturierung rpt.lblLKWId.Text = If(Rechnung.AvisoID, "") Dim sachbearbeiterAufRechnung = getSBRgName(Rechnung.Firma_ID, Rechnung.Sachbearbeiter) - Select Case Rechnung.Firma_ID - Case 24 : rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner", "Verrechnung", sachbearbeiterAufRechnung) 'AMBAR HALT---ohne Worte - End Select + + rpt.lblSachbearbeiter.Text = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And Rechnung.Firma_ID = 24, "Verrechnung", sachbearbeiterAufRechnung) 'AMBAR HALT---ohne Worte + 'If(RECHNUNG.Sachbearbeiter, "") rpt.txtAbsender.Text = If(Rechnung.AbsenderName_1, "") & " " & If(Rechnung.AbsenderName_2, "") & vbNewLine & If(Rechnung.AbsenderOrt, "").ToString.Trim @@ -2248,7 +2248,7 @@ Public Class cFakturierung rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") Dim sachbearbeiterAufRechnung = getSBRgName(RECHNUNG.Firma_ID, RECHNUNG.Sachbearbeiter) - rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner", "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") + rpt.lblSachbearbeiter.Text = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And RECHNUNG.Firma_ID = 24, "Verrechnung", sachbearbeiterAufRechnung) 'If(RECHNUNG.Sachbearbeiter, "") If firma.Firma_ID = 4 Then rpt.lblWarenWertUeberschrift.Visible = False @@ -5024,7 +5024,7 @@ Public Class cFakturierung 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter"), True) - rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU + rpt.lblSachbearbeiter.Text = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And Row("Firma_ID") = 24, "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU 'rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben @@ -5869,9 +5869,8 @@ Public Class cFakturierung 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter"), True) - Select Case ROW("Firma_ID") - Case 24 : sachbearbeiterAufRechnung = IIf(sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU - End Select + sachbearbeiterAufRechnung = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And ROW("Firma_ID") = 24, "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU + 'rpt.lblSachbearbeiter.Text = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - ALT From 635351dadc97570e8dc87f1f1831cdc91d212948 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 10 Feb 2026 16:39:50 +0100 Subject: [PATCH 3/5] cFakt, MSM-USTVA --- SDL/Fakturierung/cFakturierung.vb | 11 +- SDL/USTV/frmMDM_USTVAntrag.Designer.vb | 1133 ++++++++++++------------ SDL/USTV/frmMDM_USTVAntrag.vb | 90 +- 3 files changed, 644 insertions(+), 590 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index ce5da64a..b280d0d8 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1094,8 +1094,8 @@ Public Class cFakturierung rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim - rpt.lblUID.Text = If(FIRMA.Firma_UID, "") - rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "") + rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID: ", "").Trim + rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI: ", "").Trim 'Für Vorschau: If Buchungsjahr Is DBNull.Value Then Buchungsjahr = Now.Year @@ -5023,6 +5023,7 @@ Public Class cFakturierung 'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") + Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter"), True) rpt.lblSachbearbeiter.Text = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And Row("Firma_ID") = 24, "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU @@ -5030,7 +5031,7 @@ Public Class cFakturierung 'rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim - rpt.lblEORI.Text = If(Firma.Firma_EORI, "") + rpt.lblEORI.Text = If(Firma.Firma_EORI, "").ToString.Replace("EORI: ", "").Trim rpt.txtKdAuftragsnummer.Text = If(Row("KdAuftragsNr") IsNot DBNull.Value, Row("KdAuftragsNr"), "") @@ -5453,7 +5454,7 @@ Public Class cFakturierung 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim - rpt.lblEORI.Text = If(Firma.Firma_EORI, "") + rpt.lblEORI.Text = If(Firma.Firma_EORI, "").ToString.Replace("EORI: ", "").Trim 'rpt.txtKdAuftragsnummer.Text = If(Row("KdAuftragsNr") IsNot DBNull.Value, Row("KdAuftragsNr"), "") @@ -5869,7 +5870,7 @@ Public Class cFakturierung 'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "") Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter"), True) - sachbearbeiterAufRechnung = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And ROW("Firma_ID") = 24, "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU + rpt.lblSachbearbeiter.Text = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And ROW("Firma_ID") = 24, "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb index 9c60c657..ef4c0465 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb @@ -24,15 +24,17 @@ Partial Class frmMDM_USTVAntrag Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag)) - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.pnlBottom = New System.Windows.Forms.Panel() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.pbXMLExport = New System.Windows.Forms.PictureBox() Me.btnRMCQuartal = New System.Windows.Forms.Button() Me.Label18 = New System.Windows.Forms.Label() + Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pbMail = New System.Windows.Forms.PictureBox() Me.pb_Beleg = New System.Windows.Forms.PictureBox() Me.Button5 = New System.Windows.Forms.Button() + Me.txtSummeEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label27 = New System.Windows.Forms.Label() Me.picExcel = New System.Windows.Forms.PictureBox() Me.Button4 = New System.Windows.Forms.Button() @@ -47,27 +49,44 @@ 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.cbxSicherheit = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() + Me.txtRZam = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label17 = New System.Windows.Forms.Label() + Me.txtRZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label15 = New System.Windows.Forms.Label() + Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.btnAbfertigungsNrVergeben = New System.Windows.Forms.Button() 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() @@ -90,21 +109,27 @@ 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.cbxKIUploaddelete = New System.Windows.Forms.CheckBox() + Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.btnPDFauslesen = New System.Windows.Forms.Button() 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() @@ -121,33 +146,8 @@ Partial Class frmMDM_USTVAntrag Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.FakturiertToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.cboAntragArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtRZam = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtRZ = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVZam = New VERAG_PROG_ALLGEMEIN.MyTextBox() - 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.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition() - Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtSummeEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.pnlBottom.SuspendLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pbXMLExport, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pbMail, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit() @@ -161,24 +161,24 @@ 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() Me.cns_vorauszahlen.SuspendLayout() Me.ncs_Belege.SuspendLayout() - CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnlBottom ' Me.pnlBottom.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) Me.pnlBottom.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.pnlBottom.Controls.Add(Me.PictureBox1) + Me.pnlBottom.Controls.Add(Me.pbXMLExport) Me.pnlBottom.Controls.Add(Me.btnRMCQuartal) Me.pnlBottom.Controls.Add(Me.Label18) Me.pnlBottom.Controls.Add(Me.txtSumme) @@ -201,15 +201,16 @@ Partial Class frmMDM_USTVAntrag Me.pnlBottom.Size = New System.Drawing.Size(1444, 100) Me.pnlBottom.TabIndex = 3 ' - 'PictureBox1 + 'pbXMLExport ' - Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.xml - Me.PictureBox1.Location = New System.Drawing.Point(1203, 10) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(35, 35) - Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom - Me.PictureBox1.TabIndex = 56 - Me.PictureBox1.TabStop = False + Me.pbXMLExport.Image = Global.SDL.My.Resources.Resources.xml + Me.pbXMLExport.Location = New System.Drawing.Point(1203, 10) + Me.pbXMLExport.Name = "pbXMLExport" + Me.pbXMLExport.Size = New System.Drawing.Size(35, 35) + Me.pbXMLExport.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.pbXMLExport.TabIndex = 56 + Me.pbXMLExport.TabStop = False + Me.pbXMLExport.Visible = False ' 'btnRMCQuartal ' @@ -234,6 +235,31 @@ Partial Class frmMDM_USTVAntrag Me.Label18.TabIndex = 54 Me.Label18.Text = "Summe:" ' + 'txtSumme + ' + Me.txtSumme._DateTimeOnly = False + Me.txtSumme._numbersOnly = False + Me.txtSumme._numbersOnlyKommastellen = "" + Me.txtSumme._numbersOnlyTrennzeichen = False + Me.txtSumme._Prozent = False + Me.txtSumme._ShortDateNew = False + Me.txtSumme._ShortDateOnly = False + Me.txtSumme._TimeOnly = False + Me.txtSumme._TimeOnly_Seconds = False + Me.txtSumme._value = "" + Me.txtSumme._Waehrung = True + Me.txtSumme._WaehrungZeichen = True + Me.txtSumme.ForeColor = System.Drawing.Color.Black + Me.txtSumme.Location = New System.Drawing.Point(1145, 51) + Me.txtSumme.MaxLineLength = -1 + Me.txtSumme.MaxLines_Warning = "" + Me.txtSumme.MaxLines_Warning_Label = Nothing + Me.txtSumme.Name = "txtSumme" + Me.txtSumme.ReadOnly = True + Me.txtSumme.Size = New System.Drawing.Size(88, 20) + Me.txtSumme.TabIndex = 53 + Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'pbMail ' Me.pbMail.Image = CType(resources.GetObject("pbMail.Image"), System.Drawing.Image) @@ -268,6 +294,31 @@ Partial Class frmMDM_USTVAntrag Me.Button5.UseVisualStyleBackColor = True Me.Button5.Visible = False ' + 'txtSummeEUR + ' + Me.txtSummeEUR._DateTimeOnly = False + Me.txtSummeEUR._numbersOnly = False + Me.txtSummeEUR._numbersOnlyKommastellen = "" + Me.txtSummeEUR._numbersOnlyTrennzeichen = False + Me.txtSummeEUR._Prozent = False + Me.txtSummeEUR._ShortDateNew = False + Me.txtSummeEUR._ShortDateOnly = False + Me.txtSummeEUR._TimeOnly = False + Me.txtSummeEUR._TimeOnly_Seconds = False + Me.txtSummeEUR._value = "" + Me.txtSummeEUR._Waehrung = True + Me.txtSummeEUR._WaehrungZeichen = True + Me.txtSummeEUR.ForeColor = System.Drawing.Color.Black + Me.txtSummeEUR.Location = New System.Drawing.Point(1145, 75) + Me.txtSummeEUR.MaxLineLength = -1 + Me.txtSummeEUR.MaxLines_Warning = "" + Me.txtSummeEUR.MaxLines_Warning_Label = Nothing + Me.txtSummeEUR.Name = "txtSummeEUR" + Me.txtSummeEUR.ReadOnly = True + Me.txtSummeEUR.Size = New System.Drawing.Size(88, 20) + Me.txtSummeEUR.TabIndex = 49 + Me.txtSummeEUR.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' 'Label27 ' Me.Label27.AutoSize = True @@ -454,6 +505,48 @@ 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) _ @@ -478,6 +571,21 @@ Partial Class frmMDM_USTVAntrag Me.Panel9.Size = New System.Drawing.Size(65, 86) 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)) @@ -557,6 +665,31 @@ Partial Class frmMDM_USTVAntrag Me.Label16.TabIndex = 55 Me.Label16.Text = "RZ am:" ' + 'txtRZam + ' + Me.txtRZam._DateTimeOnly = False + Me.txtRZam._numbersOnly = False + Me.txtRZam._numbersOnlyKommastellen = "" + Me.txtRZam._numbersOnlyTrennzeichen = False + Me.txtRZam._Prozent = False + Me.txtRZam._ShortDateNew = False + Me.txtRZam._ShortDateOnly = True + Me.txtRZam._TimeOnly = False + Me.txtRZam._TimeOnly_Seconds = False + Me.txtRZam._value = "" + Me.txtRZam._Waehrung = False + Me.txtRZam._WaehrungZeichen = False + Me.txtRZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtRZam.ForeColor = System.Drawing.Color.Black + Me.txtRZam.Location = New System.Drawing.Point(865, 87) + Me.txtRZam.MaxLength = 10 + Me.txtRZam.MaxLineLength = -1 + Me.txtRZam.MaxLines_Warning = "" + Me.txtRZam.MaxLines_Warning_Label = Nothing + Me.txtRZam.Name = "txtRZam" + Me.txtRZam.Size = New System.Drawing.Size(100, 23) + Me.txtRZam.TabIndex = 56 + ' 'Label17 ' Me.Label17.AutoSize = True @@ -570,6 +703,31 @@ Partial Class frmMDM_USTVAntrag Me.Label17.TabIndex = 53 Me.Label17.Text = "Rückzahlung:" ' + 'txtRZ + ' + Me.txtRZ._DateTimeOnly = False + Me.txtRZ._numbersOnly = True + Me.txtRZ._numbersOnlyKommastellen = "2" + Me.txtRZ._numbersOnlyTrennzeichen = True + Me.txtRZ._Prozent = False + Me.txtRZ._ShortDateNew = False + Me.txtRZ._ShortDateOnly = False + Me.txtRZ._TimeOnly = False + Me.txtRZ._TimeOnly_Seconds = False + Me.txtRZ._value = "" + Me.txtRZ._Waehrung = True + Me.txtRZ._WaehrungZeichen = True + Me.txtRZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtRZ.ForeColor = System.Drawing.Color.Black + Me.txtRZ.Location = New System.Drawing.Point(654, 87) + Me.txtRZ.MaxLength = 10 + Me.txtRZ.MaxLineLength = -1 + Me.txtRZ.MaxLines_Warning = "" + Me.txtRZ.MaxLines_Warning_Label = Nothing + Me.txtRZ.Name = "txtRZ" + Me.txtRZ.Size = New System.Drawing.Size(125, 23) + Me.txtRZ.TabIndex = 54 + ' 'Label15 ' Me.Label15.AutoSize = True @@ -583,6 +741,31 @@ Partial Class frmMDM_USTVAntrag Me.Label15.TabIndex = 51 Me.Label15.Text = "VZ am:" ' + 'txtVZam + ' + Me.txtVZam._DateTimeOnly = False + Me.txtVZam._numbersOnly = False + Me.txtVZam._numbersOnlyKommastellen = "" + Me.txtVZam._numbersOnlyTrennzeichen = False + Me.txtVZam._Prozent = False + Me.txtVZam._ShortDateNew = False + Me.txtVZam._ShortDateOnly = True + Me.txtVZam._TimeOnly = False + Me.txtVZam._TimeOnly_Seconds = False + Me.txtVZam._value = "" + Me.txtVZam._Waehrung = False + Me.txtVZam._WaehrungZeichen = False + Me.txtVZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.txtVZam.ForeColor = System.Drawing.Color.Black + Me.txtVZam.Location = New System.Drawing.Point(865, 60) + Me.txtVZam.MaxLength = 10 + Me.txtVZam.MaxLineLength = -1 + Me.txtVZam.MaxLines_Warning = "" + Me.txtVZam.MaxLines_Warning_Label = Nothing + Me.txtVZam.Name = "txtVZam" + Me.txtVZam.Size = New System.Drawing.Size(100, 23) + Me.txtVZam.TabIndex = 21 + ' 'btnAbfertigungsNrVergeben ' Me.btnAbfertigungsNrVergeben.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -610,6 +793,31 @@ Partial Class frmMDM_USTVAntrag Me.Label14.TabIndex = 27 Me.Label14.Text = "eing. 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(865, 31) + 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 @@ -635,6 +843,31 @@ 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 @@ -648,6 +881,31 @@ 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 = 20 + 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(136, 23) + Me.txtStNr.TabIndex = 22 + ' 'Label9 ' Me.Label9.AutoSize = True @@ -661,6 +919,56 @@ Partial Class frmMDM_USTVAntrag Me.Label9.TabIndex = 19 Me.Label9.Text = "Vorauszahlung:" ' + 'txtVZ + ' + Me.txtVZ._DateTimeOnly = False + Me.txtVZ._numbersOnly = True + Me.txtVZ._numbersOnlyKommastellen = "2" + 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(654, 59) + 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(125, 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.Red + Me.txtAbfNr.Location = New System.Drawing.Point(624, 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(111, 23) + Me.txtAbfNr.TabIndex = 18 + ' 'Label8 ' Me.Label8.AutoSize = True @@ -674,6 +982,19 @@ Partial Class frmMDM_USTVAntrag Me.Label8.TabIndex = 17 Me.Label8.Text = "Abf.-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 @@ -700,6 +1021,43 @@ 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.Red + Me.txtBezugsNr.Location = New System.Drawing.Point(641, 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(138, 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 @@ -726,6 +1084,31 @@ Partial Class frmMDM_USTVAntrag Me.Label1.TabIndex = 10 Me.Label1.Text = "3470:" ' + 'txt3470 + ' + Me.txt3470._DateTimeOnly = False + Me.txt3470._numbersOnly = True + Me.txt3470._numbersOnlyKommastellen = "2" + 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 @@ -752,6 +1135,56 @@ 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) @@ -1047,6 +1480,19 @@ 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) _ @@ -1110,6 +1556,27 @@ 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 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvUSTVPositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + 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(1428, 158) + Me.dgvUSTVPositionen.TabIndex = 0 + ' 'pnlAntragsPosDetails ' Me.pnlAntragsPosDetails.Controls.Add(Me.Panel2) @@ -1131,6 +1598,14 @@ Partial Class frmMDM_USTVAntrag Me.Panel2.Size = New System.Drawing.Size(1428, 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(1272, 261) + Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 + ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke @@ -1159,6 +1634,25 @@ Partial Class frmMDM_USTVAntrag Me.cbxKIUploaddelete.Text = "PDF nach KI-Upl. löschen" Me.cbxKIUploaddelete.UseVisualStyleBackColor = True ' + 'scanUSTVA + ' + Me.scanUSTVA._ARCHIV = True + Me.scanUSTVA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanUSTVA._DATENSERVER_ORDNER = "MDM" + Me.scanUSTVA._DATENSERVER_UOrdner1 = Nothing + Me.scanUSTVA._DATENSERVER_UOrdner2 = Nothing + Me.scanUSTVA._DATENSERVER_UOrdner3 = Nothing + Me.scanUSTVA._MULTI_FILES = False + Me.scanUSTVA._TEXT_PDF = "USTVA" + Me.scanUSTVA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUSTVA.BackColor = System.Drawing.Color.White + Me.scanUSTVA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUSTVA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUSTVA.Location = New System.Drawing.Point(6, 140) + Me.scanUSTVA.Name = "scanUSTVA" + Me.scanUSTVA.Size = New System.Drawing.Size(135, 40) + Me.scanUSTVA.TabIndex = 3 + ' 'btnPDFauslesen ' Me.btnPDFauslesen.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -1224,6 +1718,27 @@ Partial Class frmMDM_USTVAntrag Me.Panel3.Size = New System.Drawing.Size(1428, 427) Me.Panel3.TabIndex = 3 ' + 'dgvErstattungspositionen + ' + Me.dgvErstattungspositionen.AKTUALISIERUNGS_INTERVALL = 500 + Me.dgvErstattungspositionen.AllowUserToAddRows = False + Me.dgvErstattungspositionen.AllowUserToDeleteRows = False + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvErstattungspositionen.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + 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(1428, 161) + Me.dgvErstattungspositionen.TabIndex = 1 + ' 'pnlErstattungsdetails ' Me.pnlErstattungsdetails.BackColor = System.Drawing.Color.WhiteSmoke @@ -1236,6 +1751,14 @@ Partial Class frmMDM_USTVAntrag Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1426, 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(1270, 259) + Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 + ' 'Panel1 ' Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke @@ -1354,528 +1877,6 @@ Partial Class frmMDM_USTVAntrag Me.FakturiertToolStripMenuItem.Text = "Fakturiert zurücksetzen" Me.FakturiertToolStripMenuItem.Visible = False ' - '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 - ' - 'txtRZam - ' - Me.txtRZam._DateTimeOnly = False - Me.txtRZam._numbersOnly = False - Me.txtRZam._numbersOnlyKommastellen = "" - Me.txtRZam._numbersOnlyTrennzeichen = False - Me.txtRZam._Prozent = False - Me.txtRZam._ShortDateNew = False - Me.txtRZam._ShortDateOnly = True - Me.txtRZam._TimeOnly = False - Me.txtRZam._TimeOnly_Seconds = False - Me.txtRZam._value = "" - Me.txtRZam._Waehrung = False - Me.txtRZam._WaehrungZeichen = False - Me.txtRZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtRZam.ForeColor = System.Drawing.Color.Black - Me.txtRZam.Location = New System.Drawing.Point(865, 87) - Me.txtRZam.MaxLength = 10 - Me.txtRZam.MaxLineLength = -1 - Me.txtRZam.MaxLines_Warning = "" - Me.txtRZam.MaxLines_Warning_Label = Nothing - Me.txtRZam.Name = "txtRZam" - Me.txtRZam.Size = New System.Drawing.Size(100, 23) - Me.txtRZam.TabIndex = 56 - ' - 'txtRZ - ' - Me.txtRZ._DateTimeOnly = False - Me.txtRZ._numbersOnly = True - Me.txtRZ._numbersOnlyKommastellen = "2" - Me.txtRZ._numbersOnlyTrennzeichen = True - Me.txtRZ._Prozent = False - Me.txtRZ._ShortDateNew = False - Me.txtRZ._ShortDateOnly = False - Me.txtRZ._TimeOnly = False - Me.txtRZ._TimeOnly_Seconds = False - Me.txtRZ._value = "" - Me.txtRZ._Waehrung = True - Me.txtRZ._WaehrungZeichen = True - Me.txtRZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtRZ.ForeColor = System.Drawing.Color.Black - Me.txtRZ.Location = New System.Drawing.Point(654, 87) - Me.txtRZ.MaxLength = 10 - Me.txtRZ.MaxLineLength = -1 - Me.txtRZ.MaxLines_Warning = "" - Me.txtRZ.MaxLines_Warning_Label = Nothing - Me.txtRZ.Name = "txtRZ" - Me.txtRZ.Size = New System.Drawing.Size(125, 23) - Me.txtRZ.TabIndex = 54 - ' - 'txtVZam - ' - Me.txtVZam._DateTimeOnly = False - Me.txtVZam._numbersOnly = False - Me.txtVZam._numbersOnlyKommastellen = "" - Me.txtVZam._numbersOnlyTrennzeichen = False - Me.txtVZam._Prozent = False - Me.txtVZam._ShortDateNew = False - Me.txtVZam._ShortDateOnly = True - Me.txtVZam._TimeOnly = False - Me.txtVZam._TimeOnly_Seconds = False - Me.txtVZam._value = "" - Me.txtVZam._Waehrung = False - Me.txtVZam._WaehrungZeichen = False - Me.txtVZam.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) - Me.txtVZam.ForeColor = System.Drawing.Color.Black - Me.txtVZam.Location = New System.Drawing.Point(865, 60) - Me.txtVZam.MaxLength = 10 - Me.txtVZam.MaxLineLength = -1 - Me.txtVZam.MaxLines_Warning = "" - Me.txtVZam.MaxLines_Warning_Label = Nothing - Me.txtVZam.Name = "txtVZam" - Me.txtVZam.Size = New System.Drawing.Size(100, 23) - Me.txtVZam.TabIndex = 21 - ' - '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(865, 31) - 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 = 20 - 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(136, 23) - Me.txtStNr.TabIndex = 22 - ' - 'txtVZ - ' - Me.txtVZ._DateTimeOnly = False - Me.txtVZ._numbersOnly = True - Me.txtVZ._numbersOnlyKommastellen = "2" - 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(654, 59) - 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(125, 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.Red - Me.txtAbfNr.Location = New System.Drawing.Point(624, 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(111, 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.Red - Me.txtBezugsNr.Location = New System.Drawing.Point(641, 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(138, 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 = "2" - 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(1428, 158) - 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(1272, 261) - Me.UstCntlUSTV_AntragPosition1.TabIndex = 0 - ' - 'scanUSTVA - ' - Me.scanUSTVA._ARCHIV = True - Me.scanUSTVA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUSTVA._DATENSERVER_ORDNER = "MDM" - Me.scanUSTVA._DATENSERVER_UOrdner1 = Nothing - Me.scanUSTVA._DATENSERVER_UOrdner2 = Nothing - Me.scanUSTVA._DATENSERVER_UOrdner3 = Nothing - Me.scanUSTVA._MULTI_FILES = False - Me.scanUSTVA._TEXT_PDF = "USTVA" - Me.scanUSTVA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUSTVA.BackColor = System.Drawing.Color.White - Me.scanUSTVA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUSTVA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUSTVA.Location = New System.Drawing.Point(6, 140) - Me.scanUSTVA.Name = "scanUSTVA" - Me.scanUSTVA.Size = New System.Drawing.Size(135, 40) - Me.scanUSTVA.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(1428, 161) - 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(1270, 259) - Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2 - ' - 'txtSumme - ' - Me.txtSumme._DateTimeOnly = False - Me.txtSumme._numbersOnly = False - Me.txtSumme._numbersOnlyKommastellen = "" - Me.txtSumme._numbersOnlyTrennzeichen = False - Me.txtSumme._Prozent = False - Me.txtSumme._ShortDateNew = False - Me.txtSumme._ShortDateOnly = False - Me.txtSumme._TimeOnly = False - Me.txtSumme._TimeOnly_Seconds = False - Me.txtSumme._value = "" - Me.txtSumme._Waehrung = True - Me.txtSumme._WaehrungZeichen = True - Me.txtSumme.ForeColor = System.Drawing.Color.Black - Me.txtSumme.Location = New System.Drawing.Point(1145, 51) - Me.txtSumme.MaxLineLength = -1 - Me.txtSumme.MaxLines_Warning = "" - Me.txtSumme.MaxLines_Warning_Label = Nothing - Me.txtSumme.Name = "txtSumme" - Me.txtSumme.ReadOnly = True - Me.txtSumme.Size = New System.Drawing.Size(88, 20) - Me.txtSumme.TabIndex = 53 - Me.txtSumme.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' - 'txtSummeEUR - ' - Me.txtSummeEUR._DateTimeOnly = False - Me.txtSummeEUR._numbersOnly = False - Me.txtSummeEUR._numbersOnlyKommastellen = "" - Me.txtSummeEUR._numbersOnlyTrennzeichen = False - Me.txtSummeEUR._Prozent = False - Me.txtSummeEUR._ShortDateNew = False - Me.txtSummeEUR._ShortDateOnly = False - Me.txtSummeEUR._TimeOnly = False - Me.txtSummeEUR._TimeOnly_Seconds = False - Me.txtSummeEUR._value = "" - Me.txtSummeEUR._Waehrung = True - Me.txtSummeEUR._WaehrungZeichen = True - Me.txtSummeEUR.ForeColor = System.Drawing.Color.Black - Me.txtSummeEUR.Location = New System.Drawing.Point(1145, 75) - Me.txtSummeEUR.MaxLineLength = -1 - Me.txtSummeEUR.MaxLines_Warning = "" - Me.txtSummeEUR.MaxLines_Warning_Label = Nothing - Me.txtSummeEUR.Name = "txtSummeEUR" - Me.txtSummeEUR.ReadOnly = True - Me.txtSummeEUR.Size = New System.Drawing.Size(88, 20) - Me.txtSummeEUR.TabIndex = 49 - Me.txtSummeEUR.TextAlign = System.Windows.Forms.HorizontalAlignment.Right - ' 'frmMDM_USTVAntrag ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -1891,7 +1892,7 @@ Partial Class frmMDM_USTVAntrag Me.Text = "USTV Antrag" Me.pnlBottom.ResumeLayout(False) Me.pnlBottom.PerformLayout() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pbXMLExport, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pbMail, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picExcel, System.ComponentModel.ISupportInitialize).EndInit() @@ -1910,18 +1911,18 @@ 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.Panel4.PerformLayout() Me.TabPage2.ResumeLayout(False) Me.Panel3.ResumeLayout(False) + CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.pnlErstattungsdetails.ResumeLayout(False) Me.Panel1.ResumeLayout(False) Me.cns_vorauszahlen.ResumeLayout(False) Me.ncs_Belege.ResumeLayout(False) - CType(Me.dgvUSTVPositionen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvErstattungspositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -2045,5 +2046,5 @@ Partial Class frmMDM_USTVAntrag Friend WithEvents Label18 As Label Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents btnRMCQuartal As Button - Friend WithEvents PictureBox1 As PictureBox + Friend WithEvents pbXMLExport As PictureBox End Class diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 7fe05af6..80e60b2a 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -608,6 +608,8 @@ Public Class frmMDM_USTVAntrag End If + pbXMLExport.Visible = setXMLExportVisible(USTV_ANTRAG.UStVAn_LandKz) + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then btnAntrageeinarbeiten.Enabled = False @@ -4069,7 +4071,7 @@ Public Class frmMDM_USTVAntrag End Sub - Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles pbXMLExport.Click Me.Cursor = Cursors.WaitCursor @@ -4088,6 +4090,10 @@ Public Class frmMDM_USTVAntrag Dim KUNDE As New cKunde(USTV_ANTRAG.UStVAn_KuNr) Dim KUNDE_ERW As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr) + Dim BANK_OWNER As String = "" + Dim BANK_IBAN As String = "" + Dim BANK_BIC As String = "" + If IsDBNull(ADR.UstIdNr) OrElse ADR.UstIdNr Is Nothing Then MsgBox("UID-Nr ist nicht im Kunden hinterlegt!") End If @@ -4120,6 +4126,27 @@ Public Class frmMDM_USTVAntrag End If + Select Case Antrag_LandKz + Case "AT", "DE", "CZ", "BE", "SI" + BANK_OWNER = FIRMA.Firma_Bez + BANK_IBAN = FIRMA.Firma_IBAN1 + BANK_BIC = FIRMA.Firma_BIC1 + + Case Else + 'Bank aus Kunden! + Dim dtBank As New DataTable + dtBank = SQL.loadDgvBySql("SELECT isnull(bnk_name,'') as bnk_name ,bnk_anschrift,ISNULL(bnk_iban,'') as bnk_iban,ISNULL(bnk_bic,'') as bnk_bic FROM [tblBankverbindungen] WHERE isnull(bnk_hauptkonto,0) = 0 and bnk_archiv = 0 and bnk_KundenNr = " & KUNDE.KundenNr, "FMZOLL") + + If dtBank.Rows.Count > 0 Then + BANK_OWNER = ADR.Name_1 + BANK_IBAN = dtBank.Rows(0).Item("bnk_iban") + BANK_BIC = dtBank.Rows(0).Item("bnk_bic") + End If + 'wenn nicht hinterlegt, dann leer lassen! + + End Select + + Dim app As New VATRefundApplication() With { .CodF1 = New FormInfo With {.FormType = "D318", .FormId = 318, .UniversalCode = "D318_A1.0.0"}, .RefundPeriod = New Period With {.StartDate = CDate(USTV_ANTRAG.UStVAn_ReDatVon).Month, .EndDate = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month}, @@ -4130,7 +4157,7 @@ Public Class frmMDM_USTVAntrag .Currency = USTV_ANTRAG.UStVAn_Währungscode, .ApplicationType = 1, .ReferenceNumber = "", - .Annual = 0, + .Annual = IIf(CDate(USTV_ANTRAG.UStVAn_ReDatVon).Month = 1 And CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month = 12, 1, 0), .an_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Year, .d_rec = 0, .luna_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month, @@ -4159,11 +4186,11 @@ Public Class frmMDM_USTVAntrag }, .DetailedBankAccount = New BankAccount With { .Total = txtSummeEUR._value.ToString.Replace(",", "."), - .Currency = "EUR", + .Currency = USTV_ANTRAG.UStVAn_Währungscode, .OwnerType = 1, - .OwnerName = "VERAG 360 GMBH", - .IBAN = "AT053445500004210225", - .BIC = "RZOOAT2L455" + .OwnerName = BANK_OWNER, + .IBAN = BANK_IBAN, + .BIC = BANK_BIC }, .NumberOfDocuments = New NumberOfDocuments With {.AtachatedFiles = 0, .PurchaseOrders = dgvUSTVPositionen.SelectedRows.Count, .ImportOrders = 0}, .ApplicantSignature = New Signature With {.NameFree = "LUXBAUER BRIGITTE", .Position = "IMPUTERNICIT"} @@ -4190,7 +4217,7 @@ Public Class frmMDM_USTVAntrag End If LeistenderName = row.Cells("UStVPo_Leistender").Value - LeistenderName.ToString.Replace(Antrag_LandKz, "") + LeistenderName = LeistenderName.ToString.Replace(Antrag_LandKz, "") Dim Nettobetrag As Double = 0 If Not IsDBNull(row.Cells("UStVPo_Nettobetrag").Value) AndAlso IsNumeric(row.Cells("UStVPo_Nettobetrag").Value) Then Nettobetrag = CDbl(row.Cells("UStVPo_Nettobetrag").Value) @@ -4200,22 +4227,23 @@ Public Class frmMDM_USTVAntrag Dim Bez As String = row.Cells("UStVPo_Leistungsbezeichnung").Value Bez = Bez.ToLower - If Bez.Contains("maut") Or Bez.Contains("toll") Then maut = True - If Bez.Contains("diesel") Or Bez.Contains("fuel") Then diesel = True - If Bez.Contains("parkplatz") Then parkplatz = True - If Bez.Contains("zubeh") Then zubeh = True - If Bez.Contains("übern") Then uebernachtung = True - + If row.Cells("UStVPo_SchnittstellenNr").Value = 10 Then + 'UTA überspringen + ElseIf row.Cells("UStVPo_SchnittstellenNr").Value = 9 Then + maut = True 'MSE immer MAUT + Else + If Bez.Contains("maut") Or Bez.Contains("toll") Then maut = True + If Bez.Contains("diesel") Or Bez.Contains("fuel") Then diesel = True + If Bez.Contains("parkplatz") Then parkplatz = True + If Bez.Contains("zubeh") Then zubeh = True + If Bez.Contains("übern") Then uebernachtung = True + End If End If - Dim goods As New GoodsDescription With {.GoodsItem = New List(Of GoodsItem)} - 'diesel Code 1 SubCode 1.1.2 - 'maut Code 4 SubCode 4.1 - 'Zubehör Code 3 SubCode 3.1.5 - 'parkplatz Code 3 SubCode 3.1.4 - 'Übernachtung Code 6 SubCode 6.5 + + Dim goods As New GoodsDescription With {.GoodsItem = New List(Of GoodsItem)} If diesel Then goods.GoodsItem.Add(New GoodsItem With {.Code = 1, .SubCode = "1.1.2", .FreeText = ""}) @@ -4237,6 +4265,13 @@ Public Class frmMDM_USTVAntrag goods.GoodsItem.Add(New GoodsItem With {.Code = 6, .SubCode = "6.5", .FreeText = ""}) End If + Select Case Antrag_LandKz + Case "DE", "CZ", "LU" + For Each good In goods.GoodsItem + good.SubCode = "" 'SUbcodes leeren + Next + End Select + app.PurchaseInformation.Invoices.Add(New Invoice With { .SequenceNumber = counter, @@ -4433,4 +4468,21 @@ Public Class frmMDM_USTVAntrag End If End Function + Private Function setXMLExportVisible(ISOLand As String) + + Dim valid As Boolean = False + + If ISOLand = "" Then Return valid + + Select Case ISOLand + Case "RO" : valid = True + Case Else : valid = False + + End Select + + Return valid + + + End Function + End Class \ No newline at end of file From a65e0b517d8b178beac401b9bf28555e8977e881 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 10 Feb 2026 16:46:47 +0100 Subject: [PATCH 4/5] version --- SDL/My Project/AssemblyInfo.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 62956e3a..54c70323 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + From c872532ced3486c5c32451c29e117518ebf58867 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 11 Feb 2026 16:11:41 +0100 Subject: [PATCH 5/5] Verzollungspreise, Formulare, USTVA, etc. --- .../usrcntlVerzollungspreise.Designer.vb | 3 + .../usrcntlVerzollungspreise.vb | 118 ++++++++++-------- SDL/Formulare/KDFormulare/frmFormulare.vb | 7 +- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/USTV/frmMDM_USTVAntrag.vb | 4 +- .../DATENSERVER/cDATENSERVER.vb | 72 ++++++++++- 6 files changed, 144 insertions(+), 64 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb index 109ec474..a6d83b1d 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb @@ -313,12 +313,15 @@ Partial Class usrcntlVerzollungspreise 'cbxAusDB ' Me.cbxAusDB.AutoSize = True + Me.cbxAusDB.Checked = True + Me.cbxAusDB.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxAusDB.Location = New System.Drawing.Point(243, 13) Me.cbxAusDB.Name = "cbxAusDB" Me.cbxAusDB.Size = New System.Drawing.Size(61, 17) Me.cbxAusDB.TabIndex = 40 Me.cbxAusDB.Text = "aus DB" Me.cbxAusDB.UseVisualStyleBackColor = True + Me.cbxAusDB.Visible = False ' 'usrcntlVerzollungspreise ' diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index c7dbc9ec..09007a01 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -75,52 +75,62 @@ End Sub Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load - initControlsHandler() - Select VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + initControlsHandler() + MyComboBox1.Items.Clear() + + Dim SQLWhere As String = " WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' and Aktiv = 1 " + + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" AndAlso Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then + SQLWhere &= " AND NOT TarifCode like '%FISKAL%'" + End If + + MyComboBox1.fillWithSQL("SELECT TarifCode, Bezeichnung FROM tblVZPreislistentypen " & SQLWhere, False, "FMZOLL") + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX")) cboFirma.changeItem("IMEX") - MyComboBox1.Items.Clear() - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) - ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) - 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) - ' End If + 'MyComboBox1.Items.Clear() + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) + ''MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) + '' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) + ''If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) + '' End If MyComboBox1.changeItem("VZ") Case "UNISPED" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED")) cboFirma.changeItem("UNISPED") - MyComboBox1.Items.Clear() - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) - ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) - 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) - ' End If + 'MyComboBox1.Items.Clear() + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) + ''MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) + '' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) + ''If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) + '' End If MyComboBox1.changeItem("VZ") Case "IMEX" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX")) cboFirma.changeItem("IMEX") - MyComboBox1.Items.Clear() - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) - ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) - 'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) + 'MyComboBox1.Items.Clear() + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) + ''MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) + '' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) + ''If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) ' End If MyComboBox1.changeItem("VZ") Case "ATILLA" @@ -129,34 +139,36 @@ Case "AMBAR" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR")) cboFirma.changeItem("AMBAR") - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) Case Else cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG")) cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS")) cboFirma.changeItem("AG") - MyComboBox1.Items.Clear() - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) - ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) + 'MyComboBox1.Items.Clear() + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) + '' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) End If - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", Me.FindForm) Then + + + If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "LTD")) End If - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING")) - MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Privatperson", "PRIVAT")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING")) + 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Privatperson", "PRIVAT")) MyComboBox1.changeItem("VZ") End Select diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index a759f269..6c2cea90 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -8,11 +8,6 @@ Imports System.Reflection Imports System.Text.RegularExpressions Imports System.Windows.Documents Imports VERAG_PROG_ALLGEMEIN -Imports com.sun.tools.internal.ws.wsdl.document.mime -Imports com.sun.xml.internal.ws.message.stream -Imports com.sun.org.apache.xerces.internal.xs -Imports DocumentFormat.OpenXml.Drawing.Diagrams -Imports DAKOSY_Worker.VERAG_KundenStamm_Export Public Class frmFormulare Dim isSingleForm = False @@ -1487,7 +1482,7 @@ Public Class frmFormulare Private Sub cboVorlage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVorlage.SelectedIndexChanged If cboVorlage._value = "" Then Exit Sub - If MyFlowLayoutPanel1.Controls.Count = 0 OrElse vbYes = MsgBox("Beim Laden einer Vorlagengruppe werden alle vohanden Elemente gelöscht. Möchten Sie fortfahren?", vbYesNoCancel) Then + If MyFlowLayoutPanel1.Controls.Count = 0 OrElse vbYes = MsgBox("Beim Laden einer Vorlagengruppe werden alle vorhandenen Elemente gelöscht. Möchten Sie fortfahren?", vbYesNoCancel) Then Select Case cboVorlage._value Case FormularVorlagenGruppe.NeukundeAT MyFlowLayoutPanel1.Controls.Clear() diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 54c70323..df514053 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 80e60b2a..60ce4eb5 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -542,6 +542,8 @@ Public Class frmMDM_USTVAntrag btnRMCQuartal.Visible = False End If + If USTV_ANTRAG.UStVAn_LandKz IsNot Nothing Then pbXMLExport.Visible = setXMLExportVisible(USTV_ANTRAG.UStVAn_LandKz) + Else Dim sqlWhere As String = "" 'neuer USTVA-Antrag @@ -608,8 +610,8 @@ Public Class frmMDM_USTVAntrag End If - pbXMLExport.Visible = setXMLExportVisible(USTV_ANTRAG.UStVAn_LandKz) + pbXMLExport.Visible = False If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then btnAntrageeinarbeiten.Enabled = False diff --git a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb index 9eca7f97..76177ef2 100644 --- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb +++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb @@ -1547,7 +1547,7 @@ Public Class cFormularManager - Public Shared Function getPDFViaSpirePDF_FromURLStream(URL As String, Optional filename As String = "", Optional targetPath As String = "", Optional openFileAfterDownload As Boolean = True) As String + Public Shared Function getPDFViaSpirePDF_FromURLStream(URL As String, Optional filename As String = "", Optional targetPath As String = "", Optional openFileAfterDownload As Boolean = True, Optional showError As Boolean = True) As String Try If targetPath = "" Then If filename <> "" Then @@ -1584,10 +1584,78 @@ Public Class cFormularManager Return targetPath Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, IIf(Not showError, "LOG", "")) End Try Return "" End Function + + + Public Shared Function getFile_FromURLStream(URL As String, Optional filename As String = "", Optional targetPath As String = "", Optional showError As Boolean = True) As String + Try + Using webClient As New Net.WebClient() + + ' Download data + Dim data() As Byte = webClient.DownloadData(URL) + + ' Read Content-Type header + Dim contentType As String = webClient.ResponseHeaders("Content-Type") + + If contentType IsNot Nothing Then + contentType = contentType.ToLower() + Else + contentType = "" + End If + + ' Determine extension from Content-Type + Dim extension As String = "" + + If contentType.Contains("pdf") Then + extension = ".pdf" + + ElseIf contentType.Contains("excel") OrElse contentType.Contains("spreadsheetml") OrElse contentType.Contains("ms-excel") Then + + ' xlsx or xls + If contentType.Contains("spreadsheetml") Then + extension = ".xlsx" + Else + extension = ".xls" + End If + End If + + ' Build target path + Dim fullPath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), filename & extension) + + ' Handle based on file type + If extension = ".pdf" Then + + Using stream As New MemoryStream(data) + Dim doc As New Spire.Pdf.PdfDocument() + doc.LoadFromStream(stream) + doc.SaveToFile(fullPath) + targetPath = fullPath + + End Using + + ElseIf extension = ".xls" OrElse extension = ".xlsx" Then + System.IO.File.WriteAllBytes(fullPath, data) + targetPath = fullPath + Else + ' Unknown file type – save raw + fullPath = fullPath & ".bin" + System.IO.File.WriteAllBytes(fullPath, data) + End If + + End Using + + + + Return targetPath + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name, IIf(Not showError, "LOG", "")) + End Try + Return "" + End Function + Public Shared Sub PrintViaGS(PDFFile As String, printerName As String) Try Dim assembly = System.Reflection.Assembly.GetExecutingAssembly()