MDM Fakt.

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1,6 +1,7 @@
 
 Imports System.IO
 Imports System.Web.UI.WebControls.Expressions
+Imports Chilkat
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlFaktAbrechnung
@@ -1418,6 +1419,14 @@ Public Class usrCntlFaktAbrechnung
                 POS.Preis = If(r.Cells("Preis").Value Is DBNull.Value, 0, CDbl(r.Cells("Preis").Value.ToString.Replace(".", "")))
                 POS.Anzahl = If(r.Cells("Anzahl").Value Is DBNull.Value, 0, r.Cells("Anzahl").Value)
 
+                If SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115 Then 'MWST-Abrechnung!
+                    Dim LeistungsBez = r.Cells("LeistungsBez").Value
+                    If LeistungsBez <> "" AndAlso SPEDBUCH.Packstücke.ToString.StartsWith(LeistungsBez.ToString) Then
+                        POS.Anzahl = 1
+                        POS.Preis = SPEDBUCH.Rechnungsbetrag * -1
+                    End If
+
+                End If
 
                 If POS.Anzahl = 0 And POS.BerechnungsartNr = 8 And POS.Preis <> 0 Then
                     POS.Preis = 0 'Wenn Anzahl =0 bei Berart 8, dann Preis auch 0
@@ -1466,7 +1475,7 @@ Public Class usrCntlFaktAbrechnung
                 ' Try : If (r.Cells("BerechnungsartNr").Value = 8) And r.Cells("Anzahl").Value > 1 Then r.Cells("Anzahl").Value = 1
                 ' Catch ex As Exception : End Try
 
-                Try : r.Cells("Preis").ReadOnly = (r.Cells("BerechnungsartNr").Value = 8)
+                Try : r.Cells("Preis").ReadOnly = (IIf(SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115, False, r.Cells("BerechnungsartNr").Value = 8))
                 Catch ex As Exception : End Try
 
                 'End If
@@ -1736,7 +1745,7 @@ Public Class usrCntlFaktAbrechnung
             'Anhänge aus USTVA -> SPED-BUCH + Excel Pos-Liste
             If SPEDBUCH IsNot Nothing Then
                 If FIRMA IsNot Nothing Then
-                    If FIRMA.Firma_ID = 19 And SPEDBUCH.Abfertigungsart = 10 AndAlso SPEDBUCH.ErfassungsNr > 0 Then
+                    If FIRMA.Firma_ID = 19 AndAlso SPEDBUCH.ErfassungsNr > 0 AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115) Then
 
                         Dim func As New cMDMFunctionsAllgemein()
                         Dim dt = SQL.loadDgvBySql("SELECT UStVPo_daId, UStVPo_ID,UStVPo_SchnittstellenNr, UStVPo_ReNr, UStVPo_ReDat FROM tblUStVPositionen where UStVAn_ID='" & SPEDBUCH.ErfassungsNr & "' AND UStVPo_SchnittstellenNr <> 1 order by UStVPo_ID", "FMZOLL")
@@ -1770,16 +1779,15 @@ Public Class usrCntlFaktAbrechnung
                             Next
                         End If
 
-
                         Dim pfadExcel As String = func.generateExcelPosList(USTV, "", "", "", False) 'soll immer alle POS bekommen! laut Lidya! 28.04.2025
-                        If pfadExcel <> "" Then
+                            If pfadExcel <> "" Then
 
-                            Dim FI As New FileInfo(pfadExcel)
-                            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", FI.Name, USTV.UStVAn_KuNr, False)
+                                Dim FI As New FileInfo(pfadExcel)
+                            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "POS_LISTE", "", "", SPEDBUCH.AbfertigungsNr & FI.Extension, USTV.UStVAn_KuNr, False)
                             DS.uploadDataToDATENSERVER(pfadExcel, FI.Name, FI.Extension,,,, True)
                             .Rows.Add(0, "POS-LIST", DS.da_name, DS.da_id, DS.da_id)
+                            End If
                         End If
-                    End If
 
                 End If
             End If
@@ -2240,14 +2248,6 @@ Public Class usrCntlFaktAbrechnung
     End Function
 
 
-
-
-
-
-
-
-
-
     Private Sub przBerechneRAPos(ByRef strProzedur As String)
         loaded = False
         Dim boolFehler As Boolean