hleorj

Post arquivo xml;

Nós ajude com uma solução, dica ou um código que seje aceito.

Procure na internet , regra de arredondamento no padrão Abnt. R: R$ 3,00.

Boa tarde @asterix, leia o post E Faça alguns testes

Por favor , sempre faça um post novo para nossa documentação.

@windsoft, Mantenha o seu arquivo. Teremos uma versão atualizado da danfe em modo paisagem ?

@windsoft, Correto. Eu pergunto , o que citei acima melhora em alguma coisa o arquivo ?

@windsoft, poderia verificar estes ajustes Conseguimos arrumar no Memo137 e Memo66 mudamos a propriedade align para babotton (são as caixas de dados adicionais) e mantenha as devidas atualizações no seu post.

Os ajustes que fez foram no arquivo original ( SVN ) ou no arquivo de teste ? @sgeinformatica

Em Qual Arquivo ? SVN ou de testes @sgeinformatica

Meus testes com o demo FR , não apresentou o problema relatado acima.

@sgeinformatica, Faça testes no arquivo Anexo pois, preciso de mas testes para enviar os ajuste de @windsoft para o SVN. Grato por qualquer ajudar DanfeRetratoNovo.fr3

@sgeinformatica, em analise . Pois é erro não conhecido. Obrigado por reportar

Post XML para efetuarmos uns testes

E a ultima versão do SVN ?

@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 ?