edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'essensbestellungen'

Browse Source
This commit is contained in:
d.breimaier
2022-11-30 16:15:05 +01:00
parent a3cf3ca977 914da90d60
commit 074e999003
11 changed files with 1534 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
View File

@@ -537,6 +537,12 @@
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb"> <Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmEssensbestellungen.Designer.vb">
<DependentUpon>frmEssensbestellungen.vb</DependentUpon>
</Compile>
<Compile Include="frmEssensbestellungen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmFrachtkostenBerechnen.Designer.vb"> <Compile Include="frmFrachtkostenBerechnen.Designer.vb">
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon> <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
</Compile> </Compile>
@@ -1089,6 +1095,9 @@
<EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx"> <EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon> <DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmEssensbestellungen.resx">
<DependentUpon>frmEssensbestellungen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmFrachtkostenBerechnen.resx"> <EmbeddedResource Include="frmFrachtkostenBerechnen.resx">
<DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon> <DependentUpon>frmFrachtkostenBerechnen.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

837
Aviso/frmEssensbestellungen.Designer.vb generated Normal file
View File

@@ -0,0 +1,837 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmEssensbestellungen
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()
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()
Me.lblWochenkarte = New System.Windows.Forms.Label()
Me.btnSave = New System.Windows.Forms.Button()
Me.lblDatum = New System.Windows.Forms.Label()
Me.ToolTipInfoMo = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoDi = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoMi = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoDo = New System.Windows.Forms.ToolTip(Me.components)
Me.ToolTipInfoFr = New System.Windows.Forms.ToolTip(Me.components)
Me.lblAbteilung = New System.Windows.Forms.Label()
Me.lblGebaeude = New System.Windows.Forms.Label()
Me.lblBestellungen = New System.Windows.Forms.Label()
Me.lblBestellungBis = New System.Windows.Forms.Label()
Me.cbxGebauede = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Button1 = New System.Windows.Forms.Button()
Me.txtPreis = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Dienstag = New System.Windows.Forms.GroupBox()
Me.pbDienstag = New System.Windows.Forms.PictureBox()
Me.cbDienstag = New System.Windows.Forms.CheckBox()
Me.txtAltDi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Di = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.lbl1 = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.pbMontag = New System.Windows.Forms.PictureBox()
Me.cbMontag = New System.Windows.Forms.CheckBox()
Me.txtAltMo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenoAlt_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Mo = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
Me.pbFreitag = New System.Windows.Forms.PictureBox()
Me.cbFreitag = New System.Windows.Forms.CheckBox()
Me.txtAltFr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Fr = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Fr = 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.pbMittwoch = New System.Windows.Forms.PictureBox()
Me.cbMittwoch = New System.Windows.Forms.CheckBox()
Me.txtAltMi = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Mi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Mi = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.pbDonnerstag = New System.Windows.Forms.PictureBox()
Me.cbDonnerstag = New System.Windows.Forms.CheckBox()
Me.txtAltDo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.rbMenuAlt_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.rbMenu_Do = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components)
Me.txtAnzahlMenu = New System.Windows.Forms.Label()
Me.dgvBestellungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.cbxMenu = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtAbteilung = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.MyPanel1.SuspendLayout()
Me.Dienstag.SuspendLayout()
CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox5.SuspendLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Mittwoch.SuspendLayout()
CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox4.SuspendLayout()
CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lblWochenkarte
'
Me.lblWochenkarte.AutoSize = True
Me.lblWochenkarte.Location = New System.Drawing.Point(18, 14)
Me.lblWochenkarte.Name = "lblWochenkarte"
Me.lblWochenkarte.Size = New System.Drawing.Size(34, 13)
Me.lblWochenkarte.TabIndex = 1
Me.lblWochenkarte.Text = "Menü"
'
'btnSave
'
Me.btnSave.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.btnSave.Location = New System.Drawing.Point(305, 484)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 10
Me.btnSave.Text = "OK"
Me.btnSave.UseVisualStyleBackColor = True
'
'lblDatum
'
Me.lblDatum.AutoSize = True
Me.lblDatum.Location = New System.Drawing.Point(167, 14)
Me.lblDatum.Name = "lblDatum"
Me.lblDatum.Size = New System.Drawing.Size(41, 13)
Me.lblDatum.TabIndex = 11
Me.lblDatum.Text = "Datum:"
'
'lblAbteilung
'
Me.lblAbteilung.AutoSize = True
Me.lblAbteilung.Location = New System.Drawing.Point(511, 9)
Me.lblAbteilung.Name = "lblAbteilung"
Me.lblAbteilung.Size = New System.Drawing.Size(54, 13)
Me.lblAbteilung.TabIndex = 18
Me.lblAbteilung.Text = "Abteilung:"
'
'lblGebaeude
'
Me.lblGebaeude.AutoSize = True
Me.lblGebaeude.Location = New System.Drawing.Point(511, 27)
Me.lblGebaeude.Name = "lblGebaeude"
Me.lblGebaeude.Size = New System.Drawing.Size(54, 13)
Me.lblGebaeude.TabIndex = 19
Me.lblGebaeude.Text = "Gebäude:"
'
'lblBestellungen
'
Me.lblBestellungen.AutoSize = True
Me.lblBestellungen.Location = New System.Drawing.Point(15, 335)
Me.lblBestellungen.Name = "lblBestellungen"
Me.lblBestellungen.Size = New System.Drawing.Size(100, 13)
Me.lblBestellungen.TabIndex = 20
Me.lblBestellungen.Text = "Meine Bestellungen"
'
'lblBestellungBis
'
Me.lblBestellungBis.AutoSize = True
Me.lblBestellungBis.Location = New System.Drawing.Point(167, 38)
Me.lblBestellungBis.Name = "lblBestellungBis"
Me.lblBestellungBis.Size = New System.Drawing.Size(114, 13)
Me.lblBestellungBis.TabIndex = 22
Me.lblBestellungBis.Text = "Bestellung möglich bis:"
'
'cbxGebauede
'
Me.cbxGebauede._allowedValuesFreiText = Nothing
Me.cbxGebauede._allowFreiText = True
Me.cbxGebauede._value = ""
Me.cbxGebauede.DropDownWidth = 150
Me.cbxGebauede.FormattingEnabled = True
Me.cbxGebauede.Location = New System.Drawing.Point(584, 24)
Me.cbxGebauede.Name = "cbxGebauede"
Me.cbxGebauede.Size = New System.Drawing.Size(95, 21)
Me.cbxGebauede.TabIndex = 21
'
'MyPanel1
'
Me.MyPanel1.Controls.Add(Me.Button1)
Me.MyPanel1.Controls.Add(Me.txtPreis)
Me.MyPanel1.Controls.Add(Me.Label2)
Me.MyPanel1.Controls.Add(Me.Dienstag)
Me.MyPanel1.Controls.Add(Me.lbl1)
Me.MyPanel1.Controls.Add(Me.GroupBox1)
Me.MyPanel1.Controls.Add(Me.GroupBox5)
Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart)
Me.MyPanel1.Controls.Add(Me.lbl2)
Me.MyPanel1.Controls.Add(Me.Mittwoch)
Me.MyPanel1.Controls.Add(Me.GroupBox4)
Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu)
Me.MyPanel1.Location = New System.Drawing.Point(12, 67)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(667, 240)
Me.MyPanel1.TabIndex = 18
'
'Button1
'
Me.Button1.Image = Global.AVISO.My.Resources.Resources.pdf1
Me.Button1.Location = New System.Drawing.Point(590, 147)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(61, 57)
Me.Button1.TabIndex = 20
Me.Button1.UseVisualStyleBackColor = True
Me.Button1.Visible = False
'
'txtPreis
'
Me.txtPreis.AutoSize = True
Me.txtPreis.Location = New System.Drawing.Point(553, 181)
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, 181)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(68, 13)
Me.Label2.TabIndex = 18
Me.Label2.Text = "Gesamtpreis:"
'
'Dienstag
'
Me.Dienstag.Controls.Add(Me.pbDienstag)
Me.Dienstag.Controls.Add(Me.cbDienstag)
Me.Dienstag.Controls.Add(Me.txtAltDi)
Me.Dienstag.Controls.Add(Me.rbMenuAlt_Di)
Me.Dienstag.Controls.Add(Me.rbMenu_Di)
Me.Dienstag.Location = New System.Drawing.Point(225, 8)
Me.Dienstag.Name = "Dienstag"
Me.Dienstag.Size = New System.Drawing.Size(200, 95)
Me.Dienstag.TabIndex = 13
Me.Dienstag.TabStop = False
Me.Dienstag.Text = "Dienstag"
'
'pbDienstag
'
Me.pbDienstag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbDienstag.Location = New System.Drawing.Point(61, 23)
Me.pbDienstag.Name = "pbDienstag"
Me.pbDienstag.Size = New System.Drawing.Size(17, 13)
Me.pbDienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbDienstag.TabIndex = 5
Me.pbDienstag.TabStop = False
'
'cbDienstag
'
Me.cbDienstag.AutoSize = True
Me.cbDienstag.Location = New System.Drawing.Point(0, 0)
Me.cbDienstag.Name = "cbDienstag"
Me.cbDienstag.Size = New System.Drawing.Size(68, 17)
Me.cbDienstag.TabIndex = 4
Me.cbDienstag.Text = "Dienstag"
Me.cbDienstag.UseVisualStyleBackColor = True
'
'txtAltDi
'
Me.txtAltDi._DateTimeOnly = False
Me.txtAltDi._numbersOnly = False
Me.txtAltDi._numbersOnlyKommastellen = ""
Me.txtAltDi._numbersOnlyTrennzeichen = True
Me.txtAltDi._Prozent = False
Me.txtAltDi._ShortDateNew = False
Me.txtAltDi._ShortDateOnly = False
Me.txtAltDi._TimeOnly = False
Me.txtAltDi._TimeOnly_Seconds = False
Me.txtAltDi._value = ""
Me.txtAltDi._Waehrung = False
Me.txtAltDi._WaehrungZeichen = True
Me.txtAltDi.ForeColor = System.Drawing.Color.Black
Me.txtAltDi.Location = New System.Drawing.Point(0, 65)
Me.txtAltDi.MaxLineLength = -1
Me.txtAltDi.MaxLines_Warning = ""
Me.txtAltDi.MaxLines_Warning_Label = Nothing
Me.txtAltDi.Name = "txtAltDi"
Me.txtAltDi.Size = New System.Drawing.Size(177, 20)
Me.txtAltDi.TabIndex = 2
Me.txtAltDi.Visible = False
'
'rbMenuAlt_Di
'
Me.rbMenuAlt_Di.AutoSize = True
Me.rbMenuAlt_Di.GroupName = "Dienstag"
Me.rbMenuAlt_Di.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAlt_Di.Name = "rbMenuAlt_Di"
Me.rbMenuAlt_Di.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Di.TabIndex = 1
Me.rbMenuAlt_Di.TabStop = True
Me.rbMenuAlt_Di.Text = "A la carte"
Me.rbMenuAlt_Di.UseVisualStyleBackColor = True
'
'rbMenu_Di
'
Me.rbMenu_Di.AutoSize = True
Me.rbMenu_Di.GroupName = "Dienstag"
Me.rbMenu_Di.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_Di.Name = "rbMenu_Di"
Me.rbMenu_Di.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_Di.TabIndex = 0
Me.rbMenu_Di.TabStop = True
Me.rbMenu_Di.Text = "Menü"
Me.rbMenu_Di.UseVisualStyleBackColor = True
'
'lbl1
'
Me.lbl1.AutoSize = True
Me.lbl1.Location = New System.Drawing.Point(463, 128)
Me.lbl1.Name = "lbl1"
Me.lbl1.Size = New System.Drawing.Size(72, 13)
Me.lbl1.TabIndex = 14
Me.lbl1.Text = "Anzahl Menü:"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.pbMontag)
Me.GroupBox1.Controls.Add(Me.cbMontag)
Me.GroupBox1.Controls.Add(Me.txtAltMo)
Me.GroupBox1.Controls.Add(Me.rbMenoAlt_Mo)
Me.GroupBox1.Controls.Add(Me.rbMenu_Mo)
Me.GroupBox1.Location = New System.Drawing.Point(6, 8)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(200, 95)
Me.GroupBox1.TabIndex = 12
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Montag"
'
'pbMontag
'
Me.pbMontag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbMontag.Location = New System.Drawing.Point(61, 23)
Me.pbMontag.Name = "pbMontag"
Me.pbMontag.Size = New System.Drawing.Size(17, 13)
Me.pbMontag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbMontag.TabIndex = 4
Me.pbMontag.TabStop = False
'
'cbMontag
'
Me.cbMontag.AutoSize = True
Me.cbMontag.Location = New System.Drawing.Point(3, 0)
Me.cbMontag.Name = "cbMontag"
Me.cbMontag.Size = New System.Drawing.Size(62, 17)
Me.cbMontag.TabIndex = 3
Me.cbMontag.Text = "Montag"
Me.cbMontag.UseVisualStyleBackColor = True
'
'txtAltMo
'
Me.txtAltMo._DateTimeOnly = False
Me.txtAltMo._numbersOnly = False
Me.txtAltMo._numbersOnlyKommastellen = ""
Me.txtAltMo._numbersOnlyTrennzeichen = True
Me.txtAltMo._Prozent = False
Me.txtAltMo._ShortDateNew = False
Me.txtAltMo._ShortDateOnly = False
Me.txtAltMo._TimeOnly = False
Me.txtAltMo._TimeOnly_Seconds = False
Me.txtAltMo._value = ""
Me.txtAltMo._Waehrung = False
Me.txtAltMo._WaehrungZeichen = True
Me.txtAltMo.ForeColor = System.Drawing.Color.Black
Me.txtAltMo.Location = New System.Drawing.Point(0, 65)
Me.txtAltMo.MaxLineLength = -1
Me.txtAltMo.MaxLines_Warning = ""
Me.txtAltMo.MaxLines_Warning_Label = Nothing
Me.txtAltMo.Name = "txtAltMo"
Me.txtAltMo.Size = New System.Drawing.Size(177, 20)
Me.txtAltMo.TabIndex = 2
Me.txtAltMo.Visible = False
'
'rbMenoAlt_Mo
'
Me.rbMenoAlt_Mo.AutoSize = True
Me.rbMenoAlt_Mo.GroupName = "GroupBox1"
Me.rbMenoAlt_Mo.Location = New System.Drawing.Point(3, 42)
Me.rbMenoAlt_Mo.Name = "rbMenoAlt_Mo"
Me.rbMenoAlt_Mo.Size = New System.Drawing.Size(70, 17)
Me.rbMenoAlt_Mo.TabIndex = 1
Me.rbMenoAlt_Mo.TabStop = True
Me.rbMenoAlt_Mo.Text = "A la carte"
Me.rbMenoAlt_Mo.UseVisualStyleBackColor = True
'
'rbMenu_Mo
'
Me.rbMenu_Mo.AutoSize = True
Me.rbMenu_Mo.GroupName = "GroupBox1"
Me.rbMenu_Mo.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_Mo.Name = "rbMenu_Mo"
Me.rbMenu_Mo.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_Mo.TabIndex = 0
Me.rbMenu_Mo.TabStop = True
Me.rbMenu_Mo.Text = "Menü"
Me.rbMenu_Mo.UseVisualStyleBackColor = True
'
'GroupBox5
'
Me.GroupBox5.Controls.Add(Me.pbFreitag)
Me.GroupBox5.Controls.Add(Me.cbFreitag)
Me.GroupBox5.Controls.Add(Me.txtAltFr)
Me.GroupBox5.Controls.Add(Me.rbMenuAlt_Fr)
Me.GroupBox5.Controls.Add(Me.rbMenu_Fr)
Me.GroupBox5.Location = New System.Drawing.Point(225, 109)
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(200, 95)
Me.GroupBox5.TabIndex = 13
Me.GroupBox5.TabStop = False
Me.GroupBox5.Text = "Freitag"
'
'pbFreitag
'
Me.pbFreitag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbFreitag.Location = New System.Drawing.Point(61, 23)
Me.pbFreitag.Name = "pbFreitag"
Me.pbFreitag.Size = New System.Drawing.Size(17, 13)
Me.pbFreitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbFreitag.TabIndex = 8
Me.pbFreitag.TabStop = False
'
'cbFreitag
'
Me.cbFreitag.AutoSize = True
Me.cbFreitag.Location = New System.Drawing.Point(3, 0)
Me.cbFreitag.Name = "cbFreitag"
Me.cbFreitag.Size = New System.Drawing.Size(58, 17)
Me.cbFreitag.TabIndex = 6
Me.cbFreitag.Text = "Freitag"
Me.cbFreitag.UseVisualStyleBackColor = True
'
'txtAltFr
'
Me.txtAltFr._DateTimeOnly = False
Me.txtAltFr._numbersOnly = False
Me.txtAltFr._numbersOnlyKommastellen = ""
Me.txtAltFr._numbersOnlyTrennzeichen = True
Me.txtAltFr._Prozent = False
Me.txtAltFr._ShortDateNew = False
Me.txtAltFr._ShortDateOnly = False
Me.txtAltFr._TimeOnly = False
Me.txtAltFr._TimeOnly_Seconds = False
Me.txtAltFr._value = ""
Me.txtAltFr._Waehrung = False
Me.txtAltFr._WaehrungZeichen = True
Me.txtAltFr.ForeColor = System.Drawing.Color.Black
Me.txtAltFr.Location = New System.Drawing.Point(0, 65)
Me.txtAltFr.MaxLineLength = -1
Me.txtAltFr.MaxLines_Warning = ""
Me.txtAltFr.MaxLines_Warning_Label = Nothing
Me.txtAltFr.Name = "txtAltFr"
Me.txtAltFr.Size = New System.Drawing.Size(177, 20)
Me.txtAltFr.TabIndex = 2
Me.txtAltFr.Visible = False
'
'rbMenuAlt_Fr
'
Me.rbMenuAlt_Fr.AutoSize = True
Me.rbMenuAlt_Fr.GroupName = "Freitag"
Me.rbMenuAlt_Fr.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAlt_Fr.Name = "rbMenuAlt_Fr"
Me.rbMenuAlt_Fr.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Fr.TabIndex = 1
Me.rbMenuAlt_Fr.TabStop = True
Me.rbMenuAlt_Fr.Text = "A la carte"
Me.rbMenuAlt_Fr.UseVisualStyleBackColor = True
'
'rbMenu_Fr
'
Me.rbMenu_Fr.AutoSize = True
Me.rbMenu_Fr.GroupName = "Freitag"
Me.rbMenu_Fr.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_Fr.Name = "rbMenu_Fr"
Me.rbMenu_Fr.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_Fr.TabIndex = 0
Me.rbMenu_Fr.TabStop = True
Me.rbMenu_Fr.Text = "Menü"
Me.rbMenu_Fr.UseVisualStyleBackColor = True
'
'txtAnzahlLaCart
'
Me.txtAnzahlLaCart.AutoSize = True
Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 155)
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, 155)
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.pbMittwoch)
Me.Mittwoch.Controls.Add(Me.cbMittwoch)
Me.Mittwoch.Controls.Add(Me.txtAltMi)
Me.Mittwoch.Controls.Add(Me.rbMenuAlt_Mi)
Me.Mittwoch.Controls.Add(Me.rbMenu_Mi)
Me.Mittwoch.Location = New System.Drawing.Point(431, 8)
Me.Mittwoch.Name = "Mittwoch"
Me.Mittwoch.Size = New System.Drawing.Size(200, 95)
Me.Mittwoch.TabIndex = 13
Me.Mittwoch.TabStop = False
Me.Mittwoch.Text = "Mittwoch"
'
'pbMittwoch
'
Me.pbMittwoch.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbMittwoch.Location = New System.Drawing.Point(56, 23)
Me.pbMittwoch.Name = "pbMittwoch"
Me.pbMittwoch.Size = New System.Drawing.Size(17, 13)
Me.pbMittwoch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbMittwoch.TabIndex = 6
Me.pbMittwoch.TabStop = False
'
'cbMittwoch
'
Me.cbMittwoch.AutoSize = True
Me.cbMittwoch.Location = New System.Drawing.Point(0, 0)
Me.cbMittwoch.Name = "cbMittwoch"
Me.cbMittwoch.Size = New System.Drawing.Size(69, 17)
Me.cbMittwoch.TabIndex = 5
Me.cbMittwoch.Text = "Mittwoch"
Me.cbMittwoch.UseVisualStyleBackColor = True
'
'txtAltMi
'
Me.txtAltMi._DateTimeOnly = False
Me.txtAltMi._numbersOnly = False
Me.txtAltMi._numbersOnlyKommastellen = ""
Me.txtAltMi._numbersOnlyTrennzeichen = True
Me.txtAltMi._Prozent = False
Me.txtAltMi._ShortDateNew = False
Me.txtAltMi._ShortDateOnly = False
Me.txtAltMi._TimeOnly = False
Me.txtAltMi._TimeOnly_Seconds = False
Me.txtAltMi._value = ""
Me.txtAltMi._Waehrung = False
Me.txtAltMi._WaehrungZeichen = True
Me.txtAltMi.ForeColor = System.Drawing.Color.Black
Me.txtAltMi.Location = New System.Drawing.Point(0, 65)
Me.txtAltMi.MaxLineLength = -1
Me.txtAltMi.MaxLines_Warning = ""
Me.txtAltMi.MaxLines_Warning_Label = Nothing
Me.txtAltMi.Name = "txtAltMi"
Me.txtAltMi.Size = New System.Drawing.Size(177, 20)
Me.txtAltMi.TabIndex = 2
Me.txtAltMi.Visible = False
'
'rbMenuAlt_Mi
'
Me.rbMenuAlt_Mi.AutoSize = True
Me.rbMenuAlt_Mi.GroupName = "Mittwoch"
Me.rbMenuAlt_Mi.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAlt_Mi.Name = "rbMenuAlt_Mi"
Me.rbMenuAlt_Mi.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Mi.TabIndex = 1
Me.rbMenuAlt_Mi.TabStop = True
Me.rbMenuAlt_Mi.Text = "A la carte"
Me.rbMenuAlt_Mi.UseVisualStyleBackColor = True
'
'rbMenu_Mi
'
Me.rbMenu_Mi.AutoSize = True
Me.rbMenu_Mi.GroupName = "Mittwoch"
Me.rbMenu_Mi.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_Mi.Name = "rbMenu_Mi"
Me.rbMenu_Mi.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_Mi.TabIndex = 0
Me.rbMenu_Mi.TabStop = True
Me.rbMenu_Mi.Text = "Menü"
Me.rbMenu_Mi.UseVisualStyleBackColor = True
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.pbDonnerstag)
Me.GroupBox4.Controls.Add(Me.cbDonnerstag)
Me.GroupBox4.Controls.Add(Me.txtAltDo)
Me.GroupBox4.Controls.Add(Me.rbMenuAlt_Do)
Me.GroupBox4.Controls.Add(Me.rbMenu_Do)
Me.GroupBox4.Location = New System.Drawing.Point(3, 109)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(200, 95)
Me.GroupBox4.TabIndex = 13
Me.GroupBox4.TabStop = False
Me.GroupBox4.Text = "Donnerstag"
'
'pbDonnerstag
'
Me.pbDonnerstag.Image = Global.AVISO.My.Resources.Resources.documents
Me.pbDonnerstag.Location = New System.Drawing.Point(56, 21)
Me.pbDonnerstag.Name = "pbDonnerstag"
Me.pbDonnerstag.Size = New System.Drawing.Size(17, 13)
Me.pbDonnerstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.pbDonnerstag.TabIndex = 7
Me.pbDonnerstag.TabStop = False
'
'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
'
'txtAltDo
'
Me.txtAltDo._DateTimeOnly = False
Me.txtAltDo._numbersOnly = False
Me.txtAltDo._numbersOnlyKommastellen = ""
Me.txtAltDo._numbersOnlyTrennzeichen = True
Me.txtAltDo._Prozent = False
Me.txtAltDo._ShortDateNew = False
Me.txtAltDo._ShortDateOnly = False
Me.txtAltDo._TimeOnly = False
Me.txtAltDo._TimeOnly_Seconds = False
Me.txtAltDo._value = ""
Me.txtAltDo._Waehrung = False
Me.txtAltDo._WaehrungZeichen = True
Me.txtAltDo.ForeColor = System.Drawing.Color.Black
Me.txtAltDo.Location = New System.Drawing.Point(0, 65)
Me.txtAltDo.MaxLineLength = -1
Me.txtAltDo.MaxLines_Warning = ""
Me.txtAltDo.MaxLines_Warning_Label = Nothing
Me.txtAltDo.Name = "txtAltDo"
Me.txtAltDo.Size = New System.Drawing.Size(177, 20)
Me.txtAltDo.TabIndex = 2
Me.txtAltDo.Visible = False
'
'rbMenuAlt_Do
'
Me.rbMenuAlt_Do.AutoSize = True
Me.rbMenuAlt_Do.GroupName = "Donnerstag"
Me.rbMenuAlt_Do.Location = New System.Drawing.Point(3, 42)
Me.rbMenuAlt_Do.Name = "rbMenuAlt_Do"
Me.rbMenuAlt_Do.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_Do.TabIndex = 1
Me.rbMenuAlt_Do.TabStop = True
Me.rbMenuAlt_Do.Text = "A la carte"
Me.rbMenuAlt_Do.UseVisualStyleBackColor = True
'
'rbMenu_Do
'
Me.rbMenu_Do.AutoSize = True
Me.rbMenu_Do.GroupName = "Donnerstag"
Me.rbMenu_Do.Location = New System.Drawing.Point(3, 19)
Me.rbMenu_Do.Name = "rbMenu_Do"
Me.rbMenu_Do.Size = New System.Drawing.Size(52, 17)
Me.rbMenu_Do.TabIndex = 0
Me.rbMenu_Do.TabStop = True
Me.rbMenu_Do.Text = "Menü"
Me.rbMenu_Do.UseVisualStyleBackColor = True
'
'txtAnzahlMenu
'
Me.txtAnzahlMenu.AutoSize = True
Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 130)
Me.txtAnzahlMenu.Name = "txtAnzahlMenu"
Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlMenu.TabIndex = 16
Me.txtAnzahlMenu.Text = "0"
'
'dgvBestellungen
'
Me.dgvBestellungen.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvBestellungen.AllowUserToAddRows = False
Me.dgvBestellungen.AllowUserToDeleteRows = False
Me.dgvBestellungen.AllowUserToOrderColumns = True
Me.dgvBestellungen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.dgvBestellungen.BackgroundColor = System.Drawing.Color.White
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.dgvBestellungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvBestellungen.Location = New System.Drawing.Point(16, 351)
Me.dgvBestellungen.Name = "dgvBestellungen"
Me.dgvBestellungen.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvBestellungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvBestellungen.ShowEditingIcon = False
Me.dgvBestellungen.Size = New System.Drawing.Size(663, 127)
Me.dgvBestellungen.TabIndex = 2
'
'cbxMenu
'
Me.cbxMenu._allowedValuesFreiText = Nothing
Me.cbxMenu._allowFreiText = False
Me.cbxMenu._value = ""
Me.cbxMenu.DropDownWidth = 200
Me.cbxMenu.FormattingEnabled = True
Me.cbxMenu.Location = New System.Drawing.Point(15, 30)
Me.cbxMenu.Name = "cbxMenu"
Me.cbxMenu.Size = New System.Drawing.Size(136, 21)
Me.cbxMenu.TabIndex = 0
'
'txtAbteilung
'
Me.txtAbteilung.AutoSize = True
Me.txtAbteilung.Location = New System.Drawing.Point(581, 9)
Me.txtAbteilung.Name = "txtAbteilung"
Me.txtAbteilung.Size = New System.Drawing.Size(29, 13)
Me.txtAbteilung.TabIndex = 23
Me.txtAbteilung.Text = "EDV"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(499, 324)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(180, 21)
Me.Button2.TabIndex = 25
Me.Button2.Text = "alle Bestellungen anzeigen"
Me.Button2.UseVisualStyleBackColor = True
'
'frmEssensbestellungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(687, 518)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.txtAbteilung)
Me.Controls.Add(Me.lblBestellungBis)
Me.Controls.Add(Me.cbxGebauede)
Me.Controls.Add(Me.lblBestellungen)
Me.Controls.Add(Me.MyPanel1)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.lblGebaeude)
Me.Controls.Add(Me.lblAbteilung)
Me.Controls.Add(Me.lblDatum)
Me.Controls.Add(Me.dgvBestellungen)
Me.Controls.Add(Me.lblWochenkarte)
Me.Controls.Add(Me.cbxMenu)
Me.Name = "frmEssensbestellungen"
Me.Text = "Essensbestellung"
Me.MyPanel1.ResumeLayout(False)
Me.MyPanel1.PerformLayout()
Me.Dienstag.ResumeLayout(False)
Me.Dienstag.PerformLayout()
CType(Me.pbDienstag, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.pbMontag, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
CType(Me.pbFreitag, System.ComponentModel.ISupportInitialize).EndInit()
Me.Mittwoch.ResumeLayout(False)
Me.Mittwoch.PerformLayout()
CType(Me.pbMittwoch, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
CType(Me.pbDonnerstag, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cbxMenu As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblWochenkarte As Label
Friend WithEvents dgvBestellungen As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents btnSave As Button
Friend WithEvents lblDatum As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents txtAltMo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenoAlt_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Mo As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents Dienstag As GroupBox
Friend WithEvents txtAltDi As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Di As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents Mittwoch As GroupBox
Friend WithEvents txtAltMi As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Mi As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents txtAltDo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Do As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents GroupBox5 As GroupBox
Friend WithEvents txtAltFr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents rbMenuAlt_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents rbMenu_Fr As VERAG_PROG_ALLGEMEIN.MyRadioButton
Friend WithEvents lbl1 As Label
Friend WithEvents lbl2 As Label
Friend WithEvents txtAnzahlMenu As Label
Friend WithEvents txtAnzahlLaCart As Label
Friend WithEvents ToolTipInfoMo As ToolTip
Friend WithEvents ToolTipInfoDi As ToolTip
Friend WithEvents ToolTipInfoMi As ToolTip
Friend WithEvents ToolTipInfoDo As ToolTip
Friend WithEvents ToolTipInfoFr As ToolTip
Friend WithEvents cbMontag As CheckBox
Friend WithEvents cbDienstag As CheckBox
Friend WithEvents cbMittwoch As CheckBox
Friend WithEvents cbDonnerstag As CheckBox
Friend WithEvents cbFreitag As CheckBox
Friend WithEvents lblAbteilung As Label
Friend WithEvents lblGebaeude As Label
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents lblBestellungen As Label
Friend WithEvents pbMontag As PictureBox
Friend WithEvents pbDienstag As PictureBox
Friend WithEvents pbMittwoch As PictureBox
Friend WithEvents pbDonnerstag As PictureBox
Friend WithEvents pbFreitag As PictureBox
Friend WithEvents txtPreis As Label
Friend WithEvents Label2 As Label
Friend WithEvents cbxGebauede As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents lblBestellungBis As Label
Friend WithEvents Button1 As Button
Friend WithEvents txtAbteilung As Label
Friend WithEvents Button2 As Button
End Class

135
Aviso/frmEssensbestellungen.resx Normal file
View File

@@ -0,0 +1,135 @@
<?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="ToolTipInfoMo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolTipInfoDi.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>116, 17</value>
</metadata>
<metadata name="ToolTipInfoMi.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>215, 17</value>
</metadata>
<metadata name="ToolTipInfoDo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>314, 17</value>
</metadata>
<metadata name="ToolTipInfoFr.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>413, 17</value>
</metadata>
</root>

472
Aviso/frmEssensbestellungen.vb Normal file
View File

@@ -0,0 +1,472 @@

Imports Therefore.API
Imports VERAG_PROG_ALLGEMEIN
Public Class frmEssensbestellungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim essen As New cEssensbestellung()
Dim dt As New DataTable
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()
txtAbteilung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG
loadDGVBestellungen()
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frontoffice", "Frontoffice"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Asfinag", "Asfinag"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag Verrechnung", "Verag Verrechnung"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxGebauede.changeItem("")
btnSave.Enabled = False
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If cbxGebauede._value = "" Then
MsgBox("Bitte Gebäude für die Essensbestellung angeben!")
Exit Sub
End If
essen = New cEssensbestellung(cbxMenu._value, cAllgemein.USRID, cbxGebauede._value, cAllgemein.ABTEILUNG)
If cbMontag.Checked Then
If rbMenu_Mo.Checked Then
essen.eb_montag = "Menu"
Else
essen.eb_montag = txtAltMo.Text.ToString
End If
Else
essen.eb_montag = Nothing
End If
If cbDienstag.Checked Then
If rbMenu_Di.Checked Then
essen.eb_dienstag = "Menu"
Else
essen.eb_dienstag = txtAltDi.Text.ToString
End If
Else
essen.eb_dienstag = Nothing
End If
If cbMittwoch.Checked Then
If rbMenu_Mi.Checked Then
essen.eb_mittwoch = "Menu"
Else
essen.eb_mittwoch = txtAltMi.Text.ToString
End If
Else
essen.eb_mittwoch = Nothing
End If
If cbDonnerstag.Checked Then
If rbMenu_Do.Checked Then
essen.eb_donnerstag = "Menu"
Else
essen.eb_donnerstag = txtAltDo.Text.ToString
End If
Else
essen.eb_donnerstag = Nothing
End If
If cbFreitag.Checked Then
If rbMenu_Fr.Checked Then
essen.eb_freitag = "Menu"
Else
essen.eb_freitag = txtAltFr.Text.ToString
End If
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.SAVE()
loadDGVBestellungen()
End Sub
Private Sub cbxMenu_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxMenu.SelectedValueChanged
If cbxMenu._value Is Nothing Or cbxMenu._value = "" Then
Button1.Visible = False
lblDatum.Text = "Datum: "
lblBestellungBis.Text = ""
loadDGVBestellungen()
btnSave.Enabled = False
Exit Sub
End If
btnSave.Enabled = True
'Button1.Visible = True
dt.Clear()
dt = SQL.loadDgvBySql("SELECT Top 1 * FROM tblEBMenu where [MenuTitel] = '" & cbxMenu._value & "' order by MenuDateVon desc", "AVISO", 100, True)
If dt.Rows.Count > 0 Then
If checkIfOrderIsPossible() Then
MyPanel1.Enabled = True
Else
MyPanel1.Enabled = False
End If
lblDatum.Text = "Datum: " & CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy") & " - " & CDate(dt.Rows(0).Item("MenuDateBis")).ToString("dd.MM.yyyy")
loadMenuInfo(dt)
btnSave.Enabled = True
Else
btnSave.Enabled = False
End If
uncheckGroupBoxes(sender, e)
loadDGVBestellungen()
End Sub
Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenoAlt_Mo.CheckedChanged, rbMenuAlt_Di.CheckedChanged, rbMenuAlt_Do.CheckedChanged, rbMenuAlt_Mi.CheckedChanged, rbMenuAlt_Fr.CheckedChanged
If rbMenoAlt_Mo.Checked Then
txtAltMo.Visible = True
Else
txtAltMo.Visible = False
End If
If rbMenuAlt_Di.Checked Then
txtAltDi.Visible = True
Else
txtAltDi.Visible = False
End If
If rbMenuAlt_Mi.Checked Then
txtAltMi.Visible = True
Else
txtAltMi.Visible = False
End If
If rbMenuAlt_Do.Checked Then
txtAltDo.Visible = True
Else
txtAltDo.Visible = False
End If
If rbMenuAlt_Fr.Checked Then
txtAltFr.Visible = True
Else
txtAltFr.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
rbMenoAlt_Mo.Enabled = True
rbMenu_Mo.Enabled = True
Else
rbMenoAlt_Mo.Enabled = False
rbMenu_Mo.Enabled = False
txtAltMo.Text = ""
End If
If cbDienstag.Checked Then
rbMenuAlt_Di.Enabled = True
rbMenu_Di.Enabled = True
Else
rbMenu_Di.Enabled = False
rbMenuAlt_Di.Enabled = False
txtAltDi.Text = ""
End If
If cbMittwoch.Checked Then
rbMenuAlt_Mi.Enabled = True
rbMenu_Mi.Enabled = True
Else
rbMenu_Mi.Enabled = False
rbMenuAlt_Mi.Enabled = False
txtAltMi.Text = ""
End If
If cbDonnerstag.Checked Then
rbMenuAlt_Do.Enabled = True
rbMenu_Do.Enabled = True
Else
rbMenu_Do.Enabled = False
rbMenuAlt_Do.Enabled = False
txtAltDo.Text = ""
End If
If cbFreitag.Checked Then
rbMenuAlt_Fr.Enabled = True
rbMenu_Fr.Enabled = True
Else
rbMenu_Fr.Enabled = False
rbMenuAlt_Fr.Enabled = False
txtAltFr.Text = ""
End If
countChecks()
End Sub
Private Sub loadDGVBestellungen()
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]"
dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
dgvBestellungen.LOAD()
If dgvBestellungen.Columns.Count < 1 Then Exit Sub
With dgvBestellungen
.RowHeadersWidth = 10
.Columns("eb_kw").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("eb_kw").HeaderText = "KW"
.Columns("eb_mitid").Visible = False
.Columns("eb_abteilung").Visible = False
.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"
End With
End Sub
Private Sub uncheckGroupBoxes(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
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)) * 3
End Sub
Private Sub loadMenuInfo(dt As DataTable)
If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
pbMontag.Visible = True
Dim ttMontag As New ToolTip()
ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString)
Else
pbMontag.Visible = False
End If
If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
pbDienstag.Visible = True
Dim ttDienstag As New ToolTip()
ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
Else
pbDienstag.Visible = False
End If
If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
pbMittwoch.Visible = True
Dim ttMittwoch As New ToolTip()
ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
Else
pbMittwoch.Visible = False
End If
If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
pbDonnerstag.Visible = True
Dim ttDonnerstag As New ToolTip()
ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
Else
pbDonnerstag.Visible = False
End If
If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
pbFreitag.Visible = True
Dim ttFreitag As New ToolTip()
ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString)
Else
pbFreitag.Visible = False
End If
End Sub
Private Sub dgvBestellungen_Click(sender As Object, e As EventArgs) Handles dgvBestellungen.Click
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)
If currentEssen.eb_montag IsNot Nothing Then
cbMontag.Checked = True
If currentEssen.eb_montag.ToString = "Menu" Then
rbMenu_Mo.Checked = True
Else
rbMenoAlt_Mo.Checked = True
If currentEssen.eb_montag IsNot Nothing Then txtAltMo.Text = currentEssen.eb_montag.ToString
End If
Else
cbMontag.Checked = False
End If
If currentEssen.eb_dienstag IsNot Nothing Then
cbDienstag.Checked = True
If currentEssen.eb_dienstag.ToString = "Menu" Then
rbMenu_Di.Checked = True
Else
rbMenuAlt_Di.Checked = True
If currentEssen.eb_dienstag IsNot Nothing Then txtAltDi.Text = currentEssen.eb_dienstag.ToString
End If
Else
cbDienstag.Checked = False
End If
If currentEssen.eb_mittwoch IsNot Nothing Then
cbMittwoch.Checked = True
If currentEssen.eb_mittwoch.ToString = "Menu" Then
rbMenu_Mi.Checked = True
Else
rbMenuAlt_Mi.Checked = True
If currentEssen.eb_mittwoch IsNot Nothing Then txtAltMi.Text = currentEssen.eb_mittwoch.ToString
End If
Else
cbMittwoch.Checked = False
End If
If currentEssen.eb_donnerstag IsNot Nothing Then
cbDonnerstag.Checked = True
If currentEssen.eb_donnerstag.ToString = "Menu" Then
rbMenu_Do.Checked = True
Else
rbMenuAlt_Do.Checked = True
If currentEssen.eb_donnerstag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_donnerstag.ToString
End If
Else
cbMittwoch.Checked = False
End If
If currentEssen.eb_freitag IsNot Nothing Then
cbFreitag.Checked = True
If currentEssen.eb_freitag.ToString = "Menu" Then
rbMenu_Fr.Checked = True
Else
rbMenuAlt_Fr.Checked = True
If currentEssen.eb_freitag IsNot Nothing Then txtAltDo.Text = currentEssen.eb_freitag.ToString
End If
Else
cbFreitag.Checked = False
End If
cbxGebauede._value = currentEssen.eb_gebaeude
End Sub
Private Function checkIfOrderIsPossible() As Boolean
Dim isPossible As Boolean = False
If dt.Rows.Count = 0 Then Return False
Try
Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
Dim newTime As New TimeSpan(14, 30, 0)
Dim timeToOrderLimit = startMenu.AddDays(-5) + newTime
lblBestellungBis.Text = "Bestellung möglich bis: " & timeToOrderLimit.ToShortDateString & " - " & timeToOrderLimit.ToShortTimeString
If Now >= timeToOrderLimit Then
lblBestellungBis.ForeColor = Color.Red
Return True 'zu testzwecken -> muss dann wieder auf false gesetzt werden!!!!
Else
lblBestellungBis.ForeColor = Color.Black
Return True
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
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
countChecks()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Process.Start("\\YM5T001348\Gastro\FTPUpload\Menues\" & cbxMenu._value & ".pdf")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
cbxMenu.changeItem("")
End Sub
End Class

24
Aviso/frmGesamtsicherheitenMenuNEU.Designer.vb generated
View File

@@ -81,7 +81,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.dgvListe.Location = New System.Drawing.Point(-3, 288) Me.dgvListe.Location = New System.Drawing.Point(-3, 288)
Me.dgvListe.Name = "dgvListe" Me.dgvListe.Name = "dgvListe"
Me.dgvListe.ReadOnly = True Me.dgvListe.ReadOnly = True
Me.dgvListe.Size = New System.Drawing.Size(606, 427) Me.dgvListe.Size = New System.Drawing.Size(658, 427)
Me.dgvListe.TabIndex = 1 Me.dgvListe.TabIndex = 1
' '
'ContextMenuStrip1 'ContextMenuStrip1
@@ -143,7 +143,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0) Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(606, 288) Me.Panel1.Size = New System.Drawing.Size(658, 288)
Me.Panel1.TabIndex = 0 Me.Panel1.TabIndex = 0
' '
'btnOpenOver85Days 'btnOpenOver85Days
@@ -458,7 +458,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.FlatButton2.FlatAppearance.BorderSize = 0 Me.FlatButton2.FlatAppearance.BorderSize = 0
Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.FlatButton2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton2.ForeColor = System.Drawing.Color.Black Me.FlatButton2.ForeColor = System.Drawing.Color.Black
Me.FlatButton2.Location = New System.Drawing.Point(513, 220) Me.FlatButton2.Location = New System.Drawing.Point(565, 220)
Me.FlatButton2.Name = "FlatButton2" Me.FlatButton2.Name = "FlatButton2"
Me.FlatButton2.Size = New System.Drawing.Size(81, 20) Me.FlatButton2.Size = New System.Drawing.Size(81, 20)
Me.FlatButton2.TabIndex = 30 Me.FlatButton2.TabIndex = 30
@@ -496,7 +496,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.txtbis._WaehrungZeichen = True Me.txtbis._WaehrungZeichen = True
Me.txtbis.Anchor = System.Windows.Forms.AnchorStyles.Right Me.txtbis.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.txtbis.ForeColor = System.Drawing.Color.Black Me.txtbis.ForeColor = System.Drawing.Color.Black
Me.txtbis.Location = New System.Drawing.Point(513, 196) Me.txtbis.Location = New System.Drawing.Point(565, 196)
Me.txtbis.MaxLineLength = -1 Me.txtbis.MaxLineLength = -1
Me.txtbis.MaxLines_Warning = "" Me.txtbis.MaxLines_Warning = ""
Me.txtbis.MaxLines_Warning_Label = Nothing Me.txtbis.MaxLines_Warning_Label = Nothing
@@ -522,7 +522,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.txtVon._WaehrungZeichen = True Me.txtVon._WaehrungZeichen = True
Me.txtVon.Anchor = System.Windows.Forms.AnchorStyles.Right Me.txtVon.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.txtVon.ForeColor = System.Drawing.Color.Black Me.txtVon.ForeColor = System.Drawing.Color.Black
Me.txtVon.Location = New System.Drawing.Point(510, 153) Me.txtVon.Location = New System.Drawing.Point(562, 153)
Me.txtVon.MaxLineLength = -1 Me.txtVon.MaxLineLength = -1
Me.txtVon.MaxLines_Warning = "" Me.txtVon.MaxLines_Warning = ""
Me.txtVon.MaxLines_Warning_Label = Nothing Me.txtVon.MaxLines_Warning_Label = Nothing
@@ -538,7 +538,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label3.ForeColor = System.Drawing.Color.Honeydew Me.Label3.ForeColor = System.Drawing.Color.Honeydew
Me.Label3.Location = New System.Drawing.Point(510, 177) Me.Label3.Location = New System.Drawing.Point(562, 177)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(24, 15) Me.Label3.Size = New System.Drawing.Size(24, 15)
Me.Label3.TabIndex = 22 Me.Label3.TabIndex = 22
@@ -551,7 +551,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!) Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Label2.ForeColor = System.Drawing.Color.Honeydew Me.Label2.ForeColor = System.Drawing.Color.Honeydew
Me.Label2.Location = New System.Drawing.Point(510, 134) Me.Label2.Location = New System.Drawing.Point(562, 134)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(28, 15) Me.Label2.Size = New System.Drawing.Size(28, 15)
Me.Label2.TabIndex = 10 Me.Label2.TabIndex = 10
@@ -611,7 +611,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.btnNeu.FlatAppearance.BorderSize = 0 Me.btnNeu.FlatAppearance.BorderSize = 0
Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnNeu.ForeColor = System.Drawing.Color.Black Me.btnNeu.ForeColor = System.Drawing.Color.Black
Me.btnNeu.Location = New System.Drawing.Point(519, 253) Me.btnNeu.Location = New System.Drawing.Point(571, 253)
Me.btnNeu.Name = "btnNeu" Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(75, 23) Me.btnNeu.Size = New System.Drawing.Size(75, 23)
Me.btnNeu.TabIndex = 34 Me.btnNeu.TabIndex = 34
@@ -624,7 +624,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.lblSaldo.AutoSize = True Me.lblSaldo.AutoSize = True
Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblSaldo.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSaldo.ForeColor = System.Drawing.Color.Red Me.lblSaldo.ForeColor = System.Drawing.Color.Red
Me.lblSaldo.Location = New System.Drawing.Point(398, 11) Me.lblSaldo.Location = New System.Drawing.Point(450, 11)
Me.lblSaldo.Name = "lblSaldo" Me.lblSaldo.Name = "lblSaldo"
Me.lblSaldo.Size = New System.Drawing.Size(82, 24) Me.lblSaldo.Size = New System.Drawing.Size(82, 24)
Me.lblSaldo.TabIndex = 1 Me.lblSaldo.TabIndex = 1
@@ -636,7 +636,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.lblZollsatz.AutoSize = True Me.lblZollsatz.AutoSize = True
Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblZollsatz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew Me.lblZollsatz.ForeColor = System.Drawing.Color.Honeydew
Me.lblZollsatz.Location = New System.Drawing.Point(399, 116) Me.lblZollsatz.Location = New System.Drawing.Point(451, 116)
Me.lblZollsatz.Name = "lblZollsatz" Me.lblZollsatz.Name = "lblZollsatz"
Me.lblZollsatz.Size = New System.Drawing.Size(63, 16) Me.lblZollsatz.Size = New System.Drawing.Size(63, 16)
Me.lblZollsatz.TabIndex = 9 Me.lblZollsatz.TabIndex = 9
@@ -648,7 +648,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
Me.lblReferenzwert.AutoSize = True Me.lblReferenzwert.AutoSize = True
Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblReferenzwert.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew Me.lblReferenzwert.ForeColor = System.Drawing.Color.Honeydew
Me.lblReferenzwert.Location = New System.Drawing.Point(399, 89) Me.lblReferenzwert.Location = New System.Drawing.Point(451, 89)
Me.lblReferenzwert.Name = "lblReferenzwert" Me.lblReferenzwert.Name = "lblReferenzwert"
Me.lblReferenzwert.Size = New System.Drawing.Size(95, 16) Me.lblReferenzwert.Size = New System.Drawing.Size(95, 16)
Me.lblReferenzwert.TabIndex = 6 Me.lblReferenzwert.TabIndex = 6
@@ -658,7 +658,7 @@ Partial Class frmGesamtsicherheitenMenuNEU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(606, 721) Me.ClientSize = New System.Drawing.Size(658, 721)
Me.Controls.Add(Me.dgvListe) Me.Controls.Add(Me.dgvListe)
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Panel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)

6
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -53,7 +53,7 @@ Public Class frmGesamtsicherheitenMenuNEU
If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'" If cbxWarenort._value <> "" Then sqladdon &= " AND gs_warenort = '" & cbxWarenort._value.ToString & "'"
Dim sqlstring As String = Dim sqlstring As String =
" select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, " select * from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort, MIN(gs_warenort) as gs_warenort, MIN(gs_filialenNr) as gs_filialenNr, min(gs_abfertigungsNr) as gs_abfertigungsNr, MIN(gs_avisoId) as gs_avisoId,
max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT( max(gs_LKWKZ) as gs_LKWKZ, min (gs_datum) as gs_datum, FORMAT(
(Select SUM( Case (Select SUM( Case
when gs_art = 'Open' then (gs_sicherheitsbetrag * -1) when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
@@ -70,6 +70,7 @@ Public Class frmGesamtsicherheitenMenuNEU
From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where From (select * from (select gs_gsnr as ding from [tblGesamtsicherheit] where
gs_freitext like '%" & txtSuchbegriff.Text & "%' OR gs_freitext like '%" & txtSuchbegriff.Text & "%' OR
gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR gs_abfertigungsNr like '%" & txtSuchbegriff.Text & "%' OR
gs_avisoId like '%" & txtSuchbegriff.Text & "%' OR
gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR gs_ATBNr like '%" & txtSuchbegriff.Text & "%' OR
gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR gs_LKWKZ like '%" & txtSuchbegriff.Text & "%' OR
gs_warenort like '%" & txtSuchbegriff.Text & "%' gs_warenort like '%" & txtSuchbegriff.Text & "%'
@@ -97,6 +98,8 @@ Public Class frmGesamtsicherheitenMenuNEU
.Columns("gs_SicherheitsSaldo").HeaderText = "Sicherheitssaldo" .Columns("gs_SicherheitsSaldo").HeaderText = "Sicherheitssaldo"
.Columns("gs_Warenort").Width = 96 .Columns("gs_Warenort").Width = 96
.Columns("gs_Warenort").HeaderText = "Warenort" .Columns("gs_Warenort").HeaderText = "Warenort"
.Columns("gs_avisoId").Width = 96
.Columns("gs_avisoId").HeaderText = "LKW-ID"
.Columns("gs_LKWKZ").HeaderText = "LKW-KZ" .Columns("gs_LKWKZ").HeaderText = "LKW-KZ"
End With End With
@@ -163,6 +166,7 @@ Public Class frmGesamtsicherheitenMenuNEU
.FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value .FilialNummer = dgvListe.CurrentRow.Cells("gs_filialenNr").Value
.Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value .Abfertigungsnummer = dgvListe.CurrentRow.Cells("gs_abfertigungsNr").Value
.warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value .warenortID = dgvListe.CurrentRow.Cells("gs_warenort").Value
.avisoID = dgvListe.CurrentRow.Cells("gs_avisoId").Value
.dataTable = Me.dataTable .dataTable = Me.dataTable
End With End With

20
Aviso/frmGesamtsicherheitenNEU.Designer.vb generated
View File

@@ -51,7 +51,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.lblWarenort = New System.Windows.Forms.Label() Me.lblWarenort = New System.Windows.Forms.Label()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.btnSave = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.txtLKWID = New System.Windows.Forms.TextBox() Me.txtLKWKZ = New System.Windows.Forms.TextBox()
Me.txtAbfertNum = New System.Windows.Forms.TextBox() Me.txtAbfertNum = New System.Windows.Forms.TextBox()
Me.Label18 = New System.Windows.Forms.Label() Me.Label18 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label()
@@ -327,7 +327,7 @@ Partial Class frmGesamtsicherheitenNEU
Me.panOverlay.Controls.Add(Me.lblWarenort) Me.panOverlay.Controls.Add(Me.lblWarenort)
Me.panOverlay.Controls.Add(Me.cboFiliale) Me.panOverlay.Controls.Add(Me.cboFiliale)
Me.panOverlay.Controls.Add(Me.btnSave) Me.panOverlay.Controls.Add(Me.btnSave)
Me.panOverlay.Controls.Add(Me.txtLKWID) Me.panOverlay.Controls.Add(Me.txtLKWKZ)
Me.panOverlay.Controls.Add(Me.txtAbfertNum) Me.panOverlay.Controls.Add(Me.txtAbfertNum)
Me.panOverlay.Controls.Add(Me.Label18) Me.panOverlay.Controls.Add(Me.Label18)
Me.panOverlay.Controls.Add(Me.Label17) Me.panOverlay.Controls.Add(Me.Label17)
@@ -426,14 +426,14 @@ Partial Class frmGesamtsicherheitenNEU
Me.btnSave.Text = "Speichern" Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = False Me.btnSave.UseVisualStyleBackColor = False
' '
'txtLKWID 'txtLKWKZ
' '
Me.txtLKWID.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtLKWKZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtLKWID.Location = New System.Drawing.Point(279, 216) Me.txtLKWKZ.Location = New System.Drawing.Point(279, 216)
Me.txtLKWID.Margin = New System.Windows.Forms.Padding(0) Me.txtLKWKZ.Margin = New System.Windows.Forms.Padding(0)
Me.txtLKWID.Name = "txtLKWID" Me.txtLKWKZ.Name = "txtLKWKZ"
Me.txtLKWID.Size = New System.Drawing.Size(186, 24) Me.txtLKWKZ.Size = New System.Drawing.Size(186, 24)
Me.txtLKWID.TabIndex = 8 Me.txtLKWKZ.TabIndex = 8
' '
'txtAbfertNum 'txtAbfertNum
' '
@@ -1554,7 +1554,7 @@ Partial Class frmGesamtsicherheitenNEU
Friend WithEvents txtAnzahlPos As TextBox Friend WithEvents txtAnzahlPos As TextBox
Friend WithEvents panOverlay As Panel Friend WithEvents panOverlay As Panel
Friend WithEvents btnSave As VERAG_PROG_ALLGEMEIN.FlatButton Friend WithEvents btnSave As VERAG_PROG_ALLGEMEIN.FlatButton
Friend WithEvents txtLKWID As TextBox Friend WithEvents txtLKWKZ As TextBox
Friend WithEvents txtAbfertNum As TextBox Friend WithEvents txtAbfertNum As TextBox
Friend WithEvents Label18 As Label Friend WithEvents Label18 As Label
Friend WithEvents Label17 As Label Friend WithEvents Label17 As Label

32
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -320,8 +320,8 @@ Public Class frmGesamtsicherheitenNEU
Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort")) Me.warenortID = setNullToZero(dt.Rows(0).Item("gs_warenort"))
End If End If
If Me.avisoID.ToString.Length > 0 Then lblGestellungNr.Text &= "Aviso-ID: " & Me.avisoID & " " If Me.avisoID.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.avisoID & " "
If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-ID: " & Me.LKWKZ & " " If Me.LKWKZ.ToString.Length > 0 Then lblGestellungNr.Text &= "LKW-KZ: " & Me.LKWKZ & " "
If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " " If Me.FilialNummer.ToString.Length > 0 Then lblGestellungNr.Text &= "FilialNr: " & Me.FilialNummer & " "
If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " " If Me.Abfertigungsnummer.Length > 0 Then lblGestellungNr.Text &= "AbfNr: " & Me.Abfertigungsnummer & " "
If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " " If Me.warenortID.Length > 0 Then lblGestellungNr.Text &= "Warenort: " & Me.warenortID & " "
@@ -505,8 +505,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_filialenNr = OPEN.gs_filialenNr .gsp_filialenNr = OPEN.gs_filialenNr
.gsp_art = "OPEN" .gsp_art = "OPEN"
.gsp_abfertigungsNr = OPEN.gs_abfertigungsnr .gsp_abfertigungsNr = OPEN.gs_abfertigungsnr
.gsp_erstellungsdatum = Me.datum .gsp_erstellungsdatum = DateTimeString2DateTimeKonvertinator(txtSicherheitDate.Text, txtSicherheitTime.Text)
.gsp_avisoId = ""
.gsp_ust = "" .gsp_ust = ""
.gsp_avisoId = Me.avisoID .gsp_avisoId = Me.avisoID
'.gsp_ATCNr = "" '.gsp_ATCNr = ""
@@ -671,10 +670,14 @@ Public Class frmGesamtsicherheitenNEU
End Try End Try
Me.Abfertigungsnummer = txtAbfertNum.Text Me.Abfertigungsnummer = txtAbfertNum.Text
Me.LKWKZ = txtLKWID.Text Me.LKWKZ = txtLKWKZ.Text
If txtlkwIdSearch.Text IsNot "" Then
Me.avisoID = CInt(txtlkwIdSearch.Text)
End If
If setNullToZero(Me.gessicherheitID) > 0 Then If setNullToZero(Me.gessicherheitID) > 0 Then
Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_LKWKZ] = '" & Me.LKWKZ & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' " Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_filialenNr] = '" & Me.FilialNummer & "', [gs_abfertigungsNr] = '" & Me.Abfertigungsnummer & "', [gs_avisoId] = '" & Me.avisoID & "',[gs_LKWKZ] = '" & Me.LKWKZ & "', [gs_warenort] = '" & Me.warenortID & "' WHERE [gs_gsNr] = '" & Me.gessicherheitID & "' "
SQL.doSQL(sqlstring, "AVISO") SQL.doSQL(sqlstring, "AVISO")
btnAddPos.Visible = True btnAddPos.Visible = True
LoadDGVSicherheiten() LoadDGVSicherheiten()
@@ -721,8 +724,8 @@ Public Class frmGesamtsicherheitenNEU
txtSicherheitWarenwert.Text = Sicherh.gs_warenwert txtSicherheitWarenwert.Text = Sicherh.gs_warenwert
txtSicherheitFreitext.Text = Sicherh.gs_freitext txtSicherheitFreitext.Text = Sicherh.gs_freitext
cboSicherheitATR.SelectedItem = Sicherh.gs_atr cboSicherheitATR.SelectedItem = Sicherh.gs_atr
txtSicherheitDate.Text = Sicherh.gs_erstellungsdatum.ToString("dd.MM.yyyy") txtSicherheitDate.Text = Sicherh.gs_datum.ToString("dd.MM.yyyy")
txtSicherheitTime.Text = Sicherh.gs_erstellungsdatum.ToString("HH:mm") txtSicherheitTime.Text = Sicherh.gs_datum.ToString("HH:mm")
currentSicherheit = Sicherh currentSicherheit = Sicherh
txtAnzahlPos.Enabled = False txtAnzahlPos.Enabled = False
@@ -772,6 +775,7 @@ Public Class frmGesamtsicherheitenNEU
.gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text) .gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
.gsp_warenwert = Double.Parse(txtPosWarenwert.Text) .gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
.gsp_ATCNr = If(txtPositionenCRN.Text <> "", txtPositionenCRN.Text, Nothing) .gsp_ATCNr = If(txtPositionenCRN.Text <> "", txtPositionenCRN.Text, Nothing)
.gsp_erstellungsdatum = DateTimeString2DateTimeKonvertinator(txtPosDate.Text, txtPosTime.Text)
End With End With
If checkSicherheitsbetrag() = False Then Exit Sub If checkSicherheitsbetrag() = False Then Exit Sub
@@ -837,8 +841,10 @@ Public Class frmGesamtsicherheitenNEU
cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer) cboFiliale.SelectedIndex = cboFiliale.FindString(Me.FilialNummer)
cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True) cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_knnr],' - ' ,[wo_bezeichnung]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' ORDER BY [wo_reihenfolge] ", True, "AVISO", True)
cboWarenort.SelectedIndex = cbx_Suche_Warenort.FindString(Me.warenortID) cboWarenort.SelectedIndex = cbx_Suche_Warenort.FindString(Me.warenortID)
txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200)
txtlkwIdSearch.Text = Me.avisoID
txtAbfertNum.Text = Me.Abfertigungsnummer txtAbfertNum.Text = Me.Abfertigungsnummer
txtLKWID.Text = Me.LKWKZ txtLKWKZ.Text = Me.LKWKZ
panOben.Enabled = False panOben.Enabled = False
End Sub End Sub
@@ -1287,11 +1293,11 @@ Public Class frmGesamtsicherheitenNEU
Private Sub txtlkwIdSearch_VALUE_CHANGED() Handles txtlkwIdSearch.VALUE_CHANGED Private Sub txtlkwIdSearch_VALUE_CHANGED() Handles txtlkwIdSearch.VALUE_CHANGED
If (txtlkwIdSearch._value <> "") Then If (txtlkwIdSearch._value <> "") Then
txtLKWID.Text = txtlkwIdSearch._value txtLKWKZ.Text = txtlkwIdSearch._value
txtLKWID.ReadOnly = True txtLKWKZ.ReadOnly = True
Else Else
txtLKWID.Clear() txtLKWKZ.Clear()
txtLKWID.ReadOnly = False txtLKWKZ.ReadOnly = False
End If End If
End Sub End Sub

25
Aviso/frmHauptfenster.Designer.vb generated
View File

@@ -92,11 +92,11 @@ Partial Class frmHauptfenster
Me.SpracheWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.SpracheWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeutschToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.DeutschToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TürkischToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TürkischToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StandarddruckerWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NacherfassungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.NacherfassungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VollständigesUpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VollständigesUpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LogoutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LogoutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StandarddruckerWechselnToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FunktionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FunktionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GenerelleGestellungenDurchsuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GenerelleGestellungenDurchsuchenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.KundenVonFremdenSpeditionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.KundenVonFremdenSpeditionenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -126,6 +126,7 @@ Partial Class frmHauptfenster
Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ATGesamtsicherheitVeragAGToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ATGesamtsicherheitVeragCSToolStripMenuItem = 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.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LKWBerichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatistikADMINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatistikADMINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -774,6 +775,12 @@ Partial Class frmHauptfenster
Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(118, 22) Me.TürkischToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
Me.TürkischToolStripMenuItem.Text = "Türkisch" Me.TürkischToolStripMenuItem.Text = "Türkisch"
' '
'StandarddruckerWechselnToolStripMenuItem
'
Me.StandarddruckerWechselnToolStripMenuItem.Name = "StandarddruckerWechselnToolStripMenuItem"
Me.StandarddruckerWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.StandarddruckerWechselnToolStripMenuItem.Text = "Standarddrucker wechseln"
'
'NacherfassungToolStripMenuItem 'NacherfassungToolStripMenuItem
' '
Me.NacherfassungToolStripMenuItem.Name = "NacherfassungToolStripMenuItem" Me.NacherfassungToolStripMenuItem.Name = "NacherfassungToolStripMenuItem"
@@ -800,15 +807,9 @@ Partial Class frmHauptfenster
Me.LogoutToolStripMenuItem.Text = "Logout" Me.LogoutToolStripMenuItem.Text = "Logout"
Me.LogoutToolStripMenuItem.Visible = False Me.LogoutToolStripMenuItem.Visible = False
' '
'StandarddruckerWechselnToolStripMenuItem
'
Me.StandarddruckerWechselnToolStripMenuItem.Name = "StandarddruckerWechselnToolStripMenuItem"
Me.StandarddruckerWechselnToolStripMenuItem.Size = New System.Drawing.Size(213, 22)
Me.StandarddruckerWechselnToolStripMenuItem.Text = "Standarddrucker wechseln"
'
'FunktionenToolStripMenuItem '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.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem}) 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.ToolStripMenuItem3, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.BürgschaftenExcelToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem10, Me.TICKETWaidhausToolStripMenuItem, Me.ToolStripSeparator10, Me.DAKOSYToolStripMenuItem, Me.ToolStripSeparator11, Me.SDLAbholaufträgeToolStripMenuItem, Me.ToolStripMenuItem13, Me.VorauskassenToolStripMenuItem, Me.DEGesamtsicherheitVeragGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragAGToolStripMenuItem, Me.ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem, Me.ATGesamtsicherheitVeragCSToolStripMenuItem, Me.EssensbestellungenToolStripMenuItem})
Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem" Me.FunktionenToolStripMenuItem.Name = "FunktionenToolStripMenuItem"
Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20) Me.FunktionenToolStripMenuItem.Size = New System.Drawing.Size(79, 20)
Me.FunktionenToolStripMenuItem.Text = "Funktionen" Me.FunktionenToolStripMenuItem.Text = "Funktionen"
@@ -989,6 +990,13 @@ Partial Class frmHauptfenster
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS" Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Text = "AT | Gesamtsicherheit Verag CS"
Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False Me.ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = False
' '
'EssensbestellungenToolStripMenuItem
'
Me.EssensbestellungenToolStripMenuItem.Name = "EssensbestellungenToolStripMenuItem"
Me.EssensbestellungenToolStripMenuItem.Size = New System.Drawing.Size(383, 22)
Me.EssensbestellungenToolStripMenuItem.Text = "Essensbestellungen"
Me.EssensbestellungenToolStripMenuItem.Visible = False
'
'StatistikToolStripMenuItem 'StatistikToolStripMenuItem
' '
Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1}) Me.StatistikToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LKWBerichtToolStripMenuItem, Me.StatistikADMINToolStripMenuItem, Me.ToolStripSeparator8, Me.BürgschafrtsbuchungenFremdToolStripMenuItem, Me.LKWEingetroffenNachToolStripMenuItem, Me.ToolStripSeparator7, Me.SDLAuswertungenToolStripMenuItem, Me.SDLAuswertungenToolStripMenuItem1})
@@ -3866,4 +3874,5 @@ Partial Class frmHauptfenster
Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem
Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem Friend WithEvents RoutenverwaltungToolStripMenuItem As ToolStripMenuItem
Friend WithEvents StandarddruckerWechselnToolStripMenuItem As ToolStripMenuItem Friend WithEvents StandarddruckerWechselnToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EssensbestellungenToolStripMenuItem As ToolStripMenuItem
End Class End Class

12
Aviso/frmHauptfenster.vb
View File

@@ -536,6 +536,13 @@ Public Class frmHauptfenster
btnKassenbuch.Visible = True btnKassenbuch.Visible = True
End If End If
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ESSENSBESTELLUNGEN", "AVISO") Then
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "FRONTOFFICE", "VERAG", "IMEX"
EssensbestellungenToolStripMenuItem.Visible = True
End Select
End If
Panel1.Height -= pnlSearch.Height Panel1.Height -= pnlSearch.Height
End Sub End Sub
@@ -4228,6 +4235,11 @@ Public Class frmHauptfenster
Dim f As New frmWechselStandarddrucker() Dim f As New frmWechselStandarddrucker()
f.ShowDialog(Me) f.ShowDialog(Me)
End Sub End Sub
Private Sub EssensbestellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EssensbestellungenToolStripMenuItem.Click
Dim f As New frmEssensbestellungen()
f.ShowDialog(Me)
End Sub
End Class End Class
Public Class AvisoStatusFunctions Public Class AvisoStatusFunctions

6
Aviso/frmLogin.vb
View File

@@ -4,6 +4,7 @@ Imports VERAG_PROG_ALLGEMEIN
Imports System.Reflection Imports System.Reflection
Imports System.DirectoryServices Imports System.DirectoryServices
Imports Therefore.API
Public Class frmLogin Public Class frmLogin
@@ -484,6 +485,11 @@ Public Class frmLogin
' If MsgBox("AUTO-LOGIN?", vbYesNoCancel) = vbYes Then btnOK.PerformClick() ' If MsgBox("AUTO-LOGIN?", vbYesNoCancel) = vbYes Then btnOK.PerformClick()
End If End If
If Environment.MachineName = "H6CCWP3" Then
txtSachbear.Text = "daniel"
txtKennwort.Text = "debug"
End If
' Spire.License.LicenseProvider.SetLicenseKey("PFIX3V0pG5DaAQCBLK1gLRCjwhu+wX1JsEcX0hyXZty9sbe8Zm5XIrWr214umg/g22Jy0+5BJQ6QgRhLl0eUqVMyCAHswvrA+jVz8s20VTNEOTWhzwpLBqoRG6IFh3EGNawUS7a+fW5OVPLApUd3Y+IcKYZihow7+5lKPN6+seKWy5uFjwRFNSBOTAjUGsfEw9sukXvtcnLh2Vo5ttKbPSLb1EeCdgaNd8nWa+RKQk0Rlg4R/7M9BBTURZXCVAoA4kfbNyPnksggPvYPbpVqPqtT9LbjycBLSB/Uwf16fZlVDuDrCJCij2ZI3ebSwM1sumBtXj4WhXk+Mwxj7acdb9saqmOsmyAcd11MZ2NfRAhv2L8S7RLSGr4OYR9/9Fnk9aN9q7T8D51jUfJgV82ZIZMvCpI2RTtsRaOyMandpfpFE96k1kjlVRuWm8JGKUHZV0bETyaBTqpiwn4ShoqdlYlyvIjfjWX/TbWCuy2uSugCC9BLW0P0ND/G2z2kbHQCEiQCRn92TrlvTpQg9veACDn1Lb3savBYyW3VQMuHgybLpq3x9LIV5nrTli87kzqvTuZmUZanhgx0M4BFi2CsWlf28yRpQo2l1HDLjScgzxvXOk3/N9wOlS2gbfeN74iHU0vb1heHfa5ahmRwtgg7C6iYu0WD1u5p/hO3Ja5tkNBxicJO5TJXq3W5U65lCsQDOQbiZCeTJzjYP0SGypIo701hqqVG9hW/Sd2siqb4w/W1H9xKTxDCL+EwCHduLZuNze1gyyxKR5nGCsIhaXBaRCaQ8Z1OHlU25h+yeHwFF1yMKzdbX6VKG+5GjZ3yvSjwqGgFfDPLVr2QxJpLqpAwcdmG7w6xwVoOP81C8Sv60U2UaDLw7I0U1GfMhkqOr0tRtFQRa2iDgPnrZWhiNPPjDYtPyHt5ZwdIoAKaNRpI1f+u6rDJRmyAr4jizBRxHIlsSM86MXRbEvBLkDEyDQPLC3ntaPi5kRn7vObrlDGR7aZEKy+8PkU8qrVw7wgqxQtbc+isO8x6yoe/yTydhFiY1HlUbjPlAM9s+SSV4D2L9oHmYCtO1wdo3Gl0Dj6Mp3hioi9Cyd4+bp/A28ukhQXjtNUhUhNgzcyfP/Fg1at6lj0NPYWvOibJr0I/Fi38AeBM+kXNnuMblXnlawtTjnjGvi/fA9tHz6EI44ChhIrd8a3Kjx2bGcFlVENXe3YDu1W5ZbDOcoERW8qxZLBKqYIMiwQ61ZAq69PXKSZZk+1mi8oyCNS9xpBZndWLKTKG6XqM1FkZew1bTD4GLZRdC4x72iqSmVIu3ZU8rSk7rxGQUNWKIi7gIJhXEnmeWt322KDCxBWDZcrxKKGc8ZIDRL3EmW13/7ow4WowlCUW+lvhlkbwsXDPwqtO+IQJ3UisJFnF2jnFqaLoKELNJx6hfg2iyYR2+gJgiKWLKOzS56Id7o3iY4ou1TZauqSK9A836t36UxXtjYWSk9aoDDhZwlqRbwXok9pds5dC") ' Spire.License.LicenseProvider.SetLicenseKey("PFIX3V0pG5DaAQCBLK1gLRCjwhu+wX1JsEcX0hyXZty9sbe8Zm5XIrWr214umg/g22Jy0+5BJQ6QgRhLl0eUqVMyCAHswvrA+jVz8s20VTNEOTWhzwpLBqoRG6IFh3EGNawUS7a+fW5OVPLApUd3Y+IcKYZihow7+5lKPN6+seKWy5uFjwRFNSBOTAjUGsfEw9sukXvtcnLh2Vo5ttKbPSLb1EeCdgaNd8nWa+RKQk0Rlg4R/7M9BBTURZXCVAoA4kfbNyPnksggPvYPbpVqPqtT9LbjycBLSB/Uwf16fZlVDuDrCJCij2ZI3ebSwM1sumBtXj4WhXk+Mwxj7acdb9saqmOsmyAcd11MZ2NfRAhv2L8S7RLSGr4OYR9/9Fnk9aN9q7T8D51jUfJgV82ZIZMvCpI2RTtsRaOyMandpfpFE96k1kjlVRuWm8JGKUHZV0bETyaBTqpiwn4ShoqdlYlyvIjfjWX/TbWCuy2uSugCC9BLW0P0ND/G2z2kbHQCEiQCRn92TrlvTpQg9veACDn1Lb3savBYyW3VQMuHgybLpq3x9LIV5nrTli87kzqvTuZmUZanhgx0M4BFi2CsWlf28yRpQo2l1HDLjScgzxvXOk3/N9wOlS2gbfeN74iHU0vb1heHfa5ahmRwtgg7C6iYu0WD1u5p/hO3Ja5tkNBxicJO5TJXq3W5U65lCsQDOQbiZCeTJzjYP0SGypIo701hqqVG9hW/Sd2siqb4w/W1H9xKTxDCL+EwCHduLZuNze1gyyxKR5nGCsIhaXBaRCaQ8Z1OHlU25h+yeHwFF1yMKzdbX6VKG+5GjZ3yvSjwqGgFfDPLVr2QxJpLqpAwcdmG7w6xwVoOP81C8Sv60U2UaDLw7I0U1GfMhkqOr0tRtFQRa2iDgPnrZWhiNPPjDYtPyHt5ZwdIoAKaNRpI1f+u6rDJRmyAr4jizBRxHIlsSM86MXRbEvBLkDEyDQPLC3ntaPi5kRn7vObrlDGR7aZEKy+8PkU8qrVw7wgqxQtbc+isO8x6yoe/yTydhFiY1HlUbjPlAM9s+SSV4D2L9oHmYCtO1wdo3Gl0Dj6Mp3hioi9Cyd4+bp/A28ukhQXjtNUhUhNgzcyfP/Fg1at6lj0NPYWvOibJr0I/Fi38AeBM+kXNnuMblXnlawtTjnjGvi/fA9tHz6EI44ChhIrd8a3Kjx2bGcFlVENXe3YDu1W5ZbDOcoERW8qxZLBKqYIMiwQ61ZAq69PXKSZZk+1mi8oyCNS9xpBZndWLKTKG6XqM1FkZew1bTD4GLZRdC4x72iqSmVIu3ZU8rSk7rxGQUNWKIi7gIJhXEnmeWt322KDCxBWDZcrxKKGc8ZIDRL3EmW13/7ow4WowlCUW+lvhlkbwsXDPwqtO+IQJ3UisJFnF2jnFqaLoKELNJx6hfg2iyYR2+gJgiKWLKOzS56Id7o3iY4ou1TZauqSK9A836t36UxXtjYWSk9aoDDhZwlqRbwXok9pds5dC")