Ricardo.Valin

Entendi. Obrigado pelo apoio @Daniel Simoes.

Obrigado pela resposta @Daniel Simoes. Será que pode me dar uma orientação de qual evento uso para interceptar? Conforme você respondeu nesse outro tópico : "Não há como saber se foi cancelada especificamente pelo PinPad, ou pela aplicação " Por isso criei essas propriedades para saber como foi cancelada. E como eu faria para não receber as confirmações em tela?

Na nossa aplicação precisamos que não sejam exibidos mensagens do tipo a que pergunta se confirma que o usuário quer confirmar o cancelamento da operação pelo pinpad, ou a que avisa que não conseguiu se comunicar com a impressora. Tambem precisamos que o componente tenha a propriedade que retorna se o cancelamento foi pelo usuario ou por erro de comunicalção com a impressora. Inclui tambem o retorno do proximo proximo comando a ser executado atravérs do fInfoProximoComando. Seguem os fontes ACBrTEFDCliSiTef.pas ACBrTEFD.pas

Ahhh então fui questionado exatamente de verificar se tem como eu saber se foi cancelado pelo Pinpad.

@Juliomar Marchetti Cara obrigado por me responder... Mas não achei o ponto.... Acho que você esta falando sobre o condicional na procedure ACBrTEFD1AguardaResp >>>> if (Arquivo = '23') and (not bCancelarResp.Visible) then Mas, não sei se estou errado, esse Arquivo é o ProximoComando do log? -- 27/04 14:02:51:934 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 23 TipoCampo = -1 Buffer = Tam.Min = 0 Tam.Max = 0 Porque ai entra a minha duvida.... Quando aperta o cancelar do pinpad ele grava o log -- 27/04 14:02:52:236 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 20 TipoCampo = 5013 Buffer = 13 - Operacao Cancelada? Tam.Min = 0 Tam.Max = 1 mas esse 20 não chega ao valor do Arquivo no ACBrTEFD1AguardaResp... Então queria validar se é o mesmo cara

@Juliomar Marchetti Alguma propriedade do componente indica que o usuário cancelou a operação pelo botão do PinPad. (pelo que vi não). Como eu consigo saber na minha aplicação que foi cancelado pelo usuário?

Certo Precisamos criar os parametros: habilitaColetaTaxaEmbarqueIATA habilitaColetaValorEntradaIATA Quando tentei passar um cartão pela primeira vez e quando passei o cartão de outra operadora pediu esses valores.

Daniel acho que não será necessario modificar. Verifiquei em detalhes as propriedades e consegui parametrizar o componente de forma que não pergunte tipo de cartão ou parcelas. Tenho uma outra duvida. Tem como não abrir a janela do mSitef? (sei que funciona com intent mas se for possivel)

Daniel verifiquei que alguns parametros não estão sendo passados no intent do metodo TACBrTEFSIWebAndroid.IniciarTransacao. Vou implementar e testar aqui do meu lado. Posso ajudar subindo o que eu fizer para vocês? Se sim como?

Estou tentando fazer funcionar de forma que o MSitef não pergunte nada. Mas identifiquei a pergunta de outros parâmetros: Conseguem me ajudar com a parametrização do componente?

Pessoal estou usando o ACBrTEFAndroid1.EfetuarPagamento para integração com o mSitef. Estou passando na chamada do método os seguintes parâmetros: ACBrTEFAndroid1.EfetuarPagamento( IdentificadorTransacao, 1, TACBrTEFModalidadePagamento.tefmpCartao, TipoCartao, TACBrTEFModalidadeFinanciamento.tefmfNaoDefinido, 0, 0); * TipoCartao := [TACBrTEFTipoCartao.teftcDebito] Mesmo com essas definições o mSitef pergunta o tipo do cartão.

Com o componente No Delphi 10.3.3

Pessoal estou tendo um retorno da função: function TACBrUSBWinDeviceAPI.SendData(const AData: AnsiString; ATimeout: Integer Integer; Sempre me dando esse retorno. Até imprime o conteudo esperado mas esta dando esse problema. Alguma sugestão Obrigado.

Pessoal estou usando no meu sistema a DLL da Cielo para cobrar via Visa Vale Pedágio e o ACBRTEFD consumindo a DLL da Clisitef para pagamento Crédito e Débito. Toda vez que faço um pagamento via Vale Pedágio e vou fazer um pela Clisitef ele recarrega as tabelas da clisitef no pinpad. Alguem já passou por isso, sabem como posso resolver?

Preciso implementar em um aplicativo o monitoramento do status da impressora e tentei alterar para todos os modelos de impressora disponíveis no componente AcbrPosPrinter e em todos o retorno é stErroLeitura. Uso uma Impressora Seiko(USB) Alguma dica pessoal?

Valeu vou dar uma olhada.

Na verdade estou usando direto a dll. Mas acho que vou mudar e usar ele, tem um roteiro do uso dele?

Olá Galera. Estou implementando no PDV o uso do TEF com o Servidor dedicado, para tanto criei duas funções function ConfiguraClisitef(const vIpSitef, vIdLoja, vIdTerminal,vNomeLoja: WideString): WideString; stdcall; function IniciaTransacaoSitef(vFuncao: SYSINT; const vValor, vCupomFiscal,vDataFiscal, vHoraFiscal, vOperador, vParamsAdd: WideString): SYSINT; stdcall; function TEcfCOM.ConfiguraClisitef(const vIpSitef, vIdLoja, vIdTerminal, vNomeLoja: WideString): WideString; var vRetorno: string; vNumRetorno:Integer; begin CliSiTef := TCliSiTef.Create(nil); CliSiTef.OnCliSiTef := OnCliSiTef; vRetorno:='Iniciando'+#13+#10; vNumRetorno := CliSiTef.Configure(vIpSitef,vIdLoja,vIdTerminal); if vNumRetorno = 0 then begin vRetorno:= vRetorno+'Inicialização Ok!'+#13+#10; end else begin vRetorno:= vRetorno+'Inicialização com retorno ' + IntToStr (vNumRetorno) + #13+#10; ShowMessage('Erro: retorno ' + IntToStr (vNumRetorno)); end; if CliSiTef.PinPad.IsPresent then begin vRetorno:= vRetorno+'Pinpad encontrado' + #13+#10; CliSiTef.PinPad.SetDisplayMessage(vNomeLoja, True); end else begin vRetorno:= vRetorno+'Pinpad não encontrado' + #13+#10; end; Result := vRetorno; end; function TEcfCOM.IniciaTransacaoSitef(vFuncao: SYSINT; const vValor, vCupomFiscal, vDataFiscal, vHoraFiscal, vOperador, vParamsAdd: WideString): SYSINT;stdcall; var vRetorno: integer; begin vRetorno := 0; vRetorno := CliSiTef.StartTransaction(vFuncao,vValor,vCupomFiscal,vDataFiscal,vHoraFiscal,vOperador,vParamsAdd); Result := vRetorno; end; O que está acontecendo é : Mando um ConfiguraClisitef(vIpSitef,vIdLoja,vIdTerminal,vNomeLoja) e me conecta ok com o pinpad Depois mando o comando vRetornoSitef := IniciaTransacaoSitef(2 ,FloatToStrF(Edit_VlrPagto.Value,ffFixed,14,2),NumCF,vDataFiscal,vHoraFiscal,vOperador,vParams) Que deveria me retonar 10000 pois configurei o sitefcfg.ini para [Geral] BandeiraPadraoHabilitada=1 Para me retornar a Bandeira do cartão, mas me retorna 0, e encerra o procedimento. Porem entrei em contato com o suporte da SE e disseram que pelo arquivo dmp de log o processo retornou duas vezes o 10000 então acho que eu que não estou sabendo usar. Alguem pode me ajudar?

Alguma novidade se os fontes foram corrigidos ou ao menos está em processo?

Ok. Tive que fazer esses ajustes para funcionar corretamente ACBrIBPTax.pas

A URL de consulta do De Olho no Imposto mudou, agora deve-se usar(produtos ainda funciona mas serviços não) https://apidoni.ibpt.org.br/api/v1/produtos? https://apidoni.ibpt.org.br/api/v1/servicos? Valores devem ser usados com separador decimal de ponto e não virgula(modificar no UrlConsulta := UrlConsulta + '&valor=' + Self.AjustaParam(FormatFloatBr(AValorUnitario,'#.##')); e o gtin deve ser enviado mesmo que em branco. Alterações devem ser feitas no ACBrIBPTax.pas. Favor notificar quando das correções estiverem ok.

Italo, boa tarde. O Componente esta preparado para pegar certificados tipo e-token?

Ele me pede um certificado, dá um erro o download... Não ainda não testei.

Nesse endereço tem os manuais. Mas vc não consegue os exemplos e os schemas.

Me manda um contato para que eu possa te enviar