In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

ayuda con activeX para Josemo

Foro público de Xailer en español
jrcpoli
Posts: 240
Joined: Wed Oct 25, 2006 8:55 pm

ayuda con activeX para Josemo

Postby jrcpoli » Tue Jan 25, 2011 10:55 pm

Me deje el fichero comprimido.

Attached files CrystalPreview.zip (1.1 KB)Â
José Ramón Castro.
jrcpoli
Posts: 240
Joined: Wed Oct 25, 2006 8:55 pm

ayuda con activeX para Josemo

Postby jrcpoli » Tue Jan 25, 2011 10:57 pm

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)Â
José Ramón Castro.
jemstv
Posts: 133
Joined: Tue Jul 27, 2010 3:56 pm

ayuda con activeX para Josemo

Postby jemstv » Thu Apr 07, 2011 11:28 pm

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
Posts: 558
Joined: Tue Feb 09, 2010 2:26 pm

ayuda con activeX para Josemo

Postby jrcpoli-quitar » Fri Apr 08, 2011 11:51 am

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
Posts: 133
Joined: Tue Jul 27, 2010 3:56 pm

ayuda con activeX para Josemo

Postby jemstv » Fri Apr 08, 2011 10:30 pm

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
Posts: 558
Joined: Tue Feb 09, 2010 2:26 pm

ayuda con activeX para Josemo

Postby jrcpoli-quitar » Sat Apr 09, 2011 11:33 am

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
Posts: 133
Joined: Tue Jul 27, 2010 3:56 pm

ayuda con activeX para Josemo

Postby jemstv » Sat Apr 09, 2011 5:11 pm

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
Posts: 133
Joined: Tue Jul 27, 2010 3:56 pm

ayuda con activeX para Josemo

Postby jemstv » Sat Apr 09, 2011 7:40 pm

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
Posts: 133
Joined: Tue Jul 27, 2010 3:56 pm

ayuda con activeX para Josemo

Postby jemstv » Mon Apr 11, 2011 7:31 pm

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.

Return to “Spanish”