diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index 14d913ac..a9062216 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -719,6 +719,109 @@ Public Class usrCntlSpeditionsBuchSuche End If If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then Dim r As DataGridViewRow = DataGridView.SelectedRows(0) + 'warum löschen? ev. wurde dieser Eintrag schon verrechnet???? + + Dim spb As New cSpeditionsbuch(r.Cells("FilialenNr").Value, r.Cells("AbfertigungsNr").Value, r.Cells("UnterNr").Value) + Dim arv As New cSpeditionsbucharchiv + arv.FilialenNr = spb.FilialenNr + arv.AbfertigungsNr = spb.AbfertigungsNr + arv.UnterNr = spb.UnterNr + arv.Abfertigungsdatum = spb.Abfertigungsdatum + arv.Bar = spb.Bar + arv.Fakturiert = spb.Fakturiert + arv.BelegNr = spb.BelegNr + arv.ErfassungsNr = spb.ErfassungsNr + arv.LKW_Kennzeichen = spb.LKW_Kennzeichen + arv.AnzahlZA = spb.AnzahlZA + arv.AnzahlZAFremd = spb.AnzahlZAFremd + arv.AnzahlZnV = spb.AnzahlZnV + arv.AnzahlZnVFremd = spb.AnzahlZnVFremd + arv.AnzahlT1 = spb.AnzahlT1 + arv.AnzahlT2 = spb.AnzahlT2 + arv.AnzahlAE = spb.AnzahlAE + arv.AnzahlCarnetTIR = spb.AnzahlCarnetTIR + arv.AnzahlBarvorlagen = spb.AnzahlBarvorlagen + arv.AnzahlSonstiges = spb.AnzahlSonstiges + arv.AnzahlGrenzgebühren = spb.AnzahlGrenzgebühren + arv.AvisUhrzeit = spb.AvisUhrzeit + arv.Vermerk = spb.Vermerk + arv.Bemerkungen = spb.Bemerkungen + arv.Währungsschlüssel = spb.Währungsschlüssel + arv.Rechnungsbetrag = spb.Rechnungsbetrag + arv.Umrechnungskurs = spb.Umrechnungskurs + arv.Packstücke = spb.Packstücke + arv.Packstücke_Zoll = spb.Packstücke_Zoll + arv.Rohmasse = spb.Rohmasse + arv.Zahlungsaufschub = spb.Zahlungsaufschub + arv.Löschen = spb.Löschen + arv.Abfertigungsart = spb.Abfertigungsart + arv.Abfertigungsanzahl = spb.Abfertigungsanzahl + arv.AbfertigungsanzahlPos = spb.AbfertigungsanzahlPos + arv.Barzahlungsbetrag = spb.Barzahlungsbetrag + arv.Sachbearbeiter = spb.Sachbearbeiter + arv.Personalnummer = spb.Personalnummer + arv.PersonalnummerQS = spb.PersonalnummerQS + arv.AtlasBezNrEZA = spb.AtlasBezNrEZA + arv.AtlasBezNrNCTS = spb.AtlasBezNrNCTS + arv.AtlasBezNrAES = spb.AtlasBezNrAES + arv.Versendungsland = spb.Versendungsland + arv.SB_CMR = spb.SB_CMR + arv.SB_CMRDatum = spb.SB_CMRDatum + arv.SB_CMRNr = spb.SB_CMRNr + arv.veoerz_basbtg = spb.veoerz_basbtg + arv.Zucker_MRN_Nr = spb.Zucker_MRN_Nr + arv.Zucker_MRN_Datum = spb.Zucker_MRN_Datum + arv.Zucker_Aufschub = spb.Zucker_Aufschub + arv.Zollsystem = spb.Zollsystem + arv.Bestimmungszollstelle = spb.Bestimmungszollstelle + arv.Bürgschaft = spb.Bürgschaft + arv.Sicherheitsbetrag = spb.Sicherheitsbetrag + arv.SgutKompl = spb.SgutKompl + arv.Bestimmungsland = spb.Bestimmungsland + arv.EuFiskalEmpfänger = spb.EuFiskalEmpfänger + arv.QKN = spb.QKN + arv.EndempfängerKundenNr = spb.EndempfängerKundenNr + arv.Endempfänger = spb.Endempfänger + arv.AvisoID = spb.AvisoID + arv.SendungID = spb.SendungID + arv.Grenzstelle = spb.Grenzstelle + arv.KdAuftragsNr = spb.KdAuftragsNr + arv.KdAuftragsNrAvisierer = spb.KdAuftragsNrAvisierer + arv.KdAuftragsNrEmpfaenger = spb.KdAuftragsNrEmpfaenger + arv.KdAuftragsNrFrachtfuehrer = spb.KdAuftragsNrFrachtfuehrer + arv.SB_Zeitstempel = spb.SB_Zeitstempel + arv.NCTS_Verzollungsadresse = spb.NCTS_Verzollungsadresse + arv.NCTS_VerzollungsadresseKdNr = spb.NCTS_VerzollungsadresseKdNr + arv.AuftraggeberBetragKassiert = spb.AuftraggeberBetragKassiert + arv.Lieferantenrechnung = spb.Lieferantenrechnung + arv.DokumentId_Steuerbeleg = spb.DokumentId_Steuerbeleg + arv.DokumentId_Mitteilung = spb.DokumentId_Mitteilung + arv.DokumentId_VBD = spb.DokumentId_VBD + arv.DokumentId_ABD = spb.DokumentId_ABD + arv.DokumentId_AVM = spb.DokumentId_AVM + arv.FilialenNrHandling = spb.FilialenNrHandling + arv.HandlingZuKassieren = spb.HandlingZuKassieren + arv.FilialenNrAbklaerung = spb.FilialenNrAbklaerung + arv.PersonalnummerAbklTR = spb.PersonalnummerAbklTR + arv.UK_EIDR_ausstehend = spb.UK_EIDR_ausstehend + arv.Zollstelle = spb.Zollstelle + arv.Zollsystem_Land = spb.Zollsystem_Land + arv.geloescht_von = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + arv.geloescht_am = Now() + arv.AvisiererKundenNr = spb.AvisiererKundenNr + arv.AbsenderKundenNr = spb.AbsenderKundenNr + arv.AbsenderOffertenNr = spb.AbsenderOffertenNr + arv.EmpfängerKundenNr = spb.EmpfängerKundenNr + arv.EmpfängerOffertenNr = spb.EmpfängerOffertenNr + arv.VermittlerKundenNr = spb.VermittlerKundenNr + arv.VermittlerOffertenNr = spb.VermittlerOffertenNr + arv.FrachtführerKundenNr = spb.FrachtführerKundenNr + + If Not arv.SAVE() Then + MsgBox("Eintrag konnte nicht gelöscht werden!") + Exit Sub + End If + SQL.doSQL("DELETE FROM [Speditionsbuch] WHERE [FilialenNr]='" & r.Cells("FilialenNr").Value & "' AND [AbfertigungsNr] ='" & r.Cells("AbfertigungsNr").Value & "' AND [UnterNr]='" & r.Cells("UnterNr").Value & "' ", "FMZOLL") DataGridView.RELOAD() End If diff --git a/SDL/frmEssensbestellungen.Designer.vb b/SDL/frmEssensbestellungen.Designer.vb index 71f4015e..fee463dd 100644 --- a/SDL/frmEssensbestellungen.Designer.vb +++ b/SDL/frmEssensbestellungen.Designer.vb @@ -39,12 +39,28 @@ Partial Class frmEssensbestellungen Me.lblGebaeude = New System.Windows.Forms.Label() Me.lblBestellungen = New System.Windows.Forms.Label() Me.lblBestellungBis = New System.Windows.Forms.Label() + Me.txtAbteilung = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.txtMA = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.lblTest = New System.Windows.Forms.Label() + Me.pnlTop = New System.Windows.Forms.Panel() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.lbloffenerBetrag = New System.Windows.Forms.Label() + Me.txtAnmerkung = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxGebauede = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components) + Me.txtAnzahlKeb = New System.Windows.Forms.Label() + Me.Label6 = New System.Windows.Forms.Label() Me.lblWarning = New System.Windows.Forms.Label() Me.txtPreis = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.GroupBoxDienstag = New System.Windows.Forms.GroupBox() + Me.cbxAlt_dienstag = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtMenu_dienstag = New System.Windows.Forms.Label() Me.pb_dienstag = New System.Windows.Forms.PictureBox() Me.cb_dienstag = New System.Windows.Forms.CheckBox() @@ -54,6 +70,7 @@ Partial Class frmEssensbestellungen Me.lbl1 = New System.Windows.Forms.Label() Me.Button1 = New System.Windows.Forms.Button() Me.GroupBoxMontag = New System.Windows.Forms.GroupBox() + Me.cbxAlt_montag = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtMenu_montag = New System.Windows.Forms.Label() Me.pb_montag = New System.Windows.Forms.PictureBox() Me.cb_montag = New System.Windows.Forms.CheckBox() @@ -61,6 +78,7 @@ Partial Class frmEssensbestellungen Me.rbMenuAlt_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_montag = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.GroupBoxFreitag = New System.Windows.Forms.GroupBox() + Me.cbxAlt_freitag = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtMenu_freitag = New System.Windows.Forms.Label() Me.pb_freitag = New System.Windows.Forms.PictureBox() Me.cb_freitag = New System.Windows.Forms.CheckBox() @@ -70,6 +88,7 @@ Partial Class frmEssensbestellungen Me.txtAnzahlLaCart = New System.Windows.Forms.Label() Me.lbl2 = New System.Windows.Forms.Label() Me.Mittwoch = New System.Windows.Forms.GroupBox() + Me.cbxAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtMenu_mittwoch = New System.Windows.Forms.Label() Me.pb_mittwoch = New System.Windows.Forms.PictureBox() Me.cb_mittwoch = New System.Windows.Forms.CheckBox() @@ -77,6 +96,7 @@ Partial Class frmEssensbestellungen Me.rbMenuAlt_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.rbMenu_mittwoch = New VERAG_PROG_ALLGEMEIN.MyRadioButton(Me.components) Me.GroupBoxDonnerstag = New System.Windows.Forms.GroupBox() + Me.cbxAlt_donnerstag = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtMenu_donnerstag = New System.Windows.Forms.Label() Me.pb_donnerstag = New System.Windows.Forms.PictureBox() Me.cbdonnerstag = New System.Windows.Forms.CheckBox() @@ -86,19 +106,9 @@ Partial Class frmEssensbestellungen 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.txtMA = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.lblTest = New System.Windows.Forms.Label() - Me.pnlTop = New System.Windows.Forms.Panel() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() - Me.txtAnmerkung = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.lbloffenerBetrag = New System.Windows.Forms.Label() - Me.PictureBox5 = New System.Windows.Forms.PictureBox() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlTop.SuspendLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.MyPanel1.SuspendLayout() Me.GroupBoxDienstag.SuspendLayout() CType(Me.pb_dienstag, System.ComponentModel.ISupportInitialize).BeginInit() @@ -111,9 +121,6 @@ Partial Class frmEssensbestellungen Me.GroupBoxDonnerstag.SuspendLayout() CType(Me.pb_donnerstag, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.pnlTop.SuspendLayout() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'lblWochenkarte @@ -196,626 +203,6 @@ Partial Class frmEssensbestellungen 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 = 120 - Me.cbxGebauede.FormattingEnabled = True - Me.cbxGebauede.Location = New System.Drawing.Point(664, 83) - Me.cbxGebauede.Name = "cbxGebauede" - Me.cbxGebauede.Size = New System.Drawing.Size(95, 21) - Me.cbxGebauede.TabIndex = 21 - ' - 'MyPanel1 - ' - Me.MyPanel1.Controls.Add(Me.lblWarning) - Me.MyPanel1.Controls.Add(Me.txtPreis) - Me.MyPanel1.Controls.Add(Me.Label2) - Me.MyPanel1.Controls.Add(Me.GroupBoxDienstag) - Me.MyPanel1.Controls.Add(Me.lbl1) - Me.MyPanel1.Controls.Add(Me.Button1) - Me.MyPanel1.Controls.Add(Me.GroupBoxMontag) - Me.MyPanel1.Controls.Add(Me.GroupBoxFreitag) - Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart) - Me.MyPanel1.Controls.Add(Me.lbl2) - Me.MyPanel1.Controls.Add(Me.Mittwoch) - Me.MyPanel1.Controls.Add(Me.GroupBoxDonnerstag) - Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu) - Me.MyPanel1.Location = New System.Drawing.Point(12, 130) - Me.MyPanel1.Name = "MyPanel1" - Me.MyPanel1.Size = New System.Drawing.Size(755, 285) - Me.MyPanel1.TabIndex = 18 - ' - 'lblWarning - ' - Me.lblWarning.AutoSize = True - Me.lblWarning.ForeColor = System.Drawing.Color.Red - Me.lblWarning.Location = New System.Drawing.Point(552, 219) - Me.lblWarning.Name = "lblWarning" - Me.lblWarning.Size = New System.Drawing.Size(0, 13) - Me.lblWarning.TabIndex = 31 - ' - 'txtPreis - ' - Me.txtPreis.AutoSize = True - Me.txtPreis.Location = New System.Drawing.Point(640, 238) - 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(550, 238) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(68, 13) - Me.Label2.TabIndex = 18 - Me.Label2.Text = "Gesamtpreis:" - ' - 'GroupBoxDienstag - ' - Me.GroupBoxDienstag.Controls.Add(Me.txtMenu_dienstag) - Me.GroupBoxDienstag.Controls.Add(Me.pb_dienstag) - Me.GroupBoxDienstag.Controls.Add(Me.cb_dienstag) - Me.GroupBoxDienstag.Controls.Add(Me.txtAlt_dienstag) - Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_dienstag) - Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_dienstag) - Me.GroupBoxDienstag.Location = New System.Drawing.Point(264, 8) - Me.GroupBoxDienstag.Name = "GroupBoxDienstag" - Me.GroupBoxDienstag.Size = New System.Drawing.Size(242, 132) - Me.GroupBoxDienstag.TabIndex = 13 - Me.GroupBoxDienstag.TabStop = False - Me.GroupBoxDienstag.Text = "Dienstag" - ' - 'txtMenu_dienstag - ' - Me.txtMenu_dienstag.Location = New System.Drawing.Point(3, 39) - Me.txtMenu_dienstag.Name = "txtMenu_dienstag" - Me.txtMenu_dienstag.Size = New System.Drawing.Size(236, 46) - Me.txtMenu_dienstag.TabIndex = 30 - Me.txtMenu_dienstag.Text = "Menutext" - ' - 'pb_dienstag - ' - Me.pb_dienstag.Image = Global.SDL.My.Resources.Resources.positionen - Me.pb_dienstag.Location = New System.Drawing.Point(168, 19) - Me.pb_dienstag.Name = "pb_dienstag" - Me.pb_dienstag.Size = New System.Drawing.Size(26, 26) - Me.pb_dienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pb_dienstag.TabIndex = 5 - Me.pb_dienstag.TabStop = False - Me.pb_dienstag.Visible = False - ' - 'cb_dienstag - ' - Me.cb_dienstag.AutoSize = True - Me.cb_dienstag.Location = New System.Drawing.Point(0, 0) - Me.cb_dienstag.Name = "cb_dienstag" - Me.cb_dienstag.Size = New System.Drawing.Size(68, 17) - Me.cb_dienstag.TabIndex = 4 - Me.cb_dienstag.Text = "Dienstag" - Me.cb_dienstag.UseVisualStyleBackColor = True - ' - 'txtAlt_dienstag - ' - Me.txtAlt_dienstag._DateTimeOnly = False - Me.txtAlt_dienstag._numbersOnly = False - Me.txtAlt_dienstag._numbersOnlyKommastellen = "" - Me.txtAlt_dienstag._numbersOnlyTrennzeichen = True - Me.txtAlt_dienstag._Prozent = False - Me.txtAlt_dienstag._ShortDateNew = False - Me.txtAlt_dienstag._ShortDateOnly = False - Me.txtAlt_dienstag._TimeOnly = False - Me.txtAlt_dienstag._TimeOnly_Seconds = False - Me.txtAlt_dienstag._value = "" - Me.txtAlt_dienstag._Waehrung = False - Me.txtAlt_dienstag._WaehrungZeichen = True - Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black - Me.txtAlt_dienstag.Location = New System.Drawing.Point(3, 107) - Me.txtAlt_dienstag.MaxLineLength = -1 - Me.txtAlt_dienstag.MaxLines_Warning = "" - Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing - Me.txtAlt_dienstag.Name = "txtAlt_dienstag" - Me.txtAlt_dienstag.Size = New System.Drawing.Size(233, 20) - Me.txtAlt_dienstag.TabIndex = 2 - Me.txtAlt_dienstag.Visible = False - ' - 'rbMenuAlt_dienstag - ' - Me.rbMenuAlt_dienstag.AutoSize = True - Me.rbMenuAlt_dienstag.GroupName = "Dienstag" - Me.rbMenuAlt_dienstag.Location = New System.Drawing.Point(3, 88) - Me.rbMenuAlt_dienstag.Name = "rbMenuAlt_dienstag" - Me.rbMenuAlt_dienstag.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_dienstag.TabIndex = 1 - Me.rbMenuAlt_dienstag.TabStop = True - Me.rbMenuAlt_dienstag.Text = "A la carte" - Me.rbMenuAlt_dienstag.UseVisualStyleBackColor = True - ' - 'rbMenu_dienstag - ' - Me.rbMenu_dienstag.AutoSize = True - Me.rbMenu_dienstag.GroupName = "Dienstag" - Me.rbMenu_dienstag.Location = New System.Drawing.Point(3, 19) - Me.rbMenu_dienstag.Name = "rbMenu_dienstag" - Me.rbMenu_dienstag.Size = New System.Drawing.Size(52, 17) - Me.rbMenu_dienstag.TabIndex = 0 - Me.rbMenu_dienstag.TabStop = True - Me.rbMenu_dienstag.Text = "Menü" - Me.rbMenu_dienstag.UseVisualStyleBackColor = True - ' - 'lbl1 - ' - Me.lbl1.AutoSize = True - Me.lbl1.Location = New System.Drawing.Point(550, 185) - Me.lbl1.Name = "lbl1" - Me.lbl1.Size = New System.Drawing.Size(72, 13) - Me.lbl1.TabIndex = 14 - Me.lbl1.Text = "Anzahl Menü:" - ' - 'Button1 - ' - Me.Button1.Image = Global.SDL.My.Resources.Resources.pdf - Me.Button1.Location = New System.Drawing.Point(686, 190) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(54, 57) - Me.Button1.TabIndex = 20 - Me.Button1.UseVisualStyleBackColor = True - Me.Button1.Visible = False - ' - 'GroupBoxMontag - ' - Me.GroupBoxMontag.Controls.Add(Me.txtMenu_montag) - Me.GroupBoxMontag.Controls.Add(Me.pb_montag) - Me.GroupBoxMontag.Controls.Add(Me.cb_montag) - Me.GroupBoxMontag.Controls.Add(Me.txtAlt_montag) - Me.GroupBoxMontag.Controls.Add(Me.rbMenuAlt_montag) - Me.GroupBoxMontag.Controls.Add(Me.rbMenu_montag) - Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8) - Me.GroupBoxMontag.Name = "GroupBoxMontag" - Me.GroupBoxMontag.Size = New System.Drawing.Size(242, 132) - Me.GroupBoxMontag.TabIndex = 12 - Me.GroupBoxMontag.TabStop = False - Me.GroupBoxMontag.Text = "Montag" - ' - 'txtMenu_montag - ' - Me.txtMenu_montag.Location = New System.Drawing.Point(3, 39) - Me.txtMenu_montag.Name = "txtMenu_montag" - Me.txtMenu_montag.Size = New System.Drawing.Size(236, 46) - Me.txtMenu_montag.TabIndex = 29 - Me.txtMenu_montag.Text = "Menutext" - ' - 'pb_montag - ' - Me.pb_montag.Image = Global.SDL.My.Resources.Resources.positionen - Me.pb_montag.Location = New System.Drawing.Point(168, 19) - Me.pb_montag.Name = "pb_montag" - Me.pb_montag.Size = New System.Drawing.Size(26, 26) - Me.pb_montag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pb_montag.TabIndex = 4 - Me.pb_montag.TabStop = False - Me.pb_montag.Visible = False - ' - 'cb_montag - ' - Me.cb_montag.AutoSize = True - Me.cb_montag.Location = New System.Drawing.Point(3, 0) - Me.cb_montag.Name = "cb_montag" - Me.cb_montag.Size = New System.Drawing.Size(62, 17) - Me.cb_montag.TabIndex = 3 - Me.cb_montag.Text = "Montag" - Me.cb_montag.UseVisualStyleBackColor = True - ' - 'txtAlt_montag - ' - Me.txtAlt_montag._DateTimeOnly = False - Me.txtAlt_montag._numbersOnly = False - Me.txtAlt_montag._numbersOnlyKommastellen = "" - Me.txtAlt_montag._numbersOnlyTrennzeichen = True - Me.txtAlt_montag._Prozent = False - Me.txtAlt_montag._ShortDateNew = False - Me.txtAlt_montag._ShortDateOnly = False - Me.txtAlt_montag._TimeOnly = False - Me.txtAlt_montag._TimeOnly_Seconds = False - Me.txtAlt_montag._value = "" - Me.txtAlt_montag._Waehrung = False - Me.txtAlt_montag._WaehrungZeichen = True - Me.txtAlt_montag.ForeColor = System.Drawing.Color.Black - Me.txtAlt_montag.Location = New System.Drawing.Point(3, 106) - Me.txtAlt_montag.MaxLineLength = -1 - Me.txtAlt_montag.MaxLines_Warning = "" - Me.txtAlt_montag.MaxLines_Warning_Label = Nothing - Me.txtAlt_montag.Name = "txtAlt_montag" - Me.txtAlt_montag.Size = New System.Drawing.Size(236, 20) - Me.txtAlt_montag.TabIndex = 2 - Me.txtAlt_montag.Visible = False - ' - 'rbMenuAlt_montag - ' - Me.rbMenuAlt_montag.AutoSize = True - Me.rbMenuAlt_montag.GroupName = "GroupBox1" - Me.rbMenuAlt_montag.Location = New System.Drawing.Point(3, 88) - Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag" - Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_montag.TabIndex = 1 - Me.rbMenuAlt_montag.TabStop = True - Me.rbMenuAlt_montag.Text = "A la carte" - Me.rbMenuAlt_montag.UseVisualStyleBackColor = True - ' - 'rbMenu_montag - ' - Me.rbMenu_montag.AutoSize = True - Me.rbMenu_montag.GroupName = "GroupBox1" - Me.rbMenu_montag.Location = New System.Drawing.Point(3, 19) - Me.rbMenu_montag.Name = "rbMenu_montag" - Me.rbMenu_montag.Size = New System.Drawing.Size(52, 17) - Me.rbMenu_montag.TabIndex = 0 - Me.rbMenu_montag.TabStop = True - Me.rbMenu_montag.Text = "Menü" - Me.rbMenu_montag.UseVisualStyleBackColor = True - ' - 'GroupBoxFreitag - ' - Me.GroupBoxFreitag.Controls.Add(Me.txtMenu_freitag) - Me.GroupBoxFreitag.Controls.Add(Me.pb_freitag) - Me.GroupBoxFreitag.Controls.Add(Me.cb_freitag) - Me.GroupBoxFreitag.Controls.Add(Me.txtAlt_freitag) - Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_freitag) - Me.GroupBoxFreitag.Controls.Add(Me.rbMenu__freitag) - Me.GroupBoxFreitag.Location = New System.Drawing.Point(264, 149) - Me.GroupBoxFreitag.Name = "GroupBoxFreitag" - Me.GroupBoxFreitag.Size = New System.Drawing.Size(242, 136) - Me.GroupBoxFreitag.TabIndex = 13 - Me.GroupBoxFreitag.TabStop = False - Me.GroupBoxFreitag.Text = "Freitag" - ' - 'txtMenu_freitag - ' - Me.txtMenu_freitag.Location = New System.Drawing.Point(3, 39) - Me.txtMenu_freitag.Name = "txtMenu_freitag" - Me.txtMenu_freitag.Size = New System.Drawing.Size(236, 51) - Me.txtMenu_freitag.TabIndex = 32 - Me.txtMenu_freitag.Text = "Menutext" - ' - 'pb_freitag - ' - Me.pb_freitag.Image = Global.SDL.My.Resources.Resources.positionen - Me.pb_freitag.Location = New System.Drawing.Point(168, 19) - Me.pb_freitag.Name = "pb_freitag" - Me.pb_freitag.Size = New System.Drawing.Size(26, 26) - Me.pb_freitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pb_freitag.TabIndex = 8 - Me.pb_freitag.TabStop = False - Me.pb_freitag.Visible = False - ' - 'cb_freitag - ' - Me.cb_freitag.AutoSize = True - Me.cb_freitag.Location = New System.Drawing.Point(3, 0) - Me.cb_freitag.Name = "cb_freitag" - Me.cb_freitag.Size = New System.Drawing.Size(58, 17) - Me.cb_freitag.TabIndex = 6 - Me.cb_freitag.Text = "Freitag" - Me.cb_freitag.UseVisualStyleBackColor = True - ' - 'txtAlt_freitag - ' - Me.txtAlt_freitag._DateTimeOnly = False - Me.txtAlt_freitag._numbersOnly = False - Me.txtAlt_freitag._numbersOnlyKommastellen = "" - Me.txtAlt_freitag._numbersOnlyTrennzeichen = True - Me.txtAlt_freitag._Prozent = False - Me.txtAlt_freitag._ShortDateNew = False - Me.txtAlt_freitag._ShortDateOnly = False - Me.txtAlt_freitag._TimeOnly = False - Me.txtAlt_freitag._TimeOnly_Seconds = False - Me.txtAlt_freitag._value = "" - Me.txtAlt_freitag._Waehrung = False - Me.txtAlt_freitag._WaehrungZeichen = True - Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black - Me.txtAlt_freitag.Location = New System.Drawing.Point(3, 112) - Me.txtAlt_freitag.MaxLineLength = -1 - Me.txtAlt_freitag.MaxLines_Warning = "" - Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing - Me.txtAlt_freitag.Name = "txtAlt_freitag" - Me.txtAlt_freitag.Size = New System.Drawing.Size(233, 20) - Me.txtAlt_freitag.TabIndex = 2 - Me.txtAlt_freitag.Visible = False - ' - 'rbMenuAlt_freitag - ' - Me.rbMenuAlt_freitag.AutoSize = True - Me.rbMenuAlt_freitag.GroupName = "Freitag" - Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(3, 93) - Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag" - Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_freitag.TabIndex = 1 - Me.rbMenuAlt_freitag.TabStop = True - Me.rbMenuAlt_freitag.Text = "A la carte" - Me.rbMenuAlt_freitag.UseVisualStyleBackColor = True - ' - 'rbMenu__freitag - ' - Me.rbMenu__freitag.AutoSize = True - Me.rbMenu__freitag.GroupName = "Freitag" - Me.rbMenu__freitag.Location = New System.Drawing.Point(3, 19) - Me.rbMenu__freitag.Name = "rbMenu__freitag" - Me.rbMenu__freitag.Size = New System.Drawing.Size(52, 17) - Me.rbMenu__freitag.TabIndex = 0 - Me.rbMenu__freitag.TabStop = True - Me.rbMenu__freitag.Text = "Menü" - Me.rbMenu__freitag.UseVisualStyleBackColor = True - ' - 'txtAnzahlLaCart - ' - Me.txtAnzahlLaCart.AutoSize = True - Me.txtAnzahlLaCart.Location = New System.Drawing.Point(640, 212) - 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(550, 212) - Me.lbl2.Name = "lbl2" - Me.lbl2.Size = New System.Drawing.Size(90, 13) - Me.lbl2.TabIndex = 15 - Me.lbl2.Text = "Anzahl a la Carte:" - ' - 'Mittwoch - ' - Me.Mittwoch.Controls.Add(Me.txtMenu_mittwoch) - Me.Mittwoch.Controls.Add(Me.pb_mittwoch) - Me.Mittwoch.Controls.Add(Me.cb_mittwoch) - Me.Mittwoch.Controls.Add(Me.txtAlt_mittwoch) - Me.Mittwoch.Controls.Add(Me.rbMenuAlt_mittwoch) - Me.Mittwoch.Controls.Add(Me.rbMenu_mittwoch) - Me.Mittwoch.Location = New System.Drawing.Point(513, 8) - Me.Mittwoch.Name = "Mittwoch" - Me.Mittwoch.Size = New System.Drawing.Size(242, 132) - Me.Mittwoch.TabIndex = 13 - Me.Mittwoch.TabStop = False - Me.Mittwoch.Text = "Mittwoch" - ' - 'txtMenu_mittwoch - ' - Me.txtMenu_mittwoch.Location = New System.Drawing.Point(3, 39) - Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch" - Me.txtMenu_mittwoch.Size = New System.Drawing.Size(236, 46) - Me.txtMenu_mittwoch.TabIndex = 31 - Me.txtMenu_mittwoch.Text = "Menutext" - ' - 'pb_mittwoch - ' - Me.pb_mittwoch.Image = Global.SDL.My.Resources.Resources.positionen - Me.pb_mittwoch.Location = New System.Drawing.Point(168, 19) - Me.pb_mittwoch.Name = "pb_mittwoch" - Me.pb_mittwoch.Size = New System.Drawing.Size(26, 26) - Me.pb_mittwoch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pb_mittwoch.TabIndex = 6 - Me.pb_mittwoch.TabStop = False - Me.pb_mittwoch.Visible = False - ' - 'cb_mittwoch - ' - Me.cb_mittwoch.AutoSize = True - Me.cb_mittwoch.Location = New System.Drawing.Point(0, 0) - Me.cb_mittwoch.Name = "cb_mittwoch" - Me.cb_mittwoch.Size = New System.Drawing.Size(69, 17) - Me.cb_mittwoch.TabIndex = 5 - Me.cb_mittwoch.Text = "Mittwoch" - Me.cb_mittwoch.UseVisualStyleBackColor = True - ' - 'txtAlt_mittwoch - ' - Me.txtAlt_mittwoch._DateTimeOnly = False - Me.txtAlt_mittwoch._numbersOnly = False - Me.txtAlt_mittwoch._numbersOnlyKommastellen = "" - Me.txtAlt_mittwoch._numbersOnlyTrennzeichen = True - Me.txtAlt_mittwoch._Prozent = False - Me.txtAlt_mittwoch._ShortDateNew = False - Me.txtAlt_mittwoch._ShortDateOnly = False - Me.txtAlt_mittwoch._TimeOnly = False - Me.txtAlt_mittwoch._TimeOnly_Seconds = False - Me.txtAlt_mittwoch._value = "" - Me.txtAlt_mittwoch._Waehrung = False - Me.txtAlt_mittwoch._WaehrungZeichen = True - Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black - Me.txtAlt_mittwoch.Location = New System.Drawing.Point(3, 107) - Me.txtAlt_mittwoch.MaxLineLength = -1 - Me.txtAlt_mittwoch.MaxLines_Warning = "" - Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing - Me.txtAlt_mittwoch.Name = "txtAlt_mittwoch" - Me.txtAlt_mittwoch.Size = New System.Drawing.Size(236, 20) - Me.txtAlt_mittwoch.TabIndex = 2 - Me.txtAlt_mittwoch.Visible = False - ' - 'rbMenuAlt_mittwoch - ' - Me.rbMenuAlt_mittwoch.AutoSize = True - Me.rbMenuAlt_mittwoch.GroupName = "Mittwoch" - Me.rbMenuAlt_mittwoch.Location = New System.Drawing.Point(3, 88) - Me.rbMenuAlt_mittwoch.Name = "rbMenuAlt_mittwoch" - Me.rbMenuAlt_mittwoch.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_mittwoch.TabIndex = 1 - Me.rbMenuAlt_mittwoch.TabStop = True - Me.rbMenuAlt_mittwoch.Text = "A la carte" - Me.rbMenuAlt_mittwoch.UseVisualStyleBackColor = True - ' - 'rbMenu_mittwoch - ' - Me.rbMenu_mittwoch.AutoSize = True - Me.rbMenu_mittwoch.GroupName = "Mittwoch" - Me.rbMenu_mittwoch.Location = New System.Drawing.Point(3, 19) - Me.rbMenu_mittwoch.Name = "rbMenu_mittwoch" - Me.rbMenu_mittwoch.Size = New System.Drawing.Size(52, 17) - Me.rbMenu_mittwoch.TabIndex = 0 - Me.rbMenu_mittwoch.TabStop = True - Me.rbMenu_mittwoch.Text = "Menü" - Me.rbMenu_mittwoch.UseVisualStyleBackColor = True - ' - 'GroupBoxDonnerstag - ' - Me.GroupBoxDonnerstag.Controls.Add(Me.txtMenu_donnerstag) - Me.GroupBoxDonnerstag.Controls.Add(Me.pb_donnerstag) - Me.GroupBoxDonnerstag.Controls.Add(Me.cbdonnerstag) - Me.GroupBoxDonnerstag.Controls.Add(Me.txtAlt_donnerstag) - Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_donnerstag) - Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_donnerstag) - Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 146) - Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag" - Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(245, 136) - Me.GroupBoxDonnerstag.TabIndex = 13 - Me.GroupBoxDonnerstag.TabStop = False - Me.GroupBoxDonnerstag.Text = "Donnerstag" - ' - 'txtMenu_donnerstag - ' - Me.txtMenu_donnerstag.Location = New System.Drawing.Point(3, 39) - Me.txtMenu_donnerstag.Name = "txtMenu_donnerstag" - Me.txtMenu_donnerstag.Size = New System.Drawing.Size(239, 51) - Me.txtMenu_donnerstag.TabIndex = 33 - Me.txtMenu_donnerstag.Text = "Menutext" - ' - 'pb_donnerstag - ' - Me.pb_donnerstag.Image = Global.SDL.My.Resources.Resources.positionen - Me.pb_donnerstag.Location = New System.Drawing.Point(171, 19) - Me.pb_donnerstag.Name = "pb_donnerstag" - Me.pb_donnerstag.Size = New System.Drawing.Size(26, 26) - Me.pb_donnerstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage - Me.pb_donnerstag.TabIndex = 7 - Me.pb_donnerstag.TabStop = False - Me.pb_donnerstag.Visible = 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 - ' - 'txtAlt_donnerstag - ' - Me.txtAlt_donnerstag._DateTimeOnly = False - Me.txtAlt_donnerstag._numbersOnly = False - Me.txtAlt_donnerstag._numbersOnlyKommastellen = "" - Me.txtAlt_donnerstag._numbersOnlyTrennzeichen = True - Me.txtAlt_donnerstag._Prozent = False - Me.txtAlt_donnerstag._ShortDateNew = False - Me.txtAlt_donnerstag._ShortDateOnly = False - Me.txtAlt_donnerstag._TimeOnly = False - Me.txtAlt_donnerstag._TimeOnly_Seconds = False - Me.txtAlt_donnerstag._value = "" - Me.txtAlt_donnerstag._Waehrung = False - Me.txtAlt_donnerstag._WaehrungZeichen = True - Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black - Me.txtAlt_donnerstag.Location = New System.Drawing.Point(3, 112) - Me.txtAlt_donnerstag.MaxLineLength = -1 - Me.txtAlt_donnerstag.MaxLines_Warning = "" - Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing - Me.txtAlt_donnerstag.Name = "txtAlt_donnerstag" - Me.txtAlt_donnerstag.Size = New System.Drawing.Size(239, 20) - Me.txtAlt_donnerstag.TabIndex = 2 - Me.txtAlt_donnerstag.Visible = False - ' - 'rbMenuAlt_donnerstag - ' - Me.rbMenuAlt_donnerstag.AutoSize = True - Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag" - Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(3, 93) - Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag" - Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17) - Me.rbMenuAlt_donnerstag.TabIndex = 1 - Me.rbMenuAlt_donnerstag.TabStop = True - Me.rbMenuAlt_donnerstag.Text = "A la carte" - Me.rbMenuAlt_donnerstag.UseVisualStyleBackColor = True - ' - 'rbMenu_donnerstag - ' - Me.rbMenu_donnerstag.AutoSize = True - Me.rbMenu_donnerstag.GroupName = "Donnerstag" - Me.rbMenu_donnerstag.Location = New System.Drawing.Point(3, 19) - Me.rbMenu_donnerstag.Name = "rbMenu_donnerstag" - Me.rbMenu_donnerstag.Size = New System.Drawing.Size(52, 17) - Me.rbMenu_donnerstag.TabIndex = 0 - Me.rbMenu_donnerstag.TabStop = True - Me.rbMenu_donnerstag.Text = "Menü" - Me.rbMenu_donnerstag.UseVisualStyleBackColor = True - ' - 'txtAnzahlMenu - ' - Me.txtAnzahlMenu.AutoSize = True - Me.txtAnzahlMenu.Location = New System.Drawing.Point(640, 187) - 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(0, 468) - 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(767, 165) - 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.IntegralHeight = False - Me.cbxMenu.Location = New System.Drawing.Point(15, 81) - Me.cbxMenu.Name = "cbxMenu" - Me.cbxMenu.Size = New System.Drawing.Size(136, 21) - Me.cbxMenu.TabIndex = 0 - ' 'txtAbteilung ' Me.txtAbteilung.AutoSize = True @@ -890,6 +277,17 @@ Partial Class frmEssensbestellungen Me.pnlTop.Size = New System.Drawing.Size(771, 48) Me.pnlTop.TabIndex = 30 ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox5.Location = New System.Drawing.Point(218, 9) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(28, 29) + Me.PictureBox5.TabIndex = 132 + Me.PictureBox5.TabStop = False + Me.PictureBox5.Visible = False + ' 'Label4 ' Me.Label4.AutoSize = True @@ -910,6 +308,15 @@ Partial Class frmEssensbestellungen Me.Label5.TabIndex = 31 Me.Label5.Text = "Anmerkung:" ' + '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: " + ' 'txtAnmerkung ' Me.txtAnmerkung._DateTimeOnly = False @@ -933,25 +340,715 @@ Partial Class frmEssensbestellungen Me.txtAnmerkung.Size = New System.Drawing.Size(169, 20) Me.txtAnmerkung.TabIndex = 33 ' - 'lbloffenerBetrag + 'cbxGebauede ' - 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: " + Me.cbxGebauede._allowedValuesFreiText = Nothing + Me.cbxGebauede._allowFreiText = True + Me.cbxGebauede._value = "" + Me.cbxGebauede.DropDownWidth = 120 + Me.cbxGebauede.FormattingEnabled = True + Me.cbxGebauede.Location = New System.Drawing.Point(664, 83) + Me.cbxGebauede.Name = "cbxGebauede" + Me.cbxGebauede.Size = New System.Drawing.Size(95, 21) + Me.cbxGebauede.TabIndex = 21 ' - 'PictureBox5 + 'MyPanel1 ' - Me.PictureBox5.BackgroundImage = Global.SDL.My.Resources.Resources.fragezeichen - Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox5.Location = New System.Drawing.Point(218, 9) - Me.PictureBox5.Name = "PictureBox5" - Me.PictureBox5.Size = New System.Drawing.Size(28, 29) - Me.PictureBox5.TabIndex = 132 - Me.PictureBox5.TabStop = False - Me.PictureBox5.Visible = False + Me.MyPanel1.Controls.Add(Me.txtAnzahlKeb) + Me.MyPanel1.Controls.Add(Me.Label6) + Me.MyPanel1.Controls.Add(Me.lblWarning) + Me.MyPanel1.Controls.Add(Me.txtPreis) + Me.MyPanel1.Controls.Add(Me.Label2) + Me.MyPanel1.Controls.Add(Me.GroupBoxDienstag) + Me.MyPanel1.Controls.Add(Me.lbl1) + Me.MyPanel1.Controls.Add(Me.Button1) + Me.MyPanel1.Controls.Add(Me.GroupBoxMontag) + Me.MyPanel1.Controls.Add(Me.GroupBoxFreitag) + Me.MyPanel1.Controls.Add(Me.txtAnzahlLaCart) + Me.MyPanel1.Controls.Add(Me.lbl2) + Me.MyPanel1.Controls.Add(Me.Mittwoch) + Me.MyPanel1.Controls.Add(Me.GroupBoxDonnerstag) + Me.MyPanel1.Controls.Add(Me.txtAnzahlMenu) + Me.MyPanel1.Location = New System.Drawing.Point(12, 130) + Me.MyPanel1.Name = "MyPanel1" + Me.MyPanel1.Size = New System.Drawing.Size(755, 285) + Me.MyPanel1.TabIndex = 18 + ' + 'txtAnzahlKeb + ' + Me.txtAnzahlKeb.AutoSize = True + Me.txtAnzahlKeb.Location = New System.Drawing.Point(649, 204) + Me.txtAnzahlKeb.Name = "txtAnzahlKeb" + Me.txtAnzahlKeb.Size = New System.Drawing.Size(13, 13) + Me.txtAnzahlKeb.TabIndex = 33 + Me.txtAnzahlKeb.Text = "0" + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Location = New System.Drawing.Point(532, 204) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(112, 13) + Me.Label6.TabIndex = 32 + Me.Label6.Text = "Anzahl Kebap/Dürüm:" + ' + 'lblWarning + ' + Me.lblWarning.AutoSize = True + Me.lblWarning.ForeColor = System.Drawing.Color.Red + Me.lblWarning.Location = New System.Drawing.Point(532, 230) + Me.lblWarning.Name = "lblWarning" + Me.lblWarning.Size = New System.Drawing.Size(0, 13) + Me.lblWarning.TabIndex = 31 + ' + 'txtPreis + ' + Me.txtPreis.AutoSize = True + Me.txtPreis.Location = New System.Drawing.Point(649, 249) + 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(534, 249) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(68, 13) + Me.Label2.TabIndex = 18 + Me.Label2.Text = "Gesamtpreis:" + ' + 'GroupBoxDienstag + ' + Me.GroupBoxDienstag.Controls.Add(Me.cbxAlt_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.txtMenu_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.pb_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.cb_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.txtAlt_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.rbMenuAlt_dienstag) + Me.GroupBoxDienstag.Controls.Add(Me.rbMenu_dienstag) + Me.GroupBoxDienstag.Location = New System.Drawing.Point(264, 8) + Me.GroupBoxDienstag.Name = "GroupBoxDienstag" + Me.GroupBoxDienstag.Size = New System.Drawing.Size(242, 132) + Me.GroupBoxDienstag.TabIndex = 13 + Me.GroupBoxDienstag.TabStop = False + Me.GroupBoxDienstag.Text = "Dienstag" + ' + 'cbxAlt_dienstag + ' + Me.cbxAlt_dienstag._allowedValuesFreiText = Nothing + Me.cbxAlt_dienstag._allowFreiText = True + Me.cbxAlt_dienstag._value = "" + Me.cbxAlt_dienstag.DropDownWidth = 120 + Me.cbxAlt_dienstag.FormattingEnabled = True + Me.cbxAlt_dienstag.Location = New System.Drawing.Point(0, 107) + Me.cbxAlt_dienstag.Name = "cbxAlt_dienstag" + Me.cbxAlt_dienstag.Size = New System.Drawing.Size(146, 21) + Me.cbxAlt_dienstag.TabIndex = 36 + Me.cbxAlt_dienstag.Visible = False + ' + 'txtMenu_dienstag + ' + Me.txtMenu_dienstag.Location = New System.Drawing.Point(3, 39) + Me.txtMenu_dienstag.Name = "txtMenu_dienstag" + Me.txtMenu_dienstag.Size = New System.Drawing.Size(236, 46) + Me.txtMenu_dienstag.TabIndex = 30 + Me.txtMenu_dienstag.Text = "Menutext" + ' + 'pb_dienstag + ' + Me.pb_dienstag.Image = Global.SDL.My.Resources.Resources.positionen + Me.pb_dienstag.Location = New System.Drawing.Point(168, 19) + Me.pb_dienstag.Name = "pb_dienstag" + Me.pb_dienstag.Size = New System.Drawing.Size(26, 26) + Me.pb_dienstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_dienstag.TabIndex = 5 + Me.pb_dienstag.TabStop = False + Me.pb_dienstag.Visible = False + ' + 'cb_dienstag + ' + Me.cb_dienstag.AutoSize = True + Me.cb_dienstag.Location = New System.Drawing.Point(0, 0) + Me.cb_dienstag.Name = "cb_dienstag" + Me.cb_dienstag.Size = New System.Drawing.Size(68, 17) + Me.cb_dienstag.TabIndex = 4 + Me.cb_dienstag.Text = "Dienstag" + Me.cb_dienstag.UseVisualStyleBackColor = True + ' + 'txtAlt_dienstag + ' + Me.txtAlt_dienstag._DateTimeOnly = False + Me.txtAlt_dienstag._numbersOnly = False + Me.txtAlt_dienstag._numbersOnlyKommastellen = "" + Me.txtAlt_dienstag._numbersOnlyTrennzeichen = True + Me.txtAlt_dienstag._Prozent = False + Me.txtAlt_dienstag._ShortDateNew = False + Me.txtAlt_dienstag._ShortDateOnly = False + Me.txtAlt_dienstag._TimeOnly = False + Me.txtAlt_dienstag._TimeOnly_Seconds = False + Me.txtAlt_dienstag._value = "" + Me.txtAlt_dienstag._Waehrung = False + Me.txtAlt_dienstag._WaehrungZeichen = True + Me.txtAlt_dienstag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_dienstag.Location = New System.Drawing.Point(168, 107) + Me.txtAlt_dienstag.MaxLineLength = -1 + Me.txtAlt_dienstag.MaxLines_Warning = "" + Me.txtAlt_dienstag.MaxLines_Warning_Label = Nothing + Me.txtAlt_dienstag.Name = "txtAlt_dienstag" + Me.txtAlt_dienstag.Size = New System.Drawing.Size(68, 20) + Me.txtAlt_dienstag.TabIndex = 2 + Me.txtAlt_dienstag.Visible = False + ' + 'rbMenuAlt_dienstag + ' + Me.rbMenuAlt_dienstag.AutoSize = True + Me.rbMenuAlt_dienstag.GroupName = "Dienstag" + Me.rbMenuAlt_dienstag.Location = New System.Drawing.Point(3, 88) + Me.rbMenuAlt_dienstag.Name = "rbMenuAlt_dienstag" + Me.rbMenuAlt_dienstag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_dienstag.TabIndex = 1 + Me.rbMenuAlt_dienstag.TabStop = True + Me.rbMenuAlt_dienstag.Text = "A la carte" + Me.rbMenuAlt_dienstag.UseVisualStyleBackColor = True + ' + 'rbMenu_dienstag + ' + Me.rbMenu_dienstag.AutoSize = True + Me.rbMenu_dienstag.GroupName = "Dienstag" + Me.rbMenu_dienstag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_dienstag.Name = "rbMenu_dienstag" + Me.rbMenu_dienstag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_dienstag.TabIndex = 0 + Me.rbMenu_dienstag.TabStop = True + Me.rbMenu_dienstag.Text = "Menü" + Me.rbMenu_dienstag.UseVisualStyleBackColor = True + ' + 'lbl1 + ' + Me.lbl1.AutoSize = True + Me.lbl1.Location = New System.Drawing.Point(530, 185) + Me.lbl1.Name = "lbl1" + Me.lbl1.Size = New System.Drawing.Size(72, 13) + Me.lbl1.TabIndex = 14 + Me.lbl1.Text = "Anzahl Menü:" + ' + 'Button1 + ' + Me.Button1.Image = Global.SDL.My.Resources.Resources.pdf + Me.Button1.Location = New System.Drawing.Point(686, 190) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(54, 57) + Me.Button1.TabIndex = 20 + Me.Button1.UseVisualStyleBackColor = True + Me.Button1.Visible = False + ' + 'GroupBoxMontag + ' + Me.GroupBoxMontag.Controls.Add(Me.cbxAlt_montag) + Me.GroupBoxMontag.Controls.Add(Me.txtMenu_montag) + Me.GroupBoxMontag.Controls.Add(Me.pb_montag) + Me.GroupBoxMontag.Controls.Add(Me.cb_montag) + Me.GroupBoxMontag.Controls.Add(Me.txtAlt_montag) + Me.GroupBoxMontag.Controls.Add(Me.rbMenuAlt_montag) + Me.GroupBoxMontag.Controls.Add(Me.rbMenu_montag) + Me.GroupBoxMontag.Location = New System.Drawing.Point(6, 8) + Me.GroupBoxMontag.Name = "GroupBoxMontag" + Me.GroupBoxMontag.Size = New System.Drawing.Size(242, 132) + Me.GroupBoxMontag.TabIndex = 12 + Me.GroupBoxMontag.TabStop = False + Me.GroupBoxMontag.Text = "Montag" + ' + 'cbxAlt_montag + ' + Me.cbxAlt_montag._allowedValuesFreiText = Nothing + Me.cbxAlt_montag._allowFreiText = True + Me.cbxAlt_montag._value = "" + Me.cbxAlt_montag.DropDownWidth = 120 + Me.cbxAlt_montag.FormattingEnabled = True + Me.cbxAlt_montag.Location = New System.Drawing.Point(1, 107) + Me.cbxAlt_montag.Name = "cbxAlt_montag" + Me.cbxAlt_montag.Size = New System.Drawing.Size(146, 21) + Me.cbxAlt_montag.TabIndex = 35 + Me.cbxAlt_montag.Visible = False + ' + 'txtMenu_montag + ' + Me.txtMenu_montag.Location = New System.Drawing.Point(3, 39) + Me.txtMenu_montag.Name = "txtMenu_montag" + Me.txtMenu_montag.Size = New System.Drawing.Size(236, 46) + Me.txtMenu_montag.TabIndex = 29 + Me.txtMenu_montag.Text = "Menutext" + ' + 'pb_montag + ' + Me.pb_montag.Image = Global.SDL.My.Resources.Resources.positionen + Me.pb_montag.Location = New System.Drawing.Point(168, 19) + Me.pb_montag.Name = "pb_montag" + Me.pb_montag.Size = New System.Drawing.Size(26, 26) + Me.pb_montag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_montag.TabIndex = 4 + Me.pb_montag.TabStop = False + Me.pb_montag.Visible = False + ' + 'cb_montag + ' + Me.cb_montag.AutoSize = True + Me.cb_montag.Location = New System.Drawing.Point(3, 0) + Me.cb_montag.Name = "cb_montag" + Me.cb_montag.Size = New System.Drawing.Size(62, 17) + Me.cb_montag.TabIndex = 3 + Me.cb_montag.Text = "Montag" + Me.cb_montag.UseVisualStyleBackColor = True + ' + 'txtAlt_montag + ' + Me.txtAlt_montag._DateTimeOnly = False + Me.txtAlt_montag._numbersOnly = False + Me.txtAlt_montag._numbersOnlyKommastellen = "" + Me.txtAlt_montag._numbersOnlyTrennzeichen = True + Me.txtAlt_montag._Prozent = False + Me.txtAlt_montag._ShortDateNew = False + Me.txtAlt_montag._ShortDateOnly = False + Me.txtAlt_montag._TimeOnly = False + Me.txtAlt_montag._TimeOnly_Seconds = False + Me.txtAlt_montag._value = "" + Me.txtAlt_montag._Waehrung = False + Me.txtAlt_montag._WaehrungZeichen = True + Me.txtAlt_montag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_montag.Location = New System.Drawing.Point(152, 106) + Me.txtAlt_montag.MaxLineLength = -1 + Me.txtAlt_montag.MaxLines_Warning = "" + Me.txtAlt_montag.MaxLines_Warning_Label = Nothing + Me.txtAlt_montag.Name = "txtAlt_montag" + Me.txtAlt_montag.Size = New System.Drawing.Size(87, 20) + Me.txtAlt_montag.TabIndex = 2 + Me.txtAlt_montag.Visible = False + ' + 'rbMenuAlt_montag + ' + Me.rbMenuAlt_montag.AutoSize = True + Me.rbMenuAlt_montag.GroupName = "GroupBox1" + Me.rbMenuAlt_montag.Location = New System.Drawing.Point(3, 88) + Me.rbMenuAlt_montag.Name = "rbMenuAlt_montag" + Me.rbMenuAlt_montag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_montag.TabIndex = 1 + Me.rbMenuAlt_montag.TabStop = True + Me.rbMenuAlt_montag.Text = "A la carte" + Me.rbMenuAlt_montag.UseVisualStyleBackColor = True + ' + 'rbMenu_montag + ' + Me.rbMenu_montag.AutoSize = True + Me.rbMenu_montag.GroupName = "GroupBox1" + Me.rbMenu_montag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_montag.Name = "rbMenu_montag" + Me.rbMenu_montag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_montag.TabIndex = 0 + Me.rbMenu_montag.TabStop = True + Me.rbMenu_montag.Text = "Menü" + Me.rbMenu_montag.UseVisualStyleBackColor = True + ' + 'GroupBoxFreitag + ' + Me.GroupBoxFreitag.Controls.Add(Me.cbxAlt_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.txtMenu_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.pb_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.cb_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.txtAlt_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.rbMenuAlt_freitag) + Me.GroupBoxFreitag.Controls.Add(Me.rbMenu__freitag) + Me.GroupBoxFreitag.Location = New System.Drawing.Point(264, 149) + Me.GroupBoxFreitag.Name = "GroupBoxFreitag" + Me.GroupBoxFreitag.Size = New System.Drawing.Size(242, 136) + Me.GroupBoxFreitag.TabIndex = 13 + Me.GroupBoxFreitag.TabStop = False + Me.GroupBoxFreitag.Text = "Freitag" + ' + 'cbxAlt_freitag + ' + Me.cbxAlt_freitag._allowedValuesFreiText = Nothing + Me.cbxAlt_freitag._allowFreiText = True + Me.cbxAlt_freitag._value = "" + Me.cbxAlt_freitag.DropDownWidth = 120 + Me.cbxAlt_freitag.FormattingEnabled = True + Me.cbxAlt_freitag.Location = New System.Drawing.Point(0, 112) + Me.cbxAlt_freitag.Name = "cbxAlt_freitag" + Me.cbxAlt_freitag.Size = New System.Drawing.Size(146, 21) + Me.cbxAlt_freitag.TabIndex = 39 + Me.cbxAlt_freitag.Visible = False + ' + 'txtMenu_freitag + ' + Me.txtMenu_freitag.Location = New System.Drawing.Point(3, 39) + Me.txtMenu_freitag.Name = "txtMenu_freitag" + Me.txtMenu_freitag.Size = New System.Drawing.Size(236, 51) + Me.txtMenu_freitag.TabIndex = 32 + Me.txtMenu_freitag.Text = "Menutext" + ' + 'pb_freitag + ' + Me.pb_freitag.Image = Global.SDL.My.Resources.Resources.positionen + Me.pb_freitag.Location = New System.Drawing.Point(168, 19) + Me.pb_freitag.Name = "pb_freitag" + Me.pb_freitag.Size = New System.Drawing.Size(26, 26) + Me.pb_freitag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_freitag.TabIndex = 8 + Me.pb_freitag.TabStop = False + Me.pb_freitag.Visible = False + ' + 'cb_freitag + ' + Me.cb_freitag.AutoSize = True + Me.cb_freitag.Location = New System.Drawing.Point(3, 0) + Me.cb_freitag.Name = "cb_freitag" + Me.cb_freitag.Size = New System.Drawing.Size(58, 17) + Me.cb_freitag.TabIndex = 6 + Me.cb_freitag.Text = "Freitag" + Me.cb_freitag.UseVisualStyleBackColor = True + ' + 'txtAlt_freitag + ' + Me.txtAlt_freitag._DateTimeOnly = False + Me.txtAlt_freitag._numbersOnly = False + Me.txtAlt_freitag._numbersOnlyKommastellen = "" + Me.txtAlt_freitag._numbersOnlyTrennzeichen = True + Me.txtAlt_freitag._Prozent = False + Me.txtAlt_freitag._ShortDateNew = False + Me.txtAlt_freitag._ShortDateOnly = False + Me.txtAlt_freitag._TimeOnly = False + Me.txtAlt_freitag._TimeOnly_Seconds = False + Me.txtAlt_freitag._value = "" + Me.txtAlt_freitag._Waehrung = False + Me.txtAlt_freitag._WaehrungZeichen = True + Me.txtAlt_freitag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_freitag.Location = New System.Drawing.Point(168, 112) + Me.txtAlt_freitag.MaxLineLength = -1 + Me.txtAlt_freitag.MaxLines_Warning = "" + Me.txtAlt_freitag.MaxLines_Warning_Label = Nothing + Me.txtAlt_freitag.Name = "txtAlt_freitag" + Me.txtAlt_freitag.Size = New System.Drawing.Size(68, 20) + Me.txtAlt_freitag.TabIndex = 2 + Me.txtAlt_freitag.Visible = False + ' + 'rbMenuAlt_freitag + ' + Me.rbMenuAlt_freitag.AutoSize = True + Me.rbMenuAlt_freitag.GroupName = "Freitag" + Me.rbMenuAlt_freitag.Location = New System.Drawing.Point(3, 93) + Me.rbMenuAlt_freitag.Name = "rbMenuAlt_freitag" + Me.rbMenuAlt_freitag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_freitag.TabIndex = 1 + Me.rbMenuAlt_freitag.TabStop = True + Me.rbMenuAlt_freitag.Text = "A la carte" + Me.rbMenuAlt_freitag.UseVisualStyleBackColor = True + ' + 'rbMenu__freitag + ' + Me.rbMenu__freitag.AutoSize = True + Me.rbMenu__freitag.GroupName = "Freitag" + Me.rbMenu__freitag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu__freitag.Name = "rbMenu__freitag" + Me.rbMenu__freitag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu__freitag.TabIndex = 0 + Me.rbMenu__freitag.TabStop = True + Me.rbMenu__freitag.Text = "Menü" + Me.rbMenu__freitag.UseVisualStyleBackColor = True + ' + 'txtAnzahlLaCart + ' + Me.txtAnzahlLaCart.AutoSize = True + Me.txtAnzahlLaCart.Location = New System.Drawing.Point(649, 223) + 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(532, 223) + 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.cbxAlt_mittwoch) + Me.Mittwoch.Controls.Add(Me.txtMenu_mittwoch) + Me.Mittwoch.Controls.Add(Me.pb_mittwoch) + Me.Mittwoch.Controls.Add(Me.cb_mittwoch) + Me.Mittwoch.Controls.Add(Me.txtAlt_mittwoch) + Me.Mittwoch.Controls.Add(Me.rbMenuAlt_mittwoch) + Me.Mittwoch.Controls.Add(Me.rbMenu_mittwoch) + Me.Mittwoch.Location = New System.Drawing.Point(513, 8) + Me.Mittwoch.Name = "Mittwoch" + Me.Mittwoch.Size = New System.Drawing.Size(242, 132) + Me.Mittwoch.TabIndex = 13 + Me.Mittwoch.TabStop = False + Me.Mittwoch.Text = "Mittwoch" + ' + 'cbxAlt_mittwoch + ' + Me.cbxAlt_mittwoch._allowedValuesFreiText = Nothing + Me.cbxAlt_mittwoch._allowFreiText = True + Me.cbxAlt_mittwoch._value = "" + Me.cbxAlt_mittwoch.DropDownWidth = 120 + Me.cbxAlt_mittwoch.FormattingEnabled = True + Me.cbxAlt_mittwoch.Location = New System.Drawing.Point(3, 107) + Me.cbxAlt_mittwoch.Name = "cbxAlt_mittwoch" + Me.cbxAlt_mittwoch.Size = New System.Drawing.Size(146, 21) + Me.cbxAlt_mittwoch.TabIndex = 37 + Me.cbxAlt_mittwoch.Visible = False + ' + 'txtMenu_mittwoch + ' + Me.txtMenu_mittwoch.Location = New System.Drawing.Point(3, 39) + Me.txtMenu_mittwoch.Name = "txtMenu_mittwoch" + Me.txtMenu_mittwoch.Size = New System.Drawing.Size(236, 46) + Me.txtMenu_mittwoch.TabIndex = 31 + Me.txtMenu_mittwoch.Text = "Menutext" + ' + 'pb_mittwoch + ' + Me.pb_mittwoch.Image = Global.SDL.My.Resources.Resources.positionen + Me.pb_mittwoch.Location = New System.Drawing.Point(168, 19) + Me.pb_mittwoch.Name = "pb_mittwoch" + Me.pb_mittwoch.Size = New System.Drawing.Size(26, 26) + Me.pb_mittwoch.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_mittwoch.TabIndex = 6 + Me.pb_mittwoch.TabStop = False + Me.pb_mittwoch.Visible = False + ' + 'cb_mittwoch + ' + Me.cb_mittwoch.AutoSize = True + Me.cb_mittwoch.Location = New System.Drawing.Point(0, 0) + Me.cb_mittwoch.Name = "cb_mittwoch" + Me.cb_mittwoch.Size = New System.Drawing.Size(69, 17) + Me.cb_mittwoch.TabIndex = 5 + Me.cb_mittwoch.Text = "Mittwoch" + Me.cb_mittwoch.UseVisualStyleBackColor = True + ' + 'txtAlt_mittwoch + ' + Me.txtAlt_mittwoch._DateTimeOnly = False + Me.txtAlt_mittwoch._numbersOnly = False + Me.txtAlt_mittwoch._numbersOnlyKommastellen = "" + Me.txtAlt_mittwoch._numbersOnlyTrennzeichen = True + Me.txtAlt_mittwoch._Prozent = False + Me.txtAlt_mittwoch._ShortDateNew = False + Me.txtAlt_mittwoch._ShortDateOnly = False + Me.txtAlt_mittwoch._TimeOnly = False + Me.txtAlt_mittwoch._TimeOnly_Seconds = False + Me.txtAlt_mittwoch._value = "" + Me.txtAlt_mittwoch._Waehrung = False + Me.txtAlt_mittwoch._WaehrungZeichen = True + Me.txtAlt_mittwoch.ForeColor = System.Drawing.Color.Black + Me.txtAlt_mittwoch.Location = New System.Drawing.Point(162, 107) + Me.txtAlt_mittwoch.MaxLineLength = -1 + Me.txtAlt_mittwoch.MaxLines_Warning = "" + Me.txtAlt_mittwoch.MaxLines_Warning_Label = Nothing + Me.txtAlt_mittwoch.Name = "txtAlt_mittwoch" + Me.txtAlt_mittwoch.Size = New System.Drawing.Size(77, 20) + Me.txtAlt_mittwoch.TabIndex = 2 + Me.txtAlt_mittwoch.Visible = False + ' + 'rbMenuAlt_mittwoch + ' + Me.rbMenuAlt_mittwoch.AutoSize = True + Me.rbMenuAlt_mittwoch.GroupName = "Mittwoch" + Me.rbMenuAlt_mittwoch.Location = New System.Drawing.Point(3, 88) + Me.rbMenuAlt_mittwoch.Name = "rbMenuAlt_mittwoch" + Me.rbMenuAlt_mittwoch.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_mittwoch.TabIndex = 1 + Me.rbMenuAlt_mittwoch.TabStop = True + Me.rbMenuAlt_mittwoch.Text = "A la carte" + Me.rbMenuAlt_mittwoch.UseVisualStyleBackColor = True + ' + 'rbMenu_mittwoch + ' + Me.rbMenu_mittwoch.AutoSize = True + Me.rbMenu_mittwoch.GroupName = "Mittwoch" + Me.rbMenu_mittwoch.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_mittwoch.Name = "rbMenu_mittwoch" + Me.rbMenu_mittwoch.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_mittwoch.TabIndex = 0 + Me.rbMenu_mittwoch.TabStop = True + Me.rbMenu_mittwoch.Text = "Menü" + Me.rbMenu_mittwoch.UseVisualStyleBackColor = True + ' + 'GroupBoxDonnerstag + ' + Me.GroupBoxDonnerstag.Controls.Add(Me.cbxAlt_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.txtMenu_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.pb_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.cbdonnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.txtAlt_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenuAlt_donnerstag) + Me.GroupBoxDonnerstag.Controls.Add(Me.rbMenu_donnerstag) + Me.GroupBoxDonnerstag.Location = New System.Drawing.Point(3, 146) + Me.GroupBoxDonnerstag.Name = "GroupBoxDonnerstag" + Me.GroupBoxDonnerstag.Size = New System.Drawing.Size(245, 136) + Me.GroupBoxDonnerstag.TabIndex = 13 + Me.GroupBoxDonnerstag.TabStop = False + Me.GroupBoxDonnerstag.Text = "Donnerstag" + ' + 'cbxAlt_donnerstag + ' + Me.cbxAlt_donnerstag._allowedValuesFreiText = Nothing + Me.cbxAlt_donnerstag._allowFreiText = True + Me.cbxAlt_donnerstag._value = "" + Me.cbxAlt_donnerstag.DropDownWidth = 120 + Me.cbxAlt_donnerstag.FormattingEnabled = True + Me.cbxAlt_donnerstag.Location = New System.Drawing.Point(3, 114) + Me.cbxAlt_donnerstag.Name = "cbxAlt_donnerstag" + Me.cbxAlt_donnerstag.Size = New System.Drawing.Size(146, 21) + Me.cbxAlt_donnerstag.TabIndex = 38 + Me.cbxAlt_donnerstag.Visible = False + ' + 'txtMenu_donnerstag + ' + Me.txtMenu_donnerstag.Location = New System.Drawing.Point(3, 39) + Me.txtMenu_donnerstag.Name = "txtMenu_donnerstag" + Me.txtMenu_donnerstag.Size = New System.Drawing.Size(239, 51) + Me.txtMenu_donnerstag.TabIndex = 33 + Me.txtMenu_donnerstag.Text = "Menutext" + ' + 'pb_donnerstag + ' + Me.pb_donnerstag.Image = Global.SDL.My.Resources.Resources.positionen + Me.pb_donnerstag.Location = New System.Drawing.Point(171, 19) + Me.pb_donnerstag.Name = "pb_donnerstag" + Me.pb_donnerstag.Size = New System.Drawing.Size(26, 26) + Me.pb_donnerstag.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage + Me.pb_donnerstag.TabIndex = 7 + Me.pb_donnerstag.TabStop = False + Me.pb_donnerstag.Visible = 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 + ' + 'txtAlt_donnerstag + ' + Me.txtAlt_donnerstag._DateTimeOnly = False + Me.txtAlt_donnerstag._numbersOnly = False + Me.txtAlt_donnerstag._numbersOnlyKommastellen = "" + Me.txtAlt_donnerstag._numbersOnlyTrennzeichen = True + Me.txtAlt_donnerstag._Prozent = False + Me.txtAlt_donnerstag._ShortDateNew = False + Me.txtAlt_donnerstag._ShortDateOnly = False + Me.txtAlt_donnerstag._TimeOnly = False + Me.txtAlt_donnerstag._TimeOnly_Seconds = False + Me.txtAlt_donnerstag._value = "" + Me.txtAlt_donnerstag._Waehrung = False + Me.txtAlt_donnerstag._WaehrungZeichen = True + Me.txtAlt_donnerstag.ForeColor = System.Drawing.Color.Black + Me.txtAlt_donnerstag.Location = New System.Drawing.Point(155, 112) + Me.txtAlt_donnerstag.MaxLineLength = -1 + Me.txtAlt_donnerstag.MaxLines_Warning = "" + Me.txtAlt_donnerstag.MaxLines_Warning_Label = Nothing + Me.txtAlt_donnerstag.Name = "txtAlt_donnerstag" + Me.txtAlt_donnerstag.Size = New System.Drawing.Size(87, 20) + Me.txtAlt_donnerstag.TabIndex = 2 + Me.txtAlt_donnerstag.Visible = False + ' + 'rbMenuAlt_donnerstag + ' + Me.rbMenuAlt_donnerstag.AutoSize = True + Me.rbMenuAlt_donnerstag.GroupName = "Donnerstag" + Me.rbMenuAlt_donnerstag.Location = New System.Drawing.Point(3, 93) + Me.rbMenuAlt_donnerstag.Name = "rbMenuAlt_donnerstag" + Me.rbMenuAlt_donnerstag.Size = New System.Drawing.Size(70, 17) + Me.rbMenuAlt_donnerstag.TabIndex = 1 + Me.rbMenuAlt_donnerstag.TabStop = True + Me.rbMenuAlt_donnerstag.Text = "A la carte" + Me.rbMenuAlt_donnerstag.UseVisualStyleBackColor = True + ' + 'rbMenu_donnerstag + ' + Me.rbMenu_donnerstag.AutoSize = True + Me.rbMenu_donnerstag.GroupName = "Donnerstag" + Me.rbMenu_donnerstag.Location = New System.Drawing.Point(3, 19) + Me.rbMenu_donnerstag.Name = "rbMenu_donnerstag" + Me.rbMenu_donnerstag.Size = New System.Drawing.Size(52, 17) + Me.rbMenu_donnerstag.TabIndex = 0 + Me.rbMenu_donnerstag.TabStop = True + Me.rbMenu_donnerstag.Text = "Menü" + Me.rbMenu_donnerstag.UseVisualStyleBackColor = True + ' + 'txtAnzahlMenu + ' + Me.txtAnzahlMenu.AutoSize = True + Me.txtAnzahlMenu.Location = New System.Drawing.Point(649, 181) + 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(0, 468) + 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(767, 165) + 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.IntegralHeight = False + Me.cbxMenu.Location = New System.Drawing.Point(15, 81) + Me.cbxMenu.Name = "cbxMenu" + Me.cbxMenu.Size = New System.Drawing.Size(136, 21) + Me.cbxMenu.TabIndex = 0 ' 'frmEssensbestellungen ' @@ -984,6 +1081,10 @@ Partial Class frmEssensbestellungen Me.Name = "frmEssensbestellungen" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Essensbestellung" + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlTop.ResumeLayout(False) + Me.pnlTop.PerformLayout() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() Me.MyPanel1.ResumeLayout(False) Me.MyPanel1.PerformLayout() Me.GroupBoxDienstag.ResumeLayout(False) @@ -1002,10 +1103,6 @@ Partial Class frmEssensbestellungen Me.GroupBoxDonnerstag.PerformLayout() CType(Me.pb_donnerstag, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvBestellungen, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - Me.pnlTop.ResumeLayout(False) - Me.pnlTop.PerformLayout() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1083,4 +1180,11 @@ Partial Class frmEssensbestellungen Friend WithEvents txtAnmerkung As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents lbloffenerBetrag As Label Friend WithEvents PictureBox5 As PictureBox + Friend WithEvents cbxAlt_dienstag As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAlt_montag As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAlt_freitag As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAlt_mittwoch As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAlt_donnerstag As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents txtAnzahlKeb As Label + Friend WithEvents Label6 As Label End Class diff --git a/SDL/frmEssensbestellungen.vb b/SDL/frmEssensbestellungen.vb index d89283f6..b3455dd1 100644 --- a/SDL/frmEssensbestellungen.vb +++ b/SDL/frmEssensbestellungen.vb @@ -1,4 +1,5 @@  +Imports System.Web.UI.WebControls.Expressions Imports com.sun.org.apache.xpath.internal.functions Imports VERAG_PROG_ALLGEMEIN @@ -21,8 +22,19 @@ Public Class frmEssensbestellungen PictureBox5.Visible = True + Dim list As New List(Of MyListItem) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Kebap", "Kebap")) + list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dürüm", "Dürüm")) + 'list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + 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() + cbxAlt_montag.Items.AddRange(list.ToArray()) + cbxAlt_dienstag.Items.AddRange(list.ToArray()) + cbxAlt_mittwoch.Items.AddRange(list.ToArray()) + cbxAlt_donnerstag.Items.AddRange(list.ToArray()) + cbxAlt_freitag.Items.AddRange(list.ToArray()) + txtMA.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME txtAbteilung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG loadDGVBestellungen() @@ -54,8 +66,8 @@ Public Class frmEssensbestellungen setWarning(False) ElseIf rbMenuAlt_montag.Checked Then - If txtAlt_montag.Text.ToString.Replace(" ", "") <> "" Then - essen.eb_montag = txtAlt_montag.Text.ToString + If cbxAlt_montag._value.ToString.Replace(" ", "") <> "" Then + essen.eb_montag = cbxAlt_montag._value 'txtAlt_montag.Text.ToString setWarning(False) Else setWarning(True) @@ -75,8 +87,8 @@ Public Class frmEssensbestellungen essen.eb_dienstag = menu setWarning(False) ElseIf rbMenuAlt_dienstag.Checked Then - If txtAlt_dienstag.Text.ToString.Replace(" ", "") <> "" Then - essen.eb_dienstag = txtAlt_dienstag.Text.ToString + If cbxAlt_dienstag._value.ToString.Replace(" ", "") <> "" Then + essen.eb_dienstag = cbxAlt_dienstag._value 'txtAlt_dienstag.Text.ToString setWarning(False) Else setWarning(True) @@ -95,8 +107,8 @@ Public Class frmEssensbestellungen essen.eb_mittwoch = menu setWarning(False) ElseIf rbMenuAlt_mittwoch.Checked Then - If txtAlt_mittwoch.Text.ToString.Replace(" ", "") <> "" Then - essen.eb_mittwoch = txtAlt_mittwoch.Text.ToString + If cbxAlt_mittwoch._value.ToString.Replace(" ", "") <> "" Then + essen.eb_mittwoch = cbxAlt_mittwoch._value 'txtAlt_mittwoch.Text.ToString setWarning(False) Else setWarning(True) @@ -115,8 +127,8 @@ Public Class frmEssensbestellungen essen.eb_donnerstag = menu setWarning(False) ElseIf rbMenuAlt_donnerstag.Checked Then - If txtAlt_donnerstag.Text.ToString.Replace(" ", "") <> "" Then - essen.eb_donnerstag = txtAlt_donnerstag.Text.ToString + If cbxAlt_donnerstag._value.ToString.Replace(" ", "") <> "" Then + essen.eb_donnerstag = cbxAlt_donnerstag._value 'txtAlt_donnerstag.Text.ToString setWarning(False) Else setWarning(True) @@ -135,8 +147,8 @@ Public Class frmEssensbestellungen essen.eb_freitag = menu setWarning(False) ElseIf rbMenuAlt_freitag.Checked Then - If txtAlt_freitag.Text.ToString.Replace(" ", "") <> "" Then - essen.eb_freitag = txtAlt_freitag.Text.ToString + If cbxAlt_freitag._value.ToString.Replace(" ", "") <> "" Then + essen.eb_freitag = cbxAlt_freitag._value 'txtAlt_freitag.Text.ToString setWarning(False) Else setWarning(True) @@ -211,35 +223,45 @@ Public Class frmEssensbestellungen Private Sub rbaLaCarte_CheckedChanged(sender As Object, e As EventArgs) Handles rbMenuAlt_montag.CheckedChanged, rbMenuAlt_dienstag.CheckedChanged, rbMenuAlt_donnerstag.CheckedChanged, rbMenuAlt_mittwoch.CheckedChanged, rbMenuAlt_freitag.CheckedChanged If rbMenuAlt_montag.Checked Then - txtAlt_montag.Visible = True + 'txtAlt_montag.Visible = True + cbxAlt_montag.Visible = True Else - txtAlt_montag.Visible = False + cbxAlt_montag.Visible = False + 'txtAlt_montag.Visible = False End If If rbMenuAlt_dienstag.Checked Then - txtAlt_dienstag.Visible = True + cbxAlt_dienstag.Visible = True + 'txtAlt_dienstag.Visible = True Else - txtAlt_dienstag.Visible = False + cbxAlt_dienstag.Visible = False + 'txtAlt_dienstag.Visible = False End If If rbMenuAlt_mittwoch.Checked Then - txtAlt_mittwoch.Visible = True + cbxAlt_mittwoch.Visible = True + 'txtAlt_mittwoch.Visible = True Else - txtAlt_mittwoch.Visible = False + cbxAlt_mittwoch.Visible = False + 'txtAlt_mittwoch.Visible = False End If If rbMenuAlt_donnerstag.Checked Then - txtAlt_donnerstag.Visible = True + cbxAlt_donnerstag.Visible = True + 'txtAlt_donnerstag.Visible = True Else - txtAlt_donnerstag.Visible = False + cbxAlt_donnerstag.Visible = False + 'txtAlt_donnerstag.Visible = False End If If rbMenuAlt_freitag.Checked Then - txtAlt_freitag.Visible = True + cbxAlt_freitag.Visible = True + 'txtAlt_freitag.Visible = True Else - txtAlt_freitag.Visible = False + cbxAlt_freitag.Visible = False + 'txtAlt_freitag.Visible = False End If countChecks() End Sub @@ -273,7 +295,7 @@ Public Class frmEssensbestellungen End If Else - rbMenu_dienstag.Enabled = False + rbMenu_dienstag.Enabled = False rbMenuAlt_dienstag.Enabled = False txtAlt_dienstag.Text = "" End If @@ -288,7 +310,7 @@ Public Class frmEssensbestellungen End If Else - rbMenu_mittwoch.Enabled = False + rbMenu_mittwoch.Enabled = False rbMenuAlt_mittwoch.Enabled = False txtAlt_mittwoch.Text = "" End If @@ -304,7 +326,7 @@ Public Class frmEssensbestellungen End If Else - rbMenu_donnerstag.Enabled = False + rbMenu_donnerstag.Enabled = False rbMenuAlt_donnerstag.Enabled = False txtAlt_donnerstag.Text = "" End If @@ -319,7 +341,7 @@ Public Class frmEssensbestellungen End If Else - rbMenu__freitag.Enabled = False + rbMenu__freitag.Enabled = False rbMenuAlt_freitag.Enabled = False txtAlt_freitag.Text = "" End If @@ -411,8 +433,12 @@ Public Class frmEssensbestellungen Dim countMenus As Integer Dim countlaCarte As Integer + Dim countKebab As Integer + countMenus = 0 countlaCarte = 0 + countKebab = 0 + For Each gb As Control In MyPanel1.Controls If TypeOf gb Is GroupBox Then For Each c As Control In gb.Controls @@ -425,6 +451,16 @@ Public Class frmEssensbestellungen 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 If rb.Checked Then countlaCarte = countlaCarte + 1 + + End If + + If TypeOf c Is VERAG_PROG_ALLGEMEIN.MyComboBox AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then + Dim cbx As VERAG_PROG_ALLGEMEIN.MyComboBox = c + If cbx.Visible = True AndAlso cbx.SelectedItem IsNot Nothing Then + + countKebab = countKebab + 1 + countlaCarte = countlaCarte - 1 + End If End If Next End If @@ -432,7 +468,17 @@ Public Class frmEssensbestellungen txtAnzahlMenu.Text = countMenus.ToString() txtAnzahlLaCart.Text = countlaCarte.ToString - txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus)) * preisProMahlzeit 'IIf(bestellung.eb_storniert, preisProMahlzeit * 0, preisProMahlzeit * 1) + txtAnzahlKeb.Text = countKebab.ToString + + If CDate(dt.Rows(0).Item("MenuDateVon")).ToString("dd.MM.yyyy") >= DateTime.Parse("01/06/2024") Then + + txtPreis.Text = (CDbl(countKebab) + CDbl(countMenus)) * 3 + CDbl(countlaCarte) * 5 + Else + + txtPreis.Text = (CDbl(countlaCarte) + CDbl(countMenus) + CDbl(countKebab)) * preisProMahlzeit + End If + + 'IIf(bestellung.eb_storniert, preisProMahlzeit * 0, preisProMahlzeit * 1) End Sub @@ -505,19 +551,27 @@ Public Class frmEssensbestellungen rbMenu_montag.Checked = True Else rbMenuAlt_montag.Checked = True - If currentEssen.eb_montag IsNot Nothing Then txtAlt_montag.Text = currentEssen.eb_montag.ToString + If currentEssen.eb_montag IsNot Nothing Then cbxAlt_montag.changeItem(currentEssen.eb_montag.ToString) + If cbxAlt_montag.SelectedValue = Nothing Then + cbxAlt_montag.Text = currentEssen.eb_montag.ToString + End If End If Else cb_montag.Checked = False End If + + If currentEssen.eb_dienstag IsNot Nothing Then cb_dienstag.Checked = True If currentEssen.eb_dienstag.ToString = menu Then rbMenu_dienstag.Checked = True Else rbMenuAlt_dienstag.Checked = True - If currentEssen.eb_dienstag IsNot Nothing Then txtAlt_dienstag.Text = currentEssen.eb_dienstag.ToString + If currentEssen.eb_dienstag IsNot Nothing Then cbxAlt_dienstag.changeItem(currentEssen.eb_dienstag.ToString) + If cbxAlt_dienstag.SelectedValue = Nothing Then + cbxAlt_dienstag.Text = currentEssen.eb_dienstag.ToString + End If End If Else cb_dienstag.Checked = False @@ -530,32 +584,43 @@ Public Class frmEssensbestellungen rbMenu_mittwoch.Checked = True Else rbMenuAlt_mittwoch.Checked = True - If currentEssen.eb_mittwoch IsNot Nothing Then txtAlt_mittwoch.Text = currentEssen.eb_mittwoch.ToString + If currentEssen.eb_mittwoch IsNot Nothing Then cbxAlt_mittwoch.changeItem(currentEssen.eb_mittwoch.ToString) + If cbxAlt_mittwoch.SelectedValue = Nothing Then + cbxAlt_mittwoch.Text = currentEssen.eb_mittwoch.ToString + End If End If Else cb_mittwoch.Checked = False End If + If currentEssen.eb_donnerstag IsNot Nothing Then cbdonnerstag.Checked = True If currentEssen.eb_donnerstag.ToString = menu Then rbMenu_donnerstag.Checked = True Else rbMenuAlt_donnerstag.Checked = True - If currentEssen.eb_donnerstag IsNot Nothing Then txtAlt_donnerstag.Text = currentEssen.eb_donnerstag.ToString + If currentEssen.eb_donnerstag IsNot Nothing Then cbxAlt_donnerstag.changeItem(currentEssen.eb_donnerstag.ToString) + If cbxAlt_donnerstag.SelectedValue = Nothing Then + cbxAlt_donnerstag.Text = currentEssen.eb_donnerstag.ToString + End If End If Else cbdonnerstag.Checked = False End If + If currentEssen.eb_freitag IsNot Nothing Then cb_freitag.Checked = True If currentEssen.eb_freitag.ToString = menu Then rbMenu__freitag.Checked = True Else rbMenuAlt_freitag.Checked = True - If currentEssen.eb_freitag IsNot Nothing Then txtAlt_freitag.Text = currentEssen.eb_freitag.ToString + If currentEssen.eb_freitag IsNot Nothing Then cbxAlt_freitag.changeItem(currentEssen.eb_freitag.ToString) + If cbxAlt_freitag.SelectedValue = Nothing Then + cbxAlt_freitag.Text = currentEssen.eb_freitag.ToString + End If End If Else cb_freitag.Checked = False @@ -645,6 +710,11 @@ Public Class frmEssensbestellungen Process.Start(webAddress) End Sub + Private Sub cbxAlt_freitag_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxAlt_montag.SelectedValueChanged, cbxAlt_dienstag.SelectedValueChanged, cbxAlt_mittwoch.SelectedValueChanged, cbxAlt_donnerstag.SelectedValueChanged, cbxAlt_freitag.SelectedValueChanged, cbxAlt_montag.TextChanged, cbxAlt_dienstag.TextChanged, cbxAlt_mittwoch.TextChanged, cbxAlt_donnerstag.TextChanged, cbxAlt_freitag.TextChanged + countChecks() + End Sub + + Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click cbxMenu.changeItem("") End Sub diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb index b22a75c4..9f4479dd 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb @@ -418,7 +418,7 @@ Public Class cSpeditionsbuch - Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) @@ -496,7 +496,7 @@ Public Class cSpeditionsbuch list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrAvisierer", KdAuftragsNrAvisierer)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrEmpfaenger", KdAuftragsNrEmpfaenger)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrFrachtfuehrer", KdAuftragsNrFrachtfuehrer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrFrachtfuehrer", KdAuftragsNrFrachtfuehrer)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_Zeitstempel", SB_Zeitstempel)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse", NCTS_Verzollungsadresse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_VerzollungsadresseKdNr", NCTS_VerzollungsadresseKdNr)) @@ -888,4 +888,266 @@ Public Class cEndEmpfaener +End Class + +Public Class cSpeditionsbucharchiv + + Property FilialenNr As Integer = -1 + Property AbfertigungsNr As Integer = -1 + Property UnterNr As Integer = -1 + Property Abfertigungsdatum As Object = CDate(Now.ToShortDateString) + Property Bar As Boolean = False + Property Fakturiert As Boolean = False + Property BelegNr As String = "" + Property ErfassungsNr As String = "" + Property LKW_Kennzeichen As String = "" + + Property AvisiererKundenNr As Object = Nothing + + Public Avisierer As String = "" + Property AbsenderKundenNr As Object = Nothing + + Public Absender As String = "" + Property AbsenderOffertenNr As Object = Nothing + Property EmpfängerKundenNr As Object = Nothing + Public Empfänger As String = "" + Property EmpfängerOffertenNr As Object = Nothing + Property VermittlerKundenNr As Object = Nothing + + Public Vermittler As String = "" + Property VermittlerOffertenNr As Object = Nothing + Property FrachtführerKundenNr As Object = Nothing + + Public Frachtführer As String = "" + + + Property AnzahlZA As Integer = 0 + Property AnzahlZAFremd As Integer = 0 + Property AnzahlZnV As Integer = 0 + Property AnzahlZnVFremd As Integer = 0 + Property AnzahlT1 As Integer = 0 + Property AnzahlT2 As Integer = 0 + Property AnzahlAE As Integer = 0 + Property AnzahlCarnetTIR As Integer = 0 + Property AnzahlBarvorlagen As Integer = 0 + Property AnzahlSonstiges As Integer = 0 + Property AnzahlGrenzgebühren As Integer = 0 + Property AvisUhrzeit As String = "" + Property Vermerk As String = "" + Property Bemerkungen As String = "" + Property Währungsschlüssel As Object = Nothing 'int=-1 + Property Rechnungsbetrag As Object = Nothing 'dbl=0 + Property Umrechnungskurs As Object = CDbl(1) 'dbl=1 + Property Packstücke As String = "" + Property Packstücke_Zoll As String = "" + Property Rohmasse As Object = Nothing 'int=0 + Property Zahlungsaufschub As String = "" + Property Löschen As Object = Nothing + Property Abfertigungsart As Object = Nothing + Property Abfertigungsanzahl As Integer = 0 + Property AbfertigungsanzahlPos As Object = Nothing + Property Barzahlungsbetrag As Double = 0 + + Public Sachbearbeiter As String = "" + Property Personalnummer As Object = Nothing 'int=-1 + Property PersonalnummerQS As Object = Nothing 'int=-1 + Property AtlasBezNrEZA As String = "" + Property AtlasBezNrNCTS As String = "" + Property AtlasBezNrAES As String = "" + Property Versendungsland As String = "" + Property SB_CMR As Boolean = False + Property SB_CMRDatum As Object = Nothing + Property SB_CMRNr As Object = Nothing + Property veoerz_basbtg As Double = 0 + Property Zucker_MRN_Nr As Object = Nothing + Property Zucker_MRN_Datum As Object = Nothing + Property Zucker_Aufschub As Object = Nothing + Property Zollsystem As String = Nothing + Property Bestimmungszollstelle As String = "" + Property Bürgschaft As String = "" + Property Sicherheitsbetrag As Double = 0 + Property SgutKompl As Object = Nothing + Property Bestimmungsland As String = "" + Property EuFiskalEmpfänger As String = "" + Property QKN As String = "" + Property EndempfängerKundenNr As Object = Nothing + + Public Endempfänger As String = "" + + Property AvisoID As Object = Nothing + Property SendungID As Object = Nothing + Property Grenzstelle As Object = Nothing + + + Property KdAuftragsNr As Object = Nothing + Property KdAuftragsNrAvisierer As Object = Nothing + Property KdAuftragsNrEmpfaenger As Object = Nothing + Property KdAuftragsNrFrachtfuehrer As Object = Nothing + Property SB_Zeitstempel As Object = Now + + Property NCTS_Verzollungsadresse As Object = Nothing + Property NCTS_VerzollungsadresseKdNr As Object = Nothing + Property AuftraggeberBetragKassiert As Object = Nothing + + Property Lieferantenrechnung As Object = Nothing + Property DokumentId_Steuerbeleg As Object = Nothing + Property DokumentId_Mitteilung As Object = Nothing + Property DokumentId_VBD As Object = Nothing + Property DokumentId_ABD As Object = Nothing + Property DokumentId_AVM As Object = Nothing + Property FilialenNrHandling As Object = Nothing + Property HandlingZuKassieren As Double = 0 + + Property FilialenNrAbklaerung As Object = Nothing + Property PersonalnummerAbklTR As Object = Nothing + Property UK_EIDR_ausstehend As Boolean = False + Property Zollstelle As Object = Nothing + Property Zollsystem_Land As Object = Nothing + Property geloescht_von As Object = Nothing + Property geloescht_am As Object = Nothing + + Dim SQL As New SQL + + Public Sub New() + End Sub + + Property hasEntry As Boolean = False + + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", FilialenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", AbfertigungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UnterNr", UnterNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsdatum", Abfertigungsdatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bar", Bar)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Fakturiert", Fakturiert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BelegNr", BelegNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ErfassungsNr", ErfassungsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LKW Kennzeichen", LKW_Kennzeichen, "LKWKennzeichen")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisiererKundenNr", AvisiererKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Avisierer", Avisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderKundenNr", AbsenderKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Absender", Absender)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbsenderOffertenNr", AbsenderOffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerKundenNr", EmpfängerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Empfänger", Empfänger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EmpfängerOffertenNr", EmpfängerOffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerKundenNr", VermittlerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermittler", Vermittler)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VermittlerOffertenNr", VermittlerOffertenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FrachtführerKundenNr", FrachtführerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Frachtführer", Frachtführer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZA", AnzahlZA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZAFremd", AnzahlZAFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnV", AnzahlZnV)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlZnVFremd", AnzahlZnVFremd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT1", AnzahlT1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlT2", AnzahlT2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlAE", AnzahlAE)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlCarnetTIR", AnzahlCarnetTIR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlBarvorlagen", AnzahlBarvorlagen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlSonstiges", AnzahlSonstiges)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AnzahlGrenzgebühren", AnzahlGrenzgebühren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisUhrzeit", AvisUhrzeit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Vermerk", Vermerk)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bemerkungen", Bemerkungen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Währungsschlüssel", Währungsschlüssel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke_Zoll", Packstücke_Zoll)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsaufschub", Zahlungsaufschub)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Löschen", Löschen)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsart", Abfertigungsart)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Abfertigungsanzahl", Abfertigungsanzahl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsanzahlPos", AbfertigungsanzahlPos)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Barzahlungsbetrag", Barzahlungsbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Personalnummer", Personalnummer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerQS", PersonalnummerQS)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrEZA", AtlasBezNrEZA)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrNCTS", AtlasBezNrNCTS)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AtlasBezNrAES", AtlasBezNrAES)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Versendungsland", Versendungsland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMR", SB_CMR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRDatum", SB_CMRDatum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("veoerz_basbtg", veoerz_basbtg)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Nr", Zucker_MRN_Nr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_MRN_Datum", Zucker_MRN_Datum)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zucker_Aufschub", Zucker_Aufschub)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollsystem", Zollsystem)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungszollstelle", Bestimmungszollstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bürgschaft", Bürgschaft)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sicherheitsbetrag", Sicherheitsbetrag)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SgutKompl", SgutKompl)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bestimmungsland", Bestimmungsland)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EuFiskalEmpfänger", EuFiskalEmpfänger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("QKN", QKN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EndempfängerKundenNr", EndempfängerKundenNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Endempfänger", Endempfänger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoID", AvisoID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungID", SendungID)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNr", KdAuftragsNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrAvisierer", KdAuftragsNrAvisierer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrEmpfaenger", KdAuftragsNrEmpfaenger)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KdAuftragsNrFrachtfuehrer", KdAuftragsNrFrachtfuehrer)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_Zeitstempel", SB_Zeitstempel)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_Verzollungsadresse", NCTS_Verzollungsadresse)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NCTS_VerzollungsadresseKdNr", NCTS_VerzollungsadresseKdNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Grenzstelle", Grenzstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AuftraggeberBetragKassiert", AuftraggeberBetragKassiert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Lieferantenrechnung", Lieferantenrechnung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Steuerbeleg", DokumentId_Steuerbeleg)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Mitteilung", DokumentId_Mitteilung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_VBD", DokumentId_VBD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_ABD", DokumentId_ABD)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_AVM", DokumentId_AVM)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrHandling", FilialenNrHandling)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrAbklaerung", FilialenNrAbklaerung)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", PersonalnummerAbklTR)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UK_EIDR_ausstehend", UK_EIDR_ausstehend)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollstelle", Zollstelle)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollsystem_Land", Zollsystem_Land)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("geloescht_am", geloescht_am)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("geloescht_von", geloescht_von)) + + + Return list + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + str &= "[" & i.Text & "]," + values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & "," + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO [tblSpeditionsbucharchiv] (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + ' MsgBox(getUpdateCmd()) + Dim sqlstr = "BEGIN TRAN BEGIN " & getInsertCmd() & " END " & + " commit tran " + + If SQL.doSQLVarList(sqlstr, "FMZOLL", , list) Then + Return True + End If + Return False + End Function + End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb index f631a545..07353fa9 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb @@ -284,7 +284,7 @@ Public Class cSyska_Interface End If End Function - Public Shared Function genDatensatz_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False, Optional WdhDateiname As String = "") As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean + Public Shared Function genDatensatz_Buchungen(ByRef Firma_ID As Integer, Optional OpenFile As Boolean = False, Optional WdhDateiname As String = "", Optional ambargubuchungen As Boolean = False) As Boolean ' Optional OpenFile = False, Optional boolKunden = True, Optional boolBuchungen = True ) As Boolean Try Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_ID) @@ -314,14 +314,14 @@ Public Class cSyska_Interface '----------------- Buchungssätze ----------------- If True Then 'boolBuchungen Then - If WdhDateiname = "" Then TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX ) - Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID, WdhDateiname) + If WdhDateiname = "" AndAlso Not ambargubuchungen Then TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX ) + Dim dt_Buchungen As DataTable = getBuchungen(FIRMA.Firma_ID, WdhDateiname, ambargubuchungen) ' MsgBox(WdhDateiname & " - " & dt_Buchungen.Rows.Count) If dt_Buchungen IsNot Nothing AndAlso dt_Buchungen.Rows.Count > 0 Then Try Dim file As System.IO.StreamWriter - Dim Dateiname = "AVISO_BUBE_" & Now.ToString("ddMMyyyy_HHmm") & ".txt" + Dim Dateiname = IIf(ambargubuchungen, "GS_AMBAR_", "AVISO_BUBE_") & Now.ToString("ddMMyyyy_HHmm") & ".txt" file = My.Computer.FileSystem.OpenTextFileWriter(path & Dateiname, True, System.Text.Encoding.GetEncoding("iso-8859-15")) ' initKDNr(dt_Buchungen) @@ -337,30 +337,38 @@ Public Class cSyska_Interface curDifferenzbetrag = Math.Round(If(r("RechnungsbetragFremd") < 0, 0 - r("RechnungsbetragFremd"), r("RechnungsbetragFremd")), 2) End If - If r("BelegartenNr") = 70 Then 'RECHNUNG ---> Immer am Anfang - file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA)) + If r("BelegartenNr") = 70 Or ambargubuchungen And r("BelegartenNr") = 71 Then 'RECHNUNG ---> Immer am Anfang + file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA, ambargubuchungen)) End If - Dim dt_BuchungenZeilen As DataTable = getBuchungenZeilen(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"), WdhDateiname) + Dim dt_BuchungenZeilen As DataTable + + If Not ambargubuchungen Then + dt_BuchungenZeilen = getBuchungenZeilen(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"), WdhDateiname) + Else + dt_BuchungenZeilen = getBuchungenZeilenAMBAR(FIRMA.Firma_ID, r("Rechnungsnummer"), r("Rechnungsdatum"), WdhDateiname) + End If + If dt_BuchungenZeilen IsNot Nothing AndAlso dt_BuchungenZeilen.Rows.Count > 0 Then For Each rz In dt_BuchungenZeilen.Rows - file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag)) ' BuchungsZeilen... + file.WriteLine(genBuchungsZeile(rz, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag, ambargubuchungen)) ' BuchungsZeilen... Next End If If curDifferenzbetrag <> 0 Then 'Differenz --> Ausgelich auf Diff.Konto file.WriteLine(genBuchungsZeileDiffBetrag(r, SummeBuchungen, Geschaeftsjahr, FIRMA, curDifferenzbetrag)) End If - If r("BelegartenNr") = 71 Then 'GUTSCHRIFT ---> Immer am Schluss - file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA)) + If r("BelegartenNr") = 71 And Not ambargubuchungen Then 'GUTSCHRIFT ---> Immer am Schluss + file.WriteLine(genBuchungsZeileSum(r, SummeBuchungen, Geschaeftsjahr, FIRMA, ambargubuchungen)) End If Next ' file.WriteLine(genBuchungenEnd(SummeBuchungen)) bool_DatenVorhanden = True 'Update Filename TrdIn 'NOCH NICHT!!!! -->JETZT DOCH!!! + Dim varDateiname As String = IIf(ambargubuchungen, "AmbDateiname", "TrdinDateiname") If WdhDateiname = "" Then - SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname is null ", "FMZOLL") + SQL.doSQL("update [tblTrdinInvoice] Set " & varDateiname & "='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND " & varDateiname & " is null ", "FMZOLL") Else - SQL.doSQL("update [tblTrdinInvoice] Set TrdinDateiname='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND TrdinDateiname ='" & WdhDateiname & "' ", "FMZOLL") + SQL.doSQL("update [tblTrdinInvoice] Set " & varDateiname & "='" & Now.ToString("ddMMyyyyHHmm") & "' WHERE [Firma_ID] = " & FIRMA.Firma_ID & " AND " & varDateiname & " ='" & WdhDateiname & "' ", "FMZOLL") End If file.Close() @@ -504,20 +512,31 @@ Public Class cSyska_Interface If IsNumeric(s) Then Return CDbl(s).ToString("N" & Nachkommastellen) Return s.ToString End Function - Shared Function getBuchungen(Firma_ID As Integer, Optional WdhDateiname As String = "") As DataTable + Shared Function getBuchungen(Firma_ID As Integer, Optional WdhDateiname As String = "", Optional ambargubuchungen As Boolean = False) As DataTable + + Dim where As String = "" + + If Not ambargubuchungen Then + where = "WHERE Firma_ID ='" & Firma_ID & "' AND " & If(WdhDateiname = "", " TrdinDateiname Is Null ", " TrdinDateiname ='" & WdhDateiname & "' ") & " " + Else + where = "WHERE Firma_ID ='24' and RechnungsKundenNr = 3013401 and RechnungsUstIdNr = 'U53187000' And BelegartenNr = 71 AND " & If(WdhDateiname = "", " AmbDateiname Is Null ", " AmbDateiname ='" & WdhDateiname & "' ") & " " + End If + + Dim kundennr = IIf(Not ambargubuchungen, "min(KundenNrZentrale)", "'725012'") 'fixe Debitorennr für AMBAR - VERAG Buchungen + Dim sqlStr = " SELECT IVO.Rechnungsdatum,IVO.Rechnungsnummer,min(Speditionsbuch) as Speditionsbuch ,min(FilialenNr) as FilialenNr,min(AbfertigungsNr) as AbfertigungsNr,min(UnterNr) as UnterNr,min(Abfertigungsdatum) as Abfertigungsdatum,min(BelegartenNr) as BelegartenNr - ,min(KundenNrZentrale) as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr + ," & kundennr & " as [KundenNrZentrale],min(RechnungsKundenNr) as RechnungsKundenNr,min(RechnungsLandKz) as RechnungsLandKz,min(RechnungsUstIdKz) as RechnungsUstIdKz,min(RechnungsUstIdNr) as RechnungsUstIdNr ,min(Lastschrift+0) as Lastschrift,min(Steuerschlüssel) as Steuerschlüssel,min([Steuersatz %]) as Steuersatz,min(WährungLokal) as WährungLokal,min(SteuerbetragLokal) as SteuerbetragLokal,min(RechnungsbetragLokal) as RechnungsbetragLokal ,min(WährungFremd) as WährungFremd,min(SteuerbetragFremd) as SteuerbetragFremd,min(RechnungsbetragFremd) as RechnungsbetragFremd,min(TrdinDateiname) as TrdinDateiname,min(Abgleich_op_debitor+0) as Abgleich_op_debitor ,min(Nettozahlungsziel) as Nettozahlungsziel,min(Firma_ID) as Firma_ID,min(UStVAn_ID) as UStVAn_ID /*,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig*/,sum(PROD.SteuerpflichtigerBetragLokal) as SteuerpflichtigerBetragLokal ,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,Sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal]) As BetragLokal, Sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd]) As BetragFremd - FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer - WHERE Firma_ID ='" & Firma_ID & "' AND " & If(WdhDateiname = "", " TrdinDateiname Is Null ", " TrdinDateiname ='" & WdhDateiname & "' ") & " + FROM VERAG.dbo.tblTrdinInvoice as IVO left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer and IVO.Rechnungsdatum=PROD.Rechnungsdatum + " & where & " group by Firma_id, IVO.Rechnungsnummer,IVO.rechnungsdatum/*,Leistungsnummer,Leistungsbezeichnung,Steuerpflichtig*/ - ORDER BY Rechnungsdatum, Rechnungsnummer " + ORDER BY IVO.Rechnungsdatum, IVO.Rechnungsnummer " ' --and IVO.Rechnungsnummer=19400002 Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800) @@ -562,10 +581,11 @@ Public Class cSyska_Interface Shared Function getBuchungenZeilen(Firma_ID As Integer, Rechnungsnummer As Integer, Rechnungsdatum As Date, Optional WdhDateiname As String = "") As DataTable + Dim sqlStr = " SELECT Sachkonto,IVO.Rechnungsdatum Rechnungsdatum,IVO.Rechnungsnummer Rechnungsnummer,FilialenNr,AbfertigungsNr,UnterNr,steuerpflichtig,[Steuersatz %] Steuersatz,BelegartenNr, WährungFremd, WährungLokal,sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal])BetragLokal, sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd])BetragFremd ,sum(RechnungsbetragLokal) RechnungsbetragLokal,sum(RechnungsbetragFremd) RechnungsbetragFremd - 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 and IVO.Rechnungsdatum = PROD.Rechnungsdatum WHERE Firma_ID ='" & Firma_ID & "' AND IVO.Rechnungsnummer ='" & Rechnungsnummer & "' AND cast(IVO.Rechnungsdatum as date) ='" & Rechnungsdatum.ToShortDateString & "' AND " & If(WdhDateiname = "", " TrdinDateiname Is Null ", " TrdinDateiname ='" & WdhDateiname & "' ") & " GROUP BY Sachkonto,IVO.Rechnungsdatum,IVO.Rechnungsnummer,FilialenNr,AbfertigungsNr,UnterNr,steuerpflichtig,[Steuersatz %] ,BelegartenNr,WährungFremd,WährungLokal ORDER BY Rechnungsdatum, Rechnungsnummer " @@ -574,8 +594,25 @@ Public Class cSyska_Interface End Function + Shared Function getBuchungenZeilenAMBAR(Firma_ID As Integer, Rechnungsnummer As Integer, Rechnungsdatum As Date, Optional WdhDateiname As String = "") As DataTable - Public Shared Function genBuchungsZeileSum(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen) As String + + Dim sqlStr = " SELECT le.SachkontoEUSteuerfrei as Sachkonto ,IVO.Rechnungsdatum Rechnungsdatum,IVO.Rechnungsnummer Rechnungsnummer,FilialenNr,AbfertigungsNr,UnterNr,PROD.steuerpflichtig,[Steuersatz %] Steuersatz,BelegartenNr, + WährungFremd, WährungLokal,sum(PROD.[SteuerpflichtigerBetragLokal] + PROD.[SteuerfreierBetragLokal])BetragLokal, + sum(PROD.[SteuerpflichtigerBetragFremd]+PROD.[SteuerfreierBetragFremd])BetragFremd ,sum(RechnungsbetragLokal) RechnungsbetragLokal,sum(RechnungsbetragFremd) RechnungsbetragFremd + FROM VERAG.dbo.tblTrdinInvoice as IVO + left JOIN tblTrdinProduct as PROD on IVO.Rechnungsnummer=PROD.Rechnungsnummer and IVO.Rechnungsdatum = PROD.Rechnungsdatum + left join [Leistungen] as le on le.LeistungsNr = PROD.Leistungsnummer + WHERE Firma_ID ='24' AND IVO.Rechnungsnummer ='" & Rechnungsnummer & "' AND cast(IVO.Rechnungsdatum as date) ='" & Rechnungsdatum.ToShortDateString & "' AND " & If(WdhDateiname = "", " AmbDateiname Is Null ", " AmbDateiname ='" & WdhDateiname & "' ") & " + GROUP BY le.SachkontoEUSteuerfrei ,IVO.Rechnungsdatum,IVO.Rechnungsnummer,FilialenNr,AbfertigungsNr,UnterNr,PROD.steuerpflichtig,[Steuersatz %] ,BelegartenNr,WährungFremd,WährungLokal + ORDER BY Rechnungsdatum, Rechnungsnummer " + ' --and IVO.Rechnungsnummer=19400002 + Return SQL.loadDgvBySql(sqlStr, "FMZOLL", 9800) + + End Function + + + Public Shared Function genBuchungsZeileSum(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Optional ambarGUbuchung As Boolean = False) As String genBuchungsZeileSum = "" If row("BelegartenNr") = 70 Then 'RECHNUNG @@ -615,44 +652,73 @@ Public Class cSyska_Interface ElseIf row("BelegartenNr") = 71 Then 'GUTSCHRIFT - ' Buchungssatz Gutschrift (immer letzte Buchungszeile) Dim FiBuWährung = "" Dim FiBuSollkontonummer = "0" Dim FiBuHabenkontonummer = row("KundenNrZentrale") Dim FiBuBruttobetrag As Double + If Not ambarGUbuchung Then + ' Buchungssatz Gutschrift (immer letzte Buchungszeile) - If row("WährungFremd") Is DBNull.Value Then - FiBuWährung = row("WährungLokal") - FiBuBruttobetrag = (0 - CDbl(row("RechnungsbetragLokal"))) + If row("WährungFremd") Is DBNull.Value Then + FiBuWährung = row("WährungLokal") + FiBuBruttobetrag = (0 - CDbl(row("RechnungsbetragLokal"))) + Else + FiBuWährung = row("WährungFremd") + FiBuBruttobetrag = (0 - CDbl(row("RechnungsbetragFremd"))) + End If + + Dim FiBuEigenbruttobetrag = 0 - CDbl(row("RechnungsbetragLokal")) + + genBuchungsZeileSum = "L" & vbTab + genBuchungsZeileSum &= CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & vbTab + genBuchungsZeileSum &= FormatStringSYS(row("Rechnungsnummer")) & vbTab + + genBuchungsZeileSum &= FiBuSollkontonummer & vbTab + genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab + genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + + genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab + genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz + genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag + genBuchungsZeileSum &= FiBuWährung & vbTab + genBuchungsZeileSum &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab Else - FiBuWährung = row("WährungFremd") - FiBuBruttobetrag = (0 - CDbl(row("RechnungsbetragFremd"))) + + If row("WährungFremd") Is DBNull.Value Then + FiBuWährung = row("WährungLokal") + FiBuBruttobetrag = (0 - CDbl(row("RechnungsbetragLokal"))) + Else + FiBuWährung = row("WährungFremd") + FiBuBruttobetrag = (0 - CDbl(row("RechnungsbetragFremd"))) + End If + + Dim FiBuEigenbruttobetrag = 0 - CDbl(row("RechnungsbetragLokal")) + + genBuchungsZeileSum = "L" & vbTab + genBuchungsZeileSum &= CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & vbTab + genBuchungsZeileSum &= FormatStringSYS(row("Rechnungsnummer")) & vbTab + + genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab + genBuchungsZeileSum &= FiBuSollkontonummer & vbTab + genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab + + genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab + genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz + genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag + genBuchungsZeileSum &= FiBuWährung & vbTab + genBuchungsZeileSum &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab + + End If - - Dim FiBuEigenbruttobetrag = 0 - CDbl(row("RechnungsbetragLokal")) - - genBuchungsZeileSum = "L" & vbTab - genBuchungsZeileSum &= CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & vbTab - genBuchungsZeileSum &= FormatStringSYS(row("Rechnungsnummer")) & vbTab - - genBuchungsZeileSum &= FiBuSollkontonummer & vbTab - genBuchungsZeileSum &= FiBuHabenkontonummer & vbTab - genBuchungsZeileSum &= row("FilialenNr") & "/" & row("AbfertigungsNr") & "/" & CDbl(row("UnterNr")).ToString("00") & vbTab - - genBuchungsZeileSum &= Format(CDbl(FiBuBruttobetrag), fmt) & vbTab - genBuchungsZeileSum &= "" & vbTab 'FiBuSteuersatz - genBuchungsZeileSum &= "" & vbTab 'FiBuSteuerbetrag - genBuchungsZeileSum &= FiBuWährung & vbTab - genBuchungsZeileSum &= Format(CDbl(FiBuEigenbruttobetrag), fmt) & vbTab - End If + Return genBuchungsZeileSum End Function - Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double) As String + Public Shared Function genBuchungsZeile(row As DataRow, ByRef SummeBuchungen As Double, ByRef Geschäftsjahr As Integer, ByRef FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, ByRef curDifferenzbetrag As Double, Optional ambargubuchungen As Boolean = False) As String Dim curSteuerbetrag As Double Dim curNettobetrag As Double @@ -677,13 +743,25 @@ Public Class cSyska_Interface curNettobetrag = row("BetragFremd") End If Case 71 'Gutschrift - FiBuSollkontonummer = If(row("Sachkonto") IsNot DBNull.Value, row("Sachkonto"), " ") - FiBuHabenkontonummer = "0" - If row("WährungFremd") Is DBNull.Value Then - curNettobetrag = 0 - row("BetragLokal") + If Not ambargubuchungen Then + FiBuSollkontonummer = If(row("Sachkonto") IsNot DBNull.Value, row("Sachkonto"), " ") + FiBuHabenkontonummer = "0" + If row("WährungFremd") Is DBNull.Value Then + curNettobetrag = 0 - row("BetragLokal") + Else + curNettobetrag = 0 - row("BetragFremd") + End If Else - curNettobetrag = 0 - row("BetragFremd") + FiBuSollkontonummer = "0" + FiBuHabenkontonummer = If(row("Sachkonto") IsNot DBNull.Value, row("Sachkonto"), " ") + If row("WährungFremd") Is DBNull.Value Then + curNettobetrag = 0 - row("BetragLokal") + Else + curNettobetrag = 0 - row("BetragFremd") + End If + End If + End Select If CBool(row("steuerpflichtig")) Then @@ -710,7 +788,7 @@ Public Class cSyska_Interface Else FiBuWährung = row("WährungFremd") FiBuEigenbruttobetrag = CDbl(row("RechnungsbetragFremd")) 'Bruttobetrag - End If + End If genBuchungsZeile = "L" & vbTab genBuchungsZeile &= CDate(row("Rechnungsdatum")).ToString("dd.MM.yyyy") & vbTab