Thiago S. Postado 29 Agosto, 2023 Compartilhar Postado 29 Agosto, 2023 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? Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 29 Agosto, 2023 Moderadores Compartilhar Postado 29 Agosto, 2023 Pega o exemplo e usa ele pra testar. Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Thiago S. Postado 29 Agosto, 2023 Autor Compartilhar Postado 29 Agosto, 2023 Testei pelo exemplo também e não funciona esta parte Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 29 Agosto, 2023 Moderadores Compartilhar Postado 29 Agosto, 2023 Claro tenta lá chamar após o ADM o ImprimirTodosComprovantes Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Thiago S. Postado 29 Agosto, 2023 Autor Compartilhar Postado 29 Agosto, 2023 (editado) 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. Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 29 Agosto, 2023 Moderadores Compartilhar Postado 29 Agosto, 2023 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 Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Thiago S. Postado 29 Agosto, 2023 Autor Compartilhar Postado 29 Agosto, 2023 Perfeito! Vou testar com este outro componente e tentar ajustar! Link para o comentário Compartilhar em outros sites More sharing options...
Thiago S. Postado 29 Agosto, 2023 Autor Compartilhar Postado 29 Agosto, 2023 Sim, testando com o ACBrTEFD, funciona direito 1 Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 29 Agosto, 2023 Moderadores Compartilhar Postado 29 Agosto, 2023 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 Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Thiago S. Postado 29 Agosto, 2023 Autor Compartilhar Postado 29 Agosto, 2023 Claro, assim que resolver posto aqui! 1 Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro DaniPro Postado 10 Outubro, 2023 Membros Pro Compartilhar Postado 10 Outubro, 2023 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. Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro CarlosWilson Postado 17 Novembro, 2023 Membros Pro Compartilhar Postado 17 Novembro, 2023 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. Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 27 Novembro, 2023 Fundadores Compartilhar Postado 27 Novembro, 2023 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... Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Membros Pro CarlosWilson Postado 9 Março Membros Pro Compartilhar Postado 9 Março 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! 1 Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 10 Março Moderadores Compartilhar Postado 10 Março Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico. Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts