hleorj

@José Manoel Enviado ao SVN. Grato por reporta o ajuste para nova versão da nfe.

A mas simples possível.

@José Manoel, a palavra inconsistência num momento de transição não é bem aceita

se as informações tiverem correta , será impresso.

Segue a mesma regra ( ManterMedicamenos , ManterRastro , ManterArma e etc ) , está no arquivo xml, será impresso

Na Tag <infCpl>REPRESENTANTE 034 VENDA EFETUADA A PRAZO FAVOR CONFERIR AS MERCADORIAS NO ATO DA ENTREGA NAO NOS RESPONSABILIZAMOS POR RECLAMACOES POSTERIORES 007791 BC ST 10,62 IST 0,57 007797 BC ST 6,88 IST 0,38 007798 BC ST 3,44 IST 0,19 IMPOSTO RECOLHIDO POR SUBST.TRIBUT.ART 313-C RICMS Total Imposto aproximado -Federal:R$ 128,33 -Estadual:R$ 26,49 -Municipal:R$ 0,00 -Fonte: IBPT O Xml dessa Danfe esta no site www.portaldasnotas.com.br, em Consultar Notas. Digite os Dois CNPJs e a Senha: 4272256.</infCpl> Possui caracteres que estranhos. Não deixando imprimir corretamente as informações.

No SVN At revision: 13864 Favor efetuar os devidos testes. Grato.

No SVN At revision: 13864 Favor efetuar os devidos testes. Grato a todos

Obrigado @RicardoVoigt, por exemplificar o meu pensamento. @Vannuty Cabral,Posso enviar a solução do @RicardoVoigtpara SVN ?

Segue @José Manoel Function TACBrNFeFRClass.ManterMedicamentos( inItem: integer ) : String; Var i : Integer; begin Result := ''; { detalhamento específico de medicamentos } with FNFe.Det.Items[inItem].Prod do begin if med.Count > 0 then begin Result := sQuebraLinha; for i := 0 to med.Count - 1 do begin if NFe.infNFe.Versao >= 4 then Result := Result + 'C.P. ANVISA '+ med.Items[i].cProdANVISA+ sQuebraLinha else begin Result := Result + 'LOTE: ' + med.Items[i].nLote+ sQuebraLinha; Result := Result + 'QTD: ' + FormatFloatBr(med.Items[i].qLote)+ sQuebraLinha; Result := Result + 'FAB: ' + FormatDateBr(med.Items[i].dFab)+ sQuebraLinha; Result := Result + 'VAL: ' + FormatDateBr(med.Items[i].dVal)+ sQuebraLinha; end; Result := Result + IfThen( med.Items[i].vPMC > 0, 'PMC: ' + FormatFloatBr(med.Items[i].vPMC) + ';' , ''); end; end; end; end; Adicionado : ManterRastro Function TACBrNFeFRClass.ManterRastro( inItem: integer ) : String; Var i : Integer; begin Result := ''; { rastreabilidade do produto} with FNFe.Det.Items[inItem].Prod do begin if Rastro.Count > 0 then begin Result := sQuebraLinha; for i := 0 to Rastro.Count - 1 do begin Result := Result + 'LOTE: ' + rastro.Items[i].nLote+ sQuebraLinha; Result := Result + 'QTD: ' + FormatFloatBr(rastro.Items[i].qLote)+ sQuebraLinha; Result := Result + 'FAB: ' + FormatDateBr(rastro.Items[i].dFab)+ sQuebraLinha; Result := Result + 'VAL: ' + FormatDateBr(rastro.Items[i].dVal)+ sQuebraLinha; Result := Result + ACBrStr('C.AGREGAÇÃO: ' ) + rastro.Items[i].cAgreg+ ';'; end; end; end; end; Seria a solução ideal ?

Post o arquivo xml . com as informações.

Existe a TAG Med na versão 4 ?

Concluído , teríamos um tratamento de versões , neste caso Grato pelos comentários.

@Vannuty Cabral, legal q efetuou os testes de versões no seu ambiente de testes. Problema : Minha aplicação utiliza a propriedade vtroco. E fiz atualização do código . Vou ter quer atualizar a minha aplicação correndo ?

@José Manoel , estamos em transição de atualização dos componentes. Problemas serão ajustados com o decorrer do tempo. Caso aplique uma solução do problema. Adicione sua solução ao post para que seja feita uma análise . Leve sempre em consideração que o código deverá funcionar em ambas versões do NFE. Grato pelo seu comentário.

Fez alguma crítica para diferenciar as versões ? ( 3.10 ou 4)

Na versão 3.10 está correta a implementação.

@Daniel Simoes, não fiz ajustes no código , pois considero sua atualização boa.

Fiz um levantamento : Revision: 12214 Author: anfm Date: sexta-feira, 26 de agosto de 2016 15:48:47 Message: Alterações para atender Manual de Especificações Técnicas do DANFE NFC-e e QR Code - versão 3.5 - http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=A3Bd/m6qGPM= @Daniel Simoes @Junior82 Ficou, 1 ano sem fazer atualização do seu código ? @Junior82, favor testar o código atual do SVN.

Novas propriedades deveriam ser evitadas o máximo possível. Pois, afetam todo o conjunto de danfes.

Sim , @Sérgio Assunção.

Volte a olhar. Senão existe a propriedade sistema e próximo dela site.

Verifique se possui a ultima versão do acbr. Utilize o arquivo danferetratonovo.fr3. @valterpatrick

@intelmib,. Utilize o. Arquivo acima .

Simples , verifique as propriedades existentes no componente e post a solução ..