neu

2020-11-27 22:58:30 +01:00
parent 3b532b0a10
commit 0be9927381
62 changed files with 6974 additions and 349 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -391,19 +391,19 @@ Public Class cFakturierung

    'End Function

-    Public Shared Function doRechnungsDruck_SRorER(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "") As Boolean
+    Public Shared Function doRechnungsDruck_SRorER(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printStbVdb As Boolean = False) As Boolean
        If RK_ID <= 0 Then Return False
        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)
+            Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, , printStbVdb)
        Else
            Return cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, , 3,, True)
        End If
    End Function

-    Public Shared Function doRechnungsDruck(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional SammelrechnungAnlagendruck As Boolean = False) As Boolean
+    Public Shared Function doRechnungsDruck(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
        If RK_ID <= 0 Then Return False
-        Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName,, SammelrechnungAnlagendruck)
+        Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb)
    End Function

    Shared Sub initRgFirma(ByRef rpt As rptRechnungDruck, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, Rechnung As VERAG_PROG_ALLGEMEIN.cRechnungsausgang)
@@ -588,7 +588,7 @@ Public Class cFakturierung
        Return CBool(CInt(SQL.getValueTxtBySql("SELECT TOP 1 isnull(count(*),0) FROM [tblVorauskassen] inner join Rechnungsausgang ON [vk_FilialeNr]=FilialenNr AND [vk_AbfertigungsNr]=AbfertigungsNr AND [vk_KdNr]=RechnungsKundenNr  WHERE RechnungsNr='" & RechnungsNr & "' AND Buchungsjahr='" & Buchungsjahr & "'", "FMZOLL")) > 0)
    End Function

-    Public Shared Function doRechnungsDruck(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False) As Boolean
+    Public Shared Function doRechnungsDruck(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
        If RECHNUNG Is Nothing Then MsgBox("Fehler beim Laden der Rechnungsdaten!") : Return False
        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
        Try
@@ -929,7 +929,14 @@ Public Class cFakturierung

                Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0)
                    Case 0, 1 'DRUCKEN
-                        Return cProgramFunctions.printRpt(rpt, PrinterName, False)
+
+                        Dim ret = cProgramFunctions.printRpt(rpt, PrinterName, False)
+
+                        If printStbVdb Then
+                            printSpedBuchAnhaenge(RECHNUNG)
+                        End If
+
+                        Return ret

                        'Case 1 'FAX
                    Case 2 'MAIL
@@ -1007,6 +1014,28 @@ Public Class cFakturierung
        End Try
        Return False
    End Function
+
+    Shared Sub printSpedBuchAnhaenge(RG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional printStb As Boolean = False, Optional printVbD As Boolean = False)
+        Try
+            Dim SPEDBCUH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RG.FilialenNr, RG.AbfertigungsNr, RG.SpeditionsbuchUnterNr)
+            If SPEDBCUH.hasEntry Then
+                If printStb Then
+                    If SPEDBCUH.DokumentId_Steuerbeleg IsNot Nothing Then
+                        VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_Steuerbeleg)})
+                    End If
+                    If printVbD Then
+                        If SPEDBCUH.DokumentId_VBD IsNot Nothing Then
+                            VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(SPEDBCUH.DokumentId_VBD)})
+                        End If
+                    End If
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+    End Sub
+
    Shared Function getFirmaNr(Optional firma = -1) As String
        If firma < 0 Then 'Falls keine Firma
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -1025,7 +1054,7 @@ Public Class cFakturierung
        Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID)
    End Function

-    Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False) As String
+    Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = False) As String
        getSignature = ""

        firma = getFirmaNr(firma)
@@ -1036,22 +1065,32 @@ Public Class cFakturierung
        Select Case firma
            Case 1 'VERAG
                getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>"
+                If displayFirmenmane Then getSignature &= "<br>VERAG Spedition AG<br>"
                getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b>  +43 7711 2777-0  |  <b>F</b>  +43 7711 31 073  |  <b>@</b>  " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & "  |  www.verag.ag  |  FN 216714y</div>"
            Case 7 'ATILLA
                getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
+                If displayFirmenmane Then getSignature &= "<br>ATILLA Spedition GmbH<br>"
                getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b>  +43 7711 2845-0  |  <b>@</b>  " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & "  |  www.verag.ag  |  FN 288916b</div>"
            Case 11 'VERAG CS
                getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Customs-Service-GMBH-Logo_sig.png""/>"
+                If displayFirmenmane Then getSignature &= "<br>VERAG Customs Service<br>"
                getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14 <br><b>T</b>  +43 7711 2777-0  |  <b>F</b>  +43 7711 31 073  |  <b>@</b>  " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "versand@verag.com") & "  |  www.verag.ag  |  FN 406316z</div>"
            Case 20 'Imex
                getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
+                If displayFirmenmane Then getSignature &= "<br>Imex Customs Service GmbH<br>"
                getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15  <br><b>T</b>  +43 7711 31630  |  <b>F</b>  +43 7711 31630-1  |  <b>@</b>  " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "info@imex-group.at") & "  |  www.imex-group.at  |  FN 410356s</div>"
            Case 21 'UNISPED
                getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
+                If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<br>"
                getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15  <br><b>T</b>  +43 7711 2677-0  |  <b>F</b>  +43 7711 2677-27  |  <b>@</b>  " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "office@unisped.at") & "  |  www.unisped.at  |  FN 375838d</div>"
            Case 99 'GmbH
                getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
+                If displayFirmenmane Then getSignature &= "<br>VERAG Spedition GmbH<br>"
                getSignature &= "<div style=""font-size:12px"">D 94152 Neuhaus/Inn, Hartham 6 <br><b>T</b>  +43 7711 2777-0  |  <b>F</b>  +43 7711 31 073  |  <b>@</b>  " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & "  |  www.verag.ag </div>"
+            Case 17 'Front-Office
+                getSignature &= "<img width=""170"" height=""50"" src=""" & imgsrc & "Logo_blue_globe_Horizontal.jpg""/>"
+                If displayFirmenmane Then getSignature &= "<br>Front Office Suben eG<br>"
+                getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14<br><b>T</b>  +43 7711 31636 -0  |  <b>@</b>  " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "suben@front-office.eu") & "  |  www.front-office.eu </div>"
        End Select
        getSignature &= "<br>"

@@ -1209,6 +1248,8 @@ Public Class cFakturierung
                VorschauID = DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "_" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "_" & Firma_ID
            End If

+            If SammelrechungArt = 7 And (AvisoIds IsNot Nothing AndAlso AvisoIds.Count = 0) Then Return False 'Prüfung, ob Daten vorhanden; Abbruch ZB wenn keine AvisoId
+
            Dim dt = GET_SR_SQLDT(Firma_ID, SammelrechungArt, DatumBis, whereKdNr, SB, AvisoIds) 'SQL.loadDgvBySql(sqlStr, "FMZOLL")
            If dt Is Nothing Then MsgBox("ERR01: Keine Daten") : Return True
            If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True