Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 742 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Bom dia Pessoa.

Estou implementando a rotina de envio NFSe utilizando o novo componente ACBRNFSeX. Sou de Blumenau e é utilizado o Simpliss, ambiente de homologação.

Estou tendo problema com a codificação dos retornos, meu fonte esta em UTF8, e ao receber as respostas esta vindo com a erros de codificação.

Eu tentei converter mas não tive sucesso e egora estou muito perdido. No inicício estava gerando erros gerados pelo Schema, e consegui converter, depois veio erros do servidor e a conversão não funcionava mais.

Abaixo um retorno com a resposta de um envio de RPS, executado no sistem exemplo do ACBR:

Método Executado: ConsultarLote
 
Parâmetros de Envio
Numero do Prot: 138016
Numero do Lote: 
 
Parâmetros de Retorno
Situação Lote : 3
Sucesso       : True
 
Erro(s):
Código  : RPS
Mensagem: 3
Correção: Identificação do número do RPS.
---------
Código  : E1019
Mensagem: Prestador com dois ou mais códigos de Cnae no cadastro.
Correção: Informe o Cnae referente ao serviço prestado na NFS-e.
---------
Código  : RPS
Mensagem: 3
Correção: Identificação do número do RPS.
---------
Código  : E993
Mensagem: O código de tributação informado difere do registrado na Prefeitura.
Correção: Procure a Prefeitura para atualizar o código de tributação no cadastro do contribuinte.
---------
Código  : RPS
Mensagem: 3
Correção: Identificação do número do RPS.
---------
Código  : E18
Mensagem: O valor dos serviços deverá ser superior a R$ 0,00 (zero).
Correção: Não é permitido envio de valor de serviços igual a zero.
---------
Código  : X202
Mensagem: Lista de NFSe n?o encontrada! (ListaNfse)
Correção: 
---------


Att. Rodrigo.

  • Consultores
Postado

Boa tarde Rodrigo,

Faça o seguinte teste:

1. Abra a unit SimplISS.Provider

2. procure pela função: TACBrNFSeXWebserviceSimplISS203.TratarXmlRetornado (é a última da unit)

3. altere a linha 

  Result := ParseText(AnsiString(Result), True, False);

para:

  Result := ParseText(AnsiString(Result), True, True);

4. Salva a alteração, saia do Delphi, reinstale o ACBr e faça um novo teste.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

Bom dia Italo.

Realizei a alteração seguindo os passos e resolveu o problema, perfeito.

Depois disso eu provoquei um erro de Schemas, eu enviei a NFSe com o campo (Servico.Discriminacao := '';) e o retorno veio também com o mesmo problema, abaixo o exemplo:

Erro(s):
Código  : X800
Mensagem: Erro de Valida??o: 1831 - Element '{http://www.abrasf.org.br/nfse.xsd}Discriminacao': [facet 'minLength'] The value has a length of '0'; this underruns the allowed minimum length of '1'.

O principal é o problema anterior, mas se conseguirmos alinhar tudo vai ser perfeito.

Esta alteração você vai subir na versão ou deve manter somente nos meus fontes?

Obrigado pela atenção.

  • Este tópico foi criado há 742 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

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