Fórum PARCELAMENTO #392454
14/12/2010
0
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
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
Curtir tópico
+ 0
Responder
Posts
15/12/2010
Leandro Carvalho
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.
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.
Responder
Gostei + 0
15/12/2010
Leonardo Xavier
tem sim muito simples.
se ficar com duvidas posta ai
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
Responder
Gostei + 0
15/12/2010
Paulo Andrade
tem sim muito simples.
se ficar com duvidas posta ai
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
Responder
Gostei + 0
15/12/2010
Paulo Andrade
tem sim muito simples.
se ficar com duvidas posta ai
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)