totalizar campo grid filho com base em itens do neto

Pessoal, tenho uma duvida em relacao a totalizar um campo filho num mvc conforme linhas do campo neto.

digamos que eu tenha um cabecalho com campos codigo do cliente e nome do cliente ZD1_COD, ZD1_CLIENTE

tenho uma grid filho com ZD2_COD, ZD2_PRODUTO, ZD2_PESOTOTAL

tenho uma grid neto com ZD3_COD, ZD3_PRODUTO, ZD3_PESO

quero me posicionar na linha do filho e ir preenchendo a grid neto, e ao preencher preciso popular o ZD2_PESOTOTAL com a soma de todos os ZD3_PESO

para pegar o total faço algo assim

For _nx:=1 To oModelNNT:Length() soma_peso+= oModelNNT:GetValue('ZD3_PESO') Next

mas nao estou conseguindo jogar essa variavel para o ZD2_PESOTOTAL

alguma dica ?

totalizar

criado 5 days ago
Divairz
59 pontos
editado 5 days ago

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

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.)

editar
- x
grosseiro ou ofensivo pouco construtivo obsoleto outro...
Motivo

criado 2 days ago
Divairz
59 pontos

up 0 down
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.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 2 days ago
  Carina Santoro
  2 pontos
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

totalizar campo grid filho com base em itens do neto

Comentário

2 respostas

Comentário

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags totalizar ou faça a sua própria pergunta.