segunda-feira, 30 de junho de 2014

Customizando Erro msExecAuto




A inclusão do complemento do erro do msExecAuto deve ser feito somente após executar o msExecAuto e também somente se a variável de controle de erro for verdadeira, pois se adicionar a informação, a chamada da função AutoGrLog irá setar o lMSErroAuto como verdadeiro, ou seja, como se houvesse algum erro.

lMsErroAuto := .F.
MSExecAuto({|x,y,z| Fina050(x,y,z)},aVetor,,3)
If lMsErroAuto
   AutoGrLog( "Data.........: " + DtoC(Date()) )
   AutoGrLog( "Hora.........: " + Time() )
   AutoGrLog( "Aonde........: ExcluiOP " )
   AutoGrLog( "Registro.....: " + TMP->PREFIXO + TMP->PARCELA + TMP->TITULO )

   MostraErro()
EndIf

Nenhum comentário:

Postar um comentário