REPORTES: "La Impresora no está preparada"

[Gonzalo]

Hola amigos!

Tengo la siguiente situación: En un Windows server 2008 R2 tengo un
sitio realizado en ASP.NET. En un lugar de este sitio disparo un
proceso (exe) hecho en VFP 9 que a traves de la clase Foxypreviewer me
genera un reporte en PDF y lo guarda en disco.

El problema está en que cuando este proceso es invocado desde ASP.NET
arroja el error "La impresora no esta preparada" y por lo tanto no
funciona.

Me he dado cuenta que el reporte de visual fox pro si o si necesita
tener una impresora activa al momento de ejecutarse por mas que no la
termine utilizando, lo cual es un problemón si no tengo instalada
ninguna impresora como en este caso. Bajo el entorno de Internet
Information Services las impresoras locales no se ven.

Espero haber transmitido bien mi problema y que alguien me pueda
ayudar.

Gracias!

[Gonzalo Martinez]

Ya lo intenté pero no pasa nada... Lo que quiero saber es si puedo evitar que el reporte busque una impresora al momento de ejectutarse ya que no la necesito

2011/4/14 Miguel Canchas <mcan...@ximesa.com>

Q tal si intentas instalar una impresora en tiempo de ejecución ?? antes de mandar la impresión en pdf ???


Mk


-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Gonzalo
Enviado el: jueves, 14 de abril de 2011 08:41 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] REPORTES: "La Impresora no está preparada"

[Arnaldo Toledano]

Enviá el código de impresión que tenes.
Sera mas fácil analizarlo.



Arnaldo Toledano

[Gonzalo Martinez]

En el IIS de Windows XP (Desarrollo) funciona todo a la perfección.

 

Este es el código:

 

PARAMETERS RutaDatos, RutaGuardado, IdFactura

sRutaDatos = ALLTRIM(RutaDatos)
sRutaGuardado = ALLTRIM(RutaGuardado)
iFact = INT(VAL(IdFactura))
iCantErrores = 0

sRutaArchivoCompleta = CURDIR() + "Facturas\"+ ALLTRIM(STR(iFact)) + ".pdf"
sUsuario = Getenv("USERNAME")
 

_SCREEN.VISIBLE = .F.
CLOSE DATABASE

SET DATE TO FRENCH
SET CENTURY ON
SET DELETED ON
SET EXCLUSIVE OFF
SET MULTILOCKS ON
SET TALK OFF
SET STATUS BAR OFF
SET CONSOLE OFF
SET SAFETY OFF

SET PROCEDURE TO (CURDIR() + "Foxypreviewer\foxypreviewer.app"), "foxypreviewercaller.prg", ;
"lib_impresion.prg", "foxbarcode.prg", "gpimage2.prg" ADDITIVE

_ReportPreview = "FoxyPreviewer.prg"

OPEN DATABASE (sRutaDatos + "Fact\fact.dbc")
OPEN DATABASE (sRutaDatos + "CEPA\cepa.dbc")
OPEN DATABASE (sRutaDatos + "Auxiliar\auxiliar.dbc")
OPEN DATABASE (sRutaDatos + "Puree\Puree.dbc")
OPEN DATABASE (sRutaDatos + "log\log.dbc")

bExisteFactura = FILE(sRutaArchivoCompleta)

 

IF bExisteFactura = .F. THEN

 IF !USED("Facturasserv") THEN
  USE fact!Facturasserv SHARED IN 0
 ENDIF

 SELECT Facturasserv
 SET ORDER TO fac_id
 SEEK iFact

 IF FOUND() THEN

  iServicio = fac_servid
    

  oCodBarra = CREATEOBJECT("FoxBarCode")

  *-- Object Properties
  WITH oCodBarra
   .cImageType = "PNG"
   .cImageFile = "C:\Temp\" + ALLTRIM(STR(iFact)) + ".png"
   .cText = ALLTRIM(Facturasserv.fac_lechum)
   .lAddCheckDigit = .F.
   .nBarcodeType = 132
   .nFontSize = 7.5
   .nImageHeight = 52.91
   .nRatio = 2
  ENDWITH

  TRY
   LOCAL loReport as "PreviewHelper" OF (CURDIR() + "Foxypreviewer\foxypreviewer.app")   
   loReport = CREATEOBJECT("PreviewHelper")

  CATCH
  
   
   iCantErrores = iCantErrores + 1
  ENDTRY

  TRY
   WITH loReport as ReportHelper
     IF iServicio = 9 THEN
      .AddReport(CURDIR() + "REPORTES\facturaserv_electrica.frx", "NODIALOG")
     ELSE
      .AddReport(CURDIR() + "REPORTES\modelfactura.frx", "NODIALOG")
     ENDIF
     .cTitle = "Factura del servicio"
     .cDestFile = sRutaArchivoCompleta

     
     .lSaveToFile = .T.
     .lSaveAsPDF = .T.
      
       
     .RunReport()
     

   ENDWITH

   
  CATCH
   
   iCantErrores = iCantErrores + 1
  ENDTRY

  loReport = NULL  
  
 ENDIF &&IF FOUND() THEN
 
ELSE

ENDIF &&IF bExisteFactura = .F. THEN

IF iCantErrores = 0 THEN
 DELETE FROM log!logs WHERE log_idfactura = iFact
ELSE
 **---Log---** 
ENDIF

CLOSE TABLES all
CLOSE DATABASES all
CLEAR EVENTS
CLOSE ALL

 

2011/4/14 Arnaldo Toledano <arnaldo....@gmail.com>

[Miguel Canchas]

Q tal si intentas instalar una impresora en tiempo de ejecución ?? antes de mandar la impresión en pdf ???

Mk

-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Gonzalo
Enviado el: jueves, 14 de abril de 2011 08:41 a.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] REPORTES: "La Impresora no está preparada"

Hola amigos!

[Victor Beltrán]

Te comento que ese mensaje lo tuve cuando estuve probando el COMODO antivirus y este me blloqueaba el acceso a la impresoras

---

Date: Thu, 14 Apr 2011 11:43:56 -0300
Subject: Re: [vfp] REPORTES: "La Impresora no está preparada"
From: gonzalog...@gmail.com
To: publice...@googlegroups.com

[Gonzalo Martinez]

Ese servidor de prueba no tiene antivirus en este momento. Y en la PC de desarrollo, un Windiws XP SP3 anda perfecto :(

2011/4/14 Victor Beltrán <victor...@hotmail.com>

[stirpe x]

Gracias por tu respuesta,

Me paso lo mismo al instalar Bit Defender en Windows 7

 

Al probar en otra pc sin el Antivirus funciono correctamente.

[stirpe x]

Gracias, me paso lo mismo al instalar Bit Defender en Windows 7

 

al probar en otra pc sin el antivirus funciona correctamente.

 

Salu2!