git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@20 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/ApplicationBase/Ejercicios/Data/uDataModuleEjercicios.dfm

@@ -0,0 +1,116 @@
+inherited DataModuleEjercicios: TDataModuleEjercicios
+  OnCreate = DAClientDataModuleCreate
+  Height = 207
+  Width = 483
+  object RORemoteService: TRORemoteService
+    Message = dmConexion.ROMessage
+    Channel = dmConexion.ROChannel
+    ServiceName = 'srvEjercicios'
+    Left = 48
+    Top = 24
+  end
+  object Bin2DataStreamer: TDABin2DataStreamer
+    Left = 48
+    Top = 104
+  end
+  object rda_Ejercicios: TDARemoteDataAdapter
+    GetSchemaCall.RemoteService = RORemoteService
+    GetDataCall.RemoteService = RORemoteService
+    UpdateDataCall.RemoteService = RORemoteService
+    GetScriptsCall.RemoteService = RORemoteService
+    RemoteService = RORemoteService
+    DataStreamer = Bin2DataStreamer
+    Left = 176
+    Top = 24
+  end
+  object tbl_Ejercicios: TDAMemDataTable
+    RemoteUpdatesOptions = []
+    Fields = <
+      item
+        Name = 'ID'
+        DataType = datAutoInc
+        GeneratorName = 'GEN_CONT_EJERCICIOS_ID'
+        Required = True
+        ServerAutoRefresh = True
+        DictionaryEntry = 'Ejercicios_ID'
+        InPrimaryKey = True
+      end
+      item
+        Name = 'ID_EMPRESA'
+        DataType = datInteger
+        DisplayLabel = 'Ejercicios_ID_EMPRESA'
+        DictionaryEntry = 'Ejercicios_ID_EMPRESA'
+      end
+      item
+        Name = 'NOMBRE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Nombre'
+        DictionaryEntry = 'Ejercicios_NOMBRE'
+      end
+      item
+        Name = 'FECHA_INICIO'
+        DataType = datDateTime
+        DisplayLabel = 'Fecha inicio'
+        DictionaryEntry = 'Ejercicios_FECHA_INICIO'
+      end
+      item
+        Name = 'FECHA_FIN'
+        DataType = datDateTime
+        DisplayLabel = 'Fecha fin'
+        DictionaryEntry = 'Ejercicios_FECHA_FIN'
+      end
+      item
+        Name = 'ESTADO'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Estado'
+        DictionaryEntry = 'Ejercicios_ESTADO'
+      end
+      item
+        Name = 'LONG_SUB_CUENTA'
+        DataType = datSmallInt
+        DisplayLabel = 'Long. Subcuenta'
+        DictionaryEntry = 'Ejercicios_LONG_SUB_CUENTA'
+      end
+      item
+        Name = 'ID_ASIENTO_APERTURA'
+        DataType = datInteger
+        DisplayLabel = 'Ejercicios_ID_ASIENTO_APERTURA'
+        DictionaryEntry = 'Ejercicios_ID_ASIENTO_APERTURA'
+      end
+      item
+        Name = 'ID_ASIENTO_PERYGAN'
+        DataType = datInteger
+        DisplayLabel = 'Ejercicios_ID_ASIENTO_PERYGAN'
+        DictionaryEntry = 'Ejercicios_ID_ASIENTO_PERYGAN'
+      end
+      item
+        Name = 'ID_ASIENTO_CIERRE'
+        DataType = datInteger
+        DisplayLabel = 'Ejercicios_ID_ASIENTO_CIERRE'
+        DictionaryEntry = 'Ejercicios_ID_ASIENTO_CIERRE'
+      end
+      item
+        Name = 'ACTIVO'
+        DataType = datSmallInt
+        DisplayLabel = 'Ejercicios_ACTIVO'
+        DictionaryEntry = 'Ejercicios_ACTIVO'
+      end>
+    Params = <>
+    StreamingOptions = [soDisableEventsWhileStreaming]
+    RemoteDataAdapter = rda_Ejercicios
+    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+    LogicalName = 'Ejercicios'
+    IndexDefs = <>
+    Left = 296
+    Top = 88
+  end
+  object ds_Ejercicios: TDADataSource
+    DataSet = tbl_Ejercicios.Dataset
+    DataTable = tbl_Ejercicios
+    Left = 296
+    Top = 32
+  end
+end

Source/ApplicationBase/Ejercicios/Data/uDataModuleEjercicios.pas

@@ -0,0 +1,60 @@
+unit uDataModuleEjercicios;
+
+interface
+
+uses
+  SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
+  uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
+  uRORemoteService, uROClient, uROBinMessage,
+  uDADesigntimeCall,           uControllerBase,
+   uBizEjercicios,  uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest,
+  uDABin2DataStreamer, uDAMemDataTable, uIDataModuleEjercicios, uDataModuleBase;
+type
+  TDataModuleEjercicios = class(TDataModuleBase, IDataModuleEjercicios)
+    RORemoteService: TRORemoteService;
+    Bin2DataStreamer: TDABin2DataStreamer;
+    rda_Ejercicios: TDARemoteDataAdapter;
+    tbl_Ejercicios: TDAMemDataTable;
+    ds_Ejercicios: TDADataSource;
+    procedure DAClientDataModuleCreate(Sender: TObject);
+  public
+    function GetItems: IBizEjercicio;
+    function GenerarPGC(const IdEjercicioCopia: Integer; const IdEjercicio: Integer): Boolean;
+  end;
+
+implementation
+
+{$R *.DFM}
+
+uses
+  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
+  schEjerciciosClient_Intf;
+
+{ TdmAlmacens }
+
+procedure TDataModuleEjercicios.DAClientDataModuleCreate(Sender: TObject);
+begin
+  RORemoteService.Channel := dmConexion.Channel;
+  RORemoteService.Message := dmConexion.Message;
+end;
+
+function TDataModuleEjercicios.GenerarPGC(const IdEjercicioCopia, IdEjercicio: Integer): Boolean;
+begin
+  Result := (RORemoteService as IsrvEjercicios).GenerarPGC(IdEjercicioCopia, IdEjercicio);
+end;
+
+function TDataModuleEjercicios.GetItems: IBizEjercicio;
+var
+  AContabilidadEjercicio : TDAMemDataTable;
+begin
+  ShowHourglassCursor;
+  try
+    AContabilidadEjercicio := CloneDataTable(tbl_Ejercicios);
+    AContabilidadEjercicio.BusinessRulesID := BIZ_CLIENT_EJERCICIO;
+    Result := (AContabilidadEjercicio as IBizEjercicio);
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+end.