Nesse vídeo demonstraremos a utilização da função Space, que serve para replicar espaços em branco conforme quantidade informada.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe452
Retorna uma string com a quantidade de espaços replicada
@type Function
@author Atilio
@since 31/03/2023
@see https://tdn.totvs.com/display/tec/Space
@obs 

    Função Space
    Parâmetros
        + nCount    , Numérico      , Tamanho de espaço que será replicado
    Retorno
        + cRet      , Caractere     , Retorna a string com espaços

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

User Function zExe452()
    Local aArea     := FWGetArea()
    Local nTamanho  := 0
    Local cString   := ""

    //Deixa com 10 espaços
    nTamanho := 10
    cString  := Space(nTamanho)
    FWAlertInfo("O Resultado é: '" + cString + "'", "Teste 1 Space")

    //Deixa com o tamanho de um campo
    nTamanho := TamSX3("B1_DESC")[1]
    cString  := Space(nTamanho)
    FWAlertInfo("O Resultado é: '" + cString + "'", "Teste 2 Space")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++