[Quadro de volumes na impressao da Danfe]

Seguem fontes alterados para análise.

• Fiz sem linhas entre os volumes, caso precise posso incluir sem problemas.
• Também não defini um limite de volumes, já que ficou dinâmico.
• Se aprovado, posso incluir aos demais layouts (paisagem, continuo, etc).

Att,

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLRetrato.dfm

danfe em fast entraria em seus planos ?

[Erro no Svn]

Estou tentado fazer um update do svn ?

so me reporta erro ..

O Svn esta em manutenção ?

Voltou a funcionar

[Logo no DANFe do Fortes carregado por Stream + Tamanho do campo Unidade]

Juliomar , Quais a soluções existentes para logo ? Eu conheço 2 ( arquivo em disco e arq via stream )    

Tlogoarquivo = [  arqDisco , arqStream ]

Para iniciar a sua ideia ...

[Logo no DANFe do Fortes carregado por Stream + Tamanho do campo Unidade]

Julionmar ,Na danfeclass poderia ser a alternativa melhor para implementar a solução.  E vir atualizando as danfes depois. 

[Logo no DANFe do Fortes carregado por Stream + Tamanho do campo Unidade]

Foi feita a atualização na danfe em paisagem ?

[Novo Suporte nas Danfes Fast Report - Atualizado]

Minha configuração usando a Danfe  DANFeRetrato_Dc.fr3

para um resultado em produção

[Novo Suporte nas Danfes Fast Report - Atualizado]

Solicito  no Svn para  seguinte ajuste

Na Function TACBrNFeFRClass.FormatQuantidade( dValor : Double ) : String;

De 

      1 : Result := FormatFloatBr( dValor , FieldByName('Mask_vUnCom').AsString);

Para 

      1 : Result := FormatFloatBr( dValor , FieldByName('Mask_qCom').AsString);

 

=== Unit ===

ACBrNFeDANFEFRDM.pas

====

[Novo Suporte nas Danfes Fast Report - Atualizado]

Mostrando o valor total sem separação de milhares ( 13194,64 )

Mostrando o valor total de uma versão  _dc  com separação de milhares  ( 13.194,64 )

 

tive que editar os campos  dos arquivos .fr3 para mostrar milhares corretamente.

[Novo Suporte nas Danfes Fast Report - Atualizado]

 

Ver Post das Atualizações

 

 

Atualização para a propriedade formato;

Segui unit's 

=== Unit == 

Novo_introducao.rar

=====

 

[Implantação da propriedade Formato Danfe Fortes Report]

Segui unit´s com a implantação da propriedade Formato

Configuração para usar Formato = tdetMascara

 

Resultado da configuração

==== unit ==

ACBrNFeDANFeRLRetrato.pas

ACBrNFeDANFeRLPaisagem.pas

ACBrNFeDANFeRLClass.pas

ACBrNFeDANFeRL.pas

 

=======

 

[Refatoração Danfe ACBrNFeDANFeESCPOS]

Segue unit refatorada;

Novo alinhamento.

Novas funções :

    function FormatQuantidade(dValor: Double): String;
    function FormatValorUnitario(dValor: Double): String;
    function ManterCodigo(scEAN, scProd: String): String;

 

Utilização da Propriedade Formato

 

 

==== unit ===

ACBrNFeDANFeESCPOS.pas

======

Ver introdução da Propriedade da Formato

 

[Nova Propriedade Formato em Tcasasdecimais.]

Segue unit's para Introdução da propriedade Formato na classe Tcasasdecimais.

Em pcnConversao;

   TDetFormato   = (tdetInteger,tdetMascara); - Novo Enumerado 

Em ACBrNFeDANFEClass na classe Tcasasdecimais.

Implantação da Propriedade

   fFormato : TDetFormato;

Definição Padrão  para as propriedades a seguir :

  FMask_qCom    := '###,###,###,##0.00';
  FMask_vUnCom  := '###,###,###,##0.00';

 

A Propriedade sendo implantada para substituir a utilização da Tag em TCasaDecimais nas danfe's.

Detalhe da configuração para utilizar formato = tdetMascara

    

 

Após a implantação sera seguida das atualizações das danfe´s em novos post´s

Grato

 

 

 

 

 

ACBrNFeDANFEClass.pas

pcnConversao.pas

[Novo suporte nas danfes Fast Report]

Este código ficou ultrapassado . vem ai a Tag == > Formato  ( detInteger , detMascara ) 

Padrão para Formato = detInteger

Fechar post,  por favor

 

[Novo suporte nas danfes Fast Report]

Algum commiter olhou o codigo ? para svn 

 

Segue unit e danfes para testes

Report.rar

== Atenção fazer teste exaustivos antes de colocar em produção ==

[Erro ao Instalar Acbr - Trunk2]

Instalou a nova versão do Fortes Report ?

[Erro ao Instalar Acbr - Trunk2]

Abra o  AcbrComum.bkp no d7

Compile do dentro do D7 ..

E Faça nova instalação do acbr.. 

acho q este problema.

 

[Erro ao Instalar Acbr - Trunk2]

Instalação completa .. após Limpeza ( *.bpl, *.dcu , *.dcp ) ; do acbr.

 

Grato. 

[Erro ao Instalar Acbr - Trunk2]

ok. Verificando .... a minha .. instalação.

[Erro ao Instalar Acbr - Trunk2]

Juliomar ,

Na Revisão 10096 do svn  foi promovida uma alteração;

Alteração para Tratar UTC sem uso de situações no sistema! deixei comentado caso seja necessário retornar

Segue linha do referido erro.

'<dhRecbto>' + FormatDateTime('yyyy-mm-dd"T"hh:nn:ss', FdhRecbto) + IIf(Versao >= '3.10', GetUTC{(xUF,FdhRecbto)},'')+'</dhRecbto>'+

 

se importaria de verificar o correto ?

[Erro ao Instalar Acbr - Trunk2]

C:\Delphi Files\Componentes - DXE10\Acbr\Fontes\ACBrDFe\ACBrNFe\PCNNFe\pcnProcNFe.pas(267) Error: E2035 Not enough actual parameters
C:\Delphi Files\Componentes - DXE10\Acbr\Fontes\ACBrDFe\ACBrNFe\PCNNFe\pcnNFe.pas(1978) Fatal: F2063 Could not compile used unit 'pcnProcNFe.pas'

[Delphi 10 Seattle]

Atua

[Layout da Nota Eletrônica Conjugada - CSOSN para serviços]

Bom dia.

Alguma posição sobre o assunto?

pode postar um xml de serviço ?

acho q este deve ser tratado na danfe.

[Novo suporte nas danfes Fast Report]

Daniel , seria este padrão que estaria pensando ?

Na unit ACBrNFeDANFeESCPOS;

 

procedure TACBrNFeDANFeESCPOS.GerarItens;
...
  
      // formatar conforme configurado
      sVlrUnitario := FormatFloatBr(FpNFe.Det.Items[i].Prod.VUnCom,
        IfThen(CasasDecimais._Mask_vUnCom = '',
                        FloatMask(CasasDecimais._vUnCom),
                        CasasDecimais._Mask_vUnCom)
        );

      // formatar conforme configurado somente quando houver decimais
      // caso contrário mostrar somente o número inteiro
      fQuant := FpNFe.Det.Items[i].Prod.QCom;
      if Frac(fQuant) > 0 then
      begin
        sQuantidade  := FormatFloatBr(fQuant,
          IfThen(CasasDecimais._Mask_qCom = '',
                          FloatMask(CasasDecimais._qCom),
                          CasasDecimais._Mask_qCom)
          );
      end
  ..
  end;

Implementando parecido ira quebrar  muita coisa 

 

[Novo suporte nas danfes Fast Report]

 uma necessidade de alterar a Classe para facilitar a configuração 

 TDetFormat = ( detInteger , detMascara )
  
 TDetFormatos = set of TDetFormat

  TCasasDecimais = class(TComponent)
  private
    fFormato : TDetFormatos; 
    FqCom: Integer;
    FvUnCom: Integer;
    FMask_qCom: String;
    FMask_vUnCom: String;

    procedure Set_qCom(AValue: Integer);
    procedure Set_vUnCom(AValue: Integer);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property _qCom: Integer           read FQCom        write Set_qCom;
    property _vUnCom: Integer         read FvUnCom      write Set_vUnCom;
    property _Mask_qCom: String       read FMask_qCom   write FMask_qCom;
    property _Mask_vUnCom: String     read FMask_vUnCom write FMask_vUnCom;
    property Formato  TDetFormatos    read fFormato     write FFormato default detInteger;
  end;

 

Implantando algo parecido deixaria de usar Tag; 

Ate o presente momento ..  ...não consegui, nos meus testes fazer funcionar.

 

Concluíndo a Tag dever ser igual 0 . 

 

 

 

[Novo suporte nas danfes Fast Report]

Na configuração atual da classe TCasasDecimais eu não tenho como deixar de usar a Tag ( 1 ) , e também , é necessário de manter a integridade dos usuários  ( milhares de aplicações - "Este ovo não devemos Quebrar "  )