#Include "TOTVS.CH"
#define PRODUCT_MODE "PRODUCT_MODE"
#define ONE_D_MODE "ONE_D_MODE"
#define QR_CODE_MODE "QR_CODE_MODE"
#define DATA_MATRIX_MODE "DATA_MATRIX_MODE"
#define AZTEC_MODE "AZTEC_MODE"
#define PDF417_MODE "PDF417_MODE"
User Function readBarcode()
LOCAL oMbl
LOCAL cBarType
LOCAL aBarResult
LOCAL sMsg
oMbl:= TMobile():New()
cBarType:= PRODUCT_MODE;
aBarResult:= oMbl:BarCode(cBarType)
If aBarResult[1] = ""
sMsg := "Nenhum código de barras foi lido."
Else
sMsg := "Código de barras lido:" + chr(13) + chr(13) + "Código: " + aBarResult[1] + chr(13) + "Formato: " + aBarResult[2]
EndIf
MsgInfo(sMsg)
Return |