Parcelas

[Renanbg 1]

To com um sistema de comissoes que funciona assimTem um cadastro onde a pessoa lança-cliente-vendedor-valor-emissao-vencimentoComo podem ver é muito simples, entao queria colocar ali nessa tela um combo chamado parcelasDae se o cara lançar uma venda de 300,00 e selecionar 2 parcelas o sistema lançará dois registros com 150,00 cada um e com os vencimentos de 30 em 30 diasAlguem tem algo p me ajudar?Delphi 6 - Paradox

[marcio.theis 3]

Já chegou a montar alguma coisa ?

No caso precisa somente saber que opção o usuário selecionar, no caso de 2 parcelas, precisaria somente pegar o valor dividir por dois, depois fazer um for de 1 até 2 e lançar as parcelas, podendo usar a data atual + 30 e depois mais 60, ou então usar a unit DateUtils que tem o IncDay que faz incremente de dias em uma data...

Tente desenvolver algo, conforme surgir problema e ou dúvidas, volte a postar... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Renanbg 1]

Opa marcio...beleza?

 

Ja tenho desenvolvido todo o processo de gravar, porem nada com as parcelas pq nunca fiz e to meio perdido de como começar

 

abaixo o codigo do botao gravar

 

procedure Tfrmcomissoes.BitBtn1Click(Sender: TObject);varMensagem:string;beginif DBEdit2.text = '' thenbeginMensagem := 'O nome do cliente não foi preenchido!'+#13+'Cancele a venda e lance-a novamente!';Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONWARNING + MB_OK);abort;endelseif DBLookupComboBox2.text = '' thenbeginMensagem := 'Preencha o Nome do Vendedor!';Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONWARNING + MB_OK);DBLookupComboBox2.setfocus;abort;endelseif DBEdit6.text = '' thenbeginMensagem := 'Preencha o Número do contrato para concluir!';Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONWARNING + MB_OK);DBEdit6.setfocus;abort;endelseif DBDateEdit1.text = '  /  /	' thenbeginMensagem := 'Preencha a Emissão para concluir!';Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONWARNING + MB_OK);DBDateEdit1.setfocus;abort;endelseif DBDateEdit2.text = '  /  /	' thenbeginMensagem := 'Preencha o Vencimento para concluir!';Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONWARNING + MB_OK);DBDateEdit2.setfocus;abort;endelseif DBEdit5.text = '' thenbeginMensagem := 'Preencha o Valor da venda para concluir!';Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONWARNING + MB_OK);DBEdit5.setfocus;abort;endelse  if dm.ConfigComi_fixa.Value = 'SIM' then  begin   dm.ComissoesComissao.Value := dm.ComissoesValor_venda.Value * dm.ConfigPercentual.Value / 100;   DBEdit9.text:='SIM';  end;  if dm.ConfigComi_fixa.Value = 'NÃO' then  begin   dm.ComissoesComissao.Value := dm.ComissoesValor_venda.Value * dm.ComissoesPercent_comi.Value / 100;   DBEdit9.text:='NÃO';  end;Dm.ComissoesValor_pago.Value:= strtofloat('0,00');Dm.comissoesem_aberto.value := dm.ComissoesValor_venda.Value;dm.comissoes.Post;Mensagem := 'Venda para '+dm.comissoescliente.value+' lançada com sucesso!'+#13+'Comissão registrada para '+dm.comissoesvendedor.value+'.';Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONINFORMATION + MB_OK);close;Mensagem := 'Deseja efetuar a baixa desta venda agora?';if Application.MessageBox(PCHAR(Mensagem), 'Comissões', MB_ICONQUESTION + MB_YESNO+MB_DEFBUTTON2)=MRYES thenfrmmancomissoes.speedbutton5.click;end;

Agora falta saber como incrementar o resto

[marcio.theis 3]

Tente fazer algo como falei no post acima, identifica o n° de parcelas, faz um for fazendo .Insert na tabela...

[Renanbg 1]

Pesquisei e n achei nada...você n tem um exemplo em codigo p me ajudar a engatar a marcha?Abraço...

[marcio.theis 3]

Os lançamentos de parcela que tenho, são muito complexos...No caso deste tipo não tenho nada...