(Clisitef) Coletar CPF pelo pinpad para NFP

[EMBarbosa]

17 minutos atrás, ALA disse:

ok, vou fazer isso, bastas substituir o arquivo original do acbr pelo que o osmcvl postou ?

Acho que sim. Mas o ideal é fazer um merge.

Como o arquivo dele pode estar numa revisão diferente do arquivo na sua máquina, pode haver outras alterações que você queira ignorar...

[ALA]

Boa tarde. Estou realizando os testes com os fontes postados aqui, mas quando tento realizar chamada a função

 

     lcst_Retorno := g.ACBrTEFD.TEFCliSiTef.ObtemDadoPinPadDiretoEx(1,  ' ',  ' ' );
 

 

esta ocorrendo o erro

[EMBarbosa]

Talvez ele esteja exigindo que o CliSiTef esteja inicializado. Não?

[ALA]

Bom dia EMBarbosa. Mas acho que ja esta inicializado ? Estou fazendo esse teste apos executar uma carga no pinpad.. Existe uma função especifica p iniciar o CliSiTEf ?

[ALA]

Estou realizando o processo abaixo para realizar o teste. Acredito que nesse momento o SiTEf ja esteja inicializado...

[EMBarbosa]

23 horas atrás, ALA disse:

Estou realizando o processo abaixo para realizar o teste. Acredito que nesse momento o SiTEf ja esteja inicializado...

Se essa primeira tela é uma tela do método ADM então ele foi inicializado mesmo.

Nesse caso, restam duas possibilidade.

1. A implementação está com problemas
2. O seu SiTEF não está preparado para isso.

A possibilidade 1 pode ocorrer porque já está desatualizada, continha erros ou o merge feito em sua máquina não está correto. Você pode tentar fazer um debug e verificar exatamente onde a exception está sendo levantada.

A possibilidade 2 pode indicar que você não entrou em contato com a Software Express (ou outra credenciadora) para habilitar o seu SiTef para esse tipo de operação. Veja nas mensagens anteriores dos outros usuários que alguns passos são necessários.

[ALA]

Boa tarde EMBarbosa.

* Sim, funções ADM

1º Acredito que o problema esta na implementação, mas não estou sabendo como resolver. 

* Sim entrei em contato com  a SE, me enviaram uma nova dll..

[ALA]

Boa tarde. Comparando os arquivos, as unicas linhas que encontrei diferente são

[ALA]

Anexo arquivo apos o merge, o erro continua o mesmo...

ACBrTEFDCliSiTef.pas

[EMBarbosa]

Verifique exatamente onde a exception é levantada. A partir daí, veja qual o caminho que o código está seguindo pra levantar a exception.

[ALA]

Boa tarde EMBarbosa, o erro ocorre no final da função, e aborta a operação..

[EMBarbosa]

Então parece que está faltando executar o código da procedure "LoadDLLFunctions".

Veja também o método TACBrTEFDCliSiTef.Inicializar;

[ALA]

Bom dia EMBarbosa. Abaixo resposta da SkyTef. Como faço p verificar isso..

[EMBarbosa]

Em 13/09/2019 at 10:28, ALA disse:

Bom dia EMBarbosa. Abaixo resposta da SkyTef. Como faço p verificar isso..

Veja a parte do código que carrega a dll como eu mencionei antes "LoadDLLFunctions".

Você vai ver que ele menciona o caminho da DLL:

     // Concatena o caminho se exitir mais o nome da DLL.
     sLibName := sLibName + CACBrTEFD_CliSiTef_Lib;

Essa constante "CACBrTEFD_CliSiTef_Lib" usada no nome da DLL é definida por volta da linha 90 no arquivo que você anexou:

...

{$IFDEF LINUX}
  CACBrTEFD_CliSiTef_Lib = 'libclisitef.so' ;
{$ELSE}
  CACBrTEFD_CliSiTef_Lib = 'CliSiTef32I.dll' ;
{$ENDIF}

...

 

[ALA]

EMBarbosa então o ACBR esta fazendo correto ?. Vou verificar com o pessoal da SkyTEF o que tenho que fazer ?

[EMBarbosa]

8 horas atrás, ALA disse:

EMBarbosa então o ACBR esta fazendo correto ?. Vou verificar com o pessoal da SkyTEF o que tenho que fazer ?

Se a dll for CliSiTef32I.dll, então me parece que sim...

[EMBarbosa]

Em 20/03/2019 at 12:09, osmcvl disse:

Bom dia, implementei a função acima no ACBrTEFDCliSiTef.pas

function ObtemDadoPinPadDiretoEx(Tipo_Doc: Integer; ChaveAcesso: PAnsiChar; Identificador: PAnsiChar): AnsiString;

Gostaria que por gentileza colocassem no SVN, por que toda vez que atualizou o ACBR tenho que ficar atualizando ele e as vezes eu esqueço rsrs

 

ACBrTEFDCliSiTef.pas 69 kB · 25 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  17858.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

[Roney Melo]

Gostaria de expressar minha gratidão por esta implementação, pois já tenho 4 clientes no meu pé pedindo isso e caiu realmente do céu.

Muito obrigado a todos envolvidos, vinda longa, paz e saúde a todos vocês, grato!!!!!

[ALA]

Roney, bom dia. Será que vc poderia informar qual o procedimento vc realizou p isso funcionar. Tentei utilizar isso aqui mas não funcionou... Tenho vários clientes cobrando isso..

[Roney Melo]

1 hora atrás, ALA disse:

Roney, bom dia. Será que vc poderia informar qual o procedimento vc realizou p isso funcionar. Tentei utilizar isso aqui mas não funcionou... Tenho vários clientes cobrando isso..

Considerando que o ACBrTEFD já esta inicializado basta:

 

  {
    1 - Para CPF
    2 - Para CNPJ
  }

  Edit.text := ACBrTEFD1.TEFCliSiTef.ObtemDadoPinPadDiretoEx(1, '', '');

 

Editado 17 Outubro, 2019 por Roney Melo
erro de ortografia

[ALA]

Ops, vou testar isso aqui, vc colocou essa função para se acionada antes de iniciar a venda ?

[Roney Melo]

1 hora atrás, ALA disse:

Ops, vou testar isso aqui, vc colocou essa função para se acionada antes de iniciar a venda ?

Isso, meu PDV tem uma tela de identificação do cliente, conforme a tecla de atalho utilizada, ele abre para consultar manualmente, ou já abre aguardando o CPF/CNPJ ser digitado no pimpad...

Editado 17 Outubro, 2019 por Roney Melo

[ALA]

Ops, funcionou blzinha aqui...