Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Grid MVC sobrescrevendo valores

Ocorrência
Tenho uma rotina MVC onde ao alterar a linha acima o valor é replicado na linha abaixo.

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – Todas as versões

Causa
O problema ocorre quando utilizamos o método AddCalc(), pois a função utilizada no Calc retira o posicionamento correto do grid e não retorna a posição anterior. O Calc depende do posicionamento correto para seu funcionamento.

Solução
Para resolver este problema basta utilizar as funções FWSaveRows() e FwRestRows().

Exemplo:

aLinhas := FWSaveRows()
    For nI := 1 To oGrid:Length()

        oGrid:GoLine(nI)

        If(!oGrid:IsDeleted())

            nValTot := oHead:GetValue('ZZ2_VALOR')
            nRet    += oModel:GetValue('MD_ZZ3DETAIL','ZZ3_TOTAL')
        Endif

        //oGrid:GoLine(nLine)

    Next nI
FWRestRows(aLinhas)

Saiba Mais
FWSaveRows
FWRestRows