Hola Hernan; Agradezco muchísimo la sugerencia, la ayuda, y sobre todo tu tiempo.
Puede que entendí mal, pensé que hay una forma de quitarlo desde Origen, desde "La app Zbar".
Fijando en la imagen que adjuntaste, di cuenta, que me diste la solución. Creo que no es comparable quitar el
"QR-Code:" aplicando esta línea : nPos = STRTRAN(ALLTRIM(cString), "QR-Code:", "")
que con las líneas que Usted aplicó:
**MessageBox(M.cString)
M.cString = alltrim(M.cString)
M.cString = alltrim(M.cString,chr(13)+chr(10),chr(13))
M.cString = alltrim(M.cString,chr(13)+chr(13),chr(13))
If upper(left(alltrim(M.cString),8))==upper("QR-Code:")
M.cString = alltrim(substr(alltrim(M.cString),9))
Endif
Ahora si, todo en orden, De nuevo Te doy la gracias, 🙏 , y a toda esta gente maravillosa que esta en este grupo.
En el botón ESCANEAR, Cambie el código con lo siguiente:
*-----------------------------------------------------------------------------
lcFicheroAbrir = Addbs(Fullpath(Curdir())) + "capturaqr.txt"
Comando = Addbs(Fullpath(Curdir())) + "zbar.bat"
TRY
DELETE FILE (lcFicheroAbrir)
DECLARE INTEGER ShellExecute IN shell32.dll ;
INTEGER hwnd,;
STRING lpOperation, ;
STRING lpFile, ;
STRING lpParameters, ;
STRING lpDirectory, ;
INTEGER nShowCmd
ShellExecute(0, "open", Comando, "", "", 0)
CATCH
MESSAGEBOX("Posiblemente ya tiene abierta la utilidad ZBAR")
ENDTRY
thisform.chkautomatico.enabled = .t.
thisform.chkautomatico.Value = .t.
*--------------------------------------------------------------------------------
con el fin de quitar el CMD, esto por si alguien usa esta ejemplo.
Un Cordial saludo.