Page 1 of 1
Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 2:08 pm
by 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
oWord:ActiveDocument:SaveAs(cDestinop + cSavep)
oWord:ActiveDocument:PrintOut() // Imprime.
oWord:ActiveDocument:Close() // oWord:Documents:Close()
Re: Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 4:03 pm
by karinha
Re: Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 4:34 pm
by 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
Re: Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 6:25 pm
by 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.
Re: Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 9:15 pm
by leandro
En los ejemplos de fw
Barcod01.prg
Code: Select all
#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
//----------------------------------------------------------------------------//
Re: Ayuda con Codigo QR
Posted: Tue Sep 15, 2020 1:00 am
by 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.
Re: Ayuda con Codigo QR
Posted: Tue Sep 15, 2020 1:43 pm
by 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.