Fórum Baixa de Contas a Receber #337098

if (grd.SelectedRows.Count > 1) and (StrToFloat(txtValor.Text) < StrToFloat(txtSelecionado.Text)) then 
    begin 
    ValorBaixar:= StrToFloat(txtValor.Text); 
    for i:= 1 to grd.SelectedRows.Count do 
        begin 
        qry.GotoBookmark(Pointer(grd.SelectedRows.Items[i - 1])); 

        ID_CLIENTE:= qryID_CLIENTE.Text; 
        DATA_EMISSAO:= qryDATA_EMISSAO.Value; 
        DATA_VCTO:= qryDATA_VCTO.Value; 
        DOC:= qryDOC.Value; 
        HISTORICo:= qryHISTORICO.Value; 
        VALOR:= qryVALOR.Value; 

        // Altere o operador para >=
        if ValorBaixar >= qryValor.Value then 
            begin 
            ValorBaixar:= ValorBaixar - qryValor.Value; 
            qry.Edit; 
            qryDATA_PGTO.Value:= Date; 
            qryPENDENTE.Value:= False; 
            qry.Post; 
            end
        // Ao invés de fazer 2 ifs, coloque um else 
        else
            begin
            qry.Edit; 
            qryDATA_PGTO.Value:= Date; 
            qryPENDENTE.Value:= False; 
            qryValor.Value:= ValorBaixar; 
            qryHistorico.Text:= ´Baixar Parcial Conta de: ´ + FloatToStr(Valor) + HISTORICO; 
            qry.Post; 

            qry.Insert; 
            qryPENDENTE.Value:= True; 
            qryValor.Value:= Valor - ValorBaixar; 
            qryHistorico.Text:= ´Restante Conta de: ´ + FloatToStr(Valor) + HISTORICO; 
            qryID_CLIENTE.Text:= ID_CLIENTE; 
            qryDATA_VCTO.Value:= DATA_VCTO; 
            qryDATA_EMISSAO.Value:= DATA_EMISSAO; 
            qryDOC.Text:= DOC; 
            qry.Post;
            // Neste caso não haverá mais valor disponível para baixar o
            // CTR, então a rotina pode sair do for
            Break;
            end; 
        end; 
        qry.Close; 
        qry.Open; 
    end;        
end;