Boa noite!

Estou reformulando uma rotina e estou tendo dificuldades ao implementar um controle na grid do MVC.

Estou anexando uma foto e parte do código abaixo:

User Function ELFATA34
Local aArea         := GetArea()
Local oBrowse         := FwMBrowse():New()
Private cCadastro     := 'Conta Corrente de Fornecedores'
Private aRotina        := MenuDef() 

    oBrowse:SetAlias('ZKA')
    oBrowse:OptionReport(.F.)
    oBrowse:SetDescription(cCadastro)
    oBrowse:AddLegend("ZKA_STATUS == '1'", 'BR_VERDE'    , 'Competência em Aberto')
    oBrowse:AddLegend("ZKA_STATUS == '2'", 'BR_VERMELHO', 'Competência Fechada')
    oBrowse:Activate()

    RestArea(aArea)

Return 

Static Function MenuDef()
Local aRotina := {}

    Add Option aRotina Title 'Pesquisar'         Action 'AxPesqui'               Operation 1 Access 0
    Add Option aRotina Title 'Visualizar'         Action 'VIEWDEF.ELFATA34'     Operation 2 Access 0
    Add Option aRotina Title 'Incluir'             Action 'VIEWDEF.ELFATA34'     Operation 3 Access 0
    Add Option aRotina Title 'Alterar'             Action 'VIEWDEF.ELFATA34'     Operation 4 Access 0
    Add Option aRotina Title 'Excluir'             Action 'VIEWDEF.ELFATA34'     Operation 5 Access 0
    Add Option aRotina Title 'Imprimir'         Action 'VIEWDEF.ELFATA34'     Operation 8 Access 0

Return(aRotina)

Static Function ModelDef
Local oModel     := Nil
Local oStruHead    := FwFormStruct(1,'ZKA')
Local oStruGrid := FwFormStruct(1,'ZKB')

    //Monta o modelo principal
    oModel    := MpFormModel():New('CCFMVC',/*Pre-Validacao*/,/*Validação*/,/*Pós-Validação*/)
    oModel:SetDescription(cCadastro)    

    //Monta os dados do cabeçalho
    oModel:AddFields('ModelHead',,oStruHead)
    oModel:SetPrimaryKey({'ZKA_FILIAL','ZKA_MESANO','ZKA_CODFAB'})

    oModel:GetModel('ModelHead'):SetDescription(cCadastro)

    oStruHead:SetProperty('ZKA_MESANO', MODEL_FIELD_WHEN, {|| INCLUI})
    oStruHead:SetProperty('ZKA_CODFAB', MODEL_FIELD_WHEN, {|| INCLUI})

    //Monta os dados dos itens
    oModel:AddGrid('ModelGrid','ModelHead',oStruGrid,,{|oGrid| fLinOK(oGrid)},/*bPreGrid*/,/*bProsGrid*/)
    oModel:SetRelation('ModelGrid',{{'ZKB_FILIAL','ZKA_FILIAL'},{'ZKB_MESANO','ZKA_MESANO'},{'ZKB_CODFAB','ZKA_CODFAB'}}, ZKB->(IndexKey(1)) )

    oModel:GetModel('ModelGrid'):SetDescription('Itens')        
    oModel:GetModel('ModelGrid'):SetDelAllLine(.T.)
    oModel:GetModel('ModelGrid'):SetOptional(.F.)    

Return(oModel)

Static Function ViewDef
Local oView        := Nil
Local oModel    := FwLoadModel('ELFATA34') 
Local oStruHead    := FwFormStruct(2,'ZKA')
Local oStruGrid := FwFormStruct(2,'ZKB')

    //Não exibe o folder visual caso algum campo esteja inserido em um
    oStruHead:SetNoFolder()

    oView:= FwFormView():New() 
    oView:SetModel(oModel)              

    //Crio o cabeçalho e os grids de acordo com o modelo
    oView:AddField('ViewHead', oStruHead, 'ModelHead')
    oView:AddGrid ('ViewGrid', oStruGrid, 'ModelGrid')

    //Crio uma layer com 30% da tela e outra com 70% da tela, similar a FwLayer
    oView:CreateHorizontalBox('MAIN',30)
    oView:CreateHorizontalBox('GRID',70)

    //Informo os devidos títulos das telas
    oView:EnableTitleView('ViewHead','Resumo do Conta Corrente')
    oView:EnableTitleView('ViewGrid','Movimentações do Conta Corrente')

    //Informo a porcentagem da tela que cada view deve ocupar
    oView:SetOwnerView('ViewHead','MAIN')
    oView:SetOwnerView('ViewGrid','GRID')

Return(oView)

Static Function fLinOK(oGrid)
Local nX
Local nValTot     := 0
Local oModel      := FwModelActive()

    oGrid:GoLine(oGrid:nLine)

    If(oGrid:GetValue('ZKB_ORIGEM') == 'A')

        Help(,,'Não é permitida a alteração',,'Não é permitida a alteração de lançamentos de origem automática!',1,0,,,,,,{'Caso necessite, efetue o recálculo dos valores através de Outras Ações > Calc. Moviment.'})
        Return .F.

    Endif

    If(oModel:GetValue('ModelHead','ZKA_STATUS') == '2')

        Help(,,'Não é permitida a alteração',,'Não é permitida a alteração de um conta corrente com competência fechada!',1,0,,,,,,)
        Return .F.

    Endif

    For nX := 1 To oGrid:GetQtdLine()

        oGrid:GoLine(nX)

        If(!oGrid:IsDeleted())

            If(oGrid:GetValue('ZKB_RECPAG') == 'C')

                nValTot += oGrid:GetValue('ZKB_VALOR')

            Else

                nValTot -= oGrid:GetValue('ZKB_VALOR')

            Endif


        Endif

    Next

    oModel:SetValue('ModelHead','ZKA_SALPER',nValTot)
    oModel:SetValue('ModelHead','ZKA_SALATU',oModel:GetValue('ModelHead','ZKA_SALANT') + nValTot)

Return .T.

Observe a imagem em anexo, caso aquela movimentação possuir a origem como A - Automático, o usuário só vai poder alterar o campo Obs. Movime. (ZKB_OBSERV). Demais campos o mesmo não vai poder alterar.

Consegui efetuar um controle de forma que o mesmo não consiga alterar nenhum campo caso a origem seja A, mas preciso também criar uma validação de forma que o sistema não critique caso a mudança seja feita no campo Obs. Movime.

Caso a movimentação possuir a origem for M - Manual, o usuário tem liberdade de alterar qualquer campo que desejar na grid.

Alguém saberia uma forma de como posso estar efetuando essa validação?

Agradeço desde já pela atenção.