Ir para conteúdo
  • Cadastre-se

ramalho

Membros
  • Total de ítens

    290
  • Registro em

  • Última visita

Posts postados por ramalho

  1. Bom dia, tenho um problema semelhante,

    Acabei de atualizar o  acbr para desenvolver a nfe 4.0.

    Porém quando utilizo: DateTimeToStr(ACBrNFe1.SSL.CertDataVenc) está retornando a data: '30/12/1899'

    o meu certificado esta funcionando normalmente e a data de vencimento dele é 07/2018. alguém tem alguma ideia?

  2. Italo, o que eu pude fazer é pegar a msg de retorno que trás a Assinatura correta e cravei direto no código lá perto da linha 335

    sAssinatura := '26cd21fbdd4b7e4488668f6791e9bf0157b752f1';

    sAssinatura := LowerCase(sAssinatura);

    Gerador.wCampoNFSe(tcStr, '', 'Assinatura', 01, 2000, 1, sAssinatura, '')

     

    Fiz isso apenas para liberar meu cliente, o caso é que continuamos com erro na formação desta assinatura em alguns casos raros.

    • Curtir 1
  3. 18 horas atrás, ramalho disse:

    Boa tarde Italo, apenas nesta semana o mesmo caso se repetiu e agora consigo testar novamente o problema, peço desculpa pela demora.

    Sobre a linha indicada, eu estou tentando pegar o retorno do sAssinatura mas não estou conseguindo.... acho que no envio não esta passando por ali

     

    sAssinatura := sIEEmit + SerieRPS + NumeroRPS + sDataEmis + sTributacao +
                     sSituacaoRPS + sTipoRecolhimento + sValorServico +
                     sValorDeducao + sCodAtividade + sCPFCNPJTomador;
      showmessage(sAssinatura + 'Teste assinatura');
      raise Exception.Create(sAssinatura);
      sAssinatura := AsciiToHex(SHA1(sAssinatura));
      sAssinatura := LowerCase(sAssinatura);

     

    também tentei colocar o showmessage, 

    lembrando que utilizo o  ACBrNFSe1.Enviar(NumeroRPS); para o envio.

    eu Consegui pegar o retorno, ele esta criando a assinatura normalmente, porém criando errado, na msg de retorno ele fala qual deveria ser a assinatura certa, eu troquei e deu certo!

    Mas tive que cravar a certa só pra passar a rps do meu cliente que estava presa.

  4. Boa tarde Italo, apenas nesta semana o mesmo caso se repetiu e agora consigo testar novamente o problema, peço desculpa pela demora.

    Sobre a linha indicada, eu estou tentando pegar o retorno do sAssinatura mas não estou conseguindo.... acho que no envio não esta passando por ali

     

    sAssinatura := sIEEmit + SerieRPS + NumeroRPS + sDataEmis + sTributacao +
                     sSituacaoRPS + sTipoRecolhimento + sValorServico +
                     sValorDeducao + sCodAtividade + sCPFCNPJTomador;
      showmessage(sAssinatura + 'Teste assinatura');
      raise Exception.Create(sAssinatura);
      sAssinatura := AsciiToHex(SHA1(sAssinatura));
      sAssinatura := LowerCase(sAssinatura);

     

    também tentei colocar o showmessage, 

    lembrando que utilizo o  ACBrNFSe1.Enviar(NumeroRPS); para o envio.

  5. Boa Noite, estou com um problema na geração da NFSe com o acbr,

    Acontece que em um dos meus clientes ao gerar o rps o lote estava retornando 0 então, descobri que a rotina esta caindo no except mas não consigo pegar a mensagem de retorno ou erro

    e não estou conseguindo resolver este problema, alguma ajuda?

    logo após ele passar pelo ACBrNFSe1.Enviar(NumeroRPS); ele já cai no exeption, e todas as funções que estou tentando trazer a msg esta voltando vazia...

    ACBrNFSe1.Enviar(NumeroRPS);
             //showmessage('teste2' + VarToStr(ACBrNFSe1.WebServices.ConsNFSeRps.Msg));
             NumeroLote := StrToInt(ACBrNFSe1.WebServices.ConsLote.Protocolo);
             ACBrNFSe1.NotasFiscais.Clear;
          except
            on E : Exception do begin
              showmessage('teste3' + VarToStr(ACBrNFSe1.WebServices.ConsNFSeRps.Msg));
              showmessage(E.Message);
              Result := ObterMensagemRetorno(ACBrNFSe1.WebServices.ConsNFSeRps.RetWS, E);
              exit;
            end;

    Obrigado.

  6.  

    Em 04/11/2016 at 19:01, Italo Jurisato Junior disse:

    Boa noite Ramalho,

    É preciso ver se o usuário não esta informação errada que possa estar causando esse problema.

    Boa tarde Italo, não tem nada de errado não!

    continuamos com algum probleminha na assinatura. não estou conseguindo encontrar.

    Você pode me auxiliar? 

  7. Boa tarde, já existe algo no acbr para envio das guias para ES, SP e RJ ?

    não encontrei nas pastas, e aqui no forum eu achei em alguns lugares dizendo que não tem, mas como a postagem é bem antiga, acho que não custa perguntar.

  8. 15 horas atrás, Italo Jurisato Junior disse:

    Boa noite Ramalho,

    Será que esse "E"  60920E NS000 tem haver com o valor da propriedade Tributação?

    Mas pela mensagem parece dizer que o valor passado esta certo, o quê estaria dando erro é a conversão para o padrão SHA1,e ele até mostra qual a linha que deveriamos enviar. 

  9. Sem ser a Situação 'E' esta funcionando... com 'E' eu tive o retorno destacado no xml:

     

    Assinatura do RPS incorreta. Codigo Hash gerado para o campo assinatura do RPS esta invalido. O codigo hash 'c6517eabffcc3e0c38b91edd0ebf998da3948cb0' gerado para o campo Assinatura do RPS nao esta valido. O campo Assinatura deveria estar com o conteudo '00001233556NF 00000000127020160920E NS000000000001000000000000000000081214000005858780000129' convertido no padrao SHA1 para o valor '3f175f31d3d7bd8bbae5ac1c42ee269645d17dc4'

  10. eu criei essa logica para passar do jeito que eu desejo

    if cTributacao = 'C' then begin
                      NotasFiscais.Add.Nfse.Servico.Tributacao  := ttIsentaISS;
                   end else if cTributacao = 'E' then begin
                      NotasFiscais.Add.Nfse.Servico.Tributacao  := ttNaoIncidencianoMunic;
                   end else if cTributacao = 'F' then begin
                      NotasFiscais.Add.Nfse.Servico.Tributacao  := ttImune;
                   end else if cTributacao = 'K' then begin
                      NotasFiscais.Add.Nfse.Servico.Tributacao  := ttExigibilidadeSusp;
                   end else if cTributacao = 'N' then begin
                      NotasFiscais.Add.Nfse.Servico.Tributacao  := ttNaoTributavel;
                   end else if cTributacao = 'T' then begin
                      NotasFiscais.Add.Nfse.Servico.Tributacao  := ttTributavel;
                   end else if cTributacao = 'G' then begin
                      NotasFiscais.Add.Nfse.Servico.Tributacao  := ttTributavelFixo;
                   end else if cTributacao = 'H' then begin
                      NotasFiscais.Add.Nfse.Servico.Tributacao  := ttTributavelSN;
                   end else if cTributacao = 'M' then begin
                      NotasFiscais.Add.Nfse.Servico.Tributacao  := ttMEI
                   end;

     

    Mas esta dando algum erro na montagem do Xml eu acredito

    pois no  ObterMensagemRetorno(ACBrNFSe1.WebServices.ConsNFSeRps.RetWS

    esta retornando que ''' is not a valid integer value, não consegui identificar o motivo.

  11. Em 13/09/2016 at 18:07, Italo Jurisato Junior disse:

    Boa tarde Ramalho,

    O componente esta configurado para salvar os XMLs em disco?

    O componente esta configurado para realizar a consulta logo após o envio?

    Italo, eu consegui recuperar a msg do erro,

    estou com o seguinte problema, segundo eu li no manual, eu preciso passar 'E' para o campo Tributação, mas não estou encontrando no acbr como fazer isso...

    é um prestador de campinas e o tomador de sumaré. 

    estou tentando fazer da seguinte forma mas não esta dando certo:

    NotasFiscais.Add.NFSe.RegRec := regNaoIncidencia

    mas acho que não é neste momento. pois segue dando erro. consegue me ajudar por favor?

  12. Esta configurado para salvar sim.

    E não, não esta configurado para realizar logo após, eu faço a consulta em momentos diferentes.

    está acontecendo este problema em apenas 1 dos meus clientes. estou aguardando outra nota para realizar mais testes.

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