neu
This commit is contained in:
@@ -8,6 +8,9 @@ Imports System.Data.SqlClient
|
||||
|
||||
Property plose_RechnungsDatum As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_RechnungsNr 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,
|
||||
Property plose_Dateiname As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_Einlesedatum As Date = Now ' VARCHAR(3) NULL,
|
||||
Property plose_Datensatztyp As Object = Nothing ' VARCHAR(3) NULL,
|
||||
@@ -69,7 +72,10 @@ 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_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,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_Dateiname", plose_Dateiname)) ' VARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_Einlesedatum", plose_Einlesedatum)) ' VARCHAR(3) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_Datensatztyp", plose_Datensatztyp)) ' VARCHAR(3) NULL,
|
||||
@@ -170,6 +176,16 @@ Imports System.Data.SqlClient
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Shared Sub UPDATE_Lieferant(plose_Lieferant As Date, plose_RechnungsNr As Integer, plose_POLSEKundennummer As Integer)
|
||||
Try
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
SQL.doSQL("UPDATE tblPLOSE_Details SET plose_Lieferant='" & plose_Lieferant & "' WHERE plose_RechnungsNr='" & plose_RechnungsNr & "' AND plose_POLSEKundennummer='" & plose_POLSEKundennummer & "' ", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
@@ -215,8 +231,99 @@ Imports System.Data.SqlClient
|
||||
Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblPLOSE_Details] WITH(updlock,serializable) WHERE plose_id=" & Me.plose_Id
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
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
|
||||
|
||||
End Class
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("von", von))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bis", bis))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KundenNr", KundenNr))
|
||||
|
||||
|
||||
Return SQL.doSQLVarList("
|
||||
|
||||
UPDATE [tblPLOSE_Details]
|
||||
set plose_Archiv=1, [plose_ArchiviertDatum]=GETDATE()
|
||||
FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer
|
||||
WHERE cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@KundenNr
|
||||
|
||||
", "FMZOLL",, 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 ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
Public Class cPLOSE_USTV_ANTR
|
||||
Property plose_RechnungsDatum As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_RechnungsNr As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_Lieferant As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_LieferantCode As Object = Nothing ' VARCHAR(3) NULL,
|
||||
Property plose_NettobetragWaehrungAbbuchung As Object = Nothing ' Decimal (12, 2) NULL,
|
||||
Property plose_MWSTBetragWaehrungAbbuchung As Object = Nothing ' Decimal (12, 2) NULL,
|
||||
Property plose_BruttobetragWaehrungAbbuchung As Object = Nothing ' Decimal (12, 2) NULL,
|
||||
Property plose_WaehrungAbbuchung As Object = Nothing ' VARCHAR(3) NULL,
|
||||
|
||||
|
||||
Property plose_NettobetragTransaktion As Object = Nothing ' Decimal (12, 2) NULL,
|
||||
Property plose_MWSTBetrag As Object = Nothing ' Decimal (12, 2) NULL,
|
||||
Property plose_BruttobetragTransaktion As Object = Nothing ' Decimal (12, 2) NULL,
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user