PARCELAMENTO

Delphi

14/12/2010

Ola Pessoal,

Como fazer para na minha tela de venda eu escolher uma opção ex cartao de credito e ao escolher ex valore da compra 100,00 ao escolher 1 * 100,00
2* 50,00

3* 33,33

e esses valores mostrar em um edit

nao sei se faria tipo um combo com as opções de parcelamento e ao selecionar mostra o valor da parcela
no meu projeto faço tudo com query datasource adoconnection e uso bdaccess



PESSOAL ME AJUDEM
Adilson Soares

Adilson Soares

Curtidas 0

Respostas

Leandro Carvalho

Leandro Carvalho

14/12/2010

Primeiro crie uma tabela de Formas de Pagamentos, onde tu vai ter a Descrição e Parcelas.

Na tela de venda se alguém escolher "Cartão de Crédito em 2 vezes", ele vai pegar o valor total da venda e dividir com o campo Parcelas do registro selecionado lá na tabela de Formas de Pagamento que no caso vai estar com o valor "2". Com isso tu pode mostrar o resultado em uma Grid.

GOSTEI 0
Leonardo Xavier

Leonardo Xavier

14/12/2010

tem sim muito simples.

var
    ValorTotal:currency;
    ValorParcelas, PrimeiraParcela: Integer;
    nParcelas: Integer;
begin
//if edit3.Text='0' then begin
  //  edit3.Text:='1';
//end;
valor1:=StrToCurr(DBEdit6.Text);//colocar o seu campo de valor
valor2:=StrToCurr(Edit2.Text);//colocar o seu campo de valor
total:=valor1-valor2;
if DBLookupComboBox1.Text='' then begin
ShowMessage('Selecione um tipo de pagamento.');
end else begin
 If DBLookupComboBox1.Text='A VISTA' then begin
  ShowMessage('A forma de pagamento  A VISTA não está habilitado com o parcelamento.');
end else begin
if dbedit6.text='' then begin//testa o campo valor para verificar se nao é nulo
ShowMessage('Você ainda não definiu o valor deste serviço!');
end else begin
  ValorTotal := total;
  nParcelas  := strtoint(edit3.Text);//quantidade de parcelas
end;
  //====fim dos dados da caixa de dados
  ValorParcelas  := Trunc(ValorTotal/nParcelas);
  PrimeiraParcela := ValorParcelas + Trunc(ValorTotal - (ValorParcelas * nParcelas));
  ShowMessage('O valor da primeira parcela é: R$ '+IntToStr(PrimeiraParcela)+''#10'O valor das parcelas restantes é: R$'+IntToStr(ValorParcelas)+''#10' Aquantidade de parcelas é: '+edit3.Text);
  v1:=PrimeiraParcela;
  v2:=ValorParcelas;
  end;
end;
end;


se ficar com duvidas posta ai
GOSTEI 0
Paulo Andrade

Paulo Andrade

14/12/2010

tem sim muito simples.

var
    ValorTotal:currency;
    ValorParcelas, PrimeiraParcela: Integer;
    nParcelas: Integer;
begin
//if edit3.Text='0' then begin
  //  edit3.Text:='1';
//end;
valor1:=StrToCurr(DBEdit6.Text);//colocar o seu campo de valor
valor2:=StrToCurr(Edit2.Text);//colocar o seu campo de valor
total:=valor1-valor2;
if DBLookupComboBox1.Text='' then begin
ShowMessage('Selecione um tipo de pagamento.');
end else begin
 If DBLookupComboBox1.Text='A VISTA' then begin
  ShowMessage('A forma de pagamento  A VISTA não está habilitado com o parcelamento.');
end else begin
if dbedit6.text='' then begin//testa o campo valor para verificar se nao é nulo
ShowMessage('Você ainda não definiu o valor deste serviço!');
end else begin
  ValorTotal := total;
  nParcelas  := strtoint(edit3.Text);//quantidade de parcelas
end;
  //====fim dos dados da caixa de dados
  ValorParcelas  := Trunc(ValorTotal/nParcelas);
  PrimeiraParcela := ValorParcelas + Trunc(ValorTotal - (ValorParcelas * nParcelas));
  ShowMessage('O valor da primeira parcela é: R$ '+IntToStr(PrimeiraParcela)+''#10'O valor das parcelas restantes é: R$'+IntToStr(ValorParcelas)+''#10' Aquantidade de parcelas é: '+edit3.Text);
  v1:=PrimeiraParcela;
  v2:=ValorParcelas;
  end;
end;
end;


se ficar com duvidas posta ai
GOSTEI 0
Paulo Andrade

Paulo Andrade

14/12/2010

tem sim muito simples.

var
    ValorTotal:currency;
    ValorParcelas, PrimeiraParcela: Integer;
    nParcelas: Integer;
begin
//if edit3.Text='0' then begin
  //  edit3.Text:='1';
//end;
valor1:=StrToCurr(DBEdit6.Text);//colocar o seu campo de valor
valor2:=StrToCurr(Edit2.Text);//colocar o seu campo de valor
total:=valor1-valor2;
if DBLookupComboBox1.Text='' then begin
ShowMessage('Selecione um tipo de pagamento.');
end else begin
 If DBLookupComboBox1.Text='A VISTA' then begin
  ShowMessage('A forma de pagamento  A VISTA não está habilitado com o parcelamento.');
end else begin
if dbedit6.text='' then begin//testa o campo valor para verificar se nao é nulo
ShowMessage('Você ainda não definiu o valor deste serviço!');
end else begin
  ValorTotal := total;
  nParcelas  := strtoint(edit3.Text);//quantidade de parcelas
end;
  //====fim dos dados da caixa de dados
  ValorParcelas  := Trunc(ValorTotal/nParcelas);
  PrimeiraParcela := ValorParcelas + Trunc(ValorTotal - (ValorParcelas * nParcelas));
  ShowMessage('O valor da primeira parcela é: R$ '+IntToStr(PrimeiraParcela)+''#10'O valor das parcelas restantes é: R$'+IntToStr(ValorParcelas)+''#10' Aquantidade de parcelas é: '+edit3.Text);
  v1:=PrimeiraParcela;
  v2:=ValorParcelas;
  end;
end;
end;


se ficar com duvidas posta ai
GOSTEI 0
POSTAR