Nesse vídeo demonstraremos em como colocar uma informação na memória do sistema operacional (o mesmo que pressionar Ctrl+C) usando a função CopyToClipBoard.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe094
Exemplo de função para colocar uma informação no clipboard do sistema operacional
@type Function
@author Atilio
@since 11/12/2022
@see https://tdn.totvs.com/display/tec/CopytoClipboard
@obs 
    Função CopyToClipBoard
    Parâmetros
        + cTexto        , Caractere    , Texto que será enviado para a área de transferência do S.O.

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe094()
    Local aArea     := FWGetArea()
    Local cTexto    := ""

    //Abre a tabela de produtos, e pega a primeira descrição
    DbSelectArea("SB1")
    SB1->(DbSetOrder(1)) // Filial + Código
    cTexto := Alltrim(SB1->B1_DESC)

    //Coloca esse texto na clipboard
    CopyToClipBoard(cTexto)

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.
Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++