MDM, cDatenserver

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1,7 +1,6 @@
 
-Imports System.Web.Configuration
+Imports System.IO
 Imports System.Web.UI.WebControls.Expressions
-Imports com.sun.imageio.plugins
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class usrCntlFaktAbrechnung
@@ -1734,6 +1733,56 @@ Public Class usrCntlFaktAbrechnung
                 '-----------------------------
             End If
 
+            'Anhänge aus USTVA -> SPED-BUCH + Excel Pos-Liste
+            If SPEDBUCH IsNot Nothing Then
+                If FIRMA.Firma_ID = 19 And SPEDBUCH.Abfertigungsart = 10 AndAlso SPEDBUCH.ErfassungsNr > 0 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")
+                    Dim USTV As New cUSTVAntrag(SPEDBUCH.ErfassungsNr)
+                    If dt IsNot Nothing Then
+                        For Each r In dt.Rows
+
+                            Dim DAID As String = ""
+                            DAID = func.getPDF(r("UStVPo_SchnittstellenNr"), r("UStVPo_ReNr"), r("UStVPo_ReDat"), r("UStVPo_daId"), False, True, USTV.UStVAn_LandKz, USTV, New cFakturierung, True)
+
+                            Dim nameLief As String = ""
+
+                            Select Case r("UStVPo_SchnittstellenNr")
+                                Case 1 : nameLief = "VERAG-" 'Verag360
+                                Case 2, 8, 12 : nameLief = "IDS-"
+                                Case 3 : nameLief = "IT-"
+                                Case 4, 9 : nameLief = "MSE-"
+                                Case 5, 10 : nameLief = "UTA-"
+                                Case 6, 11 : nameLief = "PLOSE-"
+                                Case 7 : nameLief = "RMC-"
+                            End Select
+
+                            nameLief &= "RE"
+
+                            If DAID <> "" AndAlso IsNumeric(DAID) Then
+                                Dim daidno As Integer = CInt(DAID)
+                                Dim ds As New cDATENSERVER(daidno)
+                                .Rows.Add(0, nameLief, ds.da_name, ds.da_id, ds.da_id)
+                            End If
+
+                        Next
+                    End If
+
+
+                    Dim pfadExcel As String = func.generateExcelPosList(USTV, "", "", "", False) 'soll immer alle POS bekommen! laut Lidya! 28.04.2025
+                    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)
+                        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 With
         dgvAnhaenge.ClearSelection()
     End Sub
@@ -1771,6 +1820,14 @@ Public Class usrCntlFaktAbrechnung
                     RECHNUNG.Anlage_3 = ""
                     RECHNUNG.Anlage_4 = ""
                     RECHNUNG.Anlage_5 = ""
+
+                Case 19 'MDM
+                    RECHNUNG.Anlage_1 = "Rechnung"
+                    RECHNUNG.Anlage_2 = "Lief.-Rechn."
+                    RECHNUNG.Anlage_3 = "POS-Liste"
+                    RECHNUNG.Anlage_4 = ""
+                    RECHNUNG.Anlage_5 = ""
+
                 Case Else
                     If SPEDBUCH IsNot Nothing Then
                         Select Case SPEDBUCH.Abfertigungsart
@@ -1939,6 +1996,7 @@ Public Class usrCntlFaktAbrechnung
             'Case "7002" : cboFirma.changeItem(26) : RECHNUNG.Firma_ID = 26 'UK oder AG
             Case "5701" : cboFirma.changeItem(24) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 24'AMBAR
             Case "5801" : cboFirma.changeItem(17) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 17 'FRONT-OFFICE
+            Case "4817", "4820", "4821", "4823", "4824", "4814", "4868" : cboFirma.changeItem(19) : If RECHNUNG IsNot Nothing Then RECHNUNG.Firma_ID = 19 'MDM
 
             Case Else
                 If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 38 Then 'EV-VZ
@@ -2162,7 +2220,7 @@ Public Class usrCntlFaktAbrechnung
 
         For Each POS In RECHNUNG.POSITIONEN
             If POS.Preis IsNot Nothing AndAlso IsNumeric(POS.Preis) AndAlso POS.Preis <> 0 Then
-                If CBool(SQL.getValueTxtBySql("SELECT isnull([Abfertigungskosten],0)  FROM [Leistungen] where LeistungsNr='" & POS.LeistungsNr & "'", "FMZOLL")) Then
+                If CBool(SQL.getValueTxtBySql("Select isnull([Abfertigungskosten],0)  FROM [Leistungen] where LeistungsNr='" & POS.LeistungsNr & "'", "FMZOLL")) Then
                     Abfertigungskosten_Berechnen += POS.SteuerpflichtigerBetrag 'fktEuro(![SteuerpflichtigerBetrag], Me![Währungscode], "EUR")
                     Abfertigungskosten_Berechnen += POS.SteuerfreierBetrag
                     'Me![Abfertigungskosten] = Me![Abfertigungskosten] + fktEuro(![SteuerfreierBetrag], Me![Währungscode], "EUR")
@@ -4227,7 +4285,7 @@ Nächste_Textzeile_lesen:
         ContextMenuStrip3.Show(Cursor.Position)
     End Sub
 
-Private Sub AbsenderToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles AbsenderToolStripMenuItem2.Click, EmpfängerToolStripMenuItem2.Click, AuftraggeberToolStripMenuItem2.Click, AvisiererToolStripMenuItem2.Click
+    Private Sub AbsenderToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles AbsenderToolStripMenuItem2.Click, EmpfängerToolStripMenuItem2.Click, AuftraggeberToolStripMenuItem2.Click, AvisiererToolStripMenuItem2.Click
         Try