2007-11-16 20:58:56 +00:00
|
|
|
inherited DataModuleReferencias: TDataModuleReferencias
|
|
|
|
|
OnCreate = DAClientDataModuleCreate
|
|
|
|
|
Height = 245
|
|
|
|
|
Width = 455
|
|
|
|
|
object RORemoteService: TRORemoteService
|
2008-02-07 10:13:37 +00:00
|
|
|
Message = dmConexion.ROMessage
|
|
|
|
|
Channel = dmConexion.ROChannel
|
2007-11-16 20:58:56 +00:00
|
|
|
ServiceName = 'srvReferencias'
|
|
|
|
|
Left = 48
|
|
|
|
|
Top = 24
|
|
|
|
|
end
|
2008-02-07 10:13:37 +00:00
|
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
|
|
|
|
Left = 48
|
|
|
|
|
Top = 84
|
|
|
|
|
end
|
|
|
|
|
object rda_Referencias: TDARemoteDataAdapter
|
|
|
|
|
GetSchemaCall.RemoteService = RORemoteService
|
|
|
|
|
GetDataCall.RemoteService = RORemoteService
|
|
|
|
|
UpdateDataCall.RemoteService = RORemoteService
|
|
|
|
|
GetScriptsCall.RemoteService = RORemoteService
|
|
|
|
|
RemoteService = RORemoteService
|
|
|
|
|
DataStreamer = Bin2DataStreamer
|
|
|
|
|
Left = 51
|
|
|
|
|
Top = 151
|
|
|
|
|
end
|
|
|
|
|
object tbl_Referencias: TDAMemDataTable
|
2007-11-16 20:58:56 +00:00
|
|
|
RemoteUpdatesOptions = []
|
|
|
|
|
Fields = <
|
2008-02-07 10:13:37 +00:00
|
|
|
item
|
|
|
|
|
Name = 'ID'
|
|
|
|
|
DataType = datInteger
|
|
|
|
|
GeneratorName = 'GEN_REFERENCIAS_ID'
|
|
|
|
|
Required = True
|
|
|
|
|
InPrimaryKey = True
|
|
|
|
|
end
|
|
|
|
|
item
|
|
|
|
|
Name = 'ID_EMPRESA'
|
|
|
|
|
DataType = datInteger
|
|
|
|
|
end
|
2007-11-16 20:58:56 +00:00
|
|
|
item
|
|
|
|
|
Name = 'CODIGO'
|
|
|
|
|
DataType = datString
|
|
|
|
|
Size = 50
|
2008-02-07 10:13:37 +00:00
|
|
|
Required = True
|
2007-11-16 20:58:56 +00:00
|
|
|
end
|
|
|
|
|
item
|
2008-02-07 10:13:37 +00:00
|
|
|
Name = 'VALOR'
|
2007-11-16 20:58:56 +00:00
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
2008-02-07 10:13:37 +00:00
|
|
|
Required = True
|
2007-11-16 20:58:56 +00:00
|
|
|
end
|
|
|
|
|
item
|
2008-02-07 10:13:37 +00:00
|
|
|
Name = 'DESCRIPCION'
|
2007-11-16 20:58:56 +00:00
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
|
|
|
|
end>
|
|
|
|
|
Params = <>
|
|
|
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
2008-02-07 10:13:37 +00:00
|
|
|
RemoteDataAdapter = rda_Referencias
|
2007-11-16 20:58:56 +00:00
|
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
|
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
|
|
|
LogicalName = 'Referencias'
|
|
|
|
|
IndexDefs = <>
|
|
|
|
|
Left = 256
|
2008-02-07 10:13:37 +00:00
|
|
|
Top = 120
|
2007-11-16 20:58:56 +00:00
|
|
|
end
|
|
|
|
|
object ds_Referencias: TDADataSource
|
|
|
|
|
DataSet = tbl_Referencias.Dataset
|
|
|
|
|
DataTable = tbl_Referencias
|
|
|
|
|
Left = 256
|
2008-02-07 10:13:37 +00:00
|
|
|
Top = 64
|
2007-11-16 20:58:56 +00:00
|
|
|
end
|
|
|
|
|
end
|