No artigo de hoje vamos demonstrar em como baixar e utilizar o aplicativo TOTVS BarCode Scan para fazer leituras de QRCode e códigos de barras.
- Faça o Download do TOTVS BarCodeScan disponível em https://suporte.totvs.com/portal/p/10098/download#all/all/all/search/Barcode_scan
- Copie o executável (barcode_scan.exe) para dentro da pasta do smartclient em que você vai utilizar
- Agora iremos criar uma função, onde no AfterLogin iremos adicionar um atalho sendo acionado pelo Shift+F5
User Function AfterLogin()
Local aArea := FWGetArea()
SetKey(K_SH_F5, {|| u_zBarCode()})
FWRestArea(aArea)
Return
- Agora ao abrir qualquer tela do Protheus, basta o usuário pressionar o Shift F5, que irá acionar a função abaixo
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zBarCode
Aciona a abertura do TOTVS BarCode Scan
@type Function
@author Atilio
@since 06/02/2023
/*/
User Function zBarCode()
Local aArea := FWGetArea()
Local cPastaSmart := GetClientDir()
Local cPrograma := "barcode_scan"
//Aciona a abertura do TOTVS BarCode Scan e deixa na bandeja do sistema operacional
ShellExecute("Open", cPastaSmart + cPrograma, "-systray", cPastaSmart, 1)
FWAlertInfo("Após selecionar o código, cole utilizando Ctrl+V", "BarCode Scan")
FWRestArea(aArea)
Return
- Após o usuário pressionar Shift F5, será exibido uma mensagem, e aparecerá o ícone do TOTVS BarCode Scan na bandeja do sistema operacional
Ícone na bandeja do sistema
- Ao clicar com o botão direito em cima do ícone, nós temos a opção Escaneia, a opção Sobre e a opção Sair
Opções ao clicar com o botão direito
- A opção Escaneia, deixa a tela do computador com uma tonalidade branca, sendo possível selecionar e capturar uma área com um QRCode (ou outros tipos de código, vide o item 8 e as observações abaixo)
- Já na opção Sobre, é exibido uma listagem de opções disponíveis para utilizar com o TOTVS BarCode Scan
Lista de comandos
Obs: Se precisar ler outros tipos de código, sem ser QRCode veja na imagem sobre os comandos e adicione após o -systray, por exemplo, se quiser ler um código de barras 128 seria -systray -code128.
Referências:
Bom pessoal, por hoje é só.
Abraços e até a próxima.
