Jones Romão

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?

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

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?