diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index e59df60e..e679c542 100644 --- 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 diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 520be41a..5c446316 100644 --- 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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEinfuhrverbot.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlEinfuhrverbot.Designer.vb index 7bd1599b..ece61146 100644 --- 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 ' diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index c77ef8fc..10c8f667 100644 --- 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" diff --git a/SDL/frmEssensbestellungen.vb b/SDL/frmEssensbestellungen.vb index e18cf63c..d89283f6 100644 --- 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")) diff --git a/SDL/frmEssensbestellungenAdministration.vb b/SDL/frmEssensbestellungenAdministration.vb index 04e33efb..59817111 100644 --- 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") = "-" diff --git a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb index 837ec64f..f5848b36 100644 --- 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!) diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb index 44b9bfec..9de31bf7 100644 --- 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