Alteração Unit pnfsNFSeG

[João Paulo Müller]

Bom dia,

Realizei uma pequena alteração na unit pnfsNFSeG.

Utilizo o provedor da WebISS no qual não possui a tag de versão do lote no XML. Na unit pnfsNFSeG linha 231 é tratado sobre essa questão porém o provedor da WebISS não estava adicionado, a alteração que fiz foi somente adicionar o provedor.

 // Não Incluir a versão para os provedores abaixo
 ifThen(AProvedor in [proAbaco, proBetha, proDBSeller,
 	proGinfes, proGoiania, proGovBR, proIssCuritiba,
 	proISSNET, proLexsom, proNatal, proTinus, proRecife, proRJ,
 	proSimplISS, proThema, proTiplan, proAgili,
 	proFISSLex, proSpeedGov, proPronim, proCopla
	proSalvador,PROWEBISS, proSJP, proFintelISS],

 

Aproveitando o gancho, estou com um problema para realizar consulta do lote(ConsultaLoteRps) e a consulta da nota (ConsultaNFSe), quando realizo a consulta obtenho o erro "Argument Out Of range".

Esses dias já havia postado algo referente mais com o método de ConsNFSeRps no qual consegui resolver o problema limpando o objeto toda vez que relizava uma nova consulta.

Estou com os fontes todos atualizado. 

Segue a maneira na qual realizo a consulta da nota (ConsultaNFSe):

  Frmmain.ACBrNFSe.NotasFiscais.Clear;
  N:= FrmMain.ACBrNFSe.NotasFiscais.Add.NFSe;
 
  N.IdentificacaoRps.Numero := edtRPS.Text;
  N.IdentificacaoRps.Serie := EdtSerie.Text;
  N.IdentificacaoRps.tipo := trRPS;
  N.Numero := ifthen(length(edtNum.Text) < 14,NumNFSeTOWB(edtNum.Text,
       FrmMain.ACBrNFSe.Configuracoes.Geral.Provedor),edtNum.Text);

  N.Prestador.Cnpj :=  Emp_CNPJ;
  N.Prestador.InscricaoMunicipal :=  Emp_InscMun;
                                                           
  dataIni := DTini.Datetime;
  dataFim := DTFim.DateTime;

   //consultando//
    try
      FrmMain.ACBrNFSe.webservices.ConsultaNFSe(Frmmain.ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.Cnpj,
        Frmmain.ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal,Dataini,dataFim,
        Frmmain.ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero
      );                                                                    
                                                                      

Provedor: WebISS.

Cidade: Mafra.

Grato pela atenção.

 

pnfsNFSeG.pas

Editado 30 Novembro, 2015 por joaomiler

[Italo Giurizzato Junior]

Bom dia João,

Por favor anexe a Unit alterada.

Quanto a consulta é interessante configurar o componente para salvar os arquivos Soap, desta forma fica mais fácil tentar descobrir o problema.

[João Paulo Müller]

Bom dia Italo,

Anexei a unit.

Referente a consulta, ele me retorna o XML de resposta tudo certo com todos os dados, o problema ocorre na hora de preencher o objeto.

O erro ocorre novamente nessa parte: 

Unit ACBrNFSeWebServices, linha 923:

if FNotasFiscais.Items[ii].NFSe.IdentificacaoRps.Numero = FRetornoNFSe.ListaNFSe.CompNFSe.Items[ i ].NFSe.IdentificacaoRps.Numero then

A alteração que você havia sugerido no outro post (destacado em vermelho) estava correto, o que aconteceu foi que na hora de postar aqui no fórum transformou o [ i ] em comando para font em italico.

Na hora de realizar a consulta da nota não é preenchido o numero do RPS, e nessa linha ele esta tentando comparar o número de RPS(em branco) com o numero do RPS de retorno.

Editado 30 Novembro, 2015 por joaomiler

[Italo Giurizzato Junior]

Boa tarde João,

Entendi, vou verificar.

[João Paulo Müller]

Deu certo Italo, Obrigado!