Boa Tarde Senhores,
Estou passando o A010_TOK PARA MVC, Mas em certo ponto do PE, ele terá que atualizar um contador que fiz no produto.
Quando passar por aquele local o B1_VALID RECEBE +1.
Mas não estou conseguindo de forma comum.
como:
M->B1_VALID += 1 ou M->B1_VALID++ ou M->B1_VALID := M->B1_VALID + 1
Ele nao está atualizando.
Atualização de dado MVC
- 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!
3 respostas
-
Você pode consultar e atualizar dados de campos através dos métodos SetValue e GetValue do MVC.
A primeira posição da variável PARAMIXB de um ponto de entrada MVC é o próprio objeto MVC do cadastro, enquanto a terceira posição é o nome do modelo que o ponto de entrada está no momento. Efetue uma validação que seja executado apenas se o nome do modelo for SB1MASTER, e utilize os métodos acima para realizar suas tratativas.
Exemplo:
User Function ITEM Local aParam := PARAMIXB Local oObj := Nil Local cIdPonto := '' Local cIdModel := '' Local nQtdVld := 0 If(ValType(aParam) == 'A') oObj := aParam[1] cIdPonto := aParam[2] cIdModel := aParam[3] If(cIdPonto == 'MODELPOS' .and. AllTrim(cIdModel) == 'SB1MASTER') nQtdVld := oObj:GetValue('B1_VALID') nQtdVld++ oObj:SetValue('B1_VALID', nQtdVld) EndIf EndIf ReturnPara maiores informações sobre os métodos SetValue/GetValue: https://tdn.totvs.com/display/public/framework/FWFormFieldsModel
-
variable is not an object on U_ITEM(A010TOK.PRW) 13/09/2023 16:21:43 line : 43 NESTA LINHA ESTA nQtdVld := oObj:GetValue('B1_VALID')
— Lucas de Paulo Santos 13 de Sep de 2023
-
-
-
Agora me retorna isso.
variable is not an object on U_ITEM(A010TOK.PRW) 13/09/2023 16:21:43 line : 43NESTA LINHA ESTAnQtdVld := oObj:GetValue('B1_VALID') -
