Xml nfse após retorno 2-não processado

[datilas]

bom dia amigos..

ontem me surgiu um "problema" estou usando nfse trunk2 issnet cuiaba, ontem fiz o envio de um rps e o retorno foi 2-não processado (até esse ponto só tenho o xml do rps),

hoje eu usei o ConsultarSituacao().. e o retorno foi 4-processado com sucesso...

pois bem minha pergunta é. como faço para obter o xml da nfse?

[Leonardo Cardoso]

Olá Datilas blz?

O componente ACBrNFSe possui 3 propriedades Salvar:

   1 - Configuracoes.Geral.Salvar := True ou False; Defini se os arquivos de envio e de retorno devem ser salvos ou não em disco.

   2 - Configuracoes.Arquivos.Salvar := True ou False; Defini se os arquivos com validade jurídica devem ser salvos ou não em disco.

   3 - Configuracoes.WebSevices.Salvar := True ou False; Igual ao 1º, só que salva ou não o XML de envio e de retorno completo sem nenhum tratamento feito pelo componente.

Nosso amigo Italo respondeu referente a isso em outros post. Espero ter ajudado.

[datilas]

ontem eu enviei o arquivo 123-rps.xml e o retorno foi  (2-não processado)

Hoje eu usei  ConsultarSituacao e o  retorno foi ( 4-processado)

hoje como faço para obter o arquivo xxx-nfse.xml

[Leonardo Cardoso]

Opa... Seguinte... Não sei se estou certo mais... Quando você envia e da 2 - Não processado e depois 4 - Processado, creio que você tem que entrar no site da prefeitura para obter o arquivo xml. Porque assim... só sera salvo pelo componente quando todo processo for finalizado e tal. E como deu não processado, o webservices não retornou todas as informações necessárias. 

Espero ter ajudado.

[datilas]

ACBrNFSe1.ConsultarNFSe(edtEmitCNPJ.Text, edtEmitIM.Text, StrToDate(DataInicial), StrToDate(DataFinal)); retorna todos os xmls do periodo,

eu gostaria de obter apenas o xml em questão

[Leonardo Cardoso]

Usando o ACBrNFServico.ConsultarNFSeporRps, ele pede como parâmetro o "ASerie:String". Creio que isso seja o Número de série da NFSe que você deseja buscar em especifico. Se obtiver sucesso fala ae... Vlw.

ACBrNFServico é o mesmo que  ACBrNFSe1 . É porque peguei como teste aqui o que eu estou usando e esta com esse nome... flw...

[datilas]

   ACBrNFSe1.NotasFiscais.Clear;
   ACBrNFSe1.NotasFiscais.LoadFromFile( 2014-rps.xml );

   ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo),
                                ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj,
                                ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal);

todos os campos acima vem vazios (mas 123-rps.xml esta correto todas as informações estão corretas)

então forcei  só para testar

 ACBrNFSe1.NotasFiscais.Clear;
   ACBrNFSe1.NotasFiscais.LoadFromFile( 2014-rps.xml );

 ACBrNFSe1.ConsultarNFSeporRps('20', '14', TipoRPSToStr(trRPS), vCnpj, vInscMun);

fez a consulta, mas deu erro list index out of bounds(1);

na função ExtrairNotasRetorno

e não retornou a nota.

quando eu faço a consulta por periodo o componente salva 15 nfse e em seguida do o erro list index out of bounds(16);

na função ExtrairNotasRetorno;

 

[Leonardo Cardoso]

O erro ocorre quando você chama a função? Se for, manda a função em anexo. 

Geralmente esse problema ocorre quando você tenta acessar um índice inexistente e assim, a exceção detectou uma anormalidade na execução.

[datilas]

o erro esta no ACBrNFSeWebServices.pas na  na função function

TNFSeWebService.ExtrairNotasRetorno: Boolean;

por algum motivo "obscuro para mim" na linha 917

for ii := 0 to FRetornoNFSe.ListaNFSe.CompNFSe.Count -1 do
 begin

...

//a variavel "ii" sempre fica com o valor "0" e isso causa todo o problema 

end;

 

Editado 19 Novembro, 2015 por datilas

[sergiots]

Em ‎19‎/‎11‎/‎2015‎ ‎18‎:‎33‎:‎49, datilas disse:

o erro esta no ACBrNFSeWebServices.pas na  na função function

TNFSeWebService.ExtrairNotasRetorno: Boolean;

por algum motivo "obscuro para mim" na linha 917

for ii := 0 to FRetornoNFSe.ListaNFSe.CompNFSe.Count -1 do
 begin

...

//a variavel "ii" sempre fica com o valor "0" e isso causa todo o problema 

end;

 

Olá datilas! Migrei ontem para o trunk2 e estou passando pelo mesmo problema (index out of bounds). Você conseguiu encontrar uma solução?

[datilas]

1 hora atrás, sergiots disse:

Olá datilas! Migrei ontem para o trunk2 e estou passando pelo mesmo problema (index out of bounds). Você conseguiu encontrar uma solução?

na linha 892 eu alterei para

  i := 0;
  ii:= -1;
  while FRetListaNFSe <> '' do
  begin

...

e na linha 918 eu alterei para

      While ii < FRetornoNFSe.ListaNFSe.CompNFSe.Count -1 do
      begin
      Inc(ii);

...

segue a unit alterada

ACBrNFSeWebServices.pas

[sergiots]

Obrigado pela colaboração, datilas! Vou testar e depois dou um retorno.