diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb index bbc88c3f..5f7377f5 100644 --- a/SDL/Fakturierung/cAutomailversand.vb +++ b/SDL/Fakturierung/cAutomailversand.vb @@ -1376,7 +1376,7 @@ Public Class cAutomailversand Next End If - If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, EMail_subject, EMail_HTML, accountToSend, False, False, EMails_CC, EMails_BCC, attachList, 5, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) Then API.UPDTAE_OK() @@ -1732,7 +1732,7 @@ Public Class cAutomailversand LoadZollAttachments(SPEDBUCH, SPEDBUCH.FilialenNr, FirmaID, False, attachList, Nothing, True) Dim accountToSend = setAccountToSend(FirmaID) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList,, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(MailTo, Subject, TextHTML, accountToSend, False, False, MailCC, accountToSend, attachList, 5, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "d.breimaier@verag.ag", accountToSend)) ''----------------------------------------------------------------- ''Steuerbescheid anfügen diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 8e4ee667..c1e545dc 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index 47ccd0bd..161f355b 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -503,8 +503,15 @@ Public Class ustCntlUSTV_AntragPosition Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtRgDatum.PreviewKeyDown, txtRgNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown, sbLeistender.PreviewKeyDown, txtLeistungsbezeichnung.PreviewKeyDown + lblWarning.Text = "" + If e.KeyValue <> Keys.Tab Then Return - If Not CanEdit() Then Return + + If Not CanEdit() Then + lblWarning.Text = "keine Berechtigung/bereits abgerech." + Return + End If + If Not _gridAktiv OrElse Me.FindForm Is Nothing Then Return lblWarning.Text = "" @@ -712,7 +719,17 @@ Public Class ustCntlUSTV_AntragPosition Private Function CanEdit() As Boolean - Return VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) + Dim allowed As Boolean = False + + allowed = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) + + If allowed Then + If UStV_POS.UStVPo_VZ_RKID IsNot Nothing AndAlso CInt(UStV_POS.UStVPo_VZ_RKID) > 0 Then + allowed = False + End If + End If + + Return allowed End Function diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index 57510859..04301339 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb @@ -103,14 +103,15 @@ Public Class frmBU_Mahnlauf - isnull(CASE WHEN Max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) > max(Kunden.UStV_SummeErstattungsbetragEUR) THEN max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) - max(Kunden.UStV_SummeErstattungsbetragEUR) ELSE 0 END ,0) - isnull(max(Kunden.UStV_Summe3470BetragEUR),0) + isnull(max(Kunden.UStV_SummeVZBetragEUR),0) - isnull(max(Kunden.UStV_SummeVorschaubetragEUR),0) - isnull(CASE WHEN ISNULL(max(Kunden.BankgarantieGültigBis), GETDATE()) < GETDATE() THEN 0 ELSE ISNULL(max(Kunden.BankgarantieBetrag), 0) END,0) as Risiko, sum(case when OP.c_typ = 'g' then isnull(OP.eur_bruttobetrag, 0) + isnull(OP.eur_zahlung, 0) else 0 end) as Gutschrift, cast(MAX(d_mahnung)as date) Mahndatum, - case - when max(si_mahnstufe) = 1 Then 'telefonisch' - when max(si_mahnstufe) = 2 Then 'Freitag' - when max(si_mahnstufe) = 3 Then 'Donnerstag' - when max(si_mahnstufe) = 4 Then 'Mittwoch' - when max(si_mahnstufe) >= 5 Then 'gesperrt' - else '-' - End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto max(Kunden.UStV_SummeErstattungsbetragEUR) THEN max(Kunden.UStV_SummeUmsatzsteuerbetragEUR) - max(Kunden.UStV_SummeErstattungsbetragEUR) ELSE 0 END ,0) - isnull(max(Kunden.UStV_Summe3470BetragEUR),0) + isnull(max(Kunden.UStV_SummeVZBetragEUR),0) - isnull(max(Kunden.UStV_SummeVorschaubetragEUR),0) - isnull(CASE WHEN ISNULL(max(Kunden.BankgarantieGültigBis), GETDATE()) < GETDATE() THEN 0 ELSE ISNULL(max(Kunden.BankgarantieBetrag), 0) END,0) < 0 then 'ZZ 30 Tage' + when max(si_mahnstufe) = 1 Then 'telefonisch' + when max(si_mahnstufe) = 3 Then 'Donnerstag' + when max(si_mahnstufe) = 2 Then 'Freitag' + when max(si_mahnstufe) >= 4 Then 'Mittwoch' + else '-' + end as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto= 8 - MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich %HEUTE% zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbelegs!" + MahnTEXT_VOR = "Trotz mehrfacher Mahnung sind nachstehende Rechnungen immer noch nicht beglichen." & vbNewLine & "Wir fordern Sie hiermit letztmalig auf, den offenen Betrag unverzüglich bis %HEUTE% zur Einzahlung zu bringen. Bitte senden Sie uns eine Kopie des Überweisungsbelegs!" MahnTEXT_NACH = "Nach erfolglosem Ablauf dieser neuerlichen Frist wären wir dann gezwungen, aber ohne weitere vorherige Ankündigung rechtliche Schritte einzuleiten." MAHNTEXT = MAHNSTUFE & ". MAHNUNG" End Select diff --git a/SDL/buchhaltung/rptMahnung.vb b/SDL/buchhaltung/rptMahnung.vb index 96a6aa23..50fb1293 100644 --- a/SDL/buchhaltung/rptMahnung.vb +++ b/SDL/buchhaltung/rptMahnung.vb @@ -1,7 +1,3 @@ -Imports GrapeCity.ActiveReports -Imports GrapeCity.ActiveReports.Document -Imports GrapeCity.DataVisualization.Chart - Public Class rptMahnung Dim _LAN = "" Dim _OPTION = "" diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index 1ef2ad38..a9c4f1fc 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -2,6 +2,7 @@ Imports System.Globalization Imports System.Text Imports System.Web.UI.WebControls.Expressions +Imports QRCoder.PayloadGenerator.SwissQrCode Imports VERAG_PROG_ALLGEMEIN Public Class usrCntlBH @@ -2220,6 +2221,7 @@ Public Class usrCntlBH End If Dim importiert As Boolean = False + Dim TYP = cbxBankspesentyp._value Dim fd As New OpenFileDialog fd.InitialDirectory = "\\share01.verag.ost.dmn\F\19 VERAG 360 - MDM\Buchhaltung MDM\Bank\Subkonten" @@ -2267,7 +2269,7 @@ Public Class usrCntlBH exclApp.CutCopyMode = False 'Try to open exclusively - Datei = exclApp.Workbooks.Open(Filename:=fd.FileName, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False) + Datei = exclApp.Workbooks.Open(Filename:=fd.FileName, ReadOnly:=False, IgnoreReadOnlyRecommended:=True, Notify:=False, Format:=6, Delimiter:=";") If Datei.ReadOnly Then MessageBox.Show("Die Datei wird bereits von einem anderen Benutzer oder einer anderen Excel-Instanz verwendet, bitte Datei vor dem Import schließen!") @@ -2280,27 +2282,44 @@ Public Class usrCntlBH ' Header einlesen Dim headerMap As New Dictionary(Of String, Integer)(StringComparer.OrdinalIgnoreCase) + Dim startHeaderRow As Integer = If(TYP = "M", 7, 1) + For col As Integer = 1 To Blatt.UsedRange.Columns.Count - Dim header As String = Convert.ToString(Blatt.Cells(1, col).Value).Trim() + Dim rawHeader As String = Convert.ToString(Blatt.Cells(startHeaderRow, col).Value2) - If header <> "" AndAlso Not headerMap.ContainsKey(header) Then - headerMap.Add(header, col) + If String.IsNullOrWhiteSpace(rawHeader) Then Continue For + + If rawHeader.Contains(";") Then + ' Gesamte Kopfzeile steht in einer Zelle + Dim headers As String() = rawHeader.Split(";"c) + + For i As Integer = 0 To headers.Length - 1 + Dim header As String = headers(i).Replace(ChrW(160), " "c).Trim().TrimEnd("."c).Trim() + + If header <> "" AndAlso Not headerMap.ContainsKey(header) Then + headerMap.Add(header, i + 1) + End If + Next + Else + Dim header As String = rawHeader.Replace(ChrW(160), " "c).Trim().TrimEnd("."c).Trim() + + If header <> "" AndAlso Not headerMap.ContainsKey(header) Then + headerMap.Add(header, col) + End If End If - Next ' Pflichtspalten prüfen - Dim requiredHeaders As String() = { - "Umsatz-ID", - "Datum", - "IBAN", - "BIC", - "Buchungstext", - "Währung", - "Betrag", - "Kontoauszug" - } + Dim requiredHeaders As String() + + Select Case TYP + Case "M" + requiredHeaders = {"Belegdat", "Belegnr", "BuchText", "Soll EUR", "Haben EUR", "Gegenkto"} + Case "Q" + requiredHeaders = {"Umsatz-ID", "Datum", "IBAN", "BIC", "Buchungstext", "Währung", "Betrag", "Kontoauszug"} + End Select + For Each h As String In requiredHeaders @@ -2316,86 +2335,64 @@ Public Class usrCntlBH visibleKdNrCheck = True End If - Dim letzteZeile As Integer = Blatt.UsedRange.Rows.Count + For row As Integer = startHeaderRow + 1 To letzteZeile + If TYP = "Q" Then - For row As Integer = 2 To letzteZeile + Dim Umsatz_ID As String = Convert.ToString(Blatt.Cells(row, headerMap("Umsatz-ID")).Value) + Dim Datum As String = Convert.ToString(Blatt.Cells(row, headerMap("Datum")).Value) + Dim IBAN As String = Convert.ToString(Blatt.Cells(row, headerMap("IBAN")).Value) + Dim BIC As String = Convert.ToString(Blatt.Cells(row, headerMap("BIC")).Value) + Dim Buchungstext As String = Convert.ToString(Blatt.Cells(row, headerMap("Buchungstext")).Value) + Dim Währung As String = Convert.ToString(Blatt.Cells(row, headerMap("Währung")).Value) + Dim Kontoauszug As String = Convert.ToString(Blatt.Cells(row, headerMap("Kontoauszug")).Value) + Dim Betrag As Double = Convert.ToDouble(Blatt.Cells(row, headerMap("Betrag")).Value) + Dim KundenNrCheck As String = "" - Dim Umsatz_ID As String = - Convert.ToString(Blatt.Cells(row, headerMap("Umsatz-ID")).Value) - - - Dim Datum As String = - Convert.ToString(Blatt.Cells(row, headerMap("Datum")).Value) - - Dim IBAN As String = - Convert.ToString(Blatt.Cells(row, headerMap("IBAN")).Value) - - Dim BIC As String = - Convert.ToString(Blatt.Cells(row, headerMap("BIC")).Value) - - Dim Buchungstext As String = - Convert.ToString(Blatt.Cells(row, headerMap("Buchungstext")).Value) - - Dim Währung As String = - Convert.ToString(Blatt.Cells(row, headerMap("Währung")).Value) - - Dim Kontoauszug As String = - Convert.ToString(Blatt.Cells(row, headerMap("Kontoauszug")).Value) - - Dim Betrag As Double = - Convert.ToDouble(Blatt.Cells(row, headerMap("Betrag")).Value) - - Dim KundenNrCheck As String = "" - - If headerMap.ContainsKey("KDNR") Then - KundenNrCheck = Convert.ToString(Blatt.Cells(row, headerMap("KDNR")).Value) - End If - - - - - - - If String.IsNullOrWhiteSpace(Umsatz_ID) Then - Continue For - End If - - If IsNumeric(Umsatz_ID) AndAlso IsNumeric(Betrag) AndAlso Not String.IsNullOrWhiteSpace(Kontoauszug) Then - - - Dim R As DataRow = dt.NewRow - R("Umsatz-ID") = Umsatz_ID - R("Datum") = Datum - R("IBAN") = IBAN - R("BIC") = BIC - R("Buchungstext") = Buchungstext - R("Währung") = Währung - R("Betrag") = Betrag - R("Kontoauszug") = Kontoauszug - - Dim BuchungstextOnlyNr As String = System.Text.RegularExpressions.Regex.Replace(Buchungstext, "[^0-9]", "") - Dim KundeNr = CInt(sql.DLookup("bnk_KundenNr", "tblBankverbindungen", "bnk_iban like '%" & BuchungstextOnlyNr & "%' and isnull(bnk_archiv,0) = 0", "FMZOLL", "-1")) - - R("KdNr") = KundeNr - - If visibleKdNrCheck Then - - R("KdNrCheck") = KundenNrCheck - - If KundenNrCheck <> "" AndAlso IsNumeric(KundenNrCheck) Then - If CInt(KundenNrCheck) = KundeNr Then - R("KdNrValid") = True - Else - R("KdNrValid") = False - End If - End If + If headerMap.ContainsKey("KDNR") Then + KundenNrCheck = Convert.ToString(Blatt.Cells(row, headerMap("KDNR")).Value) End If - If KundeNr = -1 Then + If String.IsNullOrWhiteSpace(Umsatz_ID) Then + Continue For + End If + + If IsNumeric(Umsatz_ID) AndAlso IsNumeric(Betrag) AndAlso Not String.IsNullOrWhiteSpace(Kontoauszug) Then + + + Dim R As DataRow = dt.NewRow + R("Umsatz-ID") = Umsatz_ID + R("Datum") = Datum + R("IBAN") = IBAN + R("BIC") = BIC + R("Buchungstext") = Buchungstext + R("Währung") = Währung + R("Betrag") = Betrag + R("Kontoauszug") = Kontoauszug + + Dim BuchungstextOnlyNr As String = System.Text.RegularExpressions.Regex.Replace(Buchungstext, "[^0-9]", "") + Dim KundeNr = CInt(sql.DLookup("bnk_KundenNr", "tblBankverbindungen", "bnk_iban like '%" & BuchungstextOnlyNr & "%' and isnull(bnk_archiv,0) = 0", "FMZOLL", "-1")) + + R("KdNr") = KundeNr + + If visibleKdNrCheck Then + + R("KdNrCheck") = KundenNrCheck + + If KundenNrCheck <> "" AndAlso IsNumeric(KundenNrCheck) Then + If CInt(KundenNrCheck) = KundeNr Then + R("KdNrValid") = True + Else + R("KdNrValid") = False + End If + End If + End If + + + If KundeNr = -1 Then missingKdNr += 1 End If @@ -2413,16 +2410,89 @@ Public Class usrCntlBH Continue For - End If + End If + Else + + + Dim Umsatz_ID As String = Convert.ToString(Blatt.Cells(row, headerMap("Belegnr")).Value) + Dim Datum As String = Convert.ToString(Blatt.Cells(row, headerMap("Belegdat")).Value) + Dim Buchungstext As String = Convert.ToString(Blatt.Cells(row, headerMap("BuchText")).Value) + Dim Währung As String = "EUR" + + Dim SollBetrag As String = Convert.ToString(Blatt.Cells(row, headerMap("Soll EUR")).Value) + Dim HabenBetrag As String = Convert.ToString(Blatt.Cells(row, headerMap("Haben EUR")).Value) + + Dim Betrag As Double = 0 + If SollBetrag <> "" AndAlso IsNumeric(SollBetrag) Then + Betrag = CDbl(SollBetrag) + ElseIf HabenBetrag <> "" AndAlso IsNumeric(HabenBetrag) Then + Betrag = CDbl(HabenBetrag) + End If + + Dim KundenNrCheck As String = "" + + If headerMap.ContainsKey("Gegenkto") Then + KundenNrCheck = Convert.ToString(Blatt.Cells(row, headerMap("Gegenkto")).Value) + End If + + If String.IsNullOrWhiteSpace(Umsatz_ID) Then + Continue For + End If + + If IsNumeric(Betrag) AndAlso Not String.IsNullOrWhiteSpace(Buchungstext) AndAlso Not String.IsNullOrWhiteSpace(Datum) AndAlso IsDate(Datum) Then + + + Dim R As DataRow = dt.NewRow + R("Umsatz-ID") = Umsatz_ID + R("Datum") = Datum + R("Buchungstext") = Buchungstext + R("Währung") = Währung + R("Betrag") = Betrag + + R("KdNr") = 0 + + If visibleKdNrCheck Then + + R("KdNrCheck") = KundenNrCheck + + If KundenNrCheck <> "" AndAlso IsNumeric(KundenNrCheck) Then + If CInt(KundenNrCheck) = R("KdNr") Then + R("KdNrValid") = True + Else + R("KdNrValid") = False + End If + End If + End If + + + If R("KdNr") = -1 Then + missingKdNr += 1 + End If + + 'Betrag laut folgendem Schema berechnen: + + If Betrag < 0 Then Betrag = Betrag * -1 + Betrag = Betrag + 1 + Dim aufgerundet As Double = Math.Ceiling(Betrag / 5) * 5 + + R("Gebühr") = aufgerundet + + dt.Rows.Add(R) + + Else + + Continue For + + End If + + + End If Next If dt.Rows.Count > 0 Then - - - Using frm As New frmAbrechnungHandling(dt, Nothing, "Import " & dt.Rows.Count & " Buchungsdaten " & cbxBankspesentyp.SelectedItem.Text & IIf(missingKdNr > 0, missingKdNr & " Kundenkonten konnten nicht gefunden werden!", "")) With frm @@ -2454,8 +2524,8 @@ Public Class usrCntlBH For Each r As DataGridViewRow In frm.dgvHandling.SelectedRows Dim Datum = r.Cells("Datum").Value - Dim TYP = cbxBankspesentyp._value - Dim KdNr = 0 + + Dim KdNr = 0 If frm.cbxDivers.Checked AndAlso visibleKdNrCheck Then If r.Cells("KdNrCheck").Value <> "" AndAlso IsNumeric(r.Cells("KdNrCheck").Value) Then KdNr = CInt(r.Cells("KdNrCheck").Value) diff --git a/SDL/frmdynMailvorlage.Designer.vb b/SDL/frmdynMailvorlage.Designer.vb index 554af8e8..a6ec8196 100644 --- a/SDL/frmdynMailvorlage.Designer.vb +++ b/SDL/frmdynMailvorlage.Designer.vb @@ -111,7 +111,7 @@ Partial Class frmdynMailvorlagen Me.mainPanel.Dock = System.Windows.Forms.DockStyle.Bottom Me.mainPanel.Location = New System.Drawing.Point(0, 429) Me.mainPanel.Name = "mainPanel" - Me.mainPanel.Size = New System.Drawing.Size(1295, 457) + Me.mainPanel.Size = New System.Drawing.Size(1443, 457) Me.mainPanel.TabIndex = 101 ' 'TextBox2 @@ -185,11 +185,13 @@ Partial Class frmdynMailvorlagen 'rtb_txthtml ' Me.rtb_txthtml.AcceptsTab = True + Me.rtb_txthtml.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window Me.rtb_txthtml.Location = New System.Drawing.Point(895, 87) Me.rtb_txthtml.Name = "rtb_txthtml" Me.rtb_txthtml.ReadOnly = True - Me.rtb_txthtml.Size = New System.Drawing.Size(371, 307) + Me.rtb_txthtml.Size = New System.Drawing.Size(536, 307) Me.rtb_txthtml.TabIndex = 40 Me.rtb_txthtml.Text = "" ' @@ -262,7 +264,7 @@ Partial Class frmdynMailvorlagen Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.email_big Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btn.Location = New System.Drawing.Point(1112, 405) + Me.btn.Location = New System.Drawing.Point(1260, 405) Me.btn.Margin = New System.Windows.Forms.Padding(5) Me.btn.Name = "btn" Me.btn.Padding = New System.Windows.Forms.Padding(5) @@ -362,7 +364,6 @@ Partial Class frmdynMailvorlagen Me.rtb_Emailtext.TabIndex = 22 Me.rtb_Emailtext.Text = "" Me.rtb_Emailtext.WordWrap = False - Me.rtb_Emailtext.ScrollBars = RichTextBoxScrollBars.Both ' 'cbxFirmaChange ' @@ -387,7 +388,8 @@ Partial Class frmdynMailvorlagen ' 'btnSave ' - Me.btnSave.Location = New System.Drawing.Point(1185, 414) + Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnSave.Location = New System.Drawing.Point(1337, 414) Me.btnSave.Name = "btnSave" Me.btnSave.Size = New System.Drawing.Size(75, 23) Me.btnSave.TabIndex = 10 @@ -419,7 +421,7 @@ Partial Class frmdynMailvorlagen Me.btnAdd.BackgroundImage = Global.SDL.My.Resources.Resources.plus Me.btnAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnAdd.Location = New System.Drawing.Point(1236, 399) + Me.btnAdd.Location = New System.Drawing.Point(1384, 399) Me.btnAdd.Name = "btnAdd" Me.btnAdd.Size = New System.Drawing.Size(24, 20) Me.btnAdd.TabIndex = 103 @@ -431,7 +433,7 @@ Partial Class frmdynMailvorlagen Me.btnDelete.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.btnDelete.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnDelete.Location = New System.Drawing.Point(1259, 399) + Me.btnDelete.Location = New System.Drawing.Point(1407, 399) Me.btnDelete.Name = "btnDelete" Me.btnDelete.Size = New System.Drawing.Size(24, 20) Me.btnDelete.TabIndex = 102 @@ -453,7 +455,7 @@ Partial Class frmdynMailvorlagen Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top Me.pnlTop.Location = New System.Drawing.Point(0, 0) Me.pnlTop.Name = "pnlTop" - Me.pnlTop.Size = New System.Drawing.Size(1295, 48) + Me.pnlTop.Size = New System.Drawing.Size(1443, 48) Me.pnlTop.TabIndex = 100 ' 'Label14 @@ -594,7 +596,7 @@ Partial Class frmdynMailvorlagen Me.dgvMailvorlagen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvMailvorlagen.Location = New System.Drawing.Point(0, 54) Me.dgvMailvorlagen.Name = "dgvMailvorlagen" - Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365) + Me.dgvMailvorlagen.Size = New System.Drawing.Size(1431, 365) Me.dgvMailvorlagen.TabIndex = 104 ' 'ContextMenuStrip1 @@ -613,7 +615,7 @@ Partial Class frmdynMailvorlagen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1295, 886) + Me.ClientSize = New System.Drawing.Size(1443, 886) Me.Controls.Add(Me.mainPanel) Me.Controls.Add(Me.btnAdd) Me.Controls.Add(Me.btnDelete) diff --git a/SDL/frmdynMailvorlage.vb b/SDL/frmdynMailvorlage.vb index bb3df839..88731736 100644 --- a/SDL/frmdynMailvorlage.vb +++ b/SDL/frmdynMailvorlage.vb @@ -1,5 +1,4 @@ -Imports DAKOSY_Worker.DEERRE -Imports Microsoft.Office.Interop +Imports Microsoft.Office.Interop Imports VERAG_PROG_ALLGEMEIN Public Class frmdynMailvorlagen diff --git a/SDL/kassenbuch/frmKassenbuch.vb b/SDL/kassenbuch/frmKassenbuch.vb index c8a78c83..49b78f1e 100644 --- a/SDL/kassenbuch/frmKassenbuch.vb +++ b/SDL/kassenbuch/frmKassenbuch.vb @@ -216,10 +216,10 @@ Public Class frmKassenbuch lbldailyCashboxClosing.Visible = True Button11.Visible = True - Dim tagesabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT] where Day(ftReceiptMoment) = Day(GETDATE()) and ftEndOfDayReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL")) + Dim tagesabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT] where ftReceiptMoment >= CAST(GETDATE() AS DATE) AND ftReceiptMoment < DATEADD(DAY, 1, CAST(GETDATE() AS DATE)) and ftEndOfDayReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL")) If tagesabschluss > 0 Then tagesabschlussIsSet = True - Dim monatsabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT] where Month(ftReceiptMoment) = Month(GETDATE()) and ftEndOfMonthReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL")) + Dim monatsabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT] where Month(ftReceiptMoment) = Month(GETDATE()) and Year(ftReceiptMoment) = Year(GETDATE()) and ftEndOfMonthReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL")) If monatsabschluss > 0 Then monatsabschlussIsSet = True Dim jahresabschluss As Integer = CInt(SQL.getValueTxtBySql("SELECT count(*) FROM [VERAG].[dbo].[tblRKSV_FT] where Year(ftReceiptMoment) = Year(GETDATE()) and ftEndOfYearReceipt is not null and ftCashBoxID = '" & PERSONAL.cRKSV_Kasse.rksv_FT_CashboxID & "'", "FMZOLL")) diff --git a/SDL/kunden/frmKundenSuche.Designer.vb b/SDL/kunden/frmKundenSuche.Designer.vb index 62f18fd7..027185e6 100644 --- a/SDL/kunden/frmKundenSuche.Designer.vb +++ b/SDL/kunden/frmKundenSuche.Designer.vb @@ -22,7 +22,6 @@ Partial Class frmKundenSuche 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - Me.components = New System.ComponentModel.Container() Me.txtOrt = New System.Windows.Forms.TextBox() Me.Label12 = New System.Windows.Forms.Label() Me.txtPlz = New System.Windows.Forms.TextBox() @@ -37,7 +36,8 @@ Partial Class frmKundenSuche Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.FlatButton2 = New VERAG_PROG_ALLGEMEIN.FlatButton() Me.pnlErweiterteSuche = New System.Windows.Forms.Panel() - Me.cbxAlleFirmen = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.Button1 = New System.Windows.Forms.Button() + Me.cbxAlleFirmen = New VERAG_PROG_ALLGEMEIN.MyCheckbox() Me.Label7 = New System.Windows.Forms.Label() Me.txtSteuerNr = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() @@ -45,12 +45,13 @@ Partial Class frmKundenSuche Me.txtEORI = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() Me.txtUID = New System.Windows.Forms.TextBox() - Me.cbxAktiv = New VERAG_PROG_ALLGEMEIN.MyCheckbox(Me.components) + Me.cbxAktiv = New VERAG_PROG_ALLGEMEIN.MyCheckbox() Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.FlatButton3 = New System.Windows.Forms.Button() Me.pnlTop = New System.Windows.Forms.Panel() Me.Label2 = New System.Windows.Forms.Label() Me.lklErweitert = New System.Windows.Forms.LinkLabel() + Me.lblInfo = New System.Windows.Forms.Label() CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.pnlMain.SuspendLayout() @@ -203,6 +204,7 @@ Partial Class frmKundenSuche ' 'pnlErweiterteSuche ' + Me.pnlErweiterteSuche.Controls.Add(Me.Button1) Me.pnlErweiterteSuche.Controls.Add(Me.cbxAlleFirmen) Me.pnlErweiterteSuche.Controls.Add(Me.Label7) Me.pnlErweiterteSuche.Controls.Add(Me.txtSteuerNr) @@ -226,6 +228,18 @@ Partial Class frmKundenSuche Me.pnlErweiterteSuche.TabIndex = 151 Me.pnlErweiterteSuche.Visible = False ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.Black + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(575, 49) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(113, 30) + Me.Button1.TabIndex = 154 + Me.Button1.Text = "Reset" + Me.Button1.UseVisualStyleBackColor = True + ' 'cbxAlleFirmen ' Me.cbxAlleFirmen._value = "" @@ -346,13 +360,14 @@ Partial Class frmKundenSuche Me.FlatButton3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.FlatButton3.Location = New System.Drawing.Point(450, 49) Me.FlatButton3.Name = "FlatButton3" - Me.FlatButton3.Size = New System.Drawing.Size(246, 30) + Me.FlatButton3.Size = New System.Drawing.Size(113, 30) Me.FlatButton3.TabIndex = 7 Me.FlatButton3.Text = "Suchen" Me.FlatButton3.UseVisualStyleBackColor = True ' 'pnlTop ' + Me.pnlTop.Controls.Add(Me.lblInfo) Me.pnlTop.Controls.Add(Me.Label2) Me.pnlTop.Controls.Add(Me.lklErweitert) Me.pnlTop.Controls.Add(Me.txtKurzname) @@ -384,6 +399,16 @@ Partial Class frmKundenSuche Me.lklErweitert.TabStop = True Me.lklErweitert.Text = "erweiterte Suche" ' + 'lblInfo + ' + Me.lblInfo.AutoSize = True + Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblInfo.ForeColor = System.Drawing.Color.Red + Me.lblInfo.Location = New System.Drawing.Point(115, 7) + Me.lblInfo.Name = "lblInfo" + Me.lblInfo.Size = New System.Drawing.Size(0, 13) + Me.lblInfo.TabIndex = 150 + ' 'frmKundenSuche ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -433,4 +458,6 @@ Partial Class frmKundenSuche Friend WithEvents cbxAlleFirmen As VERAG_PROG_ALLGEMEIN.MyCheckbox Friend WithEvents Label7 As Label Friend WithEvents txtSteuerNr As TextBox + Friend WithEvents Button1 As Button + Friend WithEvents lblInfo As Label End Class diff --git a/SDL/kunden/frmKundenSuche.vb b/SDL/kunden/frmKundenSuche.vb index 5c843e16..381955c0 100644 --- a/SDL/kunden/frmKundenSuche.vb +++ b/SDL/kunden/frmKundenSuche.vb @@ -39,7 +39,9 @@ End Sub Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click, cbxAlleFirmen.CheckedChanged - initSearch() + If txtKurzname.Text <> "" OrElse txtKundenNr.Text <> "" OrElse txtSteuerNr.Text <> "" OrElse txtOrt.Text <> "" OrElse cbxLandKz.Text <> "" OrElse txtPlz.Text <> "" Then + initSearch() + End If End Sub Sub initSearch() @@ -51,25 +53,52 @@ SQLstr &= " From [Adressen] INNER JOIN Kunden ON KundenNr=AdressenNr inner join Filialen on Filialen.FilialenNr=Kunden.FilialenNr WHERE 1=1 " Dim suchparam As Boolean = False - If txtKurzname.Text <> "" Then SQLstr &= " AND Ordnungsbegriff LIKE '" & txtKurzname.Text & "%'" : suchparam = True - If txtKundenNr.Text <> "" Then SQLstr &= " AND AdressenNr LIKE '" & txtKundenNr.Text & "%'" : suchparam = True - If txtStrasse.Text <> "" Then SQLstr &= " AND Adressen.Straße LIKE '" & txtStrasse.Text & "%'" : suchparam = True - If txtOrt.Text <> "" Then SQLstr &= " AND Adressen.Ort LIKE '" & txtOrt.Text & "%'" : suchparam = True - If txtPlz.Text <> "" Then SQLstr &= " AND Adressen.[PLZ] LIKE '" & txtPlz.Text & "%'" : suchparam = True - If txtUID.Text <> "" Then SQLstr &= " AND (Adressen.[UstIdKz] + Adressen.[UstIdNr]) LIKE '" & txtUID.Text.Replace("*", "%") & "'" : suchparam = True - If txtEORI.Text <> "" Then SQLstr &= " AND [EORITIN] LIKE '" & txtEORI.Text.Replace("*", "%") & "'" : suchparam = True - If cbxLandKz.Text <> "" Then SQLstr &= " AND Adressen.LandKz = '" & DirectCast(cbxLandKz.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "'" : suchparam = True - If txtSteuerNr.Text <> "" Then SQLstr &= " AND Adressen.Steuernummer LIKE '" & txtSteuerNr.Text & "%'" : suchparam = True + If txtKurzname.Text <> "" Then + SQLstr &= " AND Ordnungsbegriff LIKE '" & setLIke(txtKurzname.Text) & "%'" + suchparam = True + End If + If txtKundenNr.Text <> "" Then + SQLstr &= " AND AdressenNr LIKE '" & setLIke(txtKundenNr.Text) & "%'" + suchparam = True + End If + If txtStrasse.Text <> "" Then + SQLstr &= " AND Adressen.Straße LIKE '" & setLIke(txtStrasse.Text) & "%'" + suchparam = True + End If + If txtOrt.Text <> "" Then + SQLstr &= " AND Adressen.Ort LIKE '" & setLIke(txtOrt.Text) & "%'" + suchparam = True + End If + If txtPlz.Text <> "" Then + SQLstr &= " AND Adressen.[PLZ] LIKE '" & setLIke(txtPlz.Text) & "%'" + suchparam = True + End If + If txtUID.Text <> "" Then + SQLstr &= " AND (Adressen.[UstIdKz] + Adressen.[UstIdNr]) LIKE '" & setLIke(txtUID.Text) & "'" + suchparam = True + End If + If txtEORI.Text <> "" Then + SQLstr &= " AND [EORITIN] LIKE '" & setLIke(txtEORI.Text) & "'" + suchparam = True + End If + If cbxLandKz.Text <> "" Then + SQLstr &= " AND Adressen.LandKz = '" & DirectCast(cbxLandKz.SelectedItem, VERAG_PROG_ALLGEMEIN.MyListItem).Value & "'" + suchparam = True + End If + If txtSteuerNr.Text <> "" Then + SQLstr &= " AND Adressen.Steuernummer LIKE '" & setLIke(txtSteuerNr.Text) & "%'" + suchparam = True + End If Select Case cbxAktiv.CheckState Case CheckState.Checked : SQLstr &= " AND Auswahl='A' " : suchparam = True Case CheckState.Unchecked : SQLstr &= " AND Auswahl='I' " : suchparam = True End Select If cbxAlleFirmen.Checked Then - SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Alle Firmen + SQLstr &= " AND (Filialen.Firma IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') OR Filialen.Cluster IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "')) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Alle Firmen Else Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "FRONTOFFICE" : SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice - Case "VERIMEX" : SQLstr &= " AND '" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' IN (Filialen.Firma,Filialen.Cluster) " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + Case "FRONTOFFICE" : SQLstr &= " AND Filialen.Firma IN (" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & ") " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice + Case "VERIMEX" : SQLstr &= " AND Filialen.Cluster IN ('" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') " ' Wenn die Firmenbezeichnung im CLUSter vorkommt .--> Frontoffice Case "VERAG", "ATILLA" : SQLstr &= " AND isnull(Kunden.[FilialenNr],0) NOT IN ('5501','5601','5701','5801') " : suchparam = True Case Else : SQLstr &= " AND Filialen.Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " : suchparam = True End Select @@ -84,7 +113,13 @@ Else ' MsgBox("Bitte geben Sie einen Suchbegriff ein!") End If + + lblInfo.Text = "" + If .RowCount = 0 Then Exit Sub + If .RowCount = 10 Then + lblInfo.Text = "ersten 10 Eintrage!" + End If .Columns("KdNr").Width = 60 .Columns("Firma").Width = 250 If .Columns("Firma_intern") IsNot Nothing Then .Columns("Firma_intern").HeaderText = "Firma" @@ -93,6 +128,16 @@ End With End Sub + Private Function setLIke(text As String) As String + text = text.Trim() + + If text.StartsWith("*") Then + text = "%" & text.Substring(1).Replace("*", "") + End If + + Return text + End Function + Private Sub checkKey(sender As Object, e As KeyEventArgs) Handles txtKurzname.KeyDown, txtKundenNr.KeyDown, txtStrasse.KeyDown, txtOrt.KeyDown, txtPlz.KeyDown If DataGridView1.RowCount > 0 Then Select Case e.KeyCode @@ -136,7 +181,10 @@ Private Sub txtKurzname_TextChanged(sender As Object, e As EventArgs) Handles txtKurzname.TextChanged, txtKundenNr.TextChanged, txtStrasse.TextChanged, txtOrt.TextChanged, cbxLandKz.TextChanged, txtPlz.TextChanged - initSearch() + If txtKurzname.Text <> "" OrElse txtKundenNr.Text <> "" OrElse txtSteuerNr.Text <> "" OrElse txtOrt.Text <> "" OrElse cbxLandKz.Text <> "" OrElse txtPlz.Text <> "" Then + initSearch() + End If + End Sub Private Sub lklErweitert_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklErweitert.LinkClicked @@ -165,10 +213,21 @@ End Sub Private Sub cbxAktiv_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAktiv.CheckedChanged + If txtKurzname.Text <> "" OrElse txtKundenNr.Text <> "" OrElse txtSteuerNr.Text <> "" OrElse txtOrt.Text <> "" OrElse cbxLandKz.Text <> "" OrElse txtPlz.Text <> "" Then + initSearch() + End If + End Sub + + + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + txtKurzname.Text = "" + txtKundenNr.Text = "" + txtSteuerNr.Text = "" + txtOrt.Text = "" + cbxLandKz.changeItem("") + txtPlz.Text = "" + initSearch() End Sub - - Private Sub pnlErweiterteSuche_Paint(sender As Object, e As PaintEventArgs) Handles pnlErweiterteSuche.Paint - - End Sub End Class \ No newline at end of file diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 08a20ee8..c2121bc4 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -2380,7 +2380,8 @@ Public Class frmMDMDatenverarbetiung Function genPLOSEInsertMautD_NEW(von As Date, bis As Date) As Boolean Try - VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + 'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True pic.Visible = False diff --git a/SDL/seriendruck/usrCntlFakturierung.Designer.vb b/SDL/seriendruck/usrCntlFakturierung.Designer.vb index aca5842d..c3682e66 100644 --- a/SDL/seriendruck/usrCntlFakturierung.Designer.vb +++ b/SDL/seriendruck/usrCntlFakturierung.Designer.vb @@ -46,6 +46,7 @@ Partial Class usrcntlFakturierung Me.Button18 = New System.Windows.Forms.Button() Me.Label44 = New System.Windows.Forms.Label() Me.GBSammelrechnung = New System.Windows.Forms.GroupBox() + Me.btnSR_zuruecksetzen = New System.Windows.Forms.Button() Me.PictureBox13 = New System.Windows.Forms.PictureBox() Me.Label15 = New System.Windows.Forms.Label() Me.PictureBox12 = New System.Windows.Forms.PictureBox() @@ -109,7 +110,7 @@ Partial Class usrcntlFakturierung Me.btnWikiStatusmails = New System.Windows.Forms.Button() Me.gb_MDM_Rechnungen = New System.Windows.Forms.GroupBox() Me.Label14 = New System.Windows.Forms.Label() - Me.btnSR_zuruecksetzen = New System.Windows.Forms.Button() + Me.cbxFixeTaxe = New System.Windows.Forms.CheckBox() Me.gb_fakturierung.SuspendLayout() Me.GBMautberichte.SuspendLayout() CType(Me.dgvMautbericht, System.ComponentModel.ISupportInitialize).BeginInit() @@ -356,6 +357,7 @@ Partial Class usrcntlFakturierung ' 'GBSammelrechnung ' + Me.GBSammelrechnung.Controls.Add(Me.cbxFixeTaxe) Me.GBSammelrechnung.Controls.Add(Me.btnSR_zuruecksetzen) Me.GBSammelrechnung.Controls.Add(Me.PictureBox13) Me.GBSammelrechnung.Controls.Add(Me.Label15) @@ -423,6 +425,18 @@ Partial Class usrcntlFakturierung Me.GBSammelrechnung.TabIndex = 14 Me.GBSammelrechnung.TabStop = False ' + 'btnSR_zuruecksetzen + ' + Me.btnSR_zuruecksetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSR_zuruecksetzen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.btnSR_zuruecksetzen.Location = New System.Drawing.Point(744, 261) + Me.btnSR_zuruecksetzen.Name = "btnSR_zuruecksetzen" + Me.btnSR_zuruecksetzen.Size = New System.Drawing.Size(107, 32) + Me.btnSR_zuruecksetzen.TabIndex = 135 + Me.btnSR_zuruecksetzen.Text = "SR-zurücksetzen" + Me.btnSR_zuruecksetzen.UseVisualStyleBackColor = True + Me.btnSR_zuruecksetzen.Visible = False + ' 'PictureBox13 ' Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image) @@ -518,7 +532,7 @@ Partial Class usrcntlFakturierung ' Me.Label11.Location = New System.Drawing.Point(168, 156) Me.Label11.Name = "Label11" - Me.Label11.Size = New System.Drawing.Size(440, 17) + Me.Label11.Size = New System.Drawing.Size(262, 17) Me.Label11.TabIndex = 125 Me.Label11.Text = "6. Fixe Taxe 441 (bei Belegsumme < 500) berechnen" ' @@ -1063,17 +1077,16 @@ Partial Class usrcntlFakturierung Me.Label14.TabIndex = 73 Me.Label14.Text = "Rechnungsdaten" ' - 'btnSR_zuruecksetzen + 'cbxFixeTaxe ' - Me.btnSR_zuruecksetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.btnSR_zuruecksetzen.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.btnSR_zuruecksetzen.Location = New System.Drawing.Point(744, 261) - Me.btnSR_zuruecksetzen.Name = "btnSR_zuruecksetzen" - Me.btnSR_zuruecksetzen.Size = New System.Drawing.Size(107, 32) - Me.btnSR_zuruecksetzen.TabIndex = 135 - Me.btnSR_zuruecksetzen.Text = "SR-zurücksetzen" - Me.btnSR_zuruecksetzen.UseVisualStyleBackColor = True - Me.btnSR_zuruecksetzen.Visible = False + Me.cbxFixeTaxe.AutoSize = True + Me.cbxFixeTaxe.Checked = True + Me.cbxFixeTaxe.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxFixeTaxe.Location = New System.Drawing.Point(428, 156) + Me.cbxFixeTaxe.Name = "cbxFixeTaxe" + Me.cbxFixeTaxe.Size = New System.Drawing.Size(15, 14) + Me.cbxFixeTaxe.TabIndex = 136 + Me.cbxFixeTaxe.UseVisualStyleBackColor = True ' 'usrcntlFakturierung ' @@ -1201,4 +1214,5 @@ Partial Class usrcntlFakturierung Friend WithEvents PictureBox13 As PictureBox Friend WithEvents Label15 As Label Friend WithEvents btnSR_zuruecksetzen As Button + Friend WithEvents cbxFixeTaxe As CheckBox End Class diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index 710984f1..50ca353b 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/SDL/seriendruck/usrCntlFakturierung.vb @@ -1,6 +1,7 @@ Imports System.Globalization Imports System.IO Imports System.Web.UI.WebControls.Expressions +Imports java.util Imports VERAG_PROG_ALLGEMEIN Public Class usrcntlFakturierung @@ -290,7 +291,7 @@ Public Class usrcntlFakturierung GROUP BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift]", "FMZOLL") - If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?", vbYesNoCancel) Then + If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?" & vbNewLine & IIf(cbxFixeTaxe.Checked, "Fixe Taxe wird verrechnet!", "Fixe Taxe wird NICHT verrechnet!"), vbYesNoCancel) Then MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub End If @@ -622,17 +623,13 @@ Public Class usrcntlFakturierung Dim intZlr As Integer = 0 - If r("RechnungsKundenNr") = "401715" Or r("RechnungsKundenNr") = "401943" Or r("RechnungsKundenNr") = "402179" Or r("RechnungsKundenNr") = "402598" Or r("RechnungsKundenNr") = "402656" Or r("RechnungsKundenNr") = "402688" Or r("RechnungsKundenNr") = "402719" Or r("RechnungsKundenNr") = "402888" Or r("RechnungsKundenNr") = "402933" Or r("RechnungsKundenNr") = "401733" Or r("RechnungsKundenNr") = "402245" Or r("RechnungsKundenNr") = "402712" Or r("RechnungsKundenNr") = "402065" Or r("RechnungsKundenNr") = "402712" Or r("RechnungsKundenNr") = "401908" Or r("RechnungsKundenNr") = "401829" Or r("RechnungsKundenNr") = "203083" Then - 'MsgBox("Test") - End If - - ' Bei BetragExclusivFT kleiner als 500€ wird 1x fixe Taxe verrechnet, bei grösser/gleich 500€ wird kein fixe Taxe verrechnet. + ' Bei BetragExclusivFT kleiner als 500€ wird 1x fixe Taxe verrechnet, bei grösser/gleich 500€ oder cbxFixeTaxe nicht gesetzt wird kein fixe Taxe verrechnet. ' Zähler auf die Anzahl der fixe Taxe Löschungen einstellen. If Not IsDBNull(r("BetragExclusivFT")) AndAlso r("BetragExclusivFT") > 0 Then - If r("BetragExclusivFT") < 500 Then + If r("BetragExclusivFT") < 500 AndAlso cbxFixeTaxe.Checked Then intZlr = r("AnzahlFT") - 1 Else intZlr = r("AnzahlFT") @@ -640,16 +637,24 @@ Public Class usrcntlFakturierung Else - If (0 - r("BetragExclusivFT")) < 500 Then - intZlr = r("AnzahlFT") - 1 + If cbxFixeTaxe.Checked Then + + If (0 - r("BetragExclusivFT")) < 500 Then + intZlr = r("AnzahlFT") - 1 + Else + intZlr = r("AnzahlFT") - 1 + End If + Else - intZlr = r("AnzahlFT") - 1 + + intZlr = r("AnzahlFT") + End If End If - If intZlr > 0 Then + If intZlr > 0 Then Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!) @@ -1126,7 +1131,7 @@ Public Class usrcntlFakturierung Dim hatFehler As Boolean = False If dtSammelRechnugen.Rows.Count = 0 Then - MsgBox("Keine Rechnungen für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang wird abgebrochen.") + MsgBox("Keine Rechnungen für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang für die ZNB-liste wird übersprungen.") Return False End If @@ -1141,7 +1146,7 @@ Public Class usrcntlFakturierung End If If dtSammelRechnugen_EZB.Rows.Count = 0 Then - MsgBox("Keine Rechnungen der Filiale 8001 für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang wird abgebrochen.") + MsgBox("Keine Rechnungen der Filiale 8001 für die Anlage der ZNB-Berichte gefunden!" & vbNewLine & "Vorgang für die ZNB-liste wird übersprungen.") Return False End If @@ -2615,30 +2620,63 @@ Public Class usrcntlFakturierung If vbYes = MsgBox("Soll die Sammelrechnung für den " & rechnungsdatum & " zurückgesetzt werden?" & vbNewLine & "ACHTUNG, das darf nur von Administratoren durchgeführt werden!!!!", vbYesNoCancel) Then Dim SQL As New SQL + Dim setBack As Boolean = False + Dim LIEFERANT As String = "" + '1. VZ zurücksetzen - wenn vorhanden! - SQL.doSQL("UPDATE [VERAG].[dbo].[tblMDM_Zinsberechnung] Set RK_ID = NULL,verrechnet = NULL where RK_ID in (select RK_ID from Rechnungsausgang where cast(RechnungsDatum as date) = '" & rechnungsdatum.ToShortDateString & "' and Firma_ID = 19 and Sammelrechnung = 6 )", "FMZOLL") + LIEFERANT = "VZ-Daten" + setBack = SQL.doSQL("UPDATE [VERAG].[dbo].[tblMDM_Zinsberechnung] Set RK_ID = NULL,verrechnet = NULL where RK_ID in (select RK_ID from Rechnungsausgang where cast(RechnungsDatum as date) = '" & rechnungsdatum.ToShortDateString & "' and Firma_ID = 19 and Sammelrechnung = 6 )", "FMZOLL") + + If Not createInfo(setBack, LIEFERANT) Then Exit Sub '2. SR löschen - SQL.doSQL("delete from Rechnungsausgang where cast(RechnungsDatum as date) = '" & rechnungsdatum.ToShortDateString & "' and Firma_ID = 19 and Sammelrechnung = 6 ", "FMZOLL") + LIEFERANT = "SR-Rechnung" + setBack = SQL.doSQL("delete from Rechnungsausgang where cast(RechnungsDatum as date) = '" & rechnungsdatum.ToShortDateString & "' and Firma_ID = 19 and Sammelrechnung = 6 ", "FMZOLL") + If Not createInfo(setBack, LIEFERANT) Then Exit Sub '3. Lieferantendaten zurücksetzten 'PLOSE - SQL.doSQL("update tblPLOSE_Details set plose_Fakturiert = 0, plose_FakturiertDatum=NULL where isnull(plose_Fakturiert,0) = 1 and cast(plose_FakturiertDatum as Date) >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL") + LIEFERANT = "PLOSE-Daten" + setBack = SQL.doSQL("update tblPLOSE_Details set plose_Fakturiert = 0, plose_FakturiertDatum=NULL where isnull(plose_Fakturiert,0) = 1 and cast(plose_FakturiertDatum as Date) >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL") + + If Not createInfo(setBack, LIEFERANT) Then Exit Sub 'UTA - SQL.doSQL("UPDATE [tblUTAImportNew] set charged=0,chargedDatetime=NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL") + LIEFERANT = "UTA-Daten" + setBack = SQL.doSQL("UPDATE [tblUTAImportNew] set charged=0,chargedDatetime=NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL") - 'IDS - SQL.doSQL("UPDATE [tblIDSTransactionsNew] Set charged = 0 ,chargedDatetime = NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL") + If Not createInfo(setBack, LIEFERANT) Then Exit Sub + + LIEFERANT = "IDS-Daten" + setBack = SQL.doSQL("UPDATE [tblIDSTransactionsNew] Set charged = 0 ,chargedDatetime = NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL") + + If Not createInfo(setBack, LIEFERANT) Then Exit Sub 'MSE - SQL.doSQL("UPDATE [tblMSETransactions] Set charged = 0 , chargedDatetime = NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL") + setBack = SQL.doSQL("UPDATE [tblMSETransactions] Set charged = 0 , chargedDatetime = NULL where isnull(charged,0) = 1 and chargedDatetime >= '" & rechnungsdatum.AddDays(1) & "'", "FMZOLL") + LIEFERANT = "MSE-Daten" + + If Not createInfo(setBack, LIEFERANT) Then Exit Sub 'BANK - Wenn vorhanden - SQL.doSQL("UPDATE [VERAG].[dbo].[tblMDM_Bankspesen] Set RK_ID = NULL,verrechnet = NULL, SR_datum = NULL where verrechnet >= '" & rechnungsdatum.AddDays(1) & "' and SR_datum = '" & rechnungsdatum.ToShortDateString & "'", "FMZOLL") + LIEFERANT = "BANK-Daten" + setBack = SQL.doSQL("UPDATE [VERAG].[dbo].[tblMDM_Bankspesen] Set RK_ID = NULL,verrechnet = NULL, SR_datum = NULL where verrechnet >= '" & rechnungsdatum.AddDays(1) & "' and SR_datum = '" & rechnungsdatum.ToShortDateString & "'", "FMZOLL") + If Not createInfo(setBack, LIEFERANT) Then Exit Sub + + + 'MAUTDATEN + LIEFERANT = "Mautbericht-Daten" + setBack = SQL.doSQL("delete from tblMautbericht where Billingdate= '" & rechnungsdatum.ToShortDateString & "'", "FMZOLL") + + If Not createInfo(setBack, LIEFERANT) Then Exit Sub + + + If setBack Then + MsgBox("Rücksetzung erfolgreich!") + End If @@ -2649,4 +2687,16 @@ Public Class usrcntlFakturierung End Sub + + Private Function createInfo(setBack As Boolean, Lieferant As String) As Boolean + + Dim INFO As String = "Achtung die Rücksetzung der " & Lieferant & " ist fehlgeschlagen, Rücksetzung wird abgebrochen!" + + If Not setBack Then + MsgBox(INFO) + End If + + Return setBack + + End Function End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb index 0aab2fbb..94ad1c04 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb @@ -24,6 +24,9 @@ Public Class cKundenSicherheiten Public Property sc_stornoDatum As Date? = Nothing Public Property sc_stornoMaId As Integer? = Nothing + Public Property sc_cbam_jahr As Integer? = Nothing + Public Property sc_cbam_quartal As Integer? = Nothing + Public hasEntry As Boolean = False @@ -34,6 +37,13 @@ Public Class cKundenSicherheiten LOAD() End Sub + Sub New(_sc_kundenNr As String, _sc_cbam_quartal As Integer, _sc_cbam_jahr As Integer) + sc_kundenNr = _sc_kundenNr + sc_cbam_quartal = _sc_cbam_quartal + sc_cbam_jahr = _sc_cbam_jahr + LOADCBAM() + End Sub + Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) @@ -57,6 +67,8 @@ Public Class cKundenSicherheiten list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_storno", sc_storno)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_stornoDatum", sc_stornoDatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_stornoMaId", sc_stornoMaId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_cbam_jahr", sc_cbam_jahr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sc_cbam_quartal", sc_cbam_quartal)) Return list End Function @@ -103,6 +115,33 @@ Public Class cKundenSicherheiten VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name) End Try End Sub + Public Sub LOADCBAM() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblKundenSicherheiten WHERE sc_kundenNr=@sc_kundenNr and sc_cbam_quartal = @sc_cbam_quartal and sc_cbam_jahr = @sc_cbam_jahr", conn) + cmd.Parameters.AddWithValue("@sc_kundenNr", sc_kundenNr) + cmd.Parameters.AddWithValue("@sc_cbam_quartal", sc_cbam_quartal) + cmd.Parameters.AddWithValue("@sc_cbam_jahr", sc_cbam_jahr) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim prop As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + If dr(li.Text) Is DBNull.Value Then + prop.SetValue(Me, Nothing) + Else + prop.SetValue(Me, dr(li.Text)) + End If + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name) + End Try + End Sub Public Function getUpdateCmd() As String Dim list = getParameterList() diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb index a4036fd2..64b02e95 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb +++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb @@ -1,8 +1,10 @@ Imports System.Data.SqlClient Imports System.Reflection Imports System.Runtime.InteropServices.ComTypes +Imports System.Windows.Forms Imports com.sun.tools.javac.util Imports java.lang.ProcessBuilder +Imports Org.BouncyCastle.Crypto.Agreement Imports sun.util.resources.cldr.aa Imports VERAG_PROG_ALLGEMEIN.TESTJSON @@ -518,6 +520,7 @@ Public Class cVERAG_CustomsDeclarations End Function Public Sub checkfreshCBAMWarning() + Try Dim CBAM_ITEMS As New List(Of cVERAG_CustomsDeclarations_Item) @@ -597,6 +600,10 @@ Public Class cVERAG_CustomsDeclarations Dim dateCBAM = If(If(za_ReleaseDate, za_DeclarationDate), Now) Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(vertretenerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year), za_MRN) / 1000 + Dim quarter As Integer = Math.Ceiling(dateCBAM.Month / 3.0) + Dim CountryOfOrigin As String = If(CBAM_ITEMS.FirstOrDefault()?.zaItem_OriginCountry, "") + createOrUpdateKundenSicherheitseintrag(KD_IND, CountryOfOrigin, vertretenerEORI, quarter, dateCBAM.Year) + 'Prüft, ob Vertrag vorliegt: Dim hasValidVertrag_CBAM As Boolean = @@ -679,6 +686,10 @@ Public Class cVERAG_CustomsDeclarations Dim dateCBAM = If(If(za_ReleaseDate, za_DeclarationDate), Now) + Dim CountryOfOrigin As String = If(CBAM_ITEMS.FirstOrDefault()?.zaItem_OriginCountry, "") + Dim quarter As Integer = Math.Ceiling(dateCBAM.Month / 3.0) + createOrUpdateKundenSicherheitseintrag(KD, CountryOfOrigin, importerEORI, quarter, dateCBAM.Year) + Dim eigenmasseSumme_Shipment As Decimal = CBAM_ITEMS.Sum(Function(i) If(i.zaItem_NetMass, 0D)) / 1000 Dim eigenmasseSumme_YEAR As Decimal = getCBAM_KG(importerEORI, CDate("01.01." & dateCBAM.Year), CDate("31.12." & dateCBAM.Year)) / 1000 @@ -807,6 +818,101 @@ Public Class cVERAG_CustomsDeclarations Return String.Join(", ", result) End Function + Private Function createOrUpdateKundenSicherheitseintrag(KUNDE As cKunde, CountryOfOrigin As String, EORI As String, cbamQquarter As Integer, cbamYear As Integer) + + Dim von As Date + Dim bis As Date + Dim CBAMZertifikatKosten As Double = 0 + + 'If CountryOfOrigin = "" Then Return False + + Select Case cbamQquarter + Case "1" + von = New Date(cbamYear, 1, 1) + bis = New Date(cbamYear, 3, 31) + CBAMZertifikatKosten = 75.36 + + Case "2" + von = New Date(cbamYear, 4, 1) + bis = New Date(cbamYear, 6, 30) + CBAMZertifikatKosten = 75.28 + Case "3" + von = New Date(cbamYear, 7, 1) + bis = New Date(cbamYear, 9, 30) + CBAMZertifikatKosten = 82.32 + + Case "4" + von = New Date(cbamYear, 10, 1) + bis = New Date(cbamYear, 12, 31) + CBAMZertifikatKosten = 0 + End Select + + Dim EORI_ = {EORI} + + Dim LIST As List(Of VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations) = VERAG_PROG_ALLGEMEIN.cVERAG_CustomsDeclarations.LOAD_List_CBAM(EORI_, CountryOfOrigin, von, bis,, True) + + + Dim grouped = From za In LIST + Where za.Items IsNot Nothing + From it In za.Items + Let tarif = If(it.zaItem_HSCode IsNot Nothing AndAlso it.zaItem_HSCode.Length >= 8, + it.zaItem_HSCode.Substring(0, 8), + it.zaItem_HSCode) + Let country = it.zaItem_OriginCountry + Group By tarif, country + Into grp = Group + Select New With { + .Tarif = tarif, + .Country = country, + .Eigenmasse = grp.Sum(Function(x) If(x.it.zaItem_NetMass, 0D)), + .Rohmasse = grp.Sum(Function(x) If(x.it.zaItem_GrossMass, 0D)), + .RechnungswertEUR = grp.Sum(Function(x) If(x.it.zaItem_InvoiceValueEUR, 0D)) + } + + + + + + If grouped.Count < 1 Then + Return False + End If + + Dim gesamtBetrag As Double = 0 + Dim cost As Double = 0 + Dim emission As Double = 0 + Dim benchmark As Double = 0 + + + For Each r In grouped + cATEZ_Greenpulse_CBAM_CostCalculation.calcCBAM_ByCertificatePrice(r.Tarif, r.Rohmasse, r.Country, CBAMZertifikatKosten, cbamYear, cost, emission, benchmark) + gesamtBetrag += cost + Next + + If gesamtBetrag <> 0 Then + + Dim Kunde_Sicherheit As New cKundenSicherheiten(KUNDE.KundenNr, cbamQquarter, cbamYear) + If Kunde_Sicherheit.hasEntry Then + + Kunde_Sicherheit.sc_Betrag = gesamtBetrag + Kunde_Sicherheit.SAVE() + Else + Kunde_Sicherheit.sc_Waehrung = "EUR" + Kunde_Sicherheit.sc_Bemerkung = "CBAM Kosten Q" & cbamQquarter & " " & cbamYear & " / verw. Preis: " & CBAMZertifikatKosten.ToString("N2") + Kunde_Sicherheit.sc_Art = "BANKGARANTIE" + Kunde_Sicherheit.sc_Betrag = gesamtBetrag + Kunde_Sicherheit.sc_gueltigVon = New Date(2026, 1, 1) + Kunde_Sicherheit.sc_gueltigBis = New Date(2027, 12, 31) + Kunde_Sicherheit.sc_datum = Today() + Kunde_Sicherheit.sc_Mitarbeiter = "AUTO" + Kunde_Sicherheit.sc_dsId = -1 + Kunde_Sicherheit.SAVE() + End If + + End If + + + End Function + Public Function getCBAM_KG(EORI As String, von As Date, bis As Date, Optional without_MRN As String = "", Optional isDeclarant As Boolean = False) As Decimal Try If EORI = "" Then Return 0 diff --git a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb index ec3bb089..fbd0a0a7 100644 --- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb +++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb @@ -897,6 +897,10 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object( Select Case art Case "3", "4" 'Export sqlWHere = " AND mail_kindOfMail = 'EXP'" + + Case "5" 'Buchhaltung + sqlWHere = " AND mail_kindOfMail = 'BH'" + Case Else sqlWHere = " AND mail_kindOfMail = 'IMP'" End Select