Daniel Simoes

Se você tiver o Log do componente, salvo em um Memo, SIM.. Tente algo como: var RespostaTEF: TACBrTEFResp; begin RespostaTEF := TACBrTEFResp.Create try RespostaTEF.Conteudo.Conteudo.LoadFromFile(LogTEFFile); // usa propriedades de RespostaTEF finally RespostaTEF.Free; end; end;

@amadeujunior18, qual a sua IDE ? No Delphi 11.3, Android 32, pareceu compilar sem problemas

mas como eu disse, a reeimpressão apenas virá o espelho, e não os dados de log da Ultima Venda... Até porque, você pode reimprimir transações de Cancelamentos, Vendas, Administrativa, etc...

@Ico Menezes, a reimpressão em si, é uma NOVA transação Administrativa... ela apenas retornará o último Espelho impresso.. ou seja, ela nunca terá o retorno idêntico ao da última transação de venda.. Pelo que compreendi, você imaginaria receber todos os dados da mesma transação de venda, correto ? Infelizmente isso não ocorrerá... Sugiro você criar uma rotina, que salve rapidamente, todo o Log do TEF, assim que o mesmo for recebido... Caso essa rotina não seja executada (queda de energia).. Podemos deduzir que a transação também não foi confirmada... nesse caso, você pode optar por "desfazer" a última transação, quando o PDV subir novamente

É para ser, pois é Pascal puro... Por favor cole a exata msg de erro (fica difícil ver na imagem)

Essas modificações foram revertidas, pois quebraram as aplicações tradiciinais na operacao CRT

No caso do Demo, está na Unit Principal, método TFormPrincipal.AcharTransacaoTEFPendente

Minha teoria, é que o NSU possa estar diferente (sem zeros a esquerda, por exemplo).. e esse IF, falhe if (ACBrTEFD1.RespostasPendentes[i].Rede = Venda.Pagamentos[IndicePagto].Rede) and (ACBrTEFD1.RespostasPendentes[i].NSU = Venda.Pagamentos[IndicePagto].NSU) and (ACBrTEFD1.RespostasPendentes[i].ValorTotal = Venda.Pagamentos[IndicePagto].ValorPago) then Result := ACBrTEFD1.RespostasPendentes[i];

@valter_kettner, Analisando nos Fontes, ela só ficaria Pendente, se ela não tivesse sido confirmada... procedure TFormPrincipal.AtualizarPagamentosVendaNaInterface; var i, ARow: Integer; AResp: TACBrTEFResp; begin sgPagamentos.RowCount := 1; for i := 0 to Venda.Pagamentos.Count-1 do begin ARow := sgPagamentos.RowCount; sgPagamentos.RowCount := sgPagamentos.RowCount + 1; with Venda.Pagamentos[i] do begin if not Cancelada then begin AResp := AcharTransacaoTEFPendente(i); if Assigned(AResp) then Confirmada := AResp.CNFEnviado; // <------------- AQUI ------------- end; sgPagamentos.Cells[0, ARow] := FormatFloat('000', ARow); sgPagamentos.Cells[1, ARow] := TipoPagamento + ' - ' + DescricaoTipoPagamento(TipoPagamento); sgPagamentos.Cells[2, ARow] := FormatFloatBr(ValorPago); sgPagamentos.Cells[3, ARow] := NSU; sgPagamentos.Cells[4, ARow] := Rede; sgPagamentos.Cells[5, ARow] := ifthen(Cancelada, 'Cancelada', ifthen(Confirmada, 'Confirmada', 'Pendente')); sgPagamentos.Cells[6, ARow] := RedeCNPJ; end; end; AtualizarTotaisVendaNaInterface; end; Mas no seu Log, temos o envio do CNF... Consegue ir com o Debug e verificar se ele entra nesse IF if not Cancelada then begin AResp := AcharTransacaoTEFPendente(i); if Assigned(AResp) then Confirmada := AResp.CNFEnviado; end; - Se AResp retornar Nulo de AcharTransacaoTEFPendente, pode ser o problema...

Analisando os Logs

Poderia por favor detalhar um pouco mais, como configurou a IDE e executou o programa ? Se necessário, anexe Print Screens, basta copiar e colar aqui... @antonio.carlos, pode apoiar aqui ?

Eu realente preciso do Log, gerado pelo ACBrTEFAPI e pela PayGoWeb... O Log nos dirá o que a aplicação enviou para a TEF House Não compreendi plenamente... Você diz que fica pendente, no Portal do Cliente da Vero ?? Se nos Logs estiver claro que a aplicação está enviando a Confirmação, então provavelmente o problema é na Adquirente...

Por favor anexe o Log, dessa transação... Quando você fala "fica pendente"... onde você visualiza essa informação ?

@valter_kettner, Não consegui reproduzir o problema, pode por favor passar um passo a passo, de qual a sequencia para chegar até o problema ? Lembrando que só temos PDCs de homologação para testes... Mas o fato de mudar a adquirente, não muda em nada a lógica da aplicação...

Devem estar sobrecarregados, com a alta demanda por TEF no RS (assim como nós estamos) O único "problema", de usar uma máquina fornecida pela adquirente, é que você "casa" com ela.. e seus clientes só poderão usar Vero, para essa solução... O POS sem interligação com o sistema, não será permitido no RS Na visão do Fisco, se a Internet do POS funciona, porque a do estabelecimento não funcionaria?

Cada adquirente tem sua chave, para reconhecer os cartões e Bandeiras... O PinPad USB, tem o mapa de chave ABECs que são todas as chaves das empresas associadas a ABECS: https://abecs.org.br/ Mas dispositivos sem Fio, não recebem o mapa de chave ABECS pois precisam ser homologados individualmente por cada adquirente Então quando for cotar um SmartPOS, verifique com o Fabricate / Revenda, quais chaves de adquirente ele possui

O problema do SmartPOS é falta de chaves das maioria das Adquirentes

Existe o POS TEF da PayGo.. mas ele também depende de Internet Talvez você precise de um roteador, que permita um Chip 4G, para contingência... Veja esse da TecToy https://github.com/TecToy-Automacao/Equipamentos/blob/main/IOT/Roteador/Datasheet/27-ROTEADOR-DATASHEET.pdf https://github.com/TecToy-Automacao/Equipamentos/tree/main/IOT/Roteador/Manuais

Parece ser um problema na SEFAZ-MG, que está com um Novo Servidor de NFe no ar... Temos vários relatos semelhantes, em nosso Discord: https://discord.gg/acbr, no canal: #sefaz Mantenha o XML com o Protocolo Salvo, talvez seja necessário enviar eles como evidência, para a Sefaz MG

Eu realmente prefiro usar a versão 32 bits... Acho que a versão 64 ainda não está tão madura...

O instalador do ACBr, não é compatível com as versões CE (Community), devido essa limitação desse compilador Você poderia instalar o ACBr manualmente... mas isso é de dificuldade média... Ou usar uma versão Professional/Enterprise do Delphi

Realmente parece ser um Falso positivo, da analise heurística desses antivírus...

@Carlos Wagno Schneider... Você está carregando alguma DLL de SAT que seja de 32 Bits (ou algo parecido) ? Poderia por favor anexar o Log ? Não haverá ganho de performance em usar a versão 64 bits... Você pode continuar usando a versão 32 bits, mesmo em sistemas de 64 bits

Você pode fazer Download do Demo pelo SVN, usando o endereço: http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Node.js/

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