RaphaelComba

Bom dia, cara eu não faço muita ideia de como fazer para executar comandos openssl via Delphi, talvez algum membro saiba, mas tem esse repositório no github (GitHub - lminuti/Delphi-OpenSSL: Delphi wrapper for OpenSSL), que faz uso do openssl via delphi da uma olhada nos fonte e verifica se lhe ajuda.

Boa noite pessoal não sei se o tópico já foi resolvido, mas apanhei bastante para fazer uma requisição até achar o código que o amigo postou e funciona perfeitamente, para quem estiver com duvida de como funciona essa chamada do certificado via o arquivo .pem eu tive o mesmo problema, pois eu somente possuía o arquivo .pfx, mas felizmente encontrei uma forma de fazer, para os casos onde vocês possuírem apenas o arquivo .pfx é preciso fazer a conversão via OpenSSL com os seguintes comandos: openssl pkcs12 -in <filename.pfx> -clcerts -nokeys -out certificate.crt openssl pkcs12 -in <filename.pfx> -nocerts -nodes -out private.key comandos o parametro <filename.pfx> é o caminho do certificado, após essa conversão vai ser criados os arquivos .crt e . key e podem ser chamados assim: SSLIOHandler.SSLOptions.CertFile := 'C:\Users\Maquina1\Desktop\Serasa\Cert.crt'; SSLIOHandler.SSLOptions.KeyFile := 'C:\Users\Maquina1\Desktop\Serasa\Cert.key'; segue o código completo: var HTTPClient: TIdHTTP; SSLIOHandler: TIdSSLIOHandlerSocketOpenSSL; begin HTTPClient := TIdHTTP.Create(nil); HTTPClient.Request.Clear; HTTPClient.Request.CharSet := 'utf-8'; HTTPClient.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; Acoo Browser; GTB5; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; Maxthon; InfoPath.1; .NET CLR 3.5.30729; .NET CLR 3.0.30618)'; HTTPClient.Request.ContentType := 'application/json'; HTTPClient.Request.CustomHeaders.Clear; HTTPClient.Request.CustomHeaders.FoldLines := false; HTTPClient.Request.CustomHeaders.Values['Content-Type'] := 'application/json; application/x-www-form-urlencoded;'; HTTPClient.HandleRedirects := True; HTTPClient.HTTPOptions := [hoKeepOrigProtocol, hoInProcessAuth]; SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try // Set up SSL IO Handler with certificate SSLIOHandler.SSLOptions.Mode := sslmClient; SSLIOHandler.SSLOptions.VerifyMode := []; SSLIOHandler.SSLOptions.VerifyDepth := 0; SSLIOHandler.SSLOptions.CertFile := 'C:\Users\Maquina1\Desktop\Serasa\Cert.crt'; SSLIOHandler.SSLOptions.KeyFile := 'C:\Users\Maquina1\Desktop\Serasa\Cert.key'; SSLIOHandler.SSLOptions.SSLVersions := [sslvTLSv1_2]; // Set up HTTP client with SSL IO Handler HTTPClient.IOHandler := SSLIOHandler; // Make API call Result := HTTPClient.Get(APIEndpoint); // APIEndpoint = sua url finally HTTPClient.Free; SSLIOHandler.Free; end; end; Obs: Faça download do OpenSSL (https://sourceforge.net/projects/openssl/) e execute o arquivo OpenSSL.exe e execute os comando acima. fontes da conversão do certificado: https://support.kaspersky.com/KSC/12/pt-BR/201428.htm

Acabei de refazer a chave e tomei esse erro. Eu entrei no site para ver se o número de serie estava correto e solicitei ao cliente um cupom para verificar o numero que constavam nele e notei que no site da SGRSAT o numero de serio tem dois dígitos a mais no final, removi eles e passou normalmente. por exemplo eu estava passando assim "ednserieSAT.Text := '00064999999'; " nesse novo teste passe assim "ednserieSAT.Text := '000649999'; " sem os dois últimos dígitos que consta no site. Para ser mais preciso tem que passar o numero que consta no cupom fiscal. Muito obrigado pelo auxilio Daniel. Valeu

Blz vou fazer isso. Fico no aguardo. Valeu pela atenção

Tenta testar com este dados por favor edchaveSeguranca.Text := 'e4896ec2f88b41dfxxxxxxxxxxxxxxx'; ednserieSAT.Text := '00064999999'; eddhInicial.Text := '01/02/2020 00:00:00'; eddhFinal.Text := '29/02/2020 23:59:59';

Boa tarde! Daniel foi gerado sim a chave, sem ela não é seria possível iniciar os testes, a mesma consta no arquivo que deixei em anexo. Obrigado

Acabei de testar com a versão 0.08 e mesma coisa "Rejeição: Falha no schema XML"

Olá pessoal! Estou implementando o ACBrSATWS através do Demo (....\ACBr\Exemplos\ACBrDFe\ACBrSATWS\Delphi). Estou seguindo a seguinte configuração do próprio Demo: Onde obtive a mensagem de Rejeição: Falha no schema XML. Atualizei os fonte, copiei as dll`s da pasta ...\ACBr\DLLs\OpenSSL e sem solucão. pesquisei aqui no fórum os links: https://www.projetoacbr.com.br/forum/topic/26072-consulta-de-lotes-via-webservices/ https://www.projetoacbr.com.br/forum/topic/39210-sat-donwload-arquivos-sgrsat/?tab=comments#comment-257764 https://www.projetoacbr.com.br/forum/topic/48970-consultar-situação-do-cf-e-na-sefaz-pelo-acbr/?tab=comments#comment-323525 https://www.projetoacbr.com.br/forum/topic/52056-consulta-de-documento-usando-o-acbrsatws/?tab=comments#comment-342774 segui os passo informados em cada um deles e ainda sim persiste a mensagem 'Rejeição: Falha no schema XML'. tentei alterar as configurações do ACBrSATWS para estas: e outras possíveis e obtive o mesmo erro. por ultimo acessei o site https://portal.fazenda.sp.gov.br/servicos/sat/Paginas/Downloads.aspx, fiz download dos schemas lá disponíveis, apontei um por um no Path do ACBrSATWS e sem solução também, não sei se é alguma configuração errada da minha parte, mas a mensagem persiste. Se alguém esta usando este recurso e esta funcionando normalmente, poderia me auxiliar. Em anexo esta o xml de envio ao ws. Obrigado SatWS.txt

Pessoal estou com o mesmo problema para consultar já verifiquei o link: E não obtive sucesso. Erro Interno: 0 Erro HTTP: 500 URL: https://nfe.prefeitura.sp.gov.br/ws/lotenfe.asmx minha configurações são a seguintes: ACBrNFSe1.Configuracoes.Certificados.NumeroSerie := 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'; ACBrNFSe1.Configuracoes.Arquivos.PathSchemas := 'D:\Sistemas\Componentes\ACBr\Exemplos\ACBrDFe\ACBrNFSe\Schemas\SP\'; ACBrNFSe1.Configuracoes.Arquivos.Salvar := True; ACBrNFSe1.Configuracoes.Arquivos.SalvarApenasNFSeProcessadas := false; ACBrNFSe1.Configuracoes.Geral.Emitente.CNPJ := 'xxxxxx'; ACBrNFSe1.Configuracoes.Geral.Emitente.InscMun := 'xxxxx'; ACBrNFSe1.Configuracoes.Geral.Emitente.RazSocial := 'xxxxxxxx'; ACBrNFSe1.Configuracoes.Geral.CodigoMunicipio := 3550308; ACBrNFSe1.Configuracoes.Geral.PathIniCidades := 'D:\Sistemas\Componentes\ACBr\Exemplos\ACBrDFe\ACBrNFSe\ArqINI\'; ACBrNFSe1.Configuracoes.Geral.PathIniProvedor := 'D:\Sistemas\Componentes\ACBr\Exemplos\ACBrDFe\ACBrNFSe\ArqINI\'; ACBrNFSe1.Configuracoes.WebServices.UF := 'SP'; ACBrNFSe1.Configuracoes.WebServices.Salvar := True; ACBrNFSe1.Configuracoes.WebServices.Ambiente := TpcnTipoAmbiente.taProducao; ACBrNFSe1.Configuracoes.WebServices.TimeOut := 5000; ACBrNFSe1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFSe1.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrNFSe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFSe1.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; ACBrNFSe1.SSL.SSLType := LT_TLSv1_2; ACBrNFSe1.Configuracoes.Geral.SetConfigMunicipio; ACBrNFSe1.SSL.CarregarCertificado; ACBrNFSe1.ConsultarNFSe(StrToDateTime('01/01/2019'), StrToDateTime('01/05/2019')); //Período para exemplificar Obs: Firewall e Antivirus desativados 2018010120190501-con-nfse-soap.xml2018010120190501-con-nfse.xml

Estou com o mesmo problema "Rejeicao: Falha no Esquema XML do lote de NF-e" Minha rotina é esta ACBrNFe.EventoNFe.Evento.Add.InfEvento.cOrgao := AOrgao; ACBrNFe.EventoNFe.Evento.Add.InfEvento.chNFe := AChave; ACBrNFe.EventoNFe.Evento.Add.InfEvento.CNPJ := ACnpj; ACBrNFe.EventoNFe.Evento.Add.InfEvento.dhEvento := now; ACBrNFe.EventoNFe.Evento.Add.InfEvento.tpEvento := teManifDestCiencia; ACBrNFe.EnviarEvento(nIDLote); e retorna o mesmo erro citado acima. Alguém já passou por isso?

Amigo, existem dois demo que você pode consultar para teste o TEF: 1 :\ACBr\Exemplos\ACBrTEFD (este esta integrado com o PAF-ECF) 2 :\ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi - TEF ( este exemplo, mostra o uso com o NFC-e) Verifica este link : https://regys.com.br/homologacao-tef-paygo/#.W4lRMuhKiMo hoje estou homologando com a Pay&Go, em contato com eles (contato no link) ou outra certificadora, peça o material para homologação do TEF, com o material sera fornecido um Demo para você instalar o cliente (G.P "Gerenciador Padrão") e servidor, na sua maquina, após a leitura da documentação os Demos acima citados do acbr ficaram claros de como funcionam, pois os botoes e demais items estão de acordo com os comandos constantes nas documentação fornecida pela certificadora. segue mais um link para consulta e entendimento do G.P http://www.desenvolvedoresdaruma.com.br/sddn/ebits/ddcebits003.html Espero ter ajudado!

Deu certo Jackson. Não sei se foi o correto mas no momento da venda , uso a opção de ADM o pay&go, selecionei a opção debito+saque e deu certo o cupom sai certinho. valeu pessoal pela ajuda.

Blz, vou testar aqui e posto o resultado. Valeu Brother.

Jackson valeu pelo retorno Entendi perfeitamente o que você passou, porém onde informo o valor do Saque? Como passo para o gerenciador o valor? É uma duvida primaria, mas infelizmente não localizei nenhum exemplo explicando tal procedimento.

Boa tarde? Com base no post antigo houve a necessidade de abrir este aqui.... Estou utilizando o DEMO ....\ACBr\Exemplos\ACBrTEFD\Delphi e ...\ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi - TEF, seguido os passos da homologação do TEF pela NTK o passo 13 preciso gerar o seguinte situação: ✓ Valor total (final) R$ 14,00 ✓ Valor original R$ 10,00 ✓ Troco (Saque) de R$ 4,00 onde passo o valor para Saque? As propriedades suportadesconto e suportasaque estão como true, autoefetuarpagamento como False. Alguém que já passou por essa dificuldade?