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

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-02-02 13:06:05 +01:00
parent c984590127 433031ed56
commit 3d2cfb0644
6 changed files with 264 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

124
SDL/frmEssensbestellungen.Designer.vb generated
View File

@@ -97,6 +97,7 @@ Partial Class frmEssensbestellungen
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.txtAnmerkung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAnmerkung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lbloffenerBetrag = New System.Windows.Forms.Label()
Me.MyPanel1.SuspendLayout() Me.MyPanel1.SuspendLayout()
Me.GroupBoxDienstag.SuspendLayout() Me.GroupBoxDienstag.SuspendLayout()
CType(Me.pb_dienstag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pb_dienstag, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -125,7 +126,7 @@ Partial Class frmEssensbestellungen
'btnSave 'btnSave
' '
Me.btnSave.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.btnSave.Anchor = System.Windows.Forms.AnchorStyles.Bottom
Me.btnSave.Location = New System.Drawing.Point(318, 616) Me.btnSave.Location = New System.Drawing.Point(347, 650)
Me.btnSave.Name = "btnSave" Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23) Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 10 Me.btnSave.TabIndex = 10
@@ -160,7 +161,7 @@ Partial Class frmEssensbestellungen
'lblAbteilung 'lblAbteilung
' '
Me.lblAbteilung.AutoSize = True Me.lblAbteilung.AutoSize = True
Me.lblAbteilung.Location = New System.Drawing.Point(507, 74) Me.lblAbteilung.Location = New System.Drawing.Point(591, 68)
Me.lblAbteilung.Name = "lblAbteilung" Me.lblAbteilung.Name = "lblAbteilung"
Me.lblAbteilung.Size = New System.Drawing.Size(54, 13) Me.lblAbteilung.Size = New System.Drawing.Size(54, 13)
Me.lblAbteilung.TabIndex = 18 Me.lblAbteilung.TabIndex = 18
@@ -169,7 +170,7 @@ Partial Class frmEssensbestellungen
'lblGebaeude 'lblGebaeude
' '
Me.lblGebaeude.AutoSize = True Me.lblGebaeude.AutoSize = True
Me.lblGebaeude.Location = New System.Drawing.Point(507, 92) Me.lblGebaeude.Location = New System.Drawing.Point(591, 86)
Me.lblGebaeude.Name = "lblGebaeude" Me.lblGebaeude.Name = "lblGebaeude"
Me.lblGebaeude.Size = New System.Drawing.Size(54, 13) Me.lblGebaeude.Size = New System.Drawing.Size(54, 13)
Me.lblGebaeude.TabIndex = 19 Me.lblGebaeude.TabIndex = 19
@@ -178,7 +179,7 @@ Partial Class frmEssensbestellungen
'lblBestellungen 'lblBestellungen
' '
Me.lblBestellungen.AutoSize = True Me.lblBestellungen.AutoSize = True
Me.lblBestellungen.Location = New System.Drawing.Point(12, 399) Me.lblBestellungen.Location = New System.Drawing.Point(12, 421)
Me.lblBestellungen.Name = "lblBestellungen" Me.lblBestellungen.Name = "lblBestellungen"
Me.lblBestellungen.Size = New System.Drawing.Size(100, 13) Me.lblBestellungen.Size = New System.Drawing.Size(100, 13)
Me.lblBestellungen.TabIndex = 20 Me.lblBestellungen.TabIndex = 20
@@ -200,7 +201,7 @@ Partial Class frmEssensbestellungen
Me.cbxGebauede._value = "" Me.cbxGebauede._value = ""
Me.cbxGebauede.DropDownWidth = 120 Me.cbxGebauede.DropDownWidth = 120
Me.cbxGebauede.FormattingEnabled = True Me.cbxGebauede.FormattingEnabled = True
Me.cbxGebauede.Location = New System.Drawing.Point(580, 89) Me.cbxGebauede.Location = New System.Drawing.Point(664, 83)
Me.cbxGebauede.Name = "cbxGebauede" Me.cbxGebauede.Name = "cbxGebauede"
Me.cbxGebauede.Size = New System.Drawing.Size(95, 21) Me.cbxGebauede.Size = New System.Drawing.Size(95, 21)
Me.cbxGebauede.TabIndex = 21 Me.cbxGebauede.TabIndex = 21
@@ -222,14 +223,14 @@ Partial Class frmEssensbestellungen
Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu) Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu)
Me.MyPanel1.Location = New System.Drawing.Point(12, 130) Me.MyPanel1.Location = New System.Drawing.Point(12, 130)
Me.MyPanel1.Name = "MyPanel1" Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(667, 266) Me.MyPanel1.Size = New System.Drawing.Size(755, 285)
Me.MyPanel1.TabIndex = 18 Me.MyPanel1.TabIndex = 18
' '
'lblWarning 'lblWarning
' '
Me.lblWarning.AutoSize = True Me.lblWarning.AutoSize = True
Me.lblWarning.ForeColor = System.Drawing.Color.Red Me.lblWarning.ForeColor = System.Drawing.Color.Red
Me.lblWarning.Location = New System.Drawing.Point(465, 217) Me.lblWarning.Location = New System.Drawing.Point(552, 219)
Me.lblWarning.Name = "lblWarning" Me.lblWarning.Name = "lblWarning"
Me.lblWarning.Size = New System.Drawing.Size(0, 13) Me.lblWarning.Size = New System.Drawing.Size(0, 13)
Me.lblWarning.TabIndex = 31 Me.lblWarning.TabIndex = 31
@@ -237,7 +238,7 @@ Partial Class frmEssensbestellungen
'txtPreis 'txtPreis
' '
Me.txtPreis.AutoSize = True Me.txtPreis.AutoSize = True
Me.txtPreis.Location = New System.Drawing.Point(553, 188) Me.txtPreis.Location = New System.Drawing.Point(640, 238)
Me.txtPreis.Name = "txtPreis" Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Size = New System.Drawing.Size(13, 13) Me.txtPreis.Size = New System.Drawing.Size(13, 13)
Me.txtPreis.TabIndex = 19 Me.txtPreis.TabIndex = 19
@@ -246,7 +247,7 @@ Partial Class frmEssensbestellungen
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(463, 188) Me.Label2.Location = New System.Drawing.Point(550, 238)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(68, 13) Me.Label2.Size = New System.Drawing.Size(68, 13)
Me.Label2.TabIndex = 18 Me.Label2.TabIndex = 18
@@ -260,9 +261,9 @@ Partial Class frmEssensbestellungen
Me.GroupBoxDienstag.Controls.Add(Me.txtAlt_dienstag) Me.GroupBoxDienstag.Controls.Add(Me.txtAlt_dienstag)
Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_dienstag) Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_dienstag)
Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_dienstag) Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_dienstag)
Me.GroupBoxDienstag.Location = New System.Drawing.Point(225, 8) Me.GroupBoxDienstag.Location = New System.Drawing.Point(264, 8)
Me.GroupBoxDienstag.Name = "GroupBoxDienstag" Me.GroupBoxDienstag.Name = "GroupBoxDienstag"
Me.GroupBoxDienstag.Size = New System.Drawing.Size(200, 121) Me.GroupBoxDienstag.Size = New System.Drawing.Size(242, 132)
Me.GroupBoxDienstag.TabIndex = 13 Me.GroupBoxDienstag.TabIndex = 13
Me.GroupBoxDienstag.TabStop = False Me.GroupBoxDienstag.TabStop = False
Me.GroupBoxDienstag.Text = "Dienstag" Me.GroupBoxDienstag.Text = "Dienstag"
@@ -271,7 +272,7 @@ Partial Class frmEssensbestellungen
' '
Me.txtMenu_dienstag.Location = New System.Drawing.Point(3, 39) Me.txtMenu_dienstag.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_dienstag.Name = "txtMenu_dienstag" Me.txtMenu_dienstag.Name = "txtMenu_dienstag"
Me.txtMenu_dienstag.Size = New System.Drawing.Size(188, 32) Me.txtMenu_dienstag.Size = New System.Drawing.Size(236, 46)
Me.txtMenu_dienstag.TabIndex = 30 Me.txtMenu_dienstag.TabIndex = 30
Me.txtMenu_dienstag.Text = "Menutext" Me.txtMenu_dienstag.Text = "Menutext"
' '
@@ -311,12 +312,12 @@ Partial Class frmEssensbestellungen
Me.txtAlt_dienstag._Waehrung = False Me.txtAlt_dienstag._Waehrung = False
Me.txtAlt_dienstag._WaehrungZeichen = True Me.txtAlt_dienstag._WaehrungZeichen = True
Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black
Me.txtAlt_dienstag.Location = New System.Drawing.Point(3, 93) Me.txtAlt_dienstag.Location = New System.Drawing.Point(3, 107)
Me.txtAlt_dienstag.MaxLineLength = -1 Me.txtAlt_dienstag.MaxLineLength = -1
Me.txtAlt_dienstag.MaxLines_Warning = "" Me.txtAlt_dienstag.MaxLines_Warning = ""
Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing
Me.txtAlt_dienstag.Name = "txtAlt_dienstag" Me.txtAlt_dienstag.Name = "txtAlt_dienstag"
Me.txtAlt_dienstag.Size = New System.Drawing.Size(177, 20) Me.txtAlt_dienstag.Size = New System.Drawing.Size(233, 20)
Me.txtAlt_dienstag.TabIndex = 2 Me.txtAlt_dienstag.TabIndex = 2
Me.txtAlt_dienstag.Visible = False Me.txtAlt_dienstag.Visible = False
' '
@@ -324,7 +325,7 @@ Partial Class frmEssensbestellungen
' '
Me.rbMenuAlt_dienstag.AutoSize = True Me.rbMenuAlt_dienstag.AutoSize = True
Me.rbMenuAlt_dienstag.GroupName = "Dienstag" Me.rbMenuAlt_dienstag.GroupName = "Dienstag"
Me.rbMenuAlt_dienstag.Location = New System.Drawing.Point(3, 74) Me.rbMenuAlt_dienstag.Location = New System.Drawing.Point(3, 88)
Me.rbMenuAlt_dienstag.Name = "rbMenuAlt_dienstag" Me.rbMenuAlt_dienstag.Name = "rbMenuAlt_dienstag"
Me.rbMenuAlt_dienstag.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_dienstag.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_dienstag.TabIndex = 1 Me.rbMenuAlt_dienstag.TabIndex = 1
@@ -347,7 +348,7 @@ Partial Class frmEssensbestellungen
'lbl1 'lbl1
' '
Me.lbl1.AutoSize = True Me.lbl1.AutoSize = True
Me.lbl1.Location = New System.Drawing.Point(463, 135) Me.lbl1.Location = New System.Drawing.Point(550, 185)
Me.lbl1.Name = "lbl1" Me.lbl1.Name = "lbl1"
Me.lbl1.Size = New System.Drawing.Size(72, 13) Me.lbl1.Size = New System.Drawing.Size(72, 13)
Me.lbl1.TabIndex = 14 Me.lbl1.TabIndex = 14
@@ -356,7 +357,7 @@ Partial Class frmEssensbestellungen
'Button1 'Button1
' '
Me.Button1.Image = Global.SDL.My.Resources.Resources.pdf Me.Button1.Image = Global.SDL.My.Resources.Resources.pdf
Me.Button1.Location = New System.Drawing.Point(599, 140) Me.Button1.Location = New System.Drawing.Point(686, 190)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(54, 57) Me.Button1.Size = New System.Drawing.Size(54, 57)
Me.Button1.TabIndex = 20 Me.Button1.TabIndex = 20
@@ -373,7 +374,7 @@ Partial Class frmEssensbestellungen
Me.GroupBoxMontag.Controls.Add(Me.rbMenu_montag) Me.GroupBoxMontag.Controls.Add(Me.rbMenu_montag)
Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8) Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8)
Me.GroupBoxMontag.Name = "GroupBoxMontag" Me.GroupBoxMontag.Name = "GroupBoxMontag"
Me.GroupBoxMontag.Size = New System.Drawing.Size(200, 121) Me.GroupBoxMontag.Size = New System.Drawing.Size(242, 132)
Me.GroupBoxMontag.TabIndex = 12 Me.GroupBoxMontag.TabIndex = 12
Me.GroupBoxMontag.TabStop = False Me.GroupBoxMontag.TabStop = False
Me.GroupBoxMontag.Text = "Montag" Me.GroupBoxMontag.Text = "Montag"
@@ -382,7 +383,7 @@ Partial Class frmEssensbestellungen
' '
Me.txtMenu_montag.Location = New System.Drawing.Point(3, 39) Me.txtMenu_montag.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_montag.Name = "txtMenu_montag" Me.txtMenu_montag.Name = "txtMenu_montag"
Me.txtMenu_montag.Size = New System.Drawing.Size(188, 32) Me.txtMenu_montag.Size = New System.Drawing.Size(236, 46)
Me.txtMenu_montag.TabIndex = 29 Me.txtMenu_montag.TabIndex = 29
Me.txtMenu_montag.Text = "Menutext" Me.txtMenu_montag.Text = "Menutext"
' '
@@ -422,12 +423,12 @@ Partial Class frmEssensbestellungen
Me.txtAlt_montag._Waehrung = False Me.txtAlt_montag._Waehrung = False
Me.txtAlt_montag._WaehrungZeichen = True Me.txtAlt_montag._WaehrungZeichen = True
Me.txtAlt_montag.ForeColor = System.Drawing.Color.Black Me.txtAlt_montag.ForeColor = System.Drawing.Color.Black
Me.txtAlt_montag.Location = New System.Drawing.Point(3, 92) Me.txtAlt_montag.Location = New System.Drawing.Point(3, 106)
Me.txtAlt_montag.MaxLineLength = -1 Me.txtAlt_montag.MaxLineLength = -1
Me.txtAlt_montag.MaxLines_Warning = "" Me.txtAlt_montag.MaxLines_Warning = ""
Me.txtAlt_montag.MaxLines_Warning_Label = Nothing Me.txtAlt_montag.MaxLines_Warning_Label = Nothing
Me.txtAlt_montag.Name = "txtAlt_montag" Me.txtAlt_montag.Name = "txtAlt_montag"
Me.txtAlt_montag.Size = New System.Drawing.Size(177, 20) Me.txtAlt_montag.Size = New System.Drawing.Size(236, 20)
Me.txtAlt_montag.TabIndex = 2 Me.txtAlt_montag.TabIndex = 2
Me.txtAlt_montag.Visible = False Me.txtAlt_montag.Visible = False
' '
@@ -435,7 +436,7 @@ Partial Class frmEssensbestellungen
' '
Me.rbMenuAlt_montag.AutoSize = True Me.rbMenuAlt_montag.AutoSize = True
Me.rbMenuAlt_montag.GroupName = "GroupBox1" Me.rbMenuAlt_montag.GroupName = "GroupBox1"
Me.rbMenuAlt_montag.Location = New System.Drawing.Point(3, 74) Me.rbMenuAlt_montag.Location = New System.Drawing.Point(3, 88)
Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag" Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag"
Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_montag.TabIndex = 1 Me.rbMenuAlt_montag.TabIndex = 1
@@ -463,9 +464,9 @@ Partial Class frmEssensbestellungen
Me.GroupBoxFreitag.Controls.Add(Me.txtAlt_freitag) Me.GroupBoxFreitag.Controls.Add(Me.txtAlt_freitag)
Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_freitag) Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_freitag)
Me.GroupBoxFreitag.Controls.Add(Me.rbMenu__freitag) Me.GroupBoxFreitag.Controls.Add(Me.rbMenu__freitag)
Me.GroupBoxFreitag.Location = New System.Drawing.Point(219, 135) Me.GroupBoxFreitag.Location = New System.Drawing.Point(264, 149)
Me.GroupBoxFreitag.Name = "GroupBoxFreitag" Me.GroupBoxFreitag.Name = "GroupBoxFreitag"
Me.GroupBoxFreitag.Size = New System.Drawing.Size(200, 121) Me.GroupBoxFreitag.Size = New System.Drawing.Size(242, 136)
Me.GroupBoxFreitag.TabIndex = 13 Me.GroupBoxFreitag.TabIndex = 13
Me.GroupBoxFreitag.TabStop = False Me.GroupBoxFreitag.TabStop = False
Me.GroupBoxFreitag.Text = "Freitag" Me.GroupBoxFreitag.Text = "Freitag"
@@ -474,7 +475,7 @@ Partial Class frmEssensbestellungen
' '
Me.txtMenu_freitag.Location = New System.Drawing.Point(3, 39) Me.txtMenu_freitag.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_freitag.Name = "txtMenu_freitag" Me.txtMenu_freitag.Name = "txtMenu_freitag"
Me.txtMenu_freitag.Size = New System.Drawing.Size(188, 32) Me.txtMenu_freitag.Size = New System.Drawing.Size(236, 51)
Me.txtMenu_freitag.TabIndex = 32 Me.txtMenu_freitag.TabIndex = 32
Me.txtMenu_freitag.Text = "Menutext" Me.txtMenu_freitag.Text = "Menutext"
' '
@@ -514,12 +515,12 @@ Partial Class frmEssensbestellungen
Me.txtAlt_freitag._Waehrung = False Me.txtAlt_freitag._Waehrung = False
Me.txtAlt_freitag._WaehrungZeichen = True Me.txtAlt_freitag._WaehrungZeichen = True
Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black
Me.txtAlt_freitag.Location = New System.Drawing.Point(3, 97) Me.txtAlt_freitag.Location = New System.Drawing.Point(3, 112)
Me.txtAlt_freitag.MaxLineLength = -1 Me.txtAlt_freitag.MaxLineLength = -1
Me.txtAlt_freitag.MaxLines_Warning = "" Me.txtAlt_freitag.MaxLines_Warning = ""
Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing
Me.txtAlt_freitag.Name = "txtAlt_freitag" Me.txtAlt_freitag.Name = "txtAlt_freitag"
Me.txtAlt_freitag.Size = New System.Drawing.Size(177, 20) Me.txtAlt_freitag.Size = New System.Drawing.Size(233, 20)
Me.txtAlt_freitag.TabIndex = 2 Me.txtAlt_freitag.TabIndex = 2
Me.txtAlt_freitag.Visible = False Me.txtAlt_freitag.Visible = False
' '
@@ -527,7 +528,7 @@ Partial Class frmEssensbestellungen
' '
Me.rbMenuAlt_freitag.AutoSize = True Me.rbMenuAlt_freitag.AutoSize = True
Me.rbMenuAlt_freitag.GroupName = "Freitag" Me.rbMenuAlt_freitag.GroupName = "Freitag"
Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(3, 78) Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(3, 93)
Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag" Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag"
Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_freitag.TabIndex = 1 Me.rbMenuAlt_freitag.TabIndex = 1
@@ -550,7 +551,7 @@ Partial Class frmEssensbestellungen
'txtAnzahlLaCart 'txtAnzahlLaCart
' '
Me.txtAnzahlLaCart.AutoSize = True Me.txtAnzahlLaCart.AutoSize = True
Me.txtAnzahlLaCart.Location = New System.Drawing.Point(553, 162) Me.txtAnzahlLaCart.Location = New System.Drawing.Point(640, 212)
Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart" Me.txtAnzahlLaCart.Name = "txtAnzahlLaCart"
Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13) Me.txtAnzahlLaCart.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlLaCart.TabIndex = 17 Me.txtAnzahlLaCart.TabIndex = 17
@@ -559,7 +560,7 @@ Partial Class frmEssensbestellungen
'lbl2 'lbl2
' '
Me.lbl2.AutoSize = True Me.lbl2.AutoSize = True
Me.lbl2.Location = New System.Drawing.Point(463, 162) Me.lbl2.Location = New System.Drawing.Point(550, 212)
Me.lbl2.Name = "lbl2" Me.lbl2.Name = "lbl2"
Me.lbl2.Size = New System.Drawing.Size(90, 13) Me.lbl2.Size = New System.Drawing.Size(90, 13)
Me.lbl2.TabIndex = 15 Me.lbl2.TabIndex = 15
@@ -573,9 +574,9 @@ Partial Class frmEssensbestellungen
Me.Mittwoch.Controls.Add(Me.txtAlt_mittwoch) Me.Mittwoch.Controls.Add(Me.txtAlt_mittwoch)
Me.Mittwoch.Controls.Add(Me.rbMenuAlt_mittwoch) Me.Mittwoch.Controls.Add(Me.rbMenuAlt_mittwoch)
Me.Mittwoch.Controls.Add(Me.rbMenu_mittwoch) Me.Mittwoch.Controls.Add(Me.rbMenu_mittwoch)
Me.Mittwoch.Location = New System.Drawing.Point(431, 8) Me.Mittwoch.Location = New System.Drawing.Point(513, 8)
Me.Mittwoch.Name = "Mittwoch" Me.Mittwoch.Name = "Mittwoch"
Me.Mittwoch.Size = New System.Drawing.Size(200, 121) Me.Mittwoch.Size = New System.Drawing.Size(242, 132)
Me.Mittwoch.TabIndex = 13 Me.Mittwoch.TabIndex = 13
Me.Mittwoch.TabStop = False Me.Mittwoch.TabStop = False
Me.Mittwoch.Text = "Mittwoch" Me.Mittwoch.Text = "Mittwoch"
@@ -584,7 +585,7 @@ Partial Class frmEssensbestellungen
' '
Me.txtMenu_mittwoch.Location = New System.Drawing.Point(3, 39) Me.txtMenu_mittwoch.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch" Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch"
Me.txtMenu_mittwoch.Size = New System.Drawing.Size(188, 32) Me.txtMenu_mittwoch.Size = New System.Drawing.Size(236, 46)
Me.txtMenu_mittwoch.TabIndex = 31 Me.txtMenu_mittwoch.TabIndex = 31
Me.txtMenu_mittwoch.Text = "Menutext" Me.txtMenu_mittwoch.Text = "Menutext"
' '
@@ -624,12 +625,12 @@ Partial Class frmEssensbestellungen
Me.txtAlt_mittwoch._Waehrung = False Me.txtAlt_mittwoch._Waehrung = False
Me.txtAlt_mittwoch._WaehrungZeichen = True Me.txtAlt_mittwoch._WaehrungZeichen = True
Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black
Me.txtAlt_mittwoch.Location = New System.Drawing.Point(3, 93) Me.txtAlt_mittwoch.Location = New System.Drawing.Point(3, 107)
Me.txtAlt_mittwoch.MaxLineLength = -1 Me.txtAlt_mittwoch.MaxLineLength = -1
Me.txtAlt_mittwoch.MaxLines_Warning = "" Me.txtAlt_mittwoch.MaxLines_Warning = ""
Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing
Me.txtAlt_mittwoch.Name = "txtAlt_mittwoch" Me.txtAlt_mittwoch.Name = "txtAlt_mittwoch"
Me.txtAlt_mittwoch.Size = New System.Drawing.Size(177, 20) Me.txtAlt_mittwoch.Size = New System.Drawing.Size(236, 20)
Me.txtAlt_mittwoch.TabIndex = 2 Me.txtAlt_mittwoch.TabIndex = 2
Me.txtAlt_mittwoch.Visible = False Me.txtAlt_mittwoch.Visible = False
' '
@@ -637,7 +638,7 @@ Partial Class frmEssensbestellungen
' '
Me.rbMenuAlt_mittwoch.AutoSize = True Me.rbMenuAlt_mittwoch.AutoSize = True
Me.rbMenuAlt_mittwoch.GroupName = "Mittwoch" Me.rbMenuAlt_mittwoch.GroupName = "Mittwoch"
Me.rbMenuAlt_mittwoch.Location = New System.Drawing.Point(3, 74) Me.rbMenuAlt_mittwoch.Location = New System.Drawing.Point(3, 88)
Me.rbMenuAlt_mittwoch.Name = "rbMenuAlt_mittwoch" Me.rbMenuAlt_mittwoch.Name = "rbMenuAlt_mittwoch"
Me.rbMenuAlt_mittwoch.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_mittwoch.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_mittwoch.TabIndex = 1 Me.rbMenuAlt_mittwoch.TabIndex = 1
@@ -665,9 +666,9 @@ Partial Class frmEssensbestellungen
Me.GroupBoxDonnerstag.Controls.Add(Me.txtAlt_donnerstag) Me.GroupBoxDonnerstag.Controls.Add(Me.txtAlt_donnerstag)
Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_donnerstag) Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_donnerstag)
Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_donnerstag) Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_donnerstag)
Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 135) Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 146)
Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag" Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag"
Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(200, 121) Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(245, 136)
Me.GroupBoxDonnerstag.TabIndex = 13 Me.GroupBoxDonnerstag.TabIndex = 13
Me.GroupBoxDonnerstag.TabStop = False Me.GroupBoxDonnerstag.TabStop = False
Me.GroupBoxDonnerstag.Text = "Donnerstag" Me.GroupBoxDonnerstag.Text = "Donnerstag"
@@ -676,7 +677,7 @@ Partial Class frmEssensbestellungen
' '
Me.txtMenu_donnerstag.Location = New System.Drawing.Point(3, 39) Me.txtMenu_donnerstag.Location = New System.Drawing.Point(3, 39)
Me.txtMenu_donnerstag.Name = "txtMenu_donnerstag" Me.txtMenu_donnerstag.Name = "txtMenu_donnerstag"
Me.txtMenu_donnerstag.Size = New System.Drawing.Size(188, 32) Me.txtMenu_donnerstag.Size = New System.Drawing.Size(239, 51)
Me.txtMenu_donnerstag.TabIndex = 33 Me.txtMenu_donnerstag.TabIndex = 33
Me.txtMenu_donnerstag.Text = "Menutext" Me.txtMenu_donnerstag.Text = "Menutext"
' '
@@ -716,12 +717,12 @@ Partial Class frmEssensbestellungen
Me.txtAlt_donnerstag._Waehrung = False Me.txtAlt_donnerstag._Waehrung = False
Me.txtAlt_donnerstag._WaehrungZeichen = True Me.txtAlt_donnerstag._WaehrungZeichen = True
Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black
Me.txtAlt_donnerstag.Location = New System.Drawing.Point(3, 97) Me.txtAlt_donnerstag.Location = New System.Drawing.Point(3, 112)
Me.txtAlt_donnerstag.MaxLineLength = -1 Me.txtAlt_donnerstag.MaxLineLength = -1
Me.txtAlt_donnerstag.MaxLines_Warning = "" Me.txtAlt_donnerstag.MaxLines_Warning = ""
Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing
Me.txtAlt_donnerstag.Name = "txtAlt_donnerstag" Me.txtAlt_donnerstag.Name = "txtAlt_donnerstag"
Me.txtAlt_donnerstag.Size = New System.Drawing.Size(177, 20) Me.txtAlt_donnerstag.Size = New System.Drawing.Size(239, 20)
Me.txtAlt_donnerstag.TabIndex = 2 Me.txtAlt_donnerstag.TabIndex = 2
Me.txtAlt_donnerstag.Visible = False Me.txtAlt_donnerstag.Visible = False
' '
@@ -729,7 +730,7 @@ Partial Class frmEssensbestellungen
' '
Me.rbMenuAlt_donnerstag.AutoSize = True Me.rbMenuAlt_donnerstag.AutoSize = True
Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag" Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag"
Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(3, 78) Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(3, 93)
Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag" Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag"
Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17) Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17)
Me.rbMenuAlt_donnerstag.TabIndex = 1 Me.rbMenuAlt_donnerstag.TabIndex = 1
@@ -752,7 +753,7 @@ Partial Class frmEssensbestellungen
'txtAnzahlMenu 'txtAnzahlMenu
' '
Me.txtAnzahlMenu.AutoSize = True Me.txtAnzahlMenu.AutoSize = True
Me.txtAnzahlMenu.Location = New System.Drawing.Point(553, 137) Me.txtAnzahlMenu.Location = New System.Drawing.Point(640, 187)
Me.txtAnzahlMenu.Name = "txtAnzahlMenu" Me.txtAnzahlMenu.Name = "txtAnzahlMenu"
Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13) Me.txtAnzahlMenu.Size = New System.Drawing.Size(13, 13)
Me.txtAnzahlMenu.TabIndex = 16 Me.txtAnzahlMenu.TabIndex = 16
@@ -784,7 +785,7 @@ Partial Class frmEssensbestellungen
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle2 Me.dgvBestellungen.DefaultCellStyle = DataGridViewCellStyle2
Me.dgvBestellungen.Location = New System.Drawing.Point(0, 434) Me.dgvBestellungen.Location = New System.Drawing.Point(0, 468)
Me.dgvBestellungen.Name = "dgvBestellungen" Me.dgvBestellungen.Name = "dgvBestellungen"
Me.dgvBestellungen.ReadOnly = True Me.dgvBestellungen.ReadOnly = True
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
@@ -797,7 +798,7 @@ Partial Class frmEssensbestellungen
Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 Me.dgvBestellungen.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.dgvBestellungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvBestellungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvBestellungen.ShowEditingIcon = False Me.dgvBestellungen.ShowEditingIcon = False
Me.dgvBestellungen.Size = New System.Drawing.Size(712, 165) Me.dgvBestellungen.Size = New System.Drawing.Size(767, 165)
Me.dgvBestellungen.TabIndex = 2 Me.dgvBestellungen.TabIndex = 2
' '
'cbxMenu 'cbxMenu
@@ -816,7 +817,7 @@ Partial Class frmEssensbestellungen
'txtAbteilung 'txtAbteilung
' '
Me.txtAbteilung.AutoSize = True Me.txtAbteilung.AutoSize = True
Me.txtAbteilung.Location = New System.Drawing.Point(577, 74) Me.txtAbteilung.Location = New System.Drawing.Point(661, 68)
Me.txtAbteilung.Name = "txtAbteilung" Me.txtAbteilung.Name = "txtAbteilung"
Me.txtAbteilung.Size = New System.Drawing.Size(29, 13) Me.txtAbteilung.Size = New System.Drawing.Size(29, 13)
Me.txtAbteilung.TabIndex = 23 Me.txtAbteilung.TabIndex = 23
@@ -824,9 +825,9 @@ Partial Class frmEssensbestellungen
' '
'Button2 'Button2
' '
Me.Button2.Location = New System.Drawing.Point(499, 399) Me.Button2.Location = New System.Drawing.Point(637, 421)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(180, 21) Me.Button2.Size = New System.Drawing.Size(130, 21)
Me.Button2.TabIndex = 25 Me.Button2.TabIndex = 25
Me.Button2.Text = "meine Bestellungen anzeigen" Me.Button2.Text = "meine Bestellungen anzeigen"
Me.Button2.UseVisualStyleBackColor = True Me.Button2.UseVisualStyleBackColor = True
@@ -834,7 +835,7 @@ Partial Class frmEssensbestellungen
'txtMA 'txtMA
' '
Me.txtMA.AutoSize = True Me.txtMA.AutoSize = True
Me.txtMA.Location = New System.Drawing.Point(581, 55) Me.txtMA.Location = New System.Drawing.Point(665, 52)
Me.txtMA.Name = "txtMA" Me.txtMA.Name = "txtMA"
Me.txtMA.Size = New System.Drawing.Size(0, 13) Me.txtMA.Size = New System.Drawing.Size(0, 13)
Me.txtMA.TabIndex = 27 Me.txtMA.TabIndex = 27
@@ -842,7 +843,7 @@ Partial Class frmEssensbestellungen
'Label3 'Label3
' '
Me.Label3.AutoSize = True Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(507, 55) Me.Label3.Location = New System.Drawing.Point(591, 51)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(59, 13) Me.Label3.Size = New System.Drawing.Size(59, 13)
Me.Label3.TabIndex = 26 Me.Label3.TabIndex = 26
@@ -851,7 +852,7 @@ Partial Class frmEssensbestellungen
'PictureBox1 'PictureBox1
' '
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.documents Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.documents
Me.PictureBox1.Location = New System.Drawing.Point(442, 73) Me.PictureBox1.Location = New System.Drawing.Point(526, 67)
Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(42, 37) Me.PictureBox1.Size = New System.Drawing.Size(42, 37)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
@@ -861,7 +862,7 @@ Partial Class frmEssensbestellungen
'Label1 'Label1
' '
Me.Label1.AutoSize = True Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(446, 57) Me.Label1.Location = New System.Drawing.Point(530, 51)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(34, 13) Me.Label1.Size = New System.Drawing.Size(34, 13)
Me.Label1.TabIndex = 28 Me.Label1.TabIndex = 28
@@ -883,7 +884,7 @@ Partial Class frmEssensbestellungen
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(0, 0) Me.pnlTop.Location = New System.Drawing.Point(0, 0)
Me.pnlTop.Name = "pnlTop" Me.pnlTop.Name = "pnlTop"
Me.pnlTop.Size = New System.Drawing.Size(712, 48) Me.pnlTop.Size = New System.Drawing.Size(771, 48)
Me.pnlTop.TabIndex = 30 Me.pnlTop.TabIndex = 30
' '
'Label4 'Label4
@@ -900,7 +901,7 @@ Partial Class frmEssensbestellungen
'Label5 'Label5
' '
Me.Label5.AutoSize = True Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(443, 114) Me.Label5.Location = New System.Drawing.Point(527, 108)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(64, 13) Me.Label5.Size = New System.Drawing.Size(64, 13)
Me.Label5.TabIndex = 31 Me.Label5.TabIndex = 31
@@ -921,7 +922,7 @@ Partial Class frmEssensbestellungen
Me.txtAnmerkung._Waehrung = False Me.txtAnmerkung._Waehrung = False
Me.txtAnmerkung._WaehrungZeichen = True Me.txtAnmerkung._WaehrungZeichen = True
Me.txtAnmerkung.ForeColor = System.Drawing.Color.Black Me.txtAnmerkung.ForeColor = System.Drawing.Color.Black
Me.txtAnmerkung.Location = New System.Drawing.Point(510, 111) Me.txtAnmerkung.Location = New System.Drawing.Point(594, 105)
Me.txtAnmerkung.MaxLineLength = -1 Me.txtAnmerkung.MaxLineLength = -1
Me.txtAnmerkung.MaxLines_Warning = "" Me.txtAnmerkung.MaxLines_Warning = ""
Me.txtAnmerkung.MaxLines_Warning_Label = Nothing Me.txtAnmerkung.MaxLines_Warning_Label = Nothing
@@ -929,11 +930,21 @@ Partial Class frmEssensbestellungen
Me.txtAnmerkung.Size = New System.Drawing.Size(169, 20) Me.txtAnmerkung.Size = New System.Drawing.Size(169, 20)
Me.txtAnmerkung.TabIndex = 33 Me.txtAnmerkung.TabIndex = 33
' '
'lbloffenerBetrag
'
Me.lbloffenerBetrag.AutoSize = True
Me.lbloffenerBetrag.Location = New System.Drawing.Point(634, 445)
Me.lbloffenerBetrag.Name = "lbloffenerBetrag"
Me.lbloffenerBetrag.Size = New System.Drawing.Size(80, 13)
Me.lbloffenerBetrag.TabIndex = 34
Me.lbloffenerBetrag.Text = "offener Betrag: "
'
'frmEssensbestellungen 'frmEssensbestellungen
' '
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(712, 643) Me.ClientSize = New System.Drawing.Size(771, 677)
Me.Controls.Add(Me.lbloffenerBetrag)
Me.Controls.Add(Me.txtAnmerkung) Me.Controls.Add(Me.txtAnmerkung)
Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.pnlTop) Me.Controls.Add(Me.pnlTop)
@@ -1055,4 +1066,5 @@ Partial Class frmEssensbestellungen
Friend WithEvents lblWarning As Label Friend WithEvents lblWarning As Label
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents txtAnmerkung As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtAnmerkung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lbloffenerBetrag As Label
End Class End Class

41
SDL/frmEssensbestellungen.vb
View File

@@ -7,18 +7,15 @@ Public Class frmEssensbestellungen
Dim essen As New cEssensbestellung() Dim essen As New cEssensbestellung()
Dim dt As New DataTable Dim dt As New DataTable
Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip() 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) Private ToolTipFont As New Font("Courier New", 12)
Dim preisProMahlzeit As Double = 3 Dim preisProMahlzeit As Double = 3
Dim menu As String = "Menü" Dim menu As String = "Menü"
Dim alacarte As String = "A la carte" Dim alacarte As String = "A la carte"
Dim outdated As Boolean = False
Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmEssensbestellungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE() cbxMenu.fillWithSQL("SELECT Distinct Top 50 (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' + Convert(varchar, Year(MenuDateVon)), MenuDateVon from tblEBMenu order by MenuDateVon desc", True, "AVISO", True) '/ where MenuDateVon >= GETDATE()
txtMA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME txtMA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
@@ -32,6 +29,7 @@ Public Class frmEssensbestellungen
cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cbxGebauede.changeItem("") cbxGebauede.changeItem("")
btnSave.Enabled = False btnSave.Enabled = False
calcOffeneSumme()
End Sub End Sub
@@ -298,7 +296,7 @@ Public Class frmEssensbestellungen
Dim SQLWhere As String = "" Dim SQLWhere As String = ""
If cbxMenu._value IsNot "" Then SQLWhere = " AND [eb_kw] = '" & cbxMenu._value.ToString & "'" 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], [eb_mitname], [eb_datum], [eb_anmerkung] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc" 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], [eb_anmerkung], [eb_abgerechnet] FROM [tblEssensbestellungen] where [eb_mitid] = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "'" & SQLWhere & " order by [eb_datum] desc"
dgvBestellungen.SET_SQL(SQLString, "AVISO", ,) dgvBestellungen.SET_SQL(SQLString, "AVISO", ,)
dgvBestellungen.LOAD() dgvBestellungen.LOAD()
@@ -330,10 +328,19 @@ Public Class frmEssensbestellungen
.Columns("eb_preis").HeaderText = "Preis" .Columns("eb_preis").HeaderText = "Preis"
.Columns("eb_preis").Width = 40 .Columns("eb_preis").Width = 40
.Columns("eb_preis").DefaultCellStyle.Format = "N" .Columns("eb_preis").DefaultCellStyle.Format = "N"
.Columns("eb_anmerkung").HeaderText = "Anm" .Columns("eb_anmerkung").HeaderText = "Anm."
.Columns("eb_anmerkung").Width = 80 .Columns("eb_anmerkung").Width = 70
.Columns("eb_abgerechnet").HeaderText = "verrechnet"
.Columns("eb_abgerechnet").Width = 70
End With End With
For Each row As DataGridViewRow In dgvBestellungen.Rows
If Not IsDBNull(row.Cells("eb_abgerechnet").Value) Then
If row.Cells("eb_abgerechnet").Value Then row.DefaultCellStyle.BackColor = Color.LightGreen
End If
Next
End Sub End Sub
Private Sub uncheckGroupBoxesAndRadioButtons(sender, e) Private Sub uncheckGroupBoxesAndRadioButtons(sender, e)
@@ -365,12 +372,12 @@ Public Class frmEssensbestellungen
If TypeOf gb Is GroupBox Then If TypeOf gb Is GroupBox Then
For Each c As Control In gb.Controls For Each c As Control In gb.Controls
If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then If c.Text.ToLower.StartsWith(menu.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
If rb.Checked Then countMenus = countMenus + 1 If rb.Checked Then countMenus = countMenus + 1
End If End If
If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso c.Enabled = True Then If c.Text.ToLower.StartsWith(alacarte.ToLower) AndAlso TypeOf c Is VERAG_PROG_ALLGEMEIN.MyRadioButton AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then
Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c Dim rb As VERAG_PROG_ALLGEMEIN.MyRadioButton = c
If rb.Checked Then countlaCarte = countlaCarte + 1 If rb.Checked Then countlaCarte = countlaCarte + 1
End If End If
@@ -541,7 +548,10 @@ Public Class frmEssensbestellungen
Private Function checkIfOrderIsPossible() As Boolean Private Function checkIfOrderIsPossible() As Boolean
If dt.Rows.Count = 0 Then Return False If dt.Rows.Count = 0 Then
outdated = True
Return False
End If
Try Try
Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon")) Dim startMenu = Date.Parse(dt.Rows(0).Item("MenuDateVon"))
@@ -560,9 +570,11 @@ Public Class frmEssensbestellungen
If Now >= timeToOrderLimit Then If Now >= timeToOrderLimit Then
lblBestellungBis.ForeColor = Color.Red lblBestellungBis.ForeColor = Color.Red
outdated = True
Return False Return False
Else Else
lblBestellungBis.ForeColor = Color.Black lblBestellungBis.ForeColor = Color.Black
outdated = False
Return True Return True
End If End If
Catch ex As Exception Catch ex As Exception
@@ -614,4 +626,13 @@ Public Class frmEssensbestellungen
End Sub End Sub
Private Sub calcOffeneSumme()
Dim sum As Double
sum = SQL.DLookup("SUM(eb_preis)", "[tblEssensbestellungen]", "eb_mitid ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "' AND ISNULL([eb_abgerechnet],0)=0", "AVISO", "0")
lbloffenerBetrag.Text &= sum.ToString("C2")
End Sub
End Class End Class

6
VERAG_PROG_ALLGEMEIN/Classes/cFeiertage.vb
View File

@@ -5,9 +5,9 @@
''' <summary> ''' <summary>
''' Initialisiert die Feiertags-Klasse für das aktuelle Jahr ''' Initialisiert die Feiertags-Klasse für das aktuelle Jahr
''' </summary> ''' </summary>
Public Sub New() 'Public Sub New()
_Year = Now.Year ' _Year = Now.Year
End Sub 'End Sub
''' <summary> ''' <summary>
''' Initialisiert die Feiertags-Klasse für das angegebene Jahr ''' Initialisiert die Feiertags-Klasse für das angegebene Jahr

2
VERAG_PROG_ALLGEMEIN/Classes/cMessenger.vb
View File

@@ -354,7 +354,7 @@ Public Class cMessenger
End Function End Function
Public Function READ_ALL_MESSAGES() As Boolean Public Function READ_ALL_MESSAGES() As Boolean
Dim sqlstr = "UPDATE tblMessenger_ChatMessageStatus SET chatMgSt_gelesen=1 FROM [tblMessenger_Chat] INNER JOIN tblMessenger_ChatMessages ON [chat_id]=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chat_id=" & Me.chat_id & " AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0 AND [chatMgSt_art]='STAT' " Dim sqlstr = "UPDATE tblMessenger_ChatMessageStatus SET chatMgSt_gelesen=1 FROM [tblMessenger_Chat] INNER JOIN tblMessenger_ChatMessages ON [chat_id]=chatMg_chatId INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE chat_id=" & Me.chat_id & " AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0 AND ([chatMgSt_art]='STAT' OR [chatMgSt_art]='STATUS') "
Return SQL.doSQL(sqlstr, "ADMIN") Return SQL.doSQL(sqlstr, "ADMIN")
End Function End Function

13
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -24,6 +24,7 @@ Partial Class frmMessenger
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 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 DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -38,11 +39,11 @@ Partial Class frmMessenger
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer() Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel6 = New System.Windows.Forms.Panel() Me.Panel6 = New System.Windows.Forms.Panel()
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label() Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox() Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview() Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel5 = New System.Windows.Forms.Panel() Me.Panel5 = New System.Windows.Forms.Panel()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox() Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -63,7 +64,7 @@ Partial Class frmMessenger
Me.btnNeu = New System.Windows.Forms.Button() Me.btnNeu = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel() Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement() Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnTeilnehmer = New System.Windows.Forms.Button() Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -90,9 +91,9 @@ Partial Class frmMessenger
Me.btnSendAtt = New System.Windows.Forms.Button() Me.btnSendAtt = New System.Windows.Forms.Button()
Me.btnSenden = New System.Windows.Forms.Button() Me.btnSenden = New System.Windows.Forms.Button()
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox() Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer() Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
Me.Timer_REFRESH = New System.Windows.Forms.Timer() Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.cntxt = New System.Windows.Forms.ContextMenuStrip() Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem() Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()

238
VERAG_PROG_ALLGEMEIN/Schnittstellen/cDatev_Interface.vb
View File

@@ -8,18 +8,18 @@
Shared Kontenlänge As Integer = 6 Shared Kontenlänge As Integer = 6
Shared Formatversion As Integer = 4 Shared Formatversion As Integer = 4
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
'STAMMDATEN 'STAMMDATEN
Shared Function getStammdaten() As DataTable Shared Function getStammdaten(filialNr As Integer) As DataTable
Dim sqlStr = "Select top (10) KundenNrZentrale As [Kontonummer], isnull([Name 1],'') as Name, isnull([Name 2],'') as Name2, LTRIM([Ort]) as Ort,KundenNr As [Kundennummer],isnull(UstIdKz,'') As [EU-Land] ,isnull(UstIdNr,'') As [EU-UstID], isnull(Anrede,'') as Anrede,isnull(KTO,'') as Bankkonto, isnull(BLZ,'') as [BLZ], '' as [Bankname], '' as [Länderkennzeichen Bank], '' as [IBAN], '' as [BIC], '' as [Anrede], '' as [Adresszusatz], ISNULL([Strasse],'') as Strasse, ISNULL(PLZ,'') as PLZ, isnull(UstIdNr,'') as [Steuernummer], isnull(Ansprechpartner,'') as [Ansprechpartner], isnull(Telefon,'') as [Telefonnummer], isnull([E-Mail],'') as [E-Mail], isnull([Telefax],'') as [Faxnummer], '' as [Internetadresse], isnull(Adressen.landkz,'') as [Länderkennzeichen]" Dim sqlStr = "Select TOP (1000) KundenNrZentrale As [Kontonummer], isnull([Ordnungsbegriff],'') as Ordnungsbegriff, isnull([Name 1],'') as Name, isnull([Name 2],'') as Name2, LTRIM([Ort]) as Ort,KundenNr As [Kundennummer],isnull(UstIdKz,'') As [EU-Land] ,isnull(UstIdNr,'') As [EU-UstID], isnull(Anrede,'') as Anrede,isnull(KTO,'') as Bankkonto, isnull(BLZ,'') as [BLZ], '' as [Bankname], '' as [Länderkennzeichen Bank], '' as [IBAN], '' as [BIC], '' as [Anrede], '' as [Adresszusatz], ISNULL([Strasse],'') as Strasse, ISNULL(PLZ,'') as PLZ, isnull(UstIdNr,'') as [Steuernummer], isnull(Ansprechpartner,'') as [Ansprechpartner], isnull(Telefon,'') as [Telefonnummer], isnull([E-Mail],'') as [E-Mail], isnull([Telefax],'') as [Faxnummer], '' as [Internetadresse], isnull(Adressen.landkz,'') as [Länderkennzeichen]"
sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr " sqlStr &= " FROM Adressen INNER JOIN Kunden ON Kundennr=AdressenNr "
sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr " sqlStr &= " LEFT JOIN tblKundenErweitert ON KundenNr=kde_KundenNr "
sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz " sqlStr &= " LEFT JOIN [Länderverzeichnis für die Außenhandelsstatistik] as St ON St.LandKz=Adressen.LandKz "
sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel " sqlStr &= " LEFT JOIN Währungstabelle ON St.LandNr = Währungstabelle.Währungsschlüssel "
sqlStr &= "WHERE Auswahl='A' AND FilialenNr='5701' AND FiBuSchnittstelle=1 " sqlStr &= "WHERE Auswahl='A' AND FilialenNr='" & filialNr & "'" 'AND FiBuSchnittstelle=1
sqlStr &= " Order by [Kontonummer] " sqlStr &= " Order by [Kontonummer] "
Return SQL.loadDgvBySql(sqlStr, "FMZOLL") Return SQL.loadDgvBySql(sqlStr, "FMZOLL")
End Function End Function
'
Shared Function updateFibu() As DataTable Shared Function updateFibu() As DataTable
Dim sqlStr = " UPDATE Kunden " Dim sqlStr = " UPDATE Kunden "
@@ -40,12 +40,12 @@
Dim personenRow As String = "" Dim personenRow As String = ""
personenRow &= row("Kontonummer") & ";" 'Mapping für KOntonummern einbauen weil bei AMBAR Kontonummer <> Kundennummer personenRow &= row("Kontonummer") & ";" 'Mapping für KOntonummern einbauen weil bei AMBAR Kundennummer <> DebitorenNr Datev
personenRow &= FormatStringDVO(row("Name"), 50) & ";" personenRow &= FormatStringDVO(row("Name"), 50) & ";"
personenRow &= FormatStringDVO(row("Name2"), 50) & ";" personenRow &= FormatStringDVO(row("Name2"), 50) & ";"
personenRow &= emptyFormatedValue(4) personenRow &= emptyFormatedValue(4)
'personenRow &= FormatStringDVO(2) & ";" 'Typ Unternehmen 'personenRow &= FormatStringDVO(2) & ";" 'Typ Unternehmen
personenRow &= FormatStringDVO(row("Name"), 15) & ";" personenRow &= FormatStringDVO(row("Ordnungsbegriff"), 15) & ";"
personenRow &= FormatStringDVO(row("EU-Land")) & ";" personenRow &= FormatStringDVO(row("EU-Land")) & ";"
personenRow &= FormatStringDVO(row("EU-UstID")) & ";" personenRow &= FormatStringDVO(row("EU-UstID")) & ";"
personenRow &= FormatStringDVO(row("Anrede")) & ";" personenRow &= FormatStringDVO(row("Anrede")) & ";"
@@ -78,11 +78,23 @@
End Function End Function
Public Shared Function genDatensatzCSV_Stammdaten(Optional OpenFile As Boolean = False, Optional Geschaeftsjahr As Integer = -1) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean Public Shared Function genDatensatzCSV_Stammdaten(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False, Optional Geschaeftsjahr As Integer = -1) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean
Try Try
Dim bool_DatenVorhanden As Boolean = False Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID)
If Geschaeftsjahr <= 0 Then Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr Dim filialNr As Integer
Select Case FIRMA.Firma_ID
Case 24 : filialNr = 5701
Case Else : filialNr = -1
End Select
Dim bool_DatenVorhanden As Boolean = False
If Geschaeftsjahr <= 0 Then Geschaeftsjahr = Now.Year 'If(Now.Month = 1, Now.Year - 1, Now.Year) --> Bei IMEX ist das GJ=Wirtschaftsjahr
'DATEIPFAD für Stammdaten 'DATEIPFAD für Stammdaten
'------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------
@@ -91,20 +103,20 @@
'pathKD = pathArchivKD 'TEST 'pathKD = pathArchivKD 'TEST
If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir 'path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir
'pathArchivKD = "" 'pathArchivKD = ""
End If End If
If Not IO.Directory.Exists(pathKD) Then IO.Directory.CreateDirectory(pathKD) If Not IO.Directory.Exists(pathKD) Then IO.Directory.CreateDirectory(pathKD)
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD) If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
'------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------
If True Then 'boolKunden Then If True Then 'boolKunden Then
'----------------- STAMMDATEN ----------------- '----------------- STAMMDATEN -----------------
Dim dt_Stamm As DataTable = getStammdaten() Dim dt_Stamm As DataTable = getStammdaten(filialNr)
If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then If dt_Stamm IsNot Nothing AndAlso dt_Stamm.Rows.Count > 0 Then
Dim fileKD As System.IO.StreamWriter Dim fileKD As System.IO.StreamWriter
Dim DateinameKD = "DTVF_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv" Dim DateinameKD = "DTVF_KD_" & Now.ToString("ddMMyyyy_HHmm") & ".csv"
fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15")) fileKD = My.Computer.FileSystem.OpenTextFileWriter(pathKD & DateinameKD, True, System.Text.Encoding.GetEncoding("iso-8859-15"))
@@ -112,47 +124,47 @@
fileKD.WriteLine(genStammdatenHeader(Geschaeftsjahr)) fileKD.WriteLine(genStammdatenHeader(Geschaeftsjahr))
fileKD.WriteLine(genStammdatenBeginn()) fileKD.WriteLine(genStammdatenBeginn())
initKDNr(dt_Stamm) initKDNr(dt_Stamm, FIRMA.Firma_ID)
For Each r In dt_Stamm.Rows For Each r In dt_Stamm.Rows
fileKD.WriteLine(getPersonenKto(r)) fileKD.WriteLine(getPersonenKto(r))
Next Next
bool_DatenVorhanden = True bool_DatenVorhanden = True
fileKD.Close() fileKD.Close()
'In Archiv sichern 'In Archiv sichern
If pathArchivKD <> "" Then If pathArchivKD <> "" Then
If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD) If Not IO.Directory.Exists(pathArchivKD) Then IO.Directory.CreateDirectory(pathArchivKD)
If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD) If pathKD <> pathArchivKD Then IO.File.Copy(pathKD & DateinameKD, pathArchivKD & DateinameKD)
End If End If
If bool_DatenVorhanden Then If bool_DatenVorhanden Then
If OpenFile Then Process.Start(pathKD & DateinameKD) If OpenFile Then Process.Start(pathKD & DateinameKD)
Else Else
IO.File.Delete(pathKD & DateinameKD) IO.File.Delete(pathKD & DateinameKD)
End If End If
'updateFibu() ' UPDATE FiBuSchnittstelle --> 0 'updateFibu() ' UPDATE FiBuSchnittstelle --> 0
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace) MsgBox(ex.Message & ex.StackTrace)
End Try End Try
Return False Return False
End Function End Function
Public Shared Function genDatensatzCSV_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True, Optional Geschaeftsjahr As Integer = -1) As Boolean Public Shared Function genDatensatzCSV_ALL(Optional OpenFile As Boolean = False, Optional boolKunden As Boolean = True, Optional boolBuchungen As Boolean = True, Optional Geschaeftsjahr As Integer = -1) As Boolean
genDatensatzCSV_ALL = True genDatensatzCSV_ALL = True
If boolKunden Then If boolKunden Then
If Not genDatensatzCSV_Stammdaten(OpenFile, Geschaeftsjahr) Then genDatensatzCSV_ALL = False If Not genDatensatzCSV_Stammdaten(24, OpenFile, Geschaeftsjahr) Then genDatensatzCSV_ALL = False
End If End If
If boolBuchungen Then If boolBuchungen Then
If Not genDatensatzCSV_Buchungen(24, OpenFile, Geschaeftsjahr) Then genDatensatzCSV_ALL = False If Not genDatensatzCSV_Buchungen(24, OpenFile, Geschaeftsjahr) Then genDatensatzCSV_ALL = False
@@ -178,16 +190,15 @@
End If End If
If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path) If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv) If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
'------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------
Dim NameZusatz = ""
Dim NameZusatz = ""
Dim Buchungsjahr = -1 Dim Buchungsjahr = -1
Select Case FIRMA.Firma_ID Select Case FIRMA.Firma_ID
Case 21 : NameZusatz = "UNISPED_AT_" : Buchungsjahr = Geschaeftsjahr Case 21 : NameZusatz = "UNISPED_AT_" : Buchungsjahr = Geschaeftsjahr
Case 22 : NameZusatz = "UNISPED_DE_" : Buchungsjahr = Geschaeftsjahr Case 22 : NameZusatz = "UNISPED_DE_" : Buchungsjahr = Geschaeftsjahr
Case 23 : NameZusatz = "UNISPED_ZS_" : Buchungsjahr = Geschaeftsjahr Case 23 : NameZusatz = "UNISPED_ZS_" : Buchungsjahr = Geschaeftsjahr
Case 24 : NameZusatz = "AMBAR_" : Buchungsjahr = Geschaeftsjahr Case 24 : NameZusatz = "AMBAR_DE_" : Buchungsjahr = Geschaeftsjahr
End Select End Select
@@ -269,10 +280,10 @@
,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten ,sum(PROD.SteuerfreierBetragLokal) as SteuerfreierBetragLokal,sum(PROD.SteuerpflichtigerBetragFremd) as SteuerpflichtigerBetragFremd,sum(PROD.SteuerfreierBetragFremd) as SteuerfreierBetragFremd,min(Belegdaten) as Belegdaten
,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext ,min(Sachkonto) as Sachkonto,min(Buchungstext) as Buchungstext
FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer
WHERE IVO.Rechnungsnummer = '21400139' WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null
group by IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig group by IVO.Rechnungsnummer,IVO.rechnungsdatum,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig
ORDER BY Rechnungsdatum, Rechnungsnummer " ORDER BY Rechnungsdatum, Rechnungsnummer "
' --and IVO.Rechnungsnummer=19400002 ' --and IVO.Rechnungsnummer='21400139'
Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800) Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800)
'WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null 'WHERE Firma_ID ='" & Firma_ID & "' AND TrdinDateiname Is Null
@@ -293,7 +304,7 @@
headerString &= Datenkategorie.ToString & ";" headerString &= Datenkategorie.ToString & ";"
headerString &= Chr(34) & "Debitoren/Kreditoren" & Chr(34) & ";" 'Debitoren\Kreditoren headerString &= Chr(34) & "Debitoren/Kreditoren" & Chr(34) & ";" 'Debitoren\Kreditoren
headerString &= Formatversion.ToString & ";" headerString &= Formatversion.ToString & ";"
headerString &= ";;;;;" headerString &= emptyFormatedValueWithoutCommas(5)
headerString &= BeraterNr.ToString & ";" 'Beraternummer headerString &= BeraterNr.ToString & ";" 'Beraternummer
headerString &= MandantenNr.ToString & ";" 'Mandantennummer headerString &= MandantenNr.ToString & ";" 'Mandantennummer
headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
@@ -302,7 +313,7 @@
headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis
headerString &= "IMPORT AUS AVISO;" 'Bezeichnung headerString &= "IMPORT AUS AVISO;" 'Bezeichnung
headerString &= Chr(34) & Chr(34) & ";" headerString &= Chr(34) & Chr(34) & ";"
headerString &= ";;;;;;;;;;;;" headerString &= emptyFormatedValueWithoutCommas(12)
Return headerString Return headerString
End Function End Function
@@ -311,8 +322,8 @@
headerString &= datevVersion.ToString & ";" 'Versionnummer Datev headerString &= datevVersion.ToString & ";" 'Versionnummer Datev
headerString &= StapelbuchungsNr.ToString & ";" 'Stapelbuchungen headerString &= StapelbuchungsNr.ToString & ";" 'Stapelbuchungen
headerString &= Chr(34) & "Buchungsstapel" & Chr(34) & ";" 'Buchungsstapel headerString &= Chr(34) & "Buchungsstapel" & Chr(34) & ";" 'Buchungsstapel
headerString &= "11;" 'Buchungsstapel headerString &= "11;" 'Buchungsstapel -> 12 nicht möglich, steht aber in Schnittsetllenbeschreibung, 11 laut Testdaten???
headerString &= ";;;;;" headerString &= emptyFormatedValueWithoutCommas(5)
headerString &= BeraterNr.ToString & ";" headerString &= BeraterNr.ToString & ";"
headerString &= MandantenNr.ToString & ";" headerString &= MandantenNr.ToString & ";"
headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn headerString &= Geschäftsjahr.ToString & "0101" & ";" 'WJ-Beginn
@@ -321,7 +332,7 @@
headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis headerString &= Geschäftsjahr.ToString & "1231" & ";" 'DatumBis
headerString &= "IMPORT AUS AVISO;" 'Bezeichnung headerString &= "IMPORT AUS AVISO;" 'Bezeichnung
headerString &= Chr(34) & Chr(34) & ";" headerString &= Chr(34) & Chr(34) & ";"
headerString &= ";;;;;;;;;;;;" headerString &= emptyFormatedValueWithoutCommas(12)
Return headerString Return headerString
End Function End Function
@@ -342,26 +353,28 @@
' If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1 --> SONST PROBLKEM BEI UNISPED; DA STEUER vom NETTO abgezogen wird! ' If steuerbetragLokal < 0 Then steuerbetragLokal = steuerbetragLokal * -1 --> SONST PROBLKEM BEI UNISPED; DA STEUER vom NETTO abgezogen wird!
genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd")) + If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0")) & ";" 'betrag + steuer (brutto) genBuchungsZeile &= getDbltr(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")) + getDbl(row("SteuerpflichtigerBetragFremd")) + getDbl(row("SteuerfreierBetragFremd")) + If(steuerbetragLokal <> 0, getDbltr(steuerbetragLokal), "0")) & ";" 'betrag + steuer (brutto)
'Soll oder Haben 'Soll oder Haben
genBuchungsZeile &= IIf(row("BelegartenNr") = "70", FormatStringDVO(Chr(83)), FormatStringDVO(Chr(72))) & ";" genBuchungsZeile &= IIf(row("BelegartenNr") = "70", FormatStringDVO(Chr(72)), FormatStringDVO(Chr(83))) & ";"
'Fremdwährungen -> nicht benötigt 'Fremdwährungen -> nicht benötigt
genBuchungsZeile &= emptyFormatedValue() genBuchungsZeile &= emptyFormatedValue()
genBuchungsZeile &= emptyFormatedValueWithoutCommas(2) genBuchungsZeile &= emptyFormatedValueWithoutCommas(2)
genBuchungsZeile &= emptyFormatedValue() genBuchungsZeile &= emptyFormatedValue()
'Debitorenkonto
genBuchungsZeile &= (initKDNr2(row("KundenNrZentrale"))) & ";"
'Erlöskonto 'Erlöskonto
genBuchungsZeile &= fill0Stellen(row("Sachkonto"), 4) & ";" genBuchungsZeile &= fill0Stellen(row("Sachkonto"), 4) & ";"
'Debitorenkonto
genBuchungsZeile &= (initKDNr2(row("KundenNrZentrale"), FIRMA.Firma_ID)) & ";"
'BU-Schlüssel -> nicht benötigt 'BU-Schlüssel -> nicht benötigt
'genBuchungsZeile &= emptyFormatedValue() genBuchungsZeile &= emptyFormatedValue()
genBuchungsZeile &= getSteuercode(row, FIRMA) & ";"
If CBool(row("Steuerpflichtig")) Then
genBuchungsZeile &= (getDbl2(row("Steuersatz")) * 100) & ";" 'buchcode === 1 oder 2??
Else
genBuchungsZeile &= "0;" 'buchcode === 1 oder 2??
End If
'genBuchungsZeile &= getSteuercode(row, FIRMA) & ";"
'If CBool(row("Steuerpflichtig")) Then
' genBuchungsZeile &= (getDbl2(row("Steuersatz")) * 100) & ";" 'buchcode === 1 oder 2??
'Else
' genBuchungsZeile &= "0;" 'buchcode === 1 oder 2??
'End If
'Belegdatum 'Belegdatum
genBuchungsZeile &= "" & CDate(row("Rechnungsdatum")).ToString("ddMM") & ";" genBuchungsZeile &= "" & CDate(row("Rechnungsdatum")).ToString("ddMM") & ";"
@@ -372,10 +385,44 @@
' Skontoangabe -> Kontrollieren ' Skontoangabe -> Kontrollieren
genBuchungsZeile &= emptyFormatedValue() genBuchungsZeile &= emptyFormatedValue()
'Buchungstext 'Buchungstext
genBuchungsZeile &= FormatStringDVO(row("Buchungstext"),, Chr(34) & Chr(34)) & ";" 'genBuchungsZeile &= FormatStringDVO(row("Buchungstext"),, Chr(34) & Chr(34)) & ";"
genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(25)
'UID-Nr
genBuchungsZeile &= FormatStringDVO(row("RechnungsUstIdKz")).Substring(0, 3) & FormatStringDVO(row("RechnungsUstIdNr")).Substring(1) & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(7)
'Zusatzinformation Art1
genBuchungsZeile &= FormatStringDVO("D-Rechnung.") & ";"
'Zusatzinformation Inhalt1
genBuchungsZeile &= FormatStringDVO("Datum " & CDate(row("Rechnungsdatum")).ToString("ddMMyyyy"))
genBuchungsZeile &= FormatStringDVO("Art RE" & " Re.Nr.")
genBuchungsZeile &= FormatStringDVO(row("Rechnungsnummer")).Substring(0, 2) & "-" & FormatStringDVO(row("Rechnungsnummer")).Substring(2) & ";"
'Zusatzinformation Art2
genBuchungsZeile &= FormatStringDVO("D-RechPositionen.") & ";"
'Zusatzinformation Inhalt2
genBuchungsZeile &= FormatStringDVO(row("Leistungsbezeichnung"), 20) & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(45)
'USt-Schlüssel (Anzahlungen)
genBuchungsZeile &= FormatStringDVO("0") & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(8)
'keine Skontosperre - 0
genBuchungsZeile &= FormatStringDVO("0") & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(7)
'keine Festschreibung - 0
genBuchungsZeile &= FormatStringDVO("0") & ";"
'Leistungsdatum
genBuchungsZeile &= CDate(row("Abfertigungsdatum")).ToString("ddMMyyyy") & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(2)
'keine Generallumkehr - 0
genBuchungsZeile &= FormatStringDVO("0") & ";"
'Leerzeilen
genBuchungsZeile &= emptyFormatedValue(3)
'genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";" 'genBuchungsZeile &= FormatStringDVO(SQL.DLookup("[Ordnungsbegriff]", "Adressen", " AdressenNr= " & row("KundenNrZentrale"), "FMZOLL", "")) & ";"
'Dim KdAtrNr = SQL.DLookup("KdAuftragsNr", "Rechnungsausgang", "rechnungsnr='" & RgNrOld & "' And Buchungsjahr='" & Geschäftsjahr & "' and Firma_ID='" & FIRMA.Firma_ID & "'", "FMZOLL", "") 'Dim KdAtrNr = SQL.DLookup("KdAuftragsNr", "Rechnungsausgang", "rechnungsnr='" & RgNrOld & "' And Buchungsjahr='" & Geschäftsjahr & "' and Firma_ID='" & FIRMA.Firma_ID & "'", "FMZOLL", "")
@@ -402,24 +449,47 @@
''... aus ... ''... aus ...
'SummeBuchungen += getDbl(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal"))) 'SummeBuchungen += getDbl(getDbl(row("SteuerpflichtigerBetragLokal")) + getDbl(row("SteuerfreierBetragLokal")))
genBuchungsZeile &= emptyFormatedValue(107)
End Function End Function
Shared Sub initKDNr(ByRef dt As DataTable) Shared Sub initKDNr(ByRef dt As DataTable, ByVal firmaID As Integer)
For Each r In dt.Rows
If IsNumeric(r("Kontonummer")) AndAlso CInt(r("Kontonummer")) > 2000000 Then r("Kontonummer") = (CInt(r("Kontonummer")) - 2000000)
' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)
Next
End Sub
Shared Function initKDNr2(ktoNr As String) As String Select Case firmaID
If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 2000000 Then ktoNr = (CInt(ktoNr) - 2000000) '+ 200000 Case 24
Return ktoNr
End Function
' Trdin=false
Shared Function getSteuercode(r As DataRow, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String For Each r In dt.Rows
If IsNumeric(r("Kontonummer")) AndAlso CInt(r("Kontonummer")) > 3000000 AndAlso r("Kontonummer").ToString.Length = 7 Then r("Kontonummer") = (CInt(r("Kontonummer")) - 3000000)
Next
Case Else
For Each r In dt.Rows
If IsNumeric(r("Kontonummer")) AndAlso CInt(r("Kontonummer")) > 2000000 Then r("Kontonummer") = (CInt(r("Kontonummer")) - 2000000)
' MsgBox((CInt(r("Konto-Nr")) - 1000000) + 200000)
Next
End Select
End Sub
Shared Function initKDNr2(ktoNr As String, ByVal firmaID As Integer) As String
Select Case firmaID
Case 24
If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 3000000 AndAlso ktoNr.Length = 7 Then ktoNr = (CInt(ktoNr) - 3000000) '- 300000
Case Else
If IsNumeric(ktoNr) AndAlso CInt(ktoNr) > 2000000 Then ktoNr = (CInt(ktoNr) - 2000000) '+ 200000
End Select
Return ktoNr
End Function
' Trdin=false
Shared Function getSteuercode(r As DataRow, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String
Select Case r("Sachkonto") Select Case r("Sachkonto")
'Case "3550", "3553", "3558" 'Case "3550", "3553", "3558"
' Return "999" ' Return "999"