ayuda con activeX para Josemo

[jrcpoli]

Me deje el fichero comprimido.

Attached files CrystalPreview.zip (1.1 KB)Â

[jrcpoli]

Si quieres te puedo facilitar lo que yo he podido conseguir usando Xailer y Crystal Report XI pero lo único que le falta es poder hacer la vista previa, que no he conseguido que se despliegue se queda en un formulario en el que pulsado con el ratón derecho sobre el pequeño cuadrado que sale se puede imprimir y exportar pero no se vé a lo mejor tú le sacas mas probecho y lo haces funcionar yo no lo he conseguido ni he obtenido respuesta del centro de ayuda de Crystal Report, por supuesto si imprime direcctamente y si exporta al formato que tú quieras, es factible hacer la vista previa enviando el fichero exportado en formato PDF a un nevegador Web, o verlo con el visor de Acrobat Reader.
Bueno te lo envio y así­ lo puedes ver, esta realizado con 2.0.9 pero lo puedes recostruir con la versión que tengas. descomprime el zip en una carpeta que se llame como tú quieras pon dentro lo que te envio y los ficheros y las DLL necesarias de Crystal Report.

Attached files PruebaCR.zip (38.9 KB)Â

[jemstv]

Hola Jose Ramon Castro;
Aqui de nuevo.....instale el xailer 2.3.0 y ahora
el crystal da error en el openreport
Subsystem Call: CrystalRuntime.Application.11:OPENREPORT
System Code: 3
Default Status: .F.
Description: DISP_E_MEMBERNOTFOUND
Operation: _PRINTOUT
Arguments: [ 1] = Type: L Val: .F.
Involved File:
Dos Error Code: 0
Trace Through:
TOLEAUTO:_PRINTOUT (0)
TFORM5:CHECKBOX11CLICK (2747)
TCHECKBOX:ONCLICK (0)
(b)XCHECKBOX:XCHECKBOX (51)
TCHECKBOX:CLICK (0)
que sera el problema con el 2.3?
ojala y sepas que podria ser
Saludos de nuevo y Gracias

[jrcpoli-quitar]

Saludos:
Yo trabajo con la versión 2.3.0 y no obtengo ningún error, podí­as
mostrar las lineas de código donde se produce el error, parece ser que
el error, se produce la pasar la variable lógica (.T.,.F.)
Mis lineas de código para mandar a imprimir directamente son estas:
WITH OBJECT TPrinter():New( Self )
*
IF :Run()
*
** Imprime por la Impresora seleccionada
::loRpt:SelectPrinter("",:DriverName,"")
** Imprimir el listado
::loRpt:PrintOut(.F.,:nCopies,,StartPageN,StopPageN )
*
ENDIF
*
END
José Ramón Castro.
El 07/04/2011 23:28, Josemo escribió:
> Hola Jose Ramon Castro;
>
> Aqui de nuevo.....instale el xailer 2.3.0 y ahora el crystal da error en
> el openreport
>
>
> Subsystem Call: CrystalRuntime.Application.11:OPENREPORT
> System Code: 3
> Default Status: .F.
> Description: DISP_E_MEMBERNOTFOUND
> Operation: _PRINTOUT
> Arguments: [ 1] = Type: L Val: .F.
> Involved File: Dos Error Code: 0
>
> Trace Through:
> TOLEAUTO:_PRINTOUT (0)
> TFORM5:CHECKBOX11CLICK (2747)
> TCHECKBOX:ONCLICK (0)
> (b)XCHECKBOX:XCHECKBOX (51)
> TCHECKBOX:CLICK (0)
>
> que sera el problema con el 2.3?
> ojala y sepas que podria ser
>
> Saludos de nuevo y Gracias
>

[jemstv]

con este codigo me da este error
me sale el dialogo de seleccionar la imprsora e imediatamente al dar el ok sale............
WITH OBJECT TPrinter():New( Self )
::nombReport := "c:vsmsxCrystalReceipt.rpt"
if :run()
::loRpt:SelectPrinter("",:DriverName,"")
::loCR := CreateObject("CrystalRuntime.Application.11")
::loRpt := ::loCR:OpenReport( ::nombReport )
::loRpt:PrintOut := FALSE
::loRpt:PrintOut := FALSE
IF ::lORpt:HasSavedData
::loRpt:DiscardSavedData()
ENDIF
endif
::loCR := Nil
::loRpt:= Nil
::nombReport := Nil
::loViewer := Nil
end
RETURN Nil
============================================================ =
---------------------------- Compiler Information -----------------------------
Xailer Version: Xailer 2.3.0 Version 2.3.0
Compiler: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511) PCode Version: 10
C/C++ Compiler: Borland C++ 5.5.1 (32 bit)
Windows Platform: Windows Windows Vista Professional 6.01.7600
--------------------- Internal Error Handling Information ---------------------
Subsystem Call: BASE
System Code: 1004
Default Status: .F.
Description: Class: 'NIL' has no exported method
Operation: SELECTPRINTER
Arguments: [ 1] = Type: U Val: NIL [ 2] = Type: C Val: [ 3] = Type: C Val: Brother HL-2040 series [ 4] = Type: C Val:
Involved File:
Dos Error Code: 0
Trace Through:
TFORM5:CHECKBOX11CLICK (2773)
TCHECKBOX:ONCLICK (0)
(b)XCHECKBOX:XCHECKBOX (51)
TCHECKBOX:CLICK (0)
(b)XCONTROL:XCONTROL (147)
TCHECKBOX:COMMAND (0)
TFOLDERPAGE:WMCOMMAND (276)
RUNFORM (0)
TAPPLICATION:RUN (275)
MAIN (15)

[jrcpoli-quitar]

Saludos:
Prueba así­:
METHOD Button1Click( oSender ) CLASS TForm1
::nombReport := "c:vsmsxCrystalReceipt.rpt" // Nombre del listado
::loCR := CreateObject("CrystalRuntime.Application.11")
::loRpt := ::loCR:OpenReport( ::nombReport )
IF ::lORpt:HasSavedData
::loRpt:DiscardSavedData()
ENDIF
*
WITH OBJECT TPrinter():New( Self )
*
IF :Run()
*
** Imprime por la Impresora seleccionada
::loRpt:SelectPrinter("",:DriverName,"")
** Imprimir el listado
::loRpt:PrintOut(.F.,:nCopies,,,)
*
ENDIF
*
END
*
::loCR := Nil
::loRpt:= Nil
::nombReport := Nil
*
RETURN Nil
José Ramón Castro.
El 08/04/2011 22:30, Josemo escribió:
> con este codigo me da este error
> me sale el dialogo de seleccionar la imprsora e
> imediatamente al dar el ok sale............
>
>
>
> WITH OBJECT TPrinter():New( Self )
> ::nombReport := "c:vsmsxCrystalReceipt.rpt"
> if :run()
>
>
> ::loRpt:SelectPrinter("",:DriverName,"") // esto debe de ir detras de donde se define ::loRpt
> ::loCR := CreateObject("CrystalRuntime.Application.11")
> ::loRpt := ::loCR:OpenReport( ::nombReport )
>
> ::loRpt:PrintOut := FALSE
> ::loRpt:PrintOut := FALSE
>
> IF ::lORpt:HasSavedData
> ::loRpt:DiscardSavedData()
> ENDIF
>
> endif
> ::loCR := Nil
> ::loRpt:= Nil
> ::nombReport := Nil
> ::loViewer := Nil
> end
> RETURN Nil
>
> ============================================================
> =
> ---------------------------- Compiler Information
> -----------------------------
>
> Xailer Version: Xailer 2.3.0 Version 2.3.0
> Compiler: xHarbour build 1.2.1 Intl. (SimpLex) (Rev.
> 6511) PCode Version: 10
> C/C++ Compiler: Borland C++ 5.5.1 (32 bit)
> Windows Platform: Windows Windows Vista Professional
> 6.01.7600
>
> --------------------- Internal Error Handling Information
> ---------------------
>
> Subsystem Call: BASE
> System Code: 1004
> Default Status: .F.
> Description: Class: 'NIL' has no exported method
> Operation: SELECTPRINTER
> Arguments: [ 1] = Type: U Val: NIL [ 2] = Type: C
> Val: [ 3] = Type: C Val: Brother HL-2040 series [ 4] =
> Type: C Val: Involved File: Dos Error Code: 0
>
> Trace Through:
> TFORM5:CHECKBOX11CLICK (2773)
> TCHECKBOX:ONCLICK (0)
> (b)XCHECKBOX:XCHECKBOX (51)
> TCHECKBOX:CLICK (0)
> (b)XCONTROL:XCONTROL (147)
> TCHECKBOX:COMMAND (0)
> TFOLDERPAGE:WMCOMMAND (276)
> RUNFORM (0)
> TAPPLICATION:RUN (275)
> MAIN (15)

[jemstv]

Ok con el ultimo codigo que envistes queda asi.....
METHOD Checkbox11Click( oSender ) CLASS TForm5
with object ::oDbfCtlSet
If !::oDbfStorSet:Rel
msgalert('Sorry Only valid for Released Vehicles','Notice')
return nil
endif
If ::oDbfCtlSet:Fillock()
msgwait(::oDbfStorSet:Stock,1)
::oDbfCtlSet:Stock := rtrim(::oDbfStorSet:Stock)
::oDbfCtlSet:fastUpdate()
isok = 'y'
::oDbfCtlSet:fastUpdate()
else
msgalert('Error Cant Update Control File','Error')
endif
end with
::nombReport := "c:vsmsxCrystalReceipt.rpt" // Nombre del listado
::loCR := CreateObject("CrystalRuntime.Application.11")
::loRpt := ::loCR:OpenReport( ::nombReport )
IF ::lORpt:HasSavedData
::loRpt:DiscardSavedData()
ENDIF
*
WITH OBJECT TPrinter():New( Self )
*
IF :Run()
*
** Imprime por la Impresora seleccionada
::loRpt:SelectPrinter("",:DriverName,"")
::loRpt:PrintOut(.F.,:nCopies,,,)
** Imprimir el listado

ENDIF
*
END
*
::loCR := Nil
::loRpt:= Nil
::nombReport := Nil
*
RETURN Nil
=======================================================
Subsystem Call: CrystalRuntime.Application.11:OPENREPORT
System Code: 3
Default Status: .F.
Description: DISP_E_MEMBERNOTFOUND
Operation: PRINTOUT
Arguments: [ 1] = Type: L Val: .F. [ 2] = Type: N Val: 1 [ 3] = Type: U Val: NIL [ 4] = Type: U Val: NIL [ 5] = Type: U Val: NIL
Involved File:
Dos Error Code: 0
Trace Through:
TOLEAUTO:PRINTOUT (0)
TFORM5:CHECKBOX11CLICK (2771)
TCHECKBOX:ONCLICK (0)
(b)XCHECKBOX:XCHECKBOX (51)
TCHECKBOX:CLICK (0)
(b)XCONTROL:XCONTROL (147)
TCHECKBOX:COMMAND (0)
TFOLDERPAGE:WMCOMMAND (276)
RUNFORM (0)
TAPPLICATION:RUN (275)

[jemstv]

Es Raro............
Fui donde un camarada que tiene 2.1 xailer
lo compile y corre perfecto
no sabes que tengo que hacer para regresar el codigo a 2.1 en vez de 2.3?
Sal;udos

[jemstv]

Ya creo que resolvi////////////////////
el problema parece ser que los varios reportes ...RPT
guardan la impresora que se utilizo la ultima vez que se corrio,
entonces al imprimir directo............no veo el mensaje diciendo qur la impresora es diferente a la que esta en el reporte........
corri el reporte manualmente asi mi impresora queda registrada........y Amen !! Corre directo!!!
Gracias de nuevo por tu ayuda J.R.C.