Nfs-E Curitiba

[Massao Aihara]

Boa tarde Italo,

 

conforme lhe falei ontem,

segue em anexo a fonte para o provedor de Curitiba - PR - Cód. Mun. IBGE: 4106902

nomeie como ACBrProvedorISSCuritiba ...~~

 

Abri o tópico para, assim que você disponibilizar o fonte no ACBR, eu poder testar e retornar as correções.

 

Att.
 

 

 

 

ProvedorISSCuritiba.rar

[Rodolfo Nemer Nogueira]

Me corrija se estiver errado, mas no ACBrProvedorISSCuritiba.pas a tag EnviarLoteRpsEnvio não está sendo fechada:

 

Original:

 

function TProvedorIssCuritiba.Gera_TagI(Acao: TnfseAcao; Prefixo3, Prefixo4,
  NameSpaceDad, Identificador, URI: String): AnsiString;
begin
 case Acao of
   acRecepcionar: Result := '<' + Prefixo3 + 'EnviarLoteRpsEnvio' + //+ NameSpaceDad;
                              ' xmlns="http://isscuritiba.curitiba.pr.gov.br/iss/nfse.xsd"' +
                              ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' +
                              ' xsi:schemaLocation="http://isscuritiba.curitiba.pr.gov.br/iss/nfse.xsd"';
   acConsSit:     Result := '<' + Prefixo3 + 'ConsultarSituacaoLoteRpsEnvio' + NameSpaceDad;
   acConsLote:    Result := '<' + Prefixo3 + 'ConsultarLoteRpsEnvio' + NameSpaceDad;
   acConsNFSeRps: Result := '<' + Prefixo3 + 'ConsultarNfseRpsEnvio' + NameSpaceDad;
   acConsNFSe:    Result := '<' + Prefixo3 + 'ConsultarNfseEnvio' + NameSpaceDad;
   acCancelar:    Result := '<CancelarNfseEnvio>';
   acGerar:       Result := '';
 end;
end;

 

 

Alterado:

 

function TProvedorIssCuritiba.Gera_TagI(Acao: TnfseAcao; Prefixo3, Prefixo4,
  NameSpaceDad, Identificador, URI: String): AnsiString;
begin
 case Acao of
   acRecepcionar: Result := '<' + Prefixo3 + 'EnviarLoteRpsEnvio' + //+ NameSpaceDad;
                              ' xmlns="http://isscuritiba.curitiba.pr.gov.br/iss/nfse.xsd"' +
                              ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"' +
                              ' xsi:schemaLocation="http://isscuritiba.curitiba.pr.gov.br/iss/nfse.xsd">';
   acConsSit:     Result := '<' + Prefixo3 + 'ConsultarSituacaoLoteRpsEnvio' + NameSpaceDad;
   acConsLote:    Result := '<' + Prefixo3 + 'ConsultarLoteRpsEnvio' + NameSpaceDad;
   acConsNFSeRps: Result := '<' + Prefixo3 + 'ConsultarNfseRpsEnvio' + NameSpaceDad;
   acConsNFSe:    Result := '<' + Prefixo3 + 'ConsultarNfseEnvio' + NameSpaceDad;
   acCancelar:    Result := '<CancelarNfseEnvio>';
   acGerar:       Result := '';
 end;
end;

Editado 22 Janeiro, 2013 por Rodolfo Nemer Nogueira

[Rodolfo Nemer Nogueira]

A validação do XML para o ISS Curitiba está dado muitos problemas. Alguém conseguiu fazê-lo funcionar na aplicação de teste?

[Rodolfo Nemer Nogueira]

Fiz as alterações na fonte com os novos links da prefeitura de Curitiba e também algumas correções na geração do xml. Mas ainda estou tendo problemas na validação do XML / XSD.

 

Em anexo também, os arquivos fornecidos pela prefeitura para teste de validação do XML.

ACBrProvedorISSCuritiba.zip

arquivos prefeitura.zip

Editado 23 Janeiro, 2013 por Rodolfo Nemer Nogueira

[Massao Aihara]

Eu gerei meu próprio certificado conforme o site do iss de curitiba diz que tem que ter para testes,

vinculei o meu certificado ao CNPJ conforme descrito no site também...

mas na hora que vou testar me retorna:

 

" Não há suporte para o tipo de Provedor de Serviços de Criptografia '24' ".

 

conversei com o Italo sobre isso e ele disse que provável problema na capicom.

parei meu testes nisso.

[Massao Aihara]

Bom dia Italo!!!

 

voltei a mecher na NFS-e de curitiba, lendo os posts aqui dos foruns de nfs-e vi este .

E adicionei o proISSCuritiba na execeção conforme abaixo: 

 if not (FProvedor in [proGovBr, proSimplISS, proAbaco, proISSNet, proISSCuritiba])
  then begin
   if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, Sizeof(CERT_CONTEXT)*5)
    then begin
     if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog)
      then TACBrNFSe( FACBrNFSe ).OnGerarLog('ERRO: Erro OnBeforePost: ' + IntToStr(GetLastError));
     raise Exception.Create( 'Erro OnBeforePost: ' + GetLastErrorText {IntToStr(GetLastError)} );
    end;
  end;

(fonte: ACBrNFSeWebServices linha: 442)

 

ai blz, consigo fazer a consulta de uma NFS-e, so que sempre que envio a consulta o webservice me retorna:

<ListaMensagemRetorno>
 <MensagemRetorno>
  <Codigo>
  E504
  </Codigo>
  <Mensagem>
  O certificado digital do prestador de servicos e obrigatorio.
  </Mensagem>
  <Correcao>
  Envie junto a requisicao do servico o certificado digital do prestador de servicos.
  </Correcao>
 </MensagemRetorno>
</ListaMensagemRetorno>

 

tem como vc dar uma olha do meu arquivo de envio, se te algo que eu estou fazendo errado...
segue em anexo:

ConsultaNFSeRPS.rar

 

 

Vlw,

[Italo Giurizzato Junior]

Bom dia Akai,

 

O XML contendo a solicitação de consulta contem a assinatura digital, o que eles mais querem?

 

A não ser que o certificado utilizado não seja do prestador de serviço.

[Massao Aihara]

entendi...pois é...

 

é que para homologação o certificado que se usa não é o do cliente...

tem todo um "ritual" para curitba...¬¬

 

eu vou tentar usar o do cliente e ver oque acontece...

 

 

Vlw!!!

[Massao Aihara]

com o certificado do cliente tambem não vai...

alguem aqui conseguiu fazer funcionar a homologação de nfs-e de curitiba?

 

acho que vou ter por em produção para testar, ~~

[Henrique Gusso Netzka]

Oi pessoal...

 

As rotinas para Curitiba/PR não estão funcionando, certo?! Estamos trabalhando bastante em cima delas aqui... Já tínhamos desenvolvido tudo "do zero", mas estamos adaptando o software para usar o ACBR... Até na rotina TretEnvLote.LerXml estamos tendo que mexer...

 

Italo, as outras prefeituras funcionam?! Como fazemos com todas estas alterações depois?

 

abcs,

[Henrique Gusso Netzka]

Tenho outra dúvida (posso usar o mesmo tópico?)... Por que o componente levanta exceções, se ele retornaria "Falso" nas rotinas de envio caso falhasse? Não faz sentido, se temos que fazer try..except então não tem porque a função "tentar" retornar falso...

[Massao Aihara]

Henrique, varios provedores estão funcionando perfeitamente com o ACBr!!!

 

Curitiba é um problema porque não consigo testar a NFS-e, porque aquele certificado de teste que tem que fazer nunca funciona.

Você consegue emitir em homologação para curitiba?

[Massao Aihara]

quanto aos retornos se não me engano tem um boolean que vc define se quer ver ou não..

[Henrique Gusso Netzka]

Oi Luztem! Legal então (risos), o tempo não será perdido... Curitiba logo logo estará no ar...

 

Mas tomei a liberdade de alterar algumas coisas no componente também. Uma delas, por exemplo, é a não necessidade de carregar o XML de envio na hora de consultar o retorno...

[Massao Aihara]

Henrique, vc consegue emitir em homologação?

[Henrique Gusso Netzka]

Sim, conseguimos aqui. Você precisa solicitar à prefeitura a habilitação do seu usuário no ambiente, via e-mail.

[SHDW]

Akai, já tive este problema com outros provedores.

Instala o Certificado de homologação em uma maquina com XP ( eu usai uma VM), exporta e instala na maquina quer vai usar.

Ai ele funciona.

Vai entender essas coisas.

Abraço.

[Henrique Gusso Netzka]

Olá...

 

Ufa, implementado. Agora o componente de Curitiba/PR envia NFs, consulta lote e cancela NFs.

 

Também modificamos o ACBrNfse para que ele não precise carregar o XML de NFs ao consultar um lote. Assim, não é preciso salvar os XMLs, passando o componente a respeitar a propriedade Salvar das Configuracoes dele mesmo.

 

Tivemos que mudar algumas funções do "core" do componente, como a leitura dos XMLs de retorno. Mas garantimos a compatibilidade...

 

Temos como subir tudo isso pro SVN? Como é feito?

 

Abraços,

[Massao Aihara]

So anexar os fontes que você alterou aqui,

 

o pessoal responsavel vai dar uma validada e subir ele.

[Henrique Gusso Netzka]

Seguem fontes alterados!

ACBrNFSe.zip

[Italo Giurizzato Junior]

Boa tarde Henrique,

 

Já esta disponivel as suas alterações.

 

Lhe pesso que faça uma cópia de segurança dos seus fontes e baixe a atualização.

 

Uma observação, os seus fontes estão desatualizados em relação aos novos provedores.

[Massao Aihara]

Boa tarde italo...testando a alteração, me ocorreu o seguinte erro no fonte ACBrNFSeUtil

 if (xmldsig.signature = nil)
  then raise Exception.Create('É preciso carregar o template antes de assinar.');

oq seria? 

[Italo Giurizzato Junior]

Boa tarde Akai,

 

Atualiza os fontes e tente novamente.

[Massao Aihara]

ok's...vou testar.

[Massao Aihara]

Boa tarde Italo,

 

segue algumas alterações para funcionamento da NFS-e de Curitiba-PR.

A leitura dos retornos estavam erradas.

 

O envio do cancelamento tambem não estava funcionando...

 

Att.

 

 

ACBrNFSe_ISSCuritiba.rar