From 765e1e87559a2371e0a20d8cee5bb2f056bde86a Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 17 Jan 2023 21:26:54 +0100 Subject: [PATCH] Plose --- MDM_Worker/cPLOSE.vb | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/MDM_Worker/cPLOSE.vb b/MDM_Worker/cPLOSE.vb index b454e0c..ec16c02 100644 --- a/MDM_Worker/cPLOSE.vb +++ b/MDM_Worker/cPLOSE.vb @@ -361,6 +361,12 @@ Imports System.Data.SqlClient End Function + + Public Shared Function getWhereDblEntry() As String + Return " AND (SELECT count(*) FROM [tblUStVAntrag] as ANTRAG2 inner join [tblUStVPositionen] as POS2 on ANTRAG2.UStVAn_ID= POS2.UStVAn_ID + WHERE POS2.UStVPo_SchnittstellenNr=6 AND [plose_RechnungsNr] = POS2.UStVPo_ReNr AND [plose_RechnungsDatum]=POS2.UStVPo_ReDat ) = 0 " + End Function + Public Shared Function GET_Antraege_PLOSE(ByRef LIST As List(Of cPLOSE_USTV_ANTR), von As Date, bis As Date, KundenNr As Integer, Land As String, Optional Archiv As Object = Nothing) As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -375,6 +381,7 @@ Imports System.Data.SqlClient AND plose_LieferantCode IN (0,1,7,9) AND plp_Land ='" & Land & "' /* " & If(Archiv IsNot Nothing, " AND plose_Archiv=@Archiv ", "") & "*/ + group by [plose_RechnungsDatum],[plose_RechnungsNr],[plose_LieferantCode],[plose_Lieferant],[plose_WaehrungAbbuchung] having sum(plose_MWSTBetrag)>0 order by plose_RechnungsDatum