Rotina automática PLSA260FD6DEMAIS

Olá,

Estou precisando usar a rotina automática PLSA260FD6DEMAIS ("Demais Dados Cadastrais da família"), para complementar alguns dados via uma API.

Mas na hora de executar o "oModel:vldData()" dá o erro: "variable does not exist LJURIDICO"

Segue o trecho do fonte:

oModel := FWLoadModel("PLSA260FD6DEMAIS") oModel:SetDescription('Preenche Demais Dados Cadastrais da familia') oModel:setOperation(MODEL_OPERATION_UPDATE) BA3->(DBGoTop()) // reposiciono pois o FWLoadModel pode ter jogado para outro registro ou para EOF oModel:activate() oModel:setValue( 'MasterBA3', "BA3_HORACN", '1130') ) If !(oModel:vldData() .AND. oModel:commitData()) BREAK EndIf oModel:DeActivate() oModel:Destroy() oModel := NIL

protheus

criado 27 de Mar de 2023
Adir
11 pontos
editado 27 de Mar de 2023

0

Cara foi você que criou está rotina? Use um nome para ela até 10 caracteres e vê se resolve
— Lucas de Paulo Santos 27 de Mar 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 1 down
Olá,

Verifique se a atualização dos fontes do Protheus resolve o seu problema, caso não resolva, abra uma issue para a equipe responsável pela manutenção da rotina PLSA260FD6DEMAIS, pois essa rotina ou alguma dependência da mesma está utilizando de uma variável private indevidamente e no seu caso, ela não existe.

Todo modelo pode ser utilizado fora de sua rotina ou como um serviço, logo criar uma dependência de uma variável private é um erro.

A utilização de variáveis private é complexa e inúmeras vezes leva a exceção, eu pessoalmente nunca uso isso.

Enquanto você aguarda a correção por parte da TOTVS você tem uma alternativa, em seu fonte você vai criar a variável lJuridico e informar um valor booleano para a mesma, colocando por exemplo como .F. e então efetuar novos testes, verificando se tudo foi gravado como você esperava, claro, novos erros podem ocorrer, pois é possível que a rotina dependa de outras variáveis.

Como já disse, a utilização de variáveis private não é uma boa prática, portanto caso você solucione o problema assim, recomendo você remover essa variável após a correção por parte da TOTVS.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 27 de Mar de 2023
  Daniel Mendes
  15877 pontos
- 0
  
  Muito obrigado Daniel. Vou fazer as 2 coisas: abrir uma issue para a equipe responsável pela manutenção da rotina PLSA260FD6DEMAIS e testar criar uma variável private lJuridico para ver o resultado. E assim que tiver um resultado eu posto aqui...
  — Adir 28 de Mar de 2023
- 0
  
  Criar uma variável lJuridico não deu certo. Continua acusando "variable does not exist LJURIDICO". Vou tentar atualizar atualizar os fontes e o dicionário...
  — Adir 28 de Mar de 2023
- 0
  
  A criação da variável lJuridico deve ser feita como uma variável private, precisa possuir um valor lógico, a criação deve ser feita ANTES de qualquer coisa feita na rotina PLSA260FD6DEMAIS, e deve ser feita de uma forma que a stack da variável seja mantida durante a utilização da rotina PLSA260FD6DEMAIS.
  — Daniel Mendes 28 de Mar de 2023
- 0
  
  Verificando ...
  — Adir 30 de Mar de 2023
- 0
  
  Mais uma vez obrigado Daniel. Foi isso mesmo, criei "Private lJuridico := .F." e funcionou. Agora vou reportar para a Totvs verificar...
  — Adir 31 de Mar 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

Rotina automática PLSA260FD6DEMAIS

Comentário

1 resposta

Comentário

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