Daniel Simoes

Oi @REGIS BENDER não compreendi muito bem o problema que você deseja relatar... Verifique se seus fontes estão totalmente atualizados (sem conflitos nos fontes locais)...

Se Não me engano o Instalador foi Atualizado recentemente no SVN

Fora do horário comercial você pode usar o 3003 da PayGo Caso aconteça algum problema técnico, podem receber atendimento gratuito. Contato PayGo **Ligação: 3003-9968** (não é necessário DDD). Ou via **WhatsApp: (11) 2832-6396** Funciona em horário estendido, até 23:00hs Importante sempre informar: **CNPJ** do estabelecimento, sem pontos ou traços. Ex: 12345678000100 **Tipo do TEF** ativado na automação, via dll, PayGo Web Dedicado. **Dica:** TEF por TXT é chamado de PayGo Convencional, TEF por DLL é PayGo Web, ou Dedicado. Se houver dúvidas durante seu atendimento, você pode perguntar no canal: #tef-produção

Ainda não... No momento apenas com Delphi FMX

Não compreendi muito bem as instruções do Sitef... Mas para qualquer Aplicação rodando em TS, você pode Usar o TEF por Troca da Arquivos TXT Instalar o Client Windows na máquina local Será esse Client que irá "falar" com o PinPad, e coletar o pagamento Criar uma pasta remota no Servidor, de forma que tudo que seja gravado nele, seja redirecionado para o Terminal Local, na pasta onde o TEF está monitorando o arquivo de entrada Ler a resposta do TEF, na pasta de resposta, da máquina Local, usando o mesmo recurso de "pasta remota"

Parece realmente um problema no código da ACBrLib, na hora de tratar o retorno desse método...

Olá @edu, Pelo que notei, a aplicação deveria sempre retornar a String "*VOLTAR*", para que o código funcionasse, correto ? TefAPI.QuandoPerguntarCampo(DefinicaoCampo, Resposta, Validado, Interromper); Voltar := (Resposta = '*VOLTAR*'); if not Voltar then RespCliSiTef.GravaInformacao(TipoCampo, Resposta);

Nem sempre vem essa resposta, depende da adquirente... Veja aqui: https://devpaygo.readme.io/docs/10dicionário-de-dados procure por todos PWINFO_RCPT* Observe que o código do ACBr, verifica qual está ativo e preenche em: ACBrTEFPayGoComum.pas, método: ConteudoToPropertyPayGoWeb(AACBrTEFResp: TACBrTEFResp); TACBrTEFResp.ImagemComprovante1aVia e TACBrTEFResp.ImagemComprovante2aVia

Muito obrigado pela análise, relato e contribuição.. parabéns pela iniciativa... Esta na minha fila para analisar e subir...

Parece que a pasta do TEF está corrompida.... Tente por favor apagar a pasta "Data" criada pela DLL, e repetir o processo de instalação e configuração

Prezados, Em relação a esse problema, recebi a seguinte resposta da Setis:

O erro realmente indica um problema de conexão em sua máquina, ou na sua rede https://devpaygo.readme.io/docs/11-códigos-de-retorno Verifique se as portas ainda estão bloqueadas no seu roteador ou provedor... Se a conexão funciona em outra máquina, na mesma rede, então realmente é algum bloqueio no seu PC...

Estude o Log gerado pela PayGoWeb e pelo componente do ACBrTEFAPI Responde SIM ou NÃO, e veja no Log qual foi o Status gerado

Realmente não seria possível usar os componentes de TEF do ACBr em VB6 Sugiro fazer a integração por troca de arquivos TXT por ser mais simples e compatível com qualquer linguagem Segue a documentação https://devpaygo.readme.io/v13/docs/sobre-este-documento

Para testes...Chame o evento direto do evdntk Button.Click

Nossos componentes são compatíveis apenas com Object Pascal (Delphi e Lazarus) Veja se há exemplos no GitHub da PayGo https://github.com/PGPagamentos?tab=repositories

Eu não vejo diferenças nas chamadas... Verifique se o evento está sendo chamado de forma recorrente, ou seja, ele está chamando o evento várias vezes, de forma recursiva... isso estoura a pilha, que causa um A.V. No Log do ACBrTEFAPI, ficam registradas todas as chamadas ao evento

não compreendi essa questão... tem algum exemplo de código ?

Para sugerir modificações nos fontes, por favor anexe as Units modificadas...

Eu realmente não sei o que pode ser... o código que você mostrou é dos fontes do Delphi... Talvez seja bom acionar o suporte da Embarcadero

o problema pode estar dentro do Form que está sendo criado... acompanhe o Onshow dele, no Debug

O problema não parece ter relação com o TEF em si... mas com a construção de aplicações em FMX... Tente mudar isso: FormObtemCampo := TFrm_mbl_TEF_ObtemCampo.Create(Nil); Pois você está destruindo o Form, e não o "Application"

Essa construção parece errada.. FormObtemCampo.ShowModal(procedure(ModalResult: TModalResult) begin MR := ModalResult; end); Para programação assíncrona, você teria que tratar todo o retorno, dentro da Procedure... Veja exemplos no Demo em Android provavelmente ocorre o A.V., porque o valor atribuído a variável MR irá sair do contexto, quando sair da procedure... Creio que você possa substituir o código acima, para: MR := FormObtemCampo.ShowModal;

Estou sem Pinpad no momento... Em qual linha do fonte do seu projeto, ocorre o A.V. ? (vá passo a passo com o Debug - F7)

Por favor anexe o Log gerado pelo ACBrTEFAPI, e indique o momento onde ocorre o A.V. Você não precisa mudar o .INC.. ajuste no Projeto.. veja esse tópico: Estou sem Pinpad no momento... Em qual linha do fonte do seu projeto, ocorre o A.V. ? (vá passo a passo com o Debug - F7)