Ir para conteúdo
  • Cadastre-se

hleorj

Moderadores
  • Total de ítens

    1.303
  • Registro em

  • Última visita

  • Days Won

    9

Tudo que hleorj postou

  1. Post arquivo xml;
  2. Nós ajude com uma solução, dica ou um código que seje aceito.
  3. Procure na internet , regra de arredondamento no padrão Abnt. R: R$ 3,00.
  4. Boa tarde @asterix, leia o post E Faça alguns testes
  5. Por favor , sempre faça um post novo para nossa documentação.
  6. @windsoft, Mantenha o seu arquivo. Teremos uma versão atualizado da danfe em modo paisagem ?
  7. @windsoft, Correto. Eu pergunto , o que citei acima melhora em alguma coisa o arquivo ?
  8. @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.
  9. Os ajustes que fez foram no arquivo original ( SVN ) ou no arquivo de teste ? @sgeinformatica
  10. Em Qual Arquivo ? SVN ou de testes @sgeinformatica
  11. Meus testes com o demo FR , não apresentou o problema relatado acima.
  12. @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
  13. @sgeinformatica, em analise . Pois é erro não conhecido. Obrigado por reportar
  14. Post XML para efetuarmos uns testes
  15. E a ultima versão do SVN ?
  16. @José Manoel Enviado ao SVN. Grato por reporta o ajuste para nova versão da nfe.
  17. A mas simples possível.
  18. @José Manoel, a palavra inconsistência num momento de transição não é bem aceita
  19. se as informações tiverem correta , será impresso.
  20. Segue a mesma regra ( ManterMedicamenos , ManterRastro , ManterArma e etc ) , está no arquivo xml, será impresso
  21. 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.
  22. No SVN At revision: 13864 Favor efetuar os devidos testes. Grato.
  23. No SVN At revision: 13864 Favor efetuar os devidos testes. Grato a todos
  24. Obrigado @RicardoVoigt, por exemplificar o meu pensamento. @Vannuty Cabral,Posso enviar a solução do @RicardoVoigtpara SVN ?
  25. 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 ?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.