hleorj

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

Minha configuração usando a Danfe DANFeRetrato_Dc.fr3 para um resultado em produção

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 ====

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.

Ver Post das Atualizações Atualização para a propriedade formato; Segui unit's === Unit == Novo_introducao.rar =====

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 =======

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

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

Este código ficou ultrapassado . vem ai a Tag == > Formato ( detInteger , detMascara ) Padrão para Formato = detInteger Fechar post, por favor

Algum commiter olhou o codigo ? para svn

Instalou a nova versão do Fortes Report ?

Abra o AcbrComum.bkp no d7 Compile do dentro do D7 .. E Faça nova instalação do acbr.. acho q este problema.

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

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

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 ?

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'

Atua

pode postar um xml de serviço ? acho q este deve ser tratado na danfe.

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

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 .

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 " )

E o padrão ao criar componente. constructor TACBrNFeDANFEFR.Create(AOwner: TComponent); begin ...... fCasasDecimais._Mask_qCom := '###,###,###,##0.00'; fCasasDecimais._Mask_vUnCom := '###,###,###,##0.00'; end; Danfe em Fortes ou Fast.. seguiram o mesmo padrão de configuração. Ainda existe a possibilidade de ser padrão em todo Acbr que usa a Classe TcasasDecimais. TCasasDecimais = class(TComponent) ... constructor TCasasDecimais.Create(AOwner: TComponent); begin inherited create( AOwner ); f_Mask_qCom := '###,###,###,##0.00'; f_Mask_vUnCom := '###,###,###,##0.00'; FQCom := 2; FvUnCom := 2; end;

A mascara Default -> ###,###,###,##0.00

Conclusão. . Quem ira decidir não será o componente. Alguma sugestão ? para ser desenvolvida e aplicada.

Seguindo xml do post referindo teremos no demo ( Versao atual no Svn na presente data ) usando uma danfe em fast report -Usando Delphi XE5; Configurando para aplicar as atualizações sugeridas - Usando Delphi 10 Seattle; Resultado do demo com a atualização;