AlonsoYSal_FactuGES2/Source/ApplicationBase/Ejercicios/Data/uDataModuleEjercicios.dfm
2019-11-18 10:36:42 +00:00

117 lines
3.6 KiB
Plaintext

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