Ayuda con Codigo QR

[remtec]

Hola Amigos.

Deseando que todos se encuentren muy bien.

Actualmente estoy imprimiendo desde FiveWin un Archivo en formato .DOCX o Doc, esto todo bien.

Pero ahora se me ha requerido con urgencia, poder imprimir en el informe DOC, un Codigo QR, que permita ser leido y validar datos impresos en este informe.

Necesito saber si existe un codigo actualizado funcional para poder solucionar mi problema.

Uso FWH 17.09 Harbour.

Desde ya muchas gracias y muchos saludos.

Antonio

El codigo de impresión grabación de los informes que uso es:

Code: Select all  Expand view

                        oWord:ActiveDocument:SaveAs(cDestinop + cSavep)
                            oWord:ActiveDocument:PrintOut()     // Imprime.
                            oWord:ActiveDocument:Close()     //  oWord:Documents:Close()

 

[karinha]

Haga una busqueda,

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=36976&p=226322&hilit=QRCODE#p226322

Saludos.

[remtec]

Hola Karinha

Muchas gracias por responder.

Ya habia revisado esta publicacion al igual que otras, pero no di con la forma de aplicarlo.

Muchos saludos y muchas gracias.

Antonio

[karinha]

Creo que usando la PRINTER.PRG y grabando en formato .DOC solo una idea por encuanto. Debias actualizar tú versión del five.

Saludos.

[leandro]

En los ejemplos de fw
Barcod01.prg

Code: Select all  Expand view

#include "fivewin.ch"

REQUEST FWZEBRA

static cName, cCity, cCountry, cItem

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oCode, oSay, oSay2, oSay3, oFont

   SetGetColorFocus()

   cName    := PadR( "Antonio Linares", 20 )
   cCity    := PadR( "Marbella", 20 )
   cCountry := PadR( "Spain", 20 )
   cItem    := "123456789012"

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 600,800 PIXEL TRUEPIXEL FONT oFont ;
      TITLE "TSAYBARCODE CONTROL"

   @ 080, 40 SAY "PDF417" SIZE 100,26 PIXEL OF oDlg

   @ 050,150 SAYBARCODE oSay2 ;
      TEXT "Address :" + CRLF + cName - CRLF - cCity - CRLF - cCountry ;
      TYPE "PDF417" SIZE 400,80 PIXEL OF oDlg UPDATE

   @ 240, 40 SAY "Name    :" GET cName    SIZE 300,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. )
   @ 270, 40 SAY "City    :" GET cCity    SIZE 300,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. )
   @ 300, 40 SAY "Country :" GET cCountry SIZE 300,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. )
   @ 330, 40 SAY "Item    :" GET cItem    SIZE 200,24 PIXEL OF oDlg VALID ( oDlg:Update(), .t. ) ;
                                          PICTURE "999999999999" RIGHT
   @  230,450 SAYBARCODE oSay ;
      TEXT "Address :" + CRLF + cName - CRLF - cCity - CRLF - cCountry ;
      TYPE "QR-CODE" SIZE 100,100 PIXEL OF oDlg ;
      UPDATE

   @ 400,040 SAYBARCODE TEXT cName - "," - cCity ;
      TYPE "CODE128" SIZE 500,50 PIXEL OF oDlg UPDATE

   @ 480,040 SAY "CODE128" SIZE 520,24 PIXEL OF oDlg CENTER

   @ 550,040 BTNBMP PROMPT "PRINT" SIZE 200,60 PIXEL OF oDlg FLAT ACTION PrintBarCodes()

   @ 650,350 SAY "Item : EAN13" SIZE 200,24 PIXEL OF oDlg CENTER

   @ 700,350 SAYBARCODE TEXT cItem ;
      TYPE "EAN13" SIZE 200,50 PIXEL OF oDlg UPDATE

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

//----------------------------------------------------------------------------//

function PrintBarCodes()

   local oPrn, oFont

   PRINT oPrn PREVIEW
   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 OF oPrn

   PAGE

   @ 1, 1 PRINT TO oPrn TEXT "PDF417" INCHES FONT oFont

   @ 1.25, 1 PRINT TO oPrn TEXT "Address :" + CRLF + cName - CRLF - cCity - CRLF - cCountry ;
      AS BARCODE TYPE "PDF417" SIZE 4, 0.75 INCHES

   @ 3.00, 1 PRINT TO oPrn TEXT cName    INCHES FONT oFont
   @ 3.30, 1 PRINT TO oPrn TEXT cCity    INCHES FONT oFont
   @ 3.60, 1 PRINT TO oPrn TEXT cCountry INCHES FONT oFont
   @ 3.90, 1 PRINT TO oPrn TEXT cItem    INCHES FONT oFont

   @ 3.00,5.00 PRINT TO oPrn TEXT "Address :" + CRLF + cName - CRLF - cCity - CRLF - cCountry ;
      AS BARCODE TYPE "QR-CODE" SIZE 1.2,1.2 INCHES

   @ 5.5, 1 PRINT TO oPrn TEXT TRIM( cName ) ;
      AS BARCODE TYPE "CODE128" SIZE 4,1 INCHES

   @ 9, 4 PRINT TO oPrn TEXT cItem AS BARCODE TYPE "EAN13" ;
      SIZE 4,1 INCHES

   ENDPAGE

   ENDPRINT

   RELEASE FONT oFont

return nil

//----------------------------------------------------------------------------//

 

[remtec]

Hola Leando y Karinha.

Muchas gracias por responder.

He revisado y leido varias publicaciones, y no logro dar con la solución y aplicar a mi código, estoy pensando en lo que dice Karinha que la versión de FWH 17.09, no me permite obtener lo que necesito.

1. Teniendo los datos de Nombre, Fecha, Resultado y Nro de Informe, con estos datos, generar el codigo QR.
2. Imprimir informe correspondiente con estos datos y además impreso el código QR, con los datos del punto 1.
3. Validar el informe leyendo el código QR, que debiera mostrar los datos con los que fue generado.

Puedo hacer esto con esta versión o una superior realizar este proceso.

Como seria el proceso de lectura del código y mostrar los datos contenidos?

Muchos Saludos.
Antonio.

[karinha]

https://www.codigos-qr.com/lectores-codigos-qr/

Mi querido amigo, actualiza tu FiveWin, usa siempre lo más moderno y si no tienes lo que necesitas, pregunta al Maestro Nages, por favor.

Regards, saludos.