hleorj

Situação anterior do Svn FieldDefs.Add('vFrete' , ftString, 18); FieldDefs.Add('vOutro' , ftString, 18); FieldDefs.Add('vSeg' , ftString, 18); FieldDefs.Add('vDesc' , ftString, 18); FieldByName('vFrete').AsString := FormatFloatBr( Prod.vFrete ,'###,###,##0.00'); FieldByName('vSeg').AsString := FormatFloatBr( Prod.vSeg ,'###,###,##0.00'); FieldByName('vOutro').AsString := FormatFloatBr( Prod.vOutro ,'###,###,##0.00'); FieldByName('vDesc').AsString := ManterVDesc( Prod.vDesc , Prod.VUnCom , Prod.QCom); Situação Atual do Svn FieldDefs.Add('vFrete' , ftFloat); FieldDefs.Add('vOutro' , ftFloat); FieldDefs.Add('vSeg' , ftFloat); FieldDefs.Add('vDesc' , ftFloat); FieldByName('vFrete').AsString := FormatFloatBr( Prod.vFrete ,'###,###,##0.00'); FieldByName('vSeg').AsString := FormatFloatBr( Prod.vSeg ,'###,###,##0.00'); FieldByName('vOutro').AsString := FormatFloatBr( Prod.vOutro ,'###,###,##0.00'); FieldByName('vDesc').AsString := ManterVDesc( Prod.vDesc , Prod.VUnCom , Prod.QCom); Atentar para que as versões Fast com finais _dc serão oficiais dentro de pouco tempo.

Esta atualização esta afetando as danfe nfe. O Arquivo DANFeNFCe.fr3 deve ser refatorado para acatar as condições anterior do svn.

Isto já me ajuda numa implementação. Para o svn. Até um breve.

Pode fornecer o xml deste ?

Isto seria um xeque .. sem o mate , para as danfes ??

mudou alguma coisa ?

Rodrigo tem xml com protocolo de autorização ?

Teria q começar do início , para sentir se código está igual ao original. E tentar executar o código.

volta para anterior .. a rotina esta em estudos..to na espera do rodrigo para melhorar

vc leu isto : { // comentado para rever posterior with FNFe.Emit do begin if FRecebemoDe = '' then FRecebemoDe := rllRecebemosDe.Caption; ..... ... na unit ACBrNFeDANFeRLRetrato;

Estamos na espera de códigos de exemplo. para testar..para implementar corretamente .. ja que esta comentada no svn .

Refatore a sua aplicação. Criando um novo datamodule ..e coloque nfe ou NFS nele. Seje feliz

http://www.projetoacbr.com.br/forum/topic/25667-refatoração-danfe-fortes-duplicatas-pagt-outros/

Ajustes para impressão de duplicatas no caso da forma de pagamento igual a outros; Fortes.rar

O padrão diz que a principio não deveria utilizar outros para gerar parcelas , no meu caso sempre coloco outros para notas de devolução , entrada , simples remessa. mas felizmente, um padrão pode ser alterado , temos 2 padrões : Padrão Abcrnfe e Padrão UsuarioSac , e um deles será alterado Não se esqueça , o Acbr é open source, então pode alterado por você para atender as SUAS necessidade. mas as suas necessidade podem ser a de outros também. Então , poderia fornecedor arquivos xml's, desenvolvidos pela sua aplicação ?

Faca um post novo. Que respondo nele corretamente.

poderia abrir um novo post. Para os outros acompanhar o problema. Onde receberá uma dica para o seu sistema. Que pelo jeito você está deixando de analisar. Antes se pergunte para que serve a formas de pagamento : A vista , a prazo e outros. Especialmente a Forma de Pagamento : Outros . quando deverá ser utilizada;

IInfelizmente não. Teria que desenvolver uma rotina para informar em dados adicionais, para está danfe.

Eu consigo usar todas as condições sem alteração do código atual;

Pode fornecer o xml ou pdf do resultado ? Para termos uma iéia do problema. Favor ver as regras do forum. ( abrir um novo post para o seu assunto )

Reforçando , sempre precisamos de códigos novos : que tenha fácil entendimento , de baixa manutenção e altamente portável entre os componentes e rotinas.

Rodrigoogini , poderia informar de códigos de exemplo ?

Segue Refatoração ACBrNFSeDANFSeRLRetrato.rar

Segue Refatoração Fontes.rar

Tive que criar uma função para remove espaços duplos para o meu caso, pois os dados que estão no xml. Os dados que estão no banco foram adicionados através de importação , onde pode haver : Tab -> chr( 9 ) ou Line Feed -> chr( 10 ) ou Carriage return-> chr( 12 ) ou Espaços duplos -> chr( 32 )+chr( 32 ). const NativeLineFeed = Char(#10); NativeCarriageReturn = Char(#13); Function RemoveDuplos( Const s : AnsiString ) : AnsiString; procedure SkipBlanks(var S: AnsiString; StringLength: Cardinal; var ReadIndex: Cardinal); begin while ReadIndex < StringLength do begin if S[ReadIndex] = NativeCarriageReturn then S[ReadIndex] := NativeLineFeed else if S[ReadIndex + 1] = NativeCarriageReturn then S[ReadIndex + 1] := NativeLineFeed; if (S[ReadIndex] < #33) and (S[ReadIndex] = S[ReadIndex + 1]) then Begin Inc(ReadIndex) End else exit; end; end; var StringLength, ReadIndex, WriteIndex: Cardinal; begin Result := S; ReadIndex := 1; WriteIndex := 1; StringLength := Length(Result); while ReadIndex <= StringLength do begin SkipBlanks( Result , StringLength, ReadIndex); Result[WriteIndex] := Result[ReadIndex]; Inc(WriteIndex); Inc(ReadIndex); end; SetLength(Result, WriteIndex - 1); end; Caso tenham este problema na importação, segue trecho de minha implementação : with Det.Items[I] do begin Nota_it_ent.Chave := 0; Nota_it_ent.situacao := ''; Fornecedor.codforn := Prod.cProd; Fornecedor.descricao := copy( RemoveDuplos( Prod.xProd) ,1,60); if Fornecedor.ManterTrans then Estoque.ObterProduto( Fornecedor.codigo ) else Estoque.ObterProduto( Prod.cProd); Ps : Implementar a função RemoveDuplos no componente requer mas testes. ( AVISADOS ? )