Hola ,,, es una funcion que genera un archivo bat y este llama la apliacion zbar, obtiene la codificacion del qr,
lo guarda en un archivo de texto y simplemente lo llamomos y listo ,, nos da la codificacion
este muy util porque con esto podemos validar el contenido del qr,, aca para las factura en mexico con esto valido que no impriman mas del rango del permitido ,,,
saludos
la liga de zbar donde tienen que bajar los binarios es http://zbar.sourceforge.net/download.html]
la funcion es esta
lo guarda en un archivo de texto y simplemente lo llamomos y listo ,, nos da la codificacion
este muy util porque con esto podemos validar el contenido del qr,, aca para las factura en mexico con esto valido que no impriman mas del rango del permitido ,,,
saludos
la liga de zbar donde tienen que bajar los binarios es http://zbar.sourceforge.net/download.html]
la funcion es esta
Benjamin Casarrubias Moreno
<!-- e --><a href="mailto:chino72vale@hotmail.com">chino72vale@hotmail.com</a><!-- e -->
d. obregon, sonora, mexico
*/
#include "FiveWin.ch"
MEMVAR CERTI
FUNCTION Mcerti(oWND)
LOCAL OBTN, Tgrabar:=.f., oDLG
LOCAL Oruta1, Cruta1:=space(120)
LOCAL Ocontra, Ccontra:=space(20)
PUBLI CERTI
DEFINE DIALOG oDlg FROM 1, 1 TO 18, 85 TITLE "Leer archivos Qr " of oWND
@ 1.0, 1 Say "Ruta Imagen " Of Odlg
@ 1,9 Get ORuta1 Var cruta1 Of Odlg size 210,10 valid( cruta1:=cgetfile(cruta1,"archivo imagen Qr"), oruta1:refresh(),.t. )
@ 6, 4 BUTTON "&Extraer datos" OF oDlg SIZE 70, 14 action msginfo( flector(cruta1) )
@ 6, 20 BUTTON "&Salir" OF oDlg ACTION (Tgrabar:=.f.,odlg:end());
SIZE 55, 14
ACTIVATE DIALOG oDlg CENTER
Return Nil
Function Flector(xruta1)
LOCAL i:=0
LOCAL DEV:=""
LOCAL Cbat:=""
cbat:="zbarimg -q "+alltrim(xruta1)+" >texto.txt"
Memowrit("zbarimg.bat", cbat) // ESTO LO HAGO PORQUE NO ME LO EJECUTA BIEN CON WINEXEC DIRECTAMENTE
winEXEC("zbarimg.bat","SW_HIDE")
dev:=MemoRead("texto.txt")
Return devBenjamin Casarrubias Moreno
Cd. Obregón, Sonora, México
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturación Electrónica, XML DIOT 2025
Cd. Obregón, Sonora, México
chino72vale@hotmail.com
Fivewin 24.04, Harbour 3.3, xharbour 1.2.1, Fivelinux, Visual Estudio 2022
Oracle Api Rest, SDK Contpaq, Facturación Electrónica, XML DIOT 2025