Nota Fiscal Eletrônica - NFSe - Município - Cambé - PR

[marcosvillatore]

Boa Noite Italo,
o Problema não é o Proxy. Veja que se eu usar uma maquina que não tenha proxy, usar as mesmas configurações que vc usou e não colocar a senha vou chegar no mesmo lugar que vc chegou.
 
Erro(s):
Código  : L002
Mensagem: Usuário ou Senha inválidos!
Correção: Verificar a digitação e/ou se a tecla Caps Lock está ativa.
 

Se coloco a senha recebo o erro 500.

[Italo Giurizzato Junior]

Bom dia Marcos,

Faça um teste com a unit em anexo.

ISSCambe.GravarXml.pas

[marcosvillatore]

Boa tarde Italo,

Coloquei OnlyNumber na funçao abaixo na unit  ISSCambe.Provider:

function TACBrNFSeXWebserviceISSCambe.GetCabecalho: string;
begin
  with TACBrNFSeX(FPDFeOwner).Configuracoes.Geral do
  begin
    Result := '<auth:authentication xmlns:auth="http://www.cambe.pr.gov.br.com/nfse-ws/security">' +
                '<auth:username>' + Emitente.WSUser + '</auth:username>' +
                '<auth:password>' + Emitente.WSSenha + '</auth:password>' +
                '<auth:CNPJ>' + OnlyNumber(Emitente.CNPJ) + '</auth:CNPJ>' +
              '</auth:authentication>';
  end;

end;

Deu os seguintes erros:
Método Executado: Gerar NFSe
 
Parâmetros de Envio
Numero do Lote: 1
 
Parâmetros de Retorno
Data de Envio : 30/12/1899
Numero do Prot: 
Numero da Nota: 
Link          : 
Código Verif. : 
Sucesso       : False
 
Erro(s):
Código  : E91
Mensagem: Esse RPS não consta em nossa base de dados.
Correção: Solicite do prestador do serviço a emissão da NFS-e.
---------
Código  : L033
Mensagem: País informado indevidamente.
Correção: Informe o campo País do tomador do serviço quando este for do exterior.
---------
Código  : L005
Mensagem: Inscrição Estadual do Tomador informada indevidamente.
Correção: Quando o tipo do Tomador for 3 (Pessoa Física Identificada) ou 4 (Pessoa Física Não Identificada) ou 5 (Pessoa estrangeira) a Inscrição Estadual não deve ser informada.
---------
Código  : L031
Mensagem: Tipo Tomador incompatível com o documento informado.
Correção: Verificar o Tipo Tomador ou CPF/CNPJ.
---------
Código  : E229
Mensagem: A Inscrição Municipal do tomador do serviço não existe na base de dados da Prefeitura.
Correção: Informe corretamente a Inscrição Municipal do tomador do serviço.
---------
Código  : AL001
Mensagem: Item da Lista de Serviço inexistente.
Correção: O Item da lista de serviço informado não consta no Cadastro Econômico do contribuinte (CMC/Inscrição Municipal).
---------
Código  : L095
Mensagem: Opção pelo SIMPLES Nacional foi informada incorretamente.
Correção: O cadastro econômico do prestador está enquadrado no SIMPLES Nacional, informar a opção.
---------
Código  : L041
Mensagem: Alíquota inválida.
Correção: Informe 0 (Zero) ou um número maior ou igual a 2 e menor ou igual a 5.
---------
Código  : AL003
Mensagem: TRANSAÇÃO SEM VALOR FISCAL. CONTRIBUINTE EM FASE DE HOMOLOGAÇÃO.
Correção: AO TÉRMINO DESTA FASE DEVE-SE AVISAR A RECEITA MUNICIPAL PARA ATIVAR O MODO PRODUÇÃO.
---------
 
NFS-e Numero....: 1
Cod. Verificacao: 
Prestador.......: MOTA FREIOS LTDA
Tomador.........: INSCRICAO DE TESTE
 

Mas agora é aqui, recebeu lá ws. Vou ajustar as informações e posto o retorno logo mais. 
 

[Italo Giurizzato Junior]

Boa tarde Marcos,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2533

[marcosvillatore]

Boa Tarde Italo,

Temos na ACBrNFSeXConversao o enumerado:
 
TTipoPessoa = (tpPFNaoIdentificada, tpPF, tpPJdoMunicipio, tpPJforaMunicipio, tpPJforaPais);
....
function StrToTipoPessoa(out ok: boolean; const s: string): TTipoPessoa;
begin
  Result := StrToEnumerado(ok, s,
                           ['1', '2', '3', '4', '5'],
                           [tpPFNaoIdentificada, tpPF, tpPJdoMunicipio,
                            tpPJforaMunicipio, tpPJforaPais]);
end;

no IssCambe usa o seguinte:

1 = Pessoa Jurídica do próprio Município 

2 = Pessoa Jurídica de outro Município 

3 = Pessoa Física Identificada 

4 = Pessoa Física Não Identificada 

5 = Pessoa estrangeira;

Como podemos proceder:

 

 

[Italo Giurizzato Junior]

Marcos,

Já inclui na minha lista de tarefas para analisar esse problema. TK-2534

[marcosvillatore]

Italo,
em anexo o arquivo com mais ajuste.

ISSCambe.GravarXml.pas

[Italo Giurizzato Junior]

Bom dia Marcos,

Muito obrigado pela colaboração.

[Italo Giurizzato Junior]

Boa tarde Marcos,

Favor atualizar todos os fontes de todas as pastas e reinstale o ACBr.

Quanto ao código do Pais que você comentou as linhas, ao alimentar o componente atribua o valor zero, é para não gerar a tag.

[marcosvillatore]

Boa tarde Italo,

Resposta da Prefeitura:
"Sobre o RPS nem toda empresa precisa utiliza-lo. Deve-se verificar com o contador ou com a administração da empresa se eles vão optar por usar.
Caso sim deve-se me avisar para que eu libere alguns números de RPS para teste.
Caso não deve-se retirar sua TAG do xml."

Precisamos de mais um ajuste.

function TNFSeW_ISSCambe.GerarXml: Boolean;
....
  if (NFSe.IdentificacaoRps.Numero <> EmptyStr) then
  begin
    xmlNode := GerarRPS;
    NFSeNode.AppendChild(xmlNode);
  end;


ai quando cliente optar por não usar que é o caso não alimento este campo :
NFSe.IdentificacaoRps.Numero.

E também tratar o retorno. segue o XML do retorno

58-lista-nfse-ger.xml

[Italo Giurizzato Junior]

Bom dia Marcos,

Muito obrigado, já inclui na minha lista de tarefas. TK-2536

[Italo Giurizzato Junior]

Boa tarde Marcos,

Favor configurar o componente para salvar os arquivos Soap.

Faça um novo teste e anexe o XML (soap) de retorno.

[marcosvillatore]

Boa tarde Italo,

Segue os arquivos.

60.rar

[marcosvillatore]

Bom dia Italo,

Segue alteração para os métodos de consulta:
Consulta Por período

Consulta por faixa de números de nota
 segue anexo os retornos.

 

Docs.rar ISSCambe.Provider.pas

[marcosvillatore]

Boa tarde Ítalo,
Conseguiu ver alguma coisa do retorno?

 

[Juliana Tamizou]

Boa tarde @marcosvillatore

Nesta semana o Ítalo está em férias, mas na segunda já estará de volta.

At.

[marcosvillatore]

Bom dia Juliana,

OK. 

 

 

Bom dia Italo,

Acabei analisando e alterando os arquivos. Favor desconsiderar os arquivos enviados anteriormente.

 

 

ISSCambe.Provider.pas ISSCambe.LerXml.pas

Editado 11 Abril, 2022 por marcosvillatore

[Italo Giurizzato Junior]

Bom dia Marcos,

Muito obrigado pela colaboração, hoje estarei analisar e estando tudo OK, vou enviar para o SVN.

[Italo Giurizzato Junior]

Boa tarde Marcos,

Faça uma cópia das alterações que você fez, depois atualize todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

[marcosvillatore]

Boa tarde Italo.

Atualizado, instalado e testado. 100% ok por enquanto. 

 

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.