Jump to content

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

KriarTecnologia

Membros
  • Posts

    86
  • Joined

  • Last visited

1 Follower

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

KriarTecnologia's Achievements

Enthusiast

Enthusiast (6/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

7

Reputation

1

Community Answers

  1. Boa tarde Ítalo, sua orientação foi excelente, deu certo, muito obrigado, valeu! ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsLibXml2; (funcionou)
  2. Bom dia senhores, tem uma postagem do Italo em 2015 do acbrmdfe, que apresentava o mesmo problema, ele fala em configuração a partir do acbr, por faovr deem uma olhada:
  3. a criação do .xml, assinatura, envio para sefaz, retorno ok da sefaz, reenvio de nfce em contingência, retorno ok de nfce, pesquisa de documento, funciona perfeitamente tanto standalone quanto no servidor vcl .dll no iis (isapi). Uso o certificado para essas operações sem problemas.
  4. Bom dia José, como eu disse para um sistema em vcl como é o DemoNFe o cancelamento funciona. Estou usando o intraweb como mencionei anteriormente: utilizo um servidor vcl .dll no iis já utilizei todas essas opções: TSSLHttpLib = (httpNone, httpWinINet, httpWinHttp, httpOpenSSL, httpIndy); o mesmo codigo quando executado em modo standalone funciona e cancela a nfc-e normalmente, uso a seguintes configuração: ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe1.SSL.SSLType := LT_TLSv1_2; ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml; ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; a criação do .xml, assinatura, envio para sefaz, retorno ok da sefaz, reenvio de nfce em contingência, retorno ok de nfce, pesquisa de documento, funciona perfeitamente tanto standalone quanto no servidor vcl .dll no iis (isapi).
  5. Obrigado pela atenção Juliana, quando alguém fizer alguma menção sobre o assunto aparecerá aqui? Ou em outro local, se for em outra postagem por favor me passe o link. desde já agradeço pela atenção!
  6. bom dia senhores, estou com o seguintes retorno quanto envio um evento de cancelamento de nfc-e (acbrnfe) para o servidor da sefaz: HTTP/1.1 400 Bad Request Isso utilizando um servidor vcl .dll no iis já utilizei todas essas opções: TSSLHttpLib = (httpNone, httpWinINet, httpWinHttp, httpOpenSSL, httpIndy); o mesmo codigo quando executado em modo standalone funciona e cancela a nfc-e normalmente, uso a seguintes configuração: ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe1.SSL.SSLType := LT_TLSv1_2; ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml; ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; ACBrNFe1.Configuracoes.WebServices.UF := qryLojas.FieldByName('sigla_estado').AsString; // Seta Versão a ser utilizada em execução with acbrnfe1.Configuracoes do begin Geral.ModeloDF := moNFce; //Geral.idCSC := '000001'; //Geral.CSC := frmlogon.qryLojas_csc.AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2'; Certificados.NumeroSerie := qryLojas.FieldByName('certdigital_nserie').AsString; //NFe_CertDigitalSenha; Certificados.Senha := qryLojas.FieldByName('certdigital_senha').AsString; //NFe_CertDigitalSerie; Certificados.ArquivoPFX := qryLojas.FieldByName('certdigital_caminho').AsString; if length(trim(qryLojas.FieldByName('id_csc').AsString)) > 0 then begin Geral.idCSC := copy( '000000' + trim(qryLojas.FieldByName('id_csc').AsString), length('000000' + trim(qryLojas.FieldByName('id_csc').AsString)) - 5, 6); Geral.CSC := qryLojas.FieldByName('csc').AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2'; end; Geral.FormaEmissao := teNormal; Geral.Salvar := True; // ACBrCTe1.Configuracoes.arquivos.PathSalvar := edtPathLogs.Text; Geral.Salvar := True; arquivos.PathSalvar := copy(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString), 1, length(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString)) - 52); WebServices.Visualizar := false; alguém pode me dar uma dica?
  7. tudo funciona no servidor vcl-isapi-datasnep rest .dll grava, assina, envia, retorna ok, reenvia contingência retorna ok, consulta documento retorna ok, o envio de cancelamento dá erro grave, e funciona com o mesmo código em standalone.
  8. Bom dia, obrigado por responder, todas essas questões no link enviado já havia pesquisado, estou procurando uma solução através do componente acbrnfe pois é ele que tem o controle, sei que tem uma configuração a ser seguida pois em 2015 o Ítalo publicou algo a respeito para o acbrdfe: no modo standalone funciona (intraweb) chamando e enviando a mesma requisição pelo browser, enviei de vários servidores, pois ele envia por um servidor datasnap rest - vcl, com windows server 2012 originalíssimo e mesmo assim dá erro. todas as outras requisições ao servidor da sefaz funciona sem problema no isapi .dll iis. Grava, assina, envia, retorna ok, perquisa do documento na sefaz e reenvio no caso de contingência. perguntei sobre minha configuração, gostaria de um parecer de vocês.
  9. boa noite senhores, estou com o seguintes retorno quanto envio um evento de cancelamento de nfc-e (acbrnfe) para o servidor da sefaz: HTTP/1.1 400 Bad Request Isso utilizando um servidor vcl .dll no iis já utilizei todas essas opções: TSSLHttpLib = (httpNone, httpWinINet, httpWinHttp, httpOpenSSL, httpIndy); o mesmo codigo quando executado em modo standalone funciona e cancela a nfc-e normalmente, uso a seguintes configuração: ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe1.SSL.SSLType := LT_TLSv1_2; ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml; ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; ACBrNFe1.Configuracoes.WebServices.UF := qryLojas.FieldByName('sigla_estado').AsString; // Seta Versão a ser utilizada em execução with acbrnfe1.Configuracoes do begin Geral.ModeloDF := moNFce; //Geral.idCSC := '000001'; //Geral.CSC := frmlogon.qryLojas_csc.AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2'; Certificados.NumeroSerie := qryLojas.FieldByName('certdigital_nserie').AsString; //NFe_CertDigitalSenha; Certificados.Senha := qryLojas.FieldByName('certdigital_senha').AsString; //NFe_CertDigitalSerie; Certificados.ArquivoPFX := qryLojas.FieldByName('certdigital_caminho').AsString; if length(trim(qryLojas.FieldByName('id_csc').AsString)) > 0 then begin Geral.idCSC := copy( '000000' + trim(qryLojas.FieldByName('id_csc').AsString), length('000000' + trim(qryLojas.FieldByName('id_csc').AsString)) - 5, 6); Geral.CSC := qryLojas.FieldByName('csc').AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2'; end; Geral.FormaEmissao := teNormal; Geral.Salvar := True; // ACBrCTe1.Configuracoes.arquivos.PathSalvar := edtPathLogs.Text; Geral.Salvar := True; arquivos.PathSalvar := copy(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString), 1, length(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString)) - 52); WebServices.Visualizar := false; alguém pode me dar uma dica?
  10. boa tarde senhores, estou com o seguintes retorno quanto envio um evento de cancelamento de nfc-e (acbrnfe) para o servidor da sefaz: HTTP/1.1 400 Bad Request Isso utilizando um servidor vcl .dll no iis já utilizei todas essas opções: TSSLHttpLib = (httpNone, httpWinINet, httpWinHttp, httpOpenSSL, httpIndy); o mesmo codigo quando executado em modo standalone funciona e cancela a nfc-e normalmente, uso a seguintes configuração: ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe1.SSL.SSLType := LT_TLSv1_2; ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpOpenSSL; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml; ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; ACBrNFe1.Configuracoes.WebServices.UF := qryLojas.FieldByName('sigla_estado').AsString; // Seta Versão a ser utilizada em execução with acbrnfe1.Configuracoes do begin Geral.ModeloDF := moNFce; //Geral.idCSC := '000001'; //Geral.CSC := frmlogon.qryLojas_csc.AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2'; Certificados.NumeroSerie := qryLojas.FieldByName('certdigital_nserie').AsString; //NFe_CertDigitalSenha; Certificados.Senha := qryLojas.FieldByName('certdigital_senha').AsString; //NFe_CertDigitalSerie; Certificados.ArquivoPFX := qryLojas.FieldByName('certdigital_caminho').AsString; if length(trim(qryLojas.FieldByName('id_csc').AsString)) > 0 then begin Geral.idCSC := copy( '000000' + trim(qryLojas.FieldByName('id_csc').AsString), length('000000' + trim(qryLojas.FieldByName('id_csc').AsString)) - 5, 6); Geral.CSC := qryLojas.FieldByName('csc').AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2'; end; Geral.FormaEmissao := teNormal; Geral.Salvar := True; // ACBrCTe1.Configuracoes.arquivos.PathSalvar := edtPathLogs.Text; Geral.Salvar := True; arquivos.PathSalvar := copy(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString), 1, length(trim(qryCupom_capa.FieldByName('arquivo_nfce').AsString)) - 52); WebServices.Visualizar := false; alguém pode me dar uma dica?
  11. bom dia senhores! preciso instalar o fortes resport a primeira vez e está dando erro: me lembro que tem de entrar na pasta branches e executar lá de dentro, mas não tá dando certo. por favor alguem pode me dar as dicas que faltam? estou usando o delphi seattle. desde já agradeço pela atenção.
  12. boa tarde Waldir! DEU CERTO! sabe o que era!? estava gravando um arguivo txt de log no evento ontransmit do acbrnfe, o que derrubava a conexão com o servidor da sefaz: procedure TServerMethods1.ACBrNFe1Transmit(const Dados, URL, SoapAction, MimeType: string; var Resposta: string; var HTTPResultCode, InternalErrorCode: Integer); begin Writeln(varq, 'ACBrNFe1Transmit01' ); end; Consegui enviar para sefaz e foi recebido normalmente, o acbr é muita ferramenta, vs estão de parabéns. permite que eu tenha n camadas de aplicação, demais. obrigado a todos!
  13. Obrigado pela atenção Waldir! Eu testei a geração da nota diretamente pelo intraweb e dá erro de memória quando vai gravar o arquivo .xml (ACBrNFe1.NotasFiscais.Items[0].GravarXML) realmente não sendo possível usar diretamente no intraweb, como vc disse. Antes disso já havia construido um servidor vcl datasnapRest que tem algumas funções e todas funcionando perfeitamente enviando e-mail com o acbremail, menos a função que envia a nfce para sefaz veja o código abaixo: try ACBrNFe1.NotasFiscais.Items[0].GravarXML (****** gera e grava o .xml sem problemas ****** except on E : Exception do begin ApagaPagamentos; vMensagemReturn := '[email protected]#$% ERRO AO GRAVAR O ARQUIVO.XML DA NFC-E' +E.Message; exit end; end; Writeln(varq, 'GeraEnviaNFce03' ); try ACBrNFe1.NotasFiscais.Items[0].Assinar; (****** assina o arquivo .xml sem problemas ****** except on E : Exception do begin ApagaPagamentos; vMensagemReturn := '[email protected]#$% ERRO AO ASSINAR O ARQUIVO.XML DA NFC-E' +E.Message; exit end; end; O problema está aqui quando vai enviar a nfce para sefaz: try ACBrNFe1.Enviar(1,true,true); (****** gera o erro mostrado na imagem abaixo ******) except on E: Exception do begin if length(UTF8Encode(ACBrNFe1.WebServices.Enviar.RetornoWS)) <> 0 then vMensagemReturn := UTF8Encode(ACBrNFe1.WebServices.Enviar.RetornoWS) else vMensagemReturn := '[email protected]#$% ERRO NO ENVIO - ' +E.ClassName +E.Message; (****** retorna o erro mostrado na imagem abaixo ******) exit; end; ***** Essa mensagem de erro é gerada no ACBrDfeWebService.pas e não sei o que realmente está acontecendo: const CErroSemResposta = 'Erro ao obter resposta do webservice.'; procedure TDFeWebService.VerificarSemResposta; begin { Sobrescrever apenas se necessário } if EstaVazio(FPRetWS) then raise EACBrDFeException.Create( CErroSemResposta + ifthen(NaoEstaVazio(FPRetornoWS),sLineBreak+FPRetornoWS,'')); end; Desde já agradeço pela atenção.
  14. Boa tarde senhores! Uma dúvida, o acbrnfe funciona diretamente no intraweb? desde já agradeço pela atenção.
  15. Boa tarde senhores! estou com o erro 12175 no envio da nfce e não consegui encontrar a resposta com a solução aqui no fórum. meu código de configuração: ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400; ACBrNFe1.SSL.SSLType := LT_TLSv1_2; ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFe1.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrNFe1.Configuracoes.Geral.SSLXmlSignLib:= xsMsXml; ACBrNFe1.Configuracoes.Geral.VersaoQRCode := veqr200; desde já agradeço pela atenção! Minha configuração do ssl e tls no windows server2008 : (já tentei todo tipo de configuração)
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.