Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

hleorj

Moderadores
 Perfil  Explorar Conteúdo

  • Total de ítens

    1.303

  • Registro em

  • Última visita

  • Days Won

    9

 Tipo de Conteúdo 

Posts postados por hleorj

    Observação da NF-e

    em ACBrNFe

    Postado

    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.

    Dados do Medicamento nas Informações Adicionais do Produto

    em ACBrNFe

    Postado

    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 ?

    Solicitacao de melhoria - TributosSeparadamente

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    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. 

     

    • Curtir 1
×
×
  • 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.

The popup will be closed in 10 segundos...