edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Mailsender, Plose, StartOptions

Browse Source
This commit is contained in:
d.breimaier
2025-01-09 09:05:26 +01:00
parent 5449e27abe
commit 0046d354a5
6 changed files with 741 additions and 639 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
MDM_Worker/cPLOSE.vb
View File

@@ -70,9 +70,6 @@ Public Class cPLOSE
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_id", plose_Id, , True, True))
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,
@@ -433,7 +430,7 @@ Public Class cPLOSE
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT plInv_SupplierRechnungsDatum,plInv_SupplierRechnungsNr, plInv_Lieferant,plInv_Nettobetrag,plInv_MWSTBetrag, plInv_Bruttobetrag, 'EUR' as plInv_WaehrungAbbuchung , case when plInv_LieferantCode = 'PSS' then 0 else 9 end as plInv_LieferantCode from tblPLOSE_Inv_Data
Using cmd As New SqlCommand("SELECT plInv_SupplierRechnungsDatum,plInv_SupplierRechnungsNr, plInv_Lieferant,plInv_Nettobetrag,plInv_MWSTBetrag, plInv_Bruttobetrag, isnull(plInv_Currency,'EUR') as plInv_WaehrungAbbuchung , case when plInv_LieferantCode = 'PSS' then 0 else 9 end as plInv_LieferantCode, plInv_daId from tblPLOSE_Inv_Data
INNER JOIN Adressen on PLOSEKundenNr=plInv_PLOSEKundennummer
where cast(plInv_SupplierRechnungsDatum as date) between @von and @bis and AdressenNr=@AdressenNr and
plInv_SupplierCountry ='" & Land & "'and plInv_MWSTBetrag <> 0 AND (plInv_LieferantCode = 'PSS' OR plInv_LieferantCode = 'UNI') AND plInv_SupplierRechnungsNr not like '%-SFC-%'" & 'wie Lieferantencode = 90
@@ -459,6 +456,7 @@ Public Class cPLOSE
cPLOSE_USTV_ANT.plose_MWSTBetragWaehrungAbbuchung = dr.Item("plInv_MWSTBetrag")
cPLOSE_USTV_ANT.plose_BruttobetragWaehrungAbbuchung = dr.Item("plInv_Bruttobetrag")
cPLOSE_USTV_ANT.plose_WaehrungAbbuchung = dr.Item("plInv_WaehrungAbbuchung")
cPLOSE_USTV_ANT.plose_daId = dr.Item("plInv_daId")
LIST.Add(cPLOSE_USTV_ANT)
@@ -651,11 +649,10 @@ Public Class cPLOSE_USTV_ANTR
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,
Property plose_daId As Object = Nothing
Public Shared Sub reOrderList(ByRef LIST As List(Of cPLOSE_USTV_ANTR))