Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

KriarTecnologia

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    86

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por KriarTecnologia

    HTTP/1.1 400 Bad Request

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado · Editado por KriarTecnologia

    15 horas atrás, Rafael Dias disse:

    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.

     

    15 horas atrás, Rafael Dias disse:

     

     

    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.

    HTTP/1.1 400 Bad Request

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado · Editado por KriarTecnologia

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

     

    HTTP/1.1 400 Bad Request

    em NFe/NFCe - Nota Fiscal Eletrônica

    Postado

    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?

     

    image.png

    HTTP/1.1 400 Bad Request

    em ACBrNFe

    Postado

    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.

    HTTP/1.1 400 Bad Request

    em ACBrNFe

    Postado · Editado por KriarTecnologia

    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.

    HTTP/1.1 400 Bad Request

    em ACBrNFe

    Postado

    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?

    image.png

    Http: 400 Bad Request

    em ACBrMDFe

    Postado · Editado por KriarTecnologia

    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?

    image.png

    acbrnfe em servidor vcl web

    em Dúvidas gerais

    Postado

    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!

    21 horas atrás, Waldir Paim disse:

    Na sua estrutura  o melhor caminho e seguir usando datasnapRest;

    Precisa fazer um debug nesse método para chegar no ponto do erro;

    Poe um break point no código do servidor nesse ponto e vai seguindo ate chegar no erro.
     

     


     

     


     

     


     

     


     

     


     

     


     

    image.png

    image.png

    image.png

    image.png

    image.png

    image.png

    • Curtir 2

    acbrnfe em servidor vcl web

    em Dúvidas gerais

    Postado

    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 := '!@#$% 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 := '!@#$% 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 := '!@#$% 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.

    image.thumb.png.40c7ad8311f9b2442416bf02cc766d7f.png

    Erro CAPICOM SEFAZ/MG - WINDOWS 2003/2003x64

    em ACBrNFe

    Postado

    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!

    image.thumb.png.ada230a80217b9500a287572f0b48384.png

    Minha configuração do ssl e tls no windows server2008 : (já tentei todo tipo de configuração)

    image.thumb.png.d5f6dd1c1026f24b961e10096cfea990.png

     

    image.png

    Grupo de Informações do Responsável Técnico

    em Notícias do ACBr

    Postado

    Bom dia senhores:

    Não estou encontrando o:

        infRespTec.CNPJ     := xCNPJ_RespTec;    
        infRespTec.xContato := xContato_RespTec; // Nome do responsável técnico
        infRespTec.email    := xEmail_RespTec;   
        infRespTec.fone     := xFone_RespTec;  

    ACBrNFe1.Configuracoes.RespTec.infRespTec.CNPJ (não existe)

    ACBrNFe1.RespTec.infRespTec.CNPJ (não existe)

    ACBrNFe1.infRespTec.CNPJ (não existe)

    Não encontro o grupo infresptec em nenhum lugar, só consigo encontrar acbrnfe1.configuracoes.resptec

     

    desde já agradeço pela atenção.

    acbrnfe em servidor vcl web

    em Dúvidas gerais

    Postado · Editado por KriarTecnologia

    Boa tarde senhores!

    Revi a lógica do meu código e ele realmente passa pelo except no try:

          try
            ACBrNFe1.Enviar(1,false,true,false);

          except
            on E: Exception do
              begin
                vMensagemReturn := '!@#$% ERRO NO ENVIO - ' +E.ClassName +E.Message;
                exit;
              end;

          end;

    consegui capturar a mensagem de retorno:

    image.thumb.png.c2542e648b04ad990ec5124ce9dc46ea.png

     

    blz, acho que o webservice não respondeu.

    no sistema antigo seria esse erro:

    image.thumb.png.d43856c767c12508b187ce421980100f.png

     

    FICA UMA PERGUNTA FINAL: ONDE ENCONTRO, NO ACBR, ESSE RETORNO MOSTRADO ACIMA PELO MEU SISTEMA ANTIGO?

    desde já agradeço pela atenção.

    acbrnfe em servidor vcl web

    em Dúvidas gerais

    Postado · Editado por KriarTecnologia

    Boa tarde senhores!

    OK o BigWings tem razão, mas agora preciso só resolver o problema do UTF8Encode(ACBrNFe1.WebServices.Enviar.RetornoWS); está em branco.

    porque o retorno UTF8Encode(ACBrNFe1.WebServices.Enviar.RetornoWS); está em branco.?

    Será que quando ocorre o erro http 500 ele vai ficar em branco?

    Abaixo a imagem de quando eu não trato com try except o ACBrNFe1.Enviar(1,false,true,false); 

    image.thumb.png.1510085768c17dcc6c5a7008ce948651.png

    acbrnfe em servidor vcl web

    em Dúvidas gerais

    Postado · Editado por KriarTecnologia

    Bom dia senhores!

    Primeiramente quero agradecer pela atenção que sempre tive neste fórum.

    Obrigado pelas sugestões e por apontar os detalhes observados no código.

    Utilizando a sugestão do Daniel ficou o seguinte:

     

    CORPO PRINCIPAL:

      GeraEnviaNFce;  // ##### PROCEDURE QUE VAI CHAMAR O MÉTODO ACBrNFe1.Enviar(1,false,true,false);
      if vTemErro then
        begin
          result := vMensagemReturn;

          qryCupom_capa.Edit;
          qryCupom_capa.FieldByName('nro_nfce').Value := 0;

          try
            qryCupom_capa.ApplyUpdates;
            qryCupom_capa.CommitUpdates;

          Except
            on E : Exception do
            begin
              vMensagemReturn := '!@#$% Ocorreu um problema ao regravar(0) o registro(data) de (cupom_capa) - ApropriaNroNFce' +E.Message;
              qryCupom_capa.CancelUpdates;
            end;
          end;

          exit;
        end;

      Writeln(varq, 'ProcessaNFce14' );

      AlteraEventoVendaCupomCaixa; // ##### PROCEDURE QUE SERÁ EXECUTADA EM SEGUIDA
        begin
          result := vMensagemReturn;
          exit;
        end;

     

    ##### PROCEDURE QUE VAI CHAMAR O MÉTODO ACBrNFe1.Enviar(1,false,true,false);

    procedure TServerMethods1.GeraEnviaNFce;
    begin

          try
            ACBrNFe1.Enviar(1,false,true,false); // ##### NESSE PONTO ACONTECE O ERRO E NÃO ENTRA NO EXCEPT

          except
              vMensagemReturn := '!@#$% ERRO NO ENVIO - ' +
              UTF8Encode(ACBrNFe1.WebServices.Enviar.RetornoWS);
              exit;

          end;

     

    ##### NESSE PONTO ACONTECE O ERRO E NÃO ENTRA NO EXCEPT

    image.png.fbb1409f58505c112ed6690cebd96de2.png

    image.png.be64b348db48a337704865f9f84d7603.png

     

    Em seguida ele vai direto para a procedure:

    AlteraEventoVendaCupomCaixa; // ##### PROCEDURE QUE SERÁ EXECUTADA EM SEGUIDA

    procedure TServerMethods1.AlteraEventoVendaCupomCaixa;
    begin

      vTemErro := true;

      if (pos('<cStat>100<',UTF8Encode(ACBrNFe1.WebServices.Enviar.RetWS))=0) and
         (pos('<cStat>110<',UTF8Encode(ACBrNFe1.WebServices.Enviar.RetWS))=0) and
         (pos('<cStat>301<',UTF8Encode(ACBrNFe1.WebServices.Enviar.RetWS))=0) and
         (pos('<cStat>302<',UTF8Encode(ACBrNFe1.WebServices.Enviar.RetWS))=0) and
         (pos('<cStat>303<',UTF8Encode(ACBrNFe1.WebServices.Enviar.RetWS))=0) and
         (pos('<cStat>233<',UTF8Encode(ACBrNFe1.WebServices.Enviar.RetWS))=0) and
         (pos('<cStat>234<',UTF8Encode(ACBrNFe1.WebServices.Enviar.RetWS))=0) and
         (pos('<cStat>205<',UTF8Encode(ACBrNFe1.WebServices.Enviar.RetWS))=0) and
         not vEmiteEmteOffLine then
         begin
            vMensagemReturn := '!@#$% ERRO NO ENVIO ***** ' + 
                UTF8Encode(ACBrNFe1.WebServices.Enviar.RetornoWS);

            exit;
         end;

     

     

    onde envia a mensagem de erro para o navegador.

    Com o acbr Monitor não daria mais certo?

    desde já agradeço pela atenção e pela disposição em me atender, obrigado.

     

     

    O UTF8Encode(ACBrNFe1.WebServices.Enviar.RetornoWS); está em branco:

    image.png.a481da62e3a08fcd8ccabe5b74883d71.png

    image.thumb.png.4e8eb8fbfb7956940b4746ce22d12281.png

     

     

    acbrnfe em servidor vcl web

    em Dúvidas gerais

    Postado · Editado por KriarTecnologia

    Bom dia Senhores!

    quando uso try: 

          try
            ACBrNFe1.Enviar(1,false,true,false);

          except
          on E : Exception do
            begin
              vMensagemReturn := '!@#$% ERRO NO ENVIO - ' +E.ClassName +E.Message;
              //exit;
            end;

          end;

    consigo ter o controle, mas não tenho, não sei onde recuperar a mensagem de retorno.

    image.thumb.png.4e8eb8fbfb7956940b4746ce22d12281.png

    a mensagem seria essa:

    image.thumb.png.d43856c767c12508b187ce421980100f.png

    acbrnfe em servidor vcl web

    em Dúvidas gerais

    Postado · Editado por KriarTecnologia

    gerei o mesmo procedimento no sistema antigo (ERP) e o erro é o seguinte:

    image.thumb.png.d43856c767c12508b187ce421980100f.png

    O acbrnfe está tentando mostrar esse erro (é o mesmo banco e os mesmos dados) no sistema web que está sendo desenvolvido em intraweb chamando um servidor vcl - acbr -- web para executar o acbrnfe, mas ele não admite nenhum retorno em forma de show na tela, provocando o erro 500 no servidor vcl - acbr - web.

    O significado do erro não importa agora, o que eu quero é ter o controle na minha aplicação web sobre essas mensagens de retorno.

    acbrnfe em servidor vcl web

    em Dúvidas gerais

    Postado · Editado por KriarTecnologia

    Obrigado pela atenção!

    O problema não é se está ou não indo para sefaz, o que preciso é ter o controle do retorno sem que o acbr assuma esse controle enviando mensagens na tela pois isso tá derrubando meu servidor vcl datasnaprest.

    image.thumb.png.1510085768c17dcc6c5a7008ce948651.png

    o procedimento passa pelo evento ontransmit mas não passa no evento ontransmiterror para que eu possa setar a variável Tratado := true;

    Quando emito em contingência gera o arquivo .xml normalmente, é a mesma rotina, e o mesmo .xml é gerado para ser enviado.

    Minha aplicação precisa continuar tendo o controle do retorno sem que esse seja exibido na tela.

    desde já agradeço pela ajuda.

     

    acbrnfe em servidor vcl web

    em Dúvidas gerais

    Postado

    Primeiro passo (chamando a função de envio no acbrnfe)

    image.thumb.png.0295222993576446431f5d1f0519610b.png

    segundo processo rastreado:

    image.thumb.png.323a0c3adee92e6fe0dd4e5afbd27ec8.png

    terceiro processo rastreado:

    image.thumb.png.091c5f43f00b2112f8d4c7ac8f18f322.png

    quarto procedimento rastreado:

    image.thumb.png.346d812a3d1873ade46ca07ec20a5cac.png

    quinto processo dá erro: quando chama a tratarResposta.

    image.thumb.png.d37a42d3f72f6a4773b9f73f3dbebc60.png 

    tratarResposta: (não consigo prosseguir o rastreamento)  - parece que dá erro aqui.

    image.thumb.png.0d74e19e1dfe9176f830ba6dcf4ff9dc.png

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...