Osmar de Luca

Segue imagens do que já consegui, tá mas pq não usar o msitef, pq ele tem um sistema embarcado que precisa de interativade do usuario. entao para terminal de autoatendimento não fica legal.

Bom dia! Estou desenvolvendo a comunicao do TEF atraves da clisitef.so em android, já consegui fazer a comunição com o SITDEMO e o pinpad USB usando JJCliSiTefI = interface; // br.com.softwareexpress.sitef.JCliSiTefI gostaria se saber se alguem que entende um pouco mais do que eu em android tem interesse em me ajudar a desenvolver o restante?

bom dia douglas, Para resolver o problema criei o ACBRNFse antes de enviar a nota em runtime, depois que enviei a nota eu destruo ele. ai não da esse erro, deve ser algo dentro do compomente que fica setado em memoria que causa esse problema.

Boa tarde, Italo. acabei de atualizar e deu o mesmo problema. quando vou enviar a segunda nfse em sequencia da erro, não se estou estou esquencendo de limpar algo da memoria, mas estava funcionando normal ate mes passado. rsrsrs.

Bom dia! todo mes envio varias notas em sequencia de nfse para prefeitura de cascavel, provedor IPM porem hoje esta acontecendo um caso inusitado, a primeira vai normal porem as outras de erro, ai fecho o sistema e abro novamente, e a primeira vai, mudou algo minha versao do acbr é de 10/2023, ja tentei esperar um tempo para ver ser nao era questao de timeout mas nada, como só posso mandar uma por vez no servico, limpo NotasFiscais.Clear e carrego outra. Aguarde Enviando... RPS: 2516 Modo de Envio : Gerar NFSe Data de Envio : 19/03/2024 Numero do Prot: 7493190324114210900197005562024037389533 Numero da Nota: 901 Link : https://cascavel.atende.net/autoatendimento/servicos/consulta-de-autenticidade-de-nota-fiscal-eletronica-nfse/detalhar/1/identificador/7493190324114210900197005562024037389533 Sucesso : True Aguarde Enviando... RPS: 2517 Modo de Envio : Gerar NFSe Sucesso : False Erro(s): Código : X999 Mensagem: Erro de Conexão: Erro Interno: 12152 Erro HTTP: 0 URL: https://cascavel.atende.net/atende.php?pg=rest&service=WNERestServiceNFSe&cidade=padrao

Entendi, porém algumas versões do firmware atualizadas não funcionam digitacao que seja fora do padrao CPF, CNPJ e TELEFONE, por isso que softwareexpress indica que seja utilizado dessa nova forma.

Bom dia RRIquema, então eu ja entendi como funciona porem não sei qual é a melhor abordagem para implimentar no ACBRTEFD. Mas funciona assim: fRetornoPINPADNovo : String; Criei uma variavel global para salvar o retorno do pinpad. Abra uma transação com a operacao: 789 if ExecutarTransacaoSiTef(789, 0) then ContinuarRequisicaoSiTef; no ContinuarRequisicaoSiTef verifique os retornos proximocomando for 0 e tipocampo=2971: fRetornoPINPADNovo := BinaryStringToString(Buffer); proximocomando=29 tipocampo = 2967: Resposta := '1E'; // Código hexadecimal do dado do portador: Veja Tabela tipocampo = 2968: Resposta := '4'; // Tamanho Minimo do Campo tipocampo = 2969: Resposta := '4'; // Tamanho Maximo do campo tipocampo = 2970: Resposta := '0'; // Tempo de Espera com isso consegui retornar os dados do pinpad. Fiz isso no ACBrTEFAPI. Da pra fazer igual no ACBrTEFD. Então se alguem se habilitar para poder adicionar nos fontes do TEF eu posso ajudar. chamar no Whatsapp 45-99971-5601

Boa tarde, deu certo sim Italo. Obrigado pela sua ajuda!

Opa, segue o XML, temporariamente resolvi assim: if (Codigo <> '00001') and (Codigo <> '00001 - Sucesso') then begin 1473-lista-nfse-ger.xml

Bom dia, concordo plenamente Renato, porém no codigo está assim: Codigo := ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('codigo'), tcStr); AMSG := ACBrStr(ObterConteudoTag(ANodeArray[I].Childrens.FindAnyNs('Mensagem'), tcStr)); { Codigo = 00001 significa que o processamento ocorreu com sucesso, logo não tem erros. } if Codigo <> '00001' then begin .... end; Nesse caso teria que comparar assim: if Codigo <> '00001 - Sucesso' then begin .... end;

Não está seprando o codigo de retorno com a msg Está retornando do componente assim: Erro(s): Código : 00027 - O valor total da NFSe não pode ser zero (0,00).. Mensagem: Correção: deveria vir assim: Erro(s): Código : 00027 Mensagem: O valor total da NFSe não pode ser zero (0,00).. ------------------------------ Versão OpenSSL OpenSSL 1.1.1j 16 Feb 2021 01.01.01.0AF C:\Windows\SYSTEM32\libcrypto-1_1.dll C:\Windows\SYSTEM32\libssl-1_1.dll ------------------------------ Requisição Ambiente: 1 Cidade : Cascavel/PR Provedor: IPM Versão: 1.01 Método Executado: Gerar NFSe Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : 00027 - O valor total da NFSe não pode ser zero (0,00).. Mensagem: Correção:

bom dia, não consegui descobrir como passar os parametros depois da primeira resposta.

Tentei implementar mas ainda nao consegui pegar o fio da meada.

Bom dia, estou com a seguinte situação, gerei os arquivos de chave privada e certificado quando seto as propriedades: Inter.ArquivoChavePrivada := 'D:\Sistemas\XW\PDV\Certificados\PIX.Inter.Certificado.key'; Inter.ArquivoCertificado := 'D:\Sistemas\XW\PDV\Certificados\PIX.Inter.Certificado.crt'; funciona certinho. quando coloco esses arquivos em Recursos e carrego na propriedades: Inter.ChavePrivada := fSysWin.LoadRecurse('PIX_INTER_KEY'); Inter.Certificado := fSysWin.LoadRecurse('PIX_INTER_CRT'); function TSystemWindows.LoadRecurse(Name: String): String; sl := TStringList.Create; Stream := TResourceStream.Create(hInstance, Name, RT_RCDATA); sl.LoadFromStream(Stream); da erro de certificado e chaveprivada! qual é a diferenca da ArquivoChavePrivada/ArquivoCertificado e ChavePrivada/Certificado. vi que na ChavePrivada/Certificado converte PEM para ConvertPEMToASN1 mas não consegui entender!

Analisando os fontes do acbrtefapi constatei que ObtemDadoPinPadDireto sempre remete a mesma função da clisitef.dll xObtemDadoPinPadDiretoEx(PAnsiChar(ChaveAcesso), PAnsiChar(Identificador), PAnsiChar(EntradaCPF), Saida) tentei iniciar uma requisicao da seguinte maneira: -- 29/08 16:46:19:902 - *** IniciaFuncaoSiTefInterativo. Modalidade: 789 Valor: 0,00 Documento: 164619 Data: 20230829 Hora: 164619 Operador: Restricoes: -- 29/08 16:46:19:902 - BloquearMouseTeclado: SIM -- 29/08 16:46:19:902 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 29/08 16:46:20:145 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 29 TipoCampo = 2967 Buffer = Tam.Min = 1 Tam.Max = 4 -- 29/08 16:46:20:145 - ContinuaFuncaoSiTefInterativo, Chamando: Continua = 0 Buffer = -- 29/08 16:46:20:161 - ContinuaFuncaoSiTefInterativo, Retornos: STS = 10000 ProximoComando = 22 TipoCampo = -1 Buffer = Campo com formato invalido Tam.Min = 1 Tam.Max = 2 -- 29/08 16:46:20:161 - CliSiTef DoExibeMsg: Oper: opmOK Mensagem: Campo com formato invalido Como posso tratar para inserir esses parametros na Requisicao?