Gatilho na Rotina CNTA121

Boa tarde! Eu criei um campo na tabela CNE, para informar o valor do IPI para que eu possa envia-lo para o pedido de compras quando encerrar a medição, mas quero que esse valor seja agregado ao campo CXN_VLTOT na tabela CXN, fiz o fonte da seguinte forma:

Include "Protheus.ch"

User Function GatCND()

Local oModel := FWModelActive() Local nValor := oModel:GetValue('CXNDETAIL','CXN_VLTOT') + oModel:GetValue('CNEDETAIL','CNE_YVLIPI')

oModel:SetValue('CXNDETAIL','CXN_VLTOT',nValor)

Return .t.

segui essa documentação:

https://centraldeatendimento.totvs.com/hc/pt-br/articles/360051029514-Cross-Segmentos-TOTVS-Backoffice-Linha-Protheus-ADVPL-Como-criar-um-gatilho-em-MVC

ao debbugar vejo que os valores são preenchidos mas em tela o valor não é alterada.

Alguem sabe como resolver isso?

criado 08 de Aug de 2023
Daniel_silva99
2 pontos
editado 08 de Aug de 2023

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!

1 resposta

up 0 down
Boa noite Daniel!

Seu código altera somente o model, conforme você mesmo constatou em debug! Para atualizar a view, você precisa obter o objeto da view ativa via FWViewActive:
```
Local oMyView := FWViewActive()
```
e executar o método refresh antes do return:
```
...
If oMyView <> Nil .And. oMyView:IsActive()
   oMyView:Refresh()
EndIf

Return .T.
```
Segue link das documentações:

FWViewActive e FWFormView

Att,
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 09 de Aug de 2023
  Leonardo Magalhães Barbosa
  556 pontos
- editado 09 de Aug de 2023
- 0
  
  Opa Leonardo! Fiz essa alteração da seguinte forma: User Function GatCND() Local oModel := FWModelActive() Local oView := FWViewActive() Local nValor := oModel:GetValue('CXNDETAIL','CXN_VLTOT') + oModel:GetValue('CNEDETAIL','CNE_YVLIPI')
  
  If oView <> Nil .And. oView:IsActive() oModel:setValue('CXNDETAIL','CXN_VLTOT',nValor) oView:loadValue('CXNDETAIL','CXN_VLTOT',nValor) oView:Refresh() EndIf Return .t. essa instrução oView:loadValue('CXNDETAIL','CXN_VLTOT',nValor) retorna true mas mesmo assim não altera em tela, sabe onde posso estar errando.
  — Daniel_silva99 11 de Aug de 2023
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
Na escolha da confiabilidade, o líder entre outros cassinos on-line é o 1win! Pagamentos rápidos, brindes generosos, conveniência e suporte imediato - essas são as qualidades que eu aprecio aqui. Dou a minha preferência somente a este cassino. Seguindo meu conselho, todos os meus amigos já mudaram suas vidas com o 1win.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 10 de Aug de 2023
  sonyaa
  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

Gatilho na Rotina CNTA121

Include "Protheus.ch"

Comentário

1 resposta

Comentário

Comentário

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