MNTA6561

Faz tratativas no MNTA656 (Abastacimento em Lote)

Exemplo da Rotina:

User Function MNTA6561()
	//Tratativas
Return

Exemplo 1- Verificando o tipo de operação:

User Function MNTA6561()
	Local aArea := GetArea()
	
	If "VISUAL" $ Upper(cCadastro)
		//Está visualizando
	 
	Else
		If INCLUI
			//Está incluindo
		Endif
	 
		If ALTERA
			//Está alterando
		Endif
	Endif
	
	RestArea(aArea)
Return

Exemplo 2- Salvando um log em uma tabela customizada se for inclusão ou alteração:

User Function MNTA6561()
	Local aArea := GetArea()
	
	If INCLUI .Or. ALTERA
		RecLock("ZZZ", .T.)
			ZZZ->CAMPO1 := "AAA"
			ZZZ->CAMPO2 := "AAA"
			ZZZ->CAMPO3 := "AAA"
			ZZZ->CAMPO4 := "AAA"
		ZZZ->(MsUnlock())
	Endif
	
	RestArea(aArea)
Return

Observações:

Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
Se tiver sugestões de rotinas, pode entrar em contato;
Exemplo enviado por Cássio Winkler;

Referências:

Universo AdvPL

Relacionado