Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!
como usar a seguinte expressão no xml
If Type("_oXml:_NFEPROC:_NFE:_INFNFE:_Total:_ICMSTOT:_vIPI") <> "U"
dá erro no CODEANALYSIS
Como substituir este codigo?
Causas Uso de chamada de API em loop à ser avaliada, pois pode reconhecidamente provocar baixo desempenho do produto e pode ser evitada.
Descrição da Regra A regra avalia tentativas de chamadas de API em loop que devem ser evitadas. A regra avalia as seguintes chamadas em loop:
TYPE PERGUNTE
Como substituição para esse comando foi criada a função XmlChildEx (https://tdn.totvs.com/display/tec/XmlChildEx). Tenho algumas observações quando for utilizá-la:
Ela só verifica o primeiro nível passado, então se não houver certeza dos demais nível verificados, será necessário fazer várias chamadas descendo os níveis como no exemplo abaixo. Se tiver certeza pode já chamar direto apenas os níveis que podem ser opcionais e que serão verificados.
O segundo parâmetro obrigatoriamente tem ser em MAIÚSCULO senão ela não vai achar.
Uma alternativa dependendo do fonte seria adaptar para usar a nova classe TXmlManager (https://tdn.totvs.com/display/tec/Classe+TXmlManager) só que nesse caso exige uma grande refatoração de código.
Como uma melhoria pode utilizar essa minha função CXValAtrib() e passar a string de forma idêntica ao Type() que ela quebra os elementos e faz essa validação usando a função XmlChildEx() de forma transparente e performática, apenas de fazer um laço e ser uma função separada ainda assim é muito mais rápida que a função Type().
If XmlChildEx(oXml, '_NFEPROC') <> NIL .And. ;
XmlChildEx(oXml:_NFEPROC,'_NFE') <> NIL .And. ;
XmlChildEx(oXml:_NFEPROC:_NFE,'_TOTAL') <> NIL .And. ;
XmlChildEx(oXml:_NFEPROC:_NFE:_Total,'_ICMSTOT') <> NIL .And. ;
XmlChildEx(oXml:_NFEPROC:_NFE:_Total:_ICMSTOT,'_VIPI') <> NIL
....
EndIfExemplo usando a função customizada:
U_CXValAtrib("_oXml:_NFEPROC:_NFE:_INFNFE:_Total:_ICMSTOT:_vIPI") <> "U"Ainda pode simplificar o código usando uma diretiva Define que vai substituir todos os Types() pela função customizada sem precisar mexer no código, use com cautela porque pode haver problemas caso use o type em outras variáveis que não seja desse tipo XML.
#xtranslate Type( => u_CXValAtrib(Boa Tarde Cirilo, Obrigado pela força! Mas neste caso esta Tag "vIPI" pode não vim no XML. a Função XmlChildEx ela só verifica o conteúdo neste caso né? A questão é saber se existe ou não a Tag no arquivo XML. Sabe me dizer se funciona como a Type ? Desde já agradeço
— GIUVANY RIBEIRO DA SILVA 12 de May de 2023Ela não funciona como type, o funcionamento é diferente, ela verifica se o elemento existe no objeto e retorna uma referência para este elemento se existir. Caso não exista ela retorna NIL.
— Cirilo Rocha 14 de May de 2023