Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

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"

1. 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.
2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
3. 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.
4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

• 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

    15840 pontos

  Adicionar comentário

  Caracteres restantes: 600

  Cancelar 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