Impressão da bandeira obriga ter numero de autorização

[MSOL]

Boa tarde!

Uso o Fortes para impressão;

Percebi que para imprimir a bandeira na forma de pagamento da NFCe, está obrigando a ter uma numero de autorização;

veja o codigo:

function TACBrNFeDANFCEClass.ManterDescricaoPagamentos(aPagto: TpagCollectionItem
  String;
var
  descBandeira, codigoAutorizacao: String;
begin
  Result := '';
  descBandeira := '';
  codigoAutorizacao := '';

  with aPagto do
  begin
    try
      if ((tPag in [fpCartaoCredito, fpCartaoDebito]) and (tpIntegra = tiPagIntegrado)) or
         ((tPag in [fpCartaoCredito, fpCartaoDebito]) and (cAut <>'')) then
      begin

        if Ord(aPagto.tBand) >= 0 then
          descBandeira:= BandeiraCartaoToDescStr(tBand);

        CodigoAutorizacao := '- Aut: ' + cAut;
      end;

      if (icaTipo in FDescricaoPagamentos) then
        Result:= ACBrStr(FormaPagamentoToDescricao(tPag, xPag)) + Space(1);
      if (icaBandeira in FDescricaoPagamentos) then
        Result := Result + descBandeira + Space(1);
      if (icaAutorizacao in FDescricaoPagamentos) then
        Result := Result + CodigoAutorizacao;

    except
      Result:= ACBrStr(FormaPagamentoToDescricao(tPag, xPag)) + Space(1);
    end;

  end;

end;

No caso penso que teria que ser assim:

if ((tPag in [fpCartaoCredito, fpCartaoDebito]) and (tpIntegra = tiPagIntegrado)) or
         ((tPag in [fpCartaoCredito, fpCartaoDebito])) then
      begin

        if Ord(aPagto.tBand) >= 0 then
          descBandeira:= BandeiraCartaoToDescStr(tBand);

        if (cAut <>'')then

           CodigoAutorizacao := '- Aut: ' + cAut;
      end;

Sendo assim, mesmo que não informou o numero da autorização, irá mostrar qual bandeira vendeu

[Daniel Simoes]

Mas em qual situação, você precisa destacar a Bandeira, sem o número de autorização da Venda ?

[MSOL]

Bom dia, Daniel!

é pq tem cliente que não insere o numero da autorização, mas deseja que imprima qual bandeira usada no DANFce. Coisas de clientes, vai entender!

 

[MSOL]

Bom dia!

Será possível fazer a alteração mencionada por mim no inicio do tópico?

[Daniel Simoes]

@MSOL,

Ainda estamos pesquisando se isso não irá ferir alguma regra do MOC

[Victor H. Gonzales - Panda]

Em 12/06/2023 at 15:31, MSOL disse:

Boa tarde!

Uso o Fortes para impressão;

Percebi que para imprimir a bandeira na forma de pagamento da NFCe, está obrigando a ter uma numero de autorização;

veja o codigo:

function TACBrNFeDANFCEClass.ManterDescricaoPagamentos(aPagto: TpagCollectionItem
  String;
var
  descBandeira, codigoAutorizacao: String;
begin
  Result := '';
  descBandeira := '';
  codigoAutorizacao := '';

  with aPagto do
  begin
    try
      if ((tPag in [fpCartaoCredito, fpCartaoDebito]) and (tpIntegra = tiPagIntegrado)) or
         ((tPag in [fpCartaoCredito, fpCartaoDebito]) and (cAut <>'')) then
      begin

        if Ord(aPagto.tBand) >= 0 then
          descBandeira:= BandeiraCartaoToDescStr(tBand);

        CodigoAutorizacao := '- Aut: ' + cAut;
      end;

      if (icaTipo in FDescricaoPagamentos) then
        Result:= ACBrStr(FormaPagamentoToDescricao(tPag, xPag)) + Space(1);
      if (icaBandeira in FDescricaoPagamentos) then
        Result := Result + descBandeira + Space(1);
      if (icaAutorizacao in FDescricaoPagamentos) then
        Result := Result + CodigoAutorizacao;

    except
      Result:= ACBrStr(FormaPagamentoToDescricao(tPag, xPag)) + Space(1);
    end;

  end;

end;

No caso penso que teria que ser assim:

if ((tPag in [fpCartaoCredito, fpCartaoDebito]) and (tpIntegra = tiPagIntegrado)) or
         ((tPag in [fpCartaoCredito, fpCartaoDebito])) then
      begin

        if Ord(aPagto.tBand) >= 0 then
          descBandeira:= BandeiraCartaoToDescStr(tBand);

        if (cAut <>'')then

           CodigoAutorizacao := '- Aut: ' + cAut;
      end;

Sendo assim, mesmo que não informou o numero da autorização, irá mostrar qual bandeira vendeu

Bom dia,

você pode enviar alguns xml com meios de pagamentos diversos no email ?
[email protected]

no corpo do email vincule esse topico

[MSOL]

Bom dia!

O email foi enviado com emitente [email protected]

Obrigado pela atenção de todos!

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[MSOL]

Bom dia!

Obrigado, Panda!

Deu certo a atualização. Pode fechar o tópico, por favor

[Alexandre de Paula]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.