Ir para conteúdo
  • Cadastre-se

KriarTecnologia

Membros
  • Total de ítens

    86
  • Registro em

  • Última visita

Posts postados por KriarTecnologia

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

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

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

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

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

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

  7. Boa tarde Senhores!

    Alguém conhece e/ou participa de algum grupo de discussão de desenvolvimento intraweb?

    Se alguém souber por favor me dê uma dica, estou com alguns problemas na conversão do nosso frente de caixa que usa os componentes acbr (delphi) para intraweb/servidor vcl.

    sei que o local não é adequado mas o problema é o seguinte:

    Estou desenvolvimento e testando minha aplicação krvarejoweb.dll em um server2008 e servidor iis com a seguinte url http://localhost/kriarserver/krvarejoweb.dll. Funcionava tudo bem quando deixou de funcionar com novas implementações gerando o seguinte erro: 

     

    Error details:

    Exception message : Não é possível alterar o modo de thread depois de o mesmo estar definido
    Exception class : EOleSysError
    Exception address : 02079C51
    Exception Time : 2018-12-05 15:47:22.335
    ------------------------------------------------------------------------------------------------------------------------
    Application Name : krvarejoweb.dll
    Application Version: 1.0.0.0
    Started at : 2018-12-05 15:47:22.318
    Running for : 
    Computer Name : WIN-KI1EG9KV3S3
    Compiler Version : 320
    ------------------------------------------------------------------------------------------------------------------------
    IntraWeb Version : 14.2.0
    Multi-session : False
    Content Path : C:\kriarSERVER\wwwroot\
    Session count : 0
    ------------------------------------------------------------------------------------------------------------------------
    Client IP address : ::1
    Request PathInfo : 
    Request Method : GET
    Request User Agent : Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36
    Cookies Count : 0
    ------------------------------------------------------------------------------------------------------------------------
    [Stack trace is empty]
     
    por favor alguém pode me ajudar, alguém tem alguma pista sobre o problema?
    Desde já agradeço pela atenção.

     

  8. O problema foi resolvido quando gero em .exe faço a requisição via browser e funciona ok.

    image.thumb.png.854627b99cb6b8dbf8b8fef79abe8e06.png

     

     

    mas quando gero em isapi .dll continua o mesmo problema quando faço a requisição em rede local.

    image.thumb.png.c8faadbe8a4b104cb371e11311804f46.png

     

    o código responsável pela função consultanfe que dá o retorno mostrado na tela (imagem acima) segue abaixo:

     

    function TServerMethods1.consultaNFe(nfe:string): string;
    begin

      ACBrNFe1.NotasFiscais.Clear;
      ACBrNFe1.NotasFiscais.LoadFromFile(trim('c:\nfe\' + nfe + '-nfe.xml'));

     with acbrnfe1.EventoNFe.Gerador.Opcoes do
      begin
        IdentarXML := False;                                                   // Os arquivos que serão enviados para o SEFAZ não devem estar identados
        TamanhoIdentacao := 3;                                                 // Tamanho da identação do arquivo
        FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; // Formato em que a mensagem vai ser gravada a ListaDeAlertas
        RetirarEspacos := True;                                                // Retira os espaços em branco duplos nas tag do xml
        SuprimirDecimais := true;                                             // Ignora valores não significativos nas casa decimais
        SomenteValidar := False;                                               // Não gera o arquivo apenas valida as informações
      end;
    //    Seta Versão a ser utilizada em execução
     with acbrnfe1.Configuracoes do
       begin
        Geral.ModeloDF := moNFe;
        Geral.VersaoDF := ve400;
        //ACBrNFe1.Configuracoes.Geral.SSLLib := libCapicom;
        //ACBrNFe1.Configuracoes.Geral.SSLLib := libOpenSSL;
        //ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt;
        ACBrNFe1.Configuracoes.WebServices.UF := 'mg';

        //Geral.idCSC    := '000001';
        //Geral.CSC      := frmlogon.qryLojas_csc.AsString; //'39d58c8a-9ce8-43dc-83b7-1ea1fc3123f2';

        Certificados.NumeroSerie := '61A48A4D9E135BBB57F83B976ECB71E7'; //NFe_CertDigitalSenha;
        Certificados.Senha       := '123456';  //NFe_CertDigitalSerie;
        Certificados.ArquivoPFX  := 'c:\nfe\tmc.pfx';

        Geral.FormaEmissao := teNormal;
        Geral.Salvar       := True;

    //    ACBrCTe1.Configuracoes.arquivos.PathSalvar   := edtPathLogs.Text;

        Geral.Salvar        := True;
        arquivos.PathSalvar := 'c:\nfe';
        WebServices.Visualizar := True;
        WebServices.Ambiente := taProducao;

       end;

      try
        ACBrNFe1.Consultar;
      except

        on E : Exception do
        begin
          result := 'ERRO AO CONSULTAR A NFE NA SEFAZ ' +
                    E.ClassName+' error raised, with message : '+E.Message;
          exit;
        end;

      end;


      //qryCupom_capa_contingencia.Value := false;
      result :=
      '                   ***** Envio e Solicitação de Consulta    *****     ' +
      UTF8Encode(ACBrNFe1.WebServices.Consulta.RetWS)     +
      '                   ***** Retorno da Solicitação de Consulta *****     ' +
      UTF8Encode(ACBrNFe1.WebServices.Consulta.RetornoWS) +
      '                   ***************************************************';

    end;

     

  9. Bom dia Daniel, primeiramente obrigado pela atenção. Resolvemos nosso problema copiando o componente acbrnfe de um projeto antigo que vem desde o delphi 7 e já está no seattle para esse em questão, nossas dlls capicom e openssl que estão instaladas no windows 10 são desde 2016.

    O que pode ser?

  10. Em 15/05/2018 at 17:15, Daniel Simoes disse:

    Bom dia Daniel, primeiramente obrigado pela atenção. Resolvemos nosso problema copiando o componente acbrnfe de um projeto antigo que vem desde o delphi 7 para esse em questão, nossas dlls capicom e openssl que estão instaladas no windows 10 são desde 2016.

     

  11. Boa tarde senhores!

    criei um datasnap rest gerando para isapi (.dll) e faço uma consulta de nfe através do acbrnfe:

      try
        ACBrNFe1.Consultar;
      except

        on E : Exception do
        begin
          result := 'ERRO AO CONSULTAR A NFE NA SEFAZ' +
                    E.ClassName+' error raised, with message : '+E.Message;
          exit;
        end;

      end;

    Faço a consulta via browser (função consultanfe passando a chave eletrônica 31180509457187000121550010000018861104906900):

    http://192.168.1.100/acbrserver/acbrserver.dll/datasnap/rest/TServerMethods1/consultanfe/31180509457187000121550010000018861104906900

    Está retornando o seguinte erro:

    Data de Validade do Certificado j\u00E1 expirou: 30\/12\/1899"

    já testei todas as versões do openssl e não funcionou.

    alguém tem alguma idéia?

    image.thumb.png.83d03597e3903d9196daeda2af58c7ce.png

  12. boa tarde senhores, estou preenchendo o indescala dessa forma:

    acbrnfe1.NotasFiscais.add.NFe.Det.add.Prod.indescala := ieNenhum;

    mas dá erro de compilação.

    a classe está referenciada no uses (pcnconversaonfe, pcnnfe) ok, consigo entrar nelas sem problemas.

    Em que posição está essa informação nas classes do acbr?

  13. Juliomar, o problema está no caminho da pasta na instalação:

    1-o assistente de instalação pode ser executado do desktop para baixar os pacotes (deu ok)

    2-na instalação deve usar o caminho para as pastas: c:\FortesReport 5.0\branches\vcl

    3-ou pode executar o frceinstal que está na pasta: c:\FortesReport 5.0\branches\vcl - ele adotará o mesmo caminho para a instalação

    Valeu pela ajuda, me ajudou a chegar a essa conclusão.

    Muito obrigado.

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