Problema con descuentos

Archivo
mario
2008-04-08
2013-01-09
  • mario
    mario
    2008-04-08

    Hola gente como va?
    En el modulo de descuentos cuando se hace un descuento por articulos y cantidad a la hs de ir a vender este articulo siempre me tira un error.La funcion que muestra el error es:

    function TfrmPago.VerificaDescuentos:boolean;
    var
        i : integer;
        sMensaje : String;
        rSuma : real;
    begin
        Result := true;
        if(rDescuentos > 0) and (lstDescNoAcept.IndexOf(cmbTipo.Items.Strings[cmbTipo.ItemIndex]) = - 1) then begin
            rSuma := 0;
            for i := 0 to grdPagos.RowCount - 1 do // Suma todos los tipos de pago iguales al seleccionado actualmente
                if(grdPagos.Cells[0,i] = grdTipo.Cells[0,cmbTipo.ItemIndex]) and (grdPagos.Cells[0,i] <> '') then
                    rSuma := rSuma + StrToFloat(grdPagos.Cells[1,i]);
            rSuma := rSuma + txtImporte.Value;
            if(rTotal - rDescuentos < rSuma) then begin
                sMensaje := 'La venta contiene descuentos, se debe de pagar al menos ' +
                             FormatFloat('$#,##0.00',rDescuentos) + #10 + 'con los siguientes tipos de pago:' + #10;
                for i := 0 to lstDescNoAcept.Count - 1 do
                    sMensaje := sMensaje + lstDescNoAcept.Strings[i] + #10;
                Application.MessageBox(sMensaje,'Error',[smbOk],smsCritical);
                Result := false;
            end;
        end;
    end;

    Por que sucede esto si alguien sabe o quizas no ingreso todos los datos en el modulo.
    Espero sus respuestas queridos programadores.

     
    • faBo
      faBo
      2008-04-09

      La función esta bien, el error manda algún mensaje?

       
    • mario
      mario
      2008-04-09

      Si el mensaje que esta debajo del "IF".
      Depurando esta funcion siempre al momento de comparar

      if(rTotal - rDescuentos < rSuma) then begin

      es menor la resta que el contenido de rsuma ponga lo que ponga en Descuento - articulos - cantidad

       
  • toolscoah
    toolscoah
    2009-11-19

    mi  estimado amigo el-mono , si ya resolvistes et problema agradesco pudieras pegar la parte de el codigo corregido , para poder librarme del mismo problema que tu.

    gracias…saludos desde mexico.

     
  • Hola.

    Para evitar este mensaje debemos entrar en Sistema - Configuración y en la parte de descuentos selecionar los tipos de descuentos en donde queremos aplicar descuentos.  (Esto lo comento nuestro amigo el Carioca (Alexandre Olivera).

    Por default todos los tipos de pagos se encuantran en la parte de NO aceptados a aplicarles descuento.

    saludos.

    Isc. Julio Ramírez Cabrera