Andrés González wrote:Hola he visto el ejemplo que ha dejado Carlos sobre la presentación de los codigos de barras en Pantalla y me preguntaba si se puede incluir en un documento tipo
writer del openoffice o Word. Pero he visto en el foro que ese proceso ya no se hace igual, o sea, que se realiza via Font y se sustituye.
Alguna idea de como se tiene que hacer, que función utilizo.
- Code: Select all Expand view
FUNCTION Writer08()
LOCAL cFile, oDoc, oFont, nCode128 := "1111167890"
cFile := cFilePath( GetModuleFileName( GetInstance() ) ) + "bazevani.odt"
IF cFile = NIL; RETURN NIL; ENDIF
DEFINE FONT oFont NAME "CODE128" SIZE 0,-20
MsgRun( "Abriendo OpenOffice writer",;
"Un momento por favor..." ,;
{ || oDoc := TOODoc():Writer( cFile , .T. , .T.) } )
oDoc:Replace("{CodigoBarras}", ????? ) <<<Como le digo que me transforme nCode128 en codigo de barras que funcion utilizo
oDoc:Destroy()
RETURN NIL
Hola Andrés,
Se me ocurre que deberás hacer 2 cosas (pero no estoy seguro):
1 - 'convertir' tu 'nCode128' mediante la función _code128( AllTrim(Str(nCode128,15,0)), Nil) que está en la libreria Barlib de Cayetano .
2- en donde quieres 'escribir' el código de barras en el documento
writer de openoffice o word, deberás poner el resultado de esa función y usar un tipo de fuente 'codigo de barras 128' (que no sé de donde se puede bajar).
Un saludo
Carlos G.