+SDL-Leistung_MED PASS; Anpassung Fakturierung
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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 = ""
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.2.3.7")>
|
||||
<Assembly: AssemblyFileVersion("1.2.3.7")>
|
||||
<Assembly: AssemblyVersion("1.2.3.9")>
|
||||
<Assembly: AssemblyFileVersion("1.2.3.9")>
|
||||
|
||||
10
SDL/My Project/Resources.Designer.vb
generated
10
SDL/My Project/Resources.Designer.vb
generated
@@ -1513,6 +1513,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
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
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
||||
@@ -853,4 +853,7 @@
|
||||
<data name="documents" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\documents.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="plose_medpass" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\plose_medpass.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
||||
Binary file not shown.
BIN
SDL/Resources/plose_medpass.png
Normal file
BIN
SDL/Resources/plose_medpass.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 3.9 KiB |
@@ -638,6 +638,12 @@
|
||||
<Compile Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb">
|
||||
<DependentUpon>usrCntlSDLLeistungenPLOSE_MEDPASS.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_MEDPASS.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
@@ -2847,6 +2853,9 @@
|
||||
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.resx">
|
||||
<DependentUpon>rptPLOSE_CustomerConsortio.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="mdm\SDLLeistungenDetails\usrCntlSDLLeistungenPLOSE_MEDPASS.resx">
|
||||
<DependentUpon>usrCntlSDLLeistungenPLOSE_MEDPASS.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="Reports\Zoll\rptKontrolleLKW_TELOTEC.resx">
|
||||
<DependentUpon>rptKontrolleLKW_TELOTEC.vb</DependentUpon>
|
||||
@@ -3882,6 +3891,9 @@
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
<None Include="Resources\LKW_Liste.xlsx" />
|
||||
<None Include="Resources\MDM_Schreiben\Uebernahmebestätigung\ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
<None Include="Resources\RG_ZF.xlsx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
@@ -4281,6 +4293,7 @@
|
||||
<Content Include="Resources\food.png" />
|
||||
<None Include="Resources\food1.png" />
|
||||
<None Include="Resources\food2.png" />
|
||||
<None Include="Resources\plose_medpass.png" />
|
||||
<Content Include="Resources\Verag_Customs_Service_AEO.jpg" />
|
||||
<None Include="Resources\mic-logo.jpg" />
|
||||
<None Include="Resources\mic-logo - short.jpg" />
|
||||
|
||||
@@ -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
|
||||
|
||||
949
SDL/kunden/frmKundenblatt.Designer.vb
generated
949
SDL/kunden/frmKundenblatt.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -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)
|
||||
|
||||
650
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb
generated
Normal file
650
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_MEDPASS.Designer.vb
generated
Normal file
@@ -0,0 +1,650 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlSDLLeistungenPLOSE_MEDPASS
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
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.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
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
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -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
|
||||
@@ -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"
|
||||
@@ -180,6 +181,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
WHERE 1 = 1
|
||||
And plose_DatumTransaktion between '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'
|
||||
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 & "' "
|
||||
|
||||
25
SDL/mdm/frmNewData.Designer.vb
generated
25
SDL/mdm/frmNewData.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -118,6 +118,77 @@
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="btnSDL_PLOSE_MEDPASS.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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==
|
||||
</value>
|
||||
</data>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
36
SDL/mdm/usrCntlKartenDaten.Designer.vb
generated
36
SDL/mdm/usrCntlKartenDaten.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
544
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
generated
544
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb
generated
@@ -25,24 +25,27 @@ Partial Class frmMessenger
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user