Bom dia,
Sim, abri e vi a informação, inclusive comentei no meu post que a informação que me retorna é justamente essa de "lote não processado ainda",
Minha duvida é que mesmo aguardando bastante tempo entre um envio e outro só obtenho essa informação.
Outra questão é também , porque não consigo obter o código da situação, "ACBrNFSe.NotasFiscais.Items[0].NFSe.Situacao" para que consiga fazer um tratamento no sistema, minha intenção, é implementar esse tratamento abaixo, mas como não estou conseguindo pegar o codigo da situação de retorno, não está dando certo.
case AnsiIndexStr(ACBrNFSe.NotasFiscais.Items[0].NFSe.Situacao,['1','2','3','4']) of
0:begin
__SuperClass.GetInstance.GenericsF.DisplayMessage('NFs-E Campinas.', '',
'Arquivo RPS não Recebido.', 'Informação', MB_ICONEXCLAMATION);
end;
1:begin
__SuperClass.GetInstance.GenericsF.DisplayMessage('NFs-E Campinas.', '',
'Arquivo RPS não processado.', 'Informação', MB_ICONEXCLAMATION);
end;
2:begin
__SuperClass.GetInstance.GenericsF.DisplayMessage('NFs-E Campinas.', '',
'Arquivo RPS Processado com erro.', 'Informação', MB_ICONEXCLAMATION);
end;
3:begin
DadoEmissor.RazaoSocialEmissor := ACBrNFSe.NotasFiscais.Items[0].NFSe.PrestadorServico.RazaoSocial;
DadoEmissor.IMEmissor := ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal;
DadoTomador.InscricaoMunicipal := ACBrNFSe.NotasFiscais[0].NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal;
DadoTomador.Prefixo := cdsPerguntasPREFIXO.AsString;
DadoTomador.Numero := ACBrNFSe.NotasFiscais[0].NFSe.Numero;
DadoTomador.CNPJTomador := ACBrNFSe.NotasFiscais.Items[0].NFSe.Tomador.IdentificacaoTomador.CpfCnpj;
DadoTomador.RazaoSocialTomador := ACBrNFSe.NotasFiscais.Items[0].NFSe.Tomador.RazaoSocial;
DadoTomador.CodigoVerificao := ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao;
DadoTomador.Email := cdsNotas.FieldByName('EMAILNFE').AsString;
DadoTomador.Endereco := ACBrNFSe.NotasFiscais[0].NFSe.Tomador.Endereco.Endereco;
DadoTomador.Protocolo := ACBrNFSe.NotasFiscais.Items[0].NFSe.Protocolo;
ImprimeGeraPDFEnviaEmail(vPathOrigem,
ACBrNFSe.DANFSe.PathPDF,
DadoEmissor,
DadoTomador);
__SuperClass.GetInstance.GenericsF.DisplayMessage('NFs-E Campinas.', '',
'Arquivo RPS processado com sucesso, e-mail enviado com sucesso!!!.', 'Informação', MB_ICONEXCLAMATION);
end;