inherited DataModuleContactos: TDataModuleContactos OnCreate = DAClientDataModuleCreate OnDestroy = DataModuleDestroy Height = 306 Width = 595 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvContactos' Left = 40 Top = 16 end object rda_Contactos: TDARemoteDataAdapter DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService Left = 43 Top = 143 end object Bin2DataStreamer: TDABin2DataStreamer Left = 40 Top = 72 end object tbl_Contactos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONTACTOS_ID' ServerAutoRefresh = True DictionaryEntry = 'Contactos_ID' InPrimaryKey = True end item Name = 'ID_CATEGORIA' DataType = datInteger DisplayLabel = 'Contactos_ID_CATEGORIA' DictionaryEntry = 'Contactos_ID_CATEGORIA' end item Name = 'NIF_CIF' DataType = datString Size = 15 DisplayLabel = 'NIF/CIF' DictionaryEntry = 'Contactos_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 255 DisplayLabel = 'Nombre' DictionaryEntry = 'Contactos_NOMBRE' end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 DisplayLabel = 'Persona de contacto' DictionaryEntry = 'Contactos_PERSONA_CONTACTO' end item Name = 'CALLE' DataType = datString Size = 255 DisplayLabel = 'Direcci'#243'n' DictionaryEntry = 'Contactos_CALLE' end item Name = 'POBLACION' DataType = datString Size = 255 DisplayLabel = 'Poblaci'#243'n' DictionaryEntry = 'Contactos_POBLACION' end item Name = 'PROVINCIA' DataType = datString Size = 255 DisplayLabel = 'Provincia' DictionaryEntry = 'Contactos_PROVINCIA' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 DisplayLabel = 'C'#243'digo postal' DictionaryEntry = 'Contactos_CODIGO_POSTAL' end item Name = 'TELEFONO_1' DataType = datString Size = 25 DisplayLabel = 'Tlf. trabajo' DictionaryEntry = 'Contactos_TELEFONO_1' end item Name = 'TELEFONO_2' DataType = datString Size = 25 DisplayLabel = 'Tlf. particular' DictionaryEntry = 'Contactos_TELEFONO_2' end item Name = 'MOVIL_1' DataType = datString Size = 25 DisplayLabel = 'M'#243'vil' DictionaryEntry = 'Contactos_MOVIL_1' end item Name = 'MOVIL_2' DataType = datString Size = 25 DictionaryEntry = 'Contactos_MOVIL_2' end item Name = 'FAX' DataType = datString Size = 25 DisplayLabel = 'Fax' DictionaryEntry = 'Contactos_FAX' end item Name = 'EMAIL_1' DataType = datString Size = 255 DisplayLabel = 'E-mail trabajo' DictionaryEntry = 'Contactos_EMAIL_1' end item Name = 'EMAIL_2' DataType = datString Size = 255 DisplayLabel = 'E-mail particular' DictionaryEntry = 'Contactos_EMAIL_2' end item Name = 'PAGINA_WEB' DataType = datString Size = 255 DisplayLabel = 'Web' DictionaryEntry = 'Contactos_PAGINA_WEB' end item Name = 'NOTAS' DataType = datMemo BlobType = dabtMemo DisplayLabel = 'Observaciones' DictionaryEntry = 'Contactos_NOTAS' end item Name = 'FECHA_ALTA' DataType = datDateTime DisplayLabel = 'Fecha de alta' DictionaryEntry = 'Contactos_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'Fecha de modificaci'#243'n' DictionaryEntry = 'Contactos_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DisplayLabel = 'Usuario' DictionaryEntry = 'Contactos_USUARIO' end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'Contactos_ID_EMPRESA' end item Name = 'REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Referencia' ServerAutoRefresh = True DictionaryEntry = 'Contactos_REFERENCIA' end item Name = 'ID_TIENDA' DataType = datInteger DisplayLabel = 'Contactos_ID_TIENDA' DictionaryEntry = 'Contactos_ID_TIENDA' end item Name = 'TIENDA' DataType = datString Size = 255 DisplayLabel = 'Contactos_TIENDA' DictionaryEntry = 'Contactos_TIENDA' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer LogicalName = 'Contactos' IndexDefs = <> Left = 176 Top = 16 end object ds_Contactos: TDADataSource DataSet = tbl_Contactos.Dataset DataTable = tbl_Contactos Left = 176 Top = 80 end object tbl_DireccionesContacto: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONTACTOS_DIR_ID' ServerAutoRefresh = True DictionaryEntry = 'DireccionesContacto_ID' InPrimaryKey = True end item Name = 'ID_CONTACTO' DataType = datInteger DictionaryEntry = 'DireccionesContacto_ID_CONTACTO' end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'CALLE' DataType = datString Size = 255 DisplayLabel = 'Calle' DictionaryEntry = 'DireccionesContacto_CALLE' end item Name = 'POBLACION' DataType = datString Size = 255 DisplayLabel = 'Poblaci'#243'n' DictionaryEntry = 'DireccionesContacto_POBLACION' end item Name = 'PROVINCIA' DataType = datString Size = 255 DisplayLabel = 'Provincia' DictionaryEntry = 'DireccionesContacto_PROVINCIA' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 DisplayLabel = 'C'#243'digo postal' DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL' end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 DisplayLabel = 'Persona de contacto' DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO' end item Name = 'NOMBRE' DataType = datString Size = 255 DisplayLabel = 'DireccionesContacto_NOMBRE' DictionaryEntry = 'DireccionesContacto_NOMBRE' end item Name = 'TELEFONO' DataType = datString Size = 25 DisplayLabel = 'Tel'#233'fono' DictionaryEntry = 'DireccionesContacto_TELEFONO' end item Name = 'MOVIL' DataType = datString Size = 25 DisplayLabel = 'M'#243'vil' DictionaryEntry = 'Contactos_MOVIL_1' end item Name = 'FAX' DataType = datString Size = 25 DisplayLabel = 'Fax' DictionaryEntry = 'Contactos_FAX' end item Name = 'EMAIL' DataType = datString Size = 255 DisplayLabel = 'E-mail' DictionaryEntry = 'DireccionesContacto_EMAIL' end item Name = 'NOTAS' DataType = datMemo DisplayLabel = 'Notas' DictionaryEntry = 'DireccionesContacto_NOTAS' end item Name = 'PORTE' DataType = datFloat DisplayLabel = 'Coste del porte' DictionaryEntry = 'DireccionesContacto_PORTE' end item Name = 'FECHA_ALTA' DataType = datDateTime end item Name = 'FECHA_MODIFICACION' DataType = datDateTime end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer MasterSource = ds_Contactos MasterFields = 'ID' DetailFields = 'ID_CONTACTO' LogicalName = 'DireccionesContacto' IndexDefs = <> Left = 448 Top = 16 end object ds_DireccionesContacto: TDADataSource DataSet = tbl_DireccionesContacto.Dataset DataTable = tbl_DireccionesContacto Left = 448 Top = 80 end object tbl_DatosBancarios: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID' ServerAutoRefresh = True DictionaryEntry = 'DatosBancarios_ID' InPrimaryKey = True end item Name = 'ID_CONTACTO' DataType = datInteger DictionaryEntry = 'DatosBancarios_ID_CONTACTO' end item Name = 'TITULAR' DataType = datString Size = 255 DisplayLabel = 'Titular' DictionaryEntry = 'DatosBancarios_TITULAR' end item Name = 'ENTIDAD' DataType = datString Size = 15 DisplayLabel = 'C'#243'digo de entidad' DictionaryEntry = 'DatosBancarios_ENTIDAD' end item Name = 'SUCURSAL' DataType = datString Size = 15 DisplayLabel = 'C'#243'digo de sucursal' DictionaryEntry = 'DatosBancarios_SUCURSAL' end item Name = 'DC' DataType = datString Size = 15 DisplayLabel = 'D'#237'gito de control' DictionaryEntry = 'DatosBancarios_DC' end item Name = 'CUENTA' DataType = datString Size = 15 DisplayLabel = 'C'#243'digo de cuenta' DictionaryEntry = 'DatosBancarios_CUENTA' end item Name = 'FECHA_ALTA' DataType = datDateTime end item Name = 'FECHA_MODIFICACION' DataType = datDateTime end item Name = 'IBAN' DataType = datString Size = 255 end item Name = 'SWIFT' DataType = datString Size = 255 end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer MasterSource = ds_Contactos MasterFields = 'ID' DetailFields = 'ID_CONTACTO' LogicalName = 'DatosBancarios' IndexDefs = <> Left = 176 Top = 168 end object ds_DatosBancarios: TDADataSource DataSet = tbl_DatosBancarios.Dataset DataTable = tbl_DatosBancarios Left = 176 Top = 232 end object tbl_PersonalContacto: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID' Required = True DisplayLabel = 'PersonalContacto_ID' DictionaryEntry = 'PersonalContacto_ID' InPrimaryKey = True end item Name = 'ID_CONTACTO' DataType = datInteger DisplayLabel = 'PersonalContacto_ID_CONTACTO' DictionaryEntry = 'PersonalContacto_ID_CONTACTO' end item Name = 'NOMBRE' DataType = datString Size = 255 DisplayLabel = 'Nombre' DictionaryEntry = 'PersonalContacto_NOMBRE' end item Name = 'PUESTO' DataType = datString Size = 255 DisplayLabel = 'Puesto' DictionaryEntry = 'PersonalContacto_PUESTO' end item Name = 'TELEFONO' DataType = datString Size = 25 DisplayLabel = 'Tel'#195#169'fono' DictionaryEntry = 'PersonalContacto_TELEFONO' end item Name = 'MOVIL' DataType = datString Size = 25 DisplayLabel = 'M'#195#179'vil' DictionaryEntry = 'PersonalContacto_MOVIL' end item Name = 'FAX' DataType = datString Size = 25 DisplayLabel = 'Fax' DictionaryEntry = 'PersonalContacto_FAX' end item Name = 'EMAIL' DataType = datString Size = 255 DisplayLabel = 'E-mail' DictionaryEntry = 'PersonalContacto_EMAIL' end item Name = 'FECHA_ALTA' DataType = datDateTime DisplayLabel = 'PersonalContacto_FECHA_ALTA' DictionaryEntry = 'PersonalContacto_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'PersonalContacto_FECHA_MODIFICACION' DictionaryEntry = 'PersonalContacto_FECHA_MODIFICACION' end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos MasterSource = ds_Contactos MasterFields = 'ID' DetailFields = 'ID_CONTACTO' LogicalName = 'PersonalContacto' IndexDefs = <> Left = 296 Top = 16 end object ds_PersonalContacto: TDADataSource DataSet = tbl_PersonalContacto.Dataset DataTable = tbl_PersonalContacto Left = 296 Top = 80 end end