Bug FaktEmail, Essensbestellungen, Formulare, Ueberstunden

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

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

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
         '

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"
 
 
 

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"))

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") = "-"

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!)

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