diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 92096d24..c7acb5f3 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -659,7 +659,7 @@ Public Class cFakturierung Dim SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RG_TMP.FilialenNr, RG_TMP.AbfertigungsNr, RG_TMP.SpeditionsbuchUnterNr) If SPEDBUCH_TMP Is Nothing Then Return False - Dim f As New frmFaktEmail(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), SPEDBUCH_TMP, Nothing) + Dim f As New frmFaktEmail(RG_TMP, SPEDBUCH_TMP, Nothing) f.Show() Return True ' Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb) @@ -1648,17 +1648,19 @@ Public Class cFakturierung Return False End If - Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) - ' Nächste Rechnungsnummer speichern. - RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! - ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) - RG_NR.CHECK_RGNR() - RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr + RECHNUNG.[RechnungsNr] = getNewRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) + + 'Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) + '' Nächste Rechnungsnummer speichern. + 'RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! + '' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) + 'RG_NR.CHECK_RGNR() + 'RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr 'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr If RECHNUNG.SAVE Then Else - RG_NR.DECREASE_RGNR() ' Bei Fehler --> LfdRgNr um eins mindern. + VERAG_PROG_ALLGEMEIN.cRechnungsnummern.DECREASE_RGNR_NEW(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) ' Bei Fehler --> LfdRgNr um eins mindern. Return False End If @@ -1899,7 +1901,7 @@ Public Class cFakturierung Else sqlStr &= " ORDER BY Rechnungsausgang.Firma_ID, Rechnungsausgang.RechnungsKundenNr,Rechnungsausgang.FilialenNr,Rechnungsausgang.AbfertigungsNr, Rechnungsausgang.BelegartenNr, Rechnungsausgang.[Steuersatz %], Rechnungsausgang.Lastschrift, Rechnungsausgang.Währungscode, Rechnungsausgang.AvisoID " End If - MsgBox(sqlStr) + ' MsgBox(sqlStr) Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL") Return dt End Function @@ -2032,12 +2034,12 @@ Public Class cFakturierung Shared Function getNewRgNr(Firma_ID, Buchungsjahr) Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(Firma_ID, Buchungsjahr) + getNewRgNr = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet ' Nächste Rechnungsnummer speichern. RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe! ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen) - RG_NR.CHECK_RGNR() - getNewRgNr = RG_NR.LfdRechnungsNr + getNewRgNr = VERAG_PROG_ALLGEMEIN.cRechnungsnummern.CHECK_RGNR_NEW(getNewRgNr, Firma_ID, Buchungsjahr) End Function diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 4849b1b1..7c78eaaa 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -262,8 +262,12 @@ Public Class frmAbrechnungsMaske Case Else : orderBy = " ORDER BY /*[BelegartenKz] DESC,*/ FilialenNr, AbfertigungsNr, [RK_ID]" End Select + 'MsgBox("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & orderBy) + 'Exit Sub + Dim PARAM_printZollbeleg = VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("FAKTURIERUNG_PRINT_Zollbeleg") Dim dt = SQL.loadDgvBySql("SELECT RK_ID,Rechnungsdruck as Rechnungsdruck FROM Rechnungsausgang INNER JOIN Adressen ON AdressenNr=RechnungsKundenNr WHERE Status=0 " & getRGWhere("ER") & orderBy, "FMZOLL") + If dt IsNot Nothing Then If vbYes = MsgBox("Es werden " & dt.Rows.Count & " Rechnungen gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then Dim RechnungsDatum As Date = Now diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 554ac0e6..33ff9057 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -25,6 +25,7 @@ Public Class frmFaktEmail Dim xlsTransFerry As Boolean Dim RechnungsNr As Integer Dim FakturierungsGruppe As String + Dim Abfertigungsart As String Dim DruckDatumZeit As DateTime Dim AvisoIds As List(Of Integer) @@ -44,13 +45,13 @@ Public Class frmFaktEmail End Sub - Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False, Optional xlsTransFerry As Boolean = False, Optional FakturierungsGruppe As String = "") + Sub New(Firma_ID As Integer, SammelrechungArt As Integer, DatumBis As Date, Rechnungsdatum As Date, PrinterName As String, Optional EinzelAnlagen As Boolean = True, Optional Sammelbericht As Boolean = True, Optional KdNr As Integer = -1, Optional RechnungsdruckArt As Integer = -1, Optional ByRef listPDFs As List(Of String) = Nothing, Optional SB As String = "", ByRef Optional lastAktuelle_RgNr As Integer = -1, Optional AvisoIds As List(Of Integer) = Nothing, Optional xlsEvolog As Boolean = False, Optional xlsTransFerry As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "") '(Firma_ID As Integer, SammelrechungArt As Integer, KdNr As Integer, DatumBis As Date, SB As String, EinzelAnlagen As Boolean, Sammelbericht As Boolean) 'Sammelrechnung ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() - Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, KdNr, SB, AvisoIds) 'SQL.loadDgvBySql(sqlStr, "FMZOLL") + Me.SR_DT = cFakturierung.GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, KdNr, SB, AvisoIds, FakturierungsGruppe, Abfertigungsart) 'SQL.loadDgvBySql(sqlStr, "FMZOLL") Me.Firma_ID = Firma_ID Me.SammelrechungArt = SammelrechungArt Me.DatumBis = DatumBis @@ -63,6 +64,7 @@ Public Class frmFaktEmail Me.Rechnungsdatum = Rechnungsdatum Me.RechnungsNr = lastAktuelle_RgNr Me.FakturierungsGruppe = FakturierungsGruppe + Me.Abfertigungsart = Abfertigungsart Me.AvisoIds = AvisoIds SR = True End Sub @@ -260,7 +262,7 @@ Public Class frmFaktEmail '----------------------------------------------------------------- Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) If RechnungsNr <= 0 Then - cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked, FakturierungsGruppe) + cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked, FakturierungsGruppe, Abfertigungsart) RechnungsNr = lastAktuelle_RgNr Else Dim path = "" diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 51c8f7ee..0a1e1d95 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -216,7 +216,7 @@ Public Class frmFaktSammelRgDrucken If Not IsNumeric(getSelectionKdNr_Simple) Then MsgBox("Es muss eine eindeutige KundenNr ausgewählt werden!") : Exit Sub - Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked, cboFaktGrp._value) + Dim f As New frmFaktEmail(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr_Simple, -1, Nothing, cboSB._value,, getAvisoIds, cbxEVOLOG.Checked, cbxTransFerry.Checked, cboFaktGrp._value, cboAbfertigungsart._value) f.ShowDialog(Me) initDGV() 'Else diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index c52b47ce..9caa35bf 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/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb index d759e767..03543544 100644 --- a/SDL/My Project/Resources.Designer.vb +++ b/SDL/My Project/Resources.Designer.vb @@ -1513,6 +1513,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property plose_medpass() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("plose_medpass", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx index 22f9c7f9..2e4daf69 100644 --- a/SDL/My Project/Resources.resx +++ b/SDL/My Project/Resources.resx @@ -853,4 +853,7 @@ ..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\plose_medpass.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + \ No newline at end of file diff --git a/SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx b/SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx new file mode 100644 index 00000000..2d09647a Binary files /dev/null and b/SDL/Resources/MDM_Schreiben/Uebernahmebestätigung/ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx differ diff --git a/SDL/Resources/plose_medpass.png b/SDL/Resources/plose_medpass.png new file mode 100644 index 00000000..16f0ff11 Binary files /dev/null and b/SDL/Resources/plose_medpass.png differ diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 3fd8eee6..da7a7146 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -638,6 +638,12 @@ Component + + usrCntlSDLLeistungenPLOSE_MEDPASS.vb + + + UserControl + True True @@ -2847,6 +2853,9 @@ rptPLOSE_CustomerConsortio.vb + + usrCntlSDLLeistungenPLOSE_MEDPASS.vb + rptKontrolleLKW_TELOTEC.vb @@ -3882,6 +3891,9 @@ Always + + Always + Always @@ -4281,6 +4293,7 @@ + diff --git a/SDL/kunden/Vorauskasse/frmVorauskasse.vb b/SDL/kunden/Vorauskasse/frmVorauskasse.vb index 9c537f41..3dc6d78d 100644 --- a/SDL/kunden/Vorauskasse/frmVorauskasse.vb +++ b/SDL/kunden/Vorauskasse/frmVorauskasse.vb @@ -666,14 +666,14 @@ Public Class cVorauskasseOptions 'Wenn Benutzer der Vorauskasse nicht online, dann Benutzer der Sendung... If vk_QS_SachbearbeiterId IsNot Nothing Then sendToID = vk_QS_SachbearbeiterId - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO") art = "B" End If End If 'Wenn Benutzer der Sendung nicht online, dann Benutzer der Sendung .. - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO") art = "B" End If @@ -682,7 +682,7 @@ Public Class cVorauskasseOptions Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' --> Bezieht sich auf BU MA Case "IMEX" ' Bie IMEX kommen die MA durhc verschobene Dienstzeiten oft später Case Else - If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID)) Then + If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO") art = "T" End If diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb index 6f642b6b..6e590ff9 100644 --- a/SDL/kunden/frmKundenblatt.Designer.vb +++ b/SDL/kunden/frmKundenblatt.Designer.vb @@ -26,12 +26,22 @@ Partial Class frmKundenblatt 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() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenblatt)) Me.pnlInfo = New System.Windows.Forms.Panel() 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.Label17 = New System.Windows.Forms.Label() @@ -79,9 +89,6 @@ Partial Class frmKundenblatt Me.Panel5 = New System.Windows.Forms.Panel() 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() @@ -92,24 +99,18 @@ 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() @@ -128,19 +129,10 @@ Partial Class frmKundenblatt Me.Panel3 = New System.Windows.Forms.Panel() Me.tbDokumente = New System.Windows.Forms.TabPage() Me.Label7 = New System.Windows.Forms.Label() - Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() - Me.scanHKA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.Label3 = New System.Windows.Forms.Label() Me.lblSonstigeDokumente = New System.Windows.Forms.Label() - 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.tbOfferte = New System.Windows.Forms.TabPage() - Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() @@ -160,11 +152,30 @@ 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.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.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.pnlInfo.SuspendLayout() Me.tbFirmendaten.SuspendLayout() Me.Panel4.SuspendLayout() @@ -236,7 +247,7 @@ Partial Class frmKundenblatt Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) - Me.tbFirmendaten.Size = New System.Drawing.Size(1623, 642) + Me.tbFirmendaten.Size = New System.Drawing.Size(1623, 676) Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.Text = "Firmendaten" ' @@ -246,19 +257,9 @@ Partial Class frmKundenblatt Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(1617, 636) + Me.Panel4.Size = New System.Drawing.Size(1617, 670) 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(1617, 636) - Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 - ' 'tbcntrMain ' Me.tbcntrMain.Appearance = System.Windows.Forms.TabAppearance.FlatButtons @@ -273,7 +274,7 @@ Partial Class frmKundenblatt Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.SelectedIndex = 0 - Me.tbcntrMain.Size = New System.Drawing.Size(1631, 671) + Me.tbcntrMain.Size = New System.Drawing.Size(1631, 705) Me.tbcntrMain.TabIndex = 3 ' 'tbAllgemein @@ -306,7 +307,7 @@ Partial Class frmKundenblatt Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) - Me.tbAllgemein.Size = New System.Drawing.Size(1623, 642) + Me.tbAllgemein.Size = New System.Drawing.Size(1623, 676) Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.Text = "Allgemein" ' @@ -322,10 +323,34 @@ Partial Class frmKundenblatt 'dgvOfferte ' Me.dgvOfferte.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOfferte.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 Me.dgvOfferte.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvOfferte.DefaultCellStyle = DataGridViewCellStyle2 Me.dgvOfferte.Location = New System.Drawing.Point(433, 37) Me.dgvOfferte.Name = "dgvOfferte" Me.dgvOfferte.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvOfferte.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 Me.dgvOfferte.Size = New System.Drawing.Size(293, 320) Me.dgvOfferte.TabIndex = 12 ' @@ -589,19 +614,35 @@ Partial Class frmKundenblatt Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dgvSperrliste.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSperrliste.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4 Me.dgvSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle1.ForeColor = System.Drawing.Color.Black - DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.Color.Black + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSperrliste.DefaultCellStyle = DataGridViewCellStyle5 Me.dgvSperrliste.Location = New System.Drawing.Point(732, 36) Me.dgvSperrliste.Name = "dgvSperrliste" Me.dgvSperrliste.ReadOnly = True - Me.dgvSperrliste.Size = New System.Drawing.Size(828, 532) + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 + Me.dgvSperrliste.Size = New System.Drawing.Size(828, 566) Me.dgvSperrliste.TabIndex = 23 ' 'PictureBox2 @@ -655,7 +696,7 @@ Partial Class frmKundenblatt Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Name = "tbZoll" Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) - Me.tbZoll.Size = New System.Drawing.Size(1623, 642) + Me.tbZoll.Size = New System.Drawing.Size(1623, 676) Me.tbZoll.TabIndex = 9 Me.tbZoll.Text = "ZOLL" Me.tbZoll.UseVisualStyleBackColor = True @@ -667,7 +708,7 @@ Partial Class frmKundenblatt Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.SelectedIndex = 0 - Me.tbcntrZOLL.Size = New System.Drawing.Size(1617, 636) + Me.tbcntrZOLL.Size = New System.Drawing.Size(1617, 670) Me.tbcntrZOLL.TabIndex = 0 ' 'tabZoll_Artikel @@ -675,7 +716,7 @@ Partial Class frmKundenblatt Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) - Me.tabZoll_Artikel.Size = New System.Drawing.Size(1609, 610) + Me.tabZoll_Artikel.Size = New System.Drawing.Size(1609, 644) Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.UseVisualStyleBackColor = True @@ -686,7 +727,7 @@ Partial Class frmKundenblatt Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Name = "tbMdm" Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) - Me.tbMdm.Size = New System.Drawing.Size(1623, 642) + Me.tbMdm.Size = New System.Drawing.Size(1623, 676) Me.tbMdm.TabIndex = 10 Me.tbMdm.Text = "MDM" Me.tbMdm.UseVisualStyleBackColor = True @@ -704,7 +745,7 @@ Partial Class frmKundenblatt Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.SelectedIndex = 0 - Me.tbcntrMDM.Size = New System.Drawing.Size(1617, 636) + Me.tbcntrMDM.Size = New System.Drawing.Size(1617, 670) Me.tbcntrMDM.TabIndex = 0 ' 'tbSDL @@ -716,7 +757,7 @@ Partial Class frmKundenblatt Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Name = "tbSDL" Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) - Me.tbSDL.Size = New System.Drawing.Size(1609, 610) + Me.tbSDL.Size = New System.Drawing.Size(1609, 644) Me.tbSDL.TabIndex = 5 Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.UseVisualStyleBackColor = True @@ -725,16 +766,40 @@ Partial Class frmKundenblatt ' Me.dgvSDLLeistungenFull.AllowUserToAddRows = False Me.dgvSDLLeistungenFull.AllowUserToResizeRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvSDLLeistungenFull.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7 Me.dgvSDLLeistungenFull.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSDLLeistungenFull.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8 Me.dgvSDLLeistungenFull.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvSDLLeistungenFull.DefaultCellStyle = DataGridViewCellStyle9 Me.dgvSDLLeistungenFull.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvSDLLeistungenFull.Location = New System.Drawing.Point(3, 50) Me.dgvSDLLeistungenFull.Name = "dgvSDLLeistungenFull" Me.dgvSDLLeistungenFull.ReadOnly = True + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10 Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1603, 414) + Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1603, 448) Me.dgvSDLLeistungenFull.TabIndex = 5 ' 'Panel6 @@ -838,7 +903,7 @@ Partial Class frmKundenblatt Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom - Me.Panel5.Location = New System.Drawing.Point(3, 464) + Me.Panel5.Location = New System.Drawing.Point(3, 498) Me.Panel5.Name = "Panel5" Me.Panel5.Size = New System.Drawing.Size(1603, 143) Me.Panel5.TabIndex = 177 @@ -864,67 +929,6 @@ 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 @@ -1024,25 +1028,6 @@ 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 @@ -1099,29 +1084,6 @@ 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 @@ -1140,52 +1102,6 @@ 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 @@ -1211,21 +1127,11 @@ 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(178, 39) + Me.tbSDLKarten.Size = New System.Drawing.Size(1609, 644) 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) @@ -1233,7 +1139,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(178, 39) + Me.tbLKW.Size = New System.Drawing.Size(1609, 644) Me.tbLKW.TabIndex = 4 Me.tbLKW.Text = "LKWs" Me.tbLKW.UseVisualStyleBackColor = True @@ -1245,22 +1151,9 @@ 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(0, 33) + Me.pnlLKWRight.Size = New System.Drawing.Size(1297, 638) 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) @@ -1269,24 +1162,48 @@ 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, 33) + Me.pnlLKW.Size = New System.Drawing.Size(306, 638) Me.pnlLKW.TabIndex = 3 ' 'dgvLKW ' Me.dgvLKW.AllowUserToAddRows = False Me.dgvLKW.AllowUserToDeleteRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) - Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + Me.dgvLKW.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11 Me.dgvLKW.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle13 Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvLKW.Location = New System.Drawing.Point(0, 62) Me.dgvLKW.Name = "dgvLKW" Me.dgvLKW.ReadOnly = True + DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 Me.dgvLKW.RowHeadersVisible = False Me.dgvLKW.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvLKW.Size = New System.Drawing.Size(306, 0) + Me.dgvLKW.Size = New System.Drawing.Size(306, 464) Me.dgvLKW.TabIndex = 2 ' 'pnlLKWBottom @@ -1298,7 +1215,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, -79) + Me.pnlLKWBottom.Location = New System.Drawing.Point(0, 526) Me.pnlLKWBottom.Name = "pnlLKWBottom" Me.pnlLKWBottom.Size = New System.Drawing.Size(306, 112) Me.pnlLKWBottom.TabIndex = 3 @@ -1439,7 +1356,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(178, 39) + Me.tbVERAGCard.Size = New System.Drawing.Size(1609, 644) Me.tbVERAGCard.TabIndex = 6 Me.tbVERAGCard.Text = "VERAG Card" Me.tbVERAGCard.UseVisualStyleBackColor = True @@ -1451,16 +1368,16 @@ 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(172, 33) + Me.Panel3.Size = New System.Drawing.Size(1603, 638) Me.Panel3.TabIndex = 0 ' 'tbDokumente ' Me.tbDokumente.Controls.Add(Me.Label7) - Me.tbDokumente.Controls.Add(Me.scanUebernahmebestätigungen) - Me.tbDokumente.Controls.Add(Me.scanHKA) Me.tbDokumente.Controls.Add(Me.Label3) Me.tbDokumente.Controls.Add(Me.lblSonstigeDokumente) + Me.tbDokumente.Controls.Add(Me.scanUebernahmebestätigungen) + Me.tbDokumente.Controls.Add(Me.scanHKA) Me.tbDokumente.Controls.Add(Me.scanSonstiges) Me.tbDokumente.Controls.Add(Me.scanEULizenz) Me.tbDokumente.Controls.Add(Me.scanHRA) @@ -1469,7 +1386,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(178, 39) + Me.tbDokumente.Size = New System.Drawing.Size(1609, 644) Me.tbDokumente.TabIndex = 8 Me.tbDokumente.Text = "Dokumente" Me.tbDokumente.UseVisualStyleBackColor = True @@ -1484,45 +1401,6 @@ Partial Class frmKundenblatt Me.Label7.TabIndex = 6 Me.Label7.Text = "Übernahmebestätigungen:" ' - 'scanUebernahmebestätigungen - ' - Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" - Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" - Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False - Me.scanUebernahmebestätigungen._TYPE = "PDF" - Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White - Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default - Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) - Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) - Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" - Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) - Me.scanUebernahmebestätigungen.TabIndex = 5 - ' - 'scanHKA - ' - Me.scanHKA._ARCHIV = True - Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHKA._DATENSERVER_ORDNER = "MDM" - Me.scanHKA._DATENSERVER_UOrdner1 = Nothing - Me.scanHKA._DATENSERVER_UOrdner2 = Nothing - Me.scanHKA._DATENSERVER_UOrdner3 = Nothing - Me.scanHKA._MULTI_FILES = True - Me.scanHKA._TEXT_PDF = "Handelskammerauszug" - Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHKA.BackColor = System.Drawing.Color.White - Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHKA.Location = New System.Drawing.Point(17, 163) - Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHKA.Name = "scanHKA" - Me.scanHKA.Size = New System.Drawing.Size(168, 24) - Me.scanHKA.TabIndex = 4 - ' 'Label3 ' Me.Label3.AutoSize = True @@ -1543,131 +1421,12 @@ Partial Class frmKundenblatt Me.lblSonstigeDokumente.TabIndex = 2 Me.lblSonstigeDokumente.Text = "Sonstige Dokumente" ' - 'scanSonstiges - ' - Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" - Me.scanSonstiges._DATENSERVER_UOrdner1 = "" - Me.scanSonstiges._DATENSERVER_UOrdner2 = "" - Me.scanSonstiges._DATENSERVER_UOrdner3 = "" - Me.scanSonstiges._OPEN_ORIGINAL = False - Me.scanSonstiges._TYPE = "PDF" - Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanSonstiges.BackColor = System.Drawing.Color.White - Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default - Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) - Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) - Me.scanSonstiges.Name = "scanSonstiges" - Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) - Me.scanSonstiges.TabIndex = 1 - ' - 'scanEULizenz - ' - Me.scanEULizenz._ARCHIV = True - Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" - Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing - Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing - Me.scanEULizenz._MULTI_FILES = True - Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" - Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanEULizenz.BackColor = System.Drawing.Color.White - Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default - Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) - Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanEULizenz.Name = "scanEULizenz" - Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) - Me.scanEULizenz.TabIndex = 0 - ' - 'scanHRA - ' - Me.scanHRA._ARCHIV = True - Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanHRA._DATENSERVER_ORDNER = "MDM" - Me.scanHRA._DATENSERVER_UOrdner1 = Nothing - Me.scanHRA._DATENSERVER_UOrdner2 = Nothing - Me.scanHRA._DATENSERVER_UOrdner3 = Nothing - Me.scanHRA._MULTI_FILES = True - Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" - Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanHRA.BackColor = System.Drawing.Color.White - Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default - Me.scanHRA.Location = New System.Drawing.Point(17, 133) - Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanHRA.Name = "scanHRA" - Me.scanHRA.Size = New System.Drawing.Size(168, 24) - Me.scanHRA.TabIndex = 0 - ' - 'scanPersonalAusweisGF - ' - Me.scanPersonalAusweisGF._ARCHIV = True - Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing - Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing - Me.scanPersonalAusweisGF._MULTI_FILES = True - Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" - Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White - Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default - Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) - Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" - Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) - Me.scanPersonalAusweisGF.TabIndex = 0 - ' - 'scanBankGarantie - ' - Me.scanBankGarantie._ARCHIV = True - Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" - Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing - Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing - Me.scanBankGarantie._MULTI_FILES = True - Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" - Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanBankGarantie.BackColor = System.Drawing.Color.White - Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default - Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) - Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanBankGarantie.Name = "scanBankGarantie" - Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) - Me.scanBankGarantie.TabIndex = 0 - ' - 'scanVertragVeragKd - ' - Me.scanVertragVeragKd._ARCHIV = True - Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" - Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" - Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing - Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing - Me.scanVertragVeragKd._MULTI_FILES = True - Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" - Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink - Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White - Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default - Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) - Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.scanVertragVeragKd.Name = "scanVertragVeragKd" - 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.Size = New System.Drawing.Size(1609, 644) Me.tbBesuchsberichte.TabIndex = 9 Me.tbBesuchsberichte.Text = "Besuchsberichte" Me.tbBesuchsberichte.UseVisualStyleBackColor = True @@ -1678,21 +1437,11 @@ Partial Class frmKundenblatt 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(1623, 642) + Me.tbOfferte.Size = New System.Drawing.Size(1623, 676) 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(1623, 642) - Me.UsrCntlOfferte1.TabIndex = 0 - ' 'cntxtExcel ' Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) @@ -1894,6 +1643,337 @@ Partial Class frmKundenblatt 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" + ' + '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" + Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = "" + Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = "" + Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False + Me.scanUebernahmebestätigungen._TYPE = "PDF" + Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White + Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default + Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40) + Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0) + Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen" + Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505) + Me.scanUebernahmebestätigungen.TabIndex = 5 + ' + 'scanHKA + ' + Me.scanHKA._ARCHIV = True + Me.scanHKA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHKA._DATENSERVER_ORDNER = "MDM" + Me.scanHKA._DATENSERVER_UOrdner1 = Nothing + Me.scanHKA._DATENSERVER_UOrdner2 = Nothing + Me.scanHKA._DATENSERVER_UOrdner3 = Nothing + Me.scanHKA._MULTI_FILES = True + Me.scanHKA._TEXT_PDF = "Handelskammerauszug" + Me.scanHKA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHKA.BackColor = System.Drawing.Color.White + Me.scanHKA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHKA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHKA.Location = New System.Drawing.Point(17, 163) + Me.scanHKA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHKA.Name = "scanHKA" + Me.scanHKA.Size = New System.Drawing.Size(168, 24) + Me.scanHKA.TabIndex = 4 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges._OPEN_ORIGINAL = False + Me.scanSonstiges._TYPE = "PDF" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Default + Me.scanSonstiges.Location = New System.Drawing.Point(191, 40) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(285, 505) + Me.scanSonstiges.TabIndex = 1 + ' + 'scanEULizenz + ' + Me.scanEULizenz._ARCHIV = True + Me.scanEULizenz._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanEULizenz._DATENSERVER_ORDNER = "MDM" + Me.scanEULizenz._DATENSERVER_UOrdner1 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner2 = Nothing + Me.scanEULizenz._DATENSERVER_UOrdner3 = Nothing + Me.scanEULizenz._MULTI_FILES = True + Me.scanEULizenz._TEXT_PDF = "EU-Lizenz" + Me.scanEULizenz.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanEULizenz.BackColor = System.Drawing.Color.White + Me.scanEULizenz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanEULizenz.Cursor = System.Windows.Forms.Cursors.Default + Me.scanEULizenz.Location = New System.Drawing.Point(17, 197) + Me.scanEULizenz.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanEULizenz.Name = "scanEULizenz" + Me.scanEULizenz.Size = New System.Drawing.Size(168, 24) + Me.scanEULizenz.TabIndex = 0 + ' + 'scanHRA + ' + Me.scanHRA._ARCHIV = True + Me.scanHRA._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanHRA._DATENSERVER_ORDNER = "MDM" + Me.scanHRA._DATENSERVER_UOrdner1 = Nothing + Me.scanHRA._DATENSERVER_UOrdner2 = Nothing + Me.scanHRA._DATENSERVER_UOrdner3 = Nothing + Me.scanHRA._MULTI_FILES = True + Me.scanHRA._TEXT_PDF = "Handelsregisterauszug" + Me.scanHRA.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanHRA.BackColor = System.Drawing.Color.White + Me.scanHRA.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanHRA.Cursor = System.Windows.Forms.Cursors.Default + Me.scanHRA.Location = New System.Drawing.Point(17, 133) + Me.scanHRA.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanHRA.Name = "scanHRA" + Me.scanHRA.Size = New System.Drawing.Size(168, 24) + Me.scanHRA.TabIndex = 0 + ' + 'scanPersonalAusweisGF + ' + Me.scanPersonalAusweisGF._ARCHIV = True + Me.scanPersonalAusweisGF._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanPersonalAusweisGF._DATENSERVER_ORDNER = "MDM" + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner1 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner2 = Nothing + Me.scanPersonalAusweisGF._DATENSERVER_UOrdner3 = Nothing + Me.scanPersonalAusweisGF._MULTI_FILES = True + Me.scanPersonalAusweisGF._TEXT_PDF = "Personalausweis GF" + Me.scanPersonalAusweisGF.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanPersonalAusweisGF.BackColor = System.Drawing.Color.White + Me.scanPersonalAusweisGF.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanPersonalAusweisGF.Cursor = System.Windows.Forms.Cursors.Default + Me.scanPersonalAusweisGF.Location = New System.Drawing.Point(17, 99) + Me.scanPersonalAusweisGF.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanPersonalAusweisGF.Name = "scanPersonalAusweisGF" + Me.scanPersonalAusweisGF.Size = New System.Drawing.Size(168, 24) + Me.scanPersonalAusweisGF.TabIndex = 0 + ' + 'scanBankGarantie + ' + Me.scanBankGarantie._ARCHIV = True + Me.scanBankGarantie._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanBankGarantie._DATENSERVER_ORDNER = "MDM" + Me.scanBankGarantie._DATENSERVER_UOrdner1 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner2 = Nothing + Me.scanBankGarantie._DATENSERVER_UOrdner3 = Nothing + Me.scanBankGarantie._MULTI_FILES = True + Me.scanBankGarantie._TEXT_PDF = "Bankgarantie" + Me.scanBankGarantie.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanBankGarantie.BackColor = System.Drawing.Color.White + Me.scanBankGarantie.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanBankGarantie.Cursor = System.Windows.Forms.Cursors.Default + Me.scanBankGarantie.Location = New System.Drawing.Point(17, 70) + Me.scanBankGarantie.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanBankGarantie.Name = "scanBankGarantie" + Me.scanBankGarantie.Size = New System.Drawing.Size(168, 24) + Me.scanBankGarantie.TabIndex = 0 + ' + 'scanVertragVeragKd + ' + Me.scanVertragVeragKd._ARCHIV = True + Me.scanVertragVeragKd._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanVertragVeragKd._DATENSERVER_ORDNER = "MDM" + Me.scanVertragVeragKd._DATENSERVER_UOrdner1 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner2 = Nothing + Me.scanVertragVeragKd._DATENSERVER_UOrdner3 = Nothing + Me.scanVertragVeragKd._MULTI_FILES = True + Me.scanVertragVeragKd._TEXT_PDF = "Vertrag VERAG-Kunde" + Me.scanVertragVeragKd.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanVertragVeragKd.BackColor = System.Drawing.Color.White + Me.scanVertragVeragKd.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanVertragVeragKd.Cursor = System.Windows.Forms.Cursors.Default + Me.scanVertragVeragKd.Location = New System.Drawing.Point(17, 40) + Me.scanVertragVeragKd.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.scanVertragVeragKd.Name = "scanVertragVeragKd" + Me.scanVertragVeragKd.Size = New System.Drawing.Size(168, 24) + Me.scanVertragVeragKd.TabIndex = 0 + ' 'KdSearchBox1 ' Me.KdSearchBox1._AlleFirmenCLUSTER = False @@ -1927,29 +2007,48 @@ Partial Class frmKundenblatt Me.KdSearchBox1.TIMER_SEARCH = True Me.KdSearchBox1.usrcntl = Nothing ' - 'tbiLeistungen + 'UsrcntlKundeBearbeitenFull1 ' - Me.tbiLeistungen.Name = "tbiLeistungen" - Me.tbiLeistungen.Size = New System.Drawing.Size(186, 22) - Me.tbiLeistungen.Text = "Leistungen" + 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(1617, 670) + Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 ' - 'tbiKartenverwaltung + 'usrcntlKarten ' - Me.tbiKartenverwaltung.Name = "tbiKartenverwaltung" - Me.tbiKartenverwaltung.Size = New System.Drawing.Size(186, 22) - Me.tbiKartenverwaltung.Text = "Kartenverwaltung" + 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(1603, 638) + Me.usrcntlKarten.TabIndex = 0 ' - 'tbiLKW + 'UsrCntlLKW1 ' - Me.tbiLKW.Name = "tbiLKW" - Me.tbiLKW.Size = New System.Drawing.Size(186, 22) - Me.tbiLKW.Text = "LKWs" + 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, 638) + Me.UsrCntlLKW1.TabIndex = 0 ' - 'tbiVERAGCard + 'UsrCntlOfferte1 ' - Me.tbiVERAGCard.Name = "tbiVERAGCard" - Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22) - Me.tbiVERAGCard.Text = "VERAG Card" + 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(1623, 676) + Me.UsrCntlOfferte1.TabIndex = 0 ' 'frmKundenblatt ' @@ -1957,7 +2056,7 @@ Partial Class frmKundenblatt Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScroll = True Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(1180, 800) + Me.ClientSize = New System.Drawing.Size(1180, 834) Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.tbcntrMain) diff --git a/SDL/kunden/frmKundenblatt.vb b/SDL/kunden/frmKundenblatt.vb index e95c829d..a91b32bd 100644 --- a/SDL/kunden/frmKundenblatt.vb +++ b/SDL/kunden/frmKundenblatt.vb @@ -1210,7 +1210,7 @@ Public Class frmKundenblatt Case 212 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.UTAKundenNr 'UTA Case 101 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.WölflKundenNr 'WÖLFL Case 202 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.TELEPASS_Kd_Nr 'TELEPASS - Case 214, 215, 216 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE + Case 214, 215, 216, 217 : txtPartnerKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr 'PLOSE Case 201 : grpMautDE.Visible = True : Panel2.Visible = False 'MAUT DE txtMautDE_FlottenPIN.Text = PartnerKdNrFromFMZOLL.MautDE_FlottenPIN 'MAUT DE @@ -1229,7 +1229,7 @@ Public Class frmKundenblatt Case 203 : scanErstbestellung.Visible = True Case 209 : scanErstbestellung.Visible = True Case 215 : scanErstbestellung.Visible = True' PLOSE IT - Case 214 : scanErstbestellung.Visible = True 'PLOSE Roadmaster + Case 214, 217 : scanErstbestellung.Visible = True 'PLOSE Roadmaster Case 211 ' scanErstbestellung.Visible = True scanMWSTAgreement.Visible = True @@ -1255,7 +1255,7 @@ Public Class frmKundenblatt 'gibt keine Einträge Case 202 : kundenSQL.setPartnerKdNrFromFMZOLL("TELEPASS-Kd-Nr", txtPartnerKdNr.Text, kdNr) 'TELEPASS kundenSQL.setPartnerKdNrSDL("TELEPASS-Kd-Nr", txtPartnerKdNr.Text, kdNr, sdlNrTmp) - Case 214, 215, 216 : kundenSQL.setPartnerKdNrFromFMZOLL("PLOSEKundenNr", txtPartnerKdNr.Text, kdNr) 'PLOSE + Case 214, 215, 216, 217 : kundenSQL.setPartnerKdNrFromFMZOLL("PLOSEKundenNr", txtPartnerKdNr.Text, kdNr) 'PLOSE Case 201 : kundenSQL.setPartnerKdNrFromFMZOLL_DE(kdNr, txtMautDE_FlottenPIN.Text, txtMautDEMasterPIN.Text, txtMautDE_BenutzerNr.Text) kundenSQL.setPartnerKdNrSDL("FlottenPIN", txtMautDE_FlottenPIN.Text, kdNr, sdlNrTmp) kundenSQL.setPartnerKdNrSDL("MasterPIN", txtMautDEMasterPIN.Text, kdNr, sdlNrTmp) diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb new file mode 100644 index 00000000..a5ebcf97 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb @@ -0,0 +1,650 @@ + +Partial Class usrCntlSDLLeistungenPLOSE_MEDPASS + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.cbxRetourniert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.txtPin = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtKartenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtOBUID = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtPLOSEKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Label8 = New System.Windows.Forms.Label() + Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.cbxGestohlen = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxVerloren = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxGesperrt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.cbxDefekt = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.txtLieferung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtBestellung = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtGueltigkeit2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.Label7 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.tbcntr = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.UsrCntlDetails = New SDL.usrCntlAllg() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanPIN = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() + Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() + Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) + Me.Panel2.SuspendLayout() + Me.tbcntr.SuspendLayout() + Me.TabPage1.SuspendLayout() + Me.TabPage2.SuspendLayout() + Me.SuspendLayout() + ' + 'cbxRetourniert + ' + Me.cbxRetourniert._date = Nothing + Me.cbxRetourniert._showdate = True + Me.cbxRetourniert._value = "" + Me.cbxRetourniert.AutoSize = True + Me.cbxRetourniert.Location = New System.Drawing.Point(333, 64) + Me.cbxRetourniert.Name = "cbxRetourniert" + Me.cbxRetourniert.Size = New System.Drawing.Size(78, 17) + Me.cbxRetourniert.TabIndex = 7 + Me.cbxRetourniert.Text = "Retourniert" + Me.cbxRetourniert.UseVisualStyleBackColor = True + ' + 'txtPin + ' + Me.txtPin._DateTimeOnly = False + Me.txtPin._numbersOnly = False + Me.txtPin._numbersOnlyKommastellen = "" + Me.txtPin._numbersOnlyTrennzeichen = True + Me.txtPin._Prozent = False + Me.txtPin._ShortDateNew = False + Me.txtPin._ShortDateOnly = False + Me.txtPin._TimeOnly = False + Me.txtPin._TimeOnly_Seconds = False + Me.txtPin._value = Nothing + Me.txtPin._Waehrung = False + Me.txtPin._WaehrungZeichen = True + Me.txtPin.ForeColor = System.Drawing.Color.Black + Me.txtPin.Location = New System.Drawing.Point(106, 118) + Me.txtPin.MaxLength = 9 + Me.txtPin.MaxLineLength = -1 + Me.txtPin.MaxLines_Warning = "" + Me.txtPin.MaxLines_Warning_Label = Nothing + Me.txtPin.Name = "txtPin" + Me.txtPin.Size = New System.Drawing.Size(74, 20) + Me.txtPin.TabIndex = 3 + ' + 'txtKartenNr + ' + Me.txtKartenNr._DateTimeOnly = False + Me.txtKartenNr._numbersOnly = False + Me.txtKartenNr._numbersOnlyKommastellen = "" + Me.txtKartenNr._numbersOnlyTrennzeichen = True + Me.txtKartenNr._Prozent = False + Me.txtKartenNr._ShortDateNew = False + Me.txtKartenNr._ShortDateOnly = False + Me.txtKartenNr._TimeOnly = False + Me.txtKartenNr._TimeOnly_Seconds = False + Me.txtKartenNr._value = Nothing + Me.txtKartenNr._Waehrung = False + Me.txtKartenNr._WaehrungZeichen = True + Me.txtKartenNr.ForeColor = System.Drawing.Color.Black + Me.txtKartenNr.Location = New System.Drawing.Point(196, 181) + Me.txtKartenNr.MaxLength = 22 + Me.txtKartenNr.MaxLineLength = -1 + Me.txtKartenNr.MaxLines_Warning = "" + Me.txtKartenNr.MaxLines_Warning_Label = Nothing + Me.txtKartenNr.Name = "txtKartenNr" + Me.txtKartenNr.Size = New System.Drawing.Size(93, 20) + Me.txtKartenNr.TabIndex = 2 + Me.txtKartenNr.Visible = False + ' + 'txtOBUID + ' + Me.txtOBUID._DateTimeOnly = False + Me.txtOBUID._numbersOnly = False + Me.txtOBUID._numbersOnlyKommastellen = "" + Me.txtOBUID._numbersOnlyTrennzeichen = True + Me.txtOBUID._Prozent = False + Me.txtOBUID._ShortDateNew = False + Me.txtOBUID._ShortDateOnly = False + Me.txtOBUID._TimeOnly = False + Me.txtOBUID._TimeOnly_Seconds = False + Me.txtOBUID._value = Nothing + Me.txtOBUID._Waehrung = False + Me.txtOBUID._WaehrungZeichen = True + Me.txtOBUID.ForeColor = System.Drawing.Color.Black + Me.txtOBUID.Location = New System.Drawing.Point(106, 96) + Me.txtOBUID.MaxLength = 18 + Me.txtOBUID.MaxLineLength = -1 + Me.txtOBUID.MaxLines_Warning = "" + Me.txtOBUID.MaxLines_Warning_Label = Nothing + Me.txtOBUID.Name = "txtOBUID" + Me.txtOBUID.Size = New System.Drawing.Size(183, 20) + Me.txtOBUID.TabIndex = 4 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(3, 121) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(29, 13) + Me.Label3.TabIndex = 14 + Me.Label3.Text = "Pin:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(121, 184) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(69, 13) + Me.Label1.TabIndex = 9 + Me.Label1.Text = "Karten-Nr.:" + Me.Label1.Visible = False + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label9.Location = New System.Drawing.Point(3, 99) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(52, 13) + Me.Label9.TabIndex = 12 + Me.Label9.Text = "OBU-Id:" + ' + 'txtPLOSEKdNr + ' + Me.txtPLOSEKdNr._DateTimeOnly = False + Me.txtPLOSEKdNr._numbersOnly = True + Me.txtPLOSEKdNr._numbersOnlyKommastellen = "" + Me.txtPLOSEKdNr._numbersOnlyTrennzeichen = True + Me.txtPLOSEKdNr._Prozent = False + Me.txtPLOSEKdNr._ShortDateNew = False + Me.txtPLOSEKdNr._ShortDateOnly = False + Me.txtPLOSEKdNr._TimeOnly = False + Me.txtPLOSEKdNr._TimeOnly_Seconds = False + Me.txtPLOSEKdNr._value = "" + Me.txtPLOSEKdNr._Waehrung = False + Me.txtPLOSEKdNr._WaehrungZeichen = True + Me.txtPLOSEKdNr.Location = New System.Drawing.Point(574, 6) + Me.txtPLOSEKdNr.MaxLineLength = -1 + Me.txtPLOSEKdNr.MaxLines_Warning = "" + Me.txtPLOSEKdNr.MaxLines_Warning_Label = Nothing + Me.txtPLOSEKdNr.Name = "txtPLOSEKdNr" + Me.txtPLOSEKdNr.Size = New System.Drawing.Size(183, 20) + Me.txtPLOSEKdNr.TabIndex = 21 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.ForeColor = System.Drawing.Color.White + Me.Label2.Location = New System.Drawing.Point(471, 9) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(93, 13) + Me.Label2.TabIndex = 20 + Me.Label2.Text = "Plose-Kunden-Nr.:" + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Panel2.Controls.Add(Me.Label8) + Me.Panel2.Controls.Add(Me.txtPLOSEKdNr) + Me.Panel2.Controls.Add(Me.Label2) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(760, 30) + Me.Panel2.TabIndex = 94 + ' + '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.ForeColor = System.Drawing.Color.White + Me.Label8.Location = New System.Drawing.Point(6, 9) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(114, 13) + Me.Label8.TabIndex = 14 + Me.Label8.Text = "PLOSE MED PASS" + ' + 'txtVermerk + ' + Me.txtVermerk._DateTimeOnly = False + Me.txtVermerk._numbersOnly = False + Me.txtVermerk._numbersOnlyKommastellen = "" + Me.txtVermerk._numbersOnlyTrennzeichen = True + Me.txtVermerk._Prozent = False + Me.txtVermerk._ShortDateNew = False + Me.txtVermerk._ShortDateOnly = False + Me.txtVermerk._TimeOnly = False + Me.txtVermerk._TimeOnly_Seconds = False + Me.txtVermerk._value = Nothing + Me.txtVermerk._Waehrung = False + Me.txtVermerk._WaehrungZeichen = True + Me.txtVermerk.Location = New System.Drawing.Point(106, 162) + Me.txtVermerk.MaxLength = 100 + Me.txtVermerk.MaxLineLength = -1 + Me.txtVermerk.MaxLines_Warning = "" + Me.txtVermerk.MaxLines_Warning_Label = Nothing + Me.txtVermerk.Multiline = True + Me.txtVermerk.Name = "txtVermerk" + Me.txtVermerk.Size = New System.Drawing.Size(183, 55) + Me.txtVermerk.TabIndex = 5 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(3, 165) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(49, 13) + Me.Label4.TabIndex = 119 + Me.Label4.Text = "Vermerk:" + ' + 'cbxGestohlen + ' + Me.cbxGestohlen._date = Nothing + Me.cbxGestohlen._showdate = True + Me.cbxGestohlen._value = "" + Me.cbxGestohlen.AutoSize = True + Me.cbxGestohlen.Location = New System.Drawing.Point(333, 134) + Me.cbxGestohlen.Name = "cbxGestohlen" + Me.cbxGestohlen.Size = New System.Drawing.Size(74, 17) + Me.cbxGestohlen.TabIndex = 9 + Me.cbxGestohlen.Text = "Gestohlen" + Me.cbxGestohlen.UseVisualStyleBackColor = True + ' + 'cbxVerloren + ' + Me.cbxVerloren._date = Nothing + Me.cbxVerloren._showdate = True + Me.cbxVerloren._value = "" + Me.cbxVerloren.AutoSize = True + Me.cbxVerloren.Location = New System.Drawing.Point(333, 111) + Me.cbxVerloren.Name = "cbxVerloren" + Me.cbxVerloren.Size = New System.Drawing.Size(65, 17) + Me.cbxVerloren.TabIndex = 8 + Me.cbxVerloren.Text = "Verloren" + Me.cbxVerloren.UseVisualStyleBackColor = True + ' + 'cbxGesperrt + ' + Me.cbxGesperrt._date = Nothing + Me.cbxGesperrt._showdate = True + Me.cbxGesperrt._value = "" + Me.cbxGesperrt.AutoSize = True + Me.cbxGesperrt.Location = New System.Drawing.Point(333, 155) + Me.cbxGesperrt.Name = "cbxGesperrt" + Me.cbxGesperrt.Size = New System.Drawing.Size(66, 17) + Me.cbxGesperrt.TabIndex = 10 + Me.cbxGesperrt.Text = "Gesperrt" + Me.cbxGesperrt.UseVisualStyleBackColor = True + ' + 'cbxDefekt + ' + Me.cbxDefekt._date = Nothing + Me.cbxDefekt._showdate = True + Me.cbxDefekt._value = "" + Me.cbxDefekt.AutoSize = True + Me.cbxDefekt.Location = New System.Drawing.Point(333, 177) + Me.cbxDefekt.Name = "cbxDefekt" + Me.cbxDefekt.Size = New System.Drawing.Size(58, 17) + Me.cbxDefekt.TabIndex = 11 + Me.cbxDefekt.Text = "Defekt" + Me.cbxDefekt.UseVisualStyleBackColor = True + ' + 'txtLieferung + ' + Me.txtLieferung._DateTimeOnly = False + Me.txtLieferung._numbersOnly = False + Me.txtLieferung._numbersOnlyKommastellen = "" + Me.txtLieferung._numbersOnlyTrennzeichen = True + Me.txtLieferung._Prozent = False + Me.txtLieferung._ShortDateNew = True + Me.txtLieferung._ShortDateOnly = False + Me.txtLieferung._TimeOnly = False + Me.txtLieferung._TimeOnly_Seconds = False + Me.txtLieferung._value = "" + Me.txtLieferung._Waehrung = False + Me.txtLieferung._WaehrungZeichen = True + Me.txtLieferung.ForeColor = System.Drawing.Color.Red + Me.txtLieferung.Location = New System.Drawing.Point(106, 62) + Me.txtLieferung.MaxLength = 10 + Me.txtLieferung.MaxLineLength = -1 + Me.txtLieferung.MaxLines_Warning = "" + Me.txtLieferung.MaxLines_Warning_Label = Nothing + Me.txtLieferung.Name = "txtLieferung" + Me.txtLieferung.Size = New System.Drawing.Size(74, 20) + Me.txtLieferung.TabIndex = 1 + ' + 'txtBestellung + ' + Me.txtBestellung._DateTimeOnly = False + Me.txtBestellung._numbersOnly = False + Me.txtBestellung._numbersOnlyKommastellen = "" + Me.txtBestellung._numbersOnlyTrennzeichen = True + Me.txtBestellung._Prozent = False + Me.txtBestellung._ShortDateNew = True + Me.txtBestellung._ShortDateOnly = False + Me.txtBestellung._TimeOnly = False + Me.txtBestellung._TimeOnly_Seconds = False + Me.txtBestellung._value = "" + Me.txtBestellung._Waehrung = False + Me.txtBestellung._WaehrungZeichen = True + Me.txtBestellung.ForeColor = System.Drawing.Color.Red + Me.txtBestellung.Location = New System.Drawing.Point(106, 36) + Me.txtBestellung.MaxLength = 10 + Me.txtBestellung.MaxLineLength = -1 + Me.txtBestellung.MaxLines_Warning = "" + Me.txtBestellung.MaxLines_Warning_Label = Nothing + Me.txtBestellung.Name = "txtBestellung" + Me.txtBestellung.Size = New System.Drawing.Size(74, 20) + Me.txtBestellung.TabIndex = 0 + ' + 'txtGueltigkeit2 + ' + Me.txtGueltigkeit2._DateTimeOnly = False + Me.txtGueltigkeit2._numbersOnly = False + Me.txtGueltigkeit2._numbersOnlyKommastellen = "" + Me.txtGueltigkeit2._numbersOnlyTrennzeichen = True + Me.txtGueltigkeit2._Prozent = False + Me.txtGueltigkeit2._ShortDateNew = True + Me.txtGueltigkeit2._ShortDateOnly = False + Me.txtGueltigkeit2._TimeOnly = False + Me.txtGueltigkeit2._TimeOnly_Seconds = False + Me.txtGueltigkeit2._value = "" + Me.txtGueltigkeit2._Waehrung = False + Me.txtGueltigkeit2._WaehrungZeichen = True + Me.txtGueltigkeit2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtGueltigkeit2.ForeColor = System.Drawing.Color.Red + Me.txtGueltigkeit2.Location = New System.Drawing.Point(389, 36) + Me.txtGueltigkeit2.MaxLength = 10 + Me.txtGueltigkeit2.MaxLineLength = -1 + Me.txtGueltigkeit2.MaxLines_Warning = "" + Me.txtGueltigkeit2.MaxLines_Warning_Label = Nothing + Me.txtGueltigkeit2.Name = "txtGueltigkeit2" + Me.txtGueltigkeit2.Size = New System.Drawing.Size(74, 20) + Me.txtGueltigkeit2.TabIndex = 6 + Me.txtGueltigkeit2.Visible = False + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(3, 65) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(65, 13) + Me.Label6.TabIndex = 123 + Me.Label6.Text = "Lieferdatum:" + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Location = New System.Drawing.Point(3, 39) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(70, 13) + Me.Label7.TabIndex = 122 + Me.Label7.Text = "Bestelldatum:" + ' + 'Label11 + ' + Me.Label11.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(330, 39) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(53, 13) + Me.Label11.TabIndex = 121 + Me.Label11.Text = "Gültig bis:" + Me.Label11.Visible = False + ' + 'tbcntr + ' + Me.tbcntr.Controls.Add(Me.TabPage1) + Me.tbcntr.Controls.Add(Me.TabPage2) + Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Right + Me.tbcntr.Location = New System.Drawing.Point(496, 30) + Me.tbcntr.Name = "tbcntr" + Me.tbcntr.SelectedIndex = 0 + Me.tbcntr.Size = New System.Drawing.Size(264, 190) + Me.tbcntr.TabIndex = 127 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.UsrCntlDetails) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(256, 164) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Details" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'UsrCntlDetails + ' + Me.UsrCntlDetails.BackColor = System.Drawing.Color.White + Me.UsrCntlDetails.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlDetails.Location = New System.Drawing.Point(3, 3) + Me.UsrCntlDetails.Name = "UsrCntlDetails" + Me.UsrCntlDetails.Size = New System.Drawing.Size(250, 158) + Me.UsrCntlDetails.TabIndex = 18 + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.scanBestellung) + Me.TabPage2.Controls.Add(Me.scanPIN) + Me.TabPage2.Controls.Add(Me.scanLieferschein) + Me.TabPage2.Controls.Add(Me.scanSonstiges) + Me.TabPage2.Controls.Add(Me.scanRetourniert) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(256, 164) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "Dokumente" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'scanBestellung + ' + Me.scanBestellung._ARCHIV = True + Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanBestellung._DATENSERVER_ORDNER = "MDM" + Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing + Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing + Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing + Me.scanBestellung._MULTI_FILES = True + Me.scanBestellung._TEXT_PDF = "Bestellung" + Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanBestellung.BackColor = System.Drawing.Color.White + Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default + Me.scanBestellung.Location = New System.Drawing.Point(3, 30) + Me.scanBestellung.Name = "scanBestellung" + Me.scanBestellung.Size = New System.Drawing.Size(94, 24) + Me.scanBestellung.TabIndex = 26 + ' + 'scanPIN + ' + Me.scanPIN._ARCHIV = True + Me.scanPIN._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanPIN._DATENSERVER_ORDNER = "MDM" + Me.scanPIN._DATENSERVER_UOrdner1 = Nothing + Me.scanPIN._DATENSERVER_UOrdner2 = Nothing + Me.scanPIN._DATENSERVER_UOrdner3 = Nothing + Me.scanPIN._MULTI_FILES = True + Me.scanPIN._TEXT_PDF = "PIN" + Me.scanPIN.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanPIN.BackColor = System.Drawing.Color.White + Me.scanPIN.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanPIN.Cursor = System.Windows.Forms.Cursors.Default + Me.scanPIN.Location = New System.Drawing.Point(192, 4) + Me.scanPIN.Name = "scanPIN" + Me.scanPIN.Size = New System.Drawing.Size(58, 24) + Me.scanPIN.TabIndex = 24 + ' + 'scanLieferschein + ' + Me.scanLieferschein._ARCHIV = True + Me.scanLieferschein._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanLieferschein._DATENSERVER_ORDNER = "MDM" + Me.scanLieferschein._DATENSERVER_UOrdner1 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner2 = Nothing + Me.scanLieferschein._DATENSERVER_UOrdner3 = Nothing + Me.scanLieferschein._MULTI_FILES = True + Me.scanLieferschein._TEXT_PDF = "Lieferschein" + Me.scanLieferschein.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanLieferschein.BackColor = System.Drawing.Color.White + Me.scanLieferschein.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanLieferschein.Cursor = System.Windows.Forms.Cursors.Default + Me.scanLieferschein.Location = New System.Drawing.Point(3, 4) + Me.scanLieferschein.Name = "scanLieferschein" + Me.scanLieferschein.Size = New System.Drawing.Size(94, 24) + Me.scanLieferschein.TabIndex = 23 + ' + 'scanSonstiges + ' + Me.scanSonstiges._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanSonstiges._DATENSERVER_ORDNER = "MDM" + Me.scanSonstiges._DATENSERVER_UOrdner1 = "" + Me.scanSonstiges._DATENSERVER_UOrdner2 = "" + Me.scanSonstiges._DATENSERVER_UOrdner3 = "" + Me.scanSonstiges._OPEN_ORIGINAL = False + Me.scanSonstiges._TYPE = "PDF" + Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanSonstiges.BackColor = System.Drawing.Color.White + Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand + Me.scanSonstiges.Location = New System.Drawing.Point(3, 56) + Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) + Me.scanSonstiges.Name = "scanSonstiges" + Me.scanSonstiges.Size = New System.Drawing.Size(250, 108) + Me.scanSonstiges.TabIndex = 21 + ' + 'scanRetourniert + ' + Me.scanRetourniert._ARCHIV = True + Me.scanRetourniert._DATENSERVER_KATEGORIE = "DOKUMENTE" + Me.scanRetourniert._DATENSERVER_ORDNER = "MDM" + Me.scanRetourniert._DATENSERVER_UOrdner1 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner2 = Nothing + Me.scanRetourniert._DATENSERVER_UOrdner3 = Nothing + Me.scanRetourniert._MULTI_FILES = True + Me.scanRetourniert._TEXT_PDF = "Retourniert" + Me.scanRetourniert.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.scanRetourniert.BackColor = System.Drawing.Color.White + Me.scanRetourniert.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.scanRetourniert.Cursor = System.Windows.Forms.Cursors.Default + Me.scanRetourniert.Location = New System.Drawing.Point(98, 4) + Me.scanRetourniert.Name = "scanRetourniert" + Me.scanRetourniert.Size = New System.Drawing.Size(93, 24) + Me.scanRetourniert.TabIndex = 20 + ' + 'cbxArchiviert + ' + Me.cbxArchiviert._date = Nothing + Me.cbxArchiviert._showdate = True + Me.cbxArchiviert._value = "" + Me.cbxArchiviert.AutoSize = True + Me.cbxArchiviert.Location = New System.Drawing.Point(333, 200) + Me.cbxArchiviert.Name = "cbxArchiviert" + Me.cbxArchiviert.Size = New System.Drawing.Size(91, 17) + Me.cbxArchiviert.TabIndex = 128 + Me.cbxArchiviert.Text = "ARCHIVIERT" + Me.cbxArchiviert.UseVisualStyleBackColor = True + ' + 'usrCntlSDLLeistungenPLOSE_MEDPASS + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.Controls.Add(Me.cbxArchiviert) + Me.Controls.Add(Me.tbcntr) + Me.Controls.Add(Me.txtLieferung) + Me.Controls.Add(Me.txtBestellung) + Me.Controls.Add(Me.txtGueltigkeit2) + Me.Controls.Add(Me.Label6) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.cbxGestohlen) + Me.Controls.Add(Me.cbxVerloren) + Me.Controls.Add(Me.cbxGesperrt) + Me.Controls.Add(Me.cbxDefekt) + Me.Controls.Add(Me.Panel2) + Me.Controls.Add(Me.cbxRetourniert) + Me.Controls.Add(Me.txtPin) + Me.Controls.Add(Me.txtKartenNr) + Me.Controls.Add(Me.txtOBUID) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.txtVermerk) + Me.Name = "usrCntlSDLLeistungenPLOSE_MEDPASS" + Me.Size = New System.Drawing.Size(760, 220) + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + Me.tbcntr.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage2.ResumeLayout(False) + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents cbxRetourniert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents txtPin As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtKartenNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtOBUID As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label9 As System.Windows.Forms.Label + Friend WithEvents txtPLOSEKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Panel2 As System.Windows.Forms.Panel + Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label4 As System.Windows.Forms.Label + Friend WithEvents cbxGestohlen As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxVerloren As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxGesperrt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents cbxDefekt As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents txtLieferung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtBestellung As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtGueltigkeit2 As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label6 As System.Windows.Forms.Label + Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents tbcntr As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents UsrCntlDetails As SDL.usrCntlAllg + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage + Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList + Friend WithEvents scanRetourniert As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue + Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan + Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan +End Class diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.resx b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.vb b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.vb new file mode 100644 index 00000000..58918f57 --- /dev/null +++ b/SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.vb @@ -0,0 +1,209 @@ + +Imports System.Globalization + +Public Class usrCntlSDLLeistungenPLOSE_MEDPASS + Public KfzKennzeichen As String + Public SDLNr As String + Public kdNr As String + Dim PROG As New cProgramFunctions + Dim kundenSQL As New kundenSQL + Public History As String + + Dim culture As CultureInfo = New CultureInfo("de-DE") + Private PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll + Public addnew As Boolean = False + Dim VAL As New cValidationSDLLeistungen + Public Event LKWChanged(kdNr, newKfz, SDLNr, History) + Public Event CHANGED(kdNr, newKfz, SDLNr, History) + 'Public WithEvents s As New cBinding 'fürs Binding + Public SDL As VERAG_PROG_ALLGEMEIN.cSDL + Dim boud = False + + + Sub New(kdNr, KfzKennzeichen, SDLNr, History) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.kdNr = kdNr + Me.KfzKennzeichen = KfzKennzeichen + Me.SDLNr = SDLNr + Me.History = History + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub usrCntlLKW_Disposed(sender As Object, e As EventArgs) Handles Me.Disposed + 'MsgBox("disp") + End Sub + + Private Sub usrCntlSDLLeistungenCZ_Load(sender As Object, e As EventArgs) Handles Me.Load + + UsrCntlDetails.kdNr = kdNr + UsrCntlDetails.SDLNr = SDLNr + UsrCntlDetails.History = History + UsrCntlDetails.lblLKWNr.Text = KfzKennzeichen + AddHandler UsrCntlDetails.LKWChanged, Sub(newKfz) + RaiseEvent LKWChanged(kdNr, newKfz, SDLNr, History) + End Sub + + 'Scan-Elemente initialisieren: + scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History) + + initDataBinding() + If txtPLOSEKdNr.Text = "" Then + getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + txtPLOSEKdNr.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr + End If + + boud = True + + ' If txtMSEKdNr.Text = "" Then + ' getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + ' txtMSEKdNr.Text = PartnerKdNrFromFMZOLL.MSEKundenNr + ' End If + + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then + cProgramFunctions.setControlReadOnly(Me) + End If + End Sub + Sub getPartnerKdNrFromFMZOLL() ' Lädt die Partner-KdNr + PartnerKdNrFromFMZOLL = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr) + End Sub + + + Function gueltigBisabgelaufen(o) As Boolean + If CDate(o) > Now Then + Return False + End If + Return True + End Function + + Sub initDataBinding() + Try + SDL = New VERAG_PROG_ALLGEMEIN.cSDL(kdNr, KfzKennzeichen, SDLNr, History) + + PROG.initDTPE(txtLieferung) + PROG.initDTPE(txtBestellung) + 'PROG.initDTPE(txtGueltigkeit2) + + txtLieferung._value = SDL.Lieferdatum + txtBestellung._value = SDL.Bestelldatum + ' txtGueltigkeit2._value = SDL.GültigBis + + cbxRetourniert._date = SDL.RetourniertAm + cbxVerloren._date = SDL.VerlorenAm + cbxGestohlen._date = SDL.GestohlenAm + cbxGesperrt._date = SDL.GesperrtAm + cbxDefekt._date = SDL.DefektAm + + cbxGesperrt.Checked = SDL.Gesperrt + cbxDefekt.Checked = SDL.Defekt + cbxGestohlen.Checked = SDL.Gestohlen + cbxVerloren.Checked = SDL.Verloren + cbxArchiviert.Checked = SDL.Archiviert + + cbxRetourniert.Checked = SDL.Retourniert + + txtVermerk.Text = SDL.Vermerk + + UsrCntlDetails.lblErfassung.Text = SDL.Erfassungsdatum + UsrCntlDetails.lblAenderung.Text = SDL.Änderungsdatum + UsrCntlDetails.lblSachbearb.Text = SDL.Sachbearbeiter + + ' txtPLOSEKdNr.Text = SDL.MSE_Kd_Nr + txtOBUID.Text = SDL.OBUID + txtKartenNr.Text = SDL.KartenNr + txtPin.Text = SDL.PIN + PROG.initPIN(txtPin) + + Catch ex As Exception + MsgBox(ex.Message) + MsgBox(ex.StackTrace) + End Try + + End Sub + + + Public Sub newEntry() + ' s.updateBinding() + ' s.newEntry(kdNr, KfzKennzeichen, SDLNr) 'NEUER EINTRAG! + If txtBestellung.Text = "" Then txtBestellung.Text = Now.ToShortDateString + End Sub + + Sub BindingTableColumnChanged() + UsrCntlDetails.lblSachbearb.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + UsrCntlDetails.lblAenderung.Text = Now.ToString("dd.MM.yyyy HH:mm") + ' If e.Column.ColumnName = "Sachbearbeiter" Or e.Column.ColumnName = "Änderungsdatum" Then Exit Sub + If save() Then RaiseEvent CHANGED(kdNr, KfzKennzeichen, SDLNr, History) + End Sub + + Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) + Dim valid As Boolean = VAL.checkValidDate(sender, True) + End Sub + + Public Function save() As Boolean + loadDataInClass() + Return SDL.SAVE + 'If checkSave() Then + ' Return kundenSQL.doSQLByList(s.bindingSource) + 'End If + Return False + End Function + + Sub loadDataInClass() + SDL.Lieferdatum = PROG.isEmptyNull(txtLieferung._value) + SDL.Bestelldatum = PROG.isEmptyNull(txtBestellung._value) + ' SDL.GültigBis = PROG.isEmptyNull(txtGueltigkeit2._value) + SDL.Gesperrt = cbxGesperrt.Checked + SDL.Defekt = cbxDefekt.Checked + SDL.Gestohlen = cbxGestohlen.Checked + SDL.Verloren = cbxVerloren.Checked + SDL.Retourniert = cbxRetourniert.Checked + SDL.Vermerk = txtVermerk.Text + SDL.Erfassungsdatum = UsrCntlDetails.lblErfassung.Text + SDL.Änderungsdatum = UsrCntlDetails.lblAenderung.Text + SDL.Sachbearbeiter = UsrCntlDetails.lblSachbearb.Text + 'SDL. = txtPLOSEKdNr.Text + SDL.OBUID = txtOBUID.Text + SDL.KartenNr = txtKartenNr.Text + SDL.PIN = txtPin.Text + + SDL.RetourniertAm = cbxRetourniert._date + SDL.VerlorenAm = cbxVerloren._date + SDL.GestohlenAm = cbxGestohlen._date + SDL.GesperrtAm = cbxGesperrt._date + SDL.DefektAm = cbxDefekt._date + SDL.Archiviert = cbxArchiviert.Checked + End Sub + + Function checkSave() As Boolean + ' If Not VAL.checkValidDate(txtBestellung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Bestelldatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtLieferung, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Lieferdatum: Datumsformat nicht korrekt!", 3) : Return False + ' If Not VAL.checkValidDate(txtGueltigkeit, True) Then Return False 'cProgramFunctions.setInfo(Me.FindForm, "ERR", "Gültigkeitsdatum: Datumsformat nicht korrekt!", 3) : Return False + Return True + End Function + + + + Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtBestellung.PropertyChanged, txtLieferung.PropertyChanged, txtPLOSEKdNr.TextChanged, txtOBUID.TextChanged, txtKartenNr.TextChanged, txtPin.TextChanged, txtVermerk.TextChanged, cbxDefekt.CheckedChanged, cbxVerloren.CheckedChanged, cbxGestohlen.CheckedChanged, cbxGesperrt.CheckedChanged, cbxRetourniert.CheckedChanged, cbxArchiviert.CheckedChanged ' txtGueltigkeit2.PropertyChanged, + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub + + If boud And Me.FindForm IsNot Nothing Then + If sender Is txtLieferung Then + If Not PROG.checkSDLNrPartnerKdNr(kdNr, SDLNr) Then MsgBox("Bitte geben Sie die Partner-Kundennummer im Kundenblatt oder im FM-ZOLL ein!") + End If + BindingTableColumnChanged() + End If + End Sub + Function addTxtToVermerk(tmp, txt) As String + If txtVermerk.Text <> "" Then tmp &= " / " + tmp &= txt & ", am " & Now.ToShortDateString + If tmp.Length > txtVermerk.MaxLength Then tmp = tmp.Substring(0, txtVermerk.MaxLength) + Return tmp + End Function +End Class diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 9a036ae6..0f99ccb4 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -92,6 +92,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " AND plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' " sqlstr &= " AND plose_Fakturiert =0 " + sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) " sqlstr &= " group by plose_ProduktCode" sqlstr &= " order by plose_ProduktCode" @@ -179,7 +180,8 @@ Public Class frmMDMDatenverarbetiung FROM tblPLOSE_Details WHERE 1 = 1 And plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' - AND plose_Fakturiert=0 + AND plose_Fakturiert=0 + AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) group by plose_POLSEKundennummer,plose_ProduktCode order by plose_POLSEKundennummer,plose_ProduktCode", "FMZOLL") .LOAD() @@ -285,7 +287,7 @@ Public Class frmMDMDatenverarbetiung Function genRGAtt_PLOSE() As Boolean - Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") + Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") 'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ") If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then MsgBox("Keine Daten!") @@ -307,7 +309,7 @@ Public Class frmMDMDatenverarbetiung If verarbOK Then 'UPDATE Fakturiert - SQL.doSQL("UPDATE tblPLOSE_Details SET plose_FakturiertDatum=GETDATE() WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND plose_POLSEKundennummer='" & R_PLOSE("PLOSEKundenNr") & "' ", "FMZOLL") + SQL.doSQL("UPDATE tblPLOSE_Details SET plose_FakturiertDatum=GETDATE() WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND plose_POLSEKundennummer='" & R_PLOSE("PLOSEKundenNr") & "' ", "FMZOLL") End If If True Then 'cnt Mod 10 = 0 Then @@ -358,7 +360,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,isnull([tblPLOSE_Produktbeschreibung].plp_Description_EN,plose_Produktbeschreibung) as plose_Produktbeschreibung ,isnull(plose_NummerKarteGeraet,plose_Kontonummer) as plose_NummerKarteGeraet ,plose_BeschreibungEinfahrt,plose_BeschreibungAusfahrt,plose_NettobetragWaehrungAbbuchung,(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,plose_BruttobetragWaehrungAbbuchung " sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr and plp_LeistungsNr is not null " sqlstr &= " WHERE 1=1 " - sqlstr &= " AND plose_Fakturiert=0 AND plp_Land NOT IN ('AT','DE') " + sqlstr &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plp_Land NOT IN ('AT','DE') " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " sqlstr &= " order by plp_Land, plose_DatumTransaktion" @@ -371,7 +373,7 @@ Public Class frmMDMDatenverarbetiung sqlstrAT &= " SELECT 'PLOSE',AdressenNr,plose_Kennzeichen,plose_DatumTransaktion,plp_Land,'' as plose_Produktbeschreibung ,plose_NummerKarteGeraet as plose_NummerKarteGeraet ,'' as plose_BeschreibungEinfahrt,'' as plose_BeschreibungAusfahrt,sum(plose_NettobetragWaehrungAbbuchung) as plose_NettobetragWaehrungAbbuchung,sum(plose_BruttobetragWaehrungAbbuchung-plose_NettobetragWaehrungAbbuchung) as Steuer,sum(plose_BruttobetragWaehrungAbbuchung ) as plose_BruttobetragWaehrungAbbuchung " sqlstrAT &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr and plp_LeistungsNr is not null " sqlstrAT &= " WHERE 1=1 " - sqlstrAT &= " AND plose_Fakturiert=0 AND plp_Land IN ('AT','DE') " + sqlstrAT &= " AND plose_Fakturiert=0 AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) AND plp_Land IN ('AT','DE') " sqlstrAT &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " sqlstrAT &= " group by plp_Land, AdressenNr, plose_Kennzeichen,plose_DatumTransaktion,plose_NummerKarteGeraet" sqlstrAT &= " order by plp_Land" @@ -546,6 +548,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode INNER JOIN Adressen on plose_POLSEKundennummer=PLOSEKundenNr " sqlstr &= " WHERE 1=1 " sqlstr &= " AND plose_Fakturiert=0 " + sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) " sqlstr &= " AND AdressenNr = '" & KdNr & "' " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " @@ -826,6 +829,7 @@ Public Class frmMDMDatenverarbetiung sqlstr &= " FROM tblPLOSE_Details INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode=plp_ProductCode " sqlstr &= " WHERE 1=1 " sqlstr &= " AND plose_Fakturiert=0 " + sqlstr &= " AND plose_ProduktCode NOT IN (SELECT plp_ProductCode FROM [tblPLOSE_Produktbeschreibung] WHERE [plp_einarbeiten]=0 ) " sqlstr &= " AND plose_POLSEKundennummer = '" & PLOSEKundenNr & "' " sqlstr &= " AND plp_LeistungsNr is not null " sqlstr &= " AND plose_DatumTransaktion between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "' " diff --git a/SDL/mdm/frmNewData.Designer.vb b/SDL/mdm/frmNewData.Designer.vb index 8902ff2c..4eb5095c 100644 --- a/SDL/mdm/frmNewData.Designer.vb +++ b/SDL/mdm/frmNewData.Designer.vb @@ -51,6 +51,7 @@ Partial Class frmNewData Me.btnSDL_PLOSE = New System.Windows.Forms.Button() Me.btnSDL_PLOSE_IT = New System.Windows.Forms.Button() Me.btnSDL_PLOSE_CZ = New System.Windows.Forms.Button() + Me.btnSDL_PLOSE_MEDPASS = New System.Windows.Forms.Button() Me.btnVeragParkplatz = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() @@ -167,6 +168,7 @@ Partial Class frmNewData Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_IT) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_CZ) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_MEDPASS) Me.FlowLayoutPanel.Controls.Add(Me.btnVeragParkplatz) Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Bottom Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 119) @@ -571,6 +573,26 @@ Partial Class frmNewData Me.btnSDL_PLOSE_CZ.TextAlign = System.Drawing.ContentAlignment.BottomCenter Me.btnSDL_PLOSE_CZ.UseVisualStyleBackColor = True ' + 'btnSDL_PLOSE_MEDPASS + ' + Me.btnSDL_PLOSE_MEDPASS.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.btnSDL_PLOSE_MEDPASS.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE_MEDPASS.Enabled = False + Me.btnSDL_PLOSE_MEDPASS.FlatAppearance.MouseDownBackColor = System.Drawing.Color.Silver + Me.btnSDL_PLOSE_MEDPASS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE_MEDPASS.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE_MEDPASS.Image = CType(resources.GetObject("btnSDL_PLOSE_MEDPASS.Image"), System.Drawing.Image) + Me.btnSDL_PLOSE_MEDPASS.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE_MEDPASS.Location = New System.Drawing.Point(168, 140) + Me.btnSDL_PLOSE_MEDPASS.Margin = New System.Windows.Forms.Padding(2) + Me.btnSDL_PLOSE_MEDPASS.Name = "btnSDL_PLOSE_MEDPASS" + Me.btnSDL_PLOSE_MEDPASS.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE_MEDPASS.TabIndex = 61 + Me.btnSDL_PLOSE_MEDPASS.Tag = "216" + Me.btnSDL_PLOSE_MEDPASS.Text = "MEDPASS" + Me.btnSDL_PLOSE_MEDPASS.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE_MEDPASS.UseVisualStyleBackColor = True + ' 'btnVeragParkplatz ' Me.btnVeragParkplatz.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom @@ -581,7 +603,7 @@ Partial Class frmNewData Me.btnVeragParkplatz.ForeColor = System.Drawing.Color.Black Me.btnVeragParkplatz.Image = Global.SDL.My.Resources.Resources.verag_Card1 Me.btnVeragParkplatz.ImageAlign = System.Drawing.ContentAlignment.TopCenter - Me.btnVeragParkplatz.Location = New System.Drawing.Point(168, 140) + Me.btnVeragParkplatz.Location = New System.Drawing.Point(250, 140) Me.btnVeragParkplatz.Margin = New System.Windows.Forms.Padding(2) Me.btnVeragParkplatz.Name = "btnVeragParkplatz" Me.btnVeragParkplatz.Size = New System.Drawing.Size(78, 64) @@ -725,4 +747,5 @@ Partial Class frmNewData Friend WithEvents btnSDL_PLOSE As Button Friend WithEvents btnSDL_PLOSE_IT As Button Friend WithEvents btnSDL_PLOSE_CZ As Button + Friend WithEvents btnSDL_PLOSE_MEDPASS As Button End Class diff --git a/SDL/mdm/frmNewData.resx b/SDL/mdm/frmNewData.resx index d584bd9e..6dfd0179 100644 --- a/SDL/mdm/frmNewData.resx +++ b/SDL/mdm/frmNewData.resx @@ -118,6 +118,77 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + iVBORw0KGgoAAAANSUhEUgAAADwAAAAeCAYAAABwmH1PAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAA8dSURBVFhH1VhnVBbXun4AUXoTIYBYsB1CxBITK1hA + kAQLIBZQEVAQUUFEEQUBKypFRBTxmIiiGARbFCtoaCJdP5DeESuanLuSc5N1k7nv+8noZ0nOOT9yV+5e + 61l7Zs/ee/bz9hmcq+tCQtkTpNe+QHrdv4ebbf9AdFHn0C9OVxo6ZlTD6ewbCILwlwZCctsw+XQV/G42 + wymjFjMzajCb+t8DP/e40oh+8SVnrFIknutvtcCL7kV86CV/JWBP0UM4X6yFz/UmLLvcgICsZvhcbcTK + ax/GmhtNWEuQ25EvjE2+f2hX4UOszW55DWpBBNoZN6QvAEy676VjMtd/NOZFEPcR8YLgTLCWGfN6TeTt + faTj1CJlxg5Lx3bffYiF39YhOKcN7lcasI4Ir85qwWrS+KoPIIjmLbvSOARhuUK/xLLC2JJObMptfQ1q + sgdlsnx48Z4PxQfng4h4LaDu+8bue3H8MEE8eEn3PV9L13QTE98h7s8QBc1rGHxtLSW8gAiH53dgxNf3 + YHemGpF3O7HhdivWEQJlwPfRJY9glfpgDUJyBMW9hb8EZDWp7yrswGYiy6AmS5gP8tYBCS9ErXQf9tPu + Z7yOm6hBcR9+zo0FwQfnngnxNffaBFmhiQIS9+X54pjJa8Khee2YkFIJh3M1Uu363WjGJtJm8HdvsIkQ + RSY87Eh5JrbmCdiWJyzPbJyTWPEEEfnthA7a8/XL+TD8IvGA4oG4l4U4XyTMBN6dI0LUFO8rrmOhsqnL + zuP38D7iexl8jrcJW5yshCMRtkytIg23UfR+jFAKakx2M5FnQlvz2hV7xRb9iF0FApv1mGOSQ0kVTxGW + 14FwAjVZab9LVBxjaYt4V8OyPs8QtcPPxb1lkSZj1qJAGCwE3ltWyJFvEZ5EhOedr4Xj+To4X6ijvgY7 + CtuxixBK5nqw4hHmnqtxRARpN+qugO35gt6Bks706uc4S+nqFPXUxEOJPRMUr6WE/4VJv7teNGluorWI + whLv0wjiXBaQ7HruRR9/n7AzEZ5HZGedrcWiy/Xks53YcadDqt2v7z/FxBOSFGzJeUV4LyEiVwi61Trh + WssPSK58Rnu+dVA+DJMUx2SlLeJDY6ypdwmLmuf5YnuXnAh+ryhIWTh/kDBr1+FcLbwoDTmRtl0u1uN4 + 5VNEFrTLqcQUdWInmTMTZoTnChYplTv3UODaSEGNGr+IpS8GE9G0eMy/u5cFz3l3jJvsPty453veT2zi + HO5Zi+J6ExnrEcecpWN/RNiD0tRiys3LKS8fKn+EoNstKth9R5BCJExmbZhQmr37Tjs8/z8UHn9E2Pdm + EwI4HVFBEZjdjOmpVT7YRWT3Fr4hTMFLNarwSXhu29AgCnRbCzo++KK/Ct4j7EZ+60kaXUKadblYZ/Ll + meqlZknlx3vHFbWAqqu3yDKiCZGvtE6aLptysjLKMaPGZvWNJmXpHpfq4UOVGccDRxKmfXoN9pJXRJBg + WDgiIoqfYb/kJRa7eWDaxEmIiYqF3xp/DP/EHKt912D8uIlwX7KUxqOxP24/plvbYM4sB1hb2cBnxUqs + D9wAH28fJBxIwBSLaSgsLERjUyPu37//FhBFpeWy642IL38Mm28e4ItvHoykknG9QXxxofweIkImK825 + 7LciWe5lwWNs5iwQCmI8Vyu26Ongw+WplNtdPTPr+3pT6epBgmTLiaHiJYzy9nuEK78nwp5/LmGqhT+a + dEKywiypIl8h8s6vUoJ88B1EcDcT6tbkfwIWApu+uA9ZgHr03Wd/Syo7PvVU1VSyKqUdVMBsyX+I9XmP + pAgo7MLeqh/h5v4nEw7IbtUZ8feKBQMSSlL14ksaerGJMultBC4uRA3+J9hDa3gPiuBMWC2m6Af9uOLC + scfvR1udkkzwvNLQc1vJcynhw3ebkUhIknTh69z7cJk7F1Mtp/55hP2yWmGbVo1VWU30cdDEEdlo+ukH + rqZHyk9rxxY9wc7ugzMBMTq/a87csx+L5k+C6nugVDL5ZNW+OWfrLDyzOuVWF3Rhxa12+sR8ALtzjUi9 + 146SexI0V1agQXIPT9takHv9CmbZz8TUKdZ/HuG12a2YSqWky6U6LL1SjxUUYPwpKq+iWtrvZpOS89ma + 6dNOVe01PFBSpsDEZFNSN1keV4u++8I4vjh99pkHPstzusy8c54jvrQT2wra4Hq+CgvSKuCS2YSxGa3w + z6zCD/X30FpZRoeQQEJoa2nFrexszJ41B1MnW/3fEHbLrJcGFrfMBvpkrMdqSkX8ARFJkXz97RY4n6t1 + lpq6rF+Tr/aOK37kealWw+lyM6I7BGy8UIwjVwvQ8eIfePacNOvrjxEjPkVA+C4cuVWO+tpadDY3oLWt + HU1Nzaivb6B5z5GTk4OZ9rMwxXIa9u+LR9CGjRhhPhKBAYHvEba2mg4nh7mYYfsF1voHYPOmEHgv98aB + +AOYNtka1dXVePGyC21trW/hdwm7EOGVZOLeVG29+jam1HKxTklquuyjIuGt+cLAxLLrUcVPMP9qK+yC + ojByyFCkJ8YpPW1r1K6uKNfycHFRGDPcHOHr16Ii+zK+f9KJopJShfyCfO3S0jLNSkkVamvrcOXKVcyZ + 7YAv7WbiUEIivL18TD42NZvk471SbzL5tUh4X2wcvrD7EnMdnUHjI5e6eZixcIKDNtKzfRhlPhpZWVma + FfcqtPLz86UoKLijlZOTq/OHhJcRWf4p8JXkCY5XPUUKlZcGCaVNUi1HdZMO+U6Yf742NK/rfxB55gbs + xgzHTBtbhaFDTJsMDfr++pGegaDfx/DlwP6DvgoPD9f49tuLuHHjhtznn40rV1VR/6fVtOmz3Jd6gA6N + I0eOwHflKoz9bPy40SPH5KooqQtyUBAM9Ix+HWwyNHDNqtWIjY7BV0ePkjnPMdTR0r2trqolaGnoCLq9 + +0g8lnq60d6k9Rn6RgbG/6WvZyjQHEFXR4/m9BYM9PsKHyS8lAhztbWCcif/CGDChyse40J9FyalSBIR + 2v3xwJqmKLzmesPoY60/Ys/R04gOD8HqVX6f9uqhwsUsHbjH99qaunQtJ4wwH5V38NAh+PsFqMqjh6Ag + 11PYGBRsEBm5G6EhoTidmorFi5ZY8lxeSyQfTRg3qUw6V15RmG0/a0F4WDjCwyKUhw0xbVHuqSoYGw24 + qaasQc4JKfHQkC1yAWsDzcQ9+hr1e0T7PKNnL00GDC54jzBXWVwduVD1tZd8N7b4IX34t9I3cQv2lTyE + x6V669d+THlWM664MazwCRUPbdi+czcOREeRWTpu5hdOmTwtOWxLGGbPnGOro60rqJLGyAx7zZo5W1te + TkEYPWpMReqpVJxMOYnc3Fzu1cga/psP6uDgFJKUdAQ1NbXYFLx5SU9FJaG3dp8unhsdFTOR54wbO+HR + /rgDiNobTUJe4zGgn4kZmT8cZjtGyEFeIN+22rZ1G5yd5sGT8nto6JZ3ojQRXkzadSfSEfQ5GEIf/qEU + tPgnAGM7V0S57VCPLXopzdH0mWhzuirmZMvPCLtwF8FrVmHn9p0w/2TkHT5QRPhWm8zMTCzz9FJWV9MU + 9HQ/EsJCwxTmz1swXUpqjlNYQsJBRJOZXjh/Ab4+vvYsKNNhH5eyIOL27Zf6s/nwkb1YWOQiwi8//4KM + 9Iz+vF5DTfu3xa5L1qecOIHEg4lwWbgIe3bvxd+GflympqIurPBeaeXk4Dzwk4/Nh7q6LBpw7dq1N4Rd + L9fRl1G9NDovzWykWPSQixKsu/U2Igs7MSSpPENaQlLOdblQa5tQ+xMij59HLJlzRPg2ZQN9o9+UlVSE + 6Kho83UB602NDI1z+YDjx07IT09Px7jPxyfzvbubh3XgunXYsX0Hiu4WwXXhomget/9ypg8Jhk0fjg5O + sLSYaqyppi31xdiYfYqdHQ/ZbfbxXBUlNUFTXeuMn58/rl2/juCNm1SNjfr/U11VU2D/1tPVF9TU1IVJ + Eyyy4/cfeEN43sVaLCEN82/bQCLmc70ZKykX+8qA78NI8/bp1V6s3Z4xd38MyetQCi96jF3xSTiVlIi1 + fgFTVZXVBR3yW6WeKoI8FAWlXqrU92i3nT5DL45SCvndTxyQ7Gzt1LZt3U4mNx/ko9DV1rvBpkikJjVQ + qjpxPAXpZ9IRuStyZE/FXoKZ6fA68k+5MPLj27dvkyZNd4q+amMzIyklJYWsZJUl701BqlVdRfOqjlaf + mz3ke+bMn7dwVkx07CvCk09VYf5F+tAn7QZmNWMtYQ2log+Bf9y7Xao3ZsImiWW54YWPsf56NaWRg7iY + cRYLF7iGKsgrCP2NTZ5PnGBRSeZUMMXSalMfnT5q8+bOo8PvHij135GflqSlpaFSUon7FRJpOiINXmPC + lEttL1++THu5oKqK3G2B6zEmtXKFb3Dm5Uy6hNwMWzsOXuSvTjuUe6kQQW1eBw93z9U8d11AoI2lxRSp + IIkwZtjYYZnHcsCfSsvPjkvgTr7rdbUJjhm1cDhbC8dzdb+LpZcaobCr4LfRX9/bH170HEGZ95FM2k0n + ApMmWmbzCxfMX+jR1tYmDSjjx07ENCoXk48d5/Tjzs9J4nEPOzrV8/MKdIuLS/rcvv2dMhURvqxJCmaF + I0aM0vx8zDj5ZZ7LVygqKlLEHvLz4cNJim5L3O1off3gQUMCIrZGYGv4NhsWoIqy6k/JycmUn+0z1VQ1 + hJn2s80MDA170FyGsqa6hpqRvhHgc62ZqqhWKgMfg3+3/js4V/8CVqeqvrJOkbj65jyG/ze5SD92FImH + EnU4MIG05OToNIhNMjh4M0dNfJOahvKyclhMtLzJhPsbD6SU0l/o01tf4Ajs77fWJj4+AapKGlITVeml + Jhh+1PcXvmZQpLbgHEuR+DzfK5Ob6Orov1RV1pC6DQlrBVlPj359Bwga5Luv1snRPDXp9YbADfYXztNS + jrx/v/cYKVXPkEz5Nlny9F+ACNd1Ufpt77vwYr3usqw2HL2Si9I7eYiNjRulrqZVbWZqnu213Ashm0Ow + fJk3Fs53xZaQMK6J5SiCn6OgVkpkq4hsCxUGzZrqOvWk/QEcVKhAsR00cEgu9QKDCOZbTJw8Z+eOnSxQ + rPTxlaeSMtjQwLhiAD1XV9dsJ9cJq6NKjdYP662tW0nuVEK5t2XYYNP2Af0GdQwyGVpDqUw3Le0M/hdJ + 9RrEJqMV8wAAAABJRU5ErkJggg== + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/SDL/mdm/frmNewData.vb b/SDL/mdm/frmNewData.vb index 86346766..58fa37cd 100644 --- a/SDL/mdm/frmNewData.vb +++ b/SDL/mdm/frmNewData.vb @@ -205,6 +205,7 @@ Public Class frmNewData Case 214 : btnAddLeistungVordefiniert.Image = My.Resources.plose : btnAddLeistungVordefiniert.Text = "PLOSE" & vbNewLine & "hinzufügen" Case 215 : btnAddLeistungVordefiniert.Image = My.Resources.plose_it : btnAddLeistungVordefiniert.Text = "PLOSE IT" & vbNewLine & "hinzufügen" Case 216 : btnAddLeistungVordefiniert.Image = My.Resources.plose_cz : btnAddLeistungVordefiniert.Text = "PLOSE CZ" & vbNewLine & "hinzufügen" + Case 217 : btnAddLeistungVordefiniert.Image = My.Resources.plose_medpass : btnAddLeistungVordefiniert.Text = "MEDPASS" & vbNewLine & "hinzufügen" Case 209 : btnAddLeistungVordefiniert.Image = My.Resources.viatoll : btnAddLeistungVordefiniert.Text = "Maut PL" & vbNewLine & "hinzufügen" Case 210 : btnAddLeistungVordefiniert.Image = My.Resources.abc_obu : btnAddLeistungVordefiniert.Text = "Maut SI" & vbNewLine & "hinzufügen" Case 208 : btnAddLeistungVordefiniert.Image = My.Resources.mse : btnAddLeistungVordefiniert.Text = "MSE" & vbNewLine & "hinzufügen" @@ -254,7 +255,7 @@ Public Class frmNewData Private Sub btnSDL_Woelfl_Click(sender As Object, e As EventArgs) Handles btnSDL_Woelfl.Click, btnSDL_IDS.Click, btnSDL_MautAT.Click, btnSDL_MautDE.Click, btnSDL_MautMSE.Click, btnSDL_UTA.Click, btnSDL_MautPL.Click, btnSDL_MautIT.Click, btnSDL_MautSI.Click, btnSDL_MautCZ.Click, btnSDL_ECOTAX.Click, btnSDL_FREJUS.Click, btnSDL_Hugo.Click, btnSDL_DouBox.Click, btnSDL_MotorWay.Click, btnSDL_MautFR.Click, btnAddLeistungVordefiniert.Click, btnSDL_MANAbgas.Click, - btnVeragParkplatz.Click, btnSDL_PLOSE.Click, btnSDL_PLOSE_IT.Click, btnSDL_PLOSE_CZ.Click + btnVeragParkplatz.Click, btnSDL_PLOSE.Click, btnSDL_PLOSE_IT.Click, btnSDL_PLOSE_CZ.Click, btnSDL_PLOSE_MEDPASS.Click If KdSearchBox1.KdNr <= 0 Then MsgBox("Kunde auswählen!") : Exit Sub diff --git a/SDL/mdm/usrCntlKartenDaten.Designer.vb b/SDL/mdm/usrCntlKartenDaten.Designer.vb index a4d412b8..23bb6800 100644 --- a/SDL/mdm/usrCntlKartenDaten.Designer.vb +++ b/SDL/mdm/usrCntlKartenDaten.Designer.vb @@ -74,13 +74,14 @@ Partial Class usrCntlKartenDaten Me.Panel3 = New System.Windows.Forms.Panel() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.dgvSDL = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails() Me.Panel4 = New System.Windows.Forms.Panel() Me.pnlTest = New System.Windows.Forms.Panel() Me.dgvFILTER = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() - Me.UsrCntlDatenDetails1 = New SDL.usrCntlDatenDetails() + Me.btnSDL_PLOSE_MEDPASS = New System.Windows.Forms.Button() Me.FlowLayoutPanel.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout() Me.Panel1.SuspendLayout() @@ -128,6 +129,7 @@ Partial Class usrCntlKartenDaten Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_IT) Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_CZ) + Me.FlowLayoutPanel.Controls.Add(Me.btnSDL_PLOSE_MEDPASS) Me.FlowLayoutPanel.Dock = System.Windows.Forms.DockStyle.Fill Me.FlowLayoutPanel.Location = New System.Drawing.Point(0, 0) Me.FlowLayoutPanel.Margin = New System.Windows.Forms.Padding(0) @@ -857,6 +859,15 @@ Partial Class usrCntlKartenDaten Me.dgvSDL.Size = New System.Drawing.Size(1354, 599) Me.dgvSDL.TabIndex = 29 ' + 'UsrCntlDatenDetails1 + ' + Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill + Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1" + Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234) + Me.UsrCntlDatenDetails1.TabIndex = 0 + Me.UsrCntlDatenDetails1.Visible = False + ' 'Panel4 ' Me.Panel4.BackColor = System.Drawing.Color.White @@ -915,14 +926,22 @@ Partial Class usrCntlKartenDaten Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22) Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)" ' - 'UsrCntlDatenDetails1 + 'btnSDL_PLOSE_MEDPASS ' - Me.UsrCntlDatenDetails1.Dock = System.Windows.Forms.DockStyle.Fill - Me.UsrCntlDatenDetails1.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlDatenDetails1.Name = "UsrCntlDatenDetails1" - Me.UsrCntlDatenDetails1.Size = New System.Drawing.Size(1354, 234) - Me.UsrCntlDatenDetails1.TabIndex = 0 - Me.UsrCntlDatenDetails1.Visible = False + Me.btnSDL_PLOSE_MEDPASS.Cursor = System.Windows.Forms.Cursors.Default + Me.btnSDL_PLOSE_MEDPASS.FlatAppearance.BorderSize = 0 + Me.btnSDL_PLOSE_MEDPASS.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSDL_PLOSE_MEDPASS.ForeColor = System.Drawing.Color.Black + Me.btnSDL_PLOSE_MEDPASS.Image = Global.SDL.My.Resources.Resources.plose_medpass + Me.btnSDL_PLOSE_MEDPASS.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.btnSDL_PLOSE_MEDPASS.Location = New System.Drawing.Point(404, 64) + Me.btnSDL_PLOSE_MEDPASS.Margin = New System.Windows.Forms.Padding(0) + Me.btnSDL_PLOSE_MEDPASS.Name = "btnSDL_PLOSE_MEDPASS" + Me.btnSDL_PLOSE_MEDPASS.Size = New System.Drawing.Size(78, 64) + Me.btnSDL_PLOSE_MEDPASS.TabIndex = 44 + Me.btnSDL_PLOSE_MEDPASS.Text = "MEDPASS" + Me.btnSDL_PLOSE_MEDPASS.TextAlign = System.Drawing.ContentAlignment.BottomCenter + Me.btnSDL_PLOSE_MEDPASS.UseVisualStyleBackColor = True ' 'usrCntlKartenDaten ' @@ -1007,4 +1026,5 @@ Partial Class usrCntlKartenDaten Friend WithEvents btnSDL_PLOSE As Button Friend WithEvents btnSDL_PLOSE_IT As Button Friend WithEvents btnSDL_PLOSE_CZ As Button + Friend WithEvents btnSDL_PLOSE_MEDPASS As Button End Class diff --git a/SDL/mdm/usrCntlKartenDaten.vb b/SDL/mdm/usrCntlKartenDaten.vb index f0ff9e05..1d6fcd03 100644 --- a/SDL/mdm/usrCntlKartenDaten.vb +++ b/SDL/mdm/usrCntlKartenDaten.vb @@ -94,6 +94,7 @@ Public Class usrCntlKartenDaten btnSDL_PLOSE.Visible = dt.Select("SDLNr=214").Count > 0 btnSDL_PLOSE_IT.Visible = dt.Select("SDLNr=215").Count > 0 btnSDL_PLOSE_CZ.Visible = dt.Select("SDLNr=216").Count > 0 + btnSDL_PLOSE_MEDPASS.Visible = dt.Select("SDLNr=217").Count > 0 btnMANAbgasplakette.Visible = dt.Select("SDLNr=500").Count > 0 btnVERAGParkplatz.Visible = dt.Select("SDLNr=501").Count > 0 @@ -123,6 +124,7 @@ Public Class usrCntlKartenDaten btnSDL_PLOSE.Visible = dt.Select("SDLNr=214").Count > 0 btnSDL_PLOSE_IT.Visible = dt.Select("SDLNr=215").Count > 0 btnSDL_PLOSE_CZ.Visible = dt.Select("SDLNr=216").Count > 0 + btnSDL_PLOSE_MEDPASS.Visible = dt.Select("SDLNr=217").Count > 0 btnMANAbgasplakette.Visible = dt.Select("SDLNr=500").Count > 0 btnVERAGParkplatz.Visible = dt.Select("SDLNr=501").Count > 0 @@ -511,6 +513,7 @@ Public Class usrCntlKartenDaten Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, /*KartenNr,*/ OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=214" Case 215 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [TELEPASS-Nr], PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=215" Case 216 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=216" + Case 217 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, KartenNr, OBUID, PIN, PLOSEKundenNr, /*GültigBis,*/Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL INNER JOIN [VERAG].[dbo].Adressen ON [VERAG].[dbo].Adressen.AdressenNr=SDL.KundenNr WHERE SDLNr=217" Case 209 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=209" Case 210 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, OBUID, [SERIE-Nr],Vermerk, Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=210" Case 208 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " KundenNr, SDL.SDLNr, KfzKennzeichen, History, Bestelldatum, Lieferdatum, [MSE-Kd-Nr], KartenNr, GültigBis,Vermerk,Gesperrt, Defekt, Verloren, Gestohlen, Retourniert, SDL.Erfassungsdatum, SDL.Änderungsdatum, SDL.Sachbearbeiter FROM SDL WHERE SDLNr=208" @@ -563,6 +566,7 @@ Public Class usrCntlKartenDaten Case 214 : Return btnSDL_PLOSE Case 215 : Return btnSDL_PLOSE_IT Case 216 : Return btnSDL_PLOSE_CZ + Case 217 : Return btnSDL_PLOSE_MEDPASS Case 209 : Return btnSDL_MautPL Case 210 : Return btnSDL_MautSI Case 208 : Return btnSDL_MautMSE @@ -721,7 +725,7 @@ Public Class usrCntlKartenDaten End If btnRetourniert.Enabled = False - If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213 Or sdlNr = 214 Or sdlNr = 215 Or sdlNr = 216) Then + If (sdlNr = 202 Or sdlNr = 203 Or sdlNr = 209 Or sdlNr = 210 Or sdlNr = 211 Or sdlNr = 213 Or sdlNr = 214 Or sdlNr = 215 Or sdlNr = 216 Or sdlNr = 217) Then btnRetourniert.Enabled = True End If @@ -737,6 +741,7 @@ Public Class usrCntlKartenDaten If sdlNr = 214 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 215 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 216 Then btnBenachrichtigungKartenboxen.Enabled = True + If sdlNr = 217 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 208 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 207 Then btnBenachrichtigungKartenboxen.Enabled = True If sdlNr = 101 Then btnBenachrichtigungKartenboxen.Enabled = True @@ -1149,6 +1154,7 @@ Public Class usrCntlKartenDaten Case 214 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE.doc" Case 215 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_IT.doc" Case 216 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE_CZ.doc" + Case 217 : pfad = AppDomain.CurrentDomain.BaseDirectory & "Resources\MDM_Schreiben\Retour\PLOSE.doc" End Select If Not System.IO.File.Exists(pfad) Then @@ -1173,7 +1179,8 @@ Public Class usrCntlKartenDaten Case 213 : odoc = getWordRetourniert_HUGO(odoc, kdNr, datum) Case 214 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum) Case 215 : odoc = getWordRetourniert_PLOSE_IT(odoc, kdNr, datum) - Case 216 : odoc = getWordRetourniert_PLOSE_CZ(odoc, kdNr, datum) + Case 216 : odoc = getWordRetourniert_PLOSE_MEDPASS(odoc, kdNr, datum) + Case 217 : odoc = getWordRetourniert_PLOSE(odoc, kdNr, datum) Case Else : odoc.Close() : MsgBox("Falsche Leistung") End Select @@ -1368,6 +1375,43 @@ Public Class usrCntlKartenDaten Return odoc End Function + Function getWordRetourniert_PLOSE_MEDPASS(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document + Try + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=217 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'") + Dim KUNDE = kundenSQL.getKundeFMZOLLByKdNr(kdNr) + If KUNDE Is Nothing Then MsgBox("Kunde nicht gefunden!") : Return odoc + Dim PartnerKdNrFromFMZOLL As cPartnerKdNRFMZoll = kundenSQL.getPartnerKdNrFromFMZOLL(kdNr) + + Dim oTable As Word.Table + odoc.FormFields("Anzahl").Range.Text = dt.Rows.Count + odoc.FormFields("KdName").Range.Text = KUNDE.Name_1 & " " & KUNDE.Name_2 + odoc.FormFields("KdStrasse").Range.Text = KUNDE.Straße + odoc.FormFields("KdOrt").Range.Text = KUNDE.LandKz & " " & KUNDE.PLZ & " " & KUNDE.Ort + odoc.FormFields("KdNrVERAG").Range.Text = KUNDE.KundenNr + odoc.FormFields("KdNrMST").Range.Text = PartnerKdNrFromFMZOLL.PLOSE_KundenNr + odoc.FormFields("Sachbearbeiter").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + + If odoc.Range.Bookmarks.Exists("TabelleKarten2") Then + If odoc.Bookmarks("TabelleKarten2").Range.Tables.Count > 0 Then + oTable = odoc.Bookmarks("TabelleKarten2").Range.Tables(1) + Dim i = 1 + For Each r As DataRow In dt.Rows + oTable.Rows(i + 1).Cells(1).Range.Text = cSqlDb.checkNullStr(r("KfzKennzeichen")) + oTable.Rows(i + 1).Cells(2).Range.Text = cSqlDb.checkNullStr(r("KartenNr")) + oTable.Rows(i + 1).Cells(3).Range.Text = cSqlDb.checkNullStr(r("OBUID")) + If i < dt.Rows.Count Then oTable.Rows.Add() + i += 1 + Next + End If + Else + MessageBox.Show("Textmarke nicht vorhanden!") + End If + Catch ex As Exception + MessageBox.Show(ex.ToString) + End Try + Return odoc + End Function + Function getWordRetourniert_MULTI(odoc As Microsoft.Office.Interop.Word.Document, kdNr As Integer, datum As Date) As Microsoft.Office.Interop.Word.Document Try Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM SDL WHERE KundenNr=" & kdNr & " AND SDLNr=211 AND Retourniert=1 AND RetourniertAm between '" & datum.ToShortDateString & " 00:00:00' and '" & datum.ToShortDateString & " 23:59:59'") @@ -1586,4 +1630,8 @@ Public Class usrCntlKartenDaten Private Sub btnSDL_PLOSE_CZ_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_CZ.Click SET_SDL(216) End Sub + + Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles btnSDL_PLOSE_MEDPASS.Click + SET_SDL(217) + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb index 22f8c70e..ff419f85 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb @@ -245,5 +245,6 @@ Public Class cAvisoBenachrichtigungenCodes Public Shared Vermerke_Reminder As Integer = 5 Public Shared Vorauskasse_OK As Integer = 6 Public Shared ZOLL_Dokumentenbeschau As Integer = 7 + Public Shared ZOLL_Rueckweisung As Integer = 8 End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb index e833d7e1..05e682d2 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsnummern.vb @@ -9,6 +9,7 @@ Public Class cRechnungsnummern Property VonRechnungsNr As Integer = -1 Property BisRechnungsNr As Integer = -1 Property LfdRechnungsNr As Integer = 0 + ' Property upsize_ts As String Dim SQL As New SQL @@ -58,6 +59,7 @@ Public Class cRechnungsnummern '------------------------------------- + 'LOAD(SpeditionsbuchNr, Buchungsjahr) LOAD(SpeditionsbuchNr, Buchungsjahr) End Sub @@ -69,6 +71,8 @@ Public Class cRechnungsnummern LfdRechnungsNr = 1 End If SAVE() + + 'ROWVERSION Return LfdRechnungsNr End Function @@ -94,6 +98,29 @@ Public Class cRechnungsnummern End Function + + Public Shared Function CHECK_RGNR_NEW(aktuelleRechnungsnummer, SpeditionsbuchNr, Buchungsjahr) As Integer ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. + CHECK_RGNR_NEW = aktuelleRechnungsnummer + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + ' If sleep Then System.Threading.Thread.Sleep(200) ' nur, um abzuwarten falls parallel eine Nr vergeben wird + While SQL.DLookup("count(*)", "Rechnungsausgang", " RechnungsNr='" & aktuelleRechnungsnummer & "' and Firma_ID='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) > 0 + 'Wenn eine Doppelvergabe festgestellt wurde --> LfdRgNr aus DB neu ziehen:... + Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(SpeditionsbuchNr, Buchungsjahr) + aktuelleRechnungsnummer = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet + CHECK_RGNR_NEW = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet + RG_NR.INCREASE_RGNR() ' ..... und gelcih wieder hcoh zählen + + System.Threading.Thread.Sleep(50) ' nur, um abzuwarten falls parallel eine Nr vergeben wird + End While + + End Function + + + Public Shared Function DECREASE_RGNR_NEW(SpeditionsbuchNr, Buchungsjahr) As Boolean + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Return SQL.doSQL("UPDATE [Rechnungsnummern] SET LfdRechnungsNr=LfdRechnungsNr-1 WHERE SpeditionsbuchNr='" & SpeditionsbuchNr & "' and Buchungsjahr='" & Buchungsjahr & "' ", "FMZOLL", 0) + End Function + Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList() @@ -103,13 +130,16 @@ Public Class cRechnungsnummern " BEGIN " & getInsertCmd() & " END " & " commit tran " 'MsgBox(sqlstr) + ' Dim returnBool = SQL.doSQL(sqlstr, "FMZOLL", , list) + ' Me.upsize_ts = SQL.DLookup("upsize_ts", "Rechnungsnummern", "SpeditionsbuchNr ='" & Me.SpeditionsbuchNr & "' AND Buchungsjahr='" & Me.Buchungsjahr & "'") + ' Return returnBool Return SQL.doSQL(sqlstr, "FMZOLL", , list) End Function Public Sub LOAD(SpeditionsbuchNr As String, Buchungsjahr As String) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT * FROM Rechnungsnummern WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ", conn) + Using cmd As New SqlCommand("SELECT * FROM Rechnungsnummern WITH(updlock,serializable) WHERE [SpeditionsbuchNr]=@SpeditionsbuchNr AND Buchungsjahr=@Buchungsjahr ", conn) cmd.Parameters.AddWithValue("@SpeditionsbuchNr", SpeditionsbuchNr) cmd.Parameters.AddWithValue("@Buchungsjahr", Buchungsjahr) @@ -120,7 +150,7 @@ Public Class cRechnungsnummern Me.LfdRechnungsNr = cSqlDb.checkNullStr(dr.Item("LfdRechnungsNr")) Me.VonRechnungsNr = cSqlDb.checkNullInteger(dr.Item("VonRechnungsNr")) Me.BisRechnungsNr = cSqlDb.checkNullInteger(dr.Item("BisRechnungsNr")) - + ' Me.upsize_ts = dr.Item("upsize_ts") End If dr.Close() End Using @@ -140,6 +170,7 @@ Public Class cRechnungsnummern list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdRechnungsNr", LfdRechnungsNr)) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("VonRechnungsNr", VonRechnungsNr)) list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("BisRechnungsNr", BisRechnungsNr)) + Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index b06ea453..5b291790 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -674,6 +674,8 @@ Public Class cSendungen If i.Text = "tblSnd_AbklaerungTR_MA" Then jump = True If i.Text = "tblSnd_AbfertigungTR" Then jump = True If i.Text = "tblSnd_AbfertigungTR_MA" Then jump = True + If i.Text = "tblSnd_AbfertigungTRAnzahl" Then jump = True + If i.Text = "tblSnd_AbfertigungTRAnzahlPos" Then jump = True End If diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb index 61069cf7..01fc22ec 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSession.vb @@ -125,9 +125,11 @@ Public Class cSession - Public Shared Function IS_ONLINE(sess_maId) As Boolean + Public Shared Function IS_ONLINE(sess_maId, Optional andIsRealUser = False) As Boolean Try Dim SQL As New SQL + Dim where = "" + If andIsRealUser Then where = " AND mit_pseudoUser=0 " Dim sess_IdOnline = SQL.getValueTxtBySql("SELECT TOP 1 sess_Id FROM tblSessions where sess_lastRm > dateadd(MINUTE,-2, getdate()) AND sess_maId='" & sess_maId & "' ORDER BY sess_lastActivity DESC,sess_lastRm DESC", "ADMIN",,, -1) If sess_IdOnline > 0 Then Return True diff --git a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb index dd3c3b0c..30d0ab19 100644 --- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb +++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb @@ -25,24 +25,27 @@ Partial Class frmMessenger _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + 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() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() + Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel6 = New System.Windows.Forms.Panel() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() + Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.Panel5 = New System.Windows.Forms.Panel() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.Label1 = New System.Windows.Forms.Label() Me.Button8 = New System.Windows.Forms.Button() @@ -52,11 +55,17 @@ Partial Class frmMessenger Me.cbxInaktiveChatsSpecial = New System.Windows.Forms.CheckBox() Me.Panel1 = New System.Windows.Forms.Panel() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() + Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() + Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() + Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.lbl = New System.Windows.Forms.Label() Me.btnNeu = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) + Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.Panel3 = New System.Windows.Forms.Panel() Me.btnTeilnehmer = New System.Windows.Forms.Button() Me.Panel4 = New System.Windows.Forms.Panel() @@ -68,6 +77,9 @@ Partial Class frmMessenger Me.pnlTeilnehmer = New System.Windows.Forms.Panel() Me.Label4 = New System.Windows.Forms.Label() Me.dgvChatMembers = New System.Windows.Forms.DataGridView() + Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.Panel8 = New System.Windows.Forms.Panel() Me.Label2 = New System.Windows.Forms.Label() Me.Panel9 = New System.Windows.Forms.Panel() @@ -87,18 +99,6 @@ Partial Class frmMessenger Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.UsrCntlChat_Art_Btn_MACHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() - Me.UsrCntlChat_Art_Btn_LKWCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() - Me.UsrCntlChat_Art_Btn_SNDCHAT = New VERAG_PROG_ALLGEMEIN.usrCntlChat_Art_Btn() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components) - Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() - Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn() CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainer.Panel1.SuspendLayout() Me.SplitContainer.Panel2.SuspendLayout() @@ -107,7 +107,9 @@ Partial Class frmMessenger Me.SplitContainer2.Panel1.SuspendLayout() Me.SplitContainer2.Panel2.SuspendLayout() Me.SplitContainer2.SuspendLayout() + CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel6.SuspendLayout() + CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel5.SuspendLayout() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() @@ -118,6 +120,7 @@ Partial Class frmMessenger Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() + Me.MyFlowLayoutPanel1.SuspendLayout() Me.Panel3.SuspendLayout() Me.pnl.SuspendLayout() CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit() @@ -130,9 +133,6 @@ Partial Class frmMessenger Me.Panel9.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.cntxt.SuspendLayout() - CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).BeginInit() - Me.MyFlowLayoutPanel1.SuspendLayout() Me.SuspendLayout() ' 'SplitContainer @@ -179,6 +179,53 @@ Partial Class frmMessenger Me.SplitContainer2.SplitterWidth = 3 Me.SplitContainer2.TabIndex = 8 ' + 'dgvChats + ' + Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvChats.AllowUserToAddRows = False + Me.dgvChats.AllowUserToDeleteRows = False + Me.dgvChats.AllowUserToResizeColumns = False + Me.dgvChats.AllowUserToResizeRows = False + Me.dgvChats.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1 + Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvChats.ColumnHeadersVisible = False + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle2 + Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvChats.Location = New System.Drawing.Point(0, 0) + Me.dgvChats.Name = "dgvChats" + Me.dgvChats.ReadOnly = True + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 + Me.dgvChats.RowHeadersVisible = False + Me.dgvChats.RowHeadersWidth = 62 + DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle4 + Me.dgvChats.RowTemplate.Height = 30 + Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvChats.Size = New System.Drawing.Size(275, 773) + Me.dgvChats.TabIndex = 0 + ' 'Panel6 ' Me.Panel6.Controls.Add(Me.lblLKWChat_MsgCntInaktiv) @@ -213,6 +260,53 @@ Partial Class frmMessenger Me.cbxInaktiveChats.Text = "inaktive Chats" Me.cbxInaktiveChats.UseVisualStyleBackColor = True ' + 'DGVSonstige + ' + Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1 + Me.DGVSonstige.AllowUserToAddRows = False + Me.DGVSonstige.AllowUserToDeleteRows = False + Me.DGVSonstige.AllowUserToResizeColumns = False + Me.DGVSonstige.AllowUserToResizeRows = False + Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5 + Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DGVSonstige.ColumnHeadersVisible = False + DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle6 + Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill + Me.DGVSonstige.Location = New System.Drawing.Point(0, 63) + Me.DGVSonstige.Name = "DGVSonstige" + Me.DGVSonstige.ReadOnly = True + DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle7 + Me.DGVSonstige.RowHeadersVisible = False + Me.DGVSonstige.RowHeadersWidth = 62 + DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle8 + Me.DGVSonstige.RowTemplate.Height = 30 + Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.DGVSonstige.Size = New System.Drawing.Size(150, 0) + Me.DGVSonstige.TabIndex = 1 + ' 'Panel5 ' Me.Panel5.BackColor = System.Drawing.Color.White @@ -227,6 +321,30 @@ Partial Class frmMessenger Me.Panel5.Size = New System.Drawing.Size(150, 63) Me.Panel5.TabIndex = 2 ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = False + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(20, 40) + Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(250, 20) + Me.MyTextBox2.TabIndex = 4 + ' 'PictureBox2 ' Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search @@ -332,6 +450,60 @@ Partial Class frmMessenger Me.FlowLayoutPanel1.Size = New System.Drawing.Size(275, 30) Me.FlowLayoutPanel1.TabIndex = 10 ' + 'UsrCntlChat_Art_Btn_MACHAT + ' + Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True + Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein" + Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0) + Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0) + Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT" + Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29) + Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8 + ' + 'UsrCntlChat_Art_Btn_LKWCHAT + ' + Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False + Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW" + Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0) + Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0) + Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT" + Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29) + Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9 + ' + 'UsrCntlChat_Art_Btn_SNDCHAT + ' + Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False + Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung" + Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0) + Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0) + Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT" + Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29) + Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10 + ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = False + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._numbersOnlyTrennzeichen = True + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._TimeOnly_Seconds = False + Me.MyTextBox1._value = "" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(20, 40) + Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(250, 20) + Me.MyTextBox1.TabIndex = 4 + ' 'PictureBox1 ' Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.search @@ -397,6 +569,28 @@ Partial Class frmMessenger Me.SplitContainer1.SplitterDistance = 600 Me.SplitContainer1.TabIndex = 0 ' + 'MyFlowLayoutPanel1 + ' + Me.MyFlowLayoutPanel1.AutoScroll = True + Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White + Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1) + Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44) + Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" + Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556) + Me.MyFlowLayoutPanel1.TabIndex = 0 + ' + 'UsrCntlMessenger_ChatElement1 + ' + Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White + Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing + Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5) + Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) + Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1" + Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48) + Me.UsrCntlMessenger_ChatElement1.TabIndex = 4 + Me.UsrCntlMessenger_ChatElement1.Visible = False + ' 'Panel3 ' Me.Panel3.BackColor = System.Drawing.Color.White @@ -542,42 +736,67 @@ Partial Class frmMessenger Me.dgvChatMembers.AllowUserToResizeColumns = False Me.dgvChatMembers.AllowUserToResizeRows = False Me.dgvChatMembers.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle20.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle20.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle20.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle20.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle20 + DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChatMembers.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle9 Me.dgvChatMembers.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvChatMembers.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMaId, Me.clmnName, Me.clmnFirma}) - DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle21 + DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle10 Me.dgvChatMembers.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvChatMembers.Location = New System.Drawing.Point(0, 23) Me.dgvChatMembers.Name = "dgvChatMembers" Me.dgvChatMembers.ReadOnly = True - DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle22 + DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control + DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText + DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] + Me.dgvChatMembers.RowHeadersDefaultCellStyle = DataGridViewCellStyle11 Me.dgvChatMembers.RowHeadersVisible = False Me.dgvChatMembers.RowHeadersWidth = 62 Me.dgvChatMembers.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvChatMembers.Size = New System.Drawing.Size(220, 146) Me.dgvChatMembers.TabIndex = 8 ' + 'clmnMaId + ' + Me.clmnMaId.HeaderText = "Column1" + Me.clmnMaId.MinimumWidth = 8 + Me.clmnMaId.Name = "clmnMaId" + Me.clmnMaId.ReadOnly = True + Me.clmnMaId.Visible = False + Me.clmnMaId.Width = 150 + ' + 'clmnName + ' + Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnName.HeaderText = "Name" + Me.clmnName.MinimumWidth = 8 + Me.clmnName.Name = "clmnName" + Me.clmnName.ReadOnly = True + ' + 'clmnFirma + ' + Me.clmnFirma.HeaderText = "Firma" + Me.clmnFirma.MinimumWidth = 8 + Me.clmnFirma.Name = "clmnFirma" + Me.clmnFirma.ReadOnly = True + Me.clmnFirma.Width = 85 + ' 'Panel8 ' Me.Panel8.BackColor = System.Drawing.SystemColors.Control @@ -760,225 +979,6 @@ Partial Class frmMessenger Me.DataGridViewTextBoxColumn3.ReadOnly = True Me.DataGridViewTextBoxColumn3.Width = 150 ' - 'dgvChats - ' - Me.dgvChats.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvChats.AllowUserToAddRows = False - Me.dgvChats.AllowUserToDeleteRows = False - Me.dgvChats.AllowUserToResizeColumns = False - Me.dgvChats.AllowUserToResizeRows = False - Me.dgvChats.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvChats.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle12 - Me.dgvChats.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvChats.ColumnHeadersVisible = False - DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.dgvChats.DefaultCellStyle = DataGridViewCellStyle13 - Me.dgvChats.Dock = System.Windows.Forms.DockStyle.Fill - Me.dgvChats.Location = New System.Drawing.Point(0, 0) - Me.dgvChats.Name = "dgvChats" - Me.dgvChats.ReadOnly = True - DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle14.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle14.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.dgvChats.RowHeadersDefaultCellStyle = DataGridViewCellStyle14 - Me.dgvChats.RowHeadersVisible = False - Me.dgvChats.RowHeadersWidth = 62 - DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.dgvChats.RowsDefaultCellStyle = DataGridViewCellStyle15 - Me.dgvChats.RowTemplate.Height = 30 - Me.dgvChats.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvChats.Size = New System.Drawing.Size(275, 773) - Me.dgvChats.TabIndex = 0 - ' - 'DGVSonstige - ' - Me.DGVSonstige.AKTUALISIERUNGS_INTERVALL = -1 - Me.DGVSonstige.AllowUserToAddRows = False - Me.DGVSonstige.AllowUserToDeleteRows = False - Me.DGVSonstige.AllowUserToResizeColumns = False - Me.DGVSonstige.AllowUserToResizeRows = False - Me.DGVSonstige.BackgroundColor = System.Drawing.Color.White - DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DGVSonstige.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle16 - Me.DGVSonstige.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.DGVSonstige.ColumnHeadersVisible = False - DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.ControlText - DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DGVSonstige.DefaultCellStyle = DataGridViewCellStyle17 - Me.DGVSonstige.Dock = System.Windows.Forms.DockStyle.Fill - Me.DGVSonstige.Location = New System.Drawing.Point(0, 63) - Me.DGVSonstige.Name = "DGVSonstige" - Me.DGVSonstige.ReadOnly = True - DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle18.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - DataGridViewCellStyle18.ForeColor = System.Drawing.SystemColors.WindowText - DataGridViewCellStyle18.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle18.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] - Me.DGVSonstige.RowHeadersDefaultCellStyle = DataGridViewCellStyle18 - Me.DGVSonstige.RowHeadersVisible = False - Me.DGVSonstige.RowHeadersWidth = 62 - DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.DGVSonstige.RowsDefaultCellStyle = DataGridViewCellStyle19 - Me.DGVSonstige.RowTemplate.Height = 30 - Me.DGVSonstige.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.DGVSonstige.Size = New System.Drawing.Size(150, 0) - Me.DGVSonstige.TabIndex = 1 - ' - 'MyTextBox2 - ' - Me.MyTextBox2._DateTimeOnly = False - Me.MyTextBox2._numbersOnly = False - Me.MyTextBox2._numbersOnlyKommastellen = "" - Me.MyTextBox2._numbersOnlyTrennzeichen = True - Me.MyTextBox2._Prozent = False - Me.MyTextBox2._ShortDateNew = False - Me.MyTextBox2._ShortDateOnly = False - Me.MyTextBox2._TimeOnly = False - Me.MyTextBox2._TimeOnly_Seconds = False - Me.MyTextBox2._value = "" - Me.MyTextBox2._Waehrung = False - Me.MyTextBox2._WaehrungZeichen = True - Me.MyTextBox2.ForeColor = System.Drawing.Color.Black - Me.MyTextBox2.Location = New System.Drawing.Point(20, 40) - Me.MyTextBox2.Margin = New System.Windows.Forms.Padding(2) - Me.MyTextBox2.MaxLineLength = -1 - Me.MyTextBox2.MaxLines_Warning = "" - Me.MyTextBox2.MaxLines_Warning_Label = Nothing - Me.MyTextBox2.Name = "MyTextBox2" - Me.MyTextBox2.Size = New System.Drawing.Size(250, 20) - Me.MyTextBox2.TabIndex = 4 - ' - 'UsrCntlChat_Art_Btn_MACHAT - ' - Me.UsrCntlChat_Art_Btn_MACHAT._aktiv = True - Me.UsrCntlChat_Art_Btn_MACHAT._name = "Allgemein" - Me.UsrCntlChat_Art_Btn_MACHAT.Location = New System.Drawing.Point(0, 0) - Me.UsrCntlChat_Art_Btn_MACHAT.Margin = New System.Windows.Forms.Padding(0) - Me.UsrCntlChat_Art_Btn_MACHAT.Name = "UsrCntlChat_Art_Btn_MACHAT" - Me.UsrCntlChat_Art_Btn_MACHAT.Size = New System.Drawing.Size(90, 29) - Me.UsrCntlChat_Art_Btn_MACHAT.TabIndex = 8 - ' - 'UsrCntlChat_Art_Btn_LKWCHAT - ' - Me.UsrCntlChat_Art_Btn_LKWCHAT._aktiv = False - Me.UsrCntlChat_Art_Btn_LKWCHAT._name = "LKW" - Me.UsrCntlChat_Art_Btn_LKWCHAT.Location = New System.Drawing.Point(90, 0) - Me.UsrCntlChat_Art_Btn_LKWCHAT.Margin = New System.Windows.Forms.Padding(0) - Me.UsrCntlChat_Art_Btn_LKWCHAT.Name = "UsrCntlChat_Art_Btn_LKWCHAT" - Me.UsrCntlChat_Art_Btn_LKWCHAT.Size = New System.Drawing.Size(90, 29) - Me.UsrCntlChat_Art_Btn_LKWCHAT.TabIndex = 9 - ' - 'UsrCntlChat_Art_Btn_SNDCHAT - ' - Me.UsrCntlChat_Art_Btn_SNDCHAT._aktiv = False - Me.UsrCntlChat_Art_Btn_SNDCHAT._name = "Sendung" - Me.UsrCntlChat_Art_Btn_SNDCHAT.Location = New System.Drawing.Point(180, 0) - Me.UsrCntlChat_Art_Btn_SNDCHAT.Margin = New System.Windows.Forms.Padding(0) - Me.UsrCntlChat_Art_Btn_SNDCHAT.Name = "UsrCntlChat_Art_Btn_SNDCHAT" - Me.UsrCntlChat_Art_Btn_SNDCHAT.Size = New System.Drawing.Size(90, 29) - Me.UsrCntlChat_Art_Btn_SNDCHAT.TabIndex = 10 - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = False - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._numbersOnlyTrennzeichen = True - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._TimeOnly_Seconds = False - Me.MyTextBox1._value = "" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(20, 40) - Me.MyTextBox1.Margin = New System.Windows.Forms.Padding(2) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(250, 20) - Me.MyTextBox1.TabIndex = 4 - ' - 'MyFlowLayoutPanel1 - ' - Me.MyFlowLayoutPanel1.AutoScroll = True - Me.MyFlowLayoutPanel1.BackColor = System.Drawing.Color.White - Me.MyFlowLayoutPanel1.Controls.Add(Me.UsrCntlMessenger_ChatElement1) - Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Fill - Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(0, 44) - Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1" - Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(633, 556) - Me.MyFlowLayoutPanel1.TabIndex = 0 - ' - 'UsrCntlMessenger_ChatElement1 - ' - Me.UsrCntlMessenger_ChatElement1.BackColor = System.Drawing.Color.White - Me.UsrCntlMessenger_ChatElement1.CHAT_MSG = Nothing - Me.UsrCntlMessenger_ChatElement1.Location = New System.Drawing.Point(4, 5) - Me.UsrCntlMessenger_ChatElement1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) - Me.UsrCntlMessenger_ChatElement1.Name = "UsrCntlMessenger_ChatElement1" - Me.UsrCntlMessenger_ChatElement1.Size = New System.Drawing.Size(378, 48) - Me.UsrCntlMessenger_ChatElement1.TabIndex = 4 - Me.UsrCntlMessenger_ChatElement1.Visible = False - ' - 'clmnMaId - ' - Me.clmnMaId.HeaderText = "Column1" - Me.clmnMaId.MinimumWidth = 8 - Me.clmnMaId.Name = "clmnMaId" - Me.clmnMaId.ReadOnly = True - Me.clmnMaId.Visible = False - Me.clmnMaId.Width = 150 - ' - 'clmnName - ' - Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnName.HeaderText = "Name" - Me.clmnName.MinimumWidth = 8 - Me.clmnName.Name = "clmnName" - Me.clmnName.ReadOnly = True - ' - 'clmnFirma - ' - Me.clmnFirma.HeaderText = "Firma" - Me.clmnFirma.MinimumWidth = 8 - Me.clmnFirma.Name = "clmnFirma" - Me.clmnFirma.ReadOnly = True - Me.clmnFirma.Width = 85 - ' 'frmMessenger ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -997,8 +997,10 @@ Partial Class frmMessenger Me.SplitContainer2.Panel2.ResumeLayout(False) CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer2.ResumeLayout(False) + CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel6.ResumeLayout(False) Me.Panel6.PerformLayout() + CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel5.ResumeLayout(False) Me.Panel5.PerformLayout() CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() @@ -1012,6 +1014,7 @@ Partial Class frmMessenger Me.SplitContainer1.Panel2.ResumeLayout(False) CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) + Me.MyFlowLayoutPanel1.ResumeLayout(False) Me.Panel3.ResumeLayout(False) Me.Panel3.PerformLayout() Me.pnl.ResumeLayout(False) @@ -1026,9 +1029,6 @@ Partial Class frmMessenger Me.Panel9.ResumeLayout(False) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() Me.cntxt.ResumeLayout(False) - CType(Me.dgvChats, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DGVSonstige, System.ComponentModel.ISupportInitialize).EndInit() - Me.MyFlowLayoutPanel1.ResumeLayout(False) Me.ResumeLayout(False) End Sub