Não Destaca as Duplicatas DANFE-Fast.

[Duarte]

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

[Juliana Tamizou]

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

[Duarte]

Obrigado.

[hleorj]

Em analise

[hleorj]

@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

 

[hleorj]

Enviado ao SVN , possivel correção

At revision: 16006

Queria fazer os devidos testes

Grato

[Duarte]

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...!

[Duarte]

Agora ficou ok. muito obrigado

[hleorj]

@Duarte,

Teste a At revision: 16008

Teve novas atualizações que afetam o compomente da DAnfe em Fast.