Nesse vídeo demonstraremos em como criar um Array com tamanho pré determinado de posições através da função Array.

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

//Bibliotecas
#Include "TOTVS.ch"
 
/*/{Protheus.doc} User Function zExe038
Exemplo de função que cria um array com as posições fixas (não pode usar aAdd depois que é criado, somente aIns com aSize)
@type Function
@author Atilio
@since 28/11/2022
@see https://tdn.totvs.com/display/tec/Array
@obs 
    Função Array
    Parâmetros
        + nElementos1  , Numérico  , Número de elementos do Array
        + nElementos2  , Numérico  , Número de sub-elementos do Array 1 
        + nElementos3  , Numérico  , Número de sub-elementos do Array 2 
        + nElementos4  , Numérico  , Número de sub-elementos do Array 3 
        + nElementos5  , Numérico  , Número de sub-elementos do Array 4 
        + nElementos6  , Numérico  , Número de sub-elementos do Array 5 
        + nElementos7  , Numérico  , Número de sub-elementos do Array 6 
        + nElementos8  , Numérico  , Número de sub-elementos do Array 7 
        + nElementos9  , Numérico  , Número de sub-elementos do Array 8 
        + nElementos10 , Numérico  , Número de sub-elementos do Array 9 
        + nElementos11 , Numérico  , Número de sub-elementos do Array 10
        + nElementos12 , Numérico  , Número de sub-elementos do Array 11
        + nElementos13 , Numérico  , Número de sub-elementos do Array 12
        + nElementos14 , Numérico  , Número de sub-elementos do Array 13
        + nElementos15 , Numérico  , Número de sub-elementos do Array 14
        + nElementos16 , Numérico  , Número de sub-elementos do Array 15
    Retorno
        + aRet         , Array     , Retorna o Array criado conforme as dimenões passadas
 
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
 
User Function zExe038()
    Local aArea     := FWGetArea()
    Local aDados
    Local aDados2
 
    //Cria um Array com 3 posições
    // Exemplo: [x][x][x]
    aDados := Array(3)
    aDados[1] := "Daniel Atilio"
    aDados[2] := "Terminal de Informação"
    aDados[3] := "Atilio Sistemas"
 
    //Cria um Array com 3 linhas, cada uma com 2 colunas
    // Exemplo:
    //  1: [x, y]
    //  2: [x, y]
    //  3: [x, y]
    aDados2 := Array(3, 2)
    aDados2[1][1] := "Daniel Atilio"
    aDados2[2][1] := "Terminal de Informação"
    aDados2[3][1] := "Atilio Sistemas"
 
    aDados2[1][2] := "https://www.linkedin.com/in/daniel-atilio/"
    aDados2[2][2] := "https://terminaldeinformacao.com/"
    aDados2[3][2] := "https://atiliosistemas.com/"
 
    //Mostra uma mensagem
    FWAlertInfo("aDados tem " + cValToChar(Len(aDados)) + " elementos, e aDados2 tem " + cValToChar(Len(aDados2)) + " linhas", "Exemplo de Array")
 
    FWRestArea(aArea)
Return

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

Tags: AdvPLMaratonaProtheusTL++