Ver Mensaje Individual
  #8  
Antiguo 07-06-2017
giulichajari giulichajari is offline
Miembro
 
Registrado: nov 2012
Posts: 306
Reputación: 12
giulichajari Va por buen camino
Porque tengo el siguiente codigo en una unidad:

Código Delphi [-]
unit UDetalle;

interface
uses UProducto;
type
TDetalle = class
  private
    Fproducto: TProducto;
    Fcantidad: Double;
    FbaseImp: Double;
    Fsubtotal: Double;
    Ftotal: Double;
    procedure Setcantidad(const Value: Double);
    procedure Setproducto(const Value: Double);
    procedure SetbaseImp(const Value: Double);
    procedure Setsubtotal(const Value: Double);
    procedure Settotal(const Value: Double);

  public
    property baseImpouble read FbaseImp write SetbaseImp;
    property subtotalouble read Fsubtotal write Setsubtotal;
    property totalouble read Ftotal write Settotal;
    property cantidadouble read Fcantidad write Setcantidad;
    constructor NuevoDetalle();
    function calcularBaseImp(precioouble;alicouble)ouble;
    destructor destroy;
end;

Y lo mismo que ocurre para agregar el detalle ocurre con el objeto de la clase producto que agrega un detalle. En el momento que el user selecciona un producto de la grilla, que esta provista de un dataset, debo construir un objeto producto y pasarselo al detalle.Es correcto esto?
Responder Con Cita