Codigos de Barras y Openoffice

[Andrés González]

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  
 

[Carlos Mora]

Hola Andrés,

desde el programa no sé como hacerlo, pero se me ocurre que en el documento original, donde tienes escrito {CodigoBarras} , marques ese trozo y le cambies a la fuente 'Code128' o la que uses. Cambiar el texto sos cambiaría el contenido de ese trocito, pero seguiría con la fuente code128 que es lo que queremos.

Salutacions

[Andrés González]

Hola Carlos, ahora me habías venido a la mente, por este tema precisamente y estaba buscando tus mensajes por eso me he dado cuenta que habias contestado. Gracias, eso es lo que voy a intentar, ya que me imagino que lo otro son imagenes que se muestran por pantalla no fuentes. Gracias, voy a ver que consigo.

Por cierto Carlos, como va tu proyecto de leer los códigos de barra desde una imagen de una camara. Me pareció una excelente idea, dime cosas...

Saludos.

[FiveWiDi]

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.

[Patricio Avalos Aguirre]

Estimados

en el CD-Utilidades esta la carpeta CodeBar Font

igualmente los subo si alguien le sirve

Code: Select all  Expand view

http://rapidshare.com/files/396728098/CodeBar_Fonts.rar.html

[Vladimir Zorrilla]

Ese link esta roto amigo

Alguien trendra eses font

Mil Gracias

[ronaldo]

Ola pessoal,

Eu aconselho que neste caso, seja melhor você dentro do documento do openoffice, selecionar o campo {CodigoBarras} e já deixar formatada a fonte CODE128.

Abraço
Ronaldo

[hmpaquito]

Andres,

Si yo lo tuviera que hacer, lo que haria seria generar una imagen .bmp con el codigo de barras e insertar la imagen en el documento, ya sea Word o Writer.

Saludos

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  
 

[Patricio Avalos Aguirre]

http://rapidshare.com/files/396728098/CodeBar_Fonts.rar.html

[Andrés González]

Gracias a todos, perdonar por la tardanza pero he estado dos dias fuera. Me pongo con ello a ver si puedo conseguirlo.