Fórum Pagamento Parcial de Contas a Receber #585903

procedure TFrmBaixaPrazo.BtnBaixarClick(Sender: TObject);
var
  ValorTotal: Real;
  x: Real;

begin

    CdsBaixaPrazo.Filter := 'SELECIONADO = ' + QuotedStr('S'); // filtra os registros selecionados
    CdsBaixaPrazo.Filtered := True; // ativa o filtro
    CdsBaixaPrazo.First; // posiciona o cursor no primeiro registro

    //while not CdsBaixaPrazo.Eof do
      //begin

            ValorTotal := StrToCurr(RetirarPonto(EdtValorSelecionado.Text));
            while not CdsBaixaPrazo.Eof do
            begin

              // Se a variável estiver zerada,
              // significa que todas as deduções de cálculo já foram feitas (pagamentos integrais e parciais)
              if ValorTotal = 0 then
              begin
                Break;
              end;

               // Se "Valor Selecionado" for MAIOR que o valor da parcela, quita a parcela
              if ValorTotal < CdsBaixaPrazo.FieldByName('VALORTOTAL').AsFloat then
              begin

                // Deduz o valor da parcela do "Valor Selecionado"
                // Por exemplo: 3.000,00 - 2.000,00 = 1.000,00 restantes para deduzir
                  CdsBaixaPrazo.FieldByName('VALORTOTAL').AsFloat := CdsBaixaPrazo.FieldByName('ValorParcela').AsFloat - ValorTotal;

                // Altera a parcela para quitada
                CdsBaixaPrazo.Edit;

                CdsBaixaPrazo.FieldByName('SITUACAOPAGAMENTO').AsString := 'PAGO';
                CdsBaixaPrazo.FieldByName('DATAPAGAMENTO').AsDateTime := Now;
                CdsBaixaPrazo.FieldByName('VALORTOTAL').AsFloat := 0;
                CdsBaixaPrazo.Post;

                // Move para a próxima parcela
                CdsBaixaPrazo.Next;
                CdsBaixaPrazo.ApplyUpdates(0);                
                Continue;
              end;

              // Se "Valor Selecionado" for MENOR que o valor da parcela, então é pagamento parcial
              if ValorTotal > CdsBaixaPrazo.FieldByName('VALORTOTAL').AsFloat then
              begin
                // Altera a parcela para parcial
                CdsBaixaPrazo.Edit;
                CdsBaixaPrazo.FieldByName('SituacaoPagamento').AsString := 'PARCIAL';
                CdsBaixaPrazo.FieldByName('Historico').AsString := 'PARCIAL';

                // Cálculo parcial
                // Por exemplo: 2.000,00 - 1.000,00 = 1.000,00
                CdsBaixaPrazo.FieldByName('VALORTOTAL').AsFloat := CdsBaixaPrazo.FieldByName('ValorParcela').AsFloat - ValorTotal;

                // Zera a variável, já que após o pagamento parcial, não vai sobrar mais nada
                ValorTotal := 0;

                CdsBaixaPrazo.Post;

                // Move para a próxima parcela
                CdsBaixaPrazo.Next;
                CdsBaixaPrazo.ApplyUpdates(0);
                Continue;
              end;
            end;
     // end;


end;