From b32a117a96db2fcbe8e218a0680396b2f89789c3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 26 Feb 2025 14:35:25 +0100 Subject: [PATCH] Essensbestellungen, scanlist, etc. --- SDL/USTV/frmMDM_USTVAntrag.vb | 46 +- SDL/USTV/ustCntlUSTV_AntragPosition.vb | 16 +- SDL/USTV/ustCntlUSTV_ErstattungPosition .vb | 4 +- SDL/frmEssensbestellungenAdministration.vb | 6 +- SDL/kunden/frmKundenblatt.Designer.vb | 1176 ++++++++--------- SDL/mdm/usrcntlFremdrechnungen.Designer.vb | 4 +- .../usrcntlPDFScanList.Designer.vb | 2 +- .../usrcntlPDFScanList.vb | 91 +- 8 files changed, 709 insertions(+), 636 deletions(-) diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 09e73fc0..987b3494 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -1279,6 +1279,22 @@ Public Class frmMDM_USTVAntrag btnNachforderung.Visible = True Panel5.BackColor = Color.SteelBlue Panel5.ForeColor = Color.White + + If USTV_ANTRAG.UStVAn_AntragEingereichtAm Is Nothing OrElse Not IsDate(USTV_ANTRAG.UStVAn_AntragEingereichtAm) Then + + Dim f As New frmDatumsabfrage("Bitte Einreichdatum eingeben", False) + f.ShowDialog() + If f.DialogResult = DialogResult.OK Then + Dim pruefdatum As Date = CDate(f.Datum) + USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID) + USTV_ANTRAG.UStVAn_AntragEingereichtAm = pruefdatum + USTV_ANTRAG.SAVE() + cboStatus.changeItem(cUSTVStatus.STAT_EINGEREICHT) + init() + End If + End If + + Case cUSTVStatus.STAT_ABGELEHNT btnBearb.Visible = True btnEingereicht.Visible = True @@ -1336,16 +1352,21 @@ Public Class frmMDM_USTVAntrag Private Sub btnEingereicht_Click(sender As Object, e As EventArgs) Handles btnEingereicht.Click - Dim f As New frmDatumsabfrage("Bitte Einreichtdatum eingeben", False) - f.ShowDialog() - If f.DialogResult = DialogResult.OK Then - Dim pruefdatum As Date = CDate(f.Datum) - USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID) - USTV_ANTRAG.UStVAn_AntragEingereichtAm = pruefdatum - USTV_ANTRAG.SAVE() - cboStatus.changeItem(cUSTVStatus.STAT_EINGEREICHT) + If USTV_ANTRAG.UStVAn_AntragEingereichtAm Is Nothing OrElse Not IsDate(USTV_ANTRAG.UStVAn_AntragEingereichtAm) Then + + Dim f As New frmDatumsabfrage("Bitte Einreichdatum eingeben", False) + f.ShowDialog() + If f.DialogResult = DialogResult.OK Then + Dim pruefdatum As Date = CDate(f.Datum) + USTV_ANTRAG = New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID) + USTV_ANTRAG.UStVAn_AntragEingereichtAm = pruefdatum + USTV_ANTRAG.SAVE() + cboStatus.changeItem(cUSTVStatus.STAT_EINGEREICHT) + init() + End If End If + End Sub Private Sub btnAbgelehnt_Click(sender As Object, e As EventArgs) Handles btnAbgelehnt.Click @@ -1927,9 +1948,6 @@ Public Class frmMDM_USTVAntrag SQL.doSQL("UPDATE tblUStVPositionen SET UStVPo_ID = " & counter & " WHERE UStVAn_ID=" & UStVAn_ID & " AND UStVPo_ID=" & USTV_POS.UStVPo_ID, "FMZOLL") End If - - - Next End Sub @@ -2070,8 +2088,8 @@ Public Class frmMDM_USTVAntrag Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click USTV_ANTRAG.SAVE() - If IsDBNull(USTV_ANTRAG.FilialenNr) Then MsgBox("Für das Speditionsbuch muss die Filiale eingegeben werden.") : Exit Sub - If IsDBNull(USTV_ANTRAG.AbfertigungsNr) Then MsgBox("Für das Speditionsbuch muss die Abfertigungs-Nr eingegeben werden.") : Exit Sub + If IsDBNull(USTV_ANTRAG.FilialenNr) OrElse USTV_ANTRAG.FilialenNr Is Nothing OrElse USTV_ANTRAG.FilialenNr = 0 Then MsgBox("Für das Speditionsbuch muss die Filiale eingegeben werden.") : Exit Sub + If IsDBNull(USTV_ANTRAG.AbfertigungsNr) OrElse USTV_ANTRAG.AbfertigungsNr Is Nothing OrElse USTV_ANTRAG.AbfertigungsNr <= 0 Then MsgBox("Für das Speditionsbuch muss die Abfertigungs-Nr eingegeben werden.") : Exit Sub Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr) @@ -2091,7 +2109,7 @@ Public Class frmMDM_USTVAntrag If .SAVE() Then MsgBox("Sped-Eintrag wurde angelegt") End With - End Sub + End Sub Private Sub initdgvErstattungen() diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index e5fba43a..f33d08da 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -70,9 +70,16 @@ Public Class ustCntlUSTV_AntragPosition Case 4, 9 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblMSEInvoices] as inv inner join tblMSECustomers on inv.customer_number = customer_id where invoice_date='" & UStV_POS.UStVPo_ReDat & "' and country='" & Antrag_LandKz & "' AND partner_customer_number = " & kdnr & " AND daId is not null", "FMZOLL",,, -1) Case 10 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblUTAImportNew] where Rechnungsdatum='" & UStV_POS.UStVPo_ReDat & "' and Abrechnungsnummer='" & UStV_POS.UStVPo_ReNr & "' and Lieferland_ISO2='" & Antrag_LandKz & "' AND daId is not null", "FMZOLL",,, -1) Case 8 : da_id = sql.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & UStV_POS.UStVPo_ReDat & "' and ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) ='" & UStV_POS.UStVPo_ReNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId is not null", "FMZOLL",,, -1) - + Case 1 : da_id = 1 'VERAG-RECHNUGNEN werden immer direkt OHNE daid geöffnet! + Case -1 : IIf(UStV_POS.UStVPo_daId > 0, UStV_POS.UStVPo_daId, -1) End Select - scanSonstiges.INIT_daId(da_id) + + If da_id > -1 Then + scanSonstiges.INIT_daId(da_id) + Else + scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "DIVERSE") + End If + scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen") scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten") @@ -427,4 +434,9 @@ Public Class ustCntlUSTV_AntragPosition End Sub + Private Sub scanSonstiges_FileAdded(id As String, path As String, name As String) Handles scanSonstiges.FileAdded + getValues(UStV_POS, True) + UStV_POS.UStVPo_daId = id + UStV_POS.SAVE() + End Sub End Class diff --git a/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb b/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb index 813c3fe1..44df7114 100644 --- a/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb +++ b/SDL/USTV/ustCntlUSTV_ErstattungPosition .vb @@ -85,13 +85,13 @@ Public Class ustCntlUSTV_ErstattungPosition If txtBelegNr.Text <> "" Then UStV_ERS.Belegnummer = txtBelegNr.Text Else - save = False + 'save = False End If If txtBelegDatum.Text <> "" AndAlso IsDate(txtBelegDatum.Text) Then UStV_ERS.Belegdatum = txtBelegDatum._value Else - save = False + 'save = False End If If txtUSTBetrag.Text <> "" Then diff --git a/SDL/frmEssensbestellungenAdministration.vb b/SDL/frmEssensbestellungenAdministration.vb index 8e7bda3d..4fbf2681 100644 --- a/SDL/frmEssensbestellungenAdministration.vb +++ b/SDL/frmEssensbestellungenAdministration.vb @@ -1100,7 +1100,7 @@ Public Class frmEssensbestellungenAdministration dt_nichtBezahlteEB = dt_nichtBezahlteEB.Select("eb_abgerechnet = 0", "eb_mitid").CopyToDataTable - If vbYes = MsgBox("Möchten Sie einen Reminder für die noch nicht bezahlten Essensbestellungen verschicken?" & vbNewLine & IIf(cboAbteilung._value Is "", " alle Abteilungen", "Abteilung " & cboAbteilung._value) & " im Gebäude: " & cboGebaeude._value, vbYesNoCancel) Then + If vbYes = MsgBox("Möchten Sie einen Reminder für die noch nicht bezahlten Essensbestellungen verschicken?" & vbNewLine & IIf(cboAbteilung._value Is "", "Alle Abteilungen", "Abteilung " & cboAbteilung._value) & " im Gebäude: " & cboGebaeude._value, vbYesNoCancel) Then Dim displayView = New DataView(dt_nichtBezahlteEB, "", "eb_mitid", DataViewRowState.CurrentRows) Dim distinctDT As DataTable = displayView.ToTable(True, "eb_mitid") @@ -1132,8 +1132,8 @@ Public Class frmEssensbestellungenAdministration If result IsNot Nothing AndAlso IsNumeric(result) Then result = CDbl(result) Select Case mit.mit_abteilung - Case "MDM" ' -> per Mail weil SDL keine Benachrichtigungen: - If mit.mit_email <> "" Then + Case "MDM", "EDV" ' -> per Mail weil SDL keine Benachrichtigungen hat und EDV nicht ins AVISO schaut: + If mit.mit_email <> "" AndAlso Not emailEmpf.Contains(mit.mit_email) Then emailEmpf &= mit.mit_email & ";" End If diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index c84065e4..da6967ef 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -45,11 +45,13 @@ Partial Class frmKundenblatt Me.txtInfotext = New System.Windows.Forms.Label() Me.tbFirmendaten = New System.Windows.Forms.TabPage() Me.Panel4 = New System.Windows.Forms.Panel() + Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() Me.tbcntrMain = New System.Windows.Forms.TabControl() Me.tbAllgemein = New System.Windows.Forms.TabPage() Me.lblAdressenzusatz = New System.Windows.Forms.TextBox() Me.btnReloadOP = New System.Windows.Forms.Button() Me.Label11 = New System.Windows.Forms.Label() + Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label10 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.dgvOffenePosten = New System.Windows.Forms.DataGridView() @@ -100,6 +102,9 @@ Partial Class frmKundenblatt Me.Button7 = New System.Windows.Forms.Button() Me.Label35 = New System.Windows.Forms.Label() Me.flpSDLDok = New System.Windows.Forms.FlowLayoutPanel() + Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label34 = New System.Windows.Forms.Label() Me.Panel2 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() @@ -110,18 +115,24 @@ Partial Class frmKundenblatt Me.Label33 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label32 = New System.Windows.Forms.Label() + Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.lblAenderungsdatum_SDL = New System.Windows.Forms.Label() Me.lblErfassungsdatum_SDL = New System.Windows.Forms.Label() Me.grpMautDE = New System.Windows.Forms.GroupBox() Me.Button15 = New System.Windows.Forms.Button() Me.Label1 = New System.Windows.Forms.Label() + Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblMautDEFlottenPIN = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() + Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblLetzterSA_SDL = New System.Windows.Forms.Label() Me.rtbVermerke = New System.Windows.Forms.RichTextBox() Me.tbSDLKarten = New System.Windows.Forms.TabPage() + Me.usrcntlKarten = New SDL.usrCntlKartenDaten() Me.tbLKW = New System.Windows.Forms.TabPage() Me.pnlLKWRight = New System.Windows.Forms.Panel() + Me.UsrCntlLKW1 = New SDL.usrCntlLKW() Me.pnlLKW = New System.Windows.Forms.Panel() Me.dgvLKW = New System.Windows.Forms.DataGridView() Me.pnlLKWBottom = New System.Windows.Forms.Panel() @@ -142,16 +153,29 @@ Partial Class frmKundenblatt Me.Label7 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.lblSonstigeDokumente = New System.Windows.Forms.Label() + Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbFremdrechnungen = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage() + Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.tbUSTV = New System.Windows.Forms.TabPage() Me.tbcntrUSTV = New System.Windows.Forms.TabControl() Me.tbUSTVDokumente = New System.Windows.Forms.TabPage() Me.Label8 = New System.Windows.Forms.Label() + Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.Label27 = New System.Windows.Forms.Label() Me.Label37 = New System.Windows.Forms.Label() + Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.tbUSTVAntrage = New System.Windows.Forms.TabPage() + Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() @@ -172,35 +196,11 @@ Partial Class frmKundenblatt Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.pnl = New System.Windows.Forms.Panel() Me.lblINAKTIV = New System.Windows.Forms.Label() + Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() Me.tbiLeistungen = New System.Windows.Forms.ToolStripMenuItem() Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem() Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem() Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem() - Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.scanErstbestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanJaraVereinbarung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanMWSTAgreement = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanSDLSonst = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.txtMautDE_BenutzerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDE_FlottenPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtMautDEMasterPIN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanEULizenz = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanHRA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanPersonalAusweisGF = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanBankGarantie = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanVertragVeragKd = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() - Me.scanUSTVsonstigeDokumente = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox() - Me.UsrcntlKundeBearbeitenFull1 = New SDL.usrcntlKundeBearbeitenFull() - Me.usrcntlKarten = New SDL.usrCntlKartenDaten() - Me.UsrCntlLKW1 = New SDL.usrCntlLKW() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() - Me.UsrCntlUSTV = New SDL.usrCntlUSTV() Me.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -290,6 +290,16 @@ Partial Class frmKundenblatt Me.Panel4.Size = New System.Drawing.Size(1638, 1129) Me.Panel4.TabIndex = 0 ' + 'UsrcntlKundeBearbeitenFull1 + ' + Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White + Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) + Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" + Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1129) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -386,6 +396,18 @@ Partial Class frmKundenblatt Me.Label11.TabIndex = 178 Me.Label11.Text = "Daten für Firma:" ' + 'cboFirmaFMZOLL + ' + Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing + Me.cboFirmaFMZOLL._allowFreiText = False + Me.cboFirmaFMZOLL._value = "" + Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboFirmaFMZOLL.FormattingEnabled = True + Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567) + Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" + Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) + Me.cboFirmaFMZOLL.TabIndex = 179 + ' 'Label10 ' Me.Label10.AutoSize = True @@ -1083,6 +1105,67 @@ Partial Class frmKundenblatt Me.flpSDLDok.Size = New System.Drawing.Size(158, 125) Me.flpSDLDok.TabIndex = 176 ' + 'scanErstbestellung + ' + Me.scanErstbestellung._ARCHIV = True + Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" + Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanErstbestellung._MULTI_FILES = True + Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" + Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanErstbestellung.BackColor = System.Drawing.Color.White + Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) + Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) + Me.scanErstbestellung.Name = "scanErstbestellung" + Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) + Me.scanErstbestellung.TabIndex = 172 + ' + 'scanJaraVereinbarung + ' + Me.scanJaraVereinbarung._ARCHIV = True + Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" + Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing + Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing + Me.scanJaraVereinbarung._MULTI_FILES = True + Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" + Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White + Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) + Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) + Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" + Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) + Me.scanJaraVereinbarung.TabIndex = 173 + ' + 'scanMWSTAgreement + ' + Me.scanMWSTAgreement._ARCHIV = True + Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" + Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing + Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing + Me.scanMWSTAgreement._MULTI_FILES = True + Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" + Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White + Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) + Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) + Me.scanMWSTAgreement.Name = "scanMWSTAgreement" + Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) + Me.scanMWSTAgreement.TabIndex = 174 + Me.scanMWSTAgreement.Visible = False + ' 'Label34 ' Me.Label34.AutoSize = True @@ -1182,6 +1265,25 @@ Partial Class frmKundenblatt Me.Label32.TabIndex = 13 Me.Label32.Text = "Letzter Sachbearbeiter:" ' + 'scanSDLSonst + ' + Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" + Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" + Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" + Me.scanSDLSonst._OPEN_ORIGINAL = False + Me.scanSDLSonst._TYPE = "PDF" + Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSDLSonst.BackColor = System.Drawing.Color.White + Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) + Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) + Me.scanSDLSonst.Name = "scanSDLSonst" + Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) + Me.scanSDLSonst.TabIndex = 173 + ' 'lblAenderungsdatum_SDL ' Me.lblAenderungsdatum_SDL.AutoSize = True @@ -1238,6 +1340,29 @@ Partial Class frmKundenblatt Me.Label1.TabIndex = 19 Me.Label1.Text = "Benutzer-Nr:" ' + 'txtMautDE_BenutzerNr + ' + Me.txtMautDE_BenutzerNr._DateTimeOnly = False + Me.txtMautDE_BenutzerNr._numbersOnly = True + Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" + Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True + Me.txtMautDE_BenutzerNr._Prozent = False + Me.txtMautDE_BenutzerNr._ShortDateNew = False + Me.txtMautDE_BenutzerNr._ShortDateOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly = False + Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False + Me.txtMautDE_BenutzerNr._value = "" + Me.txtMautDE_BenutzerNr._Waehrung = False + Me.txtMautDE_BenutzerNr._WaehrungZeichen = True + Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) + Me.txtMautDE_BenutzerNr.MaxLineLength = -1 + Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" + Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing + Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" + Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) + Me.txtMautDE_BenutzerNr.TabIndex = 18 + ' 'lblMautDEFlottenPIN ' Me.lblMautDEFlottenPIN.AutoSize = True @@ -1256,6 +1381,52 @@ Partial Class frmKundenblatt Me.Label6.TabIndex = 17 Me.Label6.Text = "Master-PIN:" ' + 'txtMautDE_FlottenPIN + ' + Me.txtMautDE_FlottenPIN._DateTimeOnly = False + Me.txtMautDE_FlottenPIN._numbersOnly = True + Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" + Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True + Me.txtMautDE_FlottenPIN._Prozent = False + Me.txtMautDE_FlottenPIN._ShortDateNew = False + Me.txtMautDE_FlottenPIN._ShortDateOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly = False + Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False + Me.txtMautDE_FlottenPIN._value = "" + Me.txtMautDE_FlottenPIN._Waehrung = False + Me.txtMautDE_FlottenPIN._WaehrungZeichen = True + Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) + Me.txtMautDE_FlottenPIN.MaxLineLength = -1 + Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" + Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" + Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDE_FlottenPIN.TabIndex = 14 + ' + 'txtMautDEMasterPIN + ' + Me.txtMautDEMasterPIN._DateTimeOnly = False + Me.txtMautDEMasterPIN._numbersOnly = True + Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" + Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True + Me.txtMautDEMasterPIN._Prozent = False + Me.txtMautDEMasterPIN._ShortDateNew = False + Me.txtMautDEMasterPIN._ShortDateOnly = False + Me.txtMautDEMasterPIN._TimeOnly = False + Me.txtMautDEMasterPIN._TimeOnly_Seconds = False + Me.txtMautDEMasterPIN._value = "" + Me.txtMautDEMasterPIN._Waehrung = False + Me.txtMautDEMasterPIN._WaehrungZeichen = True + Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black + Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) + Me.txtMautDEMasterPIN.MaxLineLength = -1 + Me.txtMautDEMasterPIN.MaxLines_Warning = "" + Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing + Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" + Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) + Me.txtMautDEMasterPIN.TabIndex = 16 + ' 'lblLetzterSA_SDL ' Me.lblLetzterSA_SDL.AutoSize = True @@ -1281,11 +1452,21 @@ Partial Class frmKundenblatt Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22) Me.tbSDLKarten.Name = "tbSDLKarten" Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDLKarten.Size = New System.Drawing.Size(1630, 1103) + Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39) Me.tbSDLKarten.TabIndex = 7 Me.tbSDLKarten.Text = "SDL-Kartenverwaltung" Me.tbSDLKarten.UseVisualStyleBackColor = True ' + 'usrcntlKarten + ' + Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default + Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill + Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) + Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.usrcntlKarten.Name = "usrcntlKarten" + Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33) + Me.usrcntlKarten.TabIndex = 0 + ' 'tbLKW ' Me.tbLKW.Controls.Add(Me.pnlLKWRight) @@ -1293,7 +1474,7 @@ Partial Class frmKundenblatt Me.tbLKW.Location = New System.Drawing.Point(4, 22) Me.tbLKW.Name = "tbLKW" Me.tbLKW.Padding = New System.Windows.Forms.Padding(3) - Me.tbLKW.Size = New System.Drawing.Size(1630, 1103) + Me.tbLKW.Size = New System.Drawing.Size(178, 39) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1305,9 +1486,22 @@ Partial Class frmKundenblatt Me.pnlLKWRight.Location = New System.Drawing.Point(309, 3) Me.pnlLKWRight.Name = "pnlLKWRight" Me.pnlLKWRight.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0) - Me.pnlLKWRight.Size = New System.Drawing.Size(1318, 1080) + Me.pnlLKWRight.Size = New System.Drawing.Size(0, 33) Me.pnlLKWRight.TabIndex = 2 ' + 'UsrCntlLKW1 + ' + Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White + Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) + Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) + Me.UsrCntlLKW1.Name = "UsrCntlLKW1" + Me.UsrCntlLKW1.Size = New System.Drawing.Size(0, 33) + Me.UsrCntlLKW1.TabIndex = 0 + ' 'pnlLKW ' Me.pnlLKW.Controls.Add(Me.dgvLKW) @@ -1316,7 +1510,7 @@ Partial Class frmKundenblatt Me.pnlLKW.Dock = System.Windows.Forms.DockStyle.Left Me.pnlLKW.Location = New System.Drawing.Point(3, 3) Me.pnlLKW.Name = "pnlLKW" - Me.pnlLKW.Size = New System.Drawing.Size(306, 1080) + Me.pnlLKW.Size = New System.Drawing.Size(306, 33) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW @@ -1357,7 +1551,7 @@ Partial Class frmKundenblatt Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle17 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 906) + Me.dgvLKW.Size = New System.Drawing.Size(306, 0) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1369,7 +1563,7 @@ Partial Class frmKundenblatt Me.pnlLKWBottom.Controls.Add(Me.Button13) Me.pnlLKWBottom.Controls.Add(Me.lblErgebnisse) Me.pnlLKWBottom.Dock = System.Windows.Forms.DockStyle.Bottom - Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 968) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, -79) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1510,7 +1704,7 @@ Partial Class frmKundenblatt Me.tbVERAGCard.Location = New System.Drawing.Point(4, 22) Me.tbVERAGCard.Name = "tbVERAGCard" Me.tbVERAGCard.Padding = New System.Windows.Forms.Padding(3) - Me.tbVERAGCard.Size = New System.Drawing.Size(1630, 1103) + Me.tbVERAGCard.Size = New System.Drawing.Size(178, 39) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1522,7 +1716,7 @@ Partial Class frmKundenblatt Me.Panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel3.Location = New System.Drawing.Point(3, 3) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(1624, 1080) + Me.Panel3.Size = New System.Drawing.Size(172, 33) Me.Panel3.TabIndex = 0 ' 'tbDokumente @@ -1540,7 +1734,7 @@ Partial Class frmKundenblatt Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd) Me.tbDokumente.Location = New System.Drawing.Point(4, 22) Me.tbDokumente.Name = "tbDokumente" - Me.tbDokumente.Size = New System.Drawing.Size(1630, 1103) + Me.tbDokumente.Size = New System.Drawing.Size(178, 39) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -1575,517 +1769,6 @@ Partial Class frmKundenblatt Me.lblSonstigeDokumente.TabIndex = 2 Me.lblSonstigeDokumente.Text = "Sonstige Dokumente" ' - 'tbBesuchsberichte - ' - Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) - Me.tbBesuchsberichte.Name = "tbBesuchsberichte" - Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) - Me.tbBesuchsberichte.Size = New System.Drawing.Size(1630, 1103) - Me.tbBesuchsberichte.TabIndex = 9 - Me.tbBesuchsberichte.Text = "Besuchsberichte" - Me.tbBesuchsberichte.UseVisualStyleBackColor = True - ' - 'tbFremdrechnungen - ' - Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) - Me.tbFremdrechnungen.Name = "tbFremdrechnungen" - Me.tbFremdrechnungen.Size = New System.Drawing.Size(1630, 1103) - Me.tbFremdrechnungen.TabIndex = 10 - Me.tbFremdrechnungen.Text = "Fremdrechnungen" - Me.tbFremdrechnungen.UseVisualStyleBackColor = True - ' - 'tbOfferte - ' - Me.tbOfferte.Controls.Add(Me.UsrCntlOfferte1) - Me.tbOfferte.Location = New System.Drawing.Point(4, 25) - Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) - Me.tbOfferte.Name = "tbOfferte" - Me.tbOfferte.Size = New System.Drawing.Size(1644, 1135) - Me.tbOfferte.TabIndex = 11 - Me.tbOfferte.Text = "Offerte" - Me.tbOfferte.UseVisualStyleBackColor = True - ' - 'tbUSTV - ' - Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) - Me.tbUSTV.Location = New System.Drawing.Point(4, 25) - Me.tbUSTV.Name = "tbUSTV" - Me.tbUSTV.Size = New System.Drawing.Size(1644, 1135) - Me.tbUSTV.TabIndex = 12 - Me.tbUSTV.Text = "USTV" - Me.tbUSTV.UseVisualStyleBackColor = True - ' - 'tbcntrUSTV - ' - Me.tbcntrUSTV.Controls.Add(Me.tbUSTVDokumente) - Me.tbcntrUSTV.Controls.Add(Me.tbUSTVAntrage) - Me.tbcntrUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.tbcntrUSTV.Location = New System.Drawing.Point(0, 0) - Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) - Me.tbcntrUSTV.Name = "tbcntrUSTV" - Me.tbcntrUSTV.SelectedIndex = 0 - Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1135) - Me.tbcntrUSTV.TabIndex = 1 - ' - 'tbUSTVDokumente - ' - Me.tbUSTVDokumente.Controls.Add(Me.Label8) - Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVsonstigeDokumente) - Me.tbUSTVDokumente.Controls.Add(Me.Label27) - Me.tbUSTVDokumente.Controls.Add(Me.Label37) - Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVFABest) - Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) - Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) - Me.tbUSTVDokumente.Name = "tbUSTVDokumente" - Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1109) - Me.tbUSTVDokumente.TabIndex = 8 - Me.tbUSTVDokumente.Text = "Dokumente" - Me.tbUSTVDokumente.UseVisualStyleBackColor = True - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label8.Location = New System.Drawing.Point(604, 17) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(126, 13) - Me.Label8.TabIndex = 8 - Me.Label8.Text = "sonstige Dokumente:" - ' - 'Label27 - ' - Me.Label27.AutoSize = True - Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label27.Location = New System.Drawing.Point(311, 17) - Me.Label27.Name = "Label27" - Me.Label27.Size = New System.Drawing.Size(153, 13) - Me.Label27.TabIndex = 6 - Me.Label27.Text = "Finanzamt-Bestätigungen:" - ' - 'Label37 - ' - Me.Label37.AutoSize = True - Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label37.Location = New System.Drawing.Point(14, 17) - Me.Label37.Name = "Label37" - Me.Label37.Size = New System.Drawing.Size(113, 13) - Me.Label37.TabIndex = 2 - Me.Label37.Text = "USTV Vollmachten" - ' - 'tbUSTVAntrage - ' - Me.tbUSTVAntrage.Controls.Add(Me.UsrCntlUSTV) - Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) - Me.tbUSTVAntrage.Name = "tbUSTVAntrage" - Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) - Me.tbUSTVAntrage.Size = New System.Drawing.Size(1636, 1109) - Me.tbUSTVAntrage.TabIndex = 9 - Me.tbUSTVAntrage.Text = "USTV-Anträge" - Me.tbUSTVAntrage.UseVisualStyleBackColor = True - ' - 'cntxtExcel - ' - Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem6}) - Me.cntxtExcel.Name = "cntxtExcel" - Me.cntxtExcel.Size = New System.Drawing.Size(211, 48) - Me.cntxtExcel.Text = "Excel" - ' - 'ToolStripMenuItem3 - ' - Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" - Me.ToolStripMenuItem3.Size = New System.Drawing.Size(210, 22) - Me.ToolStripMenuItem3.Text = "Einfach" - ' - 'ToolStripMenuItem6 - ' - Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" - Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) - Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" - ' - 'btnAbfVerb - ' - Me.btnAbfVerb.BackColor = System.Drawing.Color.White - Me.btnAbfVerb.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAbfVerb.ForeColor = System.Drawing.Color.Black - Me.btnAbfVerb.Location = New System.Drawing.Point(1024, 43) - Me.btnAbfVerb.Name = "btnAbfVerb" - Me.btnAbfVerb.Size = New System.Drawing.Size(165, 25) - Me.btnAbfVerb.TabIndex = 1 - Me.btnAbfVerb.Text = "Abfertigungsverbot setzen" - Me.btnAbfVerb.UseVisualStyleBackColor = False - Me.btnAbfVerb.Visible = False - ' - 'lblAbfVerb - ' - Me.lblAbfVerb.AutoSize = True - Me.lblAbfVerb.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.lblAbfVerb.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAbfVerb.ForeColor = System.Drawing.Color.White - Me.lblAbfVerb.Location = New System.Drawing.Point(1410, 117) - Me.lblAbfVerb.Name = "lblAbfVerb" - Me.lblAbfVerb.Size = New System.Drawing.Size(242, 20) - Me.lblAbfVerb.TabIndex = 2 - Me.lblAbfVerb.Text = "! ABFERTIGUNGSVERBOT !" - Me.lblAbfVerb.Visible = False - ' - 'ContextMenuStrip1 - ' - Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) - ' - 'ContextMenuStrip2 - ' - Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LöschenToolStripMenuItem}) - Me.ContextMenuStrip2.Name = "ContextMenuStrip1" - Me.ContextMenuStrip2.Size = New System.Drawing.Size(119, 26) - ' - 'LöschenToolStripMenuItem - ' - Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" - Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22) - Me.LöschenToolStripMenuItem.Text = "Löschen" - ' - 'ContextMenuStrip3 - ' - Me.ContextMenuStrip3.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1}) - Me.ContextMenuStrip3.Name = "ContextMenuStrip1" - Me.ContextMenuStrip3.Size = New System.Drawing.Size(119, 26) - ' - 'ToolStripMenuItem1 - ' - Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" - Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22) - Me.ToolStripMenuItem1.Text = "Löschen" - ' - 'mne - ' - Me.mne.AutoSize = False - Me.mne.BackgroundImage = Global.SDL.My.Resources.Resources.transp - Me.mne.Dock = System.Windows.Forms.DockStyle.Bottom - Me.mne.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.mne.ImageScalingSize = New System.Drawing.Size(25, 25) - Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem8, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7}) - Me.mne.Location = New System.Drawing.Point(0, 31) - Me.mne.Name = "mne" - Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0) - Me.mne.Size = New System.Drawing.Size(1652, 81) - Me.mne.TabIndex = 3 - Me.mne.Text = "mnue" - ' - 'AllgemeinToolStripMenuItem - ' - Me.AllgemeinToolStripMenuItem.AutoSize = False - Me.AllgemeinToolStripMenuItem.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.AllgemeinToolStripMenuItem.ForeColor = System.Drawing.Color.White - Me.AllgemeinToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.report - Me.AllgemeinToolStripMenuItem.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.AllgemeinToolStripMenuItem.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.AllgemeinToolStripMenuItem.Name = "AllgemeinToolStripMenuItem" - Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(94, 70) - Me.AllgemeinToolStripMenuItem.Text = "Allgemein" - Me.AllgemeinToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.AllgemeinToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'ToolStripMenuItem2 - ' - Me.ToolStripMenuItem2.AutoSize = False - Me.ToolStripMenuItem2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem2.Image = Global.SDL.My.Resources.Resources.kunden - Me.ToolStripMenuItem2.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem2.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" - Me.ToolStripMenuItem2.Size = New System.Drawing.Size(122, 70) - Me.ToolStripMenuItem2.Text = "Firmendaten" - Me.ToolStripMenuItem2.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'ToolStripMenuItem4 - ' - Me.ToolStripMenuItem4.AutoSize = False - Me.ToolStripMenuItem4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ToolStripMenuItem4.DropDown = Me.cntxtCntxtMDM - Me.ToolStripMenuItem4.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.logo_mdm - Me.ToolStripMenuItem4.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem4.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem4.MergeIndex = 10 - Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" - Me.ToolStripMenuItem4.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) - Me.ToolStripMenuItem4.Size = New System.Drawing.Size(94, 60) - Me.ToolStripMenuItem4.Text = "Maut/Diesel" - Me.ToolStripMenuItem4.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'cntxtCntxtMDM - ' - Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" - Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8 - Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) - Me.cntxtCntxtMDM.Text = "cntxtMDM" - ' - 'ToolStripMenuItem8 - ' - Me.ToolStripMenuItem8.AutoSize = False - Me.ToolStripMenuItem8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ToolStripMenuItem8.DropDown = Me.cntxtCntxtMDM - Me.ToolStripMenuItem8.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem8.Image = Global.SDL.My.Resources.Resources.logo_mdm - Me.ToolStripMenuItem8.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem8.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem8.MergeIndex = 10 - Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" - Me.ToolStripMenuItem8.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) - Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 60) - Me.ToolStripMenuItem8.Text = "USTV" - Me.ToolStripMenuItem8.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem8.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'ToolStripMenuItem5 - ' - Me.ToolStripMenuItem5.AutoSize = False - Me.ToolStripMenuItem5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.ToolStripMenuItem5.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.zoll - Me.ToolStripMenuItem5.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem5.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" - Me.ToolStripMenuItem5.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) - Me.ToolStripMenuItem5.Size = New System.Drawing.Size(55, 60) - Me.ToolStripMenuItem5.Text = "Zoll" - Me.ToolStripMenuItem5.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText - ' - 'ToolStripMenuItem7 - ' - Me.ToolStripMenuItem7.AutoSize = False - Me.ToolStripMenuItem7.ForeColor = System.Drawing.Color.White - Me.ToolStripMenuItem7.Image = Global.SDL.My.Resources.Resources.checklist1 - Me.ToolStripMenuItem7.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.ToolStripMenuItem7.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None - Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" - Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(0) - Me.ToolStripMenuItem7.Size = New System.Drawing.Size(150, 60) - Me.ToolStripMenuItem7.Text = "Offerte / Preise" - Me.ToolStripMenuItem7.TextAlign = System.Drawing.ContentAlignment.BottomCenter - Me.ToolStripMenuItem7.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay - ' - 'pnl - ' - Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.pnl.Controls.Add(Me.pnlInfo) - Me.pnl.Controls.Add(Me.lblINAKTIV) - Me.pnl.Controls.Add(Me.mne) - Me.pnl.Controls.Add(Me.KdSearchBox1) - Me.pnl.Dock = System.Windows.Forms.DockStyle.Top - Me.pnl.Location = New System.Drawing.Point(0, 0) - Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(1652, 112) - Me.pnl.TabIndex = 0 - ' - 'lblINAKTIV - ' - Me.lblINAKTIV.AutoSize = True - Me.lblINAKTIV.BackColor = System.Drawing.Color.White - Me.lblINAKTIV.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblINAKTIV.ForeColor = System.Drawing.Color.Red - Me.lblINAKTIV.Location = New System.Drawing.Point(1070, 8) - Me.lblINAKTIV.Name = "lblINAKTIV" - Me.lblINAKTIV.Size = New System.Drawing.Size(98, 20) - Me.lblINAKTIV.TabIndex = 2 - Me.lblINAKTIV.Text = "! INAKTIV !" - Me.lblINAKTIV.Visible = False - ' - 'tbiLeistungen - ' - Me.tbiLeistungen.Name = "tbiLeistungen" - Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) - Me.tbiLeistungen.Text = "Leistungen" - ' - 'tbiKartenverwaltung - ' - Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" - Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) - Me.tbiKartenverwaltung.Text = "Kartenverwaltung" - ' - 'tbiLKW - ' - Me.tbiLKW.Name = "tbiLKW" - Me.tbiLKW.Size = New System.Drawing.Size(186, 22) - Me.tbiLKW.Text = "LKWs" - ' - 'tbiVERAGCard - ' - Me.tbiVERAGCard.Name = "tbiVERAGCard" - Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) - Me.tbiVERAGCard.Text = "VERAG Card" - ' - 'cboFirmaFMZOLL - ' - Me.cboFirmaFMZOLL._allowedValuesFreiText = Nothing - Me.cboFirmaFMZOLL._allowFreiText = False - Me.cboFirmaFMZOLL._value = "" - Me.cboFirmaFMZOLL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboFirmaFMZOLL.FormattingEnabled = True - Me.cboFirmaFMZOLL.Location = New System.Drawing.Point(354, 567) - Me.cboFirmaFMZOLL.Name = "cboFirmaFMZOLL" - Me.cboFirmaFMZOLL.Size = New System.Drawing.Size(184, 21) - Me.cboFirmaFMZOLL.TabIndex = 179 - ' - 'scanErstbestellung - ' - Me.scanErstbestellung._ARCHIV = True - Me.scanErstbestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanErstbestellung._DATENSERVER_ORDNER = "MDM" - Me.scanErstbestellung._DATENSERVER_UOrdner1 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner2 = Nothing - Me.scanErstbestellung._DATENSERVER_UOrdner3 = Nothing - Me.scanErstbestellung._MULTI_FILES = True - Me.scanErstbestellung._TEXT_PDF = "Erstbestellung" - Me.scanErstbestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanErstbestellung.BackColor = System.Drawing.Color.White - Me.scanErstbestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanErstbestellung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanErstbestellung.Location = New System.Drawing.Point(1, 1) - Me.scanErstbestellung.Margin = New System.Windows.Forms.Padding(1) - Me.scanErstbestellung.Name = "scanErstbestellung" - Me.scanErstbestellung.Size = New System.Drawing.Size(137, 24) - Me.scanErstbestellung.TabIndex = 172 - ' - 'scanJaraVereinbarung - ' - Me.scanJaraVereinbarung._ARCHIV = True - Me.scanJaraVereinbarung._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanJaraVereinbarung._DATENSERVER_ORDNER = "MDM" - Me.scanJaraVereinbarung._DATENSERVER_UOrdner1 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner2 = Nothing - Me.scanJaraVereinbarung._DATENSERVER_UOrdner3 = Nothing - Me.scanJaraVereinbarung._MULTI_FILES = True - Me.scanJaraVereinbarung._TEXT_PDF = "Jara-Vereinbarung" - Me.scanJaraVereinbarung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanJaraVereinbarung.BackColor = System.Drawing.Color.White - Me.scanJaraVereinbarung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanJaraVereinbarung.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanJaraVereinbarung.Location = New System.Drawing.Point(1, 27) - Me.scanJaraVereinbarung.Margin = New System.Windows.Forms.Padding(1) - Me.scanJaraVereinbarung.Name = "scanJaraVereinbarung" - Me.scanJaraVereinbarung.Size = New System.Drawing.Size(137, 24) - Me.scanJaraVereinbarung.TabIndex = 173 - ' - 'scanMWSTAgreement - ' - Me.scanMWSTAgreement._ARCHIV = True - Me.scanMWSTAgreement._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanMWSTAgreement._DATENSERVER_ORDNER = "MDM" - Me.scanMWSTAgreement._DATENSERVER_UOrdner1 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner2 = Nothing - Me.scanMWSTAgreement._DATENSERVER_UOrdner3 = Nothing - Me.scanMWSTAgreement._MULTI_FILES = True - Me.scanMWSTAgreement._TEXT_PDF = "MST Agreement" - Me.scanMWSTAgreement.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanMWSTAgreement.BackColor = System.Drawing.Color.White - Me.scanMWSTAgreement.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanMWSTAgreement.Cursor = System.Windows.Forms.Cursors.Hand - Me.scanMWSTAgreement.Location = New System.Drawing.Point(1, 53) - Me.scanMWSTAgreement.Margin = New System.Windows.Forms.Padding(1) - Me.scanMWSTAgreement.Name = "scanMWSTAgreement" - Me.scanMWSTAgreement.Size = New System.Drawing.Size(137, 24) - Me.scanMWSTAgreement.TabIndex = 174 - Me.scanMWSTAgreement.Visible = False - ' - 'scanSDLSonst - ' - Me.scanSDLSonst._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSDLSonst._DATENSERVER_ORDNER = "MDM" - Me.scanSDLSonst._DATENSERVER_UOrdner1 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner2 = "" - Me.scanSDLSonst._DATENSERVER_UOrdner3 = "" - Me.scanSDLSonst._OPEN_ORIGINAL = False - Me.scanSDLSonst._TYPE = "PDF" - Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSDLSonst.BackColor = System.Drawing.Color.White - Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSDLSonst.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSDLSonst.Location = New System.Drawing.Point(890, 19) - Me.scanSDLSonst.Margin = New System.Windows.Forms.Padding(0) - Me.scanSDLSonst.Name = "scanSDLSonst" - Me.scanSDLSonst.Size = New System.Drawing.Size(260, 124) - Me.scanSDLSonst.TabIndex = 173 - ' - 'txtMautDE_BenutzerNr - ' - Me.txtMautDE_BenutzerNr._DateTimeOnly = False - Me.txtMautDE_BenutzerNr._numbersOnly = True - Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = "" - Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True - Me.txtMautDE_BenutzerNr._Prozent = False - Me.txtMautDE_BenutzerNr._ShortDateNew = False - Me.txtMautDE_BenutzerNr._ShortDateOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly = False - Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False - Me.txtMautDE_BenutzerNr._value = "" - Me.txtMautDE_BenutzerNr._Waehrung = False - Me.txtMautDE_BenutzerNr._WaehrungZeichen = True - Me.txtMautDE_BenutzerNr.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_BenutzerNr.Location = New System.Drawing.Point(72, 21) - Me.txtMautDE_BenutzerNr.MaxLineLength = -1 - Me.txtMautDE_BenutzerNr.MaxLines_Warning = "" - Me.txtMautDE_BenutzerNr.MaxLines_Warning_Label = Nothing - Me.txtMautDE_BenutzerNr.Name = "txtMautDE_BenutzerNr" - Me.txtMautDE_BenutzerNr.Size = New System.Drawing.Size(129, 20) - Me.txtMautDE_BenutzerNr.TabIndex = 18 - ' - 'txtMautDE_FlottenPIN - ' - Me.txtMautDE_FlottenPIN._DateTimeOnly = False - Me.txtMautDE_FlottenPIN._numbersOnly = True - Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = "" - Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True - Me.txtMautDE_FlottenPIN._Prozent = False - Me.txtMautDE_FlottenPIN._ShortDateNew = False - Me.txtMautDE_FlottenPIN._ShortDateOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly = False - Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False - Me.txtMautDE_FlottenPIN._value = "" - Me.txtMautDE_FlottenPIN._Waehrung = False - Me.txtMautDE_FlottenPIN._WaehrungZeichen = True - Me.txtMautDE_FlottenPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDE_FlottenPIN.Location = New System.Drawing.Point(72, 47) - Me.txtMautDE_FlottenPIN.MaxLineLength = -1 - Me.txtMautDE_FlottenPIN.MaxLines_Warning = "" - Me.txtMautDE_FlottenPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDE_FlottenPIN.Name = "txtMautDE_FlottenPIN" - Me.txtMautDE_FlottenPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDE_FlottenPIN.TabIndex = 14 - ' - 'txtMautDEMasterPIN - ' - Me.txtMautDEMasterPIN._DateTimeOnly = False - Me.txtMautDEMasterPIN._numbersOnly = True - Me.txtMautDEMasterPIN._numbersOnlyKommastellen = "" - Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True - Me.txtMautDEMasterPIN._Prozent = False - Me.txtMautDEMasterPIN._ShortDateNew = False - Me.txtMautDEMasterPIN._ShortDateOnly = False - Me.txtMautDEMasterPIN._TimeOnly = False - Me.txtMautDEMasterPIN._TimeOnly_Seconds = False - Me.txtMautDEMasterPIN._value = "" - Me.txtMautDEMasterPIN._Waehrung = False - Me.txtMautDEMasterPIN._WaehrungZeichen = True - Me.txtMautDEMasterPIN.ForeColor = System.Drawing.Color.Black - Me.txtMautDEMasterPIN.Location = New System.Drawing.Point(207, 47) - Me.txtMautDEMasterPIN.MaxLineLength = -1 - Me.txtMautDEMasterPIN.MaxLines_Warning = "" - Me.txtMautDEMasterPIN.MaxLines_Warning_Label = Nothing - Me.txtMautDEMasterPIN.Name = "txtMautDEMasterPIN" - Me.txtMautDEMasterPIN.Size = New System.Drawing.Size(63, 20) - Me.txtMautDEMasterPIN.TabIndex = 16 - ' 'scanUebernahmebestätigungen ' Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" @@ -2244,6 +1927,93 @@ Partial Class frmKundenblatt Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) Me.scanVertragVeragKd.TabIndex = 0 ' + 'tbBesuchsberichte + ' + Me.tbBesuchsberichte.Location = New System.Drawing.Point(4, 22) + Me.tbBesuchsberichte.Name = "tbBesuchsberichte" + Me.tbBesuchsberichte.Padding = New System.Windows.Forms.Padding(3) + Me.tbBesuchsberichte.Size = New System.Drawing.Size(178, 39) + Me.tbBesuchsberichte.TabIndex = 9 + Me.tbBesuchsberichte.Text = "Besuchsberichte" + Me.tbBesuchsberichte.UseVisualStyleBackColor = True + ' + 'tbFremdrechnungen + ' + Me.tbFremdrechnungen.Location = New System.Drawing.Point(4, 22) + Me.tbFremdrechnungen.Name = "tbFremdrechnungen" + Me.tbFremdrechnungen.Size = New System.Drawing.Size(178, 39) + Me.tbFremdrechnungen.TabIndex = 10 + Me.tbFremdrechnungen.Text = "Fremdrechnungen" + Me.tbFremdrechnungen.UseVisualStyleBackColor = True + ' + 'tbOfferte + ' + Me.tbOfferte.Controls.Add(Me.UsrCntlOfferte1) + Me.tbOfferte.Location = New System.Drawing.Point(4, 25) + Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) + Me.tbOfferte.Name = "tbOfferte" + Me.tbOfferte.Size = New System.Drawing.Size(1644, 1135) + Me.tbOfferte.TabIndex = 11 + Me.tbOfferte.Text = "Offerte" + Me.tbOfferte.UseVisualStyleBackColor = True + ' + 'UsrCntlOfferte1 + ' + Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White + Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) + Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" + Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1135) + Me.UsrCntlOfferte1.TabIndex = 0 + ' + 'tbUSTV + ' + Me.tbUSTV.Controls.Add(Me.tbcntrUSTV) + Me.tbUSTV.Location = New System.Drawing.Point(4, 25) + Me.tbUSTV.Name = "tbUSTV" + Me.tbUSTV.Size = New System.Drawing.Size(1644, 1135) + Me.tbUSTV.TabIndex = 12 + Me.tbUSTV.Text = "USTV" + Me.tbUSTV.UseVisualStyleBackColor = True + ' + 'tbcntrUSTV + ' + Me.tbcntrUSTV.Controls.Add(Me.tbUSTVDokumente) + Me.tbcntrUSTV.Controls.Add(Me.tbUSTVAntrage) + Me.tbcntrUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.tbcntrUSTV.Location = New System.Drawing.Point(0, 0) + Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0) + Me.tbcntrUSTV.Name = "tbcntrUSTV" + Me.tbcntrUSTV.SelectedIndex = 0 + Me.tbcntrUSTV.Size = New System.Drawing.Size(1644, 1135) + Me.tbcntrUSTV.TabIndex = 1 + ' + 'tbUSTVDokumente + ' + Me.tbUSTVDokumente.Controls.Add(Me.Label8) + Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVsonstigeDokumente) + Me.tbUSTVDokumente.Controls.Add(Me.Label27) + Me.tbUSTVDokumente.Controls.Add(Me.Label37) + Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVFABest) + Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten) + Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22) + Me.tbUSTVDokumente.Name = "tbUSTVDokumente" + Me.tbUSTVDokumente.Size = New System.Drawing.Size(1636, 1109) + Me.tbUSTVDokumente.TabIndex = 8 + Me.tbUSTVDokumente.Text = "Dokumente" + Me.tbUSTVDokumente.UseVisualStyleBackColor = True + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(604, 17) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(126, 13) + Me.Label8.TabIndex = 8 + Me.Label8.Text = "sonstige Dokumente:" + ' 'scanUSTVsonstigeDokumente ' Me.scanUSTVsonstigeDokumente._DATENSERVER_KATEGORIE = "DOKUMENTE" @@ -2263,6 +2033,26 @@ Partial Class frmKundenblatt Me.scanUSTVsonstigeDokumente.Size = New System.Drawing.Size(285, 505) Me.scanUSTVsonstigeDokumente.TabIndex = 7 ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label27.Location = New System.Drawing.Point(311, 17) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(153, 13) + Me.Label27.TabIndex = 6 + Me.Label27.Text = "Finanzamt-Bestätigungen:" + ' + 'Label37 + ' + Me.Label37.AutoSize = True + Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label37.Location = New System.Drawing.Point(14, 17) + Me.Label37.Name = "Label37" + Me.Label37.Size = New System.Drawing.Size(113, 13) + Me.Label37.TabIndex = 2 + Me.Label37.Text = "USTV Vollmachten" + ' 'scanUSTVFABest ' Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE" @@ -2301,6 +2091,243 @@ Partial Class frmKundenblatt Me.scanUSTVVollmachten.Size = New System.Drawing.Size(285, 505) Me.scanUSTVVollmachten.TabIndex = 1 ' + 'tbUSTVAntrage + ' + Me.tbUSTVAntrage.Controls.Add(Me.UsrCntlUSTV) + Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22) + Me.tbUSTVAntrage.Name = "tbUSTVAntrage" + Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3) + Me.tbUSTVAntrage.Size = New System.Drawing.Size(184, 45) + Me.tbUSTVAntrage.TabIndex = 9 + Me.tbUSTVAntrage.Text = "USTV-Anträge" + Me.tbUSTVAntrage.UseVisualStyleBackColor = True + ' + 'UsrCntlUSTV + ' + Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlUSTV.Name = "UsrCntlUSTV" + Me.UsrCntlUSTV.Size = New System.Drawing.Size(178, 39) + Me.UsrCntlUSTV.TabIndex = 0 + ' + 'cntxtExcel + ' + Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem6}) + Me.cntxtExcel.Name = "cntxtExcel" + Me.cntxtExcel.Size = New System.Drawing.Size(211, 48) + Me.cntxtExcel.Text = "Excel" + ' + 'ToolStripMenuItem3 + ' + Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3" + Me.ToolStripMenuItem3.Size = New System.Drawing.Size(210, 22) + Me.ToolStripMenuItem3.Text = "Einfach" + ' + 'ToolStripMenuItem6 + ' + Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6" + Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) + Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" + ' + 'btnAbfVerb + ' + Me.btnAbfVerb.BackColor = System.Drawing.Color.White + Me.btnAbfVerb.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnAbfVerb.ForeColor = System.Drawing.Color.Black + Me.btnAbfVerb.Location = New System.Drawing.Point(1024, 43) + Me.btnAbfVerb.Name = "btnAbfVerb" + Me.btnAbfVerb.Size = New System.Drawing.Size(165, 25) + Me.btnAbfVerb.TabIndex = 1 + Me.btnAbfVerb.Text = "Abfertigungsverbot setzen" + Me.btnAbfVerb.UseVisualStyleBackColor = False + Me.btnAbfVerb.Visible = False + ' + 'lblAbfVerb + ' + Me.lblAbfVerb.AutoSize = True + Me.lblAbfVerb.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lblAbfVerb.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblAbfVerb.ForeColor = System.Drawing.Color.White + Me.lblAbfVerb.Location = New System.Drawing.Point(1410, 117) + Me.lblAbfVerb.Name = "lblAbfVerb" + Me.lblAbfVerb.Size = New System.Drawing.Size(242, 20) + Me.lblAbfVerb.TabIndex = 2 + Me.lblAbfVerb.Text = "! ABFERTIGUNGSVERBOT !" + Me.lblAbfVerb.Visible = False + ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4) + ' + 'ContextMenuStrip2 + ' + Me.ContextMenuStrip2.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LöschenToolStripMenuItem}) + Me.ContextMenuStrip2.Name = "ContextMenuStrip1" + Me.ContextMenuStrip2.Size = New System.Drawing.Size(119, 26) + ' + 'LöschenToolStripMenuItem + ' + Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem" + Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22) + Me.LöschenToolStripMenuItem.Text = "Löschen" + ' + 'ContextMenuStrip3 + ' + Me.ContextMenuStrip3.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.ContextMenuStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1}) + Me.ContextMenuStrip3.Name = "ContextMenuStrip1" + Me.ContextMenuStrip3.Size = New System.Drawing.Size(119, 26) + ' + 'ToolStripMenuItem1 + ' + Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1" + Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22) + Me.ToolStripMenuItem1.Text = "Löschen" + ' + 'mne + ' + Me.mne.AutoSize = False + Me.mne.BackgroundImage = Global.SDL.My.Resources.Resources.transp + Me.mne.Dock = System.Windows.Forms.DockStyle.Bottom + Me.mne.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.mne.ImageScalingSize = New System.Drawing.Size(25, 25) + Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem8, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7}) + Me.mne.Location = New System.Drawing.Point(0, 31) + Me.mne.Name = "mne" + Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0) + Me.mne.Size = New System.Drawing.Size(1652, 81) + Me.mne.TabIndex = 3 + Me.mne.Text = "mnue" + ' + 'AllgemeinToolStripMenuItem + ' + Me.AllgemeinToolStripMenuItem.AutoSize = False + Me.AllgemeinToolStripMenuItem.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.AllgemeinToolStripMenuItem.ForeColor = System.Drawing.Color.White + Me.AllgemeinToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.report + Me.AllgemeinToolStripMenuItem.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.AllgemeinToolStripMenuItem.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.AllgemeinToolStripMenuItem.Name = "AllgemeinToolStripMenuItem" + Me.AllgemeinToolStripMenuItem.Size = New System.Drawing.Size(94, 70) + Me.AllgemeinToolStripMenuItem.Text = "Allgemein" + Me.AllgemeinToolStripMenuItem.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.AllgemeinToolStripMenuItem.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'ToolStripMenuItem2 + ' + Me.ToolStripMenuItem2.AutoSize = False + Me.ToolStripMenuItem2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.ToolStripMenuItem2.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem2.Image = Global.SDL.My.Resources.Resources.kunden + Me.ToolStripMenuItem2.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem2.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2" + Me.ToolStripMenuItem2.Size = New System.Drawing.Size(122, 70) + Me.ToolStripMenuItem2.Text = "Firmendaten" + Me.ToolStripMenuItem2.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'ToolStripMenuItem4 + ' + Me.ToolStripMenuItem4.AutoSize = False + Me.ToolStripMenuItem4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.ToolStripMenuItem4.DropDown = Me.cntxtCntxtMDM + Me.ToolStripMenuItem4.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem4.Image = Global.SDL.My.Resources.Resources.logo_mdm + Me.ToolStripMenuItem4.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem4.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem4.MergeIndex = 10 + Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4" + Me.ToolStripMenuItem4.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) + Me.ToolStripMenuItem4.Size = New System.Drawing.Size(94, 60) + Me.ToolStripMenuItem4.Text = "Maut/Diesel" + Me.ToolStripMenuItem4.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'cntxtCntxtMDM + ' + Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" + Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4 + Me.cntxtCntxtMDM.Size = New System.Drawing.Size(181, 26) + Me.cntxtCntxtMDM.Text = "cntxtMDM" + ' + 'ToolStripMenuItem8 + ' + Me.ToolStripMenuItem8.AutoSize = False + Me.ToolStripMenuItem8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.ToolStripMenuItem8.DropDown = Me.cntxtCntxtMDM + Me.ToolStripMenuItem8.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem8.Image = Global.SDL.My.Resources.Resources.logo_mdm + Me.ToolStripMenuItem8.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem8.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem8.MergeIndex = 10 + Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8" + Me.ToolStripMenuItem8.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) + Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 60) + Me.ToolStripMenuItem8.Text = "USTV" + Me.ToolStripMenuItem8.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem8.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'ToolStripMenuItem5 + ' + Me.ToolStripMenuItem5.AutoSize = False + Me.ToolStripMenuItem5.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.ToolStripMenuItem5.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.zoll + Me.ToolStripMenuItem5.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem5.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5" + Me.ToolStripMenuItem5.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0) + Me.ToolStripMenuItem5.Size = New System.Drawing.Size(55, 60) + Me.ToolStripMenuItem5.Text = "Zoll" + Me.ToolStripMenuItem5.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText + ' + 'ToolStripMenuItem7 + ' + Me.ToolStripMenuItem7.AutoSize = False + Me.ToolStripMenuItem7.ForeColor = System.Drawing.Color.White + Me.ToolStripMenuItem7.Image = Global.SDL.My.Resources.Resources.checklist1 + Me.ToolStripMenuItem7.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.ToolStripMenuItem7.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None + Me.ToolStripMenuItem7.Name = "ToolStripMenuItem7" + Me.ToolStripMenuItem7.Padding = New System.Windows.Forms.Padding(0) + Me.ToolStripMenuItem7.Size = New System.Drawing.Size(150, 60) + Me.ToolStripMenuItem7.Text = "Offerte / Preise" + Me.ToolStripMenuItem7.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.ToolStripMenuItem7.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay + ' + 'pnl + ' + Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnl.Controls.Add(Me.pnlInfo) + Me.pnl.Controls.Add(Me.lblINAKTIV) + Me.pnl.Controls.Add(Me.mne) + Me.pnl.Controls.Add(Me.KdSearchBox1) + Me.pnl.Dock = System.Windows.Forms.DockStyle.Top + Me.pnl.Location = New System.Drawing.Point(0, 0) + Me.pnl.Name = "pnl" + Me.pnl.Size = New System.Drawing.Size(1652, 112) + Me.pnl.TabIndex = 0 + ' + 'lblINAKTIV + ' + Me.lblINAKTIV.AutoSize = True + Me.lblINAKTIV.BackColor = System.Drawing.Color.White + Me.lblINAKTIV.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblINAKTIV.ForeColor = System.Drawing.Color.Red + Me.lblINAKTIV.Location = New System.Drawing.Point(1070, 8) + Me.lblINAKTIV.Name = "lblINAKTIV" + Me.lblINAKTIV.Size = New System.Drawing.Size(98, 20) + Me.lblINAKTIV.TabIndex = 2 + Me.lblINAKTIV.Text = "! INAKTIV !" + Me.lblINAKTIV.Visible = False + ' 'KdSearchBox1 ' Me.KdSearchBox1._AlleFirmenCLUSTER = False @@ -2335,56 +2362,29 @@ Partial Class frmKundenblatt Me.KdSearchBox1.TIMER_SEARCH = True Me.KdSearchBox1.usrcntl = Nothing ' - 'UsrcntlKundeBearbeitenFull1 + 'tbiLeistungen ' - Me.UsrcntlKundeBearbeitenFull1.BackColor = System.Drawing.Color.White - Me.UsrcntlKundeBearbeitenFull1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) - Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" - Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1638, 1129) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 + Me.tbiLeistungen.Name = "tbiLeistungen" + Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) + Me.tbiLeistungen.Text = "Leistungen" ' - 'usrcntlKarten + 'tbiKartenverwaltung ' - Me.usrcntlKarten.Cursor = System.Windows.Forms.Cursors.Default - Me.usrcntlKarten.Dock = System.Windows.Forms.DockStyle.Fill - Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3) - Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.usrcntlKarten.Name = "usrcntlKarten" - Me.usrcntlKarten.Size = New System.Drawing.Size(1624, 1080) - Me.usrcntlKarten.TabIndex = 0 + Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" + Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) + Me.tbiKartenverwaltung.Text = "Kartenverwaltung" ' - 'UsrCntlLKW1 + 'tbiLKW ' - Me.UsrCntlLKW1.BackColor = System.Drawing.Color.White - Me.UsrCntlLKW1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.UsrCntlLKW1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.UsrCntlLKW1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlLKW1.Location = New System.Drawing.Point(10, 0) - Me.UsrCntlLKW1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlLKW1.MaximumSize = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.Name = "UsrCntlLKW1" - Me.UsrCntlLKW1.Size = New System.Drawing.Size(1200, 1000) - Me.UsrCntlLKW1.TabIndex = 0 + Me.tbiLKW.Name = "tbiLKW" + Me.tbiLKW.Size = New System.Drawing.Size(186, 22) + Me.tbiLKW.Text = "LKWs" ' - 'UsrCntlOfferte1 + 'tbiVERAGCard ' - Me.UsrCntlOfferte1.BackColor = System.Drawing.Color.White - Me.UsrCntlOfferte1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) - Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" - Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1644, 1135) - Me.UsrCntlOfferte1.TabIndex = 0 - ' - 'UsrCntlUSTV - ' - Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3) - Me.UsrCntlUSTV.Name = "UsrCntlUSTV" - Me.UsrCntlUSTV.Size = New System.Drawing.Size(1630, 1086) - Me.UsrCntlUSTV.TabIndex = 0 + Me.tbiVERAGCard.Name = "tbiVERAGCard" + Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) + Me.tbiVERAGCard.Text = "VERAG Card" ' 'frmKundenblatt ' diff --git a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb index 9365705b..61adea2c 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb @@ -361,9 +361,9 @@ Partial Class usrcntlFremdrechnungen Me.cbxMax1000Eintrage.CheckState = System.Windows.Forms.CheckState.Checked Me.cbxMax1000Eintrage.Location = New System.Drawing.Point(8, 130) Me.cbxMax1000Eintrage.Name = "cbxMax1000Eintrage" - Me.cbxMax1000Eintrage.Size = New System.Drawing.Size(111, 17) + Me.cbxMax1000Eintrage.Size = New System.Drawing.Size(117, 17) Me.cbxMax1000Eintrage.TabIndex = 41 - Me.cbxMax1000Eintrage.Text = "max. 200 Einträge" + Me.cbxMax1000Eintrage.Text = "max. 1000 Einträge" Me.cbxMax1000Eintrage.UseVisualStyleBackColor = True ' 'lblEinträge diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb index b58862ee..35e79386 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb @@ -119,7 +119,7 @@ Partial Class usrcntlPDFScanList Me.cntxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.cntxt.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UmbenennenToolStripMenuItem, Me.LöschenToolStripMenuItem, Me.ToolStripSeparator1, Me.KopierenZwischenablageToolStripMenuItem, Me.AlsEmailSendenToolStripMenuItem}) Me.cntxt.Name = "cntxt" - Me.cntxt.Size = New System.Drawing.Size(218, 120) + Me.cntxt.Size = New System.Drawing.Size(218, 98) ' 'usrcntlPDFScanList ' diff --git a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb index 1ee3277e..bedfacea 100644 --- a/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb +++ b/VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb @@ -25,6 +25,7 @@ Public Class usrcntlPDFScanList Public Event FileAdded(id As String, path As String, name As String) + Public Event FileDeleted() Private Sub usrcntlPDFScan_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout ' Me.txt.Text = _TEXT_PDF @@ -187,6 +188,7 @@ Public Class usrcntlPDFScanList DS.DELETE_COMPLETE() End If initPdf() + RaiseEvent FileDeleted() End If Catch ex As Exception MsgBox(ex.Message) @@ -332,35 +334,76 @@ Public Class usrcntlPDFScanList e.Effect = DragDropEffects.All End Sub Private Sub txt_Click(sender As Object, e As DragEventArgs) Handles Me.DragDrop ', txt.DragDrop, Me.DragDrop, picPDF.DragDrop - If e.Data.GetDataPresent("FileDrop", True) = True Then - Dim FileList As String() = CType(e.Data.GetData("FileDrop"), Object) 'Hier wird der Variable "Wert" das übergeben, was wir auf die Form gezogen haben. Bei einer Datei wäre es dann der Pfad der Datei. - If FileList.Count > 0 Then - If Not _MULTI_FILES And FileList.Count > 1 Then - MsgBox("Es können nicht mehrere Dateien hochgeladen werden!") - Exit Sub - End If - For Each W In FileList - If W.ToUpper.EndsWith(".PDF") Then - Try - Dim bezeichnung = System.IO.Path.GetFileName(W).ToString - DS.uploadDataToDATENSERVER(W, bezeichnung, ".pdf") - 'Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) - 'RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) - 'If DS.DATA_LIST.LIST.Count > 0 Then - ' Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) - ' RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) - 'End If - Catch ex As Exception - MsgBox("FEHLER: UserControl möglicherweise nicht initialisiert!" & ex.Message & ex.StackTrace) - End Try + 'If e.Data.GetDataPresent("FileDrop", True) = True Then + ' Dim FileList As String() = CType(e.Data.GetData("FileDrop"), Object) 'Hier wird der Variable "Wert" das übergeben, was wir auf die Form gezogen haben. Bei einer Datei wäre es dann der Pfad der Datei. + ' If FileList.Count > 0 Then + ' If Not _MULTI_FILES And FileList.Count > 1 Then + ' MsgBox("Es können nicht mehrere Dateien hochgeladen werden!") + ' Exit Sub + ' End If + ' For Each W In FileList + ' If W.ToUpper.EndsWith(".PDF") Then + ' Try + ' Dim bezeichnung = System.IO.Path.GetFileName(W).ToString + ' DS.uploadDataToDATENSERVER(W, bezeichnung, ".pdf") + ' 'Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) + ' 'RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) + ' 'If DS.DATA_LIST.LIST.Count > 0 Then + ' ' Dim l As VERAG_PROG_ALLGEMEIN.cDatenarchiv_Collection = DS.DATA_LIST.LIST(DS.DATA_LIST.LIST.Count - 1) + ' ' RaiseEvent FileAdded(l.coll_id, l.coll_pfad, l.coll_bezeichnung) + ' 'End If + ' Catch ex As Exception + ' MsgBox("FEHLER: UserControl möglicherweise nicht initialisiert!" & ex.Message & ex.StackTrace) + ' End Try + ' End If + ' Next + ' initPdf() + ' End If + 'End If + + + Try + Dim added = False + + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + + If files.Count > 1 Then + MsgBox("Nur eine Datei möglich!") + ElseIf files.Count > 0 Then + If files(0) <> "" Then + Dim fio As New System.IO.FileInfo(files(0)) + + If DS.uploadDataToDATENSERVER(files(0), fio.Name, ".pdf") Then + RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name) + MsgBox("Dokument wurde hochgeladen.") + End If + End If - Next - initPdf() + End If + + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + Dim FilePath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.EmAilAttach(e) + If FilePath <> "" Then + Dim fio As New System.IO.FileInfo(FilePath) + If DS.uploadDataToDATENSERVER(FilePath, fio.Name, ".pdf") Then + RaiseEvent FileAdded(DS.da_id, DS.GET_TOP1_PATH, DS.da_name) + MsgBox("Dokument wurde hochgeladen.") + End If + End If End If - End If + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Sub Private Sub cntxt_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cntxt.Opening UmbenennenToolStripMenuItem.Visible = (MyListBox1.SelectedItems.Count = 1) End Sub + + End Class