[Consulta Estado de CF-e já emitida]

Olá Pessoal,

Semana passada foi anunciada uma nova funcionalidade do Integrador Fiscal do MF-e. Segundo o comunicado no site seria possível consultar o estado 

de qualquer CF-e em qualquer data: 

1.b) Novo recurso para Consulta de Documento Fiscal (CF-e/NFC-e), através da consulta de número de sessão. Desse modo, poderá ser consultado qualquer documento emitido pelo MFE, mesmo que não seja o último. <http://www.sefaz.ce.gov.br/content/aplicacao/internet/noticias/enviados/noticia_detalhes.asp?nTipoNoticia=3&nCodigoNoticia=836>

Daí fui ver no SVN do projeto ACBr se esta funcionalidade já tinha sido implementada, e verifiquei que aparentemente já havia sido. 

O problema é que quando implementei a solução não se comportou exatamente como esperado. Enquanto o AC/PDV esteve aberto eu consultei...

TACBrSATMFe_integrador_XML(loACBrSAT.SAT).ConsultarNumeroSessao(loACBrSAT.numeroSessao);

E o retorno foi... 067650|06000|0000|Emitido com sucesso + conteudo notas.|

Mas quando o AC/PDV foi reiniciado e realizei a consulta usando o mesmo número de sessão...

O retorno foi... 107792|11003|Sessao nao existe||.

Esta é uma funcionalidade ainda em desenvolvimento pela comunidade? 

 

[Venda MFe com mais de um tipo de pagamento]

Muito obrigado pela sua resposta @Siagri Sistemas! Ajudou bastante... 

[Venda MFe com mais de um tipo de pagamento]

Como seria o processo de envio de mais de um tipo de pagamento pro VFP-e com o ACBr...

No exemplo da MFe que se encontra nos fontes ele cria apenas um objeto e enviar.

procedure TForm1.btMFEEnviarPagamentoClick(Sender: TObject);
var
  PagamentoMFe : TEnviarPagamento;
  RespostaPagamentoMFe : TRespostaPagamento;
begin
  PagamentoMFe := TEnviarPagamento.Create;   // <<--
  try
    with PagamentoMFe do
    begin
      Clear;
      ChaveAcessoValidador := '25CFE38D-3B92-46C0-91CA-CFF751A82D3D';
      ChaveRequisicao := '26359854-5698-1365-9856-965478231456';
      Estabelecimento := '10';
      SerialPOS := InputBox('SerialPOS','Informe o Serial do POS','ACBr-'+RandomName(8));
      CNPJ := edtEmitCNPJ.Text;
      IcmsBase := 0.23;
      ValorTotalVenda := 1530;
      HabilitarMultiplosPagamentos := True;
      HabilitarControleAntiFraude := False;
      CodigoMoeda := 'BRL';
      EmitirCupomNFCE := False;
      OrigemPagamento := 'Mesa 1234';
    end;
    RespostaPagamentoMFe := TACBrSATMFe_integrador_XML(ACBrSAT1.SAT).EnviarPagamento(PagamentoMFe); // <<--- Chamaria isso para cada tipo de pagamento?
    ShowMessage(IntToStr(RespostaPagamentoMFe.IDPagamento));
  finally
    PagamentoMFe.Free;
  end;
end;

Haveria uma lista para os tipos de pagamento da venda?