neu
This commit is contained in:
@@ -8,6 +8,8 @@ Imports System.Data.SqlClient
|
||||
|
||||
Property plose_RechnungsDatum As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_RechnungsNr As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_SupplierRechnungsDatum As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_SupplierRechnungsNr As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_RechnungsJahr As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_Lieferant As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_LieferantCode As Object = Nothing ' VARCHAR(3) NULL,
|
||||
@@ -52,6 +54,7 @@ Imports System.Data.SqlClient
|
||||
Property plose_Fakturiert As Boolean = False
|
||||
Property plose_FakturiertDatum As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
@@ -73,6 +76,8 @@ Imports System.Data.SqlClient
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_RechnungsDatum", plose_RechnungsDatum)) ' VARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_RechnungsJahr", plose_RechnungsJahr)) ' VARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_SupplierRechnungsDatum", plose_SupplierRechnungsDatum)) ' VARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_SupplierRechnungsNr", plose_SupplierRechnungsNr)) ' VARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_RechnungsNr", plose_RechnungsNr)) ' VARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_Lieferant", plose_Lieferant)) ' VARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_LieferantCode", plose_LieferantCode)) ' VARCHAR(3) NULL,
|
||||
@@ -233,17 +238,83 @@ Imports System.Data.SqlClient
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Shared Function GET_Antraege(von As Date, bis As Date, KundenNr As Integer, Optional Archiv As Object = Nothing) As List(Of cPLOSE_USTV_ANTR)
|
||||
Public Shared Function GET_Antraege(von As Date, bis As Date, KundenNr As Integer, Land As String, Optional Archiv As Object = Nothing) As List(Of cPLOSE_USTV_ANTR)
|
||||
Dim LIST As New List(Of cPLOSE_USTV_ANTR)
|
||||
|
||||
GET_Antraege_PLOSE(LIST, von, bis, KundenNr, Land, Archiv)
|
||||
GET_Antraege_ByLieferantCode(LIST, "'90'", von, bis, KundenNr, Land, Archiv) 'SOFICO
|
||||
|
||||
Return LIST
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function GET_Antraege_ByLieferantCode(ByRef LIST As List(Of cPLOSE_USTV_ANTR), LieferantCode As String, 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
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT [plose_SupplierRechnungsDatum],[plose_SupplierRechnungsNr],[plose_Lieferant],[plose_LieferantCode],sum([plose_NettobetragWaehrungAbbuchung])[plose_NettobetragWaehrungAbbuchung],sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] ,sum([plose_BruttobetragWaehrungAbbuchung] )[plose_BruttobetragWaehrungAbbuchung], [plose_WaehrungAbbuchung]
|
||||
,sum([plose_NettobetragTransaktion])[plose_NettobetragTransaktion],sum([plose_MWSTBetrag])[plose_MWSTBetrag] ,sum([plose_BruttobetragTransaktion] )[plose_BruttobetragTransaktion]
|
||||
FROM [tblPLOSE_Details]
|
||||
INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
|
||||
INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
|
||||
where cast(plose_SupplierRechnungsDatum as date) between @von and @bis and AdressenNr=@AdressenNr
|
||||
AND plose_LieferantCode IN (" & LieferantCode & ")
|
||||
AND plp_Land ='" & Land & "'
|
||||
" & If(Archiv IsNot Nothing, " AND plose_Archiv=@Archiv ", "") & "
|
||||
group by [plose_SupplierRechnungsDatum],[plose_SupplierRechnungsNr],[plose_LieferantCode],[plose_Lieferant],[plose_WaehrungAbbuchung]
|
||||
having sum(plose_MWSTBetrag)>0
|
||||
", conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@von", von)
|
||||
cmd.Parameters.AddWithValue("@bis", bis)
|
||||
cmd.Parameters.AddWithValue("@AdressenNr", KundenNr)
|
||||
If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0))
|
||||
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
|
||||
Dim cPLOSE_USTV_ANT As New cPLOSE_USTV_ANTR
|
||||
cPLOSE_USTV_ANT.plose_RechnungsDatum = dr.Item("plose_SupplierRechnungsDatum")
|
||||
cPLOSE_USTV_ANT.plose_RechnungsNr = dr.Item("plose_SupplierRechnungsNr")
|
||||
cPLOSE_USTV_ANT.plose_Lieferant = dr.Item("plose_Lieferant")
|
||||
cPLOSE_USTV_ANT.plose_LieferantCode = dr.Item("plose_LieferantCode")
|
||||
cPLOSE_USTV_ANT.plose_NettobetragTransaktion = dr.Item("plose_NettobetragTransaktion")
|
||||
cPLOSE_USTV_ANT.plose_MWSTBetrag = dr.Item("plose_MWSTBetrag")
|
||||
cPLOSE_USTV_ANT.plose_BruttobetragTransaktion = dr.Item("plose_BruttobetragTransaktion")
|
||||
cPLOSE_USTV_ANT.plose_NettobetragWaehrungAbbuchung = dr.Item("plose_NettobetragWaehrungAbbuchung")
|
||||
cPLOSE_USTV_ANT.plose_MWSTBetragWaehrungAbbuchung = dr.Item("plose_MWSTBetragWaehrungAbbuchung")
|
||||
cPLOSE_USTV_ANT.plose_BruttobetragWaehrungAbbuchung = dr.Item("plose_BruttobetragWaehrungAbbuchung")
|
||||
cPLOSE_USTV_ANT.plose_WaehrungAbbuchung = dr.Item("plose_WaehrungAbbuchung")
|
||||
|
||||
LIST.Add(cPLOSE_USTV_ANT)
|
||||
|
||||
End While
|
||||
dr.Close()
|
||||
|
||||
End Using
|
||||
End Using
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
|
||||
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
|
||||
|
||||
Dim LIST As New List(Of cPLOSE_USTV_ANTR)
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT [plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant],[plose_LieferantCode],sum([plose_NettobetragWaehrungAbbuchung])[plose_NettobetragWaehrungAbbuchung],sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] ,sum([plose_BruttobetragWaehrungAbbuchung] )[plose_BruttobetragWaehrungAbbuchung], [plose_WaehrungAbbuchung]
|
||||
,sum([plose_NettobetragTransaktion])[plose_NettobetragTransaktion],sum([plose_MWSTBetrag])[plose_MWSTBetrag] ,sum([plose_BruttobetragTransaktion] )[plose_BruttobetragTransaktion]
|
||||
FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
|
||||
where cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@AdressenNr
|
||||
" & If(Archiv IsNot Nothing, " AND plose_Archiv=@Archiv ", "") & "
|
||||
FROM [tblPLOSE_Details]
|
||||
INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
|
||||
INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode]
|
||||
where cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@AdressenNr
|
||||
AND plose_LieferantCode IN (0,7)
|
||||
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
|
||||
", conn)
|
||||
@@ -276,15 +347,69 @@ Imports System.Data.SqlClient
|
||||
|
||||
End Using
|
||||
End Using
|
||||
Return LIST
|
||||
Return True
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
Return False
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
'Public Shared Function GET_Antraege(von As Date, bis As Date, KundenNr As Integer, Optional Archiv As Object = Nothing) As List(Of cPLOSE_USTV_ANTR)
|
||||
' Try
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
' Dim LIST As New List(Of cPLOSE_USTV_ANTR)
|
||||
' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
' Using cmd As New SqlCommand("SELECT [plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant],[plose_LieferantCode],sum([plose_NettobetragWaehrungAbbuchung])[plose_NettobetragWaehrungAbbuchung],sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] ,sum([plose_BruttobetragWaehrungAbbuchung] )[plose_BruttobetragWaehrungAbbuchung], [plose_WaehrungAbbuchung]
|
||||
' ,sum([plose_NettobetragTransaktion])[plose_NettobetragTransaktion],sum([plose_MWSTBetrag])[plose_MWSTBetrag] ,sum([plose_BruttobetragTransaktion] )[plose_BruttobetragTransaktion]
|
||||
' FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
|
||||
' where cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@AdressenNr
|
||||
' " & 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
|
||||
' ", conn)
|
||||
|
||||
' cmd.Parameters.AddWithValue("@von", von)
|
||||
' cmd.Parameters.AddWithValue("@bis", bis)
|
||||
' cmd.Parameters.AddWithValue("@AdressenNr", KundenNr)
|
||||
' If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0))
|
||||
|
||||
' Dim dr = cmd.ExecuteReader()
|
||||
' While dr.Read
|
||||
|
||||
' Dim cPLOSE_USTV_ANT As New cPLOSE_USTV_ANTR
|
||||
' cPLOSE_USTV_ANT.plose_RechnungsDatum = dr.Item("plose_RechnungsDatum")
|
||||
' cPLOSE_USTV_ANT.plose_RechnungsNr = dr.Item("plose_RechnungsNr")
|
||||
' cPLOSE_USTV_ANT.plose_Lieferant = dr.Item("plose_Lieferant")
|
||||
' cPLOSE_USTV_ANT.plose_LieferantCode = dr.Item("plose_LieferantCode")
|
||||
' cPLOSE_USTV_ANT.plose_NettobetragTransaktion = dr.Item("plose_NettobetragTransaktion")
|
||||
' cPLOSE_USTV_ANT.plose_MWSTBetrag = dr.Item("plose_MWSTBetrag")
|
||||
' cPLOSE_USTV_ANT.plose_BruttobetragTransaktion = dr.Item("plose_BruttobetragTransaktion")
|
||||
' cPLOSE_USTV_ANT.plose_NettobetragWaehrungAbbuchung = dr.Item("plose_NettobetragWaehrungAbbuchung")
|
||||
' cPLOSE_USTV_ANT.plose_MWSTBetragWaehrungAbbuchung = dr.Item("plose_MWSTBetragWaehrungAbbuchung")
|
||||
' cPLOSE_USTV_ANT.plose_BruttobetragWaehrungAbbuchung = dr.Item("plose_BruttobetragWaehrungAbbuchung")
|
||||
' cPLOSE_USTV_ANT.plose_WaehrungAbbuchung = dr.Item("plose_WaehrungAbbuchung")
|
||||
|
||||
' LIST.Add(cPLOSE_USTV_ANT)
|
||||
|
||||
' End While
|
||||
' dr.Close()
|
||||
|
||||
' End Using
|
||||
' End Using
|
||||
' Return LIST
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
' End Try
|
||||
' Return Nothing
|
||||
|
||||
'End Function
|
||||
|
||||
|
||||
|
||||
Public Shared Function UPDATE_ARCHIV(von As Date, bis As Date, KundenNr As Integer) As Boolean
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Reference in New Issue
Block a user