FactuGES2/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas

unit uSubCuentasController;

interface


uses
  Classes, SysUtils, uDADataTable, uControllerBase,
   uBizSubCuentas, uIDataModuleContabilidad;
type
  ISubCuentasController = interface(IObservador)
  ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
    function BuscarTodos: IBizSubCuenta;
    function Buscar(ID: Integer): IBizSubCuenta;
    procedure VerTodos(ASubCuentas: IBizSubCuenta);
    procedure Ver(ASubCuenta: IBizSubCuenta);
    procedure Anadir(ASubCuenta : IBizSubCuenta);
    function Eliminar(ASubCuenta : IBizSubCuenta): Boolean; 
    function Guardar(ASubCuenta : IBizSubCuenta): Boolean;
    procedure DescartarCambios(ASubCuenta : IBizSubCuenta);
    function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean;
    function DarListaSubCuentas: TStringList;
  end;

  TSubCuentasController = class(TObservador, ISubCuentasController)
  protected
    FDataModule : IDataModuleContabilidad;

    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
    function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;

    function ValidarSubCuenta(ASubCuenta: IBizSubCuenta): Boolean;
    procedure AsignarDataModule;
    procedure FiltrarSubCuenta(ASubCuenta: IBizSubCuenta);

  public
    constructor Create; override;
    destructor Destroy; override;

    function Eliminar(ASubCuenta : IBizSubCuenta): Boolean;
    function Guardar(ASubCuenta : IBizSubCuenta): Boolean; virtual;
    procedure DescartarCambios(ASubCuenta : IBizSubCuenta); virtual;
    procedure Anadir(ASubCuenta : IBizSubCuenta);
    function BuscarTodos: IBizSubCuenta;
    function Buscar(ID: Integer): IBizSubCuenta;
    procedure VerTodos(ASubCuentas: IBizSubCuenta);
    procedure Ver(ASubCuenta: IBizSubCuenta);
    function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean;
    function DarListaSubCuentas: TStringList;
  end;

implementation

uses
  cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
  uIEditorSubCuentas, uIEditorSubCuenta, uDataModuleContabilidad,
  uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
  uDateUtils, uROTypes, DateUtils, Controls, Windows;

{ TSubCuentasController }

procedure TSubCuentasController.Anadir(ASubCuenta: IBizSubCuenta);
begin
  ASubCuenta.Insert;
end;

procedure TSubCuentasController.AsignarDataModule;
begin
  FDataModule := TDataModuleContabilidad.Create(Nil);
end;

function TSubCuentasController.Buscar(ID: Integer): IBizSubCuenta;
var
  Condicion: TDAWhereExpression;
begin
  ShowHourglassCursor;
  try
    Result := BuscarTodos;

    with Result.DataTable.DynamicWhere do
    begin
      // (ID = :ID)
      Condicion := NewBinaryExpression(NewField('', fld_SubCuentasID), NewConstant(ID, datInteger), dboEqual);

      if IsEmpty then
         Expression := Condicion
      else
         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
    end;

  finally
    HideHourglassCursor;
  end;
end;

function TSubCuentasController.BuscarTodos: IBizSubCuenta;
begin
  Result := FDataModule.GetSubCuentaItems;
  FiltrarSubCuenta(Result);
end;

constructor TSubCuentasController.Create;
begin
  inherited;
  AsignarDataModule;
end;

function TSubCuentasController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
begin
  Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
end;

function TSubCuentasController.DarListaSubCuentas: TStringList;
var
  ASubCuentas: IBizSubCuenta;
begin
  ASubCuentas := BuscarTodos;
  ASubCuentas.DataTable.Active := True;
  Result := TStringList.Create;
  try
    with Result do
    begin
      ASubCuentas.DataTable.First;
      while not ASubCuentas.DataTable.EOF do
      begin
        Add(ASubCuentas.DESCRIPCION);
        ASubCuentas.DataTable.Next;
      end;
    end;
  finally
    ASubCuentas := NIL;
  end;
end;

procedure TSubCuentasController.DescartarCambios(ASubCuenta: IBizSubCuenta);
begin
  if not Assigned(ASubCuenta) then
    raise Exception.Create ('SubCuenta no asignado');

  ShowHourglassCursor;
  try
    if (ASubCuenta.State in dsEditModes) then
      ASubCuenta.Cancel;

    ASubCuenta.DataTable.CancelUpdates;
  finally
    HideHourglassCursor;
  end;
end;

destructor TSubCuentasController.Destroy;
begin
  FDataModule:= NIL;
  inherited;
end;

function TSubCuentasController.ValidarSubCuenta(ASubCuenta: IBizSubCuenta): Boolean;
begin
  Result := False;

  if not Assigned(ASubCuenta) then
    raise Exception.Create ('SubCuenta no asignado');

  if (ASubCuenta.DataTable.State in dsEditModes) then
    ASubCuenta.DataTable.Post;

  if Length(ASubCuenta.DESCRIPCION) = 0 then
    raise Exception.Create('Debe indicar un nombre para este SubCuenta.');

  Result := True;
end;

procedure TSubCuentasController.Ver(ASubCuenta: IBizSubCuenta);
var
  AEditor : IEditorSubCuenta;
begin
  AEditor := NIL;
  ShowHourglassCursor;
  try
    CreateEditor('EditorSubCuenta', IEditorSubCuenta, AEditor);
    if Assigned(AEditor) then
       with AEditor do
       begin
         Controller := Self; //OJO ORDEN MUY IMPORTANTE
         SubCuenta := ASubCuenta;
         ShowModal;
         Release;
       end;
  finally
    AEditor := NIL;
    HideHourglassCursor;
  end;
end;

procedure TSubCuentasController.VerTodos(ASubCuentas: IBizSubCuenta);
var
  AEditor : IEditorSubCuentas;
begin
  AEditor := NIL;
  ShowHourglassCursor;
  try
    CreateEditor('EditorSubCuentas', IEditorSubCuentas, AEditor);
    if Assigned(AEditor) then
       with AEditor do
       begin
         Controller := Self; //OJO ORDEN MUY IMPORTANTE
         SubCuentas := ASubCuentas;
         ShowEmbedded;
       end;
  finally
    AEditor := NIL;
    HideHourglassCursor;
  end;
end;

function TSubCuentasController.Eliminar(ASubCuenta: IBizSubCuenta): Boolean;
begin
  Result := False;

  if not Assigned(ASubCuenta) then
    raise Exception.Create ('SubCuenta no asignado');

  ShowHourglassCursor;
  try
    if (ASubCuenta.State in dsEditModes) then
      ASubCuenta.Cancel;

    ASubCuenta.Delete;
    ASubCuenta.DataTable.ApplyUpdates;
    HideHourglassCursor;
    Result := True;
  finally
    HideHourglassCursor;
  end;
end;

procedure TSubCuentasController.FiltrarSubCuenta(ASubCuenta: IBizSubCuenta);
var
  Condicion: TDAWhereExpression;
begin
  if ASubCuenta.DataTable.Active then
    ASubCuenta.DataTable.Active := False;

  // Filtrar los SubCuentas actuales por SubCuenta activo
  with ASubCuenta.DataTable.DynamicWhere do
  begin
    // (ID_SubCuenta = ID)
    Condicion := NewBinaryExpression(NewField('', fld_SubCuentasID_Ejercicio), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual);

    if IsEmpty then
       Expression := Condicion
    else
       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
  end;
end;

procedure TSubCuentasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
begin
  inherited;
//
end;

function TSubCuentasController.Guardar(ASubCuenta: IBizSubCuenta): Boolean;
begin
  Result := False;

  if ValidarSubCuenta(ASubCuenta) then
  begin
    ShowHourglassCursor;
    try
      ASubCuenta.DataTable.ApplyUpdates;
      Result := True;
    finally
      HideHourglassCursor;
    end;
  end;
end;

function TSubCuentasController.Localizar(ASubCuentas: IBizSubCuenta; ADescripcion: String): Boolean;
begin
  Result := True;
  ShowHourglassCursor;
  try
    with ASubCuentas.DataTable do
    begin
      DisableControls;
      First;
      if not Locate(fld_SubCuentasDESCRIPCION, ADescripcion, []) then
         Result := False;
      EnableControls;   
    end;
  finally
    HideHourglassCursor;
  end;
end;

end.