[Implementação Divinopolis-Mg - Govdigital]

Obrigado Cleber.

[Class Elisterror With Message 'list Index Out Of Bounds(0)']

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

[Implementação Divinopolis-Mg - Govdigital]

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

[Class Elisterror With Message 'list Index Out Of Bounds(0)']

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.

[Class Elisterror With Message 'list Index Out Of Bounds(0)']

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

 

 

[Depois De Atualizar Acbr Surgiu Erro Na Linha "with Rem.infnf.add Do"]

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.