ActiveX - OCX Crystal 9 en Progress.

 
Vista:

OCX Crystal 9 en Progress.

Publicado por Carrasco (1 intervención) el 18/07/2003 17:33:45
Hola amigos, tengo un pequeño problema.
Mi plataforma de desarrollo es Progress y para realizar reportes lo hago con Crystal Reports, la versión de Crystal que siempre he utilizado es la 7, ahora al actualizar a la versión 9 del Crystal, tengo algunos problemas porque la forma de manejar el OCX ya no es el mismo.

Anteriormente tenia que crear un contenedor en la ventana para el OCX y dentro de ese contenedor mostrar el reporte, y se configuraba todo a través de código.

Mi problema es que el OCX del Crystal 9, no me acepta el mismo esquema..

alguien sabe como manejar los OCX de Crystal 9..

muchisimas gracias..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

OCX Crystal 9 en Progress.

Publicado por Renata (1 intervención) el 18/07/2011 08:30:10
El siguiente codigo te permite utilizar el ocx

DEFINE VARIABLE cryaply28 AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE cryrepor28 AS COM-HANDLE NO-UNDO.

CREATE "CrystalRuntime.Application" cryaply28.
CREATE "CrystalRuntime.Report" cryrepor28.
/*

ASSIGN
xfec = ((chCtrlFrame-2:DTPicker:VALUE))
*/

/* Set the report object */
ASSIGN
xfecini = ((chCtrlFrame-2:DTPicker:VALUE))
xfecfin = ((chCtrlFrame-3:DTPicker:VALUE))

cryrepor28 = cryaply28:OpenReport("C:/RegistroAsis/FteAsi/lisasipar.rpt").

/* cryrepor28:ParameterFields:ITEM(1):AddCurrentValue(xreg1).*/
cryrepor28:ParameterFields:ITEM(1):AddCurrentValue(xfecini).
cryrepor28:ParameterFields:ITEM(2):AddCurrentValue(xfecfin).



cryrepor28:VerifyOnEveryPrint = TRUE.

cryaply28:LogOnServer("pdsodbc.dll",
"nombre del odbc",
"",
"usuario de base de adatos",
"contraseña").

/* Enables the CRViewer's Navigation Controls */
chCtrlFrame:CRViewer9:EnableNavigationControls = TRUE.

/* Enables the CRViewer's Export button */
chCtrlFrame:CRViewer9:EnableExportButton = TRUE.

/* Disables the CRViewer's Search control */
chCtrlFrame:CRViewer9:EnableSearchControl = TRUE.

/* Set the report source */
chCtrlFrame:CRViewer9:ReportSource = cryrepor28.

/* View the report */
chCtrlFrame:CRViewer9:ViewReport().

RELEASE OBJECT cryaply28.
RELEASE OBJECT cryrepor28.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar