OM20AVO3 Ponto de entrada que será executado na alteração da Requisição de Peças (OFIOM020)

Descrição:

Novo Ponto de Entrada OM20AVO3, que será executado na alteração da requisição de peças.

Disparado a cada registro alterado e possibilita o usuário customizar ações a cada registro do VO3.

Eventos:

..........

    If !Empty( M->VO3_FORMUL ) .AND. VO3->VO3_FORMUL <> M->VO3_FORMUL
        If ( aPecasAlt[iP,4] # M->VO3_TIPTEM .Or. VOI->VOI_VLPCAC <> "1" )  // CONSIDERA O PRECO ATUAL DA PECA
            RecLock("VO3",.F.)
            VO3->VO3_FORMUL := M->VO3_FORMUL
            VO3->VO3_VALPEC := FG_VALPEC(M->VO3_TIPTEM,"M->VO3_FORMUL",aPecasAlt[iP,7],aPecasAlt[iP,8],,.f.,.t.)
            // Se for alterada a formula, deve ZERAR valor de desconto ...
            If lCpoDesconto
                VO3->VO3_VALLIQ := VO3->VO3_VALPEC
                VO3->VO3_VALDES := 0
                VO3->VO3_PERDES := 0
            EndIf
            //
            MsUnLock()
        Else
            MsgStop(STR0120,STR0075)  // "Impossivel alterar a Formula. Para este Tipo de Tempo somente o preco de requisicao é valido!" / Atenção
        EndIf
    EndIf

    // Valida se o valor esta correto
    If !FS_VALVLR160(VO3->VO3_GRUITE,VO3->VO3_CODITE,VO3->VO3_VALPEC)
        lRet := .f.
        DisarmTransaction()
        Break
    EndIf
   
    //Ponto de entrada que será executado na alteração da requisição de peças.
    //Ele é disparado a cada registro alterado e possibilita o usuário customizar ações à cada registro do VO3
    if ExistBlock("OM20AVO3")
        ExecBlock("OM20AVO3",.f.,.f.,)
    Endif

..........

Função:

FS_ALTREQ()