Librería

Clase

Metodo

AhoraListados

Listados

ListadoaPDF


Implementación:


 Public Sub ListadoaPDF(
     aIdDocListado As Long,
     aWhere As String,
     aObjeto As Object,
     aFileName As String)
  
   Dim lFrmInf As frmVisorInforme
   Dim lFileName As String
   Dim lPathListado As String
  
   Set lFrmInf = New frmVisorInforme
   lPathListado = gCn.Sesion.ParametroValor("PATHLISTADOS")
   If Right(lPathListado, 1) <> "\" Then
     lPathListado = lPathListado & "\"
   End If
   lFileName = ""
  
   lFrmInf.Carga lPathListado & gCn.DameValorCampo("SELECT Fichero FROM CEESI_Listados WHERE IdDoc=" & aIdDocListado), aWhere, False, 1, False, aObjeto, False, Me, "", aIdDocListado, True, lFileName
  
   aFileName = lFileName
  
 End Sub


Descripción:


Utilizando el formulario visor de informes, con el listado indicado aplicado al objeto indicado, genera el informe en un archivo formato PDF y devuelve su nombre.