Regra para alteração de registro MVC

Boa noite!

Tenho uma rotina em MVC que utiliza o controle de transação do próprio MVC para gravar inclusões/alterações/exclusões (bCommit em branco no MpFormModel). Exemplo:

oModel := MpFormModel():New('FATA46MVC',{ |oModel| fPreVld(oModel) },{ |oModel|fVldSave(oModel)},/*Save*/)

Na alteração de registros que possuam o status igual a 2 (ZXR_STATUS == '2'), preciso que ele tenha seu valor alterado para 0 (ZXR_STATUS := '0') e outro campo tenha seu valor alterado para vazio (ZXR_NUMCAR := ''). O usuário não tem permissão de alterar esses campos, pois são de apenas visualização. Consegui fazer alterando o bloco bCommit do MpFormModel, mas não sei se estou seguindo as melhores práticas.

oModel := MpFormModel():New('FATA46MVC',{ |oModel| fPreVld(oModel) },{ |oModel|fVldSave(oModel)},{ |oModel|fSave(oModel)})

Static Function fSave(oModel)
Local lRet := .T.
Local nOpc := oModel:GetOperation()

      lRet := FwFormCommit(oModel)

      If(nOpc == MODEL_OPERATION_UPDATE)

         If(lRet .and. ZXR->ZXR_STATUS == '2')

            RecLock('ZXR',.F.)
               ZXR->ZXR_STATUS := '0'
               ZXR->ZXR_NUMCAR := ''
            ZXR->(MsUnlock())

         Endif

      Endif

Return(lRet)

Essa é a melhor maneira de fazer esse processo?

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl mvc ou faça a sua própria pergunta.