Bug FaktEmail, Essensbestellungen, Formulare, Ueberstunden

2024-03-19 16:59:27 +01:00
parent cc4afae048
commit 9724abd612
8 changed files with 55 additions and 18 deletions
--- a/SDL/Fakturierung/frmFaktEmail.vb
+++ b/SDL/Fakturierung/frmFaktEmail.vb
@@ -161,7 +161,7 @@ Public Class frmFaktEmail

        initDGVAnhaenge()

-        If FISKAL IsNot Nothing AndAlso (SPEDBUCH.AbfertigungsNr = 26 Or SPEDBUCH.AbfertigungsNr = 28) AndAlso (SPEDBUCH.FilialenNr = 4805 Or SPEDBUCH.FilialenNr = 4811) Then 'Prüfung 
+        If FISKAL IsNot Nothing AndAlso SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart IsNot Nothing AndAlso IsNumeric(SPEDBUCH.Abfertigungsart) AndAlso (SPEDBUCH.Abfertigungsart = 26 Or SPEDBUCH.Abfertigungsart = 28) AndAlso (SPEDBUCH.FilialenNr = 4805 Or SPEDBUCH.FilialenNr = 4811) Then 'Prüfung 
            cbxSteuerberaterEmail.Checked = (If(FISKAL.fisk_schreibenSB_Mail, "") <> "")
            txtSteuerberaterEmail.Text = If(FISKAL.fisk_schreibenSB_Mail, "")
            cbxFAEmail.Checked = (If(FISKAL.fisk_schreibenFA_Mail, "") <> "")
@@ -739,7 +739,7 @@ Public Class frmFaktEmail
        For Each r In SR_DT.Rows 
            Dim SPEDBUCH As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(r("FilialenNr"), r("AbfertigungsNr"), r("SpeditionsbuchUnterNr"))
            initRowSpedbuch(SPEDBUCH)
-            If (SPEDBUCH.AbfertigungsNr = 26 Or SPEDBUCH.AbfertigungsNr = 28) AndAlso (SPEDBUCH.FilialenNr = 4805 Or SPEDBUCH.FilialenNr = 4811) Then
+            If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart IsNot Nothing AndAlso IsNumeric(SPEDBUCH.Abfertigungsart) AndAlso (SPEDBUCH.Abfertigungsart = 26 Or SPEDBUCH.Abfertigungsart = 28) AndAlso (SPEDBUCH.FilialenNr = 4805 Or SPEDBUCH.FilialenNr = 4811) Then
                isFiskal = True
            End If
        Next
--- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
+++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb
@@ -333,7 +333,7 @@ Public Class frmFaktSammelRgDrucken
            '-------------- ENDE -------------- 

        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        initDGV()
        Me.Enabled = True
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEinfuhrverbot.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEinfuhrverbot.Designer.vb
@@ -43,9 +43,9 @@ Partial Class usrcntlEinfuhrverbot
        Me.lblEinfuhrverbot.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblEinfuhrverbot.Location = New System.Drawing.Point(43, 9)
        Me.lblEinfuhrverbot.Name = "lblEinfuhrverbot"
-        Me.lblEinfuhrverbot.Size = New System.Drawing.Size(117, 20)
+        Me.lblEinfuhrverbot.Size = New System.Drawing.Size(201, 20)
        Me.lblEinfuhrverbot.TabIndex = 1
-        Me.lblEinfuhrverbot.Text = "Einfuhrverbot"
+        Me.lblEinfuhrverbot.Text = "Y824 / EU VO 833/2014"
        '
        'lbl
        '
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -286,7 +286,7 @@ Public Class frmFormulare
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))

                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
-                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Einfuhrverbot", FormularManagerArten.Einfuhrverbot))
+                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
                ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))


@@ -5922,7 +5922,7 @@ Public Class FormularManagerArten
    Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll"

    Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
-    Shared Property Einfuhrverbot = "Einfuhrverbot"
+    Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014"



--- a/SDL/frmEssensbestellungen.vb
+++ b/SDL/frmEssensbestellungen.vb
@@ -28,7 +28,7 @@ Public Class frmEssensbestellungen
        loadDGVBestellungen()

        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frontoffice", "Frontoffice"))
-        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Backoffice", "Backoffice"))
+        'cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Backoffice", "Backoffice"))
        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag VERR", "Verag Verrechnung"))
        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut"))
        cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Suben West", "Suben West"))
--- a/SDL/frmEssensbestellungenAdministration.vb
+++ b/SDL/frmEssensbestellungenAdministration.vb
@@ -11,7 +11,7 @@ Public Class frmEssensbestellungenAdministration

    Private Sub frmEssensbestellungenAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lblWarning.Text = ""
-        txtBestellDat.Text = Date.Parse("01.01.2001")
+        txtBestellDat.Text = Today.ToShortDateString 'Date.Parse("01.01.2001")
        txtBestellDatBis.Text = Today.AddDays(7).ToShortDateString
        btnMonat.Text = MONAT.ToString("MMMM")
        btnJahr.Text = JAHR.Year
@@ -31,7 +31,7 @@ Public Class frmEssensbestellungenAdministration

        cbKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen]  UNION SELECT (REPLACE(MenuTitel,'Wochenkarte ','')) + ' - ' +  Convert(varchar, Year(MenuDateVon)) as kwDateNew FROM [tblEBMenu] where MenuDateVon > GETDATE() ORDER BY eb_kw desc", False, "AVISO", True)

-        cbxMailKW.fillWithSQL("SELECT DISTINCT(eb_kw) FROM [tblEssensbestellungen] ORDER BY eb_kw desc", False, "AVISO", True)
+        cbxMailKW.fillWithSQL("SELECT top(30) DISTINCT(eb_kw) FROM [tblEssensbestellungen] ORDER BY eb_kw desc", False, "AVISO", True)
        cbxMailKW.changeItem("")

        cbxMailGebäude.changeItem("")
@@ -720,6 +720,19 @@ Public Class frmEssensbestellungenAdministration
        Next


+
+        Dim SQLStringMenues As String = "SELECT TOP (1)  [MenuEssenMoDate] as Montag
+                                                ,[MenuEssenDiDate] as Dienstag
+                                                ,[MenuEssenMiDate] as Mittwoch
+                                                ,[MenuEssenDoDate] as Donnerstag
+                                                ,[MenuEssenFrDate] as Freitag
+                                    FROM 
+                                    [tblEBMenu] WHERE eb_kw = '" & cbxMailKW._value & "' AND eb_gebaeude = '" & cbxMailGebäude._value & "' AND ISNULL(eb_storniert,1)=0 " & sqlWhere & " Order by eb_datum"
+
+        Dim dtMenu = SQL.loadDgvBySql(SQLStringMenues, "AVISO", 100, True)
+
+
+
        Dim R As DataRow = dtBestellungen.NewRow
        R("ID") = "0"
        R("KW") = "-"
--- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
@@ -124,6 +124,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.VeragCustomsServiceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
        Me.EORIAntragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.EinfuhrverbotToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnueCBAM = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnueFiskaluebersicht = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnueFiskal = New System.Windows.Forms.ToolStripMenuItem()
@@ -151,7 +152,6 @@ Partial Class frmKundenUebersichtZOLL
        Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.EinfuhrverbotToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.tabZolltarife.SuspendLayout()
        Me.tabKundendaten.SuspendLayout()
@@ -1233,6 +1233,12 @@ Partial Class frmKundenUebersichtZOLL
        Me.EORIAntragToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
        Me.EORIAntragToolStripMenuItem.Text = "EORI Antrag"
        '
+        'EinfuhrverbotToolStripMenuItem
+        '
+        Me.EinfuhrverbotToolStripMenuItem.Name = "EinfuhrverbotToolStripMenuItem"
+        Me.EinfuhrverbotToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
+        Me.EinfuhrverbotToolStripMenuItem.Text = "Y824 / EU VO 833/2014"
+        '
        'mnueCBAM
        '
        Me.mnueCBAM.Enabled = False
@@ -1499,12 +1505,6 @@ Partial Class frmKundenUebersichtZOLL
        Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
-        'EinfuhrverbotToolStripMenuItem
-        '
-        Me.EinfuhrverbotToolStripMenuItem.Name = "EinfuhrverbotToolStripMenuItem"
-        Me.EinfuhrverbotToolStripMenuItem.Size = New System.Drawing.Size(242, 22)
-        Me.EinfuhrverbotToolStripMenuItem.Text = "Einfuhrverbot"
-        '
        'frmKundenUebersichtZOLL
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
@@ -447,6 +447,30 @@ Public Class frmUeberstundenauszahlen

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

+        '65;"01-Lfd Saldo"
+        '66;02-Krank
+        '67;03-Urlaub
+        '69;"10-Na 22-06"
+        '70;"11-Sa 00-24"
+        '72;"13-So 00-24"
+        '73;"14-FtN 00-24"
+        '438;04-Sonstige
+        '986;Stundenlohn
+        '987;FT-Ersatzzeit
+        '993;"Ausz. ÜS"
+        '1209;Mehrarbeit
+        '1210;"Script hilfskonto WSaldo"
+        '1227;Schichtzulage
+        '1231;Urlaubsstunden
+        '1235;"Überstunden 100% gesamt"
+        '1257;Zuschlag
+        '1272;"unbezahlter Urlaub"
+        '1366;"Mehrarbeit am 25. des Monats gesamt"
+        '1393;"Urlaub (Stunden)"
+        '1550;"AUSZ ÜS 100%"
+        '1551;"AUSZ ÜS 50%"
+        '1598; Korrektur MJ - ÜBER API ansprechen!
+

        Dim sum100, sum50, sum0, gesamt As Double
        sum100 = RoundOfDigits(CDbl(txtAusz100.Text) * 100 / 200, 2) 'Übergabe in ZE-System als heruntergerechnete 100%ige bzw. 50%ige ÜS!
@@ -493,7 +517,7 @@ Public Class frmUeberstundenauszahlen
            If gesamt > 0 Then 'vom ldf Saldo, ev. über API Möglich monatliche Korrektur direkt zu befüllen, dann muss dieser If Zweig überarbeitet werden!!!!!!!!!!!!!!
                Dim row = dtsetEntries.NewRow
                row.Item("accountid") = 1598
-                row.Item("value") = gesamt.ToString.Replace(",", ".")
+                row.Item("value") = gesamt.ToString.Replace(",", ".") * (-1)
                dtsetEntries.Rows.InsertAt(row, dtsetEntries.Rows.Count)

                row = dtsetEntries.NewRow