Última versão do ACBrTEFD

[fdsilva.desenv]

Galera, boa tarde.

Apenas uma dúvida. Recentemente atualizei os componentes da pasta ACBrTEFD para sanar o cancelamento de transação manual quando há um pagamento tipo PIX.

Hoje, eu consigo com o ESC, cancelar a transação sem com que ficasse o status de "Transação aguardando pagamento". Porém, antes de atualizar, a mensagem "Transação aguardando pagamento" aparecia após cerca de 20seg de espera e agora, ela não aparece mais, o que dificultou a finalização da venda quando o TEF está em homologação.
Cheguei a por um timer na tela de até 10 minutos de espera para cancelar automático, para ver se a mensagem de espera voltasse a aparecer, e não voltou.

Gostaria de saber, em que momento, nesta nova versão do ACBrTEFD, a mensagem:  "Transação aguardando pagamento" aparecerá novamente? Preciso acionar alguma chamada, ou dar valor à alguma variável para tal?

 

Obrigado.

[Juliomar Marchetti]

Basta comparar mas não mudamos nada quanto a isso. e vai depender de que solução está usando de TEF.

em homologação é bem limitado. por exemplo pix vai aprovar tudo

[fdsilva.desenv]

Utilizo o sitef demonstração, da SoftExpress.

Trago em uma img o ACBrDelphiZXingQRCode através de um form, e antes de atualizar o ACBrTEFD, a unit ficava no ar por 20 seg e fechava automaticamente finalizando a compra em homologação levando a mensagem antes de finalizar a venda de: "Transação Aguardando Pagamento".

Com a atualização, a unit não fechou mais finalizando a compra em homologação.

[Juliomar Marchetti]

6 horas atrás, fdsilva.desenv disse:

Utilizo o sitef demonstração, da SoftExpress.

Trago em uma img o ACBrDelphiZXingQRCode através de um form, e antes de atualizar o ACBrTEFD, a unit ficava no ar por 20 seg e fechava automaticamente finalizando a compra em homologação levando a mensagem antes de finalizar a venda de: "Transação Aguardando Pagamento".

Com a atualização, a unit não fechou mais finalizando a compra em homologação.

 mas lhe afirmo que não é o componente. tu poderia mostrar através do log do svn qual foi o código modificado para isso?

[fdsilva.desenv]

Não sei exatamente qual foi o código, porque eu atualizei a pasta inteira do AcBrTEFD, praticamente.

Foi algo que notei no meu .exe, antes da atualização, quando feito em homologação o PIX, tinha "timer" de 20seg para finalizar corretamente a compra em homologação.

Após a atualização, a imagem do QrCode que levamos na tela não fecha mais automaticamente (finalizando a compra corretamente em homologação).

Vou enviar o código de como carregamos o QrCode do PIX para que, talvez vocês possam nos ajudar a entender se precisamos implementar algo mais para que a transação finalize corretamente a partir de um tempo aberta quando o sistema estiver em homologação.

 

constructor TFpgQrcEdForm.Create(AOwner: TComponent; ADados: String);
var
  QRCode: TDelphiZXingQRCode;
  QRCodeBitmap: TBitmap;
  Row, Column: Integer;
begin
  inherited Create(AOwner);

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

    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;

    ImgQRCode.Picture.Bitmap.Assign(QRCodeBitmap);
  finally
    QRCode.Free;
    QRCodeBitmap.Free;
  end;

end;

E abrimos a tela desta maneira: 

 

private

    FFpgQrcEdForm: TFpgQrcEdForm;

property FpgQrcEdForm     : TFpgQrcEdForm read FFpgQrcEdForm write FFpgQrcEdForm;


procedure TPDV.Evento_TEFDExibeQRCode(const Dados: String);
begin
  if (Dados <> '') then
    begin
      try
        FTEF.BloquearMouseTeclado(False);
        FpgQrcEdForm := TFpgQrcEdForm.Create(Self,Dados);
        FpgQrcEdForm.ShowModal;
        FpgQrcEdForm.Update;
        Application.ProcessMessages;
      finally
        RestaurarFocoAplicacao('FpgQrcEdForm');
      end;
    end;
end;

----------------------------------------------------------------------------
procedure inicializa
  FTEF.OnExibeQRCode                 := Evento_TEFDExibeQRCode;

----------------------------------------------------------------------------

property OnExibeQRCode: TACBrTEFDExibeQRCode read fOnExibeQRCode
        write fOnExibeQRCode;

 

[Juliomar Marchetti]

Então olha o exemplo do svn jovem. lembre-se como é um panel ele continua o fluxo. tu ali tá metendo um showmodal. vai dar erro e problemas.

[fdsilva.desenv]

Entendi Juliomar. Por gentileza, pode postar aqui o caminho (diretório) do exemplo para que eu possa analisar?

[Juliomar Marchetti]

Exemplos/ACBrTEFD e dentro dele tem vários

[fdsilva.desenv]

Obrigado Amigo.