Jump to content

110.png

Curso Gratuito para todos Usuários
+ Super Treinamento Assinando o SAC Anual

botao_campanha_thulio.png

sem_ttulo-620.fw_-e1583866078274.png 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

KriarTecnologia

Membros
  • Content Count

    86
  • Joined

  • Last visited

Community Reputation

7 Neutral

1 Follower

About KriarTecnologia

  • Rank
    Membro

Profile Information

  • Sexo
    Indefinido
  • Localização
    Uberlândia - MG

Recent Profile Visitors

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

  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...