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

Essensbestellungen Umbaut, Syska GU-Export für AMBAR -> VERAG, Speditionsbucharchiv

Browse Source
This commit is contained in:
d.breimaier
2024-05-10 15:02:07 +02:00
parent 7ba4fdf8f1
commit 5e3b74a19f
5 changed files with 1354 additions and 737 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -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

1416
SDL/frmEssensbestellungen.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

130
SDL/frmEssensbestellungen.vb
View File

@@ -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