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

Prüfung Updater im Quellpfad, MDMDatenverarbeitung, Fehlermeldung verbessert.

Browse Source
This commit is contained in:
d.breimaier
2024-10-02 10:43:25 +02:00
parent a5921c5faf
commit 8e6fd4f1bf
3 changed files with 18 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -3006,10 +3006,11 @@ Public Class frmMDMDatenverarbetiung
Dim NettoBetrag As Double = r("Netto")
Dim BruttoBetrag As Double = r("Brutto")
Dim UstBetrag As Double = BruttoBetrag = NettoBetrag
Dim LeistungsNr As Integer = r("LeistungsNr")
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag)
Next
@@ -3069,11 +3070,12 @@ Public Class frmMDMDatenverarbetiung
useNettogesamtbetrag = False
'alles steuerfrei also Brutto = Netto
sqlstr = "select customer_id, LeistungsNr, sum(Netto) as Netto, Sum (Brutto) as Brutto from (select cust.[customer_id], trans.device_product_type, Offertenpositionen.LeistungsNr ,
sqlstr = "select customer_id, LeistungsNr, sum(Netto) as Netto, Sum (Brutto) as Brutto, Sum (UST) as UST from (select cust.[customer_id], trans.device_product_type, Offertenpositionen.LeistungsNr ,
case when trans.device_product_type like '%System Fee' then sum(msts_fee_amount) + sum(transaction_gross_amount)
else sum(transaction_gross_amount) End as Netto,
case when trans.device_product_type like '%System Fee' then sum(msts_fee_amount) + sum(transaction_gross_amount)
else sum(transaction_gross_amount) End as Brutto
else sum(transaction_gross_amount) End as Brutto,
sum(USteuer_EUR) as UST
FROM [VERAG].[dbo].[tblMSESettlements] as bills
left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id]
left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
@@ -3089,10 +3091,11 @@ Public Class frmMDMDatenverarbetiung
Dim NettoBetrag As Double = r("Netto")
Dim BruttoBetrag As Double = r("Brutto")
Dim UstBetrag As Double = r("UST")
Dim LeistungsNr As Integer = r("LeistungsNr")
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag)
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag, UstBetrag)
Next
@@ -3123,7 +3126,7 @@ Public Class frmMDMDatenverarbetiung
End Function
Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double)
Function allPos(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, LeistungsNr As Integer, NettoBetrag As Double, BruttoBetrag As Double, Optional UstBetrag As Double = 0)
Try
For Each o In OFFERTE.POSITIONEN
@@ -3143,7 +3146,8 @@ Public Class frmMDMDatenverarbetiung
'POS.Preis = BruttoBetrag
POS.Anzahl = 1
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig
POS.BGebBgl = IIf(LIEFERANT = "UTA", BruttoBetrag, NettoBetrag)
'Berrechnunggebühr wird immer vom übergebenen Betrag abzüglich UST berechnet (Nettobetrag)!
POS.BGebBgl = IIf(LIEFERANT = "UTA", BruttoBetrag - UstBetrag, NettoBetrag - UstBetrag)
If POS.Steuerpflichtig Then
@@ -3160,6 +3164,7 @@ Public Class frmMDMDatenverarbetiung
RG.POSITIONEN.Add(POS)
If (If(POS.BGebLeistungsNr, 0) > 0) AndAlso (If(POS.BGebProzent, 0) > 0) AndAlso (If(POS.BGebBgl, 0) > 0) Then
allPlosePosBGeb(RG, OFFERTE, POS.BGebLeistungsNr, POS.BGebBgl, POS.BGebProzent)
End If
@@ -3207,6 +3212,7 @@ Public Class frmMDMDatenverarbetiung
Function allPlosePosBGeb(ByRef RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, OFFERTE As VERAG_PROG_ALLGEMEIN.cOfferte, BGebLeistungsNr As Integer, BGebBgl As Double, BGebProzent As Double)
Try
Dim Betrag As Double = Math.Round(BGebBgl * BGebProzent, 1)
For Each o In OFFERTE.POSITIONEN
If o.LeistungsNr = BGebLeistungsNr Then

5
SDLUPDATER/UPDATERfrm.vb
View File

@@ -29,6 +29,11 @@
CopyIncremental = False
End If
If System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\Programme\SDL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\share01\f\Programme\SDL\" OrElse System.AppDomain.CurrentDomain.BaseDirectory = "\\install\Programme\SDL\" Then
MsgBox("Programm kann nicht im Quellpfad " & System.AppDomain.CurrentDomain.BaseDirectory & " geupdated werden!" & vbNewLine & "Vorgang wird abgebrochen!", MsgBoxStyle.Critical)
Exit Sub
End If
'Falls Settings existiert, wird der Pfad daraus verwendet.
F = System.IO.File.ReadAllText(AppDomain.CurrentDomain.BaseDirectory & "SDLUPDATER_Settings.txt")
If Not System.IO.Directory.Exists(F) Then

2
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -392,7 +392,7 @@ Public Class cADMIN
End Using
dr.Close()
Catch ex As Exception
MsgBox("Fehler mit der Datenbankverbindung.", "Datenbankfehler")
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler mit der Datenbankverbindung. " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Return False
End Try