neu

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -1282,17 +1282,19 @@ Public Class cSyska_Interface
     '     End Function
 
 
-    Public Shared Sub OP_Einlesen_ALL(Optional KdNr As Integer = -1)
+    Public Shared Function OP_Einlesen_ALL(Optional KdNr As Integer = -1) As Boolean
         Dim dt As DataTable = SQL.loadDgvBySql("SELECT Firma_ID FROM tblFirma ORDER BY tblFirma.Firma_ID", "FMZOLL")
 
+        Dim _bool = True
         If dt IsNot Nothing Then
             For Each r_firma In dt.Rows
-                OP_Einlesen(r_firma("Firma_ID"), KdNr)
+                If Not OP_Einlesen(r_firma("Firma_ID"), KdNr) Then _bool = False
             Next
         End If
-    End Sub
+        Return _bool
+    End Function
 
-    Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1)
+    Public Shared Function OP_Einlesen(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean
         Try
             Dim OP_ID_CNT = 0
             If OP_ID_CNT < 1000000 Then OP_ID_CNT = 1000000 * Firma_ID
@@ -1413,9 +1415,56 @@ Public Class cSyska_Interface
 
 
 
-
     Public Shared Function OP_DELETE(Firma_ID As Integer, Optional KdNr As Integer = -1) As Boolean
         Dim SQL As New SQL
         Return SQL.doSQL("DELETE FROM [Offene Posten] where Firma_ID='" & Firma_ID & "'" & If(KdNr > 0, " AND Kontonummer='" & KdNr & "'", ""), "FMZOLL")
     End Function
+
+
+
+    Public Shared Function UPDATE_FIBU_RISIKO(Optional KdNr = -1) As Boolean
+        Try
+
+            Dim dt = SQL.loadDgvBySql(getFIBU_RISIKOSQL, "FMZOLL")
+            If dt IsNot Nothing Then
+                For Each r In dt.Rows
+
+                    If KdNr = -1 OrElse r("KundenNrZentrale") = KdNr Then 'TEST!! 
+
+                        Dim strRisiko = Format(CDbl(r("Risiko")), fmt).Replace(",", ".")
+                        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 [i_konto]=" & r("KundenNrZentrale") & " ", "FIBU")
+                    End If
+                Next
+            End If
+            Return True
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+            Return False
+        End Try
+
+    End Function
+
+    Shared Function getFIBU_RISIKOSQL() As String
+        Return "SELECT KundenNrZentrale, Risiko, LfdSaldo, Sum([UStV-Saldo]) AS [SummevonUStV-Saldo], Sum(UStV_Summe3470BetragEUR) AS SummevonUStV_Summe3470BetragEUR, Sum(UStV_SummeVZBetragEUR) AS SummevonUStV_SummeVZBetragEUR, Sum(UStV_SummeVorschaubetragEUR) AS SummevonUStV_SummeVorschaubetragEUR, BankgarantieBetrag, BankgarantieGültigBis
+                FROM (
+	                SELECT Adressen.Ordnungsbegriff AS [Index], Adressen.LandKz, Adressen.AdressenNr, Kunden.KundenNrZentrale, Kunden.Abfertigungsverbot, 
+	                Kunden.LfdSaldo,
+	                [LfdSaldo]-((case when [UStV_SummeUmsatzsteuerbetragEUR]>[UStV_SummeErstattungsbetragEUR] THEN [UStV_SummeUmsatzsteuerbetragEUR]-[UStV_SummeErstattungsbetragEUR] ELSE 0 END)+[UStV_Summe3470BetragEUR]-[UStV_SummeVZBetragEUR]+[UStV_SummeVorschaubetragEUR])
+	                -(CASE WHEN isnull([BankgarantieGültigBis],GETDATE())<GETDATE() THEN 0 ELSE isnull([BankgarantieBetrag],0) END) AS Risiko, 
+	                 Kunden.UStV_SummeUmsatzsteuerbetragEUR, Kunden.UStV_SummeErstattungsbetragEUR, 
+	                 case when [UStV_SummeUmsatzsteuerbetragEUR]>[UStV_SummeErstattungsbetragEUR] THEN [UStV_SummeUmsatzsteuerbetragEUR]-[UStV_SummeErstattungsbetragEUR] ELSE 0 END AS [UStV-Saldo], 
+	                 Kunden.UStV_Summe3470BetragEUR, Kunden.UStV_SummeVZBetragEUR, Kunden.UStV_SummeVorschaubetragEUR, Kunden.BankgarantieBetrag, Kunden.BankgarantieGültigBis
+ 
+	                FROM (Adressen INNER JOIN Kunden ON Adressen.AdressenNr = Kunden.KundenNr) INNER JOIN tblSteuernummern ON Adressen.AdressenNr = tblSteuernummern.AdressenNr
+	                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"
+    End Function
+
 End Class