Daniel Simoes

Esta em UTF8... @EliasCesar, consegue ajustar ?

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

Obrigado pelo envio... Como nos falamos pelo Discord, eu analisarei na quarta-feira

@Pedro Frayman ou @antonio.carlos, Podem por favor me ajudar com essa analise ?

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

Veja se esse link ajuda: https://docwiki.embarcadero.com/CodeExamples/Sydney/en/CreateFromStream_(Delphi)

Enviei esse ajuste ao SVN e Git

@amadeujunior18, por favor teste mudar o tipo para "Cardinal" function SwapBytes(Value: Cardinal): Cardinal; type Bytes = packed array[0..3] of Byte; begin Bytes(Result)[0]:= Bytes(Value)[3]; Bytes(Result)[1]:= Bytes(Value)[2]; Bytes(Result)[2]:= Bytes(Value)[1]; Bytes(Result)[3]:= Bytes(Value)[0]; end;

Você precisa salvar RespostaTEF.Conteudo.Conteudo da transação da VENDA, em BD, Arquivo ou onde desejar, para recuperar ele no futuro...

o Arquivo Log em si, não seria possível usar ele para ler diretamente no RespostaTEF.Conteudo.Conteudo

Como você já é homologado, será bem mais rápido... Apenas teremos os tramites de apresentação de contrato, e verificação do seu certificado...

No Log da transação administrativa, que foi feita a Reimpressão... realmente não terá as informações de Log da venda... (isso já foi citado no primeiro tópico) Isso só será válido, se você tiver Salvo o Log da VENDA, e quiser recuperar ele, para fazer tratativas...

Ok.. acho que dá pra ajustar os Typecastes ou fazer essa operação com "Move"... amanha faço alguns testes

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