Agro - Linha Protheus - AGR - Exemplo de Utilização em Rotina Automática MVC - Entidade OGA010 – Central de Atendimento TOTVS

Tempo aproximado para leitura: 00:01:15 min

Dúvida
Como é realizado um procedimento para Exemplo de Utilização em Rotina Automática MVC - Entidade OGA010?

Ambiente
TOTVS Agro - TOTVS Agro - Comercialização (Linha Protheus) - Originação de Grãos (OG) - Versão 12

Solução
Para solucionar essa dúvida, realize o seguinte procedimento:

User Function zDelReg()<font></font>

    Local lRet := .F.<font></font>

    Local oModel := Nil<font></font>

     <font></font>

    dbSelectArea("NJ0")<font></font>

    NJ0->(DbSetOrder(1))<font></font>

    If NJ0->(DbSeek(xFilial("NJ0") + '990001'))<font></font>

        oModel  := FWLoadModel('OGA010')   <font></font>

        oModel:SetOperation(MODEL_OPERATION_DELETE) //EXCLUSÃO<font></font>

        oModel:Activate()<font></font>

        <font></font>

        If oModel:VldData() //valida os dados<font></font>

            oModel:CommitData() //realiza a gravação do registro<font></font>

            MsgInfo("Registro excluido com sucesso")   <font></font>

            lRet := .T.<font></font>

        Else   <font></font>

            VarInfo("",oModel:GetErrorMessage())<font></font>

            MsgAlert("Erro ao excluir o registro")<font></font>

        EndIf <font></font>

    Else<font></font>

        MsgInfo("Registro não localizado!")<font></font>

    EndIf<font></font>

 <font></font>
return lRet

Olá,

Agro - Linha Protheus - AGR - Exemplo de Utilização em Rotina Automática MVC - Entidade OGA010

0 Comentários

Olá ,

Olá ,

Olá ,

Olá,