Erro ao chamar Sitef

[Mario Inacio]

Bom dia.

Estou implementando as rotinas com Sitef.

Os cartões estavam todos funcionando, então fui implementar o PIX, abrindo um form pra apresentar o QrCode.

procedure TfMenu.TEFAPIQuandoExibirQRCode(const DadosQRCode: String);
var
   QRCode: TDelphiZXingQRCode;
   QRCodeBitmap: TBitmap;
   Row, Column: Integer;
begin
   if DadosQRCode <> '' then begin
      if not FormExiste(fTEFExibeQrCode) then
         Application.CreateForm(TfTEFExibeQrCode, fTEFExibeQrCode);
   end else begin
      if FormExiste(fTEFExibeQrCode) then
         FechaForm(fTEFExibeQrCode);
      Exit;
   end;

   QRCode       := TDelphiZXingQRCode.Create;
   QRCodeBitmap := TBitmap.Create;
   try
      QRCode.Encoding      := qrUTF8BOM;
      QRCode.QuietZone     := 2;
      QRCode.Data          := widestring(DadosQRCode);

      QRCodeBitmap.Width   := QRCode.Columns;
      QRCodeBitmap.Height  := QRCode.Rows;

      for Row := 0 to QRCode.Rows - 1 do begin
         for Column := 0 to QRCode.Columns - 1 do begin
            if (QRCode.IsBlack[Row, Column]) then
               QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack
            else
               QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite;
         end;
      end;

      with fTEFExibeQrCode do begin
         imgQRCode.Picture.Bitmap.Assign(QRCodeBitmap);
         Show;
         Refresh;
      end;

      Sleep(5000);
   finally
      QRCode.Free;
      QRCodeBitmap.Free;
   end;
end;

Como é uma rotina nova, apresentou um erro de AV.

Fiz as correções, mas agora não consigo simular mais nada, mesmo com cartão, pois acusa "Erro na Rotina Interativa".

Não achei nos utilitários do sitef como remover alguma pendência que exista.

 

[Juliomar Marchetti]

tu quer dizer que alterou o componente?

ou modificou seu sistema onde usa ele?

se modificou faz revert para o svn roda o instalador e vai funcionar

[Mario Inacio]

Escrevi de forma confusa:

Configurei no meu sistema o QrCode, e como ocorreu erro de AV, fiz a correção e agora não consigo mais testar pois ocorre esse erro.

E nos utilitários do Sitef não mostra nada pendente.

[Juliomar Marchetti]

9 minutos atrás, Mario Inacio disse:

Escrevi de forma confusa:

Configurei no meu sistema o QrCode, e como ocorreu erro de AV, fiz a correção e agora não consigo mais testar pois ocorre esse erro.

E nos utilitários do Sitef não mostra nada pendente.

estranho . isso dai é só se tu alterou algo no acbr

vai no svn do acbr no caso a pasta onde está e veja se tá tudo verde

ou se tem arquivo modificado

[Mario Inacio]

Atualizei mas continua a mesma coisa.

 

Fico debugando e monitorando aqui até a mensagem trazer o tipo cartão, quando trouxe "MasterCard" na Const Mensagem e apareceu no visor do Pinpad.

 

Nem chegou a apresentar o menu solicitando se é a vista ou parcelado e já caiu aqui com a Resposta como "Negada pelo autorizador (10000)" e depois da mensagem gera um AV.

 

 

Se tentar transmitir em seguida, dai aparece as mensagens do inicio desse Post.

[Mario Inacio]

Bom dia.

Hoje deletei tudo, acbr e sitef, limpeza de registro, maquina reiniciada, depois tudo reinstalado.

Mas persiste o erro quando chega no momento de inserir o cartão, a mensagem solicitando chega a aparecer no pinpad

 

[Mario Inacio]

Ola.

Descobri o problema.

Como não uso a mesma forma como se faz no Demo, não havia implementado o evento "QuandoEsperarOperacao".

Coloquei apenas um Sleep(1) no evento e já resolveu.

 

Obrigado.

 

 

 

[Alexandre de Paula]

Obrigado por reportar.

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