TEF Elgin Ajuste em retorno

[Fernando Pasqueto]

Boa tarde.

Notei que o acbrtefd não estava retornando 

             2 : fpCodigoBandeiraPadrao := Linha.Informacao.AsString;  //Elgin
             3 : fpNFCeSAT.Bandeira := Linha.Informacao.AsString;      //Elgin

em transações de troca de arquico com a elgin, realizei alteracao no arquivo ACBrTEFDClass.pas , linha 797, 798

 

ACBrTEFDClass.pas

[Juliomar Marchetti]

Dúvida. lembrando que esse código ai é geral e tem outras soluções que está mapeado
se mudar ali vai continuar a funcionar para as outras?

[Fernando Pasqueto]

Pelo que analizei sim, esse retorno nao existe uso desses codigos no mapeamento, e notei tbm que nao retorna essas tags

       300 :
         case Linha.Sequencia of
           1 : fpNFCeSAT.DataExpiracao := Linha.Informacao.AsString;
           2 : fpNFCeSAT.DonoCartao := Linha.Informacao.AsString;
         end;

Elgin retorna o dono do cartao em duas posicoes 

029-017 e 715-017

[Daniel Simoes]

vou analisar e testar com calma.. pode afetar outros TEFs ...

Obrigado por compartilhar essa melhoria...

[Fernando Pasqueto]

@Daniel Simoes Seria melhor extender essas alteracoes dentro da classe da elgin?

Penssei em extender a classe  TACBrTEFDRespElgin = class( TACBrTEFDRespTXT )

e realizar os demais tratamentos da elgin ai dentro evitando assim afetar outros TEFs, essa elteracao anterior acredito que nao ira afetar os demais.
 

 

[Fernando Pasqueto]

Por favor desconsiderar o arquivo anterior

corrigido a a ordem de retorno da bandeira.

Inserido a opcao de retornar o nome do dono do cartao, os primeiros 6 digitos e os ultimos 4.

ACBrTEFDClass.pas

[Fernando Pasqueto]

Boa tarde correcao no retorno, 

Alterado

        715 :
        begin //elgin
          case Linha.Sequencia of
             17 : fpNFCeSAT.DonoCartao := Linha.Informacao.AsString;
             18 :
             begin
               fpNFCeSAT.UltimosQuatroDigitos := copy(trim(Linha.Informacao.AsString),8,4);
               fpBin := copy(trim(Linha.Informacao.AsString),1,6);
             end;
          end;
        end;

Linhas 863 a 873

ACBrTEFDClass.pas

[Daniel Simoes]

Oi @Fernando Pasqueto,

Notei que o campo 715, não está documentado em:  https://elgindevelopercommunity.github.io/group__t03.html

Tem algum link mais atualizado ?

Enviado ao SVN.. Commit [r34500]

[Fernando Pasqueto]

Em 22/07/2024 at 10:34, Daniel Simoes disse:

Oi @Fernando Pasqueto,

Notei que o campo 715, não está documentado em:  https://elgindevelopercommunity.github.io/group__t03.html

Tem algum link mais atualizado ?

Enviado ao SVN.. Commit [r34500]

realmente nao e documentado, nimguem do suporte soube me responder o motivo.

[Fernando Pasqueto]

Boa tarde

link da documentacao da elgin atualizada 

https://elgindevelopercommunity.github.io/group__t03.html

Fiz alteracoes na unit ACBrTEFDElgin

procedure TACBrTEFDElgin.AdicionarIdentificacao;
begin
  inherited;
  with TACBrTEFD(Owner) do
  begin
    Req.Conteudo.GravaInformacao(011,000,Inttostr(fOperacaoCRT));
  end;
end;

necessario para restringir o CRT, alteracoes realizadas no demo nao fiscal.

Alteracoes realizadas no demo nao fiscal, adcionado exemplo de restringir o crt na procedure AdicionarPagamento

Alteracoes relizadas no demo tefapi, configuracoes para elgin na procedure ConfigurarTEF;

ACBrTEFDElgin.pas Demo_NaoFiscal.rar Demo_TEFAPI.rar

[Daniel Simoes]

Olá @Fernando Pasqueto,

Poderia por favor anexar novamente as alterações ?

Tivemos um problema na tabela de anexos do fórum, e os anexos do tópico acima, ficaram indisponíveis...

 

[Fernando Pasqueto]

@Daniel Simoes Bom dia. 

postando novamente

Demo_NaoFiscal.rar Demo_TEFAPI.rar ACBrTEFDElgin.pas

Editado 17 Outubro por Fernando Pasqueto