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