inherited DataModuleClientes: TDataModuleClientes Height = 325 Width = 738 inherited rda_Contactos: TDARemoteDataAdapter Top = 79 end inherited Bin2DataStreamer: TDABin2DataStreamer Top = 136 end inherited ds_Contactos: TDADataSource DataSet = tbl_Contactos.Dataset end inherited ds_DireccionesContacto: TDADataSource DataSet = tbl_DireccionesContacto.Dataset end inherited ds_DatosBancarios: TDADataSource DataSet = tbl_DatosBancarios.Dataset end inherited ds_PersonalContacto: TDADataSource DataSet = tbl_PersonalContacto.Dataset end inherited tbl_ContactosDirecciones: TDAMemDataTable Left = 288 Top = 160 end inherited ds_ContactosDirecciones: TDADataSource DataSet = tbl_ContactosDirecciones.Dataset end object tbl_Clientes: 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 = 'Clientes_FECHA_ALTA' DictionaryEntry = 'Clientes_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'Clientes_FECHA_MODIFICACION' DictionaryEntry = 'Clientes_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 ServerAutoRefresh = True DictionaryEntry = 'Clientes_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 item Name = 'GRUPO_CLIENTE' DataType = datString Size = 255 DisplayLabel = 'Grupo de cliente' DictionaryEntry = 'Clientes_GRUPO_CLIENTE' end item Name = 'NOMBRE_COMERCIAL' DataType = datString Size = 255 DisplayLabel = 'Nombre comercial' DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL' end item Name = 'BLOQUEADO' DataType = datSmallInt DisplayLabel = #191'Bloqueado?' DictionaryEntry = 'Clientes_BLOQUEADO' end item Name = 'REGIMEN_IVA' DataType = datString Size = 255 DisplayLabel = 'R'#233'gimen de IVA' DictionaryEntry = 'Clientes_REGIMEN_IVA' end item Name = 'MOTIVO_BLOQUEO' DataType = datString Size = 255 DisplayLabel = 'Motivo del bloqueo' DictionaryEntry = 'Clientes_MOTIVO_BLOQUEO' end item Name = 'RECARGO_EQUIVALENCIA' DataType = datSmallInt DisplayLabel = 'Rec. equiv.' DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA' end item Name = 'ID_TIPO_IVA' DataType = datInteger DictionaryEntry = 'Clientes_ID_TIPO_IVA' end item Name = 'ID_FORMA_PAGO' DataType = datInteger DictionaryEntry = 'Clientes_ID_FORMA_PAGO' end item Name = 'TIENDA_WEB' DataType = datSmallInt DictionaryEntry = 'Clientes_TIENDA_WEB' end item Name = 'CODIGO_ASIGNADO' DataType = datString Size = 255 DisplayLabel = 'Clientes_CODIGO_ASIGNADO' DictionaryEntry = 'Clientes_CODIGO_ASIGNADO' end item Name = 'IGNORAR_CONTABILIDAD' DataType = datInteger DisplayLabel = 'Clientes_IGNORAR_CONTABILIDAD' DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD' end item Name = 'TIENE_SUBCUENTA' DataType = datInteger end item Name = 'PROCEDENCIA_CLIENTE' DataType = datString Size = 255 DisplayLabel = 'Clientes_PROCEDENCIA_CLIENTE' DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE' end item Name = 'VENCIMIENTO_FACTURAS_1' DataType = datInteger end item Name = 'VENCIMIENTO_FACTURAS_2' DataType = datInteger end item Name = 'VENCIMIENTO_FACTURAS_3' DataType = datInteger end item Name = 'LISTA_NOMBRES' DataType = datString Size = 255 DisplayLabel = 'Otros nombres' DictionaryEntry = 'Clientes_LISTA_NOMBRES' end item Name = 'LOPD' DataType = datSmallInt end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer LogicalName = 'Clientes' IndexDefs = <> Left = 360 Top = 144 end object ds_Clientes: TDADataSource DataSet = tbl_Clientes.Dataset DataTable = tbl_Clientes Left = 360 Top = 200 end object tbl_ClientesDescuentos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CLIENTES_DTOS_PROV_ID' DictionaryEntry = 'ClientesDescuentos_ID' InPrimaryKey = True end item Name = 'ID_CLIENTE' DataType = datInteger DisplayLabel = 'ClientesDescuentos_ID_CLIENTE' DictionaryEntry = 'ClientesDescuentos_ID_CLIENTE' end item Name = 'ID_PROVEEDOR' DataType = datInteger DisplayLabel = 'ClientesDescuentos_ID_PROVEEDOR' DictionaryEntry = 'ClientesDescuentos_ID_PROVEEDOR' end item Name = 'NOMBRE' DataType = datString Size = 255 DisplayLabel = 'ClientesDescuentos_NOMBRE' ServerAutoRefresh = True end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento (%)' Alignment = taRightJustify DictionaryEntry = 'ClientesDescuentos_DESCUENTO' end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer MasterSource = ds_Clientes MasterFields = 'ID' DetailFields = 'ID_CLIENTE' LogicalName = 'ClientesDescuentos' IndexDefs = <> Left = 448 Top = 168 end object ds_ClientesDescuentos: TDADataSource DataSet = tbl_ClientesDescuentos.Dataset DataTable = tbl_ClientesDescuentos Left = 448 Top = 224 end object tbl_GruposCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CLIENTES_GRUPOS_ID' Required = True DictionaryEntry = 'GruposCliente_ID' InPrimaryKey = True end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'Descripci'#243'n' DictionaryEntry = 'GruposCliente_DESCRIPCION' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer LogicalName = 'GruposCliente' IndexDefs = <> Left = 552 Top = 168 end object ds_GruposCliente: TDADataSource DataSet = tbl_GruposCliente.Dataset DataTable = tbl_GruposCliente Left = 552 Top = 224 end object tbl_SubCuentasContacto: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CONT_SUBCUENTAS_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'SubCuentasContacto_ID' InPrimaryKey = True end item Name = 'REF_SUBCUENTA' DataType = datString Size = 15 DisplayLabel = 'SubCuentasContacto_REF_SUBCUENTA' DictionaryEntry = 'SubCuentasContacto_REF_SUBCUENTA' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'SubCuentasContacto_DESCRIPCION' DictionaryEntry = 'SubCuentasContacto_DESCRIPCION' end item Name = 'ID_CUENTA' DataType = datInteger DisplayLabel = 'SubCuentasContacto_ID_CUENTA' DictionaryEntry = 'SubCuentasContacto_ID_CUENTA' end item Name = 'ID_EJERCICIO' DataType = datInteger DisplayLabel = 'SubCuentasContacto_ID_EJERCICIO' DictionaryEntry = 'SubCuentasContacto_ID_EJERCICIO' end item Name = 'ID_CONTACTO' DataType = datInteger DisplayLabel = 'SubCuentasContacto_ID_CONTACTO' DictionaryEntry = 'SubCuentasContacto_ID_CONTACTO' end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos MasterSource = ds_Clientes MasterFields = 'ID' DetailFields = 'ID_CONTACTO' LogicalName = 'SubCuentasContacto' IndexDefs = <> Left = 600 Top = 80 end object ds_SubCuentasContacto: TDADataSource DataSet = tbl_SubCuentasContacto.Dataset DataTable = tbl_SubCuentasContacto Left = 600 Top = 16 end object tbl_ProcedenciasCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_CLIENTES_PROCEDENCIAS_ID' Required = True DictionaryEntry = 'ProcedenciasCliente_ID' InPrimaryKey = True end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'ProcedenciasCliente_DESCRIPCION' DictionaryEntry = 'ProcedenciasCliente_DESCRIPCION' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LogicalName = 'ProcedenciasCliente' IndexDefs = <> Left = 648 Top = 168 end object ds_ProcedenciasCliente: TDADataSource DataSet = tbl_ProcedenciasCliente.Dataset DataTable = tbl_ProcedenciasCliente Left = 648 Top = 224 end end