totalizar campo grid filho com base em itens do neto

consegui resolver oStruNeto:SetProperty('ZD3_QUANT', MODEL_FIELD_VALID, FwBuildFeature( STRUCT_FEATURE_VALID, 'u_atuqgrd(1)')) na validação do campo eu coloquei uma função que faz o que precisa fazer e ajsuta o total

user function atuqgrd(nOp)

    local _nx
    Local aArea        := FWGetArea()
    local nQuant       := 0.00
    local nPliq        := 0.00
    local _nLinhaAtu   := 0
    local nPliqTot     := 0.0
    local nVal         := 0.00
    Local oGriFil,oGridNeto := Nil

    local oModel := FWModelActive()
    Local oView     := FwViewActive()

    oGriFil   := oModel:GetModel("ZD2DETAIL")
    oGridNeto := oModel:GetModel("ZD3DETAIL")

    _nLinhaAtu := oGridNeto:nLine

    if nOp == 1
        nQuant :=  M->ZD3_QUANT
        nPliq  :=  oGridNeto:GetValue('ZD3_PESLIQ')
    else
        nQuant :=  oGridNeto:GetValue('ZD3_QUANT')
        nPliq  :=  M->ZD3_PESLIQ
    endif
    nVal   := oGriFil:GetValue('ZD2_VLUNIT')

    oGridNeto:SetValue("ZD3_PBLTOT", nPliq *  nQuant )


    For _nx:= 1 To oGridNeto:Length()
        oGridNeto:GoLine(_nx)
        nPliqTot +=  oGridNeto:GetValue('ZD3_PBLTOT')
    Next

    oGriFil:SetValue("ZD2_PLIQTO", nPliqTot )
    nPBruTot:= oGriFil:GetValue('ZD2_PBRUTO')


    For _nx:= 1 To oGridNeto:Length()
        oGridNeto:GoLine(_nx)
        nAux := oGridNeto:GetValue('ZD3_PBLTOT') / nPliqTot * nPBruTot
        oGridNeto:SetValue("ZD3_PBRUNI", nAux )
        oGridNeto:SetValue("ZD3_VLITEM", nAux  * nVal)

    Next



    oGridNeto:GoLine(_nLinhaAtu)
    oView:Refresh()

    FWRestArea(aArea)


return(.t.)

Nice Blog!!! Thanks to Admin for sharing the above list. I visited many pages of your Blog. Really your Blog is Awesome. Keep Sharing such good Stories. Thanks.