SiTef - Correção para transações pendentes.

[Alexandre Scheidt]

Quando uma transação SiTef for feita no dia anterior e ficar pendente por algum motivo, ex  falta de eletricidade ou simplesmente porque virou as 00:00 hs. o cancelamento ou a efetivação da transação pendente não consegue localizar o documento no servidor SiTef.
Como simular:
1. Faz um pagamento parcial da venda ( força o fechamento da aplicação, sem finalizar a venda ).
2. Troca a data do sistema para dia + 1.
3. Reinicia o servidor SiTef. 
4. Abre o sistema, o estado da ECF ( Se for fiscal ) ou o "Estado Simulado Pendente" vão disparar a tratativa para cancelar(ou confirmar) transações pendentes. 
5. Neste momento o documento que foi emitido "em dia anterior" não estava sendo identificado.

Isso acontece porque está passando fixo o parâmetro "Now" e não a data da transação (campo 105 do arquivo \TEF\ACBr_CliSiTef_nnn.tef)
    DataStr := FormatDateTime('YYYYMMDD',Now);

Favor mudar para:
    DataStr := FormatDateTime('YYYYMMDD',Resp.DataHoraTransacaoComprovante);

 

No arquivo em anexo está o ajuste que fiz, gostaria de contribuir para melhoria do ACBr.

 

ACBrTEFDCliSiTef.pas

[Juliomar Marchetti]

conferi e está correto sua implementação.

no svn.

Obrigado

[Daniel Simoes]

Obrigado pela contribuição... apenas troquei...

if (Resp <> nil)   por
if Assigned(Resp)