ACBrTEFAPI: Contribuição

[antoniojmsjr]

Boa noite!

 

Fiz algumas implementações no componente e gostaria de compartilhar com vocês:

 

1º Implementação da Versão da API: Foi criado o método VersaoAPI para recuperar a versão da DLL ou a versão da API WEB, no meu caso foi para o modelo tefApiCliSiTEF, mas pode ser extendido para outros modelos.

- Utilizado para implementação o manual: SiTef - Interface Simplificada com a aplicação(VRS-255).pdf

2º Implementado a rotina VerificarPresencaPinPad: Foi implementado a rotina TACBrTEFAPIClassCliSiTef.VerificarPresencaPinPad para o modelo tefApiCliSiTEF. 

ACBrTEFAPI_Implementacoes.zip

[Daniel Simoes]

Show, obrigado @antoniojmsjr

já vou analisar...

[Daniel Simoes]

Obrigado pela contribuição...

Revi as demais classes, e implementei nas que tem a informação da Versão.. Commit [r39573]

[antoniojmsjr]

Boa Daniel!

Cara, o trabalho de vocês é de outro planeta, o que vocês fazem é excepcional, parabéns!

 

[antoniojmsjr]

Bom dia @Daniel Simoes

Encontrei mais uma correção para incluir:

 

Na unit ACBrTEFComum da classe  TACBrTEFResp falta implementar os campos:

property Voucher: Boolean read fpVoucher write fpVoucher;
property EndToEndID: string read fpEndToEndID write fpEndToEndID; 

nos métodos 

procedure TACBrTEFResp.Assign(Source: TACBrTEFResp);
procedure TACBrTEFResp.Clear;

 

 

[Daniel Simoes]

oi @antoniojmsjr, poderia por favor, anexar a Unit modificada ?

[antoniojmsjr]

Em 13/06/2025 at 10:11, antoniojmsjr disse:

Assign

Bom dia @Daniel Simoes

Segue as alterações

 

ACBrTEFAPI_Alteracoes.zip

[Daniel Simoes]

Não encontrei na documentação oficial, informações sobre o retorno do campo 2021

https://dev.softwareexpress.com.br/docs/clisitef/clisitef_documento_principal/

Ele não seria a mesma coisa, que o campo 136 (BIN) ?

 

[antoniojmsjr]

Nós usamos esse campo para auditória, nem tem na documentação, mas fica disponível para leitura

 

[Daniel Simoes]

@antoniojmsjr, enviei ao SVN, modificações, baseado em suas sugestões... Commit [r39850]

-- ACBrTEFComum --
[+] Adicionada a propriedade TACBrTEFResp.PAN
[*] Quando atribui algum valor a PAN, calcula o BIN e NFCeSAT.UltimosQuatroDigitos,
    caso essas propriedades sejam vazias     

 

[antoniojmsjr]

Boa tarde @Daniel Simoes

Implementei mais rotinas para a CliSITEF

SiTef - Interface Simplificada com a aplicação(VRS-255).pdf

* LeSimNaoPinPad - Pg 71

* ObtemInformacoesPinPad - Pg 78

* Rotinas administrativas:  tefopCargaTabelaPinpad:  Op := 770; / tefopCargaTabelaPinpadForcada:  Op := 772;

Não expus essas funcionalidades porque não tenho certeza se as demais libs oferecem essas rotinas.

ACBrTEFAPI_Alteracoes_2062025.zip

 

[antoniojmsjr]

Em 20/06/2025 at 18:31, antoniojmsjr disse:

Boa tarde @Daniel Simoes

Implementei mais rotinas para a CliSITEF

SiTef - Interface Simplificada com a aplicação(VRS-255).pdf

* LeSimNaoPinPad - Pg 71

* ObtemInformacoesPinPad - Pg 78

* Rotinas administrativas:  tefopCargaTabelaPinpad:  Op := 770; / tefopCargaTabelaPinpadForcada:  Op := 772;

Não expus essas funcionalidades porque não tenho certeza se as demais libs oferecem essas rotinas.

ACBrTEFAPI_Alteracoes_2062025.zip 27.47 kB · 1 download

 

Boa tarde @Daniel Simoes, tudo bem?

 

Será que tu consegue liberar essas implementações?

[Daniel Simoes]

Oi @antoniojmsjr, está na fila aqui...

Devo ver ainda essa semana...

[antoniojmsjr]

Bom dia @Daniel Simoes, tudo bem?

Será que poderia liberar somente para a CliSiTEF as alterações neste momento?

[Daniel Simoes]

@antoniojmsjr, 

Envie algumas das sugestões desse tópico, ao SVN...  Commit [r43580]

Citar

-- ACBrTEFCliSiTefComum --
[*] Remoção de constantes desnecessárias
[*] Ajustes nas contantes de Restrição, para evitar telas de Menu desnecessárias
[+] Adicionado ao suporte aos método EscreveMensagemPinPad, LeSimNaoPinPad,
    ObtemInformacoesPinPad da biblioteca CliSiTef
[+] Adicionado os métodos:
    Function EscreveMensagemPinPad(const Mensagem:AnsiString): Integer;
    function LeSimNaoPinPad(const MensagemDisplay: AnsiString): Integer;
    function ObtemInformacoesPinPad(out InfoPinPad: string): Integer;
[*] TACBrTEFCliSiTefAPI.ContinuaFuncaoSiTefInterativo, melhorias no Log
    (por: DSA) 

Eu não adicionei os tipos de operação Administrativa, para carga de Tabelas, pois eles não se aplicam em outros TEFs, e no caso do SiTef, podem ser invocados pelo Menu Administrativo. ou atribuindo o valor da operação em  property OperacaoAdministrativa da Classe do SiTef

[antoniojmsjr]

Bom dia @Daniel Simoes, tudo bem?

Muito obrigado, tu é fera de mais!

[Daniel Simoes]

Obrigado por reportar.

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