mdm fakt, ustva

SDL/Fakturierung/cFakturierung.vb

@@ -708,6 +708,8 @@ Public Class cFakturierung
         Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID)
         If RG_TMP.Sammelrechnung = 0 Then
             Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, , printStbVdb)
+        ElseIf RG_TMP.Sammelrechnung = 6 Then
+            Return cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", AnlageEinzelRg, True, Rechnugnsdruck, Path, False,,,,,,,, True, True,,,, True)
         Else
             Return cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", AnlageEinzelRg, , Rechnugnsdruck, Path, True)
         End If
@@ -934,7 +936,7 @@ Public Class cFakturierung
         rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "")
         rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
         rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
-        rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
+        rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Straße, "").ToString & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
 
         If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= vbNewLine & "D-94152 Neuhaus/Inn, Hartham 6"
 
@@ -2982,7 +2984,7 @@ Public Class cFakturierung
 
     End Function
 
-    Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional mergePDF As Boolean = False, Optional RechnungsanhangPDF As Boolean = False, Optional RechnugnskopieMDMSammelrechnung As Boolean = False, Optional AnhList As List(Of String) = Nothing, Optional RechnungsanhangCSV As Boolean = False) As Boolean
+    Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional mergePDF As Boolean = False, Optional RechnungsanhangPDF As Boolean = False, Optional RechnugnskopieMDMSammelrechnung As Boolean = False, Optional AnhList As List(Of String) = Nothing, Optional RechnungsanhangCSV As Boolean = False, Optional onlyAsfinagAnhang As Boolean = False) As Boolean
         'SB Nicht mehr benötigt, da RG-Nr und DruckdatumUhrzeit
 
         Dim dt As DataTable
@@ -3011,7 +3013,7 @@ Public Class cFakturierung
         doSAMMELRechnungsDruck_Abschnitt = doSAMMELRechnungDruck_Rechnungsdruck(dt, RechnungsNr, DruckdatumUhrzeit, 3, RechnungsdruckArt, pathPDF_SammelRg, PrinterName, SRDruckWiederholen, VorschauID) 'Sammelrechnung drucken
         If Sammelrechnungsbericht Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, pathPDF_SammelBericht, PrinterName, VorschauID, dt, RechnugnskopieMDMSammelrechnung) Then doSAMMELRechnungsDruck_Abschnitt = False  'Sammelrechnungsbericht drucken
         If AnlageEinzelRg Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr, DruckdatumUhrzeit, PrinterName, pathPDF_Anlage, RechnungsdruckArt, VorschauID) Then doSAMMELRechnungsDruck_Abschnitt = False 'Anlagen drucken
-        If RechnungsanhangPDF Then getRechnungsanshang(dt, pathPDF_Anlage, "pdf")
+        If RechnungsanhangPDF Then getRechnungsanshang(dt, pathPDF_Anlage, "pdf", onlyAsfinagAnhang)
         If RechnungsanhangCSV Then getRechnungsanshang(dt, AnhList, "csv")
 
 
@@ -4353,8 +4355,7 @@ End If
 
     End Function
 
-    Public Shared Function getRechnungsanshang(dt As DataTable, listAnh As List(Of String), extTyp As String)
-
+    Public Shared Function getRechnungsanshang(dt As DataTable, listAnh As List(Of String), extTyp As String, Optional onlyAsfinagMautanhang As Boolean = False)
 
 
         Dim displayView = New DataView(dt, "", "RK_ID", DataViewRowState.CurrentRows)
@@ -4368,17 +4369,28 @@ End If
 
                     Select Case extTyp
                         Case "pdf"
-                            If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Then
-                                Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
-                                If Not listAnh.Contains(Path) Then
 
-                                    If Not (listAnh.Any(Function(f) f.Contains("COPY_INVOICE")) And Path.ToUpper.Contains("COPY_INVOICE")) Then 'damit diesel IDS-Rechnung nicht doppelt hinzugefügt wird.
-                                        listAnh.Add(Path)
+                            If onlyAsfinagMautanhang Then
+                                If RG_AH.Bezeichnung.ToUpper.Contains("MAUT_AT") Then
+                                    Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
+                                    listAnh.Add(Path)
+                                End If
 
+                            Else
+
+                                    If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Then
+                                    Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
+                                    If Not listAnh.Contains(Path) Then
+
+                                        If Not (listAnh.Any(Function(f) f.Contains("COPY_INVOICE")) And Path.ToUpper.Contains("COPY_INVOICE")) Then 'damit diesel IDS-Rechnung nicht doppelt hinzugefügt wird.
+                                            listAnh.Add(Path)
+
+                                        End If
                                     End If
                                 End If
                             End If
 
+
                         Case "csv"
 
                             If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Then

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -58,7 +58,7 @@ Public Class frmAbrechnungsMaske
 
 
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-        FirmaTmp = "AMBAR"
+        'FirmaTmp = "AMBAR"
         'End If
 
         MyComboBox2.Items.Clear()

SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb

@@ -518,7 +518,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         '
         'lblFirmaStrasse
         '
-        Me.lblFirmaStrasse.Height = 0.1181103!
+        Me.lblFirmaStrasse.Height = 0.1574804!
         Me.lblFirmaStrasse.HyperLink = Nothing
         Me.lblFirmaStrasse.Left = 0.01417319!
         Me.lblFirmaStrasse.Name = "lblFirmaStrasse"
@@ -542,7 +542,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         '
         'lblFirmaFax
         '
-        Me.lblFirmaFax.Height = 0.1181102!
+        Me.lblFirmaFax.Height = 0.1574803!
         Me.lblFirmaFax.HyperLink = Nothing
         Me.lblFirmaFax.Left = 1.211024!
         Me.lblFirmaFax.Name = "lblFirmaFax"
@@ -566,14 +566,14 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         '
         'lblFirmaWeb
         '
-        Me.lblFirmaWeb.Height = 0.1181103!
+        Me.lblFirmaWeb.Height = 0.1574804!
         Me.lblFirmaWeb.HyperLink = Nothing
         Me.lblFirmaWeb.Left = 2.697638!
         Me.lblFirmaWeb.Name = "lblFirmaWeb"
         Me.lblFirmaWeb.Style = "font-size: 7pt; font-weight: normal; text-align: right; vertical-align: middle; d" &
     "do-char-set: 1"
         Me.lblFirmaWeb.Text = "www.verag.ag"
-        Me.lblFirmaWeb.Top = 0.9078741!
+        Me.lblFirmaWeb.Top = 0.868504!
         Me.lblFirmaWeb.Width = 1.436614!
         '
         'lblRgDatumUeberschrift

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -567,7 +567,7 @@ Public Class usrCntlFaktAbrechnung
         Dim firstEmpty = False
 
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-        FirmaTmp = "AMBAR"
+        'FirmaTmp = "AMBAR"
         'End If
 
         Select Case FirmaTmp

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -1730,7 +1730,8 @@ Public Class frmMDM_USTVAntrag
                 If dsID > 0 Then
                     Me.Cursor = Cursors.WaitCursor
                     Dim path As String
-                    cFakturierung.doRechnungsDruck_SRorER(dsID,, False, 3, path)
+                    cFakturierung.doRechnungsDruck_SRorER(dsID,, False, 4, path)
+
                     Return path
                 End If