RaphaelComba
-
Total de ítens
22 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por RaphaelComba
-
-
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
-
4
-
-
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
-
1
-
-
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-342774segui 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
-
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.asmxminha 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!
-
3
-
-
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.
-
1
-
1
-
-
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,00onde 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
-
2
-
-
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.
-
18 horas atrás, LeandroLJM disse:
Boa Tarde!
Juliomar, Fiz uma alteração para corrigir um problema na geração do XML. Vou anexar os .pas.
Raphael você deverá fazer o Download pela URL: http://svn.code.sf.net/p/acbr/code/branches/
Dê uma lida nesse assunto que lá você sanará suas dúvidas:
Leandro muito obrigado pelo retorno
-
Em 10/08/2017 at 17:29, LUIZTEC disse:
Tem como vocês passarem como eu faço para transmitir e receber o arquivo do esocial?
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
-
Em 29/06/2017 at 15:33, JOAO MARCOS Rueda disse:
Olhei os fontes,
meu, to muito tempo sem abrir ou olhar pro delphi , isso aqui meio que caiu no meu colo (Delphi7 ainda), e pra fazer só a conexão e passar os eventos, achei complexo as estruturas de modelo para o fonte, e ainda pegar como está sendo feito pelos outros e alterar (mantendo padrão) isso vou perder o mês todo, enfim , vou de carreira solo por enquanto. Consegui validar o certificado e to tentando conectar no webservice, se acabar isso aqui posso até ajudar um pouco, dai vou ter tempo pra estudar como está feito, estou querendo voltar a fazer PDV também dai vai ser uma boa, mas por enquanto o tempo tá castigando.
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
API Rest Certificado Digital P12
em Object Pascal - Delphi & Lazarus
Postado
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.