FiveTech Software tech support forums

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.

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

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.

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

      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.

Estimados

en el CD-Utilidades esta la carpeta CodeBar Font

igualmente los subo si alguien le sirve

Ese link esta roto amigo

Alguien trendra eses font

Mil Gracias

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

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

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

      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  
 

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