Pular para o conteúdo
Início » Advpl Estrut

Advpl Estrut

    Tipo: Processamento

    Função para obtenção da estrutura de um produto previamente cadastrada no SG1 através dos Módulos “SIGAEST” ou “SIGAPCP”.

    Sintaxe

    Estrut(cProduto)

    Parâmetros

    cProduto – Código do produto PAI da estrutura.

    Retorna

    aStru – Retorna o array com a estrutura do produto na seguinte sintaxe:

    { {Nº , Código , Comp. , Qtd. , TRT }, … , … }

    Esta função requer que seja declarada a variável chamada “nEstru” contendo 0, para o seu correto funcionamento.

    Exemplo

    // Exemplo de uso da funcao Estrut:

    cPrd := Space(15)

    aStru := {}

    nEstru := 0

    While .T.

    @ 10,10 Say “Codigo do Produto: “

    @ 10,30 Get cPrd Picture “@!” Valid(!Empty(cPrd))

    Read

    If LastKey() == 27

    Exit

    Endif

    If !ExistCpo(“SB1”,cPrd)

    Loop

    Endif

    i:= 0

    aStru := Estrut(cPrd) // Obtem a estrutura

    nLin := 5

    For i := 1 To Len(aStru)

    @nLin,00 Say “Comp.: “+aStru[i,3]

    @nLin,20 Say “Quant.: “+Str(aStru[i,4],15)

    nLin := nLin + 1

    If nLin > 23

    @24,00 Say “Tecle <ENTER>…”

    Inkey(0)

    nLin := 5

    Endif

    Next i

    EndDo