857 lines
23 KiB
Plaintext
857 lines
23 KiB
Plaintext
|
object dmContactos: TdmContactos
|
||
|
|
OldCreateOrder = True
|
||
|
|
OnCreate = DAClientDataModuleCreate
|
||
|
|
RemoteService = RORemoteService
|
||
|
|
Adapter = DABINAdapter
|
||
|
|
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||
|
|
SchemaCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtString
|
||
|
|
end>
|
||
|
|
Left = 634
|
||
|
|
Top = 242
|
||
|
|
Height = 498
|
||
|
|
Width = 480
|
||
|
|
object RORemoteService: TRORemoteService
|
||
|
|
ServiceName = 'srvContactos'
|
||
|
|
Message = dmBase.ROMessage
|
||
|
|
Channel = dmBase.ROChannel
|
||
|
|
Left = 48
|
||
|
|
Top = 44
|
||
|
|
end
|
||
|
|
object tbl_Categorias: TDACDSDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'CODIGO'
|
||
|
|
DataType = datAutoInc
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
GeneratorName = 'GEN_CATEGORIAS'
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'C'#243'd. categor'#237'a'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'CODIGOCATEGORIA_GEN'
|
||
|
|
InPrimaryKey = True
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DESCRIPCION'
|
||
|
|
DataType = datString
|
||
|
|
Size = 100
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Descripci'#243'n'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'DESCRIPCION'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end>
|
||
|
|
Params = <>
|
||
|
|
MasterMappingMode = mmDataRequest
|
||
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||
|
|
SchemaCall.MethodName = 'GetDatasetSchema'
|
||
|
|
SchemaCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'aDatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CATEGORIAS'
|
||
|
|
end>
|
||
|
|
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||
|
|
DataRequestCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CATEGORIAS'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Params'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtUserDefined
|
||
|
|
UserClassName = 'TDADatasetParamArray'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'UserFilter'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = ''
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'IncludeSchema'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtBoolean
|
||
|
|
Value = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'MaxRecords'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtInteger
|
||
|
|
Value = -1
|
||
|
|
end>
|
||
|
|
DataUpdateCall.MethodName = 'UpdateData'
|
||
|
|
DataUpdateCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Delta'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtBinary
|
||
|
|
end>
|
||
|
|
ScriptCall.MethodName = 'GetDatasetScripts'
|
||
|
|
ScriptCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtString
|
||
|
|
Value = ''
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetNames'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CATEGORIAS'
|
||
|
|
end>
|
||
|
|
ReadOnly = False
|
||
|
|
RemoteService = RORemoteService
|
||
|
|
Adapter = DABINAdapter
|
||
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||
|
|
LogicalName = 'CATEGORIAS'
|
||
|
|
IndexDefs = <>
|
||
|
|
Left = 224
|
||
|
|
Top = 208
|
||
|
|
end
|
||
|
|
object ds_Categorias: TDADataSource
|
||
|
|
DataTable = tbl_Categorias
|
||
|
|
Left = 368
|
||
|
|
Top = 208
|
||
|
|
end
|
||
|
|
object tbl_Contactos: TDACDSDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'CODIGOEMPRESA'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'C'#243'd. empresa'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'CODIGOEMPRESA'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CODIGO'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'C'#243'd. contacto'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
ServerAutoRefresh = True
|
||
|
|
InPrimaryKey = True
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FECHAALTA'
|
||
|
|
DataType = datDateTime
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Fecha de alta'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'FECHAALTA'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'USUARIO'
|
||
|
|
DataType = datString
|
||
|
|
Size = 100
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Usuario de alta'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'USUARIO'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'NIFCIF'
|
||
|
|
DataType = datString
|
||
|
|
Size = 10
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'NIF/CIF'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'NIFCIF'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'NOMBRE'
|
||
|
|
DataType = datString
|
||
|
|
Size = 100
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Nombre'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'NOMBRE'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CALLE'
|
||
|
|
DataType = datString
|
||
|
|
Size = 150
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Calle'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'CALLE'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'PROVINCIA'
|
||
|
|
DataType = datString
|
||
|
|
Size = 30
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Provincia'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'PROVINCIA'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CODIGOPOSTAL'
|
||
|
|
DataType = datString
|
||
|
|
Size = 5
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'C'#243'd. postal'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'CODIGOPOSTAL'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'POBLACION'
|
||
|
|
DataType = datString
|
||
|
|
Size = 40
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Poblaci'#243'n'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'POBLACION'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'TELEFONO1'
|
||
|
|
DataType = datString
|
||
|
|
Size = 30
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Tlf. trabajo'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'TELEFONOTRABAJO'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'TELEFONO2'
|
||
|
|
DataType = datString
|
||
|
|
Size = 30
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Tlf. particular'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'TELEFONOPARTICULAR'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'MOVIL'
|
||
|
|
DataType = datString
|
||
|
|
Size = 30
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'M'#243'vil'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'MOVIL'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FAX'
|
||
|
|
DataType = datString
|
||
|
|
Size = 30
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'N'#250'mero de fax'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'FAX'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CORREO1'
|
||
|
|
DataType = datString
|
||
|
|
Size = 60
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'E-mail'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'CORREO1'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CORREO2'
|
||
|
|
DataType = datString
|
||
|
|
Size = 60
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'E-mail'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'CORREO2'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'PAGINAWEB'
|
||
|
|
DataType = datString
|
||
|
|
Size = 100
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'P'#225'gina web'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'PAGINAWEB'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'PUESTO'
|
||
|
|
DataType = datString
|
||
|
|
Size = 100
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'TRABAJO'
|
||
|
|
DataType = datString
|
||
|
|
Size = 300
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DATOSFACTURACION'
|
||
|
|
DataType = datString
|
||
|
|
Size = 2000
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DATOSBANCARIOS'
|
||
|
|
DataType = datString
|
||
|
|
Size = 2000
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'LISTACATEGORIAS'
|
||
|
|
DataType = datString
|
||
|
|
Size = 1000
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
LogChanges = False
|
||
|
|
DisplayWidth = 0
|
||
|
|
ReadOnly = True
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end>
|
||
|
|
Params = <>
|
||
|
|
MasterMappingMode = mmDataRequest
|
||
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||
|
|
SchemaCall.MethodName = 'GetDatasetSchema'
|
||
|
|
SchemaCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'aDatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CONTACTOS'
|
||
|
|
end>
|
||
|
|
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||
|
|
DataRequestCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CONTACTOS'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Params'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtUserDefined
|
||
|
|
UserClassName = 'TDADatasetParamArray'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'UserFilter'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = ''
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'IncludeSchema'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtBoolean
|
||
|
|
Value = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'MaxRecords'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtInteger
|
||
|
|
Value = -1
|
||
|
|
end>
|
||
|
|
DataUpdateCall.MethodName = 'UpdateData'
|
||
|
|
DataUpdateCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Delta'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtBinary
|
||
|
|
end>
|
||
|
|
ScriptCall.MethodName = 'GetDatasetScripts'
|
||
|
|
ScriptCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtString
|
||
|
|
Value = ''
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetNames'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CONTACTOS'
|
||
|
|
end>
|
||
|
|
ReadOnly = False
|
||
|
|
RemoteService = RORemoteService
|
||
|
|
Adapter = DABINAdapter
|
||
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||
|
|
LogicalName = 'CONTACTOS'
|
||
|
|
IndexDefs = <>
|
||
|
|
Left = 224
|
||
|
|
Top = 48
|
||
|
|
end
|
||
|
|
object ds_Contactos: TDADataSource
|
||
|
|
DataTable = tbl_Contactos
|
||
|
|
Left = 368
|
||
|
|
Top = 48
|
||
|
|
end
|
||
|
|
object DABINAdapter: TDABINAdapter
|
||
|
|
Left = 48
|
||
|
|
Top = 136
|
||
|
|
end
|
||
|
|
object tbl_ContactosCategorias: TDACDSDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'CODIGOCONTACTO'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'C'#243'd. contacto'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
ServerAutoRefresh = True
|
||
|
|
DictionaryEntry = 'CODIGOCONTACTO'
|
||
|
|
InPrimaryKey = True
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CODIGOCATEGORIA'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'C'#243'd. categor'#237'a'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'CODIGOCATEGORIA'
|
||
|
|
InPrimaryKey = True
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DESCRIPCION'
|
||
|
|
DataType = datString
|
||
|
|
Size = 100
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Descripci'#243'n'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'DESCRIPCION'
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end>
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
Name = 'CODIGOCONTACTO'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Value = ''
|
||
|
|
ParamType = daptInput
|
||
|
|
end>
|
||
|
|
MasterMappingMode = mmParams
|
||
|
|
MasterParamsMappings.Strings = (
|
||
|
|
'CODIGOCONTACTO=CODIGO')
|
||
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||
|
|
SchemaCall.MethodName = 'GetDatasetSchema'
|
||
|
|
SchemaCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'aDatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CONTACTOSCATEGORIAS'
|
||
|
|
end>
|
||
|
|
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||
|
|
DataRequestCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CONTACTOSCATEGORIAS'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Params'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtUserDefined
|
||
|
|
UserClassName = 'TDADatasetParamArray'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'UserFilter'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = ''
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'IncludeSchema'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtBoolean
|
||
|
|
Value = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'MaxRecords'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtInteger
|
||
|
|
Value = -1
|
||
|
|
end>
|
||
|
|
DataUpdateCall.MethodName = 'UpdateData'
|
||
|
|
DataUpdateCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Delta'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtBinary
|
||
|
|
end>
|
||
|
|
ScriptCall.MethodName = 'GetDatasetScripts'
|
||
|
|
ScriptCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtString
|
||
|
|
Value = ''
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetNames'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CONTACTOSCATEGORIAS'
|
||
|
|
end>
|
||
|
|
ReadOnly = False
|
||
|
|
RemoteService = RORemoteService
|
||
|
|
Adapter = DABINAdapter
|
||
|
|
MasterSource = ds_Contactos
|
||
|
|
MasterFields = 'CODIGO'
|
||
|
|
DetailFields = 'CODIGOCONTACTO'
|
||
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtIncludeInAllInOneFetch]
|
||
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||
|
|
LogicalName = 'CONTACTOSCATEGORIAS'
|
||
|
|
IndexDefs = <>
|
||
|
|
Left = 224
|
||
|
|
Top = 128
|
||
|
|
end
|
||
|
|
object ds_ContactosCategorias: TDADataSource
|
||
|
|
DataTable = tbl_ContactosCategorias
|
||
|
|
Left = 368
|
||
|
|
Top = 128
|
||
|
|
end
|
||
|
|
object tbl_ContactosAsociados: TDACDSDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'CODIGOCONTACTO'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'C'#243'd. contacto'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
ServerAutoRefresh = True
|
||
|
|
DictionaryEntry = 'CODIGOCONTACTO'
|
||
|
|
InPrimaryKey = True
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CODIGOASOCIADO'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'C'#243'd. contacto'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
DictionaryEntry = 'CODIGOCONTACTO'
|
||
|
|
InPrimaryKey = True
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'NOMBRE'
|
||
|
|
DataType = datString
|
||
|
|
Size = 100
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
DisplayLabel = 'Nombre'
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end>
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
Name = 'CODIGOCONTACTO'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Value = ''
|
||
|
|
ParamType = daptInput
|
||
|
|
end>
|
||
|
|
MasterMappingMode = mmParams
|
||
|
|
MasterParamsMappings.Strings = (
|
||
|
|
'CODIGOCONTACTO=CODIGO')
|
||
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
||
|
|
SchemaCall.MethodName = 'GetDatasetSchema'
|
||
|
|
SchemaCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'aDatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CONTACTOSASOCIADOS'
|
||
|
|
end>
|
||
|
|
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||
|
|
DataRequestCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CONTACTOSASOCIADOS'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Params'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtUserDefined
|
||
|
|
UserClassName = 'TDADatasetParamArray'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'UserFilter'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = ''
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'IncludeSchema'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtBoolean
|
||
|
|
Value = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'MaxRecords'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtInteger
|
||
|
|
Value = -1
|
||
|
|
end>
|
||
|
|
DataUpdateCall.MethodName = 'UpdateData'
|
||
|
|
DataUpdateCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'Delta'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtBinary
|
||
|
|
end>
|
||
|
|
ScriptCall.MethodName = 'GetDatasetScripts'
|
||
|
|
ScriptCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtString
|
||
|
|
Value = ''
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetNames'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'CONTACTOSASOCIADOS'
|
||
|
|
end>
|
||
|
|
ReadOnly = False
|
||
|
|
RemoteService = RORemoteService
|
||
|
|
Adapter = DABINAdapter
|
||
|
|
MasterSource = ds_Contactos
|
||
|
|
MasterFields = 'CODIGO'
|
||
|
|
DetailFields = 'CODIGOCONTACTO'
|
||
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtIncludeInAllInOneFetch]
|
||
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||
|
|
LogicalName = 'CONTACTOSASOCIADOS'
|
||
|
|
IndexDefs = <>
|
||
|
|
Left = 224
|
||
|
|
Top = 288
|
||
|
|
end
|
||
|
|
object ds_ContactosAsociados: TDADataSource
|
||
|
|
DataTable = tbl_ContactosAsociados
|
||
|
|
Left = 376
|
||
|
|
Top = 288
|
||
|
|
end
|
||
|
|
end
|