Duvida Sobre A Consulta Consultarnfseporrps

[medreis]

Porque nesta chamada é obrigatorio a existencia de RPS carregados para o componente...

 

function TACBrNFSe.ConsultarNFSeporRps(ANumero, ASerie, ATipo, ACnpj,
  AInscricaoMunicipal: String): Boolean;
begin
 if NotasFiscais.Count <= 0
  then begin
   if Assigned(Self.OnGerarLog)
    then Self.OnGerarLog('ERRO: Nenhum RPS adicionado');
   raise Exception.Create('ERRO: Nenhum RPS adicionado');
   exit;
  end;

 Result := WebServices.ConsultaNFSeporRps(ANumero, ASerie, ATipo, ACnpj, AInscricaoMunicipal);
end;

 

 

[Italo Giurizzato Junior]

Bom dia medreis,

 

Pelo fato dela fazer parte do Enviar.

[medreis]

Perguntei isso porque tenho a seguinte situação.

 

Tenho varias notas emitidas com atraves de RPS, porem   não sei quais notas estão associadas ao RPS, ( estou iniciando um sistema NOVO, e o processo era feito pelo site pref. )

 

Minha base de dados tem os numeros de todos os RPS, porem não sei qual Nota esta associada, como buscar as notas sem ter o XML dos RPS.. ??

 

Como o retorno é o XML da NFSE eu poderia associar o XML e demais informações ao RPS.

 

Entendeu minha necessidade ??

[Italo Giurizzato Junior]

Medreis,

 

Neste caso utilize o ConsultarNFSe.

 

De uma olha na procedure do botão [Consultar NFSe por Período] do programa exemplo.

[medreis]

Italo,

 

Esta ocorrendo este erro, dizendo que não pode carregar o arquivo  http://www.ginfes.com.br/servico_consultar_nfse_v03.xsd

 

 

Veja tela anexo, houve alguma alteração deste serviço ?

 

Obrigado

 

Eduardo

[Italo Giurizzato Junior]

Boa tarde Eduardo,

 

Você tem o certificado digital instalado?

Você utiliza o Capicom?

[medreis]

Sim utilizo CAPCOM, e todas outras rotinas funcionam somente esta que esta ocorrendo este erro.

[Italo Giurizzato Junior]

Eduardo,

 

Por favor atualiza os fontes e tente novamente.

[medreis]

Obrigado esta ok.

 

Porem verifiquei que no retorno não há informação sobre o RPS ?, somente informaões da NFSE, verifique o XML que o ACBr salva, não tem informações do RPS, pelo menos os que baixei do GINFES.

 

Desta forma não consigo, associar o RPS com  a NFSE .

Editado 31 Julho, 2013 por medreis

[Italo Giurizzato Junior]

Bom dia Eduardo,

 

No XML da NFSe não existe um grupo chamado InformacaoRps ?

 

Dentro desse grupo temos as tags: Numero, Serie e Tipo.

 

Exemplo:

 

(...)

<ns4:IdentificacaoRps>

     <ns4:Numero>39</ns4:Numero>

     <ns4:Serie>UNICA</ns4:Serie>

     <ns4:Tipo>1</ns4:Tipo>

</ns4:IdentificacaoRps>

(...)

[medreis]

Boa tarde Italo,

 

Este grupo não encontrei no XML retornado pela consuta nota por periodo,  o XML retornado pelo programa DEMO não possui este grupo.

 

Veja o XML ANEXO, retornado pela consulta em base homologação, que tem RPS associado, pois de vc imprimir a NFSE tem o numero do RPS.

 

1647-nfse.xml

Editado 2 Agosto, 2013 por medreis

[Italo Giurizzato Junior]

Boa noite Medreis,

 

Você não anexou o arquivo.

[medreis]

Italo,

 

É possivel , o retorno das informações do RPS no XML de consulta da Nota  ?

 

Obrigado

[Italo Giurizzato Junior]

Bom dia Medreis,

 

Quem tem as informações no RPS é quem o emite, algumas ou praticamente todas são utilizadas pelo webservice para gerar o XML da NFS-e.

 

Portanto ao realizar uma consulta de NFS-e por RPS por exemplo vamos ter o XML da NFS-e e neste XML temos as informações do RPS.

 

Ao carregar o componente com o XML da NFS-e você consegue todas as informações, lendo as propriedades.

[medreis]

Ola ,

 

Estou realizando testes com a função Consulta  

     ACBrNFSe1.ConsultarNFSeporRps(cds_Nota.FieldByName('RPS_NUMERO').AsString,

                                   cds_Nota.FieldByName('RPS_SERIE').AsString,

                                   cds_Nota.FieldByName('RPS_TIPO').AsString,

                                   cds_Nota.FieldByName('PRE_CNPJ').AsString,

                                   cds_Nota.FieldByName('PRE_INSCRICAO_MUNICIPAL').AsString);

 

E estou passando o XML RPS, porem ao pegar as informacoes da NFSE

 

ACBrNFSe1.NotasFiscais.Items[0].NFSe.DataEmissao;

ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero;

 

 

A data de emissao esta vindo de forma incorreta, 30/12/1899,  sempre....esta data...

 

Olhando o XML que o Sistema salvou na pasta da nota no XML esta correto, acho que o erro esta na conversao na hora do retorno, no XML a data esta assim  2013-08-28T17:39:25

 

Obrigado

 

Marcio

Editado 29 Agosto, 2013 por medreis

[Italo Giurizzato Junior]

Boa tarde Marcio,

 

Se possível post como anexo o XML da NFS-e retornada e qual é o provedor em questão?

[medreis]

Ola Italo,

 

O Provedor é GINFES, estamos utilizando o ambiente homologação , cidade de Ribeirão Preto-SP.

 

Segue XML anexo, procurei mas não encontrei a rotina que realiza a conversão do dado para o componente, fica quem qual Unit ?

 

Obrigado

 

Marcio Eduardo

2500-nfse.xml

[rogercon]

Ítalo, estou aguardando respostas do outro post, mas fiquei com a dúvida aqui deste post 'não resolvido' contudo.

[Italo Giurizzato Junior]

Bom dia Roger,

 

Favor atualizar todos os fontes, inclusive os fontes dos programas exemplos.

 

No programa exemplo do componente ACBrNFSe, botão Imprimir, solicita o XML, apresenta o DANFSE na tela e com a possibilidade de imprimir no papel.

 

Ao fechar o visualização do DANFSE, selecione logo abaixo a aba Dados.

 

Nome que na última linha tem que aparecer a Data de Emissão, e ela tem que estar condisente com o que esta no XML.