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.

1. Faça o Download do TOTVS BarCodeScan disponível em https://suporte.totvs.com/portal/p/10098/download#all/all/all/search/Barcode_scan

2. Copie o executável (barcode_scan.exe) para dentro da pasta do smartclient em que você vai utilizar

3. 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

4. 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

5. 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

6. 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

7. 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)

8. 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:

• TDN – Barcode scan

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus