Coleta de CPF no PinPad, segunda parte

ALA · 29 Outubro, 2019

Senhores, bom dia. Estou enfrentando um problema na coleta dos doados direto no pinpad. Como já foi dito em outro tópico o TEF deve estar inicializado. Até ai tudo bem. Mas quando tento acionar a função g.ACBrTEFD.TEFCliSiTef.ObtemDadoPinPadDiretoEx(2, ' ', ' ' ) antes de realizar uma venda, ocorre erro -100 na função e não aciona o pinpad..

if Trim( dmst_TEF_DLL ) = dmco_Sim then
begin
g.ACBrTEFD.DesInicializar( TACBrTEFDTipo( gpCliSiTef ) );
// Configura TEF //
g.ACBRTEFD.SuportaSaque := False;
g.ACBRTEFD.SuportaDesconto := False;
g.ACBRTEFD.SuportaReajusteValor := False;
g.ACBRTefD.NumVias := dmin_NViasTef;
g.ACBRTefD.EsperaSTS := dmin_ContadorTEF;
g.ACBRTefD.TEFCliSiTef.EnderecoIP := dmst_TEF_Endereco_IP;
g.ACBRTefD.TEFCliSiTef.CodigoLoja := dmst_TEF_IDLoja;
g.ACBRTefD.TEFCliSiTef.NumeroTerminal := g.FormataIDTerminal( dmst_TEF_IdTerminal );
if dmst_TEF_MultiplosCartoes = dmco_Sim then
begin
g.ACBRTefD.MultiplosCartoes := True
end
else
begin
g.ACBRTefD.MultiplosCartoes := False;
end;

if dmst_TEF_AutoAtivarGP = dmco_Sim then
begin
g.ACBRTefD.AutoAtivarGP := True
end
else
begin
g.ACBRTefD.AutoAtivarGP := False;
end;

g.ACBRTefD.AutoEfetuarPagamento := False; // sempre falso //
g.ACBRTefD.AutoFinalizarCupom := False; // sempre falso //

// ** //
lcst_estadoSimuladoEcf:= tpsVenda; // CANCELA PENDENTE
// ala 21/08/2017 se ocorrer prolema retornar com essa linha lcst_estadoSimuladoEcf := tpsLivre;
if not( g.ACBrTEFD.Inicializado(TACBrTEFDTipo( gpCliSiTef ))) then
begin
g.ACBrTEFD.Inicializar( TACBrTEFDTipo( gpCliSiTef ) );
end;
// ** //

// *** 1 CPF, 2 CNPJ *** //
try
if not(InputQuery( 'PDV NFC-e', 'Informe: 1-CPF, 2-CNPJ', lcst_Opcao )) then
begin
ShowMessage( 'Opção inválida.' );
Abort;
end;
if StrtoInt( lcst_Opcao ) = 1 then // CPF //
begin
lbl_Mensagem1.Caption := 'AGUARDANDO DIGITAÇÃO DO CPF NO PINPAD...';
lbl_Mensagem1.Refresh;
lcst_Retorno := g.ACBrTEFD.TEFCliSiTef.ObtemDadoPinPadDiretoEx(1, ' ', ' ' );
end
else if StrtoInt( lcst_Opcao ) = 2 then // CNPJ //
begin
lbl_Mensagem1.Caption := 'AGUARDANDO DIGITAÇÃO DO CNPJ NO PINPAD...';
lbl_Mensagem1.Refresh;
lcst_Retorno := g.ACBrTEFD.TEFCliSiTef.ObtemDadoPinPadDiretoEx(2, ' ', ' ' );
end
else
begin
Abort;
end;
except
begin
ShowMessage( 'Opção inválida.' );
Abort;
end;
end;

if Trim( lcst_Retorno ) <> EmptyStr then
begin
if not UTIL.Validar_CNPJ_CPF( lcst_Retorno ) then
begin
lbl_Mensagem1.Caption := EmptyStr;
ShowMessage( 'CPF/CNPJ inválido' );
end
else
begin
lbl_Mensagem1.Caption := 'CPF/CNPJ: ' + lcst_Retorno;
ShowMessage( 'CPF/CNPJ: ' + lcst_Retorno );
DMXML.DS_VENDA.DataSet.Edit;
DMXML.DS_VENDA.DataSet.FieldByName( 'VEN_CNPJ_CIC' ).AsString := lcst_Retorno;
DMXML.DS_VENDA.DataSet.Post;
DMXML.DS_VENDA.DataSet.Edit;
end;
end
else
begin
lbl_Mensagem1.Caption := EmptyStr;
ShowMessage( 'CPF/CNPJ Não informado' );
end;
lcst_estadoSimuladoEcf := tpsLivre;
end
else
begin
ShowMessage( 'Opção disponível apenas para SkyTef');
end;