criar uma tag no componente ACBrNFeDANFEFR para adicionar a diferenca do troco na formar de pagamento

[Ricardo De Luca]

exemplo:

valor a pagar: 16,80

forma de pagamento:

Dinheiro: 20,00

troco: 3,20

so que na danfe imprime

valor a pagar: 16,80

forma de pagamento

Dinheiro: 16,80

troco: 3,20

por que no xml ta desta forma.

 

[leandroaoa]

você chegou a estudar as normas tecnicas da NFCe não existe campo troco certo ? ja foi implementada essa campo troco só pra imiprimir o resto deve seguiur o que o manual manda !

[Ricardo De Luca]

boa tarde Leandro e seguinte eu li: não sei vc mexe com cliente

e cliente acha que tem que ser do jeito deles

ai tive que mudar em ACBrNFeDANFEFR a tive que fazer isso

       if tPag in [fpDinheiro, fpCheque] then
           if vTroco > 1 then begin
             FieldByName('vPag').AsFloat   := vPag+vTroco;
           end else
             FieldByName('vPag').AsFloat   := vPag
        else
             FieldByName('vPag').AsFloat   := vPag;

 

e que eles tao acustumado com ecf ai acha que tem que ser igual cupom fiscal.
 

ai pensei se poderia criar uma propriedade pra somar o troco junto com forma de pagamento dinheiro ou cheque.

 

Edited December 28, 2015 by Ricardo De Luca

[leandroaoa]

eu mexo com cliente sim sei muito bem como é isso, mas uma coisa é você fazer o que o cliente quer outra é o que esta na norma e o componente atende o que esta na norma se você quiser alterar ai por sua conta o componente é aberto. Mas ja fique ciente que norma é norma.

[Ricardo De Luca]

então se for seguir a norma deveria tirar o troco.

 

mas o que eu quero dizer e colocar uma condição igual o troco? e quem quiser coloca quem não quiser não coloca.

[leandroaoa]

então faca a alteracao e poste aqui os arquivos alterados que sera anilasado pelos moderadores e se estiver de acordo sera enviada ao SVN para que todos possam usar

[hleorj]

EM 2016 , uma nova Versão.

 

@Ricardo Lucase @leandroaoa

[Ricardo De Luca]

blz vou ficar no aguardo.

[leandroaoa]

oi Henrique que bom mas acho que o que o nosso amigo pediu é que forma de pagamento saia 

TOTAL = 79,93

 

Forma Pagamento

Dinheiro = 40,00

Cheque = 69,93

Troco = 30,00

[Ricardo De Luca]

e assim Henrique.

[Ricardo De Luca]

boa tarde Henrique fiz esta alteração criei uma propriedade SomaTrocoFormaPgto em ACBrNFeDANFEClass como padrão esta como falsa e alterei ACBrNFeDANFEFRDM da uma analizada se e possível colocar esta propriedade ou fazer diferente.

procedure TACBrNFeFRClass.CarregaPagamento;
var
  i: Integer;
begin
  with cdsPagamento do
  begin
    Close;
    CreateDataSet;
    for i := 0 to NFe.Pag.Count - 1 do
    begin
      Append;
      with FNFe.Pag do
      begin
        FieldByName('tPag').AsString  := FormaPagamentoToDescricao( tPag );
        FieldByName('vPag').AsFloat   := vPag;

 

        if SomaTrocoFormaPgto then begin
           if tPag in [fpDinheiro, fpCheque] then
              if vTroco > 1 then
                  FieldByName('vPag').AsFloat   := vPag+vTroco;
        end;

 

        // ver tpIntegra
        FieldByName('CNPJ').AsString  := FormatarCNPJ(CNPJ);
        FieldByName('tBand').AsString := BandeiraCartaoToDescStr( tBand );
        FieldByName('cAut').AsString  := cAut;
      end;
      Post;
    end;

 

    // acrescenta o troco
    if vTroco > 0 then
    begin
      Append;
      FieldByName('tPag').AsString  := 'Troco R$';
      FieldByName('vPag').AsFloat   := vTroco;
    end;
  end;
end;

alterei 3 arquivos esta em anexo:

 

 

ACBrNFeDANFEClass.pas

ACBrNFeDANFEFR.pas

ACBrNFeDANFEFRDM.pas

[hleorj]

@Ricardo De Luca, eu não aplicarei  esta regra no componente. Pois este tipo de tratamento deve ficar na aplicação do usuário. Por que o componente não sabe,  onde somar o troco ( ex : dinheiro ou Cheque ).

Segue uma previa q teremos.

Fast.rar

[Ricardo De Luca]

bom dia Henrique e se acrescentar uma propriedade que contenha a descrição e valor da forma de pagamento para nos informar e não pegar do arquivo xml?

 

[Ricardo De Luca]

boa tarde Henrique criei duas propriedade ImprimeFormaPgtoXML e ListaFormaPgto:

ImprimeFormaPgtoXML por padrão e verdadeira vai imprimir a forma de pagamento que tiver no arquivo XML ser for falsa vai imprimir a forma de pagamento quer  for passada para a propriedade ListaFormaPgto. segue os arquivos que alterei por gentileza analisa.

 

e obrigado pela atenção.

ACBrNFeDANFEClass.pas

ACBrNFeDANFEFR.pas

ACBrNFeDANFEFRDM.pas

[Ricardo De Luca]

ai não vai afetar a regra como esta so vai acrescentar uma opção a mais e questão de tratamento e feito na aplicação o problema a impressão na danfe.

procedure TACBrNFeFRClass.CarregaPagamento;
var
  i: Integer;
begin
  with cdsPagamento do
  begin
    Close;
    CreateDataSet;
    if ImprimeFormaPgtoXML then begin
       for i := 0 to NFe.Pag.Count - 1 do begin
           Append;
           with FNFe.Pag do begin
             FieldByName('tPag').AsString  := FormaPagamentoToDescricao( tPag );
             FieldByName('vPag').AsFloat   := vPag;

 

             // ver tpIntegra
             FieldByName('CNPJ').AsString  := FormatarCNPJ(CNPJ);
             FieldByName('tBand').AsString := BandeiraCartaoToDescStr( tBand );
             FieldByName('cAut').AsString  := cAut;
           end;
           Post;
       end;
    end else begin
        for i := 1 to 15 do begin
            if FDANFEClassOwner.ListaFormaPgto.FormaPgto.VAlor>0 then begin
               Append;
               FieldByName('tPag').AsString  := FDANFEClassOwner.ListaFormaPgto.FormaPgto.Descricao;
               FieldByName('vPag').AsFloat   := FDANFEClassOwner.ListaFormaPgto.FormaPgto.VAlor;
               post;
            end;
        end;
    end;

 

    // acrescenta o troco
    if vTroco > 0 then
    begin
      Append;
      FieldByName('tPag').AsString  := 'Troco R$';
      FieldByName('vPag').AsFloat   := vTroco;
    end;
  end;
end;

 

[Ricardo De Luca]

[hleorj]

@Ricardo De Luca

Suas sugestões são boas , mas não devo aplica-las , por enquanto. Pois tenho a meta de conseguir um padrão onde o xml deva controlar a danfe. com a exceção dos controles de visual.  Aplique na sua aplicação onde terá controle total do troco.