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

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 …”

Inkey(0)

nLin := 5

Endif

Next i

EndDo

Estude para provas de certificações em TI com os simulados Bynem

Veja também: