david
acd17b74cc
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@2 c93665c3-c93d-084d-9b98-7d5f4a9c3376
124 lines
3.0 KiB
ObjectPascal
124 lines
3.0 KiB
ObjectPascal
unit uBizArticulos;
|
|
|
|
interface
|
|
|
|
uses
|
|
uDAInterfaces, uDADataTable, schArticulosClient_Intf, uDBSelectionListUtils;
|
|
|
|
const
|
|
BIZ_CLIENT_ARTICULO = 'Client.Articulo';
|
|
|
|
type
|
|
IBizArticulo = interface(IArticulos)
|
|
['{06AB61B1-C225-4791-9F5E-00A60DBA7FFD}']
|
|
function EsNuevo : Boolean;
|
|
function HayImagen: Boolean;
|
|
procedure SalvarImagen(const AFileName: String);
|
|
procedure CargarImagen(const AFileName: String);
|
|
procedure QuitarImagen;
|
|
end;
|
|
|
|
TBizArticulo = class(TArticulosDataTableRules, IBizArticulo, ISeleccionable)
|
|
protected
|
|
FSeleccionableInterface : ISeleccionable;
|
|
procedure OnNewRecord(Sender: TDADataTable); override;
|
|
public
|
|
procedure IniciarValoresArticuloNuevo; virtual;
|
|
function HayImagen: Boolean;
|
|
procedure SalvarImagen(const AFileName: String);
|
|
procedure CargarImagen(const AFileName: String);
|
|
procedure QuitarImagen;
|
|
function EsNuevo : Boolean;
|
|
constructor Create(aDataTable: TDADataTable); override;
|
|
destructor Destroy; override;
|
|
property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
|
|
write FSeleccionableInterface implements ISeleccionable;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
uDataTableUtils, uDataModuleUsuarios, SysUtils, uROClasses, Classes;
|
|
|
|
{ TBizArticulo }
|
|
|
|
procedure TBizArticulo.CargarImagen(const AFileName: String);
|
|
begin
|
|
{ inherited;
|
|
DataTable.Edit;
|
|
DataTable.FieldByName(fld_ArticulosIMAGEN).LoadFromFile(AFileName);
|
|
DataTable.Post;}
|
|
end;
|
|
|
|
constructor TBizArticulo.Create(aDataTable: TDADataTable);
|
|
begin
|
|
inherited;
|
|
FSeleccionableInterface := TSeleccionable.Create(aDataTable);
|
|
end;
|
|
|
|
destructor TBizArticulo.Destroy;
|
|
begin
|
|
FSeleccionableInterface := NIL;
|
|
inherited;
|
|
end;
|
|
|
|
function TBizArticulo.EsNuevo: Boolean;
|
|
begin
|
|
Result := (ID < 0);
|
|
end;
|
|
|
|
function TBizArticulo.HayImagen: Boolean;
|
|
{var
|
|
AStream : TMemoryStream;
|
|
AROStream : IROStream;}
|
|
begin
|
|
{ AStream := TMemoryStream.Create;
|
|
AROStream := TROStream.Create(AStream, False);
|
|
try
|
|
DataTable.FieldByName(fld_ArticulosIMAGEN).SaveToStream(AROStream);
|
|
Result := (AROStream.Size > 0);
|
|
finally
|
|
AROStream := NIL;
|
|
FreeAndNIL(AStream);
|
|
end;}
|
|
end;
|
|
|
|
procedure TBizArticulo.IniciarValoresArticuloNuevo;
|
|
begin
|
|
ID_EMPRESA := dmUsuarios.IDEmpresaActual;
|
|
PRECIO_PORTE := 0;
|
|
PRECIO_COSTE := 0;
|
|
DESCUENTO := 0;
|
|
PRECIO_NETO := 0;
|
|
COMISIONABLE := 1;
|
|
USUARIO := dmUsuarios.LoginInfo.Usuario;
|
|
end;
|
|
|
|
procedure TBizArticulo.OnNewRecord(Sender: TDADataTable);
|
|
begin
|
|
inherited;
|
|
ID := GetRecNo; // -1, -2, -3...
|
|
INVENTARIABLE := 1;
|
|
IniciarValoresArticuloNuevo;
|
|
end;
|
|
|
|
procedure TBizArticulo.QuitarImagen;
|
|
begin
|
|
{ DataTable.Edit;
|
|
DataTable.Fields[idx_ArticulosIMAGEN].Clear;
|
|
DataTable.Post;}
|
|
end;
|
|
|
|
procedure TBizArticulo.SalvarImagen(const AFileName: String);
|
|
begin
|
|
// DataTable.FieldByName(fld_ArticulosIMAGEN).SaveToFile(AFileName);
|
|
end;
|
|
|
|
initialization
|
|
RegisterDataTableRules(BIZ_CLIENT_ARTICULO, TBizArticulo);
|
|
|
|
finalization
|
|
|
|
end.
|
|
|