Uso de API em LOOP À SER AVALIADO

No meu fonte, o code analysis acusou este erro do título em algumas linhas:

IF Type("aoDet["+cValToChar(nx)+"]:_Prod:_xPed") <> "U" .And. Type("aoDet["+cValToChar(nx)+"]:_Prod:_xPed:TEXT") <> "U" .And. Type("aoDet["+cValToChar(nx)+"]:_Prod:_nItemPed") <> "U" .And. Type("aoDet["+cValToChar(nx)+"]:_Prod:_nItemPed:TEXT") <> "U"

If Type("aoDet["+Ltrim(str(nx))+"]:_Prod:_NCM") == "U"

If Type("aoDet["+Ltrim(str(nx))+"]:_Prod:_cEAN") <> "U"

If Type("aoDet["+Ltrim(str(nx))+"]:_Prod:_NCM") == "U"

If Type("aoDet["+Ltrim(str(nx))+"]:_Prod:_CEAN") == "U"

Alguém sabe o que pode ser? Agradeço!!

criado 30 de Jan de 2023
Anne Cavalcante
57 pontos
editado 30 de Jan 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
Olá,

O erro acusado deve-se ao uso da função Type dentro de um loop, pois é uma função de algo custo, logo ao ser utilizada dentro de um loop, terá impacto negativo na performance do programa.

Esse não é um erro impeditivo para a migração ao banco de dados, caso seja sua situação, mas é válido verificar as possíveis melhorias em seu código.

Para corrigir, uma possiblidade é passar a fazer uso da função XmlChildEx na busca desses valores onde hoje você utilizada Type, é possível que essa substituição exija uma pequena refatoração de código.

Uma outra possibilidade, que vai exigir uma grande refatoração, é você passar a utilizar a classe TXmlManager, que vai lhe entregar um objeto que possui diversos métodos para verificar os nós e atributos de um XML.

Documentações:

https://tdn.totvs.com/display/tec/XmlChildEx

https://tdn.totvs.com/display/tec/Classe+TXmlManager

Ambas as sugestões vão exigir uma releitura do código e refatoração, recomendo você leia os exemplos e explore a árvore de funções de manipulação de XML que o binário possui:

https://tdn.totvs.com/display/tec/Tratamento+de+XML
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 30 de Jan de 2023
  Daniel Mendes
  15854 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

Não é a resposta que estava procurando? Procure outras perguntas com as tags codeanalysis sonarqube sonarcube codeanalysys code advpl protheus devforum ou faça a sua própria pergunta.