Envio de NFSe e não consigo obter no retorno a situação

[foleyjf]

estou usando trunk2 e o provedor BHISS, porém não estou conseguindo pegar a situação de maneira alguma nem pelo protocolo, nem após ConsultarNFSeporRps.

 

Segue como estou fazendo.

 

  ACBrNFSe1.NotasFiscais.Clear;
  ACBrNFSe1.NotasFiscais.LoadFromFile(nomearq);

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

 

situacao :=  ACBrNFSe1.NotasFiscais.Items[0].NFSe.Situacao;

A situacao vem em Branco porem na mensagem do componente vem correto 4 por exemplo.

 

Pelo protocolo :

ACBRNFSe1.ConsultarSituacao(dbedtPROTOCOLONFSE.Text);

situacao := ACBrNFSe1.WebServices.ConsSitLoteRPS.RetSitLote.InfSit.Situacao;

Nem no site da prefeitura conseguui consultar tipo não reconhece o protocolo.

O que estou fazendo de errado?

[Italo Giurizzato Junior]

Bom dia,

Se ao consultar a NFS-e por RPS a situação vem em branco isso significa que esse provedor não retorna essa informa ao realizar esse tipo de consulta.

[foleyjf]

O engraçado que vem esta mensagem só não consigo pegar a situção mesmo.

 

[Italo Giurizzato Junior]

Bom dia,

Favor anexar o XML de retorno ao executar o método ConsultarNFSeporRPS.

[foleyjf]

Italo quando a nota é processada após o envio com o monitoramento do componente vem a informação pelas duas situações abaixo.

 ShowMessage(ACBrNFSe1.WebServices.ConsSitLoteRPS.Situacao + ' / ' + ACBrNFSe1.NotasFiscais.Items[0].NFSe.Situacao);

 

Porém quando consulto após :

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.ConsultarLoteRps('124', 'A50045742B20166000000049');

 

  ACBRNFSe1.ConsultarSituacao('A50045742B20166000000049','1');

 

Sempre vem em branco ou 1.

 

129UNICA-con-nfse-rps.xml

129UNICA-comp-nfse.xml

[foleyjf]

Italo tive um sucesso aqui agora é resolver :

Quando passo o protoloco Aw0045742n2016N000000052 ele vai para o componente AW0045742N2016N000000052 agora é acertar 

ACBrNFSe1.ConsultarLoteRps(dbedtNRPS.Text, dbedtPROTOCOLONFSE.Text);

 

 

[foleyjf]

Italo,

Aparentemente resolvido, o problema aparentemente estava na hora de salvar o protocolo na base de dados estava salvando tudo maiusculo agora só porque eu quero estou gerando e não vem nenhum com minisculo, vou realizar mais uns testes mas consegui consultar assim.

    ACBrNFSe1.ConsultarLoteRps(rps, protocolo);
    situacao := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Situacao;