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?

Ok Obrigado Juliana

Boa tarde, sei que o post possui uma data antiga, porém me deparo com o mesmo problema que o relatado acima, verifiquei no fórum e consta outros post praticamente com o mesmo assunto, mas sem solução efetiva, gostaria de um direcionamento pois não estou conseguindo implementar tal rotina para mostrar o troco (saque), no cupom, já revirei o dois exemplos (...ACBr\Exemplos\ACBrTEFD\Delphi) e (...ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi - TEF) e não localizei algo que mostre como implementar, caso o amigo patrick.knopf, tenha solucionado poderia compartilhar? Obrigado

Tbm estou passando por este problema com o certificado A3. As configurações que uso. ACBrNFe.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFe.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrNFe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; alguém conseguiu uma solução?

Boa tarde sergio.lowczy ! Conseguiu a solução Amigo? Estou me deparando com o mesmo problema.

Leandro muito obrigado pelo retorno

Boa tarde também possuo esta duvida, de como transmitir o arquivo. Já verifiquei o exemplo e mesmo assim não consegui, desculpe pela ignorância, mas se algum puder ajudar com algum direcionamento. grato pela atenção

Boa tarde João Estou montando na unha também os arquivos, eu estou seguindo, o layout do esocial, mas fiquei com duvida a respeitos da nomenclatura das tag, para envio dos arquivos, você teria um exemplo, para me ajudar. E a proposito eu alterei o de trunk2 para branchs, mas não consegui fazer o download dos fontes