Error al compilar

[surGom]

Hola compañeros me surge el siguiente problema en esta línea

Code: Select all  Expand view

   @ 19.2, 2.2 PRINT TO oPrn IMAGE AllTrim(&oQr) SIZE 2.3, 2.3 CM
 

Compilando megafac.prg...
megafac.prg(1381) Error E0030 Syntax error: "syntax error at '@'"
1 Files, 0 Warnings, 1 Errors
Tiempo de compilación: 0.32s Tiempo de enlazado: 0s Tiempo total: 0.44s

Ahora este mismo programa lo compilo en otras pc y no tengo inconvenientes. Con el harbour o xharbour y fwh17.4

Muchas gracias

[karinha]

#Include "FiveWin.Ch" //???

[surGom]

SI kharina es el mismo prg que compilo en otras máquina que tienen el mismo fwh, el mismo xharbour (2020) y genera perfectamente el exe
El problema es que es el programa que compilo en la empresa cuando hay algún agregado o corrección que hay que hacer al sistema.

el trozo de código es el siguiente

Code: Select all  Expand view

#include "Fivewin.ch"
#include "splitter.ch"
#include "tarray.ch"
#include 'barcode.ch'
#include "ord.ch"
 

etc etc

Code: Select all  Expand view

FUNCTION  IMPDEB( dfec, nc, aElectro1, adet1, lreprint, lmoneda1, nclia1, ctipofac1, ndolares1,ctipodgi )            //impdeb(dfec,.f.,.t.)

   LOCAL oPrn, oFont, oFont1, oFont2, oFont3, oFont4
   LOCAL z := 0
   LOCAL linea := 0
   LOCAL cTitu :=  iif( !nc, "NOTA DE DÉBITO ", "NOTA DE CRÉDITO " )
   LOCAL  cDireccion
   LOCAL cCod := ""
   LOCAL nPrecio := 0

etc etc

Code: Select all  Expand view

DEFINE FONT oFont NAME "Times New Roman" SIZE 0, 96  bold OF oPrn
   DEFINE FONT oFont1 NAME "Times New Roman" SIZE 0, 96  OF oPrn
   DEFINE FONT oFont2 NAME "Times New Roman" SIZE 0, 72 OF  oPrn
   DEFINE FONT oFont3 NAME "Times New Roman" SIZE 0, 48 BOLD OF  oPrn
   DEFINE FONT oFont4 NAME "Times New Roman" SIZE 0, 120  BOLD OF oPrn

   SetPrintDefault( AllTrim( oApp:imppdf ) )

   PRINTER oPrn PREVIEW
   oPrn:cdocument := aElectro:cnombre
   PAGE

   oPrn:ImportWMF( iif( lfacturab,"facturaB.emf","facturaA.emf" ) )
   oPrn:CmSay(   0.85, 12.2,  cTitu,oFont4,, RGB( 11,41,90 ) )
   oPrn:CmSay(   1.03, 11.08, ( "Cod. " + cCod ), oFont3,, RGB( 11,41,90 ) )
   oPrn:Cmsay(   1.3, 12.2,   ( "Nº  " + cNrofactu ),oFont4,, RGB( 11,41,90 ) )
   oPrn:Cmsay(   2.1, 12.2, ( "FECHA: " + AllTrim(Transform(dfec,"@D" ) ) ), oFont,, RGB( 11,41,90 ) )
   oPrn:CmSay(  4.35, 4.2,    AllTrim( aCliente:napea ), oFont,, RGB( 0,0,0 ) )
   oPrn:CmSay(  4.35, 17.2,    valstr( aCliente:nclia ), oFont )
   oPrn:CmSay(  4.75, 4.2, aCliente:domia,oFont )
   oPrn:CmSay(  4.75, 17.2, valstr( aCliente:vendedor ), oFont )
   oPrn:CmSay(  5.15, 4.2, ( '(' + Str(aCliente:postal ) + ')-' + cDireccion ),oFont )
   oPrn:CmSay(  5.55, 4.2, aCliente:cuita, oFont )
   oPrn:Cmsay(  5.95, 4.2, aCliente:ivaa,oFont )



   linea := 8.2



   FOR z = 1 TO Len( aDet )
      oPrn:Cmsay( linea, 1.9,Upper( aDet[ z,1 ] ), oFont1 )                       //detalle
      IF !Empty( aDet[ z, 2 ] )
         nPrecio := aDet[ z, 2 ]
         IF !lmoneda
            nPrecio := div_zero( aDet[ z, 2 ], ndolares )
         ENDIF
         oPrn:Cmsay( linea, 19.2, Transform( nPrecio,"@e 999,999.99" ), oFont1,,,, 2 )
      ENDIF
      linea += .4
   NEXT

   if !nc           //si es nota de débito
     IF !Empty( aElectro:cdato )
        linea += .6
        nlin := MLCount( aElectro:cdato, nLongl, ntab, .T. )
        FOR z = 1 TO nlin
         oPrn:Cmsay( linea, 3.8, MemoLine( aElectro:cdato,nLongl,z,nlinact,, .T. ), oFont1 )
         linea += .4
        NEXT
     ENDIF
   endif
   linea += .6
   oPrn:Cmsay( linea, 3.8,("Afecta Factura " + aElectro:cFacasoc + " del " + aElectro:dfacasoc ),oFont1)


   if oApp:lresol2226 .and. Date() <= oApp:resiva2  .and. !nc           //exencion de percepciones y retenciones de IVA
     impresol2226(oPrn, oFont, linea)
   endif

  // @ numtopixel(19.4), numtopixel(2.2) PRINT TO oPrn IMAGE ALLTRIM(oimage) SIZE 500, 500



   oPrn:Cmsay( 16.8, 14.5, "Subtotal :", oFont1 )
   oPrn:Cmsay( 16.8,17.2, iif(!lmoneda,"USD","$"), oFont1,,,, 2)
   oPrn:Cmsay( 16.8, 19.2, Transform( (aElectro:nsubtotal ),"@e 999,999.99" ), oFont1,,,, 2 )



   IF !lfacturab   
      oPrn:Cmsay( 17.4, 14.5, "IVA :", oFont1 )
      oPrn:Cmsay( 17.4,17.2, iif(!lmoneda,"USD","$"), oFont1,,,, 2)
      oPrn:Cmsay( 17.4, 19.2, Transform( (aElectro:ntiva ),"@e 999,999.99" ), oFont1,,,, 2 )
   endif                        //si es factura B



   IF !Empty( aElectro:nibrucap )
     oPrn:Cmsay( 18.2, 14.5, ( "I.B. Cap." + AllTrim(Transform(nPorcap,"@e 99.99" ) ) + "%" ), oFont1 )
     oPrn:Cmsay( 18.2,17.2, iif(!lmoneda,"USD","$"), oFont1,,,, 2)
     oPrn:Cmsay( 18.2, 19.2, Transform( (aElectro:nibrucap ),"@e 999,999.99" ), oFont1,,,, 2 )
   ENDIF


   IF !Empty( aElectro:nIbru )
      oPrn:Cmsay( 18.6, 14.5, ( "Per IBBA" + AllTrim(Transform(aCliente:percibe,"@e 99.99" ) ) + "%" ), oFont1 )
      oPrn:Cmsay( 18.6,17.2, iif(!lmoneda,"USD","$"), oFont1,,,, 2)
      oPrn:Cmsay( 18.6, 19.2, Transform( aElectro:nIbru,"@e 999,999.99" ), oFont1,,,, 2 )
   ENDIF

   @ 19.2, 2.2 PRINT TO oPrn IMAGE AllTrim(&oQR) SIZE 2.3, 2.3 CM

   oPrn:Cmsay( 20.5, 5.4, ( "CAE " + aElectro:cCae + Space(5 ) + "Vencimiento: " + aElectro:cVto ), oFont )

 //  @ 20.5, 2.2 CM_INT25 AllTrim( aElectro:cCodbar ) of oPrn SIZE .8
   oPrn:Cmsay( 21,17.2, iif(!lmoneda,"USD","$"), oFont1,,,, 2)
   oPrn:Cmsay( 21, 19.1, Transform( aElectro:ntotal,"@e 999,999.99" ), oFont1,,,, 2 )


 /*  oPrn:Cmsay( 21.25, 6.2, AllTrim( aElectro:cCodbar ), oFont1,,,, 2 )
   oPrn:Cmsay( 21.7, 2.2, ( "ORIGINAL                                       CAE " + aElectro:cCae + Space(5 ) + "Vencimiento: " + aElectro:cVto ),oFont )

  */

   ENDPAGE

   ENDPRINT



   oFont:End()
   oFont1:end()
   oFont2:end()
   oFont3:end()
   oFont4:end()
   IF !lreprint
      nbut[ 6 ]:disable()
      nbut[ 10 ]:enable()
   ENDIF



RETURN NIL
 

No encuentro el porque de este inconveniente. El sistema lo tengo en mi oficina y en mi casa que es dónde trabajo y en ambos casos lo genera perfecto, pero en la empresa que se utiliza da el error al compilar. Por lo tanto cuando tengo que modificar algo, tengo que hacerlo en mi casa u oficina y luego llevarlo a la empresa.

No se cuales son las causas porque los prg son un espejo de los que tengo en mis pc.

Luis

[karinha]

fwh17.4, és el mismo en todos locales que compilas?

Saludos.

[nageswaragunupudi]

1) Please make sure that the command @ 19.2, 2.2 PRINT TO oPrn IMAGE is supported in your version of FWH. (Check print.ch)
2) This may be causing the error "AllTrim(&oQr)"

[jvtecheto]

Hola yo no sé tanto como MR. Raó pero borraría todos los. Obj. C etc y compilaria desde 0.

Espero encuentres pronto la solución.

Jose


Enviado desde mi POCOPHONE F1 mediante Tapatalk

[surGom]

José ya lo probé.


Gracias Mr Rao el problema es que tengo una carpeta include dentro del programa en la que guardo los includes de algunas clases que uso, y se ve que en algún momento copié todos los de fwh del 2013 (habrá sido en ese año) y gracias a su sugerencia revise y voilá ...
No hagan comentarios

Les ruego me disculpen

Luis