DsigExpress Crystal Reports -

DsigExpress Crystal Reports

DsigExpress Crystal Reports

Es una biblioteca de clase desarrollada por la compañía DSIG PERU S.A.C , la cual permite generar reportes e informes para la plataforma de Excel con lenguaje Visual Basic para Aplicaciones (VBA) .

¿Qué es Crystal Report?

Crystal Reports es una aplicación de inteligencia empresarial utilizada para diseñar y generar informes desde una amplia gama de fuentes de datos (bases de datos).

VENTAJAS

REQUIERE DE CONEXIÓN A UNA BASE DE DATOS

Informes Avanzados, Básicos y Intermedios
Interfaz personalizada mediante Métodos y Propiedades del Objeto (DsigExpressReport.dll)
Parámetros de Entrada tipos de Datos (String, Integer, Date, Double, Decimal, Variant, Boolean)
Informes Conectados a Base de Datos de MS ACCES, MSSQL, MSMSQL, POSTGRESS.
Acceso al Código por Interfaz VBA de Excel.
Reportes Independientes que se almacenan en la carpeta Reportes.
Reportes Generados en Menos Tiempo.
Material de Apoyo y Asesoría para su uso
Compatible con Excel 2003,2007,2010,2013 y 2016
Plataformas Windows de 32 y 64.

DESVENTAJAS

REQUIERE DE LA BIBLIOTECA DE CLASSE
Registrar la Biblioteca de Classe en las PC que se Instalan.
Conocimiento Intermedio de Crystal Reports (Recomendado Versión 9)
Requiere de una base de Datos (No funciona solo con Excel)

Veamos la Implementación del Código Crystal Report es muy Sencillo.

Código cadena de Conexión DsigExpress Report

Las Líneas de Código son para configurar la ruta de Base de datos y del Reporte de Crystal Reports

Option Explicit
Option Private Module
Public ObjCRV As ExpressCRViewer
Function VerReporte(reporte As String, TextoFormulario As String, Modal As Boolean, Formularioincrustado As Boolean)
Set ObjCRV = New ExpressCRViewer
With ObjCRV
   .basededatos = 0
   .directorio = ThisWorkbook.Path & "\bd\" 'Ruta de la Base de Datos
   .base = "base" 'Nombre de la Base de datos
   .usuario = "Admin" 'Usuario
   .clave = "" 'Clave Opcional
   .nombreformulario = TextoFormulario
   .formulariomodal = Modal 'True o False
   .rutareporte = ThisWorkbook.Path & "\rpt\" & reporte 'Ruta del Reporte
   .TipoFormulario = Formularioincrustado 'Tipo de Modal
   .PathCrViewer = ThisWorkbook.Path
   .Loadreporte
End With
Set ObjCRV = Nothing
End Function

Option Explicit

Option Private Module

Public ObjCRV As ExpressCRViewer

Function VerReporte(reporte As String, TextoFormulario As String, Modal As Boolean, Formularioincrustado As Boolean)

Set ObjCRV = New ExpressCRViewer

With ObjCRV

.basededatos = 0

.directorio = ThisWorkbook.Path & "\bd\" 'Ruta de la Base de Datos

.base = "base" 'Nombre de la Base de datos

.usuario = "Admin" 'Usuario

.clave = "" 'Clave Opcional

.nombreformulario = TextoFormulario

.formulariomodal = Modal 'True o False

.rutareporte = ThisWorkbook.Path & "\rpt\" & reporte 'Ruta del Reporte

.TipoFormulario = Formularioincrustado 'Tipo de Modal

.PathCrViewer = ThisWorkbook.Path

.Loadreporte

End With

Set ObjCRV = Nothing

End Function

Configuración de los Reportes

Dim ObjCRV As Object
Function VerReporte()
Set ObjCRV = New ExpressCRViewer
With ObjCRV
.Dsn = "SQLite_TEST"
.TipoConexion = 1
.nombreformulario = "Detalle de Productos"
.formulariomodal = False
.PathCrViewer = ThisWorkbook.Path
.rutareporte = ThisWorkbook.Path + "\rpt_productos.rpt"
.tipoformulario = False
.Loadreporte
End With
Set ObjCRV = Nothing
End Function

Dim ObjCRV As Object

Function VerReporte()

Set ObjCRV = New ExpressCRViewer

With ObjCRV

.Dsn = "SQLite_TEST"

.TipoConexion = 1

.nombreformulario = "Detalle de Productos"

.formulariomodal = False

.PathCrViewer = ThisWorkbook.Path

.rutareporte = ThisWorkbook.Path + "\rpt_productos.rpt"

.tipoformulario = False

.Loadreporte

End With

Set ObjCRV = Nothing

End Function

Descargar DsigExpress Biblioteca

DsigExpress Bibliotecas .COM , son Componentes DLL y OCX desarrollados con el Fin de agregar nuevas funcionalidades al Entorno de Microsoft Visual Basic Aplicaciones de Excel conocidas también como Macros que se generan en Módulos en el Libro de Excel.

<<Descargar DsigExpress>>