Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
roberto 2007-12-01 12:34:43 +00:00
parent fb8d83deea
commit 63254c022a
2 changed files with 176 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

116
Source/ApplicationBase/Ejercicios/Data/uDataModuleEjercicios.dfm Normal file
View File

@ -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

60
Source/ApplicationBase/Ejercicios/Data/uDataModuleEjercicios.pas Normal file
View File

@ -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.