Reimpressão de comprovantes TEF - SiTef

[Thiago S.]

Olá,

Estou tentando reimprimir os comprovantes de transações já efetuadas no TEF da SiTEF, utilizando o componente do ACBrTEFAPI. 

Alguém que utiliza este componente, com SiTef, e já conseguiu reimprimir os comprovantes?

 

 

[Juliomar Marchetti]

Pega o exemplo e usa ele pra testar.

[Thiago S.]

Testei pelo exemplo também e não funciona esta parte

[Juliomar Marchetti]

Claro tenta lá chamar após o ADM o ImprimirTodosComprovantes

[Thiago S.]

Certo,

Mesmo chamando esta função não são reimpressos os comprovantes.

Estava depurando aqui e consegui fazer imprimir fazendo alguns ajustes nos códigos. 

Na unit ACBrTEFAPICliSiTef.pas, alterei a função EfetuarAdministrativa , incluíndo a chamada Self.FinalizarChamadaAPI:

function TACBrTEFAPIClassCliSiTef.EfetuarAdministrativa(const CodOperacaoAdm: string): Boolean;
var
  OP: Integer;
begin

  Op := StrToIntDef(CodOperacaoAdm, CSITEF_OP_Administrativo);
  Result := ExecutarTransacaoSiTef(Op, 0);

  Self.FinalizarChamadaAPI;

end;

Na Unit ACBrTEFCliSiTefComum.pas, dentro da função ConteudoToPropertyCliSiTef, tem um trecho que retorna o Sucesso (true/false) e no caso da reimpressão, este retorno fica como false:

    QtdLinhasComprovante := max(ImagemComprovante1aVia.Count, ImagemComprovante2aVia.Count);
    Confirmar := (QtdLinhasComprovante > 0);

    Sucesso := (NSU_TEF <> '');

* Caso force para o Sucesso = true o componente reimprime os componentes... Porém não consegui avançar muito na lógica empregada dentro do componente, para esta reimpressão, tendo em vista que o retorno da DLL está correto.

Para o PayGo está funcionando corretamente... Apenas na funcionalidade específica para o SiTef que não processa tal reimpressão.

Se tiver alguma idéia posso testar aqui.

Editado 29 Agosto, 2023 por Thiago S.

[Juliomar Marchetti]

Não faço uso desse componente. uso o ACBrTEFD e o mesmo em todas as homologações que fiz paygo ou sitef estão ok

[Thiago S.]

Perfeito! Vou testar com este outro componente e tentar ajustar!

[Thiago S.]

Sim, testando com o ACBrTEFD, funciona direito

[Juliomar Marchetti]

8 minutos atrás, Thiago S. disse:

Sim, testando com o ACBrTEFD, funciona direito

Nunca use o ACBrTEFAPI para Sitef então por isso não posso lhe dizer

poderia tentar já que está com o SDK ajustar e anexar aqui

[Thiago S.]

Claro, assim que resolver posto aqui!

[DaniPro]

O problema esta na ACBrCliSitefComun.

na linha 407

405 QtdLinhasComprovante := max(ImagemComprovante1aVia.Count, ImagemComprovante2aVia.Count);
406 Confirmar := (QtdLinhasComprovante > 0);
407  Sucesso := (NSU_TEF <> ''); <----- o NSU_TEF esta vazio e Sucesso assume falso, dando a entender que a operação falhou.

Creio que por ser um procedimento gerencial, o NSU esteja vazio.

A imagem do comprovante está carregada e Confirmar é verdadeiro.

[CarlosWilson]

Boa tarde estou com o mesmo problema. Acabei de mandar um log pro email dos consultores. Eu fiz o teste ignorando o if Sucesso e mandei imprimirTodosComprovantes, mesmo assim não imprimiu, aparece como se não tivesse nenhum comprovante carregado. Uso o TEFAPI com SITEF.

[Daniel Simoes]

Em 10/10/2023 at 16:55, DaniPro disse:

O problema esta na ACBrCliSitefComun.

na linha 407

405 QtdLinhasComprovante := max(ImagemComprovante1aVia.Count, ImagemComprovante2aVia.Count);
406 Confirmar := (QtdLinhasComprovante > 0);
407  Sucesso := (NSU_TEF <> ''); <----- o NSU_TEF esta vazio e Sucesso assume falso, dando a entender que a operação falhou.

Creio que por ser um procedimento gerencial, o NSU esteja vazio.

A imagem do comprovante está carregada e Confirmar é verdadeiro.

@DaniPro, Muito obrigado pela analise... Você está correto, o fato da propriedade "Sucesso" ficar False, impede que o Demo do ACBrTEFAPI considere efetuar a impressão do comprovante...

Apliquei a seguinte correção, no Commit [r31365]

    Confirmar := (QtdLinhasComprovante > 0);
    Sucesso := (NSU_TEF <> '') or Confirmar;

 

Em 17/11/2023 at 15:04, CarlosWilson disse:

Boa tarde estou com o mesmo problema. Acabei de mandar um log pro email dos consultores. Eu fiz o teste ignorando o if Sucesso e mandei imprimirTodosComprovantes, mesmo assim não imprimiu, aparece como se não tivesse nenhum comprovante carregado. Uso o TEFAPI com SITEF.

@CarlosWilson, por favor atualize os fontes, e teste novamente a reimpressão do ultimo comprovante, pelo menu Administrativo...

[CarlosWilson]

Em 27/11/2023 at 19:35, Daniel Simoes disse:

@DaniPro, Muito obrigado pela analise... Você está correto, o fato da propriedade "Sucesso" ficar False, impede que o Demo do ACBrTEFAPI considere efetuar a impressão do comprovante...

Apliquei a seguinte correção, no Commit [r31365]

    Confirmar := (QtdLinhasComprovante > 0);
    Sucesso := (NSU_TEF <> '') or Confirmar;

 

@CarlosWilson, por favor atualize os fontes, e teste novamente a reimpressão do ultimo comprovante, pelo menu Administrativo...

Daniel, desculpe o atraso mas só tive como retornar no TEF esse mês. Ficou 10! foi só recompilar com a nova versão dos componentes e passou a reimprimir.

 

Muito obrigado!

[Juliomar Marchetti]

Obrigado por reportar.

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