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

ATR

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-23 07:50:02 +01:00
parent e41229636b
commit 4acf2f9050
13 changed files with 2099 additions and 1089 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
View File

@@ -1455,13 +1455,20 @@ Public Class cSyska_Interface
For Each r In dt.Rows
If KdNr = -1 OrElse r("KundenNrZentrale") = KdNr Then 'TEST!!
Dim strRisiko = 0
If r("Risiko") Is DBNull.Value Then strRisiko = Format(CDbl(r("Risiko")), fmt).Replace(",", ".")
Dim strRisiko As String = "0"
If r("Risiko") IsNot DBNull.Value Then strRisiko = CDbl(r("Risiko")).ToString.Replace(",", ".")
'If r("Risiko") IsNot DBNull.Value Then
' MsgBox(Format(CDbl(r("Risiko")), fmt).Replace(",", "."))
'MsgBox(Format(CDbl(r("Risiko")), fmt))
' MsgBox((CDbl(r("Risiko"))))
'End If
SQL.doSQL("UPDATE [FIBU2].[dbo].[fibu_konto]
SET [dec_wert3] = '" & strRisiko & "'
WHERE ([i_firm_refid]=1 Or [i_firm_refid]=19)
AND [c_kontoart]='DE'
AND [c_kontoart]='DE'
And [i_konto]=" & r("KundenNrZentrale") & " ", "FIBU")
End If
Next
@@ -1490,7 +1497,7 @@ Public Class cSyska_Interface
GROUP BY Adressen.Ordnungsbegriff, Adressen.LandKz, Adressen.AdressenNr, Kunden.KundenNrZentrale, Kunden.Abfertigungsverbot, Kunden.LfdSaldo, Kunden.UStV_SummeUmsatzsteuerbetragEUR,
Kunden.UStV_SummeErstattungsbetragEUR, Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR, Kunden.BankgarantieBetrag, Kunden.BankgarantieGültigBis
) as T1
GROUP BY KundenNrZentrale, Risiko,LfdSaldo, BankgarantieBetrag, BankgarantieGültigBis"
GROUP BY KundenNrZentrale, Risiko,LfdSaldo, BankgarantieBetrag, BankgarantieGültigBis "
End Function
End Class