Estrut2

Função que carrega a Estrutura de um Produto (SG1) em uma tabela temporária

Exemplo da Rotina:

Private nEstru := 0

Estrut2(cCodProd, nQuantid, cAliasTmp)

FimEstrut2()

Exemplo 1- Executando a estrutura e percorrendo os dados:


//Variáveis Private para utilização da função Estrut2
Private cAliasTmp   := "ESTRUT"
Private nEstru      := 0

//Cria a estrutura temporária
Estrut2(cCodProd, nQuant, cAliasTmp)

//Se houver dados
(cAliasTmp)->(DbGoTop())
If ! (cAliasTmp)->(EoF())
	
	//Enquanto houver dados, mostra uma mensagem do produto, componente e quantidade
	While ! (cAliasTmp)->(EoF())
		
		Alert("Produto: " + (cAliasTmp)->CODIGO + ", Componente: " + (cAliasTmp)->COMP + ", Quantidade: " + cValToChar((cAliasTmp)->QUANT))
		
		(cAliasTmp)->(DbSkip())
	EndDo
	
Else
	MsgStop("Estrutura não encontrada!", "Atenção")
EndIf

//Finaliza a função de estrutura
FimEstrut2()

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;

– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

TDN

Deixe uma resposta

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.

Amazon