Ir para conteúdo
  • Cadastre-se

dev botao

Última versão do ACBrTEFD


  • Este tópico foi criado há 783 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
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?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

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;

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

image.png

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 783 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.