FiveTech Support Forums

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 (fw): Select all Collapse

      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

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

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 (fw): Select all Collapse

      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.