Ir para conteúdo
  • Cadastre-se

Daniel Simoes

Fundadores
  • Total de ítens

    27.625
  • Registro em

  • Última visita

  • Days Won

    767

Tudo que Daniel Simoes postou

  1. Obrigado pela contribuição... Revi as demais classes, e implementei nas que tem a informação da Versão.. Commit [r39573]
  2. Apliquei uma ampla revisão nos fontes, no método LerInfo de todas as classes... Commit [r39561]
  3. O Sitef tem um funcionamento diferente, onde devemos informar quais formas de pagamento não queremos... Isso é feito, nos fontes do ACBr, em TACBrTEFAPIClassCliSiTef.EfetuarPagamento Observe que nesse método, o ACBr tenta traduzir os parâmetros recebidos no método EfetuarPagamento para esses parâmetros de restrição... Restricoes := DadosAdicionais; if (pos('[', fParamAdicFuncao.Text) = 0) then // Não especificou Restrições de Menu ? begin if (Op <> 0) and (OP <> 1) then // Débito Restricoes := Restricoes + CSITEF_RestricoesCueque + ';'; if (Op = 2) then // Débito Restricoes := Restricoes + CSITEF_RestricoesCredito + ';' else if (Op = 3) then // Crédito Restricoes := Restricoes + CSITEF_RestricoesDebito + ';'; if (Financiamento = tefmfAVista) then begin Restricoes := Restricoes + CSITEF_RestricoesParcelado + ';'; Restricoes := Restricoes + CSITEF_RestricoesParcelaAministradora + ';'; Restricoes := Restricoes + CSITEF_RestricoesParcelaEstabelecimento + ';'; end else if (Financiamento = tefmfParceladoEmissor) then begin Restricoes := Restricoes + CSITEF_RestricoesAVista + ';'; Restricoes := Restricoes + CSITEF_RestricoesParcelaEstabelecimento + ';'; end else if (Financiamento = tefmfParceladoEstabelecimento) then begin Restricoes := Restricoes + CSITEF_RestricoesAVista + ';'; Restricoes := Restricoes + CSITEF_RestricoesParcelaAministradora + ';'; end; e no final, ele adiciona os parâmetros que você tenha injetado em ParamAdicConfig e move tudo para ParamAdicFuncao... // Convertendo para formato de parâmetro, conforme esperado if (SL.Count > 0) then begin Restricoes := StringReplace(Trim(SL.Text), sLineBreak, ';', [rfReplaceAll]); if Restricoes <> '' then Restricoes := '['+Restricoes+']'; if fParamAdicConfig.Count > 0 then Restricoes := Restricoes + ';'+ Trim(fParamAdicConfig.Text); if (Restricoes <> '') then fParamAdicFuncao.Add( Restricoes ); end; finally SL.Free; end; Então precisamos ver no Log do ACBr (ou Sitef), como ficaram as restrições e parâmetros finais, enviados para o Sitef Segunda a documentação do SiTEF: https://dev.softwareexpress.com.br/docs/clisitef/clisitef_documento_principal/#início-da-transação-de-pagamento-ou-gerencial 110 Abre o menu de transações Gerenciais Os Cancelamentos, iniciam no comando 200 (que é o comando padrão do ACBr)
  4. Show, obrigado @antoniojmsjr já vou analisar...
  5. Olá @SIDesenvolvimento Você usa ACBrTEFD ou ACBrTEFAPI ? Seus fontes estão atualizados ? (lembro de ter feito um ajuste, para ele usar a hora atual, se não for informado o Documento da Venda) notei que em algumas situações no Log, está sendo enviado o Indentificador da Transação como zeros No seu Log, parece estar sendo enviado 200... veja Você pode configurar isso, na propriedade OperacaoCancelamento, exemplo: if ACBrTEFAPI1.TEF is TACBrTEFAPIClassCliSiTef then begin with TACBrTEFAPIClassCliSiTef(ACBrTEFAPI1.TEF) do begin OperacaoCancelamento := 110; end; end; Você está informando o parâmetro 'Financiamento' do método 'EfetuarPagamento' ? Ok := ACBrTEFAPI1.EfetuarPagamento( IntToStr(Venda.NumOperacao), AValor, Modalidade, CartoesAceitos, tefmfAVista); // <----- AQUI -----
  6. Enviado ao SVN... Commit [r39536] Não consegui baixar esse último anexo...
  7. O @Alexandre de Paula pode nos passar um retorno de como está o andamento da tarefa...
  8. Obrigado... Analisando...
  9. @EliasCesar, favor verificar... essas modificações parecem ser importantes... 53c53 < cAilosURLSandbox = 'https://pixcobranca-h.ailos.coop.br/qa/ailos/pix-cobranca/api/v1'; --- > cAilosURLSandbox = 'https://apiendpointhml.ailos.coop.br/qa/ailos/pix-cobranca/api/v1'; 109,110d108 < qp.Values['key'] := ArquivoChavePrivada; < qp.Values['cert'] := ArquivoCertificado;
  10. @EliasCesar, vários usuários estão reportando que Ailos modificou algumas coisas, na API deles... Esse tópico é sobre esse assunto ?
  11. Enviei ao SVN, modificações para acabar com os Exceptions silenciosos.. Commit [r39439]
  12. Pode mover o tópico para nossa área aberta, de Base de Conhecimentos
  13. @willian_delan, Muito obrigado... Enviei ajustes ao SVN, baseado em suas sugestões.... Commit [r39395]
  14. Você pode usar certificados do Windows, através da propriedade NumSerie https://acbr.sourceforge.io/ACBrLib/DFe.html
  15. Use o ACBrTEFAPI, ele é bem mais atualizado, e não tem vínculo com ECF
  16. Você pode achar as DLLs da LibXML2, no SVN do ACBr... https://svn.code.sf.net/p/acbr/code/trunk2/DLLs/LibXml2/ Lembrando... use a versão x86, se você compila seu .EXE em 32 bits... (independente do Windows ser 64 bits) Copie todas as DLLs do link acima, na mesma pasta do seu .EXE O quanto a implementação usando a LibXML2 é mais rápida que as antigas Units do PCN ? Confira nesse vídeo:
  17. O código já é tratado por Try/Except try Result := EncodeDate( StrToInt(copy(DataStr,5,4)), // EXCEÇÃO AQUI !!! StrToInt(copy(DataStr,3,2)), StrToInt(copy(DataStr,1,2)) ) ; except Result := 0 ; // <------ AQUI -------- end;
  18. Oi @Renan S.. ainda não consegui analisar.. estou terminando uma integração de TEF (PayKit)
  19. Não são comuns, operações de Cancelamento, diretamente no Caixa... Até porque isso pode ter o risco de fraude, do Operador... Mas é uma operação possível, se o Cliente estiver disponível, para passar o cartão e confirmar o Cancelamento... Geralmente operações de Cancelamento, são tratadas no BackOffice, diretamente com a Adquirente...
  20. Olá bom dia... Por favor anexe as Units modificadas, para analise...
  21. Talvez esse modelo, não suporte os comandos de Resposta, de leitura de Status, que a Epson usa Você pode ver na aba "Log" quais foram os comandos enviados, e questionar o fabricante
  22. Como reproduzir o problema ? Basta pegar o Demo do ACBr, ainda sem o Cache em disco, e tentar uma Busca por UF com "MT" ?
  23. É a DLL do SiTEF, que envia a imagem do QRCode ao PinPad, isso é feito no fluxo do TEF, e sem intervenção do ACBr Melhor contactar o suporte deles, para verificar situações como: - Esse PinPad permite a exibição de imagens na biblioteca deles ? - A configuração do SiTef está correta ?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.