Ir para conteúdo
  • Cadastre-se

dev botao

Venda MFe com mais de um tipo de pagamento


Ver Solução Respondido por Siagri Sistemas,
  • Este tópico foi criado há 2618 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

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?

  • 3 semanas depois ...
Postado

O meu soft basicamente peguei o exemplo do ACBR e encaixei no meu sistema.

O que eu fiz, eu criei uma tabela "formas de pagamento fiscais". Que contem todas as formas usadas para aquele cupom-cfe. O usuario vai escolher numa "Grid" uma das formas de pagamento daquele cupom e apertar o "enviar pagamento", você pega os dados de retorno, e alimenta outros campos especialmente o Id Pagamento.

Quando fiz o pagamento(no simulador do Pos), no sistema o usuario vai apertar o "verifica status validor) pega dados de retorno e altera o registro de novo.

No final quando ele fizer isso para todas as formas de pagamento listadas nesse DataSet, vc vai o usar o enviarvenda., depois passa um "loop" nesse dataset com as formas, usando o enviar resposta fiscal para cada 1.

  • Curtir 1

contato[ [email protected] ] skype[ marcelo.delphi ] [ facebook ]

  • Este tópico foi criado há 2618 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.