TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 10 Próxima »

Classe: TMobile

Mobile é uma classe utilitária que reúne diversos métodos focados na plataforma móvel TOTVS | FatClient Embarcado que atualmente está disponível para Android.

 

Hierarquia

TMobile

 

New

Método construtor da classe.

 

Sintaxe

 TMobile(): New () --> oObjeto

 

Retorno

oObjeto

  • Retorna o objeto criado.

 

Exemplo
oMbl := TMobile():New()

Efetua a leitura de código de barras

Sintaxe

TMobile(): Barcode ( < cBarType > ) --> aResult

 

Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cBarTypeCaracterRestringe os tipos de códigos de barras que poderão ser lidos (consulte a área de observações abaixo para conhecer os valores possíveis para este parâmetro).  

 

Retorno
aResult
  • Retorna um vetor de duas posições do tipo caractere.
  • A primeira posição do vetor contém o valor decodificado do código de barras.
  • A segunda posição do vetor contém o nome do tipo de código de barras lido (por exemplo: UPC_A, EAN_8, QR_CODE, etc).
  • Se o usuário pressionar o botão voltar do dispositivo, nenhum código será lido e as duas posições do vetor estarão vazias.


Observações
  • A leitura de código de barras é realizada via integração com o aplicativo gratuito Barcode Scanner disponível para download no Google Play Store. Caso o aplicativo não esteja previamente instalado, na primeira chamada ao método TMobile():Barcode(), o usuário será redirecionado para a página específica do aplicativo Barcode Scanner no Google Play Store para realizar a instalação. Assim que o dispositivo exibir a mensagem de que a instalação foi bem sucedida, bastará ao usuário pressionar o botão voltar do dispositivo para que a integração continue, isto é, o aplicativo Barcode Scanner será aberto e, após a leitura do código de barras, o valor será retornado ao programa AdvPL.
  • Utilize um dos tipos abaixo no parâmetro cBarType para restringir os tipos de códigos de barras que poderão ser lidos:
Tipo de código de barrasRestrição de decodificação
PRODUCT_MODEDecodifica somente códigos de barras UPC e EAN. Estes são os tipos mais usados para definir as características e os preços de produtos.
ONE_D_MODESomente código de barras de uma dimensão.
QR_CODE_MODESomente código de barras QR Code (código de duas dimensões).
DATA_MATRIX_MODESomente código de barras Data Matrix (código de duas dimensões).
AZTEC_MODESomente código de barras Aztec (código de duas dimensões).
PDF417_MODESomente código de barras PDF417 (código de duas dimensões).



Exemplo 1
aBarResult:= oMbl:BarCode("PRODUCT_MODE")
Exemplo 2
#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

Obtém uma lista contendo nomes e endereços dos dispositivos Bluetooth pareados

Sintaxe

TMobile(): GetPairedBluetoothDevices( ) --> aDevicesResult

 

Retorno
aDevicesResult
  • Retorna um vetor multidimensional contendo nomes e endereços dos dispositivos Bluetooth pareados.
  • A primeira posição da segunda dimensão da matriz é do tipo caractere e contém o nome de um dispositivo Bluetooth pareado.
  • A segunda posição da segunda dimensão da matriz é do tipo caractere e contém o endereço no formato 00:00:00:00:00:00 que é único e exclusivo para cada dispositivo.
  • As posições estarão vazias caso nenhum dispositivo esteja pareado ou a interface Bluetooth esteja disativada.

 

Exemplo
aDevicesResult:= oMbl:GetPairedBluetoothDevices()
Exemplo 2
User Function pairedBtDev()
	LOCAL oMbl
	LOCAL aDevicesResult
	Local i
 
	oMbl:= TMobile():New()

	aDevicesResult:= oMbl:GetPairedBluetoothDevices()
	
	sMsg := ""
	For i := 1 to len(aDevicesResult)
		sMsg := sMsg + "Nome: " + aDevicesResult[i][1] + chr(13)
		sMsg := sMsg + "Endereço: " + aDevicesResult[i][2] + chr(13) + chr(13)
	Next i
	
	If sMsg = ""
		sMsg := "Nenhum dispositivo pareado ou interface Bluetooth desligada."
	Else
		sMsg := "Dispositivos Bluetooth Pareados:" + chr(13) + chr(13) + sMsg
	EndIf
	
	MsgInfo(sMsg)
Return
  • Sem rótulos