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

Exemplo da Rotina:

Local oTempTable    := Nil
Private nEstru := 0

Estrut2(cCodProd, nQuantid, cAliasTmp, @oTempTable)

FimEstrut2(Nil, @oTempTable)

Exemplo 1- Executando a estrutura e percorrendo os dados:

Local oTempTable    := Nil

//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, @oTempTable)

//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(Nil, @oTempTable)

 

Exemplo em Vídeo:

Clique nesse link para ver um exemplo em Vídeo da nossa Maratona de Exemplos.

 

Observações:

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

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

– Função aprimorada com correções enviada por Thiago.Andrrade;

Referências:

– TDN