PayGo IP (TXT) Nome do executável do Gerenciador Padrão não definido

[datilas]

tentando ativar o tef paygo com ACBrTEFDTipo := gpPayGo;

esta gerando o erro: Nome do executável do Gerenciador Padrão não definido

na unit ACBrTEFDPayGo.pas

alterar a linha 301

de: GPExeName := '';

para: GPExeName := CACBrTEFDDial_GPExeName;

Errado:

constructor TACBrTEFDPayGo.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);

  ArqReq    := CACBrTEFDPayGo_ArqReq;
  ArqResp   := CACBrTEFDPayGo_ArqResp;
  ArqSTS    := CACBrTEFDPayGo_ArqSTS;
  ArqTemp   := CACBrTEFDPayGo_ArqTemp;
  GPExeName := '';
  fpTipo    := gpPayGo;
  Name      := 'PagGo' ;

  fSuportaNSUEstendido := True;
  fSuportaReajusteValor := False;
  fSuportaViasDiferenciadas := True;

  if Assigned(fpResp) then
    fpResp.Free ;

  fpResp := TACBrTEFDRespPayGo.Create;
  fpResp.TipoGP := fpTipo;
end;

Certo:

constructor TACBrTEFDPayGo.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);

  ArqReq    := CACBrTEFDPayGo_ArqReq;
  ArqResp   := CACBrTEFDPayGo_ArqResp;
  ArqSTS    := CACBrTEFDPayGo_ArqSTS;
  ArqTemp   := CACBrTEFDPayGo_ArqTemp;
  GPExeName := CACBrTEFDDial_GPExeName;
  fpTipo    := gpPayGo;
  Name      := 'PagGo' ;

  fSuportaNSUEstendido := True;
  fSuportaReajusteValor := False;
  fSuportaViasDiferenciadas := True;

  if Assigned(fpResp) then
    fpResp.Free ;

  fpResp := TACBrTEFDRespPayGo.Create;
  fpResp.TipoGP := fpTipo;
end;

Segue unit alterada:

ACBrTEFDPayGo.pas

[Daniel Simoes]

Olá @datilas, desculpe pela demora na Resposta...

O fato do nome do Executável do Gerenciador Padrão da PayGo estar vazio, é devido a esse item, do manual deles...

 

Portanto Limpamos o nome do gerenciador, para o ACBrTEFD não tente executá-lo...