Gessamtsicherheiten, Gesamtsicherheiten, essensbestellungen
This commit is contained in:
@@ -543,6 +543,18 @@
|
||||
<Compile Include="frmEssensbestellungen.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmEssensbestellungenAdministration.Designer.vb">
|
||||
<DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmEssensbestellungenAdministration.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmEssensbestellungenBearbeiten.Designer.vb">
|
||||
<DependentUpon>frmEssensbestellungenBearbeiten.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmEssensbestellungenBearbeiten.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmFrachtkostenBerechnen.Designer.vb">
|
||||
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -962,6 +974,12 @@
|
||||
<Compile Include="usrCntlEintragAvisoAtilla.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="UsrCntlEssensbestellungen.Designer.vb">
|
||||
<DependentUpon>UsrCntlEssensbestellungen.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="UsrCntlEssensbestellungen.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="usrcntlSendungDetailsAbrechnung.Designer.vb">
|
||||
<DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -1098,6 +1116,12 @@
|
||||
<EmbeddedResource Include="frmEssensbestellungen.resx">
|
||||
<DependentUpon>frmEssensbestellungen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmEssensbestellungenAdministration.resx">
|
||||
<DependentUpon>frmEssensbestellungenAdministration.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmEssensbestellungenBearbeiten.resx">
|
||||
<DependentUpon>frmEssensbestellungenBearbeiten.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmFrachtkostenBerechnen.resx">
|
||||
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@@ -1308,6 +1332,9 @@
|
||||
<EmbeddedResource Include="usrCntlEintragAvisoAtilla.resx">
|
||||
<DependentUpon>usrCntlEintragAvisoAtilla.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="UsrCntlEssensbestellungen.resx">
|
||||
<DependentUpon>UsrCntlEssensbestellungen.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="usrcntlSendungDetailsAbrechnung.resx">
|
||||
<DependentUpon>usrcntlSendungDetailsAbrechnung.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.8.4.3")>
|
||||
<Assembly: AssemblyFileVersion("3.8.4.3")>
|
||||
<Assembly: AssemblyVersion("3.8.4.5")>
|
||||
<Assembly: AssemblyFileVersion("3.8.4.5")>
|
||||
|
||||
708
Aviso/UsrCntlEssensbestellungen.Designer.vb
generated
Normal file
708
Aviso/UsrCntlEssensbestellungen.Designer.vb
generated
Normal file
@@ -0,0 +1,708 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class UsrCntlessensbestellungen
|
||||
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.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
|
||||
Me.lblWarning = New System.Windows.Forms.Label()
|
||||
Me.txtPreis = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.GroupBoxDienstag = New System.Windows.Forms.GroupBox()
|
||||
Me.txtMenu_dienstag = New System.Windows.Forms.Label()
|
||||
Me.cb_dienstag = New System.Windows.Forms.CheckBox()
|
||||
Me.txtAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.rbMenuAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.rbMenu_dienstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.lbl1 = New System.Windows.Forms.Label()
|
||||
Me.GroupBoxMontag = New System.Windows.Forms.GroupBox()
|
||||
Me.txtMenu_montag = New System.Windows.Forms.Label()
|
||||
Me.cb_montag = New System.Windows.Forms.CheckBox()
|
||||
Me.txtAlt_montag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.rbMenuAlt_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.rbMenu_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.GroupBoxFreitag = New System.Windows.Forms.GroupBox()
|
||||
Me.txtMenu_freitag = New System.Windows.Forms.Label()
|
||||
Me.cb_freitag = New System.Windows.Forms.CheckBox()
|
||||
Me.txtAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.rbMenuAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.rbMenu__freitag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.txtAnzahlLaCart = New System.Windows.Forms.Label()
|
||||
Me.lbl2 = New System.Windows.Forms.Label()
|
||||
Me.Mittwoch = New System.Windows.Forms.GroupBox()
|
||||
Me.txtMenu_mittwoch = New System.Windows.Forms.Label()
|
||||
Me.cb_mittwoch = New System.Windows.Forms.CheckBox()
|
||||
Me.txtAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.rbMenuAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.rbMenu_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.GroupBoxDonnerstag = New System.Windows.Forms.GroupBox()
|
||||
Me.txtMenu_donnerstag = New System.Windows.Forms.Label()
|
||||
Me.cbdonnerstag = New System.Windows.Forms.CheckBox()
|
||||
Me.txtAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.rbMenuAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.rbMenu_donnerstag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
|
||||
Me.txtAnzahlMenu = New System.Windows.Forms.Label()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
|
||||
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.txtGebäude = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
|
||||
Me.MyPanel1.SuspendLayout()
|
||||
Me.GroupBoxDienstag.SuspendLayout()
|
||||
Me.GroupBoxMontag.SuspendLayout()
|
||||
Me.GroupBoxFreitag.SuspendLayout()
|
||||
Me.Mittwoch.SuspendLayout()
|
||||
Me.GroupBoxDonnerstag.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MyPanel1
|
||||
'
|
||||
Me.MyPanel1.Controls.Add(Me.lblWarning)
|
||||
Me.MyPanel1.Controls.Add(Me.txtPreis)
|
||||
Me.MyPanel1.Controls.Add(Me.Label2)
|
||||
Me.MyPanel1.Controls.Add(Me.GroupBoxDienstag)
|
||||
Me.MyPanel1.Controls.Add(Me.lbl1)
|
||||
Me.MyPanel1.Controls.Add(Me.GroupBoxMontag)
|
||||
Me.MyPanel1.Controls.Add(Me.GroupBoxFreitag)
|
||||
Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart)
|
||||
Me.MyPanel1.Controls.Add(Me.lbl2)
|
||||
Me.MyPanel1.Controls.Add(Me.Mittwoch)
|
||||
Me.MyPanel1.Controls.Add(Me.GroupBoxDonnerstag)
|
||||
Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu)
|
||||
Me.MyPanel1.Location = New System.Drawing.Point(3, 40)
|
||||
Me.MyPanel1.Name = "MyPanel1"
|
||||
Me.MyPanel1.Size = New System.Drawing.Size(667, 266)
|
||||
Me.MyPanel1.TabIndex = 19
|
||||
'
|
||||
'lblWarning
|
||||
'
|
||||
Me.lblWarning.AutoSize = True
|
||||
Me.lblWarning.ForeColor = System.Drawing.Color.Red
|
||||
Me.lblWarning.Location = New System.Drawing.Point(465, 217)
|
||||
Me.lblWarning.Name = "lblWarning"
|
||||
Me.lblWarning.Size = New System.Drawing.Size(0, 13)
|
||||
Me.lblWarning.TabIndex = 31
|
||||
'
|
||||
'txtPreis
|
||||
'
|
||||
Me.txtPreis.AutoSize = True
|
||||
Me.txtPreis.Location = New System.Drawing.Point(553, 188)
|
||||
Me.txtPreis.Name = "txtPreis"
|
||||
Me.txtPreis.Size = New System.Drawing.Size(13, 13)
|
||||
Me.txtPreis.TabIndex = 19
|
||||
Me.txtPreis.Text = "0"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(463, 188)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(68, 13)
|
||||
Me.Label2.TabIndex = 18
|
||||
Me.Label2.Text = "Gesamtpreis:"
|
||||
'
|
||||
'GroupBoxDienstag
|
||||
'
|
||||
Me.GroupBoxDienstag.Controls.Add(Me.txtMenu_dienstag)
|
||||
Me.GroupBoxDienstag.Controls.Add(Me.cb_dienstag)
|
||||
Me.GroupBoxDienstag.Controls.Add(Me.txtAlt_dienstag)
|
||||
Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_dienstag)
|
||||
Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_dienstag)
|
||||
Me.GroupBoxDienstag.Location = New System.Drawing.Point(225, 8)
|
||||
Me.GroupBoxDienstag.Name = "GroupBoxDienstag"
|
||||
Me.GroupBoxDienstag.Size = New System.Drawing.Size(200, 121)
|
||||
Me.GroupBoxDienstag.TabIndex = 13
|
||||
Me.GroupBoxDienstag.TabStop = False
|
||||
Me.GroupBoxDienstag.Text = "Dienstag"
|
||||
'
|
||||
'txtMenu_dienstag
|
||||
'
|
||||
Me.txtMenu_dienstag.Location = New System.Drawing.Point(0, 39)
|
||||
Me.txtMenu_dienstag.Name = "txtMenu_dienstag"
|
||||
Me.txtMenu_dienstag.Size = New System.Drawing.Size(188, 32)
|
||||
Me.txtMenu_dienstag.TabIndex = 30
|
||||
Me.txtMenu_dienstag.Text = "Menutext"
|
||||
'
|
||||
'cb_dienstag
|
||||
'
|
||||
Me.cb_dienstag.AutoSize = True
|
||||
Me.cb_dienstag.Location = New System.Drawing.Point(0, 0)
|
||||
Me.cb_dienstag.Name = "cb_dienstag"
|
||||
Me.cb_dienstag.Size = New System.Drawing.Size(68, 17)
|
||||
Me.cb_dienstag.TabIndex = 4
|
||||
Me.cb_dienstag.Text = "Dienstag"
|
||||
Me.cb_dienstag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtAlt_dienstag
|
||||
'
|
||||
Me.txtAlt_dienstag._DateTimeOnly = False
|
||||
Me.txtAlt_dienstag._numbersOnly = False
|
||||
Me.txtAlt_dienstag._numbersOnlyKommastellen = ""
|
||||
Me.txtAlt_dienstag._numbersOnlyTrennzeichen = True
|
||||
Me.txtAlt_dienstag._Prozent = False
|
||||
Me.txtAlt_dienstag._ShortDateNew = False
|
||||
Me.txtAlt_dienstag._ShortDateOnly = False
|
||||
Me.txtAlt_dienstag._TimeOnly = False
|
||||
Me.txtAlt_dienstag._TimeOnly_Seconds = False
|
||||
Me.txtAlt_dienstag._value = ""
|
||||
Me.txtAlt_dienstag._Waehrung = False
|
||||
Me.txtAlt_dienstag._WaehrungZeichen = True
|
||||
Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAlt_dienstag.Location = New System.Drawing.Point(0, 93)
|
||||
Me.txtAlt_dienstag.MaxLineLength = -1
|
||||
Me.txtAlt_dienstag.MaxLines_Warning = ""
|
||||
Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAlt_dienstag.Name = "txtAlt_dienstag"
|
||||
Me.txtAlt_dienstag.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtAlt_dienstag.TabIndex = 2
|
||||
Me.txtAlt_dienstag.Visible = False
|
||||
'
|
||||
'rbMenuAlt_dienstag
|
||||
'
|
||||
Me.rbMenuAlt_dienstag.AutoSize = True
|
||||
Me.rbMenuAlt_dienstag.GroupName = "Dienstag"
|
||||
Me.rbMenuAlt_dienstag.Location = New System.Drawing.Point(3, 74)
|
||||
Me.rbMenuAlt_dienstag.Name = "rbMenuAlt_dienstag"
|
||||
Me.rbMenuAlt_dienstag.Size = New System.Drawing.Size(70, 17)
|
||||
Me.rbMenuAlt_dienstag.TabIndex = 1
|
||||
Me.rbMenuAlt_dienstag.TabStop = True
|
||||
Me.rbMenuAlt_dienstag.Text = "A la carte"
|
||||
Me.rbMenuAlt_dienstag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'rbMenu_dienstag
|
||||
'
|
||||
Me.rbMenu_dienstag.AutoSize = True
|
||||
Me.rbMenu_dienstag.GroupName = "Dienstag"
|
||||
Me.rbMenu_dienstag.Location = New System.Drawing.Point(3, 19)
|
||||
Me.rbMenu_dienstag.Name = "rbMenu_dienstag"
|
||||
Me.rbMenu_dienstag.Size = New System.Drawing.Size(52, 17)
|
||||
Me.rbMenu_dienstag.TabIndex = 0
|
||||
Me.rbMenu_dienstag.TabStop = True
|
||||
Me.rbMenu_dienstag.Text = "Menü"
|
||||
Me.rbMenu_dienstag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lbl1
|
||||
'
|
||||
Me.lbl1.AutoSize = True
|
||||
Me.lbl1.Location = New System.Drawing.Point(463, 135)
|
||||
Me.lbl1.Name = "lbl1"
|
||||
Me.lbl1.Size = New System.Drawing.Size(72, 13)
|
||||
Me.lbl1.TabIndex = 14
|
||||
Me.lbl1.Text = "Anzahl Menü:"
|
||||
'
|
||||
'GroupBoxMontag
|
||||
'
|
||||
Me.GroupBoxMontag.Controls.Add(Me.txtMenu_montag)
|
||||
Me.GroupBoxMontag.Controls.Add(Me.cb_montag)
|
||||
Me.GroupBoxMontag.Controls.Add(Me.txtAlt_montag)
|
||||
Me.GroupBoxMontag.Controls.Add(Me.rbMenuAlt_montag)
|
||||
Me.GroupBoxMontag.Controls.Add(Me.rbMenu_montag)
|
||||
Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8)
|
||||
Me.GroupBoxMontag.Name = "GroupBoxMontag"
|
||||
Me.GroupBoxMontag.Size = New System.Drawing.Size(200, 121)
|
||||
Me.GroupBoxMontag.TabIndex = 12
|
||||
Me.GroupBoxMontag.TabStop = False
|
||||
Me.GroupBoxMontag.Text = "Montag"
|
||||
'
|
||||
'txtMenu_montag
|
||||
'
|
||||
Me.txtMenu_montag.Location = New System.Drawing.Point(6, 39)
|
||||
Me.txtMenu_montag.Name = "txtMenu_montag"
|
||||
Me.txtMenu_montag.Size = New System.Drawing.Size(188, 32)
|
||||
Me.txtMenu_montag.TabIndex = 29
|
||||
Me.txtMenu_montag.Text = "Menutext"
|
||||
'
|
||||
'cb_montag
|
||||
'
|
||||
Me.cb_montag.AutoSize = True
|
||||
Me.cb_montag.Location = New System.Drawing.Point(3, 0)
|
||||
Me.cb_montag.Name = "cb_montag"
|
||||
Me.cb_montag.Size = New System.Drawing.Size(62, 17)
|
||||
Me.cb_montag.TabIndex = 3
|
||||
Me.cb_montag.Text = "Montag"
|
||||
Me.cb_montag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtAlt_montag
|
||||
'
|
||||
Me.txtAlt_montag._DateTimeOnly = False
|
||||
Me.txtAlt_montag._numbersOnly = False
|
||||
Me.txtAlt_montag._numbersOnlyKommastellen = ""
|
||||
Me.txtAlt_montag._numbersOnlyTrennzeichen = True
|
||||
Me.txtAlt_montag._Prozent = False
|
||||
Me.txtAlt_montag._ShortDateNew = False
|
||||
Me.txtAlt_montag._ShortDateOnly = False
|
||||
Me.txtAlt_montag._TimeOnly = False
|
||||
Me.txtAlt_montag._TimeOnly_Seconds = False
|
||||
Me.txtAlt_montag._value = ""
|
||||
Me.txtAlt_montag._Waehrung = False
|
||||
Me.txtAlt_montag._WaehrungZeichen = True
|
||||
Me.txtAlt_montag.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAlt_montag.Location = New System.Drawing.Point(3, 92)
|
||||
Me.txtAlt_montag.MaxLineLength = -1
|
||||
Me.txtAlt_montag.MaxLines_Warning = ""
|
||||
Me.txtAlt_montag.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAlt_montag.Name = "txtAlt_montag"
|
||||
Me.txtAlt_montag.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtAlt_montag.TabIndex = 2
|
||||
Me.txtAlt_montag.Visible = False
|
||||
'
|
||||
'rbMenuAlt_montag
|
||||
'
|
||||
Me.rbMenuAlt_montag.AutoSize = True
|
||||
Me.rbMenuAlt_montag.GroupName = "GroupBox1"
|
||||
Me.rbMenuAlt_montag.Location = New System.Drawing.Point(6, 74)
|
||||
Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag"
|
||||
Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17)
|
||||
Me.rbMenuAlt_montag.TabIndex = 1
|
||||
Me.rbMenuAlt_montag.TabStop = True
|
||||
Me.rbMenuAlt_montag.Text = "A la carte"
|
||||
Me.rbMenuAlt_montag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'rbMenu_montag
|
||||
'
|
||||
Me.rbMenu_montag.AutoSize = True
|
||||
Me.rbMenu_montag.GroupName = "GroupBox1"
|
||||
Me.rbMenu_montag.Location = New System.Drawing.Point(3, 19)
|
||||
Me.rbMenu_montag.Name = "rbMenu_montag"
|
||||
Me.rbMenu_montag.Size = New System.Drawing.Size(52, 17)
|
||||
Me.rbMenu_montag.TabIndex = 0
|
||||
Me.rbMenu_montag.TabStop = True
|
||||
Me.rbMenu_montag.Text = "Menü"
|
||||
Me.rbMenu_montag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBoxFreitag
|
||||
'
|
||||
Me.GroupBoxFreitag.Controls.Add(Me.txtMenu_freitag)
|
||||
Me.GroupBoxFreitag.Controls.Add(Me.cb_freitag)
|
||||
Me.GroupBoxFreitag.Controls.Add(Me.txtAlt_freitag)
|
||||
Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_freitag)
|
||||
Me.GroupBoxFreitag.Controls.Add(Me.rbMenu__freitag)
|
||||
Me.GroupBoxFreitag.Location = New System.Drawing.Point(219, 135)
|
||||
Me.GroupBoxFreitag.Name = "GroupBoxFreitag"
|
||||
Me.GroupBoxFreitag.Size = New System.Drawing.Size(200, 121)
|
||||
Me.GroupBoxFreitag.TabIndex = 13
|
||||
Me.GroupBoxFreitag.TabStop = False
|
||||
Me.GroupBoxFreitag.Text = "Freitag"
|
||||
'
|
||||
'txtMenu_freitag
|
||||
'
|
||||
Me.txtMenu_freitag.Location = New System.Drawing.Point(3, 39)
|
||||
Me.txtMenu_freitag.Name = "txtMenu_freitag"
|
||||
Me.txtMenu_freitag.Size = New System.Drawing.Size(188, 32)
|
||||
Me.txtMenu_freitag.TabIndex = 32
|
||||
Me.txtMenu_freitag.Text = "Menutext"
|
||||
'
|
||||
'cb_freitag
|
||||
'
|
||||
Me.cb_freitag.AutoSize = True
|
||||
Me.cb_freitag.Location = New System.Drawing.Point(3, 0)
|
||||
Me.cb_freitag.Name = "cb_freitag"
|
||||
Me.cb_freitag.Size = New System.Drawing.Size(58, 17)
|
||||
Me.cb_freitag.TabIndex = 6
|
||||
Me.cb_freitag.Text = "Freitag"
|
||||
Me.cb_freitag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtAlt_freitag
|
||||
'
|
||||
Me.txtAlt_freitag._DateTimeOnly = False
|
||||
Me.txtAlt_freitag._numbersOnly = False
|
||||
Me.txtAlt_freitag._numbersOnlyKommastellen = ""
|
||||
Me.txtAlt_freitag._numbersOnlyTrennzeichen = True
|
||||
Me.txtAlt_freitag._Prozent = False
|
||||
Me.txtAlt_freitag._ShortDateNew = False
|
||||
Me.txtAlt_freitag._ShortDateOnly = False
|
||||
Me.txtAlt_freitag._TimeOnly = False
|
||||
Me.txtAlt_freitag._TimeOnly_Seconds = False
|
||||
Me.txtAlt_freitag._value = ""
|
||||
Me.txtAlt_freitag._Waehrung = False
|
||||
Me.txtAlt_freitag._WaehrungZeichen = True
|
||||
Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAlt_freitag.Location = New System.Drawing.Point(-3, 97)
|
||||
Me.txtAlt_freitag.MaxLineLength = -1
|
||||
Me.txtAlt_freitag.MaxLines_Warning = ""
|
||||
Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAlt_freitag.Name = "txtAlt_freitag"
|
||||
Me.txtAlt_freitag.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtAlt_freitag.TabIndex = 2
|
||||
Me.txtAlt_freitag.Visible = False
|
||||
'
|
||||
'rbMenuAlt_freitag
|
||||
'
|
||||
Me.rbMenuAlt_freitag.AutoSize = True
|
||||
Me.rbMenuAlt_freitag.GroupName = "Freitag"
|
||||
Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(0, 78)
|
||||
Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag"
|
||||
Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17)
|
||||
Me.rbMenuAlt_freitag.TabIndex = 1
|
||||
Me.rbMenuAlt_freitag.TabStop = True
|
||||
Me.rbMenuAlt_freitag.Text = "A la carte"
|
||||
Me.rbMenuAlt_freitag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'rbMenu__freitag
|
||||
'
|
||||
Me.rbMenu__freitag.AutoSize = True
|
||||
Me.rbMenu__freitag.GroupName = "Freitag"
|
||||
Me.rbMenu__freitag.Location = New System.Drawing.Point(3, 19)
|
||||
Me.rbMenu__freitag.Name = "rbMenu__freitag"
|
||||
Me.rbMenu__freitag.Size = New System.Drawing.Size(52, 17)
|
||||
Me.rbMenu__freitag.TabIndex = 0
|
||||
Me.rbMenu__freitag.TabStop = True
|
||||
Me.rbMenu__freitag.Text = "Menü"
|
||||
Me.rbMenu__freitag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtAnzahlLaCart
|
||||
'
|
||||
Me.txtAnzahlLaCart.AutoSize = True
|
||||
Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 162)
|
||||
Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart"
|
||||
Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13)
|
||||
Me.txtAnzahlLaCart.TabIndex = 17
|
||||
Me.txtAnzahlLaCart.Text = "0"
|
||||
'
|
||||
'lbl2
|
||||
'
|
||||
Me.lbl2.AutoSize = True
|
||||
Me.lbl2.Location = New System.Drawing.Point(463, 162)
|
||||
Me.lbl2.Name = "lbl2"
|
||||
Me.lbl2.Size = New System.Drawing.Size(90, 13)
|
||||
Me.lbl2.TabIndex = 15
|
||||
Me.lbl2.Text = "Anzahl a la Carte:"
|
||||
'
|
||||
'Mittwoch
|
||||
'
|
||||
Me.Mittwoch.Controls.Add(Me.txtMenu_mittwoch)
|
||||
Me.Mittwoch.Controls.Add(Me.cb_mittwoch)
|
||||
Me.Mittwoch.Controls.Add(Me.txtAlt_mittwoch)
|
||||
Me.Mittwoch.Controls.Add(Me.rbMenuAlt_mittwoch)
|
||||
Me.Mittwoch.Controls.Add(Me.rbMenu_mittwoch)
|
||||
Me.Mittwoch.Location = New System.Drawing.Point(431, 8)
|
||||
Me.Mittwoch.Name = "Mittwoch"
|
||||
Me.Mittwoch.Size = New System.Drawing.Size(200, 121)
|
||||
Me.Mittwoch.TabIndex = 13
|
||||
Me.Mittwoch.TabStop = False
|
||||
Me.Mittwoch.Text = "Mittwoch"
|
||||
'
|
||||
'txtMenu_mittwoch
|
||||
'
|
||||
Me.txtMenu_mittwoch.Location = New System.Drawing.Point(0, 39)
|
||||
Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch"
|
||||
Me.txtMenu_mittwoch.Size = New System.Drawing.Size(188, 32)
|
||||
Me.txtMenu_mittwoch.TabIndex = 31
|
||||
Me.txtMenu_mittwoch.Text = "Menutext"
|
||||
'
|
||||
'cb_mittwoch
|
||||
'
|
||||
Me.cb_mittwoch.AutoSize = True
|
||||
Me.cb_mittwoch.Location = New System.Drawing.Point(0, 0)
|
||||
Me.cb_mittwoch.Name = "cb_mittwoch"
|
||||
Me.cb_mittwoch.Size = New System.Drawing.Size(69, 17)
|
||||
Me.cb_mittwoch.TabIndex = 5
|
||||
Me.cb_mittwoch.Text = "Mittwoch"
|
||||
Me.cb_mittwoch.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtAlt_mittwoch
|
||||
'
|
||||
Me.txtAlt_mittwoch._DateTimeOnly = False
|
||||
Me.txtAlt_mittwoch._numbersOnly = False
|
||||
Me.txtAlt_mittwoch._numbersOnlyKommastellen = ""
|
||||
Me.txtAlt_mittwoch._numbersOnlyTrennzeichen = True
|
||||
Me.txtAlt_mittwoch._Prozent = False
|
||||
Me.txtAlt_mittwoch._ShortDateNew = False
|
||||
Me.txtAlt_mittwoch._ShortDateOnly = False
|
||||
Me.txtAlt_mittwoch._TimeOnly = False
|
||||
Me.txtAlt_mittwoch._TimeOnly_Seconds = False
|
||||
Me.txtAlt_mittwoch._value = ""
|
||||
Me.txtAlt_mittwoch._Waehrung = False
|
||||
Me.txtAlt_mittwoch._WaehrungZeichen = True
|
||||
Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAlt_mittwoch.Location = New System.Drawing.Point(0, 93)
|
||||
Me.txtAlt_mittwoch.MaxLineLength = -1
|
||||
Me.txtAlt_mittwoch.MaxLines_Warning = ""
|
||||
Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAlt_mittwoch.Name = "txtAlt_mittwoch"
|
||||
Me.txtAlt_mittwoch.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtAlt_mittwoch.TabIndex = 2
|
||||
Me.txtAlt_mittwoch.Visible = False
|
||||
'
|
||||
'rbMenuAlt_mittwoch
|
||||
'
|
||||
Me.rbMenuAlt_mittwoch.AutoSize = True
|
||||
Me.rbMenuAlt_mittwoch.GroupName = "Mittwoch"
|
||||
Me.rbMenuAlt_mittwoch.Location = New System.Drawing.Point(3, 74)
|
||||
Me.rbMenuAlt_mittwoch.Name = "rbMenuAlt_mittwoch"
|
||||
Me.rbMenuAlt_mittwoch.Size = New System.Drawing.Size(70, 17)
|
||||
Me.rbMenuAlt_mittwoch.TabIndex = 1
|
||||
Me.rbMenuAlt_mittwoch.TabStop = True
|
||||
Me.rbMenuAlt_mittwoch.Text = "A la carte"
|
||||
Me.rbMenuAlt_mittwoch.UseVisualStyleBackColor = True
|
||||
'
|
||||
'rbMenu_mittwoch
|
||||
'
|
||||
Me.rbMenu_mittwoch.AutoSize = True
|
||||
Me.rbMenu_mittwoch.GroupName = "Mittwoch"
|
||||
Me.rbMenu_mittwoch.Location = New System.Drawing.Point(3, 19)
|
||||
Me.rbMenu_mittwoch.Name = "rbMenu_mittwoch"
|
||||
Me.rbMenu_mittwoch.Size = New System.Drawing.Size(52, 17)
|
||||
Me.rbMenu_mittwoch.TabIndex = 0
|
||||
Me.rbMenu_mittwoch.TabStop = True
|
||||
Me.rbMenu_mittwoch.Text = "Menü"
|
||||
Me.rbMenu_mittwoch.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBoxDonnerstag
|
||||
'
|
||||
Me.GroupBoxDonnerstag.Controls.Add(Me.txtMenu_donnerstag)
|
||||
Me.GroupBoxDonnerstag.Controls.Add(Me.cbdonnerstag)
|
||||
Me.GroupBoxDonnerstag.Controls.Add(Me.txtAlt_donnerstag)
|
||||
Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_donnerstag)
|
||||
Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_donnerstag)
|
||||
Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 135)
|
||||
Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag"
|
||||
Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(200, 121)
|
||||
Me.GroupBoxDonnerstag.TabIndex = 13
|
||||
Me.GroupBoxDonnerstag.TabStop = False
|
||||
Me.GroupBoxDonnerstag.Text = "Donnerstag"
|
||||
'
|
||||
'txtMenu_donnerstag
|
||||
'
|
||||
Me.txtMenu_donnerstag.Location = New System.Drawing.Point(3, 39)
|
||||
Me.txtMenu_donnerstag.Name = "txtMenu_donnerstag"
|
||||
Me.txtMenu_donnerstag.Size = New System.Drawing.Size(188, 32)
|
||||
Me.txtMenu_donnerstag.TabIndex = 33
|
||||
Me.txtMenu_donnerstag.Text = "Menutext"
|
||||
'
|
||||
'cbdonnerstag
|
||||
'
|
||||
Me.cbdonnerstag.AutoSize = True
|
||||
Me.cbdonnerstag.Location = New System.Drawing.Point(3, 0)
|
||||
Me.cbdonnerstag.Name = "cbdonnerstag"
|
||||
Me.cbdonnerstag.Size = New System.Drawing.Size(81, 17)
|
||||
Me.cbdonnerstag.TabIndex = 7
|
||||
Me.cbdonnerstag.Text = "Donnerstag"
|
||||
Me.cbdonnerstag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtAlt_donnerstag
|
||||
'
|
||||
Me.txtAlt_donnerstag._DateTimeOnly = False
|
||||
Me.txtAlt_donnerstag._numbersOnly = False
|
||||
Me.txtAlt_donnerstag._numbersOnlyKommastellen = ""
|
||||
Me.txtAlt_donnerstag._numbersOnlyTrennzeichen = True
|
||||
Me.txtAlt_donnerstag._Prozent = False
|
||||
Me.txtAlt_donnerstag._ShortDateNew = False
|
||||
Me.txtAlt_donnerstag._ShortDateOnly = False
|
||||
Me.txtAlt_donnerstag._TimeOnly = False
|
||||
Me.txtAlt_donnerstag._TimeOnly_Seconds = False
|
||||
Me.txtAlt_donnerstag._value = ""
|
||||
Me.txtAlt_donnerstag._Waehrung = False
|
||||
Me.txtAlt_donnerstag._WaehrungZeichen = True
|
||||
Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtAlt_donnerstag.Location = New System.Drawing.Point(1, 97)
|
||||
Me.txtAlt_donnerstag.MaxLineLength = -1
|
||||
Me.txtAlt_donnerstag.MaxLines_Warning = ""
|
||||
Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing
|
||||
Me.txtAlt_donnerstag.Name = "txtAlt_donnerstag"
|
||||
Me.txtAlt_donnerstag.Size = New System.Drawing.Size(177, 20)
|
||||
Me.txtAlt_donnerstag.TabIndex = 2
|
||||
Me.txtAlt_donnerstag.Visible = False
|
||||
'
|
||||
'rbMenuAlt_donnerstag
|
||||
'
|
||||
Me.rbMenuAlt_donnerstag.AutoSize = True
|
||||
Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag"
|
||||
Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(4, 78)
|
||||
Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag"
|
||||
Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17)
|
||||
Me.rbMenuAlt_donnerstag.TabIndex = 1
|
||||
Me.rbMenuAlt_donnerstag.TabStop = True
|
||||
Me.rbMenuAlt_donnerstag.Text = "A la carte"
|
||||
Me.rbMenuAlt_donnerstag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'rbMenu_donnerstag
|
||||
'
|
||||
Me.rbMenu_donnerstag.AutoSize = True
|
||||
Me.rbMenu_donnerstag.GroupName = "Donnerstag"
|
||||
Me.rbMenu_donnerstag.Location = New System.Drawing.Point(3, 19)
|
||||
Me.rbMenu_donnerstag.Name = "rbMenu_donnerstag"
|
||||
Me.rbMenu_donnerstag.Size = New System.Drawing.Size(52, 17)
|
||||
Me.rbMenu_donnerstag.TabIndex = 0
|
||||
Me.rbMenu_donnerstag.TabStop = True
|
||||
Me.rbMenu_donnerstag.Text = "Menü"
|
||||
Me.rbMenu_donnerstag.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtAnzahlMenu
|
||||
'
|
||||
Me.txtAnzahlMenu.AutoSize = True
|
||||
Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 137)
|
||||
Me.txtAnzahlMenu.Name = "txtAnzahlMenu"
|
||||
Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13)
|
||||
Me.txtAnzahlMenu.TabIndex = 16
|
||||
Me.txtAnzahlMenu.Text = "0"
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(121, 9)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(63, 17)
|
||||
Me.CheckBox1.TabIndex = 20
|
||||
Me.CheckBox1.Text = "storniert"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox2
|
||||
'
|
||||
Me.CheckBox2.AutoSize = True
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(12, 9)
|
||||
Me.CheckBox2.Name = "CheckBox2"
|
||||
Me.CheckBox2.Size = New System.Drawing.Size(86, 17)
|
||||
Me.CheckBox2.TabIndex = 21
|
||||
Me.CheckBox2.Text = "abgerechnet"
|
||||
Me.CheckBox2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||
Me.Button1.Location = New System.Drawing.Point(285, 312)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 22
|
||||
Me.Button1.Text = "Speichern"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'txtGebäude
|
||||
'
|
||||
Me.txtGebäude._DateTimeOnly = False
|
||||
Me.txtGebäude._numbersOnly = False
|
||||
Me.txtGebäude._numbersOnlyKommastellen = ""
|
||||
Me.txtGebäude._numbersOnlyTrennzeichen = True
|
||||
Me.txtGebäude._Prozent = False
|
||||
Me.txtGebäude._ShortDateNew = False
|
||||
Me.txtGebäude._ShortDateOnly = False
|
||||
Me.txtGebäude._TimeOnly = False
|
||||
Me.txtGebäude._TimeOnly_Seconds = False
|
||||
Me.txtGebäude._value = ""
|
||||
Me.txtGebäude._Waehrung = False
|
||||
Me.txtGebäude._WaehrungZeichen = True
|
||||
Me.txtGebäude.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGebäude.Location = New System.Drawing.Point(541, 9)
|
||||
Me.txtGebäude.MaxLineLength = -1
|
||||
Me.txtGebäude.MaxLines_Warning = ""
|
||||
Me.txtGebäude.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGebäude.Name = "txtGebäude"
|
||||
Me.txtGebäude.Size = New System.Drawing.Size(120, 20)
|
||||
Me.txtGebäude.TabIndex = 30
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(481, 12)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(54, 13)
|
||||
Me.Label1.TabIndex = 30
|
||||
Me.Label1.Text = "Gebäude:"
|
||||
'
|
||||
'CheckBox3
|
||||
'
|
||||
Me.CheckBox3.AutoSize = True
|
||||
Me.CheckBox3.Location = New System.Drawing.Point(225, 9)
|
||||
Me.CheckBox3.Name = "CheckBox3"
|
||||
Me.CheckBox3.Size = New System.Drawing.Size(70, 17)
|
||||
Me.CheckBox3.TabIndex = 31
|
||||
Me.CheckBox3.Text = "gesendet"
|
||||
Me.CheckBox3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlessensbestellungen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.Controls.Add(Me.CheckBox3)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.txtGebäude)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.CheckBox2)
|
||||
Me.Controls.Add(Me.CheckBox1)
|
||||
Me.Controls.Add(Me.MyPanel1)
|
||||
Me.Name = "UsrCntlessensbestellungen"
|
||||
Me.Size = New System.Drawing.Size(690, 348)
|
||||
Me.MyPanel1.ResumeLayout(False)
|
||||
Me.MyPanel1.PerformLayout()
|
||||
Me.GroupBoxDienstag.ResumeLayout(False)
|
||||
Me.GroupBoxDienstag.PerformLayout()
|
||||
Me.GroupBoxMontag.ResumeLayout(False)
|
||||
Me.GroupBoxMontag.PerformLayout()
|
||||
Me.GroupBoxFreitag.ResumeLayout(False)
|
||||
Me.GroupBoxFreitag.PerformLayout()
|
||||
Me.Mittwoch.ResumeLayout(False)
|
||||
Me.Mittwoch.PerformLayout()
|
||||
Me.GroupBoxDonnerstag.ResumeLayout(False)
|
||||
Me.GroupBoxDonnerstag.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
|
||||
Friend WithEvents lblWarning As Label
|
||||
Friend WithEvents txtPreis As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents GroupBoxDienstag As GroupBox
|
||||
Friend WithEvents txtMenu_dienstag As Label
|
||||
Friend WithEvents cb_dienstag As CheckBox
|
||||
Friend WithEvents txtAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents rbMenuAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents rbMenu_dienstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents lbl1 As Label
|
||||
Friend WithEvents GroupBoxMontag As GroupBox
|
||||
Friend WithEvents txtMenu_montag As Label
|
||||
Friend WithEvents cb_montag As CheckBox
|
||||
Friend WithEvents txtAlt_montag As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents rbMenuAlt_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents rbMenu_montag As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents GroupBoxFreitag As GroupBox
|
||||
Friend WithEvents txtMenu_freitag As Label
|
||||
Friend WithEvents cb_freitag As CheckBox
|
||||
Friend WithEvents txtAlt_freitag As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents rbMenuAlt_freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents rbMenu__freitag As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents txtAnzahlLaCart As Label
|
||||
Friend WithEvents lbl2 As Label
|
||||
Friend WithEvents Mittwoch As GroupBox
|
||||
Friend WithEvents txtMenu_mittwoch As Label
|
||||
Friend WithEvents cb_mittwoch As CheckBox
|
||||
Friend WithEvents txtAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents rbMenuAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents rbMenu_mittwoch As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents GroupBoxDonnerstag As GroupBox
|
||||
Friend WithEvents txtMenu_donnerstag As Label
|
||||
Friend WithEvents cbdonnerstag As CheckBox
|
||||
Friend WithEvents txtAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents rbMenuAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents rbMenu_donnerstag As VERAG_PROG_ALLGEMEIN.MyRadioButton
|
||||
Friend WithEvents txtAnzahlMenu As Label
|
||||
Friend WithEvents CheckBox1 As CheckBox
|
||||
Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
|
||||
Friend WithEvents CheckBox2 As CheckBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents txtGebäude As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents CheckBox3 As CheckBox
|
||||
End Class
|
||||
123
Aviso/UsrCntlEssensbestellungen.resx
Normal file
123
Aviso/UsrCntlEssensbestellungen.resx
Normal file
@@ -0,0 +1,123 @@
|
||||
<?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>
|
||||
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
459
Aviso/UsrCntlEssensbestellungen.vb
Normal file
459
Aviso/UsrCntlEssensbestellungen.vb
Normal file
@@ -0,0 +1,459 @@
|
||||
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class UsrCntlessensbestellungen
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim essen As cEssensbestellung
|
||||
Dim dt As New DataTable
|
||||
'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"}
|
||||
Private ToolTipFont As New Font("Courier New", 12)
|
||||
Dim preisProMahlzeit As Double = 3
|
||||
Dim menu As String = "Menu"
|
||||
|
||||
|
||||
|
||||
Sub New()
|
||||
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(storniert As Boolean, abgerechnet As Boolean, menu As String)
|
||||
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Me.CheckBox1.Checked = storniert
|
||||
Me.CheckBox2.Checked = abgerechnet
|
||||
dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menu & "' order by MenuDateVon desc", "AVISO", 100, True)
|
||||
loadMenuInfo(dt)
|
||||
essen = New cEssensbestellung()
|
||||
txtGebäude.Text = essen.eb_gebaeude.ToString
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(bestellung As cEssensbestellung)
|
||||
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
|
||||
essen = bestellung
|
||||
Dim menutitle = bestellung.eb_kw.ToString()
|
||||
Me.CheckBox1.Checked = essen.eb_storniert
|
||||
Me.CheckBox2.Checked = essen.eb_abgerechnet
|
||||
dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & menutitle & "' order by MenuDateVon desc", "AVISO", 100, True)
|
||||
loadMenuInfo(dt)
|
||||
txtGebäude.Text = essen.eb_gebaeude.ToString
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged
|
||||
|
||||
If rbMenuAlt_montag.Checked Then
|
||||
txtAlt_montag.Visible = True
|
||||
Else
|
||||
txtAlt_montag.Visible = False
|
||||
End If
|
||||
|
||||
If rbMenuAlt_dienstag.Checked Then
|
||||
txtAlt_dienstag.Visible = True
|
||||
Else
|
||||
|
||||
txtAlt_dienstag.Visible = False
|
||||
End If
|
||||
|
||||
If rbMenuAlt_mittwoch.Checked Then
|
||||
txtAlt_mittwoch.Visible = True
|
||||
Else
|
||||
txtAlt_mittwoch.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
If rbMenuAlt_donnerstag.Checked Then
|
||||
txtAlt_donnerstag.Visible = True
|
||||
Else
|
||||
txtAlt_donnerstag.Visible = False
|
||||
End If
|
||||
|
||||
If rbMenuAlt_freitag.Checked Then
|
||||
txtAlt_freitag.Visible = True
|
||||
Else
|
||||
txtAlt_freitag.Visible = False
|
||||
End If
|
||||
countChecks()
|
||||
End Sub
|
||||
|
||||
Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cb_montag.CheckedChanged, cb_dienstag.CheckedChanged, cb_mittwoch.CheckedChanged, cbdonnerstag.CheckedChanged, cb_freitag.CheckedChanged
|
||||
If cb_montag.Checked Then
|
||||
rbMenuAlt_montag.Enabled = True
|
||||
rbMenu_montag.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then
|
||||
rbMenu_montag.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenuAlt_montag.Enabled = False
|
||||
rbMenu_montag.Enabled = False
|
||||
txtAlt_montag.Text = ""
|
||||
End If
|
||||
|
||||
If cb_dienstag.Checked Then
|
||||
rbMenuAlt_dienstag.Enabled = True
|
||||
rbMenu_dienstag.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then
|
||||
rbMenu_dienstag.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_dienstag.Enabled = False
|
||||
rbMenuAlt_dienstag.Enabled = False
|
||||
txtAlt_dienstag.Text = ""
|
||||
End If
|
||||
|
||||
If cb_mittwoch.Checked Then
|
||||
rbMenuAlt_mittwoch.Enabled = True
|
||||
rbMenu_mittwoch.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then
|
||||
rbMenu_mittwoch.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_mittwoch.Enabled = False
|
||||
rbMenuAlt_mittwoch.Enabled = False
|
||||
txtAlt_mittwoch.Text = ""
|
||||
End If
|
||||
|
||||
|
||||
If cbdonnerstag.Checked Then
|
||||
rbMenuAlt_donnerstag.Enabled = True
|
||||
rbMenu_donnerstag.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then
|
||||
rbMenu_donnerstag.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_donnerstag.Enabled = False
|
||||
rbMenuAlt_donnerstag.Enabled = False
|
||||
txtAlt_donnerstag.Text = ""
|
||||
End If
|
||||
|
||||
If cb_freitag.Checked Then
|
||||
rbMenuAlt_freitag.Enabled = True
|
||||
rbMenu__freitag.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then
|
||||
rbMenu__freitag.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu__freitag.Enabled = False
|
||||
rbMenuAlt_freitag.Enabled = False
|
||||
txtAlt_freitag.Text = ""
|
||||
End If
|
||||
countChecks()
|
||||
End Sub
|
||||
|
||||
Private Sub uncheckGroupBoxesAndRadioButtons(sender, e)
|
||||
For Each gb As Control In MyPanel1.Controls
|
||||
If TypeOf gb Is GroupBox Then
|
||||
For Each c As Control In gb.Controls
|
||||
If TypeOf c Is CheckBox Then
|
||||
Dim checkbox As CheckBox = c
|
||||
checkbox.Checked = False
|
||||
End If
|
||||
If TypeOf c Is RadioButton Then
|
||||
Dim radiobutton As RadioButton = c
|
||||
radiobutton.Checked = False
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
cbFields_CheckedChanged(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub countChecks()
|
||||
|
||||
Dim countMenus As Integer
|
||||
Dim countlaCarte As Integer
|
||||
countMenus = 0
|
||||
countlaCarte = 0
|
||||
For Each gb As Control In MyPanel1.Controls
|
||||
If TypeOf gb Is GroupBox Then
|
||||
For Each c As Control In gb.Controls
|
||||
|
||||
If c.Text.ToLower.StartsWith("menü") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
|
||||
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
|
||||
If rb.Checked Then countMenus = countMenus + 1
|
||||
End If
|
||||
|
||||
If c.Text.ToLower.StartsWith("a la carte") AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then
|
||||
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
|
||||
If rb.Checked Then countlaCarte = countlaCarte + 1
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Next
|
||||
|
||||
txtAnzahlMenu.Text = countMenus.ToString()
|
||||
txtAnzahlLaCart.Text = countlaCarte.ToString
|
||||
txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * preisProMahlzeit
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
|
||||
If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then
|
||||
MyPanel1.Enabled = False
|
||||
Else
|
||||
MyPanel1.Enabled = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
|
||||
If cb_montag.Checked Then
|
||||
If rbMenu_montag.Checked Then
|
||||
essen.eb_montag = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_montag = txtAlt_montag.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_montag = Nothing
|
||||
End If
|
||||
|
||||
|
||||
If cb_dienstag.Checked Then
|
||||
If rbMenu_dienstag.Checked Then
|
||||
essen.eb_dienstag = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_dienstag = txtAlt_dienstag.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_dienstag = Nothing
|
||||
End If
|
||||
|
||||
If cb_mittwoch.Checked Then
|
||||
If rbMenu_mittwoch.Checked Then
|
||||
essen.eb_mittwoch = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_mittwoch = Nothing
|
||||
End If
|
||||
|
||||
If cbdonnerstag.Checked Then
|
||||
If rbMenu_donnerstag.Checked Then
|
||||
essen.eb_donnerstag = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_donnerstag = Nothing
|
||||
End If
|
||||
|
||||
If cb_freitag.Checked Then
|
||||
If rbMenu__freitag.Checked Then
|
||||
essen.eb_freitag = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_freitag = txtAlt_freitag.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_freitag = Nothing
|
||||
End If
|
||||
|
||||
If txtPreis.Text IsNot "" Then
|
||||
essen.eb_preis = CDbl(txtPreis.Text)
|
||||
End If
|
||||
|
||||
essen.eb_datum = CDate(dt.Rows(0).Item("MenuDateVon"))
|
||||
essen.eb_gebaeude = txtGebäude.Text.ToString
|
||||
If essen.SAVE() Then
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub loadMenuInfo(dt As DataTable)
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
|
||||
rbMenu_montag.Text = menu
|
||||
txtMenu_montag.Text = dt.Rows(0).Item("MenuEssenMo").ToString
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
|
||||
rbMenu_dienstag.Text = menu
|
||||
txtMenu_dienstag.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
|
||||
rbMenu_mittwoch.Text = menu
|
||||
txtMenu_mittwoch.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
|
||||
|
||||
End If
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
|
||||
rbMenu_donnerstag.Text = menu
|
||||
txtMenu_donnerstag.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
|
||||
|
||||
End If
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
|
||||
rbMenu__freitag.Text = menu
|
||||
txtMenu_freitag.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_montag.Click, rbMenu_dienstag.Click, rbMenu_mittwoch.Click, rbMenu_donnerstag.Click, rbMenu__freitag.Click
|
||||
countChecks()
|
||||
End Sub
|
||||
|
||||
Private Function checkIfGroupBoxIsSetFirstTime(gb As GroupBox)
|
||||
|
||||
For Each c As Control In gb.Controls
|
||||
If TypeOf c Is RadioButton Then
|
||||
Dim radioButton As RadioButton = c
|
||||
If radioButton.Checked = True Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub setWarning(warning As Boolean)
|
||||
|
||||
If warning Then
|
||||
lblWarning.Text = "Bezeichnung für A la carte fehlt"
|
||||
Else
|
||||
|
||||
lblWarning.Text = ""
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
'Private Sub UsrCntlessensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
' If essen.eb_montag IsNot Nothing Then
|
||||
' cb_montag.Checked = True
|
||||
' If essen.eb_montag.ToString = menu Then
|
||||
' rbMenu_montag.Checked = True
|
||||
' Else
|
||||
' rbMenuAlt_montag.Checked = True
|
||||
' If essen.eb_montag IsNot Nothing Then txtAlt_montag.Text = essen.eb_montag.ToString
|
||||
' End If
|
||||
' Else
|
||||
' cb_montag.Checked = False
|
||||
' End If
|
||||
|
||||
' If essen.eb_dienstag IsNot Nothing Then
|
||||
' cb_dienstag.Checked = True
|
||||
' If essen.eb_dienstag.ToString = menu Then
|
||||
' rbMenu_dienstag.Checked = True
|
||||
' Else
|
||||
' rbMenuAlt_dienstag.Checked = True
|
||||
' If essen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = essen.eb_dienstag.ToString
|
||||
' End If
|
||||
' Else
|
||||
' cb_dienstag.Checked = False
|
||||
' End If
|
||||
|
||||
|
||||
' If essen.eb_mittwoch IsNot Nothing Then
|
||||
' cb_mittwoch.Checked = True
|
||||
' If essen.eb_mittwoch.ToString = menu Then
|
||||
' rbMenu_mittwoch.Checked = True
|
||||
' Else
|
||||
' rbMenuAlt_mittwoch.Checked = True
|
||||
' If essen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = essen.eb_mittwoch.ToString
|
||||
' End If
|
||||
' Else
|
||||
' cb_mittwoch.Checked = False
|
||||
' End If
|
||||
|
||||
' If essen.eb_donnerstag IsNot Nothing Then
|
||||
' cbdonnerstag.Checked = True
|
||||
' If essen.eb_donnerstag.ToString = menu Then
|
||||
' rbMenu_donnerstag.Checked = True
|
||||
' Else
|
||||
' rbMenuAlt_donnerstag.Checked = True
|
||||
' If essen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_donnerstag.ToString
|
||||
' End If
|
||||
' Else
|
||||
' cb_mittwoch.Checked = False
|
||||
' End If
|
||||
|
||||
|
||||
' If essen.eb_freitag IsNot Nothing Then
|
||||
' cb_freitag.Checked = True
|
||||
' If essen.eb_freitag.ToString = menu Then
|
||||
' rbMenu__freitag.Checked = True
|
||||
' Else
|
||||
' rbMenuAlt_freitag.Checked = True
|
||||
' If essen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = essen.eb_freitag.ToString
|
||||
' End If
|
||||
' Else
|
||||
' cb_freitag.Checked = False
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
End Class
|
||||
933
Aviso/frmEssensbestellungen.Designer.vb
generated
933
Aviso/frmEssensbestellungen.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -7,14 +7,17 @@ Public Class frmEssensbestellungen
|
||||
Dim essen As New cEssensbestellung()
|
||||
Dim dt As New DataTable
|
||||
Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip()
|
||||
'Dim arrayWeekdays() As String = {"montag", "dienstag", "mittwoch", "donerstag", "freitag"}
|
||||
Private ToolTipFont As New Font("Courier New", 12)
|
||||
Dim preisProMahlzeit As Double = 3
|
||||
Dim menu As String = "Menü:"
|
||||
Dim menu As String = "Menü"
|
||||
|
||||
|
||||
|
||||
Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
|
||||
cbxMenu.fillWithSQL("SELECT Distinct Top 10 (MenuTitel), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE()
|
||||
|
||||
txtMA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
|
||||
@@ -38,60 +41,96 @@ Public Class frmEssensbestellungen
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG)
|
||||
essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG, cAllgemein.MITARBEITER.mit_vname & " " & cAllgemein.MITARBEITER.mit_nname)
|
||||
|
||||
If cbMontag.Checked Then
|
||||
If rbMenu_Mo.Checked Then
|
||||
essen.eb_montag = "Menu"
|
||||
If cb_montag.Checked Then
|
||||
If rbMenu_montag.Checked Then
|
||||
essen.eb_montag = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_montag = txtAltMo.Text.ToString
|
||||
If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_montag = txtAlt_montag.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_montag = Nothing
|
||||
End If
|
||||
|
||||
|
||||
If cbDienstag.Checked Then
|
||||
If rbMenu_Di.Checked Then
|
||||
essen.eb_dienstag = "Menu"
|
||||
If cb_dienstag.Checked Then
|
||||
If rbMenu_dienstag.Checked Then
|
||||
essen.eb_dienstag = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_dienstag = txtAltDi.Text.ToString
|
||||
If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_dienstag = txtAlt_dienstag.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_dienstag = Nothing
|
||||
End If
|
||||
|
||||
If cbMittwoch.Checked Then
|
||||
If rbMenu_Mi.Checked Then
|
||||
essen.eb_mittwoch = "Menu"
|
||||
If cb_mittwoch.Checked Then
|
||||
If rbMenu_mittwoch.Checked Then
|
||||
essen.eb_mittwoch = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_mittwoch = txtAltMi.Text.ToString
|
||||
If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_mittwoch = Nothing
|
||||
End If
|
||||
|
||||
If cbDonnerstag.Checked Then
|
||||
If rbMenu_Do.Checked Then
|
||||
essen.eb_donnerstag = "Menu"
|
||||
If cbdonnerstag.Checked Then
|
||||
If rbMenu_donnerstag.Checked Then
|
||||
essen.eb_donnerstag = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_donnerstag = txtAltDo.Text.ToString
|
||||
If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_donnerstag = Nothing
|
||||
End If
|
||||
|
||||
If cbFreitag.Checked Then
|
||||
If rbMenu_Fr.Checked Then
|
||||
essen.eb_freitag = "Menu"
|
||||
If cb_freitag.Checked Then
|
||||
If rbMenu__freitag.Checked Then
|
||||
essen.eb_freitag = menu
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_freitag = txtAltFr.Text.ToString
|
||||
If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then
|
||||
essen.eb_freitag = txtAlt_freitag.Text.ToString
|
||||
setWarning(False)
|
||||
Else
|
||||
setWarning(True)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
setWarning(False)
|
||||
Else
|
||||
essen.eb_freitag = Nothing
|
||||
End If
|
||||
@@ -151,102 +190,102 @@ Public Class frmEssensbestellungen
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_Mo.CheckedChanged, rbMenuAlt_Di.CheckedChanged, rbMenuAlt_Do.CheckedChanged, rbMenuAlt_Mi.CheckedChanged, rbMenuAlt_Fr.CheckedChanged
|
||||
Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged
|
||||
|
||||
If rbMenuAlt_Mo.Checked Then
|
||||
txtAltMo.Visible = True
|
||||
If rbMenuAlt_montag.Checked Then
|
||||
txtAlt_montag.Visible = True
|
||||
Else
|
||||
txtAltMo.Visible = False
|
||||
txtAlt_montag.Visible = False
|
||||
End If
|
||||
|
||||
If rbMenuAlt_Di.Checked Then
|
||||
txtAltDi.Visible = True
|
||||
If rbMenuAlt_dienstag.Checked Then
|
||||
txtAlt_dienstag.Visible = True
|
||||
Else
|
||||
|
||||
txtAltDi.Visible = False
|
||||
txtAlt_dienstag.Visible = False
|
||||
End If
|
||||
|
||||
If rbMenuAlt_Mi.Checked Then
|
||||
txtAltMi.Visible = True
|
||||
If rbMenuAlt_mittwoch.Checked Then
|
||||
txtAlt_mittwoch.Visible = True
|
||||
Else
|
||||
txtAltMi.Visible = False
|
||||
txtAlt_mittwoch.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
If rbMenuAlt_Do.Checked Then
|
||||
txtAltDo.Visible = True
|
||||
If rbMenuAlt_donnerstag.Checked Then
|
||||
txtAlt_donnerstag.Visible = True
|
||||
Else
|
||||
txtAltDo.Visible = False
|
||||
txtAlt_donnerstag.Visible = False
|
||||
End If
|
||||
|
||||
If rbMenuAlt_Fr.Checked Then
|
||||
txtAltFr.Visible = True
|
||||
If rbMenuAlt_freitag.Checked Then
|
||||
txtAlt_freitag.Visible = True
|
||||
Else
|
||||
txtAltFr.Visible = False
|
||||
txtAlt_freitag.Visible = False
|
||||
End If
|
||||
countChecks()
|
||||
End Sub
|
||||
|
||||
Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cbMontag.CheckedChanged, cbDienstag.CheckedChanged, cbMittwoch.CheckedChanged, cbDonnerstag.CheckedChanged, cbFreitag.CheckedChanged
|
||||
If cbMontag.Checked Then
|
||||
rbMenuAlt_Mo.Enabled = True
|
||||
rbMenu_Mo.Enabled = True
|
||||
Private Sub cbFields_CheckedChanged(sender As Object, e As EventArgs) Handles cb_montag.CheckedChanged, cb_dienstag.CheckedChanged, cb_mittwoch.CheckedChanged, cbdonnerstag.CheckedChanged, cb_freitag.CheckedChanged
|
||||
If cb_montag.Checked Then
|
||||
rbMenuAlt_montag.Enabled = True
|
||||
rbMenu_montag.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then
|
||||
rbMenu_Mo.Checked = True
|
||||
rbMenu_montag.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenuAlt_Mo.Enabled = False
|
||||
rbMenu_Mo.Enabled = False
|
||||
txtAltMo.Text = ""
|
||||
rbMenuAlt_montag.Enabled = False
|
||||
rbMenu_montag.Enabled = False
|
||||
txtAlt_montag.Text = ""
|
||||
End If
|
||||
|
||||
If cbDienstag.Checked Then
|
||||
rbMenuAlt_Di.Enabled = True
|
||||
rbMenu_Di.Enabled = True
|
||||
If cb_dienstag.Checked Then
|
||||
rbMenuAlt_dienstag.Enabled = True
|
||||
rbMenu_dienstag.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then
|
||||
rbMenu_Di.Checked = True
|
||||
rbMenu_dienstag.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_Di.Enabled = False
|
||||
rbMenuAlt_Di.Enabled = False
|
||||
txtAltDi.Text = ""
|
||||
rbMenu_dienstag.Enabled = False
|
||||
rbMenuAlt_dienstag.Enabled = False
|
||||
txtAlt_dienstag.Text = ""
|
||||
End If
|
||||
|
||||
If cbMittwoch.Checked Then
|
||||
rbMenuAlt_Mi.Enabled = True
|
||||
rbMenu_Mi.Enabled = True
|
||||
If cb_mittwoch.Checked Then
|
||||
rbMenuAlt_mittwoch.Enabled = True
|
||||
rbMenu_mittwoch.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then
|
||||
rbMenu_Mi.Checked = True
|
||||
rbMenu_mittwoch.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_Mi.Enabled = False
|
||||
rbMenuAlt_Mi.Enabled = False
|
||||
txtAltMi.Text = ""
|
||||
rbMenu_mittwoch.Enabled = False
|
||||
rbMenuAlt_mittwoch.Enabled = False
|
||||
txtAlt_mittwoch.Text = ""
|
||||
End If
|
||||
|
||||
|
||||
If cbDonnerstag.Checked Then
|
||||
rbMenuAlt_Do.Enabled = True
|
||||
rbMenu_Do.Enabled = True
|
||||
If cbdonnerstag.Checked Then
|
||||
rbMenuAlt_donnerstag.Enabled = True
|
||||
rbMenu_donnerstag.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then
|
||||
rbMenu_Do.Checked = True
|
||||
rbMenu_donnerstag.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_Do.Enabled = False
|
||||
rbMenuAlt_Do.Enabled = False
|
||||
txtAltDo.Text = ""
|
||||
rbMenu_donnerstag.Enabled = False
|
||||
rbMenuAlt_donnerstag.Enabled = False
|
||||
txtAlt_donnerstag.Text = ""
|
||||
End If
|
||||
|
||||
If cbFreitag.Checked Then
|
||||
rbMenuAlt_Fr.Enabled = True
|
||||
rbMenu_Fr.Enabled = True
|
||||
If cb_freitag.Checked Then
|
||||
rbMenuAlt_freitag.Enabled = True
|
||||
rbMenu__freitag.Enabled = True
|
||||
If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then
|
||||
rbMenu_Fr.Checked = True
|
||||
rbMenu__freitag.Checked = True
|
||||
End If
|
||||
Else
|
||||
rbMenu_Fr.Enabled = False
|
||||
rbMenuAlt_Fr.Enabled = False
|
||||
txtAltFr.Text = ""
|
||||
rbMenu__freitag.Enabled = False
|
||||
rbMenuAlt_freitag.Enabled = False
|
||||
txtAlt_freitag.Text = ""
|
||||
End If
|
||||
countChecks()
|
||||
End Sub
|
||||
@@ -257,7 +296,7 @@ Public Class frmEssensbestellungen
|
||||
Dim SQLWhere As String = ""
|
||||
If cbxMenu._value IsNot "" Then SQLWhere = " AND [eb_kw] = '" & cbxMenu._value.ToString & "'"
|
||||
|
||||
Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]"
|
||||
Dim SQLString As String = "SELECT [eb_kw], [eb_mitid] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],[eb_donnerstag] ,[eb_freitag],[eb_preis], [eb_mitname], [eb_datum] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_kw]"
|
||||
|
||||
dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
|
||||
dgvBestellungen.LOAD()
|
||||
@@ -270,7 +309,8 @@ Public Class frmEssensbestellungen
|
||||
.Columns("eb_kw").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("eb_kw").HeaderText = "KW"
|
||||
.Columns("eb_mitid").Visible = False
|
||||
|
||||
.Columns("eb_mitname").Visible = False
|
||||
.Columns("eb_datum").Visible = False
|
||||
.Columns("eb_abteilung").Visible = False
|
||||
.Columns("eb_montag").Width = 80
|
||||
.Columns("eb_montag").HeaderText = "Montag"
|
||||
@@ -345,52 +385,52 @@ Public Class frmEssensbestellungen
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
|
||||
'pbMontag.Visible = True
|
||||
rbMenu_Mo.Text = menu
|
||||
txtMenuMo.Text = dt.Rows(0).Item("MenuEssenMo").ToString
|
||||
rbMenu_montag.Text = menu
|
||||
txtMenu_montag.Text = dt.Rows(0).Item("MenuEssenMo").ToString
|
||||
|
||||
ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString)
|
||||
ttMontag.SetToolTip(pb_montag, dt.Rows(0).Item("MenuEssenMo").ToString)
|
||||
Else
|
||||
pbMontag.Visible = False
|
||||
txtMenuMo.Text = ""
|
||||
pb_montag.Visible = False
|
||||
txtMenu_montag.Text = ""
|
||||
End If
|
||||
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
|
||||
'pbDienstag.Visible = True
|
||||
rbMenu_Di.Text = menu
|
||||
txtMenuDi.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
|
||||
ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
|
||||
rbMenu_dienstag.Text = menu
|
||||
txtMenu_dienstag.Text = dt.Rows(0).Item("MenuEssenDi").ToString()
|
||||
ttDienstag.SetToolTip(pb_dienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
|
||||
|
||||
Else
|
||||
pbDienstag.Visible = False
|
||||
pb_dienstag.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
|
||||
'pbMittwoch.Visible = True
|
||||
rbMenu_Mi.Text = menu
|
||||
txtMenuMi.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
|
||||
ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
|
||||
rbMenu_mittwoch.Text = menu
|
||||
txtMenu_mittwoch.Text = dt.Rows(0).Item("MenuEssenMi").ToString()
|
||||
ttMittwoch.SetToolTip(pb_mittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
|
||||
Else
|
||||
pbMittwoch.Visible = False
|
||||
pb_mittwoch.Visible = False
|
||||
End If
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
|
||||
'pbDonnerstag.Visible = True
|
||||
rbMenu_Do.Text = menu
|
||||
txtMenuDo.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
|
||||
ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
|
||||
rbMenu_donnerstag.Text = menu
|
||||
txtMenu_donnerstag.Text = dt.Rows(0).Item("MenuEssenDo").ToString()
|
||||
ttDonnerstag.SetToolTip(pb_donnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
|
||||
Else
|
||||
pbDonnerstag.Visible = False
|
||||
pb_donnerstag.Visible = False
|
||||
End If
|
||||
|
||||
If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
|
||||
'pbFreitag.Visible = True
|
||||
rbMenu_Fr.Text = menu
|
||||
txtMenuFr.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
|
||||
ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString)
|
||||
rbMenu__freitag.Text = menu
|
||||
txtMenu_freitag.Text = dt.Rows(0).Item("MenuEssenFr").ToString()
|
||||
ttFreitag.SetToolTip(pb_freitag, dt.Rows(0).Item("MenuEssenFr").ToString)
|
||||
Else
|
||||
pbFreitag.Visible = False
|
||||
pb_freitag.Visible = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -399,70 +439,70 @@ Public Class frmEssensbestellungen
|
||||
|
||||
If dgvBestellungen.Rows.Count = 0 Then Exit Sub
|
||||
|
||||
Dim currentEssen As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value, dgvBestellungen.CurrentRow.Cells("eb_gebaeude").Value, dgvBestellungen.CurrentRow.Cells("eb_abteilung").Value)
|
||||
Dim currentEssen As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value, dgvBestellungen.CurrentRow.Cells("eb_gebaeude").Value, dgvBestellungen.CurrentRow.Cells("eb_abteilung").Value, dgvBestellungen.CurrentRow.Cells("eb_mitname").Value)
|
||||
|
||||
cbxMenu.changeItem(currentEssen.eb_kw)
|
||||
|
||||
If currentEssen.eb_montag IsNot Nothing Then
|
||||
cbMontag.Checked = True
|
||||
cb_montag.Checked = True
|
||||
If currentEssen.eb_montag.ToString = "Menu" Then
|
||||
rbMenu_Mo.Checked = True
|
||||
rbMenu_montag.Checked = True
|
||||
Else
|
||||
rbMenuAlt_Mo.Checked = True
|
||||
If currentEssen.eb_montag IsNot Nothing Then txtAltMo.Text = currentEssen.eb_montag.ToString
|
||||
rbMenuAlt_montag.Checked = True
|
||||
If currentEssen.eb_montag IsNot Nothing Then txtAlt_montag.Text = currentEssen.eb_montag.ToString
|
||||
End If
|
||||
Else
|
||||
cbMontag.Checked = False
|
||||
cb_montag.Checked = False
|
||||
End If
|
||||
|
||||
If currentEssen.eb_dienstag IsNot Nothing Then
|
||||
cbDienstag.Checked = True
|
||||
cb_dienstag.Checked = True
|
||||
If currentEssen.eb_dienstag.ToString = "Menu" Then
|
||||
rbMenu_Di.Checked = True
|
||||
rbMenu_dienstag.Checked = True
|
||||
Else
|
||||
rbMenuAlt_Di.Checked = True
|
||||
If currentEssen.eb_dienstag IsNot Nothing Then txtAltDi.Text = currentEssen.eb_dienstag.ToString
|
||||
rbMenuAlt_dienstag.Checked = True
|
||||
If currentEssen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = currentEssen.eb_dienstag.ToString
|
||||
End If
|
||||
Else
|
||||
cbDienstag.Checked = False
|
||||
cb_dienstag.Checked = False
|
||||
End If
|
||||
|
||||
|
||||
If currentEssen.eb_mittwoch IsNot Nothing Then
|
||||
cbMittwoch.Checked = True
|
||||
cb_mittwoch.Checked = True
|
||||
If currentEssen.eb_mittwoch.ToString = "Menu" Then
|
||||
rbMenu_Mi.Checked = True
|
||||
rbMenu_mittwoch.Checked = True
|
||||
Else
|
||||
rbMenuAlt_Mi.Checked = True
|
||||
If currentEssen.eb_mittwoch IsNot Nothing Then txtAltMi.Text = currentEssen.eb_mittwoch.ToString
|
||||
rbMenuAlt_mittwoch.Checked = True
|
||||
If currentEssen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = currentEssen.eb_mittwoch.ToString
|
||||
End If
|
||||
Else
|
||||
cbMittwoch.Checked = False
|
||||
cb_mittwoch.Checked = False
|
||||
End If
|
||||
|
||||
If currentEssen.eb_donnerstag IsNot Nothing Then
|
||||
cbDonnerstag.Checked = True
|
||||
cbdonnerstag.Checked = True
|
||||
If currentEssen.eb_donnerstag.ToString = "Menu" Then
|
||||
rbMenu_Do.Checked = True
|
||||
rbMenu_donnerstag.Checked = True
|
||||
Else
|
||||
rbMenuAlt_Do.Checked = True
|
||||
If currentEssen.eb_donnerstag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_donnerstag.ToString
|
||||
rbMenuAlt_donnerstag.Checked = True
|
||||
If currentEssen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_donnerstag.ToString
|
||||
End If
|
||||
Else
|
||||
cbMittwoch.Checked = False
|
||||
cb_mittwoch.Checked = False
|
||||
End If
|
||||
|
||||
|
||||
If currentEssen.eb_freitag IsNot Nothing Then
|
||||
cbFreitag.Checked = True
|
||||
cb_freitag.Checked = True
|
||||
If currentEssen.eb_freitag.ToString = "Menu" Then
|
||||
rbMenu_Fr.Checked = True
|
||||
rbMenu__freitag.Checked = True
|
||||
Else
|
||||
rbMenuAlt_Fr.Checked = True
|
||||
If currentEssen.eb_freitag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_freitag.ToString
|
||||
rbMenuAlt_freitag.Checked = True
|
||||
If currentEssen.eb_freitag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_freitag.ToString
|
||||
End If
|
||||
Else
|
||||
cbFreitag.Checked = False
|
||||
cb_freitag.Checked = False
|
||||
End If
|
||||
|
||||
|
||||
@@ -501,7 +541,7 @@ Public Class frmEssensbestellungen
|
||||
Try
|
||||
Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
|
||||
|
||||
Dim tageBisBestellende = 50 '-5
|
||||
Dim tageBisBestellende = 10000 '-5
|
||||
|
||||
If tageBisBestellende > 0 Then
|
||||
lblTest.Text = "Zu Testzwecken darf aktuell " & tageBisBestellende & " Tage im Nachhinein bestellt werden!"
|
||||
@@ -528,7 +568,7 @@ Public Class frmEssensbestellungen
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_Mo.Click, rbMenu_Di.Click, rbMenu_Mi.Click, rbMenu_Do.Click, rbMenu_Fr.Click
|
||||
Private Sub rbMenu_Mo_Click(sender As Object, e As EventArgs) Handles rbMenu_montag.Click, rbMenu_dienstag.Click, rbMenu_mittwoch.Click, rbMenu_donnerstag.Click, rbMenu__freitag.Click
|
||||
countChecks()
|
||||
End Sub
|
||||
|
||||
@@ -557,4 +597,16 @@ Public Class frmEssensbestellungen
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub setWarning(warning As Boolean)
|
||||
|
||||
If warning Then
|
||||
lblWarning.Text = "Bezeichnung für A la carte fehlt"
|
||||
Else
|
||||
|
||||
lblWarning.Text = ""
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
670
Aviso/frmEssensbestellungenAdministration.Designer.vb
generated
Normal file
670
Aviso/frmEssensbestellungenAdministration.Designer.vb
generated
Normal file
@@ -0,0 +1,670 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmEssensbestellungenAdministration
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular ü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.pnlTop = New System.Windows.Forms.Panel()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Label22 = New System.Windows.Forms.Label()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.cbxNichtAbgeschickt = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxAbgerechnet = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxStornos = New System.Windows.Forms.CheckBox()
|
||||
Me.FlatButton7 = New System.Windows.Forms.Button()
|
||||
Me.btnSuche = New System.Windows.Forms.Button()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.btnJahr = New System.Windows.Forms.Button()
|
||||
Me.btnBisJahr = New System.Windows.Forms.Button()
|
||||
Me.btnVonJahr = New System.Windows.Forms.Button()
|
||||
Me.Label23 = New System.Windows.Forms.Label()
|
||||
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.btnMonat = New System.Windows.Forms.Button()
|
||||
Me.btnBisMonat = New System.Windows.Forms.Button()
|
||||
Me.btnVonMonat = New System.Windows.Forms.Button()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.StornierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AbgerechnetToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.AnHigway118SchickenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.txtAnzahlDS = New System.Windows.Forms.TextBox()
|
||||
Me.Label27 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.txtSumme = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.cboGebaeude = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtBestellDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtBestellDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtMitarbeiter = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cboAbteilung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.btnKW = New System.Windows.Forms.Button()
|
||||
Me.btnBisKW = New System.Windows.Forms.Button()
|
||||
Me.btnVonKW = New System.Windows.Forms.Button()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.ContextMenuStrip1.SuspendLayout()
|
||||
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnlTop
|
||||
'
|
||||
Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
|
||||
Me.pnlTop.Controls.Add(Me.Label4)
|
||||
Me.pnlTop.Controls.Add(Me.Label22)
|
||||
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
|
||||
Me.pnlTop.Name = "pnlTop"
|
||||
Me.pnlTop.Size = New System.Drawing.Size(1242, 48)
|
||||
Me.pnlTop.TabIndex = 1
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.ForeColor = System.Drawing.Color.White
|
||||
Me.Label4.Location = New System.Drawing.Point(10, 13)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(386, 26)
|
||||
Me.Label4.TabIndex = 0
|
||||
Me.Label4.Text = "Administration-Essensbestellungen"
|
||||
'
|
||||
'Label22
|
||||
'
|
||||
Me.Label22.AutoSize = True
|
||||
Me.Label22.ForeColor = System.Drawing.Color.White
|
||||
Me.Label22.Location = New System.Drawing.Point(505, 22)
|
||||
Me.Label22.Name = "Label22"
|
||||
Me.Label22.Size = New System.Drawing.Size(221, 13)
|
||||
Me.Label22.TabIndex = 1
|
||||
Me.Label22.Text = "(Erweiterte suche: * vor oder nach dem Text )"
|
||||
'
|
||||
'Panel1
|
||||
'
|
||||
Me.Panel1.Controls.Add(Me.btnKW)
|
||||
Me.Panel1.Controls.Add(Me.btnBisKW)
|
||||
Me.Panel1.Controls.Add(Me.btnVonKW)
|
||||
Me.Panel1.Controls.Add(Me.cbxNichtAbgeschickt)
|
||||
Me.Panel1.Controls.Add(Me.cbxAbgerechnet)
|
||||
Me.Panel1.Controls.Add(Me.cbxStornos)
|
||||
Me.Panel1.Controls.Add(Me.FlatButton7)
|
||||
Me.Panel1.Controls.Add(Me.btnSuche)
|
||||
Me.Panel1.Controls.Add(Me.cboGebaeude)
|
||||
Me.Panel1.Controls.Add(Me.Label3)
|
||||
Me.Panel1.Controls.Add(Me.Label2)
|
||||
Me.Panel1.Controls.Add(Me.btnJahr)
|
||||
Me.Panel1.Controls.Add(Me.btnBisJahr)
|
||||
Me.Panel1.Controls.Add(Me.btnVonJahr)
|
||||
Me.Panel1.Controls.Add(Me.txtBestellDat)
|
||||
Me.Panel1.Controls.Add(Me.Label23)
|
||||
Me.Panel1.Controls.Add(Me.txtBestellDatBis)
|
||||
Me.Panel1.Controls.Add(Me.DateTimePicker2)
|
||||
Me.Panel1.Controls.Add(Me.Label13)
|
||||
Me.Panel1.Controls.Add(Me.DateTimePicker1)
|
||||
Me.Panel1.Controls.Add(Me.txtMitarbeiter)
|
||||
Me.Panel1.Controls.Add(Me.Label18)
|
||||
Me.Panel1.Controls.Add(Me.btnMonat)
|
||||
Me.Panel1.Controls.Add(Me.btnBisMonat)
|
||||
Me.Panel1.Controls.Add(Me.btnVonMonat)
|
||||
Me.Panel1.Controls.Add(Me.cboAbteilung)
|
||||
Me.Panel1.Controls.Add(Me.Label1)
|
||||
Me.Panel1.Location = New System.Drawing.Point(0, 49)
|
||||
Me.Panel1.Name = "Panel1"
|
||||
Me.Panel1.Size = New System.Drawing.Size(1242, 85)
|
||||
Me.Panel1.TabIndex = 2
|
||||
'
|
||||
'cbxNichtAbgeschickt
|
||||
'
|
||||
Me.cbxNichtAbgeschickt.AutoSize = True
|
||||
Me.cbxNichtAbgeschickt.Location = New System.Drawing.Point(618, 48)
|
||||
Me.cbxNichtAbgeschickt.Name = "cbxNichtAbgeschickt"
|
||||
Me.cbxNichtAbgeschickt.Size = New System.Drawing.Size(137, 17)
|
||||
Me.cbxNichtAbgeschickt.TabIndex = 51
|
||||
Me.cbxNichtAbgeschickt.Text = "noch nicht abgeschickt"
|
||||
Me.cbxNichtAbgeschickt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxAbgerechnet
|
||||
'
|
||||
Me.cbxAbgerechnet.AutoSize = True
|
||||
Me.cbxAbgerechnet.Location = New System.Drawing.Point(618, 9)
|
||||
Me.cbxAbgerechnet.Name = "cbxAbgerechnet"
|
||||
Me.cbxAbgerechnet.Size = New System.Drawing.Size(86, 17)
|
||||
Me.cbxAbgerechnet.TabIndex = 50
|
||||
Me.cbxAbgerechnet.Text = "abgerechnet"
|
||||
Me.cbxAbgerechnet.UseVisualStyleBackColor = True
|
||||
'
|
||||
'cbxStornos
|
||||
'
|
||||
Me.cbxStornos.AutoSize = True
|
||||
Me.cbxStornos.Location = New System.Drawing.Point(618, 29)
|
||||
Me.cbxStornos.Name = "cbxStornos"
|
||||
Me.cbxStornos.Size = New System.Drawing.Size(63, 17)
|
||||
Me.cbxStornos.TabIndex = 49
|
||||
Me.cbxStornos.Text = "storniert"
|
||||
Me.cbxStornos.UseVisualStyleBackColor = True
|
||||
'
|
||||
'FlatButton7
|
||||
'
|
||||
Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
|
||||
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.FlatButton7.ForeColor = System.Drawing.Color.Black
|
||||
Me.FlatButton7.Image = Global.AVISO.My.Resources.Resources.refresh
|
||||
Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.FlatButton7.Location = New System.Drawing.Point(990, 18)
|
||||
Me.FlatButton7.Name = "FlatButton7"
|
||||
Me.FlatButton7.Size = New System.Drawing.Size(41, 34)
|
||||
Me.FlatButton7.TabIndex = 48
|
||||
Me.FlatButton7.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnSuche
|
||||
'
|
||||
Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnSuche.Location = New System.Drawing.Point(1068, 13)
|
||||
Me.btnSuche.Name = "btnSuche"
|
||||
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
|
||||
Me.btnSuche.TabIndex = 47
|
||||
Me.btnSuche.Text = "Suche starten"
|
||||
Me.btnSuche.UseVisualStyleBackColor = True
|
||||
'
|
||||
'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(758, 13)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(58, 13)
|
||||
Me.Label3.TabIndex = 45
|
||||
Me.Label3.Text = "Gebäude"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(11, 13)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(56, 13)
|
||||
Me.Label2.TabIndex = 42
|
||||
Me.Label2.Text = "Zeitraum"
|
||||
'
|
||||
'btnJahr
|
||||
'
|
||||
Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnJahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnJahr.Location = New System.Drawing.Point(186, 29)
|
||||
Me.btnJahr.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnJahr.Name = "btnJahr"
|
||||
Me.btnJahr.Size = New System.Drawing.Size(87, 23)
|
||||
Me.btnJahr.TabIndex = 40
|
||||
Me.btnJahr.Text = "2023"
|
||||
Me.btnJahr.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnBisJahr
|
||||
'
|
||||
Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnBisJahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisJahr.Location = New System.Drawing.Point(272, 29)
|
||||
Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnBisJahr.Name = "btnBisJahr"
|
||||
Me.btnBisJahr.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnBisJahr.TabIndex = 41
|
||||
Me.btnBisJahr.Text = ">>"
|
||||
Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisJahr.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnVonJahr
|
||||
'
|
||||
Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnVonJahr.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonJahr.Location = New System.Drawing.Point(153, 29)
|
||||
Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnVonJahr.Name = "btnVonJahr"
|
||||
Me.btnVonJahr.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnVonJahr.TabIndex = 39
|
||||
Me.btnVonJahr.Text = "<<"
|
||||
Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonJahr.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label23
|
||||
'
|
||||
Me.Label23.AutoSize = True
|
||||
Me.Label23.Location = New System.Drawing.Point(11, 56)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(23, 13)
|
||||
Me.Label23.TabIndex = 37
|
||||
Me.Label23.Text = "bis:"
|
||||
'
|
||||
'DateTimePicker2
|
||||
'
|
||||
Me.DateTimePicker2.CustomFormat = "''"
|
||||
Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom
|
||||
Me.DateTimePicker2.Location = New System.Drawing.Point(40, 53)
|
||||
Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.DateTimePicker2.Name = "DateTimePicker2"
|
||||
Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20)
|
||||
Me.DateTimePicker2.TabIndex = 36
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(11, 32)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(28, 13)
|
||||
Me.Label13.TabIndex = 38
|
||||
Me.Label13.Text = "von:"
|
||||
'
|
||||
'DateTimePicker1
|
||||
'
|
||||
Me.DateTimePicker1.CustomFormat = "''"
|
||||
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom
|
||||
Me.DateTimePicker1.Location = New System.Drawing.Point(40, 28)
|
||||
Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.DateTimePicker1.Name = "DateTimePicker1"
|
||||
Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20)
|
||||
Me.DateTimePicker1.TabIndex = 34
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label18.Location = New System.Drawing.Point(360, 13)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(67, 13)
|
||||
Me.Label18.TabIndex = 31
|
||||
Me.Label18.Text = "Mitarbeiter"
|
||||
'
|
||||
'btnMonat
|
||||
'
|
||||
Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnMonat.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnMonat.Location = New System.Drawing.Point(186, 9)
|
||||
Me.btnMonat.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnMonat.Name = "btnMonat"
|
||||
Me.btnMonat.Size = New System.Drawing.Size(87, 23)
|
||||
Me.btnMonat.TabIndex = 24
|
||||
Me.btnMonat.Text = "September"
|
||||
Me.btnMonat.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnBisMonat
|
||||
'
|
||||
Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnBisMonat.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisMonat.Location = New System.Drawing.Point(272, 9)
|
||||
Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnBisMonat.Name = "btnBisMonat"
|
||||
Me.btnBisMonat.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnBisMonat.TabIndex = 25
|
||||
Me.btnBisMonat.Text = ">>"
|
||||
Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisMonat.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnVonMonat
|
||||
'
|
||||
Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnVonMonat.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonMonat.Location = New System.Drawing.Point(153, 9)
|
||||
Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnVonMonat.Name = "btnVonMonat"
|
||||
Me.btnVonMonat.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnVonMonat.TabIndex = 23
|
||||
Me.btnVonMonat.Text = "<<"
|
||||
Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonMonat.UseVisualStyleBackColor = True
|
||||
'
|
||||
'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(860, 13)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(60, 13)
|
||||
Me.Label1.TabIndex = 21
|
||||
Me.Label1.Text = "Abteilung"
|
||||
'
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StornierenToolStripMenuItem, Me.AbgerechnetToolStripMenuItem, Me.BearbeitenToolStripMenuItem, Me.AnHigway118SchickenToolStripMenuItem})
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(203, 114)
|
||||
'
|
||||
'StornierenToolStripMenuItem
|
||||
'
|
||||
Me.StornierenToolStripMenuItem.Name = "StornierenToolStripMenuItem"
|
||||
Me.StornierenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
|
||||
Me.StornierenToolStripMenuItem.Text = "stornieren"
|
||||
'
|
||||
'AbgerechnetToolStripMenuItem
|
||||
'
|
||||
Me.AbgerechnetToolStripMenuItem.Name = "AbgerechnetToolStripMenuItem"
|
||||
Me.AbgerechnetToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
|
||||
Me.AbgerechnetToolStripMenuItem.Text = "abgerechnet"
|
||||
'
|
||||
'BearbeitenToolStripMenuItem
|
||||
'
|
||||
Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem"
|
||||
Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
|
||||
Me.BearbeitenToolStripMenuItem.Text = "bearbeiten"
|
||||
'
|
||||
'AnHigway118SchickenToolStripMenuItem
|
||||
'
|
||||
Me.AnHigway118SchickenToolStripMenuItem.Name = "AnHigway118SchickenToolStripMenuItem"
|
||||
Me.AnHigway118SchickenToolStripMenuItem.Size = New System.Drawing.Size(202, 22)
|
||||
Me.AnHigway118SchickenToolStripMenuItem.Text = "An Higway 118 schicken"
|
||||
'
|
||||
'txtAnzahlDS
|
||||
'
|
||||
Me.txtAnzahlDS.Location = New System.Drawing.Point(1170, 744)
|
||||
Me.txtAnzahlDS.Name = "txtAnzahlDS"
|
||||
Me.txtAnzahlDS.ReadOnly = True
|
||||
Me.txtAnzahlDS.Size = New System.Drawing.Size(60, 20)
|
||||
Me.txtAnzahlDS.TabIndex = 45
|
||||
'
|
||||
'Label27
|
||||
'
|
||||
Me.Label27.AutoSize = True
|
||||
Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label27.Location = New System.Drawing.Point(860, 747)
|
||||
Me.Label27.Name = "Label27"
|
||||
Me.Label27.Size = New System.Drawing.Size(45, 13)
|
||||
Me.Label27.TabIndex = 46
|
||||
Me.Label27.Text = "Summe:"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(1065, 748)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(99, 13)
|
||||
Me.Label5.TabIndex = 44
|
||||
Me.Label5.Text = "Anzahl Datensätze:"
|
||||
'
|
||||
'txtSumme
|
||||
'
|
||||
Me.txtSumme._DateTimeOnly = False
|
||||
Me.txtSumme._numbersOnly = False
|
||||
Me.txtSumme._numbersOnlyKommastellen = ""
|
||||
Me.txtSumme._numbersOnlyTrennzeichen = False
|
||||
Me.txtSumme._Prozent = False
|
||||
Me.txtSumme._ShortDateNew = False
|
||||
Me.txtSumme._ShortDateOnly = False
|
||||
Me.txtSumme._TimeOnly = False
|
||||
Me.txtSumme._TimeOnly_Seconds = False
|
||||
Me.txtSumme._value = ""
|
||||
Me.txtSumme._Waehrung = True
|
||||
Me.txtSumme._WaehrungZeichen = True
|
||||
Me.txtSumme.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtSumme.Location = New System.Drawing.Point(931, 744)
|
||||
Me.txtSumme.MaxLineLength = -1
|
||||
Me.txtSumme.MaxLines_Warning = ""
|
||||
Me.txtSumme.MaxLines_Warning_Label = Nothing
|
||||
Me.txtSumme.Name = "txtSumme"
|
||||
Me.txtSumme.ReadOnly = True
|
||||
Me.txtSumme.Size = New System.Drawing.Size(100, 20)
|
||||
Me.txtSumme.TabIndex = 47
|
||||
'
|
||||
'dgvBestellungen
|
||||
'
|
||||
Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
|
||||
Me.dgvBestellungen.AllowUserToAddRows = False
|
||||
Me.dgvBestellungen.AllowUserToDeleteRows = False
|
||||
Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.dgvBestellungen.ContextMenuStrip = Me.ContextMenuStrip1
|
||||
Me.dgvBestellungen.Location = New System.Drawing.Point(0, 140)
|
||||
Me.dgvBestellungen.Name = "dgvBestellungen"
|
||||
Me.dgvBestellungen.Size = New System.Drawing.Size(1242, 598)
|
||||
Me.dgvBestellungen.TabIndex = 43
|
||||
'
|
||||
'cboGebaeude
|
||||
'
|
||||
Me.cboGebaeude._allowedValuesFreiText = Nothing
|
||||
Me.cboGebaeude._allowFreiText = True
|
||||
Me.cboGebaeude._value = ""
|
||||
Me.cboGebaeude.DropDownWidth = 250
|
||||
Me.cboGebaeude.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboGebaeude.FormattingEnabled = True
|
||||
Me.cboGebaeude.Location = New System.Drawing.Point(761, 26)
|
||||
Me.cboGebaeude.Name = "cboGebaeude"
|
||||
Me.cboGebaeude.Size = New System.Drawing.Size(80, 22)
|
||||
Me.cboGebaeude.TabIndex = 46
|
||||
'
|
||||
'txtBestellDat
|
||||
'
|
||||
Me.txtBestellDat._DateTimeOnly = False
|
||||
Me.txtBestellDat._numbersOnly = False
|
||||
Me.txtBestellDat._numbersOnlyKommastellen = ""
|
||||
Me.txtBestellDat._numbersOnlyTrennzeichen = True
|
||||
Me.txtBestellDat._Prozent = False
|
||||
Me.txtBestellDat._ShortDateNew = False
|
||||
Me.txtBestellDat._ShortDateOnly = True
|
||||
Me.txtBestellDat._TimeOnly = False
|
||||
Me.txtBestellDat._TimeOnly_Seconds = False
|
||||
Me.txtBestellDat._value = ""
|
||||
Me.txtBestellDat._Waehrung = False
|
||||
Me.txtBestellDat._WaehrungZeichen = True
|
||||
Me.txtBestellDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtBestellDat.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtBestellDat.Location = New System.Drawing.Point(40, 28)
|
||||
Me.txtBestellDat.MaxLength = 10
|
||||
Me.txtBestellDat.MaxLineLength = -1
|
||||
Me.txtBestellDat.MaxLines_Warning = ""
|
||||
Me.txtBestellDat.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBestellDat.Name = "txtBestellDat"
|
||||
Me.txtBestellDat.Size = New System.Drawing.Size(63, 20)
|
||||
Me.txtBestellDat.TabIndex = 33
|
||||
'
|
||||
'txtBestellDatBis
|
||||
'
|
||||
Me.txtBestellDatBis._DateTimeOnly = False
|
||||
Me.txtBestellDatBis._numbersOnly = False
|
||||
Me.txtBestellDatBis._numbersOnlyKommastellen = ""
|
||||
Me.txtBestellDatBis._numbersOnlyTrennzeichen = True
|
||||
Me.txtBestellDatBis._Prozent = False
|
||||
Me.txtBestellDatBis._ShortDateNew = False
|
||||
Me.txtBestellDatBis._ShortDateOnly = True
|
||||
Me.txtBestellDatBis._TimeOnly = False
|
||||
Me.txtBestellDatBis._TimeOnly_Seconds = False
|
||||
Me.txtBestellDatBis._value = ""
|
||||
Me.txtBestellDatBis._Waehrung = False
|
||||
Me.txtBestellDatBis._WaehrungZeichen = True
|
||||
Me.txtBestellDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtBestellDatBis.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtBestellDatBis.Location = New System.Drawing.Point(40, 53)
|
||||
Me.txtBestellDatBis.MaxLength = 10
|
||||
Me.txtBestellDatBis.MaxLineLength = -1
|
||||
Me.txtBestellDatBis.MaxLines_Warning = ""
|
||||
Me.txtBestellDatBis.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBestellDatBis.Name = "txtBestellDatBis"
|
||||
Me.txtBestellDatBis.Size = New System.Drawing.Size(63, 20)
|
||||
Me.txtBestellDatBis.TabIndex = 35
|
||||
'
|
||||
'txtMitarbeiter
|
||||
'
|
||||
Me.txtMitarbeiter._DateTimeOnly = False
|
||||
Me.txtMitarbeiter._numbersOnly = False
|
||||
Me.txtMitarbeiter._numbersOnlyKommastellen = ""
|
||||
Me.txtMitarbeiter._numbersOnlyTrennzeichen = True
|
||||
Me.txtMitarbeiter._Prozent = False
|
||||
Me.txtMitarbeiter._ShortDateNew = False
|
||||
Me.txtMitarbeiter._ShortDateOnly = False
|
||||
Me.txtMitarbeiter._TimeOnly = False
|
||||
Me.txtMitarbeiter._TimeOnly_Seconds = False
|
||||
Me.txtMitarbeiter._value = Nothing
|
||||
Me.txtMitarbeiter._Waehrung = False
|
||||
Me.txtMitarbeiter._WaehrungZeichen = False
|
||||
Me.txtMitarbeiter.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtMitarbeiter.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtMitarbeiter.Location = New System.Drawing.Point(363, 28)
|
||||
Me.txtMitarbeiter.MaxLineLength = -1
|
||||
Me.txtMitarbeiter.MaxLines_Warning = ""
|
||||
Me.txtMitarbeiter.MaxLines_Warning_Label = Nothing
|
||||
Me.txtMitarbeiter.Name = "txtMitarbeiter"
|
||||
Me.txtMitarbeiter.Size = New System.Drawing.Size(218, 20)
|
||||
Me.txtMitarbeiter.TabIndex = 32
|
||||
'
|
||||
'cboAbteilung
|
||||
'
|
||||
Me.cboAbteilung._allowedValuesFreiText = Nothing
|
||||
Me.cboAbteilung._allowFreiText = False
|
||||
Me.cboAbteilung._value = ""
|
||||
Me.cboAbteilung.DropDownWidth = 250
|
||||
Me.cboAbteilung.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboAbteilung.FormattingEnabled = True
|
||||
Me.cboAbteilung.Location = New System.Drawing.Point(863, 26)
|
||||
Me.cboAbteilung.Name = "cboAbteilung"
|
||||
Me.cboAbteilung.Size = New System.Drawing.Size(80, 22)
|
||||
Me.cboAbteilung.TabIndex = 22
|
||||
'
|
||||
'btnKW
|
||||
'
|
||||
Me.btnKW.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnKW.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnKW.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnKW.Location = New System.Drawing.Point(186, 51)
|
||||
Me.btnKW.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnKW.Name = "btnKW"
|
||||
Me.btnKW.Size = New System.Drawing.Size(87, 23)
|
||||
Me.btnKW.TabIndex = 53
|
||||
Me.btnKW.Text = "KW 1"
|
||||
Me.btnKW.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnBisKW
|
||||
'
|
||||
Me.btnBisKW.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnBisKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnBisKW.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnBisKW.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisKW.Location = New System.Drawing.Point(272, 51)
|
||||
Me.btnBisKW.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnBisKW.Name = "btnBisKW"
|
||||
Me.btnBisKW.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnBisKW.TabIndex = 54
|
||||
Me.btnBisKW.Text = ">>"
|
||||
Me.btnBisKW.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnBisKW.UseVisualStyleBackColor = True
|
||||
'
|
||||
'btnVonKW
|
||||
'
|
||||
Me.btnVonKW.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnVonKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
|
||||
Me.btnVonKW.ForeColor = System.Drawing.Color.Black
|
||||
Me.btnVonKW.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonKW.Location = New System.Drawing.Point(153, 51)
|
||||
Me.btnVonKW.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.btnVonKW.Name = "btnVonKW"
|
||||
Me.btnVonKW.Size = New System.Drawing.Size(34, 23)
|
||||
Me.btnVonKW.TabIndex = 52
|
||||
Me.btnVonKW.Text = "<<"
|
||||
Me.btnVonKW.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnVonKW.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmEssensbestellungenAdministration
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1242, 767)
|
||||
Me.Controls.Add(Me.txtSumme)
|
||||
Me.Controls.Add(Me.txtAnzahlDS)
|
||||
Me.Controls.Add(Me.Label27)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.dgvBestellungen)
|
||||
Me.Controls.Add(Me.Panel1)
|
||||
Me.Controls.Add(Me.pnlTop)
|
||||
Me.Name = "frmEssensbestellungenAdministration"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Essensbestellungen Administration"
|
||||
Me.pnlTop.ResumeLayout(False)
|
||||
Me.pnlTop.PerformLayout()
|
||||
Me.Panel1.ResumeLayout(False)
|
||||
Me.Panel1.PerformLayout()
|
||||
Me.ContextMenuStrip1.ResumeLayout(False)
|
||||
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents pnlTop As Panel
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents Label22 As Label
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||
Friend WithEvents StornierenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents AbgerechnetToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents cboAbteilung As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents btnMonat As Button
|
||||
Friend WithEvents btnBisMonat As Button
|
||||
Friend WithEvents btnVonMonat As Button
|
||||
Friend WithEvents txtMitarbeiter As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label18 As Label
|
||||
Friend WithEvents txtBestellDat As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label23 As Label
|
||||
Friend WithEvents txtBestellDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents DateTimePicker2 As DateTimePicker
|
||||
Friend WithEvents Label13 As Label
|
||||
Friend WithEvents DateTimePicker1 As DateTimePicker
|
||||
Friend WithEvents btnJahr As Button
|
||||
Friend WithEvents btnBisJahr As Button
|
||||
Friend WithEvents btnVonJahr As Button
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents dgvBestellungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
|
||||
Friend WithEvents cboGebaeude As VERAG_PROG_ALLGEMEIN.MyComboBox
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents btnSuche As Button
|
||||
Friend WithEvents FlatButton7 As Button
|
||||
Friend WithEvents txtSumme As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents txtAnzahlDS As TextBox
|
||||
Friend WithEvents Label27 As Label
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents cbxAbgerechnet As CheckBox
|
||||
Friend WithEvents cbxStornos As CheckBox
|
||||
Friend WithEvents AnHigway118SchickenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents cbxNichtAbgeschickt As CheckBox
|
||||
Friend WithEvents btnKW As Button
|
||||
Friend WithEvents btnBisKW As Button
|
||||
Friend WithEvents btnVonKW As Button
|
||||
End Class
|
||||
123
Aviso/frmEssensbestellungenAdministration.resx
Normal file
123
Aviso/frmEssensbestellungenAdministration.resx
Normal file
@@ -0,0 +1,123 @@
|
||||
<?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>
|
||||
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
396
Aviso/frmEssensbestellungenAdministration.vb
Normal file
396
Aviso/frmEssensbestellungenAdministration.vb
Normal file
@@ -0,0 +1,396 @@
|
||||
Imports System.Web.UI.HtmlControls
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmEssensbestellungenAdministration
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Private Sub frmEssensbestellungenAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
txtBestellDat.Text = Date.Parse("01.01.2001")
|
||||
txtBestellDatBis.Text = Now.ToShortDateString
|
||||
btnMonat.Text = MONAT.ToString("MMMM")
|
||||
btnJahr.Text = JAHR.Year
|
||||
|
||||
txtMitarbeiter.Text = ""
|
||||
cboGebaeude.changeItem("")
|
||||
cboAbteilung.changeItem("")
|
||||
cbxStornos.Checked = False
|
||||
cbxAbgerechnet.Checked = False
|
||||
|
||||
cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frontoffice", "Frontoffice"))
|
||||
cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Asfinag", "Asfinag"))
|
||||
cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag Verrechnung", "Verag Verrechnung"))
|
||||
cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
|
||||
cboGebaeude.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboGebaeude.changeItem("")
|
||||
|
||||
cboAbteilung.fillWithSQL("SELECT DISTINCT(eb_abteilung) FROM [tblEssensbestellungen]", False, "AVISO", True)
|
||||
cboAbteilung.changeItem("")
|
||||
|
||||
loadBestellungen()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub loadBestellungen()
|
||||
|
||||
|
||||
Dim SQLString As String = "SELECT [eb_mitid] , [eb_mitname] , [eb_kw] , [eb_gebaeude],[eb_abteilung],[eb_montag],[eb_dienstag],[eb_mittwoch],
|
||||
[eb_donnerstag] ,[eb_freitag],[eb_datum],[eb_preis], [eb_anmerkung],[eb_storniert],[eb_storniert_am],[eb_abgerechnet],[eb_abgerechnet_am], [eb_gesendet], [eb_gesendet_am]
|
||||
FROM
|
||||
[tblEssensbestellungen] WHERE 1=1"
|
||||
|
||||
dgvBestellungen.SET_SQL(SQLString & bestellungenWhereClause() & " Order by eb_datum, eb_mitid", "AVISO", ,)
|
||||
dgvBestellungen.LOAD()
|
||||
|
||||
|
||||
If dgvBestellungen.Columns.Count < 1 Then Exit Sub
|
||||
|
||||
With dgvBestellungen
|
||||
If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
.RowHeadersVisible = False
|
||||
.ReadOnly = True
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
|
||||
.RowHeadersWidth = 10
|
||||
.Columns("eb_kw").HeaderText = "KW"
|
||||
.Columns("eb_kw").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("eb_mitid").HeaderText = "MID"
|
||||
.Columns("eb_mitid").Width = 40
|
||||
.Columns("eb_mitname").HeaderText = "Mitarbeiter"
|
||||
.Columns("eb_abteilung").Visible = False
|
||||
.Columns("eb_datum").Width = 80
|
||||
.Columns("eb_datum").HeaderText = "Datum"
|
||||
.Columns("eb_montag").Width = 80
|
||||
.Columns("eb_montag").HeaderText = "Montag"
|
||||
.Columns("eb_montag").Width = 80
|
||||
.Columns("eb_dienstag").HeaderText = "Dienstag"
|
||||
.Columns("eb_dienstag").Width = 80
|
||||
.Columns("eb_mittwoch").HeaderText = "Mittwoch"
|
||||
.Columns("eb_mittwoch").Width = 80
|
||||
.Columns("eb_donnerstag").HeaderText = "Donnerstag"
|
||||
.Columns("eb_donnerstag").Width = 80
|
||||
.Columns("eb_freitag").HeaderText = "Freitag"
|
||||
.Columns("eb_freitag").Width = 80
|
||||
.Columns("eb_gebaeude").HeaderText = "Gebäude"
|
||||
.Columns("eb_gebaeude").Width = 80
|
||||
.Columns("eb_preis").HeaderText = "Preis"
|
||||
.Columns("eb_preis").Width = 40
|
||||
.Columns("eb_preis").DefaultCellStyle.Format = "N"
|
||||
.Columns("eb_storniert_am").HeaderText = "Storniert am"
|
||||
.Columns("eb_abgerechnet_am").HeaderText = "Abgerechnet am"
|
||||
.Columns("eb_gesendet_am").HeaderText = "Gesendet am"
|
||||
.Columns("eb_storniert").Visible = False
|
||||
.Columns("eb_abgerechnet").Visible = False
|
||||
.Columns("eb_gesendet").Visible = False
|
||||
.Columns("eb_anmerkung").HeaderText = "Anmerkung"
|
||||
End With
|
||||
|
||||
|
||||
For Each row As DataGridViewRow In dgvBestellungen.Rows
|
||||
If Not IsDBNull(row.Cells("eb_storniert").Value) Then
|
||||
If row.Cells("eb_storniert").Value Then
|
||||
row.DefaultCellStyle.BackColor = Color.IndianRed
|
||||
End If
|
||||
End If
|
||||
If Not IsDBNull(row.Cells("eb_abgerechnet").Value) Then
|
||||
If row.Cells("eb_abgerechnet").Value Then row.DefaultCellStyle.BackColor = Color.LightGreen
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
txtAnzahlDS.Text = dgvBestellungen.Rows.Count
|
||||
calcSumme()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function bestellungenWhereClause() As String
|
||||
|
||||
Dim SQLwhere = ""
|
||||
|
||||
If cboGebaeude._value IsNot "" Then SQLwhere &= " AND [eb_gebaeude] = '" & cboGebaeude._value.ToString & "'"
|
||||
If cboAbteilung._value IsNot "" Then SQLwhere &= " AND [eb_abteilung] = '" & cboAbteilung._value.ToString & "'"
|
||||
If txtMitarbeiter.Text <> "" Then SQLwhere &= " AND [eb_mitname] like '%" & txtMitarbeiter.Text & "%'"
|
||||
If cbxStornos.Checked Then
|
||||
SQLwhere &= " AND [eb_storniert] = '1'"
|
||||
Else
|
||||
SQLwhere &= " AND ISNULL([eb_storniert],0) = '0'"
|
||||
End If
|
||||
|
||||
If cbxAbgerechnet.Checked Then
|
||||
SQLwhere &= " AND [eb_abgerechnet] = '1'"
|
||||
Else
|
||||
SQLwhere &= " AND ISNULL([eb_abgerechnet],0) = '0'"
|
||||
End If
|
||||
|
||||
If cbxNichtAbgeschickt.Checked Then
|
||||
SQLwhere &= " AND ISNULL([eb_gesendet],0) = '0'"
|
||||
Else
|
||||
'SQLwhere &= " AND [eb_gesendet] = '1'"
|
||||
End If
|
||||
|
||||
If txtBestellDat._value <> Nothing AndAlso txtBestellDatBis._value <> Nothing Then
|
||||
SQLwhere &= " AND [eb_datum] BETWEEN '" & txtBestellDat._value & "' AND '" & txtBestellDatBis._value & "'"
|
||||
End If
|
||||
|
||||
Return SQLwhere
|
||||
|
||||
End Function
|
||||
|
||||
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
|
||||
txtBestellDat._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
|
||||
txtBestellDatBis._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
|
||||
initBtns("Monat")
|
||||
End Sub
|
||||
|
||||
Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year)
|
||||
Dim srcTAG As Date = CDate(Now.ToShortDateString)
|
||||
|
||||
Dim JAHR As Date = CDate("01.01." & Now.Year)
|
||||
|
||||
Sub initBtns(MonatJahr)
|
||||
btnMonat.Text = MONAT.ToString("MMMM")
|
||||
btnJahr.Text = JAHR.Year
|
||||
Select Case MonatJahr
|
||||
Case "Monat"
|
||||
DateTimePicker1.Value = MONAT
|
||||
DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
|
||||
Case "Jahr"
|
||||
DateTimePicker1.Value = JAHR
|
||||
DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
|
||||
Case ""
|
||||
DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
|
||||
DateTimePicker2.Value = Now
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
|
||||
initBtns("Jahr")
|
||||
End Sub
|
||||
|
||||
Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
|
||||
MONAT = MONAT.AddMonths(1)
|
||||
initBtns("Monat")
|
||||
End Sub
|
||||
|
||||
Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
|
||||
MONAT = MONAT.AddMonths(-1)
|
||||
initBtns("Monat")
|
||||
End Sub
|
||||
|
||||
Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
|
||||
JAHR = JAHR.AddYears(1)
|
||||
initBtns("Jahr")
|
||||
End Sub
|
||||
|
||||
Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
|
||||
JAHR = JAHR.AddYears(-1)
|
||||
initBtns("Jahr")
|
||||
End Sub
|
||||
|
||||
Private Sub txtMitarbeiter_KeyDown(sender As Object, e As KeyEventArgs) Handles txtMitarbeiter.KeyDown
|
||||
If e.KeyCode = Keys.Enter Then
|
||||
|
||||
Me.loadBestellungen()
|
||||
e.Handled = True
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click, cbxAbgerechnet.CheckedChanged, cbxStornos.CheckedChanged, cbxNichtAbgeschickt.CheckedChanged
|
||||
loadBestellungen()
|
||||
End Sub
|
||||
|
||||
Private Sub FlatButton7_Click(sender As Object, e As EventArgs) Handles FlatButton7.Click
|
||||
|
||||
txtMitarbeiter.Text = ""
|
||||
cboGebaeude.changeItem("")
|
||||
cboAbteilung.changeItem("")
|
||||
cbxStornos.Checked = False
|
||||
cbxAbgerechnet.Checked = False
|
||||
txtBestellDat.Text = Date.Parse("01.01.2001")
|
||||
txtBestellDatBis.Text = Now.ToShortDateString
|
||||
Me.btnSuche.PerformClick()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub calcSumme()
|
||||
|
||||
Dim countSumme As Double = 0
|
||||
|
||||
|
||||
For i As Integer = 0 To dgvBestellungen.Rows.Count - 1
|
||||
countSumme += CDbl(dgvBestellungen.Rows(i).Cells("eb_preis").Value)
|
||||
|
||||
Next
|
||||
|
||||
txtSumme._value = countSumme.ToString
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
|
||||
|
||||
Dim bestellung As New cEssensbestellung(dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value, dgvBestellungen.SelectedRows(0).Cells("eb_mitid").Value)
|
||||
|
||||
Using UserControl1 As UsrCntlessensbestellungen = New UsrCntlessensbestellungen(bestellung)
|
||||
Using tmpForm As Form = New Form()
|
||||
tmpForm.Width = UserControl1.Width
|
||||
tmpForm.Height = UserControl1.Height
|
||||
tmpForm.Text = bestellung.eb_kw.ToString & " - " & bestellung.eb_mitname.ToString
|
||||
tmpForm.StartPosition = tmpForm.StartPosition.CenterParent
|
||||
tmpForm.Controls.Add(UserControl1)
|
||||
If tmpForm.ShowDialog() = DialogResult.OK Then
|
||||
|
||||
End If
|
||||
|
||||
End Using
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
Private Sub AbgerechnetToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbgerechnetToolStripMenuItem.Click, StornierenToolStripMenuItem.Click, AnHigway118SchickenToolStripMenuItem.Click
|
||||
If dgvBestellungen.SelectedRows.Count = 0 Then Exit Sub
|
||||
|
||||
Select Case sender.Text
|
||||
Case "abgerechnet"
|
||||
Select Case dgvBestellungen.SelectedRows.Count
|
||||
Case 1
|
||||
If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abrechnen", vbYesNoCancel) Then
|
||||
bestellungenAbrechnen(True)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
Case Else
|
||||
If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abrechnen", vbYesNoCancel) Then
|
||||
bestellungenAbrechnen(True)
|
||||
Else
|
||||
Exit Sub
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
Case "stornieren"
|
||||
Select Case dgvBestellungen.SelectedRows.Count
|
||||
Case 1
|
||||
If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " wirklich stornieren", vbYesNoCancel) Then
|
||||
bestellungenStornieren(True)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
Case Else
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen wirklich stornieren", vbYesNoCancel) Then
|
||||
bestellungenStornieren(True)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
Case "An Higway 118 schicken"
|
||||
Select Case dgvBestellungen.SelectedRows.Count
|
||||
Case 1
|
||||
If vbYes = MsgBox("Möchten Sie die Essensbestellung '" & dgvBestellungen.SelectedRows(0).Cells("eb_kw").Value & " von Mitarbeiter " & dgvBestellungen.SelectedRows(0).Cells("eb_mitname").Value & " abschicken?", vbYesNoCancel) Then
|
||||
bestellungenSenden(True)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
Case Else
|
||||
|
||||
If vbYes = MsgBox("Möchten Sie diese " & dgvBestellungen.SelectedRows.Count & " Essensbestellungen abschicken", vbYesNoCancel) Then
|
||||
bestellungenSenden(True)
|
||||
Else
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
End Sub
|
||||
Private Sub bestellungenStornieren(stornieren As Boolean)
|
||||
|
||||
|
||||
For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
|
||||
|
||||
Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value)
|
||||
|
||||
bestellung.eb_storniert = True
|
||||
If stornieren Then
|
||||
bestellung.eb_storniert_am = Now
|
||||
Else
|
||||
bestellung.eb_storniert_am = DBNull.Value
|
||||
|
||||
End If
|
||||
|
||||
bestellung.SAVE()
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub bestellungenAbrechnen(abrechnen As Boolean)
|
||||
|
||||
|
||||
For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
|
||||
|
||||
Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value)
|
||||
|
||||
bestellung.eb_abgerechnet = abrechnen
|
||||
If abrechnen Then
|
||||
bestellung.eb_abgerechnet_am = Now
|
||||
Else
|
||||
bestellung.eb_abgerechnet_am = DBNull.Value
|
||||
|
||||
End If
|
||||
|
||||
dgvBestellungen.SetOrder()
|
||||
bestellung.SAVE()
|
||||
dgvBestellungen.GetOrder()
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub bestellungenSenden(senden As Boolean)
|
||||
|
||||
|
||||
For Each row As DataGridViewRow In dgvBestellungen.SelectedRows
|
||||
|
||||
Dim bestellung As New cEssensbestellung(dgvBestellungen.CurrentRow.Cells("eb_kw").Value, dgvBestellungen.CurrentRow.Cells("eb_mitid").Value)
|
||||
|
||||
bestellung.eb_gesendet = senden
|
||||
If senden Then
|
||||
bestellung.eb_gesendet_am = Now
|
||||
Else
|
||||
bestellung.eb_gesendet_am = DBNull.Value
|
||||
|
||||
End If
|
||||
|
||||
dgvBestellungen.SetOrder()
|
||||
bestellung.SAVE()
|
||||
dgvBestellungen.GetOrder()
|
||||
Next
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
140
Aviso/frmEssensbestellungenBearbeiten.Designer.vb
generated
Normal file
140
Aviso/frmEssensbestellungenBearbeiten.Designer.vb
generated
Normal file
@@ -0,0 +1,140 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmEssensbestellungenBearbeiten
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular ü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.CheckBox3 = New System.Windows.Forms.CheckBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.txtGebäude = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'CheckBox3
|
||||
'
|
||||
Me.CheckBox3.AutoSize = True
|
||||
Me.CheckBox3.Location = New System.Drawing.Point(231, 12)
|
||||
Me.CheckBox3.Name = "CheckBox3"
|
||||
Me.CheckBox3.Size = New System.Drawing.Size(70, 17)
|
||||
Me.CheckBox3.TabIndex = 36
|
||||
Me.CheckBox3.Text = "gesendet"
|
||||
Me.CheckBox3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(487, 15)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(54, 13)
|
||||
Me.Label1.TabIndex = 34
|
||||
Me.Label1.Text = "Gebäude:"
|
||||
'
|
||||
'txtGebäude
|
||||
'
|
||||
Me.txtGebäude._DateTimeOnly = False
|
||||
Me.txtGebäude._numbersOnly = False
|
||||
Me.txtGebäude._numbersOnlyKommastellen = ""
|
||||
Me.txtGebäude._numbersOnlyTrennzeichen = True
|
||||
Me.txtGebäude._Prozent = False
|
||||
Me.txtGebäude._ShortDateNew = False
|
||||
Me.txtGebäude._ShortDateOnly = False
|
||||
Me.txtGebäude._TimeOnly = False
|
||||
Me.txtGebäude._TimeOnly_Seconds = False
|
||||
Me.txtGebäude._value = ""
|
||||
Me.txtGebäude._Waehrung = False
|
||||
Me.txtGebäude._WaehrungZeichen = True
|
||||
Me.txtGebäude.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtGebäude.Location = New System.Drawing.Point(547, 12)
|
||||
Me.txtGebäude.MaxLineLength = -1
|
||||
Me.txtGebäude.MaxLines_Warning = ""
|
||||
Me.txtGebäude.MaxLines_Warning_Label = Nothing
|
||||
Me.txtGebäude.Name = "txtGebäude"
|
||||
Me.txtGebäude.Size = New System.Drawing.Size(120, 20)
|
||||
Me.txtGebäude.TabIndex = 35
|
||||
'
|
||||
'CheckBox2
|
||||
'
|
||||
Me.CheckBox2.AutoSize = True
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(18, 12)
|
||||
Me.CheckBox2.Name = "CheckBox2"
|
||||
Me.CheckBox2.Size = New System.Drawing.Size(86, 17)
|
||||
Me.CheckBox2.TabIndex = 33
|
||||
Me.CheckBox2.Text = "abgerechnet"
|
||||
Me.CheckBox2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(127, 12)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(63, 17)
|
||||
Me.CheckBox1.TabIndex = 32
|
||||
Me.CheckBox1.Text = "storniert"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
|
||||
Me.Button1.Location = New System.Drawing.Point(344, 415)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 37
|
||||
Me.Button1.Text = "Speichern"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlBenachrichtigungen1
|
||||
'
|
||||
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(428, 125)
|
||||
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
|
||||
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(284, 203)
|
||||
Me.UsrCntlBenachrichtigungen1.TabIndex = 38
|
||||
'
|
||||
'frmEssensbestellungenBearbeiten
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||
Me.Controls.Add(Me.UsrCntlBenachrichtigungen1)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.CheckBox3)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.txtGebäude)
|
||||
Me.Controls.Add(Me.CheckBox2)
|
||||
Me.Controls.Add(Me.CheckBox1)
|
||||
Me.Name = "frmEssensbestellungenBearbeiten"
|
||||
Me.Text = "frmEssensbestellungenBearbeiten"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents CheckBox3 As CheckBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents txtGebäude As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents CheckBox2 As CheckBox
|
||||
Friend WithEvents CheckBox1 As CheckBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents UsrCntlBenachrichtigungen1 As usrCntlBenachrichtigungen
|
||||
End Class
|
||||
120
Aviso/frmEssensbestellungenBearbeiten.resx
Normal file
120
Aviso/frmEssensbestellungenBearbeiten.resx
Normal file
@@ -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>
|
||||
3
Aviso/frmEssensbestellungenBearbeiten.vb
Normal file
3
Aviso/frmEssensbestellungenBearbeiten.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class frmEssensbestellungenBearbeiten
|
||||
|
||||
End Class
|
||||
@@ -12,7 +12,9 @@ Public Class frmGesamtsicherheitenMenuNEU
|
||||
|
||||
Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
|
||||
cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
|
||||
'cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
|
||||
cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
|
||||
cbxWarenort.DropDownWidth = 150
|
||||
Me.Text = "Gesamtsicherheiten " & Standort
|
||||
frmHauptfenster.EnableDoubleBuffered(dgvListe)
|
||||
|
||||
@@ -116,18 +118,9 @@ Public Class frmGesamtsicherheitenMenuNEU
|
||||
If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
|
||||
|
||||
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, True)
|
||||
Else
|
||||
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
For Each row As DataGridViewRow In dgvListe.Rows
|
||||
If Not IsDBNull(row.Cells("gs_SicherheitsSaldo").Value) Then
|
||||
If row.Cells("gs_SicherheitsSaldo").Value <> 0 And row.Cells("gs_SicherheitsSaldo").Value <> 0.01 And row.Cells("gs_SicherheitsSaldo").Value <> -0.01 Then
|
||||
row.DefaultCellStyle.BackColor = Color.IndianRed
|
||||
Else
|
||||
dataTable.Rows.Add(row.Cells("gs_gsnr").Value, False)
|
||||
row.DefaultCellStyle.BackColor = Color.Green
|
||||
End If
|
||||
End If
|
||||
|
||||
46
Aviso/frmGesamtsicherheitenNEU.Designer.vb
generated
46
Aviso/frmGesamtsicherheitenNEU.Designer.vb
generated
@@ -33,6 +33,8 @@ Partial Class frmGesamtsicherheitenNEU
|
||||
Me.ATBNraendernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.pnlChangeATCNr = New System.Windows.Forms.Panel()
|
||||
Me.txtSicherheitsbetragContext = New System.Windows.Forms.TextBox()
|
||||
Me.Label30 = New System.Windows.Forms.Label()
|
||||
Me.txtWarenwertContext = New System.Windows.Forms.TextBox()
|
||||
Me.lblWarenwertContext = New System.Windows.Forms.Label()
|
||||
Me.txtUhrzeitaendern = New System.Windows.Forms.TextBox()
|
||||
@@ -142,8 +144,6 @@ Partial Class frmGesamtsicherheitenNEU
|
||||
Me.txtSicherheitFreitext = New System.Windows.Forms.TextBox()
|
||||
Me.btnAddPos = New VERAG_PROG_ALLGEMEIN.FlatButton()
|
||||
Me.btnAddSicherheit = New VERAG_PROG_ALLGEMEIN.FlatButton()
|
||||
Me.txtSicherheitsbetragContext = New System.Windows.Forms.TextBox()
|
||||
Me.Label30 = New System.Windows.Forms.Label()
|
||||
Me.ContextMenuStripGesSicherh.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
Me.pnlChangeATCNr.SuspendLayout()
|
||||
@@ -205,6 +205,27 @@ Partial Class frmGesamtsicherheitenNEU
|
||||
Me.pnlChangeATCNr.TabIndex = 13
|
||||
Me.pnlChangeATCNr.Visible = False
|
||||
'
|
||||
'txtSicherheitsbetragContext
|
||||
'
|
||||
Me.txtSicherheitsbetragContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtSicherheitsbetragContext.Location = New System.Drawing.Point(147, 133)
|
||||
Me.txtSicherheitsbetragContext.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.txtSicherheitsbetragContext.Name = "txtSicherheitsbetragContext"
|
||||
Me.txtSicherheitsbetragContext.ReadOnly = True
|
||||
Me.txtSicherheitsbetragContext.Size = New System.Drawing.Size(134, 24)
|
||||
Me.txtSicherheitsbetragContext.TabIndex = 14
|
||||
Me.txtSicherheitsbetragContext.TabStop = False
|
||||
'
|
||||
'Label30
|
||||
'
|
||||
Me.Label30.AutoSize = True
|
||||
Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label30.Location = New System.Drawing.Point(10, 133)
|
||||
Me.Label30.Name = "Label30"
|
||||
Me.Label30.Size = New System.Drawing.Size(134, 20)
|
||||
Me.Label30.TabIndex = 15
|
||||
Me.Label30.Text = "Sicherheitsbetrag"
|
||||
'
|
||||
'txtWarenwertContext
|
||||
'
|
||||
Me.txtWarenwertContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
@@ -1634,27 +1655,6 @@ Partial Class frmGesamtsicherheitenNEU
|
||||
Me.btnAddSicherheit.TabIndex = 36
|
||||
Me.btnAddSicherheit.UseVisualStyleBackColor = False
|
||||
'
|
||||
'txtSicherheitsbetragContext
|
||||
'
|
||||
Me.txtSicherheitsbetragContext.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.txtSicherheitsbetragContext.Location = New System.Drawing.Point(147, 133)
|
||||
Me.txtSicherheitsbetragContext.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.txtSicherheitsbetragContext.Name = "txtSicherheitsbetragContext"
|
||||
Me.txtSicherheitsbetragContext.ReadOnly = True
|
||||
Me.txtSicherheitsbetragContext.Size = New System.Drawing.Size(134, 24)
|
||||
Me.txtSicherheitsbetragContext.TabIndex = 14
|
||||
Me.txtSicherheitsbetragContext.TabStop = False
|
||||
'
|
||||
'Label30
|
||||
'
|
||||
Me.Label30.AutoSize = True
|
||||
Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label30.Location = New System.Drawing.Point(10, 133)
|
||||
Me.Label30.Name = "Label30"
|
||||
Me.Label30.Size = New System.Drawing.Size(134, 20)
|
||||
Me.Label30.TabIndex = 15
|
||||
Me.Label30.Text = "Sicherheitsbetrag"
|
||||
'
|
||||
'frmGesamtsicherheitenNEU
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
|
||||
@@ -79,7 +79,7 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
cbx_offene.Checked = True
|
||||
initPrevNextButtons()
|
||||
|
||||
changeLabel()
|
||||
|
||||
Me.Text = "Gesamtsicherheit " & Standort
|
||||
frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)
|
||||
@@ -116,20 +116,33 @@ Public Class frmGesamtsicherheitenNEU
|
||||
.Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
|
||||
.Columns("gs_saldo").DefaultCellStyle.Format = "c"
|
||||
.Columns("gs_saldo").Visible = True
|
||||
|
||||
Select Case currentGesSichRef.brgakto_gs_ATR
|
||||
Case True
|
||||
|
||||
If Standort = "Verag GmbH" Then
|
||||
.Columns("gs_ATBNr").HeaderText = "ATB"
|
||||
Else
|
||||
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
|
||||
End If
|
||||
|
||||
.Columns("gs_ATBNr").Width = 130
|
||||
.Columns("gs_atr").HeaderText = "ATR"
|
||||
.Columns("gs_atr").Visible = True
|
||||
.Columns("gs_atr").Width = 35
|
||||
.Columns("gs_ust").Width = 70
|
||||
.Columns("gs_ust").HeaderText = "Ust"
|
||||
|
||||
Case Else
|
||||
|
||||
If Standort = "Verag GmbH" Then
|
||||
.Columns("gs_ATBNr").HeaderText = "ATB"
|
||||
Else
|
||||
.Columns("gs_ATBNr").HeaderText = "T1 MRN"
|
||||
End If
|
||||
.Columns("gs_ATBNr").Width = 150
|
||||
End Select
|
||||
|
||||
changeLabel(currentGesSichRef.brgakto_gs_ATR)
|
||||
|
||||
.Columns("gs_posNr").Width = 35
|
||||
.Columns("gs_posNr").HeaderText = "Pos#"
|
||||
@@ -268,9 +281,23 @@ Public Class frmGesamtsicherheitenNEU
|
||||
.Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
|
||||
Select Case currentGesSichRef.brgakto_gs_ATR
|
||||
Case True
|
||||
If Standort = "Verag GmbH" Then
|
||||
.Columns("gsp_ATCNr").HeaderText = "ATC / MRN"
|
||||
ElseIf Standort = "VERAG AG" Then
|
||||
.Columns("gsp_ATCNr").HeaderText = "T1 CRN"
|
||||
Else
|
||||
.Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN"
|
||||
End If
|
||||
|
||||
Case Else
|
||||
If Standort = "Verag GmbH" Then
|
||||
.Columns("gsp_ATCNr").HeaderText = "CRN / MRN"
|
||||
ElseIf Standort = "VERAG AG" Then
|
||||
.Columns("gsp_ATCNr").HeaderText = "T1 CRN"
|
||||
Else
|
||||
.Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN"
|
||||
End If
|
||||
|
||||
End Select
|
||||
.Columns("gsp_ATCNr").Width = 140
|
||||
.Columns("gsp_datum").Width = 100
|
||||
@@ -1593,4 +1620,26 @@ Public Class frmGesamtsicherheitenNEU
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub changeLabel(Optional isATR As Boolean = True)
|
||||
|
||||
If Standort = "Verag GmbH" Then
|
||||
Label1.Text = "ATB Nummer"
|
||||
|
||||
If isATR Then
|
||||
Label12.Text = "ATC / MRN"
|
||||
Else
|
||||
|
||||
Label12.Text = "CRN / MRN"
|
||||
End If
|
||||
|
||||
|
||||
ElseIf Standort = "VERAG AG" Then
|
||||
Label12.Text = "T1 CRN"
|
||||
Label1.Text = "T1 MRN"
|
||||
Else
|
||||
Label12.Text = "EZA / T1 CRN"
|
||||
Label1.Text = "T1 MRN"
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
218
Aviso/frmHauptfenster.Designer.vb
generated
218
Aviso/frmHauptfenster.Designer.vb
generated
@@ -24,15 +24,15 @@ Partial Class frmHauptfenster
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHauptfenster))
|
||||
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim 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 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()
|
||||
Me.mnuInfo = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.conÜbernehmen = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.conMenuAviso = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
@@ -116,6 +116,10 @@ Partial Class frmHauptfenster
|
||||
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BürgschaftenExcelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem10 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.TICKETWaidhausToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
|
||||
@@ -125,10 +129,6 @@ Partial Class frmHauptfenster
|
||||
Me.SDLAbholaufträgeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem13 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.VorauskassenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.EssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
@@ -268,6 +268,7 @@ Partial Class frmHauptfenster
|
||||
Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.ToolStripMenuItem17 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SplitContainer3 = New System.Windows.Forms.SplitContainer()
|
||||
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.Button10 = New System.Windows.Forms.Button()
|
||||
Me.gridMyAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
@@ -368,7 +369,7 @@ Partial Class frmHauptfenster
|
||||
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
|
||||
Me.UsrCntlBenachrichtigungen1 = New AVISO.usrCntlBenachrichtigungen()
|
||||
Me.AdministrationEssensbestellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.conMenuAviso.SuspendLayout()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.Top.SuspendLayout()
|
||||
@@ -831,7 +832,7 @@ Partial Class frmHauptfenster
|
||||
'
|
||||
'FunktionenToolStripMenuItem
|
||||
'
|
||||
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.EssensbestellungenToolStripMenuItem})
|
||||
Me.FunktionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GenerelleGestellungenDurchsuchenToolStripMenuItem, Me.KundenVonFremdenSpeditionenToolStripMenuItem, Me.KundenverwaltungToolStripMenuItem, Me.MDMParkplatzkartenToolStripMenuItem, Me.SMSSendenToolStripMenuItem, Me.ZollprogrammeNachEORIDurchsuchenToolStripMenuItem, Me.MRNBarcodedruckToolStripMenuItem, Me.ToolStripSeparator12, Me.tool_BRGXLS, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.EssensbestellungenToolStripMenuItem, Me.AdministrationEssensbestellungenToolStripMenuItem})
|
||||
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
|
||||
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
|
||||
Me.FunktionenToolStripMenuItem.Text = "Funktionen"
|
||||
@@ -931,6 +932,34 @@ Partial Class frmHauptfenster
|
||||
Me.ToolStripMenuItem6.Text = "AT | Gesamtsicherheit IMEX Customs Service GmbH - Excel"
|
||||
Me.ToolStripMenuItem6.Visible = False
|
||||
'
|
||||
'DEGesamtsicherheitVeragGmbHToolStripMenuItem
|
||||
'
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHToolStripMenuItem"
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH"
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = False
|
||||
'
|
||||
'ATGesamtsicherheitVeragAGToolStripMenuItem
|
||||
'
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Name = "ATGesamtsicherheitVeragAGToolStripMenuItem"
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag AG"
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = False
|
||||
'
|
||||
'ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem
|
||||
'
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Name = "ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem"
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Text = "AT | Gesamtsicherheit IMEX CS GmbH"
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = False
|
||||
'
|
||||
'ATGesamtsicherheitVeragCSToolStripMenuItem
|
||||
'
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem"
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS"
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False
|
||||
'
|
||||
'ToolStripMenuItem10
|
||||
'
|
||||
Me.ToolStripMenuItem10.Name = "ToolStripMenuItem10"
|
||||
@@ -984,34 +1013,6 @@ Partial Class frmHauptfenster
|
||||
Me.VorauskassenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.VorauskassenToolStripMenuItem.Text = "Vorauskassen"
|
||||
'
|
||||
'DEGesamtsicherheitVeragGmbHToolStripMenuItem
|
||||
'
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Name = "DEGesamtsicherheitVeragGmbHToolStripMenuItem"
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Text = "DE | Gesamtsicherheit Verag GmbH"
|
||||
Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = False
|
||||
'
|
||||
'ATGesamtsicherheitVeragAGToolStripMenuItem
|
||||
'
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Name = "ATGesamtsicherheitVeragAGToolStripMenuItem"
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag AG"
|
||||
Me.ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = False
|
||||
'
|
||||
'ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem
|
||||
'
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Name = "ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem"
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Text = "AT | Gesamtsicherheit IMEX CS GmbH"
|
||||
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = False
|
||||
'
|
||||
'ATGesamtsicherheitVeragCSToolStripMenuItem
|
||||
'
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Name = "ATGesamtsicherheitVeragCSToolStripMenuItem"
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS"
|
||||
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False
|
||||
'
|
||||
'EssensbestellungenToolStripMenuItem
|
||||
'
|
||||
Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
|
||||
@@ -2276,6 +2277,15 @@ Partial Class frmHauptfenster
|
||||
Me.SplitContainer3.SplitterDistance = 158
|
||||
Me.SplitContainer3.TabIndex = 3
|
||||
'
|
||||
'UsrCntlBenachrichtigungen1
|
||||
'
|
||||
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
|
||||
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
|
||||
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.Button10)
|
||||
@@ -2308,38 +2318,38 @@ Partial Class frmHauptfenster
|
||||
Me.gridMyAviso.AllowUserToDeleteRows = False
|
||||
Me.gridMyAviso.AllowUserToOrderColumns = True
|
||||
Me.gridMyAviso.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle10.BackColor = System.Drawing.Color.Azure
|
||||
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
|
||||
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
|
||||
Me.gridMyAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
|
||||
Me.gridMyAviso.BackgroundColor = System.Drawing.Color.White
|
||||
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
||||
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.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
|
||||
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
||||
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridMyAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
|
||||
Me.gridMyAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle12
|
||||
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
|
||||
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
|
||||
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridMyAviso.DefaultCellStyle = DataGridViewCellStyle3
|
||||
Me.gridMyAviso.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.gridMyAviso.Location = New System.Drawing.Point(0, 21)
|
||||
Me.gridMyAviso.Name = "gridMyAviso"
|
||||
Me.gridMyAviso.ReadOnly = True
|
||||
DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle13.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle13.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle13.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle13.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle13
|
||||
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 5.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridMyAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
|
||||
Me.gridMyAviso.RowHeadersVisible = False
|
||||
Me.gridMyAviso.RowHeadersWidth = 62
|
||||
Me.gridMyAviso.Size = New System.Drawing.Size(488, 279)
|
||||
@@ -2737,47 +2747,47 @@ Partial Class frmHauptfenster
|
||||
Me.gridAviso.AllowUserToAddRows = False
|
||||
Me.gridAviso.AllowUserToDeleteRows = False
|
||||
Me.gridAviso.AllowUserToResizeRows = False
|
||||
DataGridViewCellStyle14.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
|
||||
DataGridViewCellStyle5.BackColor = System.Drawing.Color.Azure
|
||||
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
|
||||
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
|
||||
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
|
||||
DataGridViewCellStyle15.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle15.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle15.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle15.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle15.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle15.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle15
|
||||
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightBlue
|
||||
DataGridViewCellStyle6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
|
||||
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle6
|
||||
Me.gridAviso.ColumnHeadersHeight = 25
|
||||
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
|
||||
DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle16.BackColor = System.Drawing.SystemColors.Window
|
||||
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.ControlText
|
||||
DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle16
|
||||
DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
|
||||
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.ControlText
|
||||
DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle7
|
||||
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.gridAviso.Location = New System.Drawing.Point(0, 220)
|
||||
Me.gridAviso.MultiSelect = False
|
||||
Me.gridAviso.Name = "gridAviso"
|
||||
Me.gridAviso.ReadOnly = True
|
||||
DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
|
||||
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.WindowText
|
||||
DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle17
|
||||
DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
|
||||
DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
|
||||
DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
|
||||
DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
|
||||
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
|
||||
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle8
|
||||
Me.gridAviso.RowHeadersVisible = False
|
||||
Me.gridAviso.RowHeadersWidth = 62
|
||||
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
|
||||
DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle18
|
||||
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle9
|
||||
Me.gridAviso.RowTemplate.ReadOnly = True
|
||||
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
|
||||
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
|
||||
@@ -3505,14 +3515,11 @@ Partial Class frmHauptfenster
|
||||
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
|
||||
Me.UsrCntlTestsystem1.TabIndex = 8
|
||||
'
|
||||
'UsrCntlBenachrichtigungen1
|
||||
'AdministrationEssensbestellungenToolStripMenuItem
|
||||
'
|
||||
Me.UsrCntlBenachrichtigungen1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlBenachrichtigungen1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlBenachrichtigungen1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
|
||||
Me.UsrCntlBenachrichtigungen1.Name = "UsrCntlBenachrichtigungen1"
|
||||
Me.UsrCntlBenachrichtigungen1.Size = New System.Drawing.Size(158, 300)
|
||||
Me.UsrCntlBenachrichtigungen1.TabIndex = 0
|
||||
Me.AdministrationEssensbestellungenToolStripMenuItem.Name = "AdministrationEssensbestellungenToolStripMenuItem"
|
||||
Me.AdministrationEssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
|
||||
Me.AdministrationEssensbestellungenToolStripMenuItem.Text = "Administration Essensbestellungen"
|
||||
'
|
||||
'frmHauptfenster
|
||||
'
|
||||
@@ -3922,4 +3929,5 @@ Partial Class frmHauptfenster
|
||||
Friend WithEvents tabINDONESIEN As TabPage
|
||||
Friend WithEvents conAnVerimex As ToolStripMenuItem
|
||||
Friend WithEvents conAnIndonesien As ToolStripMenuItem
|
||||
Friend WithEvents AdministrationEssensbestellungenToolStripMenuItem As ToolStripMenuItem
|
||||
End Class
|
||||
|
||||
@@ -228,9 +228,6 @@
|
||||
pOTzPwAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>598, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>697, 17</value>
|
||||
</metadata>
|
||||
|
||||
@@ -4323,7 +4323,10 @@ Public Class frmHauptfenster
|
||||
f.ShowDialog(Me)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub AdministrationEssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationEssensbestellungenToolStripMenuItem.Click
|
||||
Dim f As New frmEssensbestellungenAdministration()
|
||||
f.ShowDialog(Me)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class AvisoStatusFunctions
|
||||
|
||||
@@ -5461,15 +5461,18 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
Dim olSess = outl.Session
|
||||
|
||||
Dim accounts = olSess.Accounts
|
||||
Dim account As Outlook.Account
|
||||
|
||||
Dim PathTmpANH = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.CurrentRow.Cells("anh_docId").Value)
|
||||
|
||||
Mail = CType(olSess.OpenSharedItem(PathTmpANH), Outlook.MailItem)
|
||||
|
||||
Dim accounts = olSess.Accounts
|
||||
Dim account As Outlook.Account
|
||||
|
||||
For Each account In accounts
|
||||
If account.UserName.ToString = "brexit" Then Mail.SendUsingAccount = account
|
||||
If account.UserName.ToString = "brexit" Then
|
||||
Mail.SentOnBehalfOfName = "brexit@verag.ag" 'account.SmtpAddress.ToString
|
||||
|
||||
End If
|
||||
Next
|
||||
|
||||
Mail = Mail.ReplyAll
|
||||
|
||||
Reference in New Issue
Block a user