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
