Repetir linha Grid MVC

Olá, tenho uma rotina que na grid é apresentada a coluna ZC6_ID, ZC6_TABELA e ZC6_CAMPO, as colunas ID e TABELA são preenchidas por gatilho na linha 1.

Preciso que estes dados sejam copiados para a próxima linha, tentei usar _oView:SetViewProperty("VIEW_ZC6","CHANGELINE",{{ || U_fLineZC6() }})

User Function fLineZC6()

Local lRet      := .T.
Local oModel    := FWModelActive()
Local cFilZC6   := xFilial("ZC6")
Local cId       := oModel:GetValue("ZC5MASTER","ZC5_ID")
Local cTabela   := oModel:GetValue("ZC5MASTER","ZC5_TABELA")
Local oModelZC6    := oModel:GetModel("ZC6DETAIL")
Local nI        := 0

For nI := 1 To oModelZC6:Length()

    oModelZC6:LoadValue("ZC6_FILIAL",cFilZC6)
    oModelZC6:LoadValue("ZC6_ID",cId)
    oModelZC6:LoadValue("ZC6_TABELA",cTabela)

Next

Return lRet

Mas a nova linha não é atualizada.

criado 10 de Jun de 2020
Dirlei Friedrich
9 pontos
editado 10 de Jun de 2020

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

up 0 down
Boa tarde, Dirlei!

Já testou adicionando o gatilho no inicializador padrão dos campos?

Caso não der certo, tente fazer as seguintes modificações no seu código:
```
oView:SetViewProperty("VIEW_ZC6","CHANGELINE",{{ || U_fLineZC6(oView, cIdView) }})
```
```
User Function fLineZC6(oView, cIdView)

Local lRet      := .T.
Local oModel    := FWModelActive()
Local cFilZC6   := xFilial("ZC6")
Local cId       := oModel:GetValue("ZC5MASTER","ZC5_ID")
Local cTabela   := oModel:GetValue("ZC5MASTER","ZC5_TABELA")
Local oModelZC6    := oModel:GetModel("ZC6DETAIL")
Local nI        := 0

For nI := 1 To oModelZC6:Length()

    oModelZC6:AddLine() // inclui uma linha

    oModelZC6:LoadValue("ZC6_FILIAL",cFilZC6)
    oModelZC6:LoadValue("ZC6_ID",cId)
    oModelZC6:LoadValue("ZC6_TABELA",cTabela)

Next

oView:Refresh(cIdView) // atualiza a view

Return lRet
```
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 10 de Jun de 2020
  Giordano Trabach Xavier
  4298 pontos
- 0
  
  Giordano, o gatilho resolveu o problema. Obrigado.
  — Dirlei Friedrich 24 de Jun de 2020
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
up 0 down
Bom dia Dirlei,

Verifique se esse link te ajuda no que precisa: https://tdn.totvs.com/pages/viewpage.action?pageId=271388325

Abraço,
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 10 de Jun de 2020
  FELIPE CAIADO ALMEIDA
  3766 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

Repetir linha Grid MVC

Comentário

2 respostas

Comentário

Comentário

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