83 lines
2.8 KiB
ObjectPascal
83 lines
2.8 KiB
ObjectPascal
|
unit uViewClienteDescuentosArticulos;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, uViewBase, uViewDetallesGenerico, cxStyles, cxCustomData, cxGraphics,
|
|||
|
|
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ActnList, ImgList,
|
|||
|
|
PngImageList, uDADataTable, ComCtrls, ToolWin, cxGridLevel,
|
|||
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
|||
|
|
cxControls, cxGridCustomView, cxGrid, cxDBLookupComboBox, cxSpinEdit,
|
|||
|
|
uBizArticulos, uArticulosController, uDAInterfaces, schContactosClient_Intf,
|
|||
|
|
cxCurrencyEdit;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrViewClienteDescuentosArticulos = class(TfrViewDetallesGenerico)
|
|||
|
|
dsArticulos: TDADataSource;
|
|||
|
|
cxGridViewDESCUENTO: TcxGridDBColumn;
|
|||
|
|
cxGridViewREFERENCIA: TcxGridDBColumn;
|
|||
|
|
cxGridViewDESCRIPCION: TcxGridDBColumn;
|
|||
|
|
cxGridViewPRECIO_COSTE: TcxGridDBColumn;
|
|||
|
|
procedure actAnadirExecute(Sender: TObject);
|
|||
|
|
protected
|
|||
|
|
FArtController : IArticulosController;
|
|||
|
|
// FArticulos : IBizArticulo;
|
|||
|
|
public
|
|||
|
|
constructor Create(AOwner: TComponent); override;
|
|||
|
|
destructor Destroy; override;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrViewClienteDescuentosArticulos.actAnadirExecute(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
AArticulos: IBizArticulo;
|
|||
|
|
begin
|
|||
|
|
// inherited;
|
|||
|
|
AArticulos := (FArtController.BuscarTodos as IBizArticulo);
|
|||
|
|
AArticulos := FArtController.ElegirArticulos(AArticulos, 'Elija los art<72>culos que desea a<>adir para los descuentos especiales', True);
|
|||
|
|
if Assigned(AArticulos) then
|
|||
|
|
begin
|
|||
|
|
with AArticulos.DataTable do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not EOF do
|
|||
|
|
begin
|
|||
|
|
dsDetalles.DataTable.Insert;
|
|||
|
|
dsDetalles.DataTable.FieldByName(fld_ClientesDescuentosArticulosID_ARTICULO).AsInteger := AArticulos.ID;
|
|||
|
|
dsDetalles.DataTable.FieldByName(fld_ClientesDescuentosArticulosREFERENCIA).AsString := AArticulos.REFERENCIA;
|
|||
|
|
dsDetalles.DataTable.FieldByName(fld_ClientesDescuentosArticulosDESCRIPCION).AsString := AArticulos.DESCRIPCION;
|
|||
|
|
dsDetalles.DataTable.FieldByName(fld_ClientesDescuentosArticulosPRECIO_COSTE).AsCurrency := AArticulos.PRECIO_COSTE;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
constructor TfrViewClienteDescuentosArticulos.Create(AOwner: TComponent);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
FArtController := TArticulosController.Create;
|
|||
|
|
// FArticulos := (FArtController.BuscarTodos as IBizArticulo);
|
|||
|
|
// dsArticulos.DataTable := FArticulos.DataTable;
|
|||
|
|
|
|||
|
|
// if not dsArticulos.DataTable.Active then
|
|||
|
|
// dsArticulos.DataTable.Active := True;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
destructor TfrViewClienteDescuentosArticulos.Destroy;
|
|||
|
|
begin
|
|||
|
|
// if dsArticulos.DataTable.Active then
|
|||
|
|
// dsArticulos.DataTable.Active := False;
|
|||
|
|
|
|||
|
|
// FArticulos := NIL;
|
|||
|
|
FArtController := NIL;
|
|||
|
|
inherited;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|