Ir para conteúdo
  • Cadastre-se

dev botao

Não Destaca as Duplicatas DANFE-Fast.


Ver Solução Respondido por hleorj,
  • Este tópico foi criado há 1941 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Bom dia,

Pessoal, hoje apaguei todo o meu fonte do acbr e baixei novamente, já faz um tempo que já estava com a versão 4.0 do xml. mais vinha destacando as duplicatas no danfe após atualizar notei que sai agora apenas os dados da fatura, olhando fonte vejo que tem a valição

 

if (Not FDANFEClassOwner.ExibeCampoFatura) and
    (FNFe.Ide.indPag = ipVista) and (FNFe.infNFe.Versao <= 3.10) then
  Begin

 

Não pode mais sair as duplicatas no danfe? Se pode como destacar agora?

O XML está sendo aprovado legal, na verdade já vinha...

Em anexo danfe atual sem destaque das duplicatas e danfe antes da atualização destacando as duplicatas ambos com o mesmo xml.

15181210308036000190550010000022531000022530.xml

SemDuplicata.pdf

ComDuplicata.pdf

Link para o comentário
Compartilhar em outros sites

  • Administradores

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

  • Moderadores

@Duarte

Verifique se a propriedade ExibeCampoFatura igual true;

Poderia efetuar alguns teste. Alterado o seguinte codigo

procedure TACBrNFeFRClass.CarregaDuplicatas;
var
  i: Integer;
begin
  cdsDuplicatas.Close;
  cdsDuplicatas.CreateDataSet;
  if Not ( ( FDANFEClassOwner.ExibeCampoFatura) and
         ( FNFe.Ide.indPag = ipVista) and
         ( FNFe.infNFe.Versao <= 3.10) ) then
  Begin

    with cdsDuplicatas do
    begin
      for i := 0 to (NFe.Cobr.Dup.Count - 1) do
      begin
        Append;
        with FNFe.Cobr.Dup[i] do
        begin
          FieldByName('ChaveNFe').AsString  := FNFe.infNFe.ID;
          FieldByName('NDup').AsString      := NDup;
          FieldByName('DVenc').AsString     := FormatDateBr(DVenc);
          FieldByName('VDup').AsFloat       := VDup;
        end;
        Post;
      end;
    end;
  End;
end;

 

Que era 

  if (Not FDANFEClassOwner.ExibeCampoFatura) and
    (FNFe.Ide.indPag = ipVista) and (FNFe.infNFe.Versao <= 3.10) then
  Begin

Para

  if Not ( ( FDANFEClassOwner.ExibeCampoFatura) and
         ( FNFe.Ide.indPag = ipVista) and
         ( FNFe.infNFe.Versao <= 3.10) ) then
  Begin

 

Equipe ACBr Henrique Leonardo
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Tecnólogo em processamento de dados

E-mail [email protected] - Skype : hleorj

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
2 horas atrás, hleorj disse:

@Duarte

Verifique se a propriedade ExibeCampoFatura igual true;

Poderia efetuar alguns teste. Alterado o seguinte codigo


procedure TACBrNFeFRClass.CarregaDuplicatas;
var
  i: Integer;
begin
  cdsDuplicatas.Close;
  cdsDuplicatas.CreateDataSet;
  if Not ( ( FDANFEClassOwner.ExibeCampoFatura) and
         ( FNFe.Ide.indPag = ipVista) and
         ( FNFe.infNFe.Versao <= 3.10) ) then
  Begin

    with cdsDuplicatas do
    begin
      for i := 0 to (NFe.Cobr.Dup.Count - 1) do
      begin
        Append;
        with FNFe.Cobr.Dup[i] do
        begin
          FieldByName('ChaveNFe').AsString  := FNFe.infNFe.ID;
          FieldByName('NDup').AsString      := NDup;
          FieldByName('DVenc').AsString     := FormatDateBr(DVenc);
          FieldByName('VDup').AsFloat       := VDup;
        end;
        Post;
      end;
    end;
  End;
end;

 

Que era 


  if (Not FDANFEClassOwner.ExibeCampoFatura) and
    (FNFe.Ide.indPag = ipVista) and (FNFe.infNFe.Versao <= 3.10) then
  Begin

Para


  if Not ( ( FDANFEClassOwner.ExibeCampoFatura) and
         ( FNFe.Ide.indPag = ipVista) and
         ( FNFe.infNFe.Versao <= 3.10) ) then
  Begin

 

Sim, ExibeCampoFatura= True, mais se for para exibir, o código ai fala que só é para carregar duplicata se não não for para exibirCampoFatura se o pagamento for a vista e se a versão não for 4.0... Do jeito que está ai só carrega para versão menor que 4.0 quando não for para exibir fatura e se o pagamento for avista, creio que está errado a lógica...!

Link para o comentário
Compartilhar em outros sites

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