neu

SDL/Fakturierung/cFakturierung.vb

@@ -543,6 +543,20 @@ Public Class cFakturierung
         Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb)
     End Function
 
+    Public Shared Function doRechnungsDruck_MAIL(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
+
+        Dim RG_TMP = New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID)
+        If RG_TMP Is Nothing Then Return False
+        Dim SPEDBUCH_TMP = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(RG_TMP.FilialenNr, RG_TMP.AbfertigungsNr, RG_TMP.SpeditionsbuchUnterNr)
+
+        If SPEDBUCH_TMP Is Nothing Then Return False
+        Dim f As New frmFaktEmail(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), SPEDBUCH_TMP, Nothing)
+        f.Show(RG_TMP)
+        Return True
+        '     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)
 
         rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
@@ -788,7 +802,7 @@ Public Class cFakturierung
             'End If
 
             Dim sum = 0
-            Select Case RECHNUNG.[BelegartenKz]
+            Select Case RECHNUNG.BelegartenKz
                 Case "AR"
                     rpt.lblUeberschriftRG_GS.Text = "RECHNUNG"
                 Case "AG"
@@ -2125,6 +2139,17 @@ Public Class cFakturierung
     End Function
 
     Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String) As String
+
+        If USRKURZNAME Is Nothing Then Return ""
+        If USRKURZNAME Is DBNull.Value Then Return ""
+        If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        Dim txt = SQL.getValueTxtBySql("SELECT top 1 CASE WHEN mit_geschlecht='w' THEN 'Frau ' ELSE (CASE WHEN mit_geschlecht='m' THEN 'Herr ' ELSE '' END ) END + mit_nname  FROM [tblMitarbeiter] WHERE [mit_username]='" & USRKURZNAME & "'  ", "ADMIN")
+        If txt <> "" Then Return txt
+        Return USRKURZNAME
+    End Function
+
+
+    Shared Function getSBRgName_FirmaPruef(Firma_id As Integer, USRKURZNAME As String) As String
         Dim firma = ""
         Select Case Firma_id
             Case 20