Functions zur Prüfung der Base64 Bilder in den ActiveReports.
This commit is contained in:
@@ -3,7 +3,6 @@ Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Web.UI.WebControls.Expressions
|
||||
Imports GrapeCity.ActiveReports.Export.Pdf
|
||||
Imports iText.Kernel.Pdf
|
||||
Imports itextsharp.text.pdf
|
||||
Imports Microsoft.Office.Interop
|
||||
|
||||
@@ -3684,6 +3684,24 @@ Public Class usrCntlFaktAbrechnung
|
||||
saveMe() 'Damit Prüfungen in der Vorschau funktionieren (zT mit DB abhängig -> ReverseCharge)
|
||||
getValues()
|
||||
|
||||
'If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Firma_ID > 0 Then
|
||||
' Select Case RECHNUNG.Firma_ID
|
||||
' Case 19
|
||||
' Dim rpt As New rptRechnungDruck_MDM
|
||||
' If VERAG_PROG_ALLGEMEIN.cProgramFunctions.CheckReportImages(rpt).Count > 0 Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
' Case Else
|
||||
|
||||
' Dim rpt As New rptRechnungDruck
|
||||
' If VERAG_PROG_ALLGEMEIN.cProgramFunctions.CheckReportImages(rpt).Count > 0 Then
|
||||
' Exit Sub
|
||||
' End If
|
||||
|
||||
' End Select
|
||||
|
||||
|
||||
'End If
|
||||
|
||||
cFakturierung.doRechnungsDruck(RECHNUNG,, True,,, getPrinterFromParent)
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user