Modificacion de Dataset en ejecucion

[[oscarac]]

asi es..

otra sugerencia... es que trates de utilizar Joins... ya sea Left o Inner en tu consulta dependiendo de lo que necesites

segun veo estas sacando datos de 5 tablas
Categorias
Medidas
Sustenacias Activas
Proveedores
Productos
la consulta podria tornarse lentas si es que no utilizas racionalmente la sintaxis

podrias hacer algo como esto

Código Delphi [-]
Select P.nombre_producto,S.nombre as sustancia, Pv.nombre_proveedor, C.Id_categoria,C.nombre as categoria, P.aplicar_descuento,
       P.costo_referencia,P.iva, P.ganancia, P.precio_farmacia, P.precio_maximo, P.Precio_Maximo As Precio_Con_Descuento
From productos Prod
Left Join categorias C on c.id_categoria = P.id_categoria
Left Join sustancias_activas S on S.id_sustancia_activa = P.id_sustancia_activa
Left Join proveedores P on Pv.id_proveedor = P.id_proveedor

otro detalle es que estas jalando datos de la tabla Medida y no lo estas usando en la consulta


como dato adicional...

has depurado el programa y verificado que la consulta se abra? porque si no se abre o hay un error no puedes hacerle el edit



saludos

[joelphi]

Tu consulta esta muy bien..se ve que ya tienes tu experiencia yo todavia soy estudiante..

Ya depure el programa y si se abre la consulta,ahora estoy probando los campos calculados quedo de esta forma solo que ahora no lo calcula

Código Delphi [-]
  Consulta.Close;
    Consulta.SQLs.SelectSQL.Clear;
    Consulta.SQLs.SelectSQL.Add(' Select P.nombre_producto,S.nombre as sustancia, Prov.nombre_proveedor, C.Id_categoria,C.nombre as categoria, P.aplicar_descuento,'+
                                  ' P.costo_referencia,P.iva, P.ganancia, P.precio_farmacia, P.precio_maximo'+
                                  '  From productos P'+
                                  '  Left Join categorias C on c.id_categoria = P.id_categoria'+
                                  '  Left Join sustancias_activas S on S.id_sustancia_activa = P.id_sustancia_activa'+
                                  '  Left Join proveedores Prov on Prov.id_proveedor = P.id_proveedor');
    try

        Consulta.Open;
    except on E: Exception do
    begin
        Raise;
        Exit;
    end;
    end;
   Consulta.Close;

    for I := 0 to Consulta.FieldDefs.Count - 1 do
     Consulta.FieldDefs[i].CreateField(Consulta, nil, Consulta.FieldDefs[i].Name);

  NuevoCampoCalculado := TStringField.Create(Consulta);
  NuevoCampoCalculado.FieldName := 'Precio_Con_Descuento';
//  NuevoCampoCalculado.AsCurrency;
  NuevoCampoCalculado.FieldKind := fkCalculated;
  NuevoCampoCalculado.DataSet := Consulta;
    Consulta.Open;
    Consulta.First;
    while not consulta.Eof do
    begin
        with Consulta do
        begin
        //Si aplica descuento a este producto..
            if(FieldByName('Aplicar_Descuento').AsString = 'SI') then
              begin
                for I := 0 to ListaDescuentos.Count -1  do //entonces buscar su categoria y si es igual aplicar el descuento
                 begin
                     if FieldByName('id_Categoria').AsInteger = TDescuentos_Clientes(ListaDescuentos[i]).Id_Categoria then
                     begin    //Si pasa por aqui pero no realiza la operacion-..
                        //ProductoDescuento.PrecioConDescuento := ProductoDescuento.PrecioMaximo - (ProductoDescuento.PrecioMaximo*descuento);
                        FieldByName('Precio_Con_Descuento').AsCurrency :=FieldByName('Precio_Maximo').AsCurrency - (FieldByname('Precio_Maximo').AsCurrency * TDescuentos_Clientes(ListaDescuentos[i]).Descuento);
                     end;
                 end;
              end;

        consulta.next;
        end;
    end;
    ListaDescuentos.Destroy;
    Result:= TDataSource.Create(Nil);
    Result.DataSet:=Consulta;

funciono bien pero no realiza la operacion..
Saludos..

[[oscarac]]

te cuento que muuuuucha experiencia no tengo tampoco....

seria mejor que en el mismo componente ADOQUERY (si en caso usas ADO para la conexion) agregues el campo calculado

luego en el evento OnCalcFields ejecutes lo que quieres que calcule

esto lo hara despues del open

en resumen

agrega un campo calculado en el "componente adoquery" y tu rutina de calculo colocala en el evento Oncalcfield a ver que sale

saludos

[joelphi]

Lo probare trabajo con componentes TpFibPlus con firebird..no hay mucha diferencia tiene el mismo evento..

Gracias y Saludos..