Gerenciador Pay&go Não Abre

[Arnaldo Cruz]

Estou utulizando o gerenciador padrão Pay&Go

 

Ao abrir o sistema ele identifica que o gerenciador padrão não está carregado, e carrega, vejo tanto o gerenciador padrao quanto o pay&go cliente no systray do windows.

 

Porem quando tento fazer uma venda a cartão, não é aberto mais aquela tela do gerenciador pra selecionar o tipo de cartao e consequentemente digitar o número do cartão.

 

 

 

ACBrTEFD.Inicializar(TACBrTEFDTipo(StrToInt(TipoPagamento.TipoGP)));

 

 

Quando é chamada esta função e entra no loop Retorno= "" do

não sai mais da já deixei por uma hora.

 

já verifiquei a forma de pagamento está sendo passada a mesma da impressora.

 

 

function TACBrTEFD.InfoECFAsString(Operacao: TACBrTEFDInfoECF): String;
var
   Retorno: String;
begin
   Retorno := '';
   fTefClass.GravaLog( 'InfoECF: '+
     GetEnumName(TypeInfo(TACBrTEFDInfoECF), Integer(Operacao) ) ) ;

   while Retorno = '' do
   begin
      try
         OnInfoEcf( Operacao, Retorno ) ;
      except
         On E : Exception do
         begin
            fTefClass.GravaLog( fTefClass.Name +'   Erro: '+E.Message ) ;

            if DoExibeMsg( opmYesNo, CACBrTEFD_Erro_ECFNaoRespondeInfo ) <> mrYes then
               raise EACBrTEFDECF.Create(E.Message);
         end;
      end;
   end;

   fTefClass.GravaLog( '    Ret: '+Retorno ) ;
   Result := Retorno;
end;

 

Obs. já deletei todos os arquivos da pasta TEF_Dia \Req e  Resp ; já fechei o gerenciador padrão deixando apenas o cliente pay&go.

 

Segue o arquivo de log.

 

 

ArqLog.txt

 

 

[Régys Silveira]

Como Pay&GO não existe tela para escolher o tipo do cartão (gerenciador padrão), vai abrir diretamente a tela do Pay&GO e o processo é todo feito ai.

[Arnaldo Cruz]

Pesquisando aqui no forum descobri este topico que cita um código anterior

 

Anterior

function TACBrTEFD.InfoECFAsString(Operacao: TACBrTEFDInfoECF): String;
var
   Retorno: String;
begin
   Retorno := '';
   fTefClass.GravaLog( 'InfoECF: '+
     GetEnumName(TypeInfo(TACBrTEFDInfoECF), Integer(Operacao) ) ) ;
 
   try
      OnInfoEcf( Operacao, Retorno ) ;
   except
      On E : Exception do
      begin
         fTefClass.GravaLog( fTefClass.Name +'   Erro: '+E.Message ) ;
         raise EACBrTEFDECF.Create(E.Message);
      end;
   end;
 
   fTefClass.GravaLog( '    Ret: '+Retorno ) ;
   Result := Retorno;
end;

 

Atual

 

function TACBrTEFD.InfoECFAsString(Operacao: TACBrTEFDInfoECF): String;
var
   Retorno: String;
begin
   Retorno := '';
   fTefClass.GravaLog( 'InfoECF: '+
     GetEnumName(TypeInfo(TACBrTEFDInfoECF), Integer(Operacao) ) ) ;
 
   while Retorno = '' do
   begin
      try
         OnInfoEcf( Operacao, Retorno ) ;
      except
         On E : Exception do
         begin
            fTefClass.GravaLog( fTefClass.Name +'   Erro: '+E.Message ) ;
 
            if DoExibeMsg( opmYesNo, CACBrTEFD_Erro_ECFNaoResponde ) <> mrYes then
               raise EACBrTEFDECF.Create(E.Message);
         end;
      end;
   end;
 
   fTefClass.GravaLog( '    Ret: '+Retorno ) ;
   Result := Retorno;
end;

 

Utilizando o codigo Anterior chega a abrir o a tela do visanet, mas logo em seguida da a mensagem (ERRO COECTANDO AO SERVIDOR PAY&GO(211).

 

Debugan do o codigo descobri que o erro acontece nesta função

 

function TACBrTEFDClass.CRT(Valor: Double; IndiceFPG_ECF: String;
  DocumentoVinculado: String; Moeda: Integer): Boolean;
begin
  Result := False ;
  VerificarTransacaoPagamento( Valor );

  IniciarRequisicao('CRT');
  Req.DocumentoVinculado  := DocumentoVinculado;
  Req.ValorTotal          := Valor;
  Req.Moeda               := Moeda;
  AdicionarIdentificacao;
  FinalizarRequisicao;

  Result := ProcessarRespostaPagamento( IndiceFPG_ECF, Valor);
end;

 

extamente >>>Result := ProcessarRespostaPagamento( IndiceFPG_ECF, Valor);

 

O problema é que dá o erro e a aplicação fica travada.

 

outro detalhe isso passou acontecer depois que formatei a maquina e baixei um novo ACBr, pois antes estava usando o mesmo gerenciador do TEF e abria a tela do visanet pra ser digitado o numero do cartão.

 

Já estou desesperado preciso homologar o TEF este mês, e ainda nem começei fazer o roteiro de teste por causa desse problema.

[Evandro Silva]

Olá Arnaldo,

 

O Mesmo problema está acontecendo comigo após ter atualizado o ACBr.

 

Régys, 

 

Houve alguma modificação no ACBrTEFD?

[Daniel Simoes]

Sinceramente... Não consegui compreender qual é o problema... Poderia ser mais objetivo ?

[Evandro Silva]

Olá Daniel,

 

Verifiquei que no evento "onInfoECF" do ACBrTEFD se não houver a operação "ineTotalAPagar" ele entra em um loop e não aciona o gerenciador padrão do TEF, quando coloquei para retornar o valor que já foi pago no ECF, funcionou perfeito.

Editado 25 Agosto, 2014 por Evandro Silva

[Daniel Simoes]

Você está falando de dois assuntos distintos ??

 

Verifiquei que no evento "onInfoECF" do ACBrTEFD se não houver a operação "ineTotalAPagar" ele entra em um loop e não aciona o gerenciador padrão do TEF, quando coloquei para retornar o valor que já foi pago no ECF, funcionou perfeito

.

Isso é lógico... o componente precisa dessa informação para continuar...

 

O que o cancelamento tem a ver com isso  ??

[Arnaldo Cruz]

Quando falei VisaNet quis dizer

pay&goCliente conforme a imagem abaixo.

 

Ao acionar o pagamento por cartão a tela abaixo deveria ser aberta porem não abre, motivado pelos erros citados.

 

[Evandro Silva]

Arnaldo,

 

Verifique se você está passando o valor pago na operação "ineTotalAPagar" em "onInfoECF", no meu caso foi esse o problema.

[Evandro Silva]

Daniel,

 

Acabei misturando os post, editei e tirei o comentário desnecessário sobre o outro assunto.

[Arnaldo Cruz]

Evandro o que deve ser passado

 

Colegas se alguem puder mim dá um help, acessar minhha maquina e ver o que está errado, pois já estou mim descabelando a uma semana e não consigo resolver este babado.

 

poderemos combinar um valor para tal feito.

 

Obrigado. desculpem se for apelação mas estou precisando disso com urgência

 

[email protected]

skype = arnaldocruz

Editado 26 Agosto, 2014 por Arnaldo Cruz

[Daniel Simoes]

Tudo indica que você tem um problema na instalação do seu Servidor/Client Pay&Go...

 

Sugiro remover tudo e instalar novamente... Fique atento às instruções do manual, pois lá descreve alguns procedimentos necessários para configurar o Servidor e Client

[Arnaldo Cruz]

Bom uma boa noticia, consegui resolver o problema, é que no procedimento de passar os valores pro TEFD estava errado, consegui resolver a partir da dica do Evandro Silva como abaixo a quem deixo meu especial obrigado e agradeço aos demais que se propuseram a mim ajudar.

 

Arnaldo,

 

"Verifique se você está passando o valor pago na operação "ineTotalAPagar" em "onInfoECF", no meu caso foi esse o problema."

Editado 27 Agosto, 2014 por Arnaldo Cruz

[Digito Sistemas]

Bom dia!

Sei que o tópico é muito antigo. Pesquisando achei este tópico, a solução para o meu problema não foi a mesma que mencionada aqui.
Percebi que, no meu caso, eu não estava passando o ENDEREÇO DO TEF (o ip) adequadamente, por isso dava erro ao abrir o TEF.

Resolvi responder, pq pode ser que alguém esteja com o mesmo problema.

 

Fui...