FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ayuda con Codigo QR
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 02:08 PM
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 (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oWord:ActiveDocument:SaveAs(cDestinop + cSavep)
聽 聽 聽聽 聽 聽 聽聽 聽 聽 聽 聽 聽 聽聽 聽oWord:ActiveDocument:PrintOut() 聽 聽 // Imprime.
聽 聽 聽聽 聽聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oWord:ActiveDocument:Close() 聽 聽 // 聽oWord:Documents:Close()
FWH 22.10 - HARBOUR - PELLES C
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 04:03 PM
Haga una busqueda,

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

Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 04:34 PM

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

FWH 22.10 - HARBOUR - PELLES C
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 06:25 PM

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

Saludos.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: Ayuda con Codigo QR
Posted: Fri Sep 11, 2020 09:15 PM
En los ejemplos de fw
Barcod01.prg

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

//----------------------------------------------------------------------------//
Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
remtec
Posts: 719
Joined: Fri May 12, 2017 02:50 PM
Re: Ayuda con Codigo QR
Posted: Tue Sep 15, 2020 01:00 AM

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.

FWH 22.10 - HARBOUR - PELLES C
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Ayuda con Codigo QR
Posted: Tue Sep 15, 2020 01:43 PM
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.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions