Fernando Pasqueto

@Daniel Simoes Bom dia. postando novamente Demo_NaoFiscal.rar Demo_TEFAPI.rar ACBrTEFDElgin.pas

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

Boa tarde. Preciso definir qual tipo de cartao vou utilizar Debito ou credito enviando direto da minha aplicacao, notei que ja existe essa implementacao no demo procedure InformarParametrosCartaoDebito; begin // Instruindo CRT a apenas transações de Débito if (ACBrTEFD1.GPAtual = gpPayGoWeb) then begin ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_CARDTYPE]:='02'; //02: débito //ACBrTEFD1.TEFPayGoWeb.ParametrosAdicionais.ValueInfo[PWINFO_FINTYPE]:='01'; //01: à vista end else if (ACBrTEFD1.GPAtual = gpCliSiTef) then ACBrTEFD1.TEFCliSiTef.OperacaoCRT := 2; end; porem nao consegui entender como implementar para elgin e getcart

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

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

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

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

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

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

Perfeito @Daniel Simoes testando aqui.

@Daniel Simoes Bom dia. O trabalho maior foi do @MuriloS.A

@Daniel Simoes @Juliomar Marchetti Boa tarde. Executei algumas correções nos arquivos ACBrTEFAPIElgin.pas e ACBrTEFAPIElginComum.pas, executei transacoes de multiplos cartões e operações admisnitrstrativas com exito. * Corrigido erro na exbição das operações administrativas. * Corrigido erro no retorno de pagamento, quando efetuado um pagamento de 10,00 o retorno era lido como 1,00, sendo assim a operacao era finalizada na elgin e permanecia em aberto no componente que recebia uma valor errado de pagamento efetuado. * Corrigido erro na rotina de tratamento de retorno do comprovante. ACBrTEFAPI.rar

Boa noite @Daniel Simoes esses paths serao oficializados?