neu

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -302,7 +302,7 @@ Public Class cTrdProduct
             For Each i In list
                 If Not i.isPrimaryParam Then
                     str &= "[" & i.Text & "],"
-                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," 
                 End If
             Next
             str = str.Substring(0, str.Length - 1) 'wg. ','
@@ -475,6 +475,9 @@ Class TrdInvoice_FUNCTIONS
                     TRD_PRODUCT.Belegdaten = ROW("RP_Belegdaten")
                     TRD_PRODUCT.Sachkonto = getSachkonto(RK_Firma_ID, ROW("RP_LeistungsNr"), RK_RechnungsLandKz, ROW("RP_Steuerpflichtig"), ROW("AufschubkontoNr"))
                     TRD_PRODUCT.Buchungstext = RK_Buchungstext
+                    
+
+
                     TRD_PRODUCT.SAVE()
                 Next
 
@@ -492,8 +495,10 @@ Class TrdInvoice_FUNCTIONS
 
     Shared Function getSachkonto(Firma_Id, RP_LeistungsNr, [RK_RechnungsLandKz], RP_Steuerpflichtig, RP_AufschubkontoNr)
         ' Sachkonto ermitteln.
+        Dim FIRMA = New VERAG_PROG_ALLGEMEIN.cFirmen(Firma_Id)
+
         Select Case Firma_Id
-            Case 20 'IMEX --> Andere Sachkonten in TblLeistungen!
+            Case 20 'IMEX --> Andere Sachkonten in Tbl Leistungen!
                 If [RK_RechnungsLandKz] Is Nothing _
                                               OrElse [RK_RechnungsLandKz].trim = "" _
                           OrElse [RK_RechnungsLandKz] = "A" _
@@ -516,6 +521,31 @@ Class TrdInvoice_FUNCTIONS
                     End If
                 End If
                 If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT!
+
+            Case 21, 22, 23, 24 '--> cLeistungenBUKonten!
+                Dim BU_KTO As New VERAG_PROG_ALLGEMEIN.cLeistungenBUKonten(RP_LeistungsNr, Firma_Id)
+                If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz].trim = "" OrElse
+                    [RK_RechnungsLandKz] = FIRMA.Firma_LandKz.ToString.Replace("AT", "A").Replace("DE", "D") Then
+
+                    If CBool([RP_Steuerpflichtig]) Then
+                        getSachkonto = BU_KTO.SachkontoInlandSteuerpflichtig
+
+                    Else
+                        getSachkonto = BU_KTO.SachkontoInlandSteuerfrei
+                    End If
+                Else
+                    If SQL.DLookup("[MitgliedslandEU]", "[Währungstabelle]", "[LandKz]='" & [RK_RechnungsLandKz] & "'", "FMZOLL", False) Then
+                        If [RP_Steuerpflichtig] Then
+                            getSachkonto = BU_KTO.SachkontoEUSteuerpflichtig
+                        Else
+                            getSachkonto = BU_KTO.SachkontoEUSteuerfrei
+                        End If
+                    Else
+                        getSachkonto = BU_KTO.Sachkonto3Land
+                    End If
+                End If
+                If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT!
+
             Case Else
                 If [RK_RechnungsLandKz] Is Nothing _
                                               OrElse [RK_RechnungsLandKz].trim = "" _