Erro com NFS-e para Novo Hamburgo (issnet)

[danielpohren]

Bom dia!

A partir da última atualização não consigo mais enviar notas para Novo Hamburgo... Está me dando o erro:

'' viola a restrição length de '11'.

Falha da análise do elemento '{http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd}Cpf' com valor ''.

 

Sendo que no caso tanto prestador quanto tomador são pessoas JURIDICAS, e estou alimentando normalmente o CNPJ deles:

     Prestador.Cnpj               := dmnfe.tNotasEmitente_CNPJ.Value;
     PrestadorServico.IdentificacaoPrestador.Cnpj               := dmnfe.tNotasEmitente_CNPJ.Value;
     Tomador.IdentificacaoTomador.CpfCnpj            := dmnfe.tNotasDESTINATARIO_CNPJ.Value;

 

Att,

 

 

[Michel Ouriques]

Boa tarde Daniel,

Comecei a testar e também tive problemas, fiz alterações nestes 3 arquivos abaixo, tente substituir eles..

ISSNet.ini   ACBrNFSeWebServices.pas   pnfsNFSeW_ABRASFv1.pas

[danielpohren]

Obrigado!

Na verdade vi que eu nunca tinha alimentado as propriedades de configuração abaixo, pois aparentemente até alguns dias atrás não era obrigatório? que passei a alimentar como segue, e o erro anterior passou...:

     AcbrNfse.Configuracoes.Geral.Emitente.CNPJ       := dmnfe.tNotasEmitente_CNPJ.Value;
     AcbrNfse.Configuracoes.Geral.Emitente.InscMun    := dmnfe.tNotasEMITENTE_INSCRICAO_MUNICIPAL.Value;
     AcbrNfse.Configuracoes.Geral.Emitente.RazSocial  := dmnfe.tNotasEMITENTE_Nome.value;
 

Mas daí o que ocorrem os erros:

 

Se alimento     acbrnfse.NotasFiscais[0].nfse.Prestador := dmnfe.tNotasEmitente_CNPJ.Value

O elemento '{http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd}Cnpj' é inesperado, de acordo com o modelo de conteúdo do elemento pai '{http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd}Prestador'.

 

Se não alimento

Erro ao Assinar. O XML informado possui CNPJ diferente do Certificado Digital

 

 

[Michel Ouriques]

Após trocar os arquivos q mencionei continua acontecendo este erro?

[Michel Ouriques]

O Italo subiu agora a pouco a "mesma" alteração que eu tinha anexado, atualiza e tenta novamente irá dar certo.

[Italo Giurizzato Junior]

Boa tarde a todos,

Enviei uma atualização, criei uma função chamada RemoveNameSpace em pnfsConversao.pas caso algum outro provedor tenha algum NameSpace que precisa ser removido basta incluir ele na função, desta forma fica muito mais simples em vez de fazer diversas alterações em pontos diversos do componente.

Favor atualizar os fontes e testar.

[danielpohren]

Boa tarde!

A boa notícia, o envio da nota voltou a funcionar, enviei e consultei depois no site da prefeitura e a nota estava lá.

A má notícia é que voltou o problema original, aquele lá do começo do trunk2 de não conseguir pegar o retorno...

Após enviar a nota --> ACBRNfSe.Enviar( StrToInt(ACBrNFSe.NotasFiscais.NumeroLote), False);

Ao tentar pegar código de verificação, 

tanto com   --> ACBrNFSe.WebServices.ConsNFSeRps.RetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.CodigoVerificacao

quanto com --> ACBrNFSe.WebServices.ConsLote.RetornoNFSe.ListaNFSe.CompNFSe.Items[0].NFSe.CodigoVerificacao

tenho violação de acesso, pois nos dois casos o RetornoNFSe está nil....

[Michel Ouriques]

Boa tarde,

acabei de testar para ISSNet e consegui pegar CodigoVerificacao, Numero da nota, Data emissao, tudo normal.. mais ou menos com o código abaixo

if ACBrNFSe.ConsultarLoteRps(IntToStr( mNumLote[i] ),
                             mProtocolo[i]) then
  begin 
    for j:= 0 to (ACBrNFSe1.WebServices.ConsLote.RetornoNFSe.ListaNFSe.CompNFSe.Count - 1) do
      begin
        ACBrNFSe1.WebServices.ConsLote.RetornoNFSe.ListaNFSe.CompNFSe.Items[j].NFSe.CodigoVerificacao
      end;
  end;

 

[danielpohren]

Oi, tiveste que mexer nos inis?

Pois pra mim 

ACBrNFSe.ConsultarLoteRps(IntToStr( mNumLote[i] ),mProtocolo[i]) then

retornou erro:   URL não definida para: TNFSeConsultarLoteRPS.

 

Obrigado

[Michel Ouriques]

Bom dia,

usei o ini que anexei anteriormente... Mais a alteração que tens que fazer é na seção [URL_P] URL de ConsultaSitLoteRPS, ConsultaSitLoteRPS, ConsultaNFSeRPS... você coloca a mesma de RecepcaoLoteRPS.

[Michel Ouriques]

O Italo enviou uma revisão agora pouco, 

testando em ambiente de homologação já está OK os métodos Enviar, ConsultarSituacao, ConsultarNFSeporRps, ConsultarNFSe

[danielpohren]

Resolvido, funcionando 100% em produção os métodos acima citados tbm.

 

Mais um provedor morto

 

[Italo Giurizzato Junior]

Boa tarde a todos,

Maravilha, mais um para lista dos que estão funcionando 100%.

Vamos em frente.

[storebrasil]

Aproveitando o gancho (me desculpem se aqui não for o local certo) estou testando o issnet para Cuiabá. E envio do lote passou a funcionar depois da atualização de hoje a tarde, mas ao consultar o resultado do lote ocorre: URL não definida para: tnfseConsultarSituacaoRPS. Alguém já passou por isto ? Alguma pista do que posso estar fazendo de errado ?

[Italo Giurizzato Junior]

Boa tarde,

Favor atualizar os fontes e testar novamente.

[storebrasil]

Primeiramente muito obrigado pelo pronto auxílio.
Funcionou, gerou o rps com sucesso. Só que ao imprimir o danfe dá este erro:

exception message  : '' is not a valid integer value.

main thread ($19a8):
0045570d +019 Scatfb.exe   System.SysUtils                ConvertErrorFmt
00456e0c +02c Scatfb.exe   System.SysUtils                StrToInt
0162ac53 +11f Scatfb.exe   ACBrNFSeDANFSeFR      706  +16 TACBrNFSeDANFSeFR.CarregaParametros
0162a655 +049 Scatfb.exe   ACBrNFSeDANFSeFR      643   +6 TACBrNFSeDANFSeFR.CarregaDados
01627353 +193 Scatfb.exe   ACBrNFSeDANFSeFR      244  +39 TACBrNFSeDANFSeFR.PrepareReport
01626f1a +012 Scatfb.exe   ACBrNFSeDANFSeFR      153   +1 TACBrNFSeDANFSeFR.ImprimirDANFSe
015fc720 +01c Scatfb.exe   ACBrNFSeNotasFiscais  644   +2 TNotasFiscais.Imprimir

Procurei via debug mas não consegui compreender o motivo do erro, vou continuar a verificar, mas se isto já ocorreu e se souber do que se trata, agradeço.

[storebrasil]

15 horas atrás, storebrasil disse:

Primeiramente muito obrigado pelo pronto auxílio.
Funcionou, gerou o rps com sucesso. Só que ao imprimir o danfe dá este erro:

exception message  : '' is not a valid integer value.

main thread ($19a8):
0045570d +019 Scatfb.exe   System.SysUtils                ConvertErrorFmt
00456e0c +02c Scatfb.exe   System.SysUtils                StrToInt
0162ac53 +11f Scatfb.exe   ACBrNFSeDANFSeFR      706  +16 TACBrNFSeDANFSeFR.CarregaParametros
0162a655 +049 Scatfb.exe   ACBrNFSeDANFSeFR      643   +6 TACBrNFSeDANFSeFR.CarregaDados
01627353 +193 Scatfb.exe   ACBrNFSeDANFSeFR      244  +39 TACBrNFSeDANFSeFR.PrepareReport
01626f1a +012 Scatfb.exe   ACBrNFSeDANFSeFR      153   +1 TACBrNFSeDANFSeFR.ImprimirDANFSe
015fc720 +01c Scatfb.exe   ACBrNFSeNotasFiscais  644   +2 TNotasFiscais.Imprimir

Procurei via debug mas não consegui compreender o motivo do erro, vou continuar a verificar, mas se isto já ocorreu e se souber do que se trata, agradeço.

Primeiramente muito obrigado pelo pronto auxílio.
Funcionou, gerou o rps com sucesso. Só que ao imprimir o danfe dá este erro:

exception message  : '' is not a valid integer value.

main thread ($19a8):
0045570d +019 Scatfb.exe   System.SysUtils                ConvertErrorFmt
00456e0c +02c Scatfb.exe   System.SysUtils                StrToInt
0162ac53 +11f Scatfb.exe   ACBrNFSeDANFSeFR      706  +16 TACBrNFSeDANFSeFR.CarregaParametros
0162a655 +049 Scatfb.exe   ACBrNFSeDANFSeFR      643   +6 TACBrNFSeDANFSeFR.CarregaDados
01627353 +193 Scatfb.exe   ACBrNFSeDANFSeFR      244  +39 TACBrNFSeDANFSeFR.PrepareReport
01626f1a +012 Scatfb.exe   ACBrNFSeDANFSeFR      153   +1 TACBrNFSeDANFSeFR.ImprimirDANFSe
015fc720 +01c Scatfb.exe   ACBrNFSeNotasFiscais  644   +2 TNotasFiscais.Imprimir

Este erro ocorre nesta linha:
FieldByName('CodigoMunicipio').AsString     := IfThen(CodigoMunicipio <> '', CodCidadeToCidade( StrToInt(CodigoMunicipio) ) , '');

Não entendi porque mas trocando para o código abaixo (que seria em teoria a mesma coisa) o erro não ocorre.
        if CodigoMunicipio <> '' then
           FieldByName('CodigoMunicipio').AsString  := CodCidadeToCidade(StrToInt(CodigoMunicipio))
        else
           FieldByName('CodigoMunicipio').AsString  := '';
 

 

 

 

[Italo Giurizzato Junior]

Bom dia,

Me parece que o Juliomar esta fazendo as devidas correções, favor atualizar todos os fontes de todas as pastas e testar novamente.

[Juliomar Marchetti]

Estranho ... pois ali se remete ao componente!

consegue por um ponto de parada e debugar e conferir se o componente está preenchendo essa informação e se existe ela no local correto no xml?

27 minutos atrás, storebrasil disse:

Primeiramente muito obrigado pelo pronto auxílio.
Funcionou, gerou o rps com sucesso. Só que ao imprimir o danfe dá este erro:

exception message  : '' is not a valid integer value.

main thread ($19a8):
0045570d +019 Scatfb.exe   System.SysUtils                ConvertErrorFmt
00456e0c +02c Scatfb.exe   System.SysUtils                StrToInt
0162ac53 +11f Scatfb.exe   ACBrNFSeDANFSeFR      706  +16 TACBrNFSeDANFSeFR.CarregaParametros
0162a655 +049 Scatfb.exe   ACBrNFSeDANFSeFR      643   +6 TACBrNFSeDANFSeFR.CarregaDados
01627353 +193 Scatfb.exe   ACBrNFSeDANFSeFR      244  +39 TACBrNFSeDANFSeFR.PrepareReport
01626f1a +012 Scatfb.exe   ACBrNFSeDANFSeFR      153   +1 TACBrNFSeDANFSeFR.ImprimirDANFSe
015fc720 +01c Scatfb.exe   ACBrNFSeNotasFiscais  644   +2 TNotasFiscais.Imprimir

Este erro ocorre nesta linha:
FieldByName('CodigoMunicipio').AsString     := IfThen(CodigoMunicipio <> '', CodCidadeToCidade( StrToInt(CodigoMunicipio) ) , '');

Não entendi porque mas trocando para o código abaixo (que seria em teoria a mesma coisa) o erro não ocorre.
        if CodigoMunicipio <> '' then
           FieldByName('CodigoMunicipio').AsString  := CodCidadeToCidade(StrToInt(CodigoMunicipio))
        else
           FieldByName('CodigoMunicipio').AsString  := '';
 

 

 

 

 

[storebrasil]

Eu rodei várias vezes no debug e é estranho a variável  CodigoMunicipio está realmente "" mas mesmo assim entra na rotina  CodCidadeToCidad() e debugando dentro da  CodCidadeToCidad() lá está chegando um valor inteiro referente ao código da cidade.

Se ajudar seguem 3 xml de teste que ocorreram os testes. Se usar o exemplo do acbrnfse e pedir para imprimir a danfe pelo xml, irá ocorrer o erro.

25-nfse.xml

26-nfse.xml

27-nfse.xml

[storebrasil]

Desinstalei o fastreports, apaguei todas bpls do fastreport, reinstalei o fastreport.

Depois reinstalei o Acbr mudando as chamadas referentes ao fastreport no ACBr_NFSeDanfseFR de:

requires
  fs15,
  frx15,
  frxe15,
  frxDB15,fs15, 

Para:
  fs18,
  frx18,
  frxe18,
  frxDB18,
 

E ficou funcionando perfeitamente, com o provedor issnet para a cidade de Cuiabá.

[Juliomar Marchetti]

Não faça isso use o ACBrInstall!

se tu olhar em todos os lugares em componentes pagos ou open somos uns dos únicos que tem um pacote somente para todas as versões do delphi!

se fizer manual primeiro que vai marcar não atualizável seus arquivos e segundo é que terá que fizer compilando a mão toda a vez que atualizar e for adicionado propriedades aos componentes

[rofresi]

FICA A DICA!!!

Caso tenha atualizado os fontes, xml e ArqINI e mesmo assim o retorno dos campos NFSe.CodigoVerificacao e NFSe.Numero retornam em branco,

verifique se a propriedade ACBrNFSe1.Configuracoes.Geral.ConsultaLoteAposEnvio esta como True;