Não Imprimir Infadprod E Infcpl Em Danfe

[GustavoCosta]

Boa tarde,

 

A empresa Bosh está obrigando um dos usuários do meu sistema a informar nas notas emitidas algumas TAGs com dados para B2B.

Segundo um manual disponibilizado pela Bosh, essas TAGs devem ser informadas dentro de InfAdProd nos itens e infCpl da nota (gambiarra).

 

Eu consigo formatar essas TAGs e fazer as propriedades InfAdProd e infCpl receber como texto, com isso o XML fica da maneira solicitada pela empresa.

 

Exemplo:

<infAdProd>

    <![CDATA[<id item="ABC 123-DEF"/> ]]>

</infAdProd>

(...)

<infCpl>

    <![CDATA[<versao>00</versao> <prevEntrega >20131231</prevEntrega>]]>

</infCpl>

 

 

porém, por estar preenchido o campo, é impresso no DANFE o que está presente no XML, com as TAGs e tudo mais..., gostaria de ocultar ou então formatar na hora impressão.

 

 

 

 

Alguém imagina alguma maneira de fazer isso? Será que eu posso fazer isso (informar algo no XML e imprimir diferente no DANFE)?

Uso o ACBrDanfeRave.

 

 

 

 

Desde já,

Muito Obrigado.

[peterson161]

Se pode ou não é outro assunto. Para resolver o seu problema de imediato, você pode alterar o arquivo ACBrNFeDANFERaveDM.pas, na linha 541:

// Alterar de:
wInfAdProd:=infAdProd;

// Para:
wInfAdProd:='';

Desta maneira as informações adicionais do item não serão exibidas no Danfe.

 

E eu tinha esquecido. Sobre os dados adicionais, você pode comentar a linha 1261:

// if (Length(InfCpl)=0) then
InfCpl:='';

Assim o <InfCpl> ficará vazio.

[GustavoCosta]

É, vou aplicar essa solução!

 

Vou apenas tratar e não imprimir a informação apenas se estiver no "formato" mencionado, se não, deverá ser impresso normalmente.

 

 

 

Muito Obrigado.!

Abraço.

[Edimar Ribeiro de Almeida]

Tem um erro mesmo nessa leitura do xml, realizei uma alteração no componente e resolveu o problema.

Depois que atualizar o arquivo e só compilar o pacote PCN2.dpk.

 

linhas adicionada 498 e 499.

 

  aTexto := StringReplace(aTexto, '<![CDATA[','', [rfReplaceAll]);

  aTexto := StringReplace(aTexto, ']]>','', [rfReplaceAll]);

pcnAuxiliar.pas

pcnAuxiliar.pas