merge

VERAG_PROG_ALLGEMEIN/Classes/cAPI.vb

@@ -27,6 +27,7 @@ Public Enum cAPI_ART
     AVISO_IN_MSE = 80
     SDL_OUT_FA = 81
     SDL_OUT_SAMMELRECHNUNG = 82
+    AVISO_IN_CS = 83
 
 
 End Enum

VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb

@@ -143,6 +143,7 @@ Public Class cDY_Zollanmeldungen_Import
     Property UST_ID_Fiskalvertreter As Object = Nothing
     Property Shipmentnummer As Object = Nothing
     Property Importstatus As Object = Nothing
+    Property Importdate As Object = Nothing
 
     Public hasEntry = False
 
@@ -297,6 +298,7 @@ Public Class cDY_Zollanmeldungen_Import
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UST_ID_Fiskalvertreter", UST_ID_Fiskalvertreter))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Shipmentnummer", Shipmentnummer))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importstatus", Importstatus))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importdate", Importdate))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -17,7 +17,6 @@ Public Class cKundenErweitert
     'Property kde_Hoechstkredit As Object = Nothing
     Property kde_Versicherung_Deckungsstopp As Boolean = False
     Property kde_Versicherung_DeckungsstoppDatum As Object = Nothing
-
     Property kde_Versicherung_Uebergeben As Boolean = False
     Property kde_Versicherung_UebergebenAm As Object = Nothing
     Property kde_Versicherung_AnerkennungVersicherungsfall As Boolean = False
@@ -28,7 +27,6 @@ Public Class cKundenErweitert
     Property kde_Versicherung_GemeldeterBetrag As Object = Nothing
     Property kde_txtVersicherungEHNr As Object = Nothing
 
-
     Property kde_Leihgeld_Provision As Object = Nothing
     Property kde_Leihgeld_ProvisionPreisstaffel As Object = Nothing
     Property kde_Leihgeld_ProvisionAuftraggeber As Object = Nothing
@@ -44,7 +42,6 @@ Public Class cKundenErweitert
     Property Email_AVM As Boolean = False
     Property Depot_Kunde As Boolean = False
     Property FiBuSchnittstelleLG As Boolean = False
-
     Property Zahlungsziel2 As Object = Nothing
     Property Zahlungsziel3 As Object = Nothing
     Property EmailAnkunft_Export As Boolean = False
@@ -53,7 +50,6 @@ Public Class cKundenErweitert
     Property kde_CreditSaveBonitaetsklasse As Object = Nothing
     Property kde_CreditSaveBonitaetsIndex As Object = Nothing
     Property kde_CreditSaveBonitaetsScore As Object = Nothing
-
     Property kde_CreditSaveId As String = ""
     Property kde_CreditSaveNo As String = ""
     Property kde_Inkasso_Uebergeben As Boolean = False
@@ -98,8 +94,8 @@ Public Class cKundenErweitert
     Property kde_Erstattungsart As Object = Nothing
     Property kde_BezFIBU As Object = Nothing
     Property kde_Kopfsammelrechnung As Boolean = False
-
     Property kde_CSPortfolioAdded As Boolean = False
+    Property kde_CSinsolventAm As Object = Nothing
 
 
     Property kde_Provisionsverguetung As Boolean = False
@@ -210,6 +206,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung", kde_Provisionsverguetung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung_ProzentDL", kde_Provisionsverguetung_ProzentDL))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Provisionsverguetung_GSAnKdNr", kde_Provisionsverguetung_GSAnKdNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CSinsolventAm", kde_CSinsolventAm))
 
         Return list
     End Function

VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb

@@ -196,7 +196,7 @@ Public Class cRMC
     End Function
 
 
-    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, rmc_kdNr As Integer, UStVAn_ID As Integer) As Boolean
+    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, rmc_kdNr As Integer, UStVAn_ID As Integer) As Boolean
         Try
             Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -2,6 +2,7 @@
 Imports System.Reflection
 Imports System.Windows.Forms
 Imports com.sun.org.apache.xpath.internal.operations
+Imports com.sun.source.tree
 'Imports DocumentFormat.OpenXml.Drawing.Charts
 'Imports DocumentFormat.OpenXml.Spreadsheet
 
@@ -525,38 +526,48 @@ Public Class cRechnungsausgang
                 End If
 
             End If
-            End If
+        End If
 
-            If dgv Is Nothing Then
-                errMsg = "ERROR: Keine Positionen angegeben!" : Return False
-            ElseIf dgv.Rows.Count = 0 Then
-                errMsg = "ERROR: Keine Positionen angegeben!" : Return False
-            Else
-                If dgv.Rows.Count > 1 Then
-                    'Prüfung für doppelte Positionen mit PK: Bezeichnung und LeistungNr!
-                    Dim dt As New DataTable
-                    dt.Columns.Add("name", GetType(String))
+        If dgv Is Nothing Then
+            errMsg = "ERROR: Keine Positionen angegeben!" : Return False
+        ElseIf dgv.Rows.Count = 0 Then
+            errMsg = "ERROR: Keine Positionen angegeben!" : Return False
+        Else
+            If dgv.Rows.Count > 1 Then
+                'Prüfung für doppelte Positionen mit PK: Bezeichnung und LeistungNr!
+                Dim dt As New DataTable
+                dt.Columns.Add("name", GetType(String))
 
-                    For Each row As DataGridViewRow In dgv.Rows
-                        Dim R As DataRow = dt.NewRow
-                        R("name") = row.Cells(0).Value
-                        dt.Rows.Add(R)
-                    Next
-                    Dim dv As New DataView(dt)
-                    Dim distinct As DataTable = dv.ToTable(True, New String() {"name"})
-
-                    If distinct.Rows.Count <> dt.Rows.Count Then
-                        errMsg = "ERROR: Doppelte Positionen vorhanden!" : Return False
-                    End If
+                For Each row As DataGridViewRow In dgv.Rows
+                    Dim R As DataRow = dt.NewRow
+                    R("name") = row.Cells(0).Value
+                    dt.Rows.Add(R)
+                Next
+                Dim dv As New DataView(dt)
+                Dim distinct As DataTable = dv.ToTable(True, New String() {"name"})
 
+                If distinct.Rows.Count <> dt.Rows.Count Then
+                    errMsg = "ERROR: Doppelte Positionen vorhanden!" : Return False
                 End If
+
             End If
+        End If
+
+
+        If FIRMA.Firma_ID = 19 Then
+
+            Select Case Me.BelegartenKz
+                Case "AR" : If (Me.SteuerfreierGesamtbetrag + Me.SteuerpflichtigerGesamtbetrag) < 0 Then errMsg = "ERROR: Vorzeichenfehler!" : Return False
+                Case "AG" : If (Me.SteuerfreierGesamtbetrag + Me.SteuerpflichtigerGesamtbetrag) < 0 Then errMsg = "ERROR: Vorzeichenfehler!" : Return False
+            End Select
+        End If
 
 
 
-            'checkFirmen
 
-            Return True
+        'checkFirmen
+
+        Return True
             End Function
 
     Public Function SAVE_POSITIONEN(RK_ID) As Boolean

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -576,7 +576,7 @@ Class TrdInvoice_FUNCTIONS
 
                     If isVZ > 0 Then
                         Select Case ROW("RP_LeistungsNr")
-                            Case "124", "125", "126", "117", "118", "119"
+                            Case "123", "124", "125", "126", "128", "117", "118", "119"
                                 TRD_PRODUCT.VZBetrag = TRD_PRODUCT.SteuerfreierBetragLokal
 
                             Case Else