Nesse vídeo será demonstrado em como baixar o TOTVS Barcode Scan e utilizar ele para leitura de códigos de barra junto com o Protheus.

Abaixo o vídeo no nosso canal no YouTube:

Abaixo o código fonte da função zTstBar:

#Include "TOTVS.ch"

/*/{Protheus.doc} AfterLogin
Ponto de entrada após carregar o dicionário
@type user function
@author Atilio
@since 21/04/2025
@version version
/*/

//User Function AfterLogin()
//    u_zTstBar()
//Return

/*/{Protheus.doc} zTstBar
Função para carregar em memória o atalho para abrir o programa BarCode Scan
@type user function
@author Atilio
@since 21/04/2025
/*/

User Function zTstBar()
    Local aArea := FWGetArea()
    Local cArqInterno := "\bcs\barcode_scan.exe" // https://tdn.totvs.com/display/tec/Barcode+scan
    Local cPasDestino := GetTempPath()
    Local cAqrDestino := "barcode_scan.exe"

    //Se o arquivo origem existir e o destino não
    If File(cArqInterno) .And. ! File(cPasDestino + cAqrDestino)
        
        //Copia da Protheus Data para a máquina local
        __CopyFile(cArqInterno, cPasDestino + cAqrDestino)

    EndIf

    //Se deu tudo certo com a cópia e o arquivo existir
    If File(cPasDestino + cAqrDestino)

        //Inicializa e mostra mensagem
        ShellExecute("Open", cPasDestino + cAqrDestino, " -systray -code128", cPasDestino, 1)
        FWAlertSuccess("Leitura de código de barras ativada, veja na bandeja do sistema operacional.", "BarCode Scan")

    EndIf

    FWRestArea(aArea)
Return

Abaixo alguns links que foram usados como apoio para montagem do vídeo:

• TDN – Barcode Scan: https://tdn.totvs.com/display/tec/Barcode+scan
• Canivete Suíço de Atalhos Úteis: https://terminaldeinformacao.com/2022/05/30/canivete-suico-de-atalhos-uteis-ti-responde-009/

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus