77 lines
2.4 KiB
ObjectPascal
77 lines
2.4 KiB
ObjectPascal
|
unit ArticuloModelo2;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, Articulo, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
|
|
cxEdit, DB, cxDBData, Menus, am2000menuitem, am2000popupmenu, am2000,
|
||
|
|
cxButtonEdit, cxDBEdit, cxMaskEdit, cxDropDownEdit, cxContainer,
|
||
|
|
cxTextEdit, cxMemo, StdCtrls, cxGridLevel, cxClasses, cxControls,
|
||
|
|
cxGridCustomView, cxGridCustomTableView, cxGridCardView,
|
||
|
|
cxGridDBCardView, cxGrid, AdvPanel, ExtCtrls, RdxBotones, RdxPaneles,
|
||
|
|
RdxBarras, RdxTitulos;
|
||
|
|
|
||
|
|
type
|
||
|
|
TfrArticuloModelo = class(TfrArticulo)
|
||
|
|
private
|
||
|
|
public
|
||
|
|
constructor Create (AOwner : TComponent); override;
|
||
|
|
destructor Destroy; override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
frArticuloModelo: TfrArticuloModelo;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses TablaArticulos, TablaPropiedadesArticulo, TablaPropiedades,
|
||
|
|
TablaFamilias;
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
{ TfrArticuloModelo }
|
||
|
|
|
||
|
|
constructor TfrArticuloModelo.Create(AOwner: TComponent);
|
||
|
|
begin
|
||
|
|
inherited Create(AOwner, True);
|
||
|
|
|
||
|
|
with TablaArticulos do
|
||
|
|
begin
|
||
|
|
Database := BaseDatos;
|
||
|
|
Transaction := Transaccion;
|
||
|
|
SelectSQL.Assign(dmTablaArticulos.sqlConsultarArtModelo);
|
||
|
|
InsertSQL.Assign(dmTablaArticulos.sqlInsertarArtModelo);
|
||
|
|
ModifySQL.Assign(dmTablaArticulos.sqlModificarArtModelo);
|
||
|
|
DeleteSQL.Assign(dmTablaArticulos.sqlEliminarArtModelo);
|
||
|
|
RefreshSQL.Assign(dmTablaArticulos.sqlConsultarArtModelo);
|
||
|
|
end;
|
||
|
|
|
||
|
|
dmTablaArticulos.ArtModelo := 1;
|
||
|
|
|
||
|
|
with TablaPropiedades do
|
||
|
|
begin
|
||
|
|
Database := BaseDatos;
|
||
|
|
Transaction := Transaccion;
|
||
|
|
SelectSQL.Assign(dmTablaPropiedadesArticulo.sqlGridProArtModelo);
|
||
|
|
InsertSQL.Assign(dmTablaPropiedadesArticulo.sqlInsertarProArtModelo);
|
||
|
|
ModifySQL.Assign(dmTablaPropiedadesArticulo.sqlModificarProArtModelo);
|
||
|
|
DeleteSQL.Assign(dmTablaPropiedadesArticulo.sqlEliminarProArtModelo);
|
||
|
|
RefreshSQL.Assign(dmTablaPropiedadesArticulo.sqlConsultarProArtModelo);
|
||
|
|
end;
|
||
|
|
|
||
|
|
TablaPropiedadesMem.CopyStructure(TablaPropiedades);
|
||
|
|
dmTablaPropiedadesArticulo.InicializarGridPropiedadesArticulo(gridPropiedadesDBCardView);
|
||
|
|
with TcxComboBoxProperties(gridPropiedadesDBCardView.GetRowByFieldName('PROPIEDAD').Properties) do
|
||
|
|
Items := dmTablaPropiedades.darPropiedades;
|
||
|
|
dsPropiedades.OnStateChange := dsDetallesStateChange;
|
||
|
|
end;
|
||
|
|
|
||
|
|
destructor TfrArticuloModelo.Destroy;
|
||
|
|
begin
|
||
|
|
dmTablaArticulos.ArtModelo := 0;
|
||
|
|
inherited;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|