Juliano Otaviano Barreto

Obrigado Cleber.

Bom dia Italo, Fiz a mudança e o problema alterou, agora a mensagem é: Erro desconhecido ao enviar o lote! Unit : ACBrNFSeWebServices function TWebServices.Envia(ALote: String): Boolean; begin self.Enviar.FNumeroLote := ALote; Result := Self.Enviar.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.Enviar.Msg); if Self.Enviar.Msg <> '' then raise Exception.Create(Self.Enviar.Msg) else raise Exception.Create('Erro Desconhecido ao Enviar o Lote!') end; Ao invés de enviar todos os arquivos de retorno do GovDigital separadamente, vou compacta-los. Desde já agradeço pela ajuda. 201501.rar

Oi Cleber, estou com este mesmo problema, você conseguiu resolvê-lo?

Bom dia Italo, muitissimo obrigado pela atenção. Fiz a atualização do ACBr, recompilei o sistema e inclusive usei a opção de compilação "Build" no Delphi 7 mas o problema permanece. Ainda estou em busca de uma solução.

Saudações, Estou implementando a NFSe para Divinópolis/MG que utiliza o provedor GovDigital, endereços: Produção > https://ws.govdigital.com.br/ws/div Homologação > https://homolog.govdigital.com.br/ws/div O RPS está sendo gerado e aparentemente assinado, mas quando executa a unit 'ACBrNFEsWebServices' na function: function TWebServices.Gera(ARps:Integer): Boolean; begin self.GerarNfse.FNumeroRps := ARps; Result := Self.GerarNfse.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.GerarNfse.Msg); if Self.GerarNfse.Msg <> '' then raise Exception.Create(Self.GerarNfse.Msg) else raise Exception.Create('Erro Desconhecido ao Gerar NFS-e!') end; end; Ocorre o erro List Index Out Of Bounds na linha : Result := Self.GerarNfse.Executar; enfim, passei muitas horas tentando resolver esta questão mas não estou conseguindo, se alguém puder me dar a sua opinião eu ficaria muito agradecido. Vou anexar o arquivo XML da RPS em questão para ajudar na analise. 6A-Rps.xml 6A-Rps2.xml 6-ger-nfse.xml 6-ger-nfse-soap.xml 6-lista-nfse.xml 6-lista-nfse-soap.xml

Boa tarde colegas, Hoje efetuei a atualização do componente e imediatamente surgiu este problema na compilação, meu fonte está da seguinte forma: case strtoint(qrnotasfiscais.Fieldbyname('ncnftipo').asstring) of 0: // Nota fiscal modelo 01 begin // Nota Fiscal {$IFDEF PL_200} with infCTeNorm.infDoc.infNF.Add do {$ELSE} with Rem.InfNF.Add do (ERRO ESTÁ NESTA LINHA) {$ENDIF} begin serie :=qrnotasfiscais.Fieldbyname('ncnfserie').asstring; nDoc :=qrnotasfiscais.Fieldbyname('ncnumeronf').asstring; dEmi :=qrnotasfiscais.Fieldbyname('ncnfemissaonf').asdatetime; vBC :=qrnotasfiscais.Fieldbyname('ncnfbcicms').asfloat; vICMS :=qrnotasfiscais.Fieldbyname('ncnfvricms').asfloat; vBCST :=qrnotasfiscais.Fieldbyname('ncnfbcicmsst').asfloat; vST :=qrnotasfiscais.Fieldbyname('ncnficmsst').asfloat; vProd :=qrnotasfiscais.Fieldbyname('ncnfvrmercadoria').asfloat; vNF :=qrnotasfiscais.Fieldbyname('ncnfvalor').asfloat; if length(sonumeros(qrnotasfiscais.Fieldbyname('ncnfcfop').asstring))>0 then nCFOP :=strtoint(sonumeros(qrnotasfiscais.Fieldbyname('ncnfcfop').asstring)); nPeso :=qrnotasfiscais.Fieldbyname('ncnfpeso').asfloat; //PIN :=''; {$IFNDEF PL_200} // Local de Retirada if length(sonumeros(qrretirada.fieldbyname('doc1').asstring))>13 then locret.CNPJCPF :=sonumeros(qrretirada.fieldbyname('doc1').asstring) else locret.CNPJCPF :=sonumeros(qrretirada.fieldbyname('doc1').asstring); locRet.xnome:=qrretirada.fieldbyname('razaosocial').asstring; locRet.xLgr:=qrretirada.fieldbyname('endereco').asstring; locRet.nro:=qrretirada.fieldbyname('numero').asstring; locRet.xCpl:=qrretirada.fieldbyname('complemento').asstring; locRet.xBairro:=qrretirada.fieldbyname('bairro').asstring; if (qrretirada.fieldbyname('codmunicipio').value<>null) and (length(sonumeros(qrretirada.fieldbyname('codmunicipio').AsString))>0) then locRet.cMun:=strtoint(sonumeros(qrretirada.fieldbyname('codmunicipio').asstring)); locRet.xMun:=qrretirada.fieldbyname('cidade').asstring; locRet.UF:=qrretirada.fieldbyname('uf').asstring; end; {$ENDIF} end; Eu já estou procurando solução para isto mas como vocês todos sabem que nós programadores temos a responsabilidade de manter nossos sistemas rodando entao eu preciso adiantar ao máximo a solução, quem sabe alguem nao passou por esta fase e possa me mostrar o que eu não estou conseguindo ver. Desde já agradeço a quem possa se interessar. Abs.