Ir para conteúdo
  • Cadastre-se

luis_rs

Membros
  • Total de ítens

    12
  • Registro em

  • Última visita

Posts postados por luis_rs

  1. Bom dia. 

    Tinha instalado o ACBR no meu Delphi XE 10.2 rodando sem problemas.

    Fiz um upgrade da minha máquina e tive que reinstalar tudo.

    Ao instalar pelo Instalador do Trunk2 tudo ocorre sem problemas, porém quando abro o Delphi, algumas bpls carregam e outras dá erro. Diz que não consegue encontrar o módulo.

    O que pode ser?

    Valeu !!

     

    image.png.2e98e53bd5d223113961cc08537b2c09.png

    image.png

  2. Desde as ultimas atualizações do ACBR, quando tento enviar uma NFS-e, aparece um prompt do windows para confirmar o certificado.

    Clico ok, mas o sistema trava e não envia nem retorna nada.

    Usando o programa com ACBR um pouco mais antigo, envia normalmente sem esse prompt.

    Segue tela e codigo. Valeu !!

    vNumRPS := nf;
      ACBrNFSe1.notasfiscais.Clear;
      ACBrNFSe1.Configuracoes.WebServices.AguardarConsultaRet := 30;
      ACBrNFSe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;
      ACBrNFSe1.Configuracoes.WebServices.TimeOut:=30;
      ACBrNFSe1.Configuracoes.WebServices.Tentativas := 10;
      ACBrNFSe1.Configuracoes.WebServices.IntervaloTentativas := 1000;
      AlimentaComponente(vNumRPS);
      ACBrNFSe1.Gerar(StrToInt(vNumRPS));
      sNomeArq := ACBrNFSe1.notasfiscais.Items[0].NomeArq;

      ACBrNFSe1.notasfiscais.Clear;
      ACBrNFSe1.notasfiscais.LoadFromFile(sNomeArq);
      ACBrNFSeDANFSeFR1.MostrarPreview := false;
      ACBrNFSe1.notasfiscais.ImprimirPDF;
      ACBrNFSeDANFSeFR1.MostrarPreview := True;

     

    Sem título.png

  3. Ajustando no código resolveu. Porém deveria vir um valor aceitável no componente.

     

    ACBrNFSe1.Configuracoes.WebServices.AguardarConsultaRet := 20;
      ACBrNFSe1.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;
      ACBrNFSe1.Configuracoes.WebServices.Tentativas := 10;
      ACBrNFSe1.Configuracoes.WebServices.IntervaloTentativas := 1000;

     

  4. Depois de corrigir bastante coisa no código para o Trunk 2, ao tentar gerar várias NFSe pelo meu sistema,

    após enviar e gerar ok a primeira nota, na segunda gerou mas o componente deu erro de tempo limite.

    Verificando no site oficial , a nota foi gerada, mas não tive retorno dela dando erro te tempo, sendo que não houve demora na reposta.

    Se alguém puder ajudar, já estou a vários dias tentando enviar NF e cobrança para meus clientes e está difícil.

    Valeu !!

    56d33f97947b6_Semttulo.png.d4ccd3167829e292c5d7be27810f718d[1].png

  5. Atualizando o ACBR hoje, o erro anterior não aparece mais e consegui finalmente gerar as NFse.

    Continua dando o erro  Convert String into Double, quando rodado dentro da IDE, mas fora não apresenta.

    Valeu !!

  6. Oi Italo !! Obrigado pela ajuda.

    O componente não estava para consultar após o envio.

    Reparei que o erro apresenta somente rodando pelo delphi, rodando direto pelo executável o erro não aparece.

    Consegui fazer funcionar no modo de Homologação, quando troco para produção, a nota é gerada (verifico no site oficial), mas me dá um erro 

    tempo limite de operação atingido. Mas vem muito rápido esse erro, não dá tempo de ter retorno do webservice.

     

    Sem título.png

  7. Após migrar para o trunk2 e fazer uma séries de correções, ao gerar a NFse, ela é gerada (consulto no site oficial e está lá), porém

    está me retornando nome do arquivo em branco pelo ACBR.

    vNumRPS := nf;
      ACBrNFSe1.notasfiscais.Clear;
      AlimentaComponente(vNumRPS);
      ACBrNFSe1.Enviar(StrToInt(vNumRPS), imprimir);
      sNomeArq := ACBrNFSe1.notasfiscais.Items[0].NomeArq; //nome em branco
     

    ------

    Mudando para Gerar ao invés de enviar funciona.

    Porém depois me dá erro ao imprimir PDF (ERRO Convert String into Double)

     

     vNumRPS := nf;
      ACBrNFSe1.notasfiscais.Clear;
      AlimentaComponente(vNumRPS);
      ACBrNFSe1.Gerar(StrToInt(vNumRPS));
      //ACBrNFSe1.Enviar(StrToInt(vNumRPS), imprimir);
      sNomeArq := ACBrNFSe1.notasfiscais.Items[0].NomeArq;

      ACBrNFSe1.notasfiscais.Clear;
      ACBrNFSe1.notasfiscais.LoadFromFile(sNomeArq);
      ACBrNFSeDANFSeFR1.MostrarPreview := false;
      ACBrNFSe1.notasfiscais.ImprimirPDF; // ERRO Convert String into Double

  8. Estou tendo o mesmo problema em instalar no Delphi 10.

    Mandei compilar todos os projetos e deu erro no GNRE

    Desmarque esse pacote e instalou tudo sem erros.

    Mas ao inciar o Delphi, deu erro em vários pacotes dizendo que não encontrava sendo que estão na pasta.

    Marcando para copiar as dll, resolveu !

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