parcelamento com entrada

veja se assim funciona:

procedure tfrmcred.parcelarvenda(valor:double; condicao:string; entrada: double = 0);
var
  dias: tstringlist;
  nparcelas, i, icond: integer;
  datavencimento: tdate;
  parcela, valorparcela: double;
begin
  if ansiuppercase(condicao) = 'A VISTA' then
  begin
    condicao := '0';
    entrada := 0;
  end;

  condicao := stringreplace(condicao, ' ', '', [rfReplaceAll]);

  dias := tstringlist.Create;
  dias.Delimiter := ',';
  dias.DelimitedText := condicao;

  nparcelas := dias.Count;
  if entrada > 0 then icond := 1 else icond := 0;

  if condicao <> '0' then
    try
      valorparcela := roundto((valor - entrada) / (nparcelas - icond),-2);
    except
      valorparcela := roundto(valor,-2);
      entrada := 0;
    end;

  for i := 0 to nparcelas - 1 do
  begin
    datavencimento := date + strtointdef( dias[i],0 );

    if i = (nparcelas - 1) then
      parcela := (valor - entrada) - ((nparcelas - 1 - icond) * valorparcela)
    else
    if (i = 0) and (entrada > 0) then
      parcela := entrada
    else
      parcela := valorparcela;

    tabprazo.Append;
    tabprazoVALOR.Value := parcela;
    tabprazoCODPARCELA.Value := i + 1 ;
    tabprazoVencimento.AsSQLTimeStamp := DateTimeToSQLTimeStamp(datavencimento);
    tabprazoSITPARCELA.Value := 1;
    tabprazoTOTPARCELAS.Value := nparcelas;
//    tabprazoCODFORNECEDOR.Value := dm1.tabpedidoCODFORNECEDOR.Value;
//    tabprazoCODPEDIDO.Value := dm1.tabpedidoCODPEDIDO.Value;
    tabprazo.Post;
  end;
  dias.Free;
end;

pode ser usada passando ou não o valor de entrada .

// passando valor de entrada
parcelarvenda(1560.87, '0, 30, 60, 09', 520);

// sem valor de entrada (será calculado pela rotina)
parcelarvenda(1560.87, '0, 30, 60, 09'); ou
parcelarvenda(1560.87, '0, 30, 60, 09', 0);

Emerson é isto mesmo que eu preciso, só nao ta criando a parcela ex: 0,30,60,90 num valor de 300,00 e entrada de 150,00   deveria aparecer assim   1-     150,00 2-       50,00 3-       50,00 4-       50,00           esta ficando assim   2-       50,00 3-       50,00 4-       50,00  

Olá!!

Imagine o seguinte:

    entrada = VendasTotal - valor da entrada

Se houver algum valor em "entrada", ou seja, maior que 0 entao:

1 - Vc adiciona esse registro na tabela de faturas com os dados referentes ao lançamento;
      CdsFaturas.Append;
      CdsFaturasFORMAPGTO.value:="tipo do pagamento - dinheiro, cartao, cheque a vista)"
      cdsfaturasVALOR.asfloat:=StrToFloat(Trim(EdtEntrada.Text));
      CdsFaturasVALORPAGO.asfloat:=StrToFloat(Trim(EdtEntrada.Text));

2 - Pegue a diferença (total da venda - valor da entrada e divida nas parcelas restantes) e insira na tabela faturas com os respectivos vencimentos
for i:=1 to strtoint(Trim(EdtParcelas.Text)) - 1 do
cdsfaturasVALOR.asfloat:=(VendasTotal - strtofloat(Trim(EdtEntrada.text))) / (strtoint(Trim(EdtParcelas.text))-1);

[]´s
Evaristo

Márcio, como você está passando os parâmetros?


parcelarvenda(300, '0, 30, 60, 09', 150) ?


debugue, pois aqui está funcionando perfeitamente.

Bom dia a todos, ficou perfeito do jeito que eu precisava, eu estava fazendo um update para a parcela com entrada e apagando esta parcela, muito boa a ajuda dos amigos do forum esta funcionando 100% agora   agradeco a todos pela ajuda!!!!!!!!