Daniel Simoes

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

@Gilvan Oliveira, Realmente notei algo estranho em um commit recente no Commit [r30008] Já apliquei a reversão Commit [r30127]

Acho que já identifiquei o problema, devo subir uma sugestão de correção, em breve...

Muito obrigado pela contribuição @Giovanni Costa Rosa...

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 ?

Isso ocorre no Demo do ACBr? o erro parece indicar que o objeto "ACBrNFe" não foi instânciado (criado)

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...

ele sempre chamará esse evento, quando se trata de uma informação que ele ainda não tem, ou que precisa ser confirmada... No tópico indicado na resposta anterior, eu detalho as informações que podem ser passadas a um cancelamento... Mas ele SEMPRE irá solicitar Cartão e algumas outras informações de Confirmação

Veja esse tópico:

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...

@deciomantoanelli, Se você usa Delphi, não faz muito sentido, usar a ACBrLib... Você pode usar diretamente os componentes do ACBr no seu Delphi

@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.