FiveTech Software tech support forums

Mira se no és esto:

Code: Select all  Expand view

\source\function\IMGTXTIO.PRG
 

https://www.forums.fivetechsupport.com/viewtopic.php?f=3&t=39585#p263522

Regards, saludos.

Hola, No estoy seguro de lo que pasa pero me pareciera que la clase que imprime a pdf no tiene el metodo ::fillrect() y por eso ocurre el error Con esa fantastica libreria yo lo que hice en su dia fue hacer que la impresion del codigo de barras fuera a un archivo .bmp y desde ...

Intenta directamente con el LIB de HARUPD, sin llamar el FWHARU de mister Rao.

https://mega.nz/file/RIlSAB6J#L4qDeL8lY6fmAh0B0oMZ5wQZ5dR9BgpZ9zhezinPT2w

O haz una DEMO y publícala en Mega Upload para poder probarla, ¿vale?

Regards, saludos.

pedroluis wrote:FWH2307

¿Funcionó antes? En caso afirmativo, ¿con qué versión de FWH?

Regards, saludos.

FWH2307

Code: Select all  Expand view

METHOD FillRect( aRect, uBrush, [cUnits] )
 

https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?f=3&t=40498&start=15#p241978

Cual tú version?

Regards, saludos.

That sample is not reduced and not self-contained.

... => FWPDF:ERROR( 0 ) Called from: source\rtl\tobject.prg => FWPDF:MSGNOTFOUND( 0 ) Called from: source\rtl\tobject.prg => FWPDF:FILLRECT( 0 ) <-------------- Called from: go_code.prg => GO_CODE( 39 ) Called from: barlib.prg => CODE128( 34 ) Called from: barlib.prg => ...

Can you post a reduced and self-contained sample showing the problem, please?

El programa imprime una factura.
Arranca usando FWHARU, y llama a go_code.prg para hacer el código de barras
que luego se pone en la factura.

Cuando pasa por el go_code.prg me da el error del fillrect()

REQUEST FWHARU és para usar HARUPDF con PRINTER.PRG, en BARLIB.LIB(Códigos de Barras) no ejiste HARUPDF.

Regards, saludos.

Muy amable Karinha !

Pero el problema que tengo es que al compilar tengo error en
la Función FILLRECT() que está en el GO_CODE.PRG.

Compilo el programa con REQUEST FWHARU, y ahí surge el error.

Si no compilo con FWHARU funciona todo bien. ???

Saludos !

https://mega.nz/file/wZknEIQb#jdswBJBulhIasNTLBV6MN44meLyq57dW2FoXcgYOhL4

https://mega.nz/file/pRtViCJK#ljW3spAr3Vcm_3wFsUq9EjitCYPNN6EUJ-7OIsU7-y8

https://mega.nz/file/UR8CwCKK#IF3rm1faIs1MPdoWpPEFgPSZOu2TomT5Ys4YrevXOac

Regards, saludos.

... else nLen :=round ( nLen * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) end for n:=1 to len(cBarra) if substr(cBarra,n,1) ='1' if lHorz oPrint:fillRect({nx,ny,nx+nLen,(ny+=nWidth)},oBr) else oPrint:fillRect({nx,ny,(nx+=nWidth),ny+nLen},oBr) end else if lHorz ny+=nWidth else nx += nWidth end ...