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;