From 0781684cb0bdb8dbc923e4e99568a85b78080670 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 24 Oct 2025 11:23:37 +0200 Subject: [PATCH] tradeInvoice, Kundenubersicht, fakt, etc. --- SDL/Fakturierung/cFakturierung.vb | 6 ++- ...agenDruck_Zinsennachberechnung.Designer.vb | 4 +- ...ngMDM_AnlagenDruck_Zinsennachberechnung.vb | 16 +++--- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 49 ++++++++++--------- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/buchhaltung/usrCntlBH.vb | 40 +++++++-------- SDL/kunden/usrCntlKundenuebersicht.vb | 2 +- .../Classes/cMDMFunctionsAllgemein.vb | 3 +- VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb | 1 + 9 files changed, 65 insertions(+), 60 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index a2609e23..3c83b755 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -316,9 +316,12 @@ Public Class cFakturierung If RECHNUNG_KD.Zahlungsziel IsNot Nothing AndAlso IsNumeric(RECHNUNG_KD.Zahlungsziel) Then ZZTage = RECHNUNG_KD.Zahlungsziel + If ZZTage > 14 AndAlso RECHNUNG.Firma_ID = 19 AndAlso RECHNUNG.FilialenNr = 8001 Then + ZZTage = 14 + End If End If - Select Case RECHNUNG.[BelegartenNr] + Select Case RECHNUNG.[BelegartenNr] Case 70 'RECHNUNG Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(RECHNUNG.FilialenNr, RECHNUNG.AbfertigungsNr) @@ -2329,7 +2332,6 @@ Public Class cFakturierung rpt.lblSteuerfreiUeberschrift.Text = "Zinsen p.a." rpt.lblSteuerpflichtigUeberschrift.Text = "Zahlungsbetrag" - rpt.lbl_onlyZR_ReDatUeberschrift.Visible = True rpt.lbl_onlyZR_FaelligUeberschrift.Visible = True rpt.lbl_onlyZR_VZUeberschrift.Visible = True diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb index ef09f309..e20ad4f1 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.Designer.vb @@ -124,8 +124,8 @@ Partial Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung Me.txtTage.Left = 3.37126! Me.txtTage.Name = "txtTage" Me.txtTage.Padding = New GrapeCity.ActiveReports.PaddingEx(6, 0, 0, 0) - Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: center; ddo-ch" & - "ar-set: 0" + Me.txtTage.Style = "color: #202020; font-size: 6.75pt; font-style: italic; text-align: right; ddo-cha" & + "r-set: 0" Me.txtTage.Text = "-" Me.txtTage.Top = 0! Me.txtTage.Width = 0.5771654! diff --git a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb index dafb02c5..db5a55a7 100644 --- a/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb +++ b/SDL/Fakturierung/rptRechnungMDM_AnlagenDruck_Zinsennachberechnung.vb @@ -33,14 +33,12 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung If Me.Fields.Item("clmnReNr") IsNot Nothing AndAlso Me.Fields.Item("clmnReNr").Value IsNot Nothing Then txtREnr.Text &= Me.Fields.Item("clmnReNr").Value.ToString If Me.Fields.Item("clmnReDatum") IsNot Nothing AndAlso Me.Fields.Item("clmnReDatum").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnReDatum").Value) Then txtReDat.Text &= CDate(Me.Fields.Item("clmnReDatum").Value).ToShortDateString - If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= Me.Fields.Item("clmnReBetrag").Value.ToString() - + If Me.Fields.Item("clmnReBetrag") IsNot Nothing AndAlso Me.Fields.Item("clmnReBetrag").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnReBetrag").Value) <> 0 Then txtReBetrag.Text &= CDbl(Me.Fields.Item("clmnReBetrag").Value).ToString("N2") If Me.Fields.Item("clmnFaellig") IsNot Nothing AndAlso Me.Fields.Item("clmnFaellig").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnFaellig").Value) Then txtFaellig.Text &= CDate(Me.Fields.Item("clmnFaellig").Value).ToShortDateString - If Me.Fields.Item("clmnZE") IsNot Nothing AndAlso Me.Fields.Item("clmnZE").Value IsNot Nothing AndAlso IsDate(Me.Fields.Item("clmnZE").Value) Then txtZE.Text &= CDate(Me.Fields.Item("clmnZE").Value).ToShortDateString If Me.Fields.Item("clmnTage") IsNot Nothing AndAlso Me.Fields.Item("clmnTage").Value IsNot Nothing Then txtTage.Text &= Me.Fields.Item("clmnTage").Value.ToString - If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= Me.Fields.Item("clmnZinsen").Value.ToString() - If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() + If Me.Fields.Item("clmnZinsen") IsNot Nothing AndAlso Me.Fields.Item("clmnZinsen").Value IsNot Nothing AndAlso CDbl(Me.Fields.Item("clmnZinsen").Value) <> 0 Then txtZinsen.Text &= CDbl(Me.Fields.Item("clmnZinsen").Value).ToString("N2") + If Me.Fields.Item("clmnVZ") IsNot Nothing AndAlso Me.Fields.Item("clmnVZ").Value IsNot Nothing Then txtVZ.Text &= Me.Fields.Item("clmnVZ").Value.ToString() & " %" End If End Sub @@ -62,17 +60,15 @@ Public Class rptRechnungMDM_AnlagenDruck_Zinsennachberechnung RECHNUNG.ORDER_POSITIONEN() - - For Each POS In RECHNUNG.POSITIONEN - + If RECHNUNG.POSITIONEN.Any() Then Dim dtTemp As DataTable - dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & POS.RK_ID & " and id = " & POS.NachzahlungsID & " AND buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") + dtTemp = SQL.loadDgvBySql_Param("select [id] as clmnID,[belegNr] as clmnReNr,[buchungstext] as clmnAbfNr,[zinssatz] clmnVZ,[belegZahlungsziel],[ueberschreitungInTagen] clmnTage,[zinsbetrag] clmnZinsen,[belegDatum] as clmnReDatum,[zahlungsBetrag] as clmnReBetrag,[zahlungDatum] as clmnZE, [faelligkeitsDatum] as clmnFaellig from tblMDM_Zinsberechnung where RK_ID =" & RECHNUNG.RK_ID & " and FORMAT(id, '00000') +'-'+ buchungstext like '" & LeistungsText.Trim() & "%'", "FMZOLL") For Each rg As DataRow In dtTemp.Rows dt.Rows.Add(rg.Item("clmnID"), rg.Item("clmnReNr"), rg.Item("clmnReDatum"), rg.Item("clmnAbfNr"), rg.Item("clmnReBetrag"), rg.Item("clmnZE"), rg.Item("clmnTage"), rg.Item("clmnZinsen"), rg.Item("clmnVZ"), rg.Item("clmnFaellig")) Next - Next + End If Me.DataSource = dt diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 0689c35a..89458f8e 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -1981,30 +1981,35 @@ Public Class usrCntlFaktAbrechnung If RECHNUNG.ANHAENGE IsNot Nothing AndAlso Not RECHNUNG.ANHAENGE.Exists(Function(c) c.dsId = r("UStVPo_daId")) Then 'wenn der Anhang schon existiert! - Dim DAID As String = "" - DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, USTV.UStVAn_LandKz, USTV, New cFakturierung, True) + If USTV.UStVAn_ID > 0 Then + Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & USTV.UStVAn_LandNr & "'", "FMZOLL") - Dim nameLief As String = "" + Dim DAID As String = "" + DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, Antrag_LandKz, USTV, New cFakturierung, True) - Select Case r("UStVPo_SchnittstellenNr") - Case 1 : nameLief = "VERAG-" 'Verag360 - Case 2, 8, 12 : nameLief = "IDS-" - Case 3 : nameLief = "IT-" - Case 4, 9 : nameLief = "MSE-" - Case 5, 10 : nameLief = "UTA-" - Case 6, 11 : nameLief = "PLOSE-" - Case 7 : nameLief = "RMC-" - End Select + Dim nameLief As String = "" - nameLief &= "RE" + Select Case r("UStVPo_SchnittstellenNr") + Case 1 : nameLief = "VERAG-" 'Verag360 + Case 2, 8, 12 : nameLief = "IDS-" + Case 3 : nameLief = "IT-" + Case 4, 9 : nameLief = "MSE-" + Case 5, 10 : nameLief = "UTA-" + Case 6, 11 : nameLief = "PLOSE-" + Case 7 : nameLief = "RMC-" + End Select + + nameLief &= "RE" + + If DAID <> "" AndAlso IsNumeric(DAID) Then + Dim daidno As Integer = CInt(DAID) + Dim ds As New cDATENSERVER(daidno) + .Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1) + End If - If DAID <> "" AndAlso IsNumeric(DAID) Then - Dim daidno As Integer = CInt(DAID) - Dim ds As New cDATENSERVER(daidno) - .Rows.Add(-1, nameLief, ds.da_name, ds.da_id, -1) End If - End If + End If @@ -4299,11 +4304,11 @@ Nächste_Textzeile_lesen: If If(SPEDBUCH.AtlasBezNrEZA, "") <> "" Then If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "EUST") Then - loadEUST() + If RECHNUNG.Sammelrechnung = 0 Then loadEUST() End If If bool_SendAbrechung(SPEDBUCH.SendungID, kdFirmaRechnungAn.KdNr, "ZOLL") Then - loadZOLL() + If RECHNUNG.Sammelrechnung = 0 Then loadZOLL() End If End If @@ -4409,8 +4414,8 @@ Nächste_Textzeile_lesen: End Sub Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click - loadEUST() - loadZOLL() + If RECHNUNG.Sammelrechnung = 0 Then loadEUST() + If RECHNUNG.Sammelrechnung = 0 Then loadZOLL() loadBerechnungsArt_jePosition() End Sub diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index ed4ca78c..29046b6f 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/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index b5eeff57..cd4097ee 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -827,11 +827,11 @@ Public Class usrCntlBH op_debitor.c_urbelegid AS BelegNr, op_debitor.i_personenkonto AS KundenNr, op_debitor.d_rechnung AS Belegdatum, - ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum, + --ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000') AS origbelegdatum, op_debitor.eur_bruttobetrag AS Bruttobetrag, op_debitor.eur_zahlung AS Zahlungsbetrag, op_debitor.d_netto AS Nettodatum, - op_debitor.c_bemerkung AS buchungstext, + op_debitor.c_bemerkung AS Buchungstext, op_debitor.d_zahlung AS Zahlungsdatum, ISNULL(op_debitor.c_zahlziel, '0/0/20') AS ZZ_in_OP, isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde, @@ -842,7 +842,7 @@ Public Class usrCntlBH case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then - op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5) / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360 + Round(op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5) / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360,2) else 0 end as Zinsbetrag, @@ -858,9 +858,11 @@ Public Class usrCntlBH AND (op_debitor.eur_bruttobetrag + op_debitor.eur_zahlung >= (-1)) AND op_debitor.i_personenkonto >= @KundeVon AND op_debitor.i_personenkonto <= @KundeBis AND op_debitor.d_zahlung >= @ZahlungVon AND op_debitor.d_zahlung <= @ZahlungBis - AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 + AND DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 + AND Left(op_debitor.c_bemerkung,2) <> 'AR' + AND op_debitor.c_bemerkung not like '%nicht verzinsen%' - ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')" + ORDER BY op_debitor.i_personenkonto, op_debitor.c_urbelegid desc, op_debitor.d_rechnung, ISNULL(op_debitor.OWNFIELD_Belegdatum, '01.01.2000')" Dim dt = SQL.loadDgvBySql(sqlStr_FIBU, "FIBU") @@ -886,7 +888,7 @@ Public Class usrCntlBH Else - zins.buchungstext = r.Item("buchungstext") + zins.buchungstext = r.Item("Buchungstext") zins.kundeZahlungsziel = r.Item("ZZ_in_Debitor") zins.zinssatz = r.Item("Zinssatz_Kunde") zins.belegZahlungsziel = r.Item("ZZinTage") @@ -915,7 +917,7 @@ Public Class usrCntlBH dtTemp = dt.Select("Zinsbetrag > 0").CopyToDataTable If dtTemp.Rows.Count > 0 Then - cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"E1:E" & (dt.Rows.Count + 1), "F1:F" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)}) + cProgramFunctions.genExcelFromDT_NEW(dtTemp, {"D1:D" & (dt.Rows.Count + 1), "E1:E" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1)}) txtnichtabrechneteKunden.Text = SQL.getValueTxtBySql("SELECT count(distinct(kundenNr)) FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where verrechnet is null", "FMZOLL",,, "0") End If @@ -1074,8 +1076,6 @@ Public Class usrCntlBH Dim dt As New DataTable cMDMZinsberechnung.GET_NICHTABGERECHNETE_ZB(dt, KdNr) - 'Dim zahlungsperiodeStart - 'Dim zahlungsperiodeEnde For Each r In dt.Rows @@ -1094,13 +1094,12 @@ Public Class usrCntlBH Dim LeistungsNr As Integer = 950 Dim LeistungsBezAdd As String = "" If r("buchungstext") <> "" Then - LeistungsBezAdd &= r("buchungstext") + LeistungsBezAdd &= id.ToString("D5") & "-" & r("buchungstext") If LeistungsBezAdd.Length > 30 Then LeistungsBezAdd = LeistungsBezAdd.ToString.Substring(0, 30) End If End If - allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag, LeistungsBezAdd, id) Next @@ -1114,9 +1113,6 @@ Public Class usrCntlBH RG.Text = (cFakturierung.przRechnungstextTXT(RG, SPEDBUCH) & vbNewLine & cFakturierung.przRechnungstextZZ(RG)).Trim - 'SPEDBUCH.Vermerk = "NACHBERECHNUNG VON VERZUGSZINSEN" & vbNewLine & "Zahlungen von " & CDate(zahlungsperiodeStart).ToShortDateString & " bis " & CDate(zahlungsperiodeEnde).ToShortDateString - 'SPEDBUCH.SAVE() - If RG.SAVE Then RK_ID = RG.RK_ID Return True @@ -1159,7 +1155,7 @@ Public Class usrCntlBH POS.SteuerfreierBetrag = BruttoBetrag POS.Preis = BruttoBetrag End If - POS.NachzahlungsID = nachzahlungsID + 'POS.NachzahlungsID = nachzahlungsID 'nix gut POS.BGebLeistungsNr = o.BGebLeistungsNr POS.BGebProzent = o.BGebProzent POS.BGebMinBetrag = o.BGebMinBetrag @@ -1219,7 +1215,7 @@ Public Class usrCntlBH Dim dtfehlendeOfferten As DataTable = SQL.loadDgvBySql(sqlStringFehlendeOffertenNr, "FMZOLL") If dtfehlendeOfferten.Rows.Count > 0 Then - If Not vbYes = MsgBox(MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel)) Then + If Not vbYes = MsgBox("Es fehlen bei " & dtfehlendeOfferten.Rows.Count & " Kunden das Offert 95, bitte hinterlegen ansonsten wird die Position nicht verrechnet!" & vbNewLine & "Möchten Sie trotzdem fortfahren!", vbYesNoCancel) Then cProgramFunctions.genExcelCSVFromDT(dtfehlendeOfferten, True) Exit Sub End If @@ -1236,10 +1232,14 @@ Public Class usrCntlBH Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString Dim vermerk As String = "Zahlungen vom " & startDate & " - " & EndDate 'max 50 Zeichen!!! - Dim Fußtext As String = "Sehr geehrte Damen und Herren," & vbNewLine & " - Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & " - Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & " - Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen." + Dim Fußtext As String = "" + + 'Fußtext = "Sehr geehrte Damen und Herren," & vbNewLine & " + ' Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & " + ' Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & " + ' Wir erwarten Ihre Zahlung über den untenstehenden Endbetrag wieder innerhalb von 14 Tagen." + + Dim verarbOK As Boolean = True Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing diff --git a/SDL/kunden/usrCntlKundenuebersicht.vb b/SDL/kunden/usrCntlKundenuebersicht.vb index b4eb9bdf..79e5864e 100644 --- a/SDL/kunden/usrCntlKundenuebersicht.vb +++ b/SDL/kunden/usrCntlKundenuebersicht.vb @@ -1349,7 +1349,7 @@ Public Class usrCntlKundenuebersicht Try For Each r As DataGridViewRow In .Rows - If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then + If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) >= zahlungsziel Then 'vpm > auf >= für Anfrage Anna. If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value) Else If CDbl(r.Cells("Betrag").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("Betrag").Value) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index 9547cc38..4dc2d8e3 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb @@ -828,7 +828,8 @@ Public Class cMDMFunctionsAllgemein Case 10 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblUTAImportNew] where Rechnungsdatum='" & reDat & "' and Abrechnungsnummer='" & reNr & "' and Lieferland_ISO2='" & Antrag_LandKz & "' AND daId is not null", "FMZOLL",,, -1) Case 7 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & reDat & "' and rmc_reNr='" & reNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1) Case 8 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & reDat & "' AND ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) ='" & reNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId is not null", "FMZOLL",,, -1) - Case 12 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNewSplittedByCountry.daId FROM [tblIDSInvoicesNewSplittedByCountry] where tblIDSInvoicesNewSplittedByCountry.[YearMonthDay] ='" & reDat & "' AND tblIDSInvoicesNewSplittedByCountry.Invoicenumber ='" & reNr.ToString.Replace("/", "") & "' andtblIDSInvoicesNewSplittedByCountry.Country='" & Antrag_LandKz & "' AND tblIDSInvoicesNewSplittedByCountry.daId is not null", "FMZOLL",,, -1) + Case 12 + da_id = SQL.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNewSplittedByCountry.daId FROM [tblIDSInvoicesNewSplittedByCountry] where tblIDSInvoicesNewSplittedByCountry.[YearMonthDay] ='" & reDat & "' AND tblIDSInvoicesNewSplittedByCountry.Invoicenumber ='" & reNr.ToString.Replace("/", "") & "' and tblIDSInvoicesNewSplittedByCountry.Country='" & Antrag_LandKz & "' AND tblIDSInvoicesNewSplittedByCountry.daId is not null", "FMZOLL",,, -1) End Select Return da_id diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index 08256a87..1a65a74d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -500,6 +500,7 @@ Class TrdInvoice_FUNCTIONS If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen vom") Then Buchungstext = Buchungstext.Replace("Zahlungen vom", "Zinsen") + Buchungstext &= " / nicht verzinsen" End If If TRD_INVOICE.SAVE Then