object srvContactos: TsrvContactos
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  ConnectionName = 'IBX'
  ServiceSchema = schContactos
  ServiceDataStreamer = Bin2DataStreamer
  ExportedDataTables = <>
  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
  Height = 347
  Width = 444
  object schContactos: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_CONTACTOS'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_CATEGORIA'
                TableField = 'ID_CATEGORIA'
              end
              item
                DatasetField = 'NIF_CIF'
                TableField = 'NIF_CIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'PERSONA_CONTACTO'
                TableField = 'PERSONA_CONTACTO'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGO_POSTAL'
                TableField = 'CODIGO_POSTAL'
              end
              item
                DatasetField = 'TELEFONO_1'
                TableField = 'TELEFONO_1'
              end
              item
                DatasetField = 'TELEFONO_2'
                TableField = 'TELEFONO_2'
              end
              item
                DatasetField = 'MOVIL_1'
                TableField = 'MOVIL_1'
              end
              item
                DatasetField = 'MOVIL_2'
                TableField = 'MOVIL_2'
              end
              item
                DatasetField = 'FAX'
                TableField = 'FAX'
              end
              item
                DatasetField = 'EMAIL_1'
                TableField = 'EMAIL_1'
              end
              item
                DatasetField = 'EMAIL_2'
                TableField = 'EMAIL_2'
              end
              item
                DatasetField = 'PAGINA_WEB'
                TableField = 'PAGINA_WEB'
              end
              item
                DatasetField = 'NOTAS'
                TableField = 'NOTAS'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end>
          end>
        Name = 'Contactos'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTACTOS_ID'
            ServerAutoRefresh = True
            DictionaryEntry = 'Contactos_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_CATEGORIA'
            DataType = datInteger
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
            DictionaryEntry = 'Contactos_NIF_CIF'
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_NOMBRE'
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_CALLE'
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_POBLACION'
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_PROVINCIA'
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            DictionaryEntry = 'Contactos_CODIGO_POSTAL'
          end
          item
            Name = 'TELEFONO_1'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Contactos_TELEFONO_1'
          end
          item
            Name = 'TELEFONO_2'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Contactos_TELEFONO_2'
          end
          item
            Name = 'MOVIL_1'
            DataType = datString
            Size = 25
            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
            DictionaryEntry = 'Contactos_FAX'
          end
          item
            Name = 'EMAIL_1'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_EMAIL_1'
          end
          item
            Name = 'EMAIL_2'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_EMAIL_2'
          end
          item
            Name = 'PAGINA_WEB'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_PAGINA_WEB'
          end
          item
            Name = 'NOTAS'
            DataType = datMemo
            BlobType = dabtMemo
            DictionaryEntry = 'Contactos_NOTAS'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            DictionaryEntry = 'Contactos_FECHA_ALTA'
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            DictionaryEntry = 'Contactos_USUARIO'
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            ServerAutoRefresh = True
            DictionaryEntry = 'Contactos_REFERENCIA'
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_DATOS_BANCO'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_CONTACTO'
                TableField = 'ID_CONTACTO'
              end
              item
                DatasetField = 'TITULAR'
                TableField = 'TITULAR'
              end
              item
                DatasetField = 'ENTIDAD'
                TableField = 'ENTIDAD'
              end
              item
                DatasetField = 'SUCURSAL'
                TableField = 'SUCURSAL'
              end
              item
                DatasetField = 'DC'
                TableField = 'DC'
              end
              item
                DatasetField = 'CUENTA'
                TableField = 'CUENTA'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end>
          end>
        Name = 'DatosBancarios'
        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
            DictionaryEntry = 'DatosBancarios_TITULAR'
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            DictionaryEntry = 'DatosBancarios_ENTIDAD'
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            DictionaryEntry = 'DatosBancarios_SUCURSAL'
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            DictionaryEntry = 'DatosBancarios_DC'
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            DictionaryEntry = 'DatosBancarios_CUENTA'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_DIRECCIONES'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_CONTACTO'
                TableField = 'ID_CONTACTO'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGO_POSTAL'
                TableField = 'CODIGO_POSTAL'
              end
              item
                DatasetField = 'PERSONA_CONTACTO'
                TableField = 'PERSONA_CONTACTO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'TELEFONO'
                TableField = 'TELEFONO'
              end
              item
                DatasetField = 'MOVIL'
                TableField = 'MOVIL'
              end
              item
                DatasetField = 'FAX'
                TableField = 'FAX'
              end
              item
                DatasetField = 'EMAIL'
                TableField = 'EMAIL'
              end
              item
                DatasetField = 'NOTAS'
                TableField = 'NOTAS'
              end
              item
                DatasetField = 'PORTE'
                TableField = 'PORTE'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end>
          end>
        Name = 'DireccionesContacto'
        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 = 'CALLE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'DireccionesContacto_CALLE'
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            DictionaryEntry = 'DireccionesContacto_POBLACION'
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'DireccionesContacto_PROVINCIA'
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'DireccionesContacto_NOMBRE'
          end
          item
            Name = 'TELEFONO'
            DataType = datString
            Size = 25
            DictionaryEntry = 'DireccionesContacto_TELEFONO'
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Contactos_MOVIL_1'
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Contactos_FAX'
          end
          item
            Name = 'EMAIL'
            DataType = datString
            Size = 255
            DictionaryEntry = 'DireccionesContacto_EMAIL'
          end
          item
            Name = 'NOTAS'
            DataType = datMemo
            DictionaryEntry = 'DireccionesContacto_NOTAS'
          end
          item
            Name = 'PORTE'
            DataType = datFloat
            DictionaryEntry = 'DireccionesContacto_PORTE'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
          end>
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTACTOS_ID'
            Value = '2'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'CONTACTOS'
            SQL = 
              'SELECT '#10'    ID, NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA, CO' +
              'DIGO_POSTAL, '#10'    TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' +
              ' EMAIL_1, '#10'    EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' +
              'IFICACION, '#10'    USUARIO, REFERENCIA, PERSONA_CONTACTO'#10'  FROM'#10'   ' +
              ' CONTACTOS'#10'  WHERE {where}'#10'  and ID = :ID'#10#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'NIF_CIF'
                TableField = 'NIF_CIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGO_POSTAL'
                TableField = 'CODIGO_POSTAL'
              end
              item
                DatasetField = 'TELEFONO_1'
                TableField = 'TELEFONO_1'
              end
              item
                DatasetField = 'TELEFONO_2'
                TableField = 'TELEFONO_2'
              end
              item
                DatasetField = 'MOVIL_1'
                TableField = 'MOVIL_1'
              end
              item
                DatasetField = 'MOVIL_2'
                TableField = 'MOVIL_2'
              end
              item
                DatasetField = 'FAX'
                TableField = 'FAX'
              end
              item
                DatasetField = 'EMAIL_1'
                TableField = 'EMAIL_1'
              end
              item
                DatasetField = 'EMAIL_2'
                TableField = 'EMAIL_2'
              end
              item
                DatasetField = 'PAGINA_WEB'
                TableField = 'PAGINA_WEB'
              end
              item
                DatasetField = 'NOTAS'
                TableField = 'NOTAS'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'PERSONA_CONTACTO'
                TableField = 'PERSONA_CONTACTO'
              end>
          end>
        Name = 'Contactos_Refresh'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTACTOS_ID'
            ServerAutoRefresh = True
            DictionaryEntry = 'Contactos_ID'
            InPrimaryKey = True
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            Required = True
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
          end
          item
            Name = 'TELEFONO_1'
            DataType = datString
            Size = 25
          end
          item
            Name = 'TELEFONO_2'
            DataType = datString
            Size = 25
          end
          item
            Name = 'MOVIL_1'
            DataType = datString
            Size = 25
          end
          item
            Name = 'MOVIL_2'
            DataType = datString
            Size = 25
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 25
          end
          item
            Name = 'EMAIL_1'
            DataType = datString
            Size = 255
          end
          item
            Name = 'EMAIL_2'
            DataType = datString
            Size = 255
          end
          item
            Name = 'PAGINA_WEB'
            DataType = datString
            Size = 255
          end
          item
            Name = 'NOTAS'
            DataType = datMemo
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 30
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
          end>
      end
      item
        Params = <>
        Statements = <
          item
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'CONTACTOS_DATOS_PERSONAL'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_CONTACTO'
                TableField = 'ID_CONTACTO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'PUESTO'
                TableField = 'PUESTO'
              end
              item
                DatasetField = 'TELEFONO'
                TableField = 'TELEFONO'
              end
              item
                DatasetField = 'MOVIL'
                TableField = 'MOVIL'
              end
              item
                DatasetField = 'FAX'
                TableField = 'FAX'
              end
              item
                DatasetField = 'EMAIL'
                TableField = 'EMAIL'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end>
          end>
        Name = 'PersonalContacto'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
            DictionaryEntry = 'PersonalContacto_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_CONTACTO'
            DataType = datInteger
            DictionaryEntry = 'PersonalContacto_ID_CONTACTO'
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'PersonalContacto_NOMBRE'
          end
          item
            Name = 'PUESTO'
            DataType = datString
            Size = 255
            DictionaryEntry = 'PersonalContacto_PUESTO'
          end
          item
            Name = 'TELEFONO'
            DataType = datString
            Size = 25
            DictionaryEntry = 'PersonalContacto_TELEFONO'
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 25
            DictionaryEntry = 'PersonalContacto_MOVIL'
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 25
            DictionaryEntry = 'PersonalContacto_FAX'
          end
          item
            Name = 'EMAIL'
            DataType = datString
            Size = 255
            DictionaryEntry = 'PersonalContacto_EMAIL'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            DictionaryEntry = 'PersonalContacto_FECHA_ALTA'
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            DictionaryEntry = 'PersonalContacto_FECHA_MODIFICACION'
          end>
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_PACIENTES'
            StatementType = stAutoSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_CATEGORIA'
                TableField = 'ID_CATEGORIA'
              end
              item
                DatasetField = 'NIF_CIF'
                TableField = 'NIF_CIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'PERSONA_CONTACTO'
                TableField = 'PERSONA_CONTACTO'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGO_POSTAL'
                TableField = 'CODIGO_POSTAL'
              end
              item
                DatasetField = 'TELEFONO_1'
                TableField = 'TELEFONO_1'
              end
              item
                DatasetField = 'TELEFONO_2'
                TableField = 'TELEFONO_2'
              end
              item
                DatasetField = 'MOVIL_1'
                TableField = 'MOVIL_1'
              end
              item
                DatasetField = 'MOVIL_2'
                TableField = 'MOVIL_2'
              end
              item
                DatasetField = 'FAX'
                TableField = 'FAX'
              end
              item
                DatasetField = 'EMAIL_1'
                TableField = 'EMAIL_1'
              end
              item
                DatasetField = 'EMAIL_2'
                TableField = 'EMAIL_2'
              end
              item
                DatasetField = 'PAGINA_WEB'
                TableField = 'PAGINA_WEB'
              end
              item
                DatasetField = 'NOTAS'
                TableField = 'NOTAS'
              end
              item
                DatasetField = 'FECHA_ALTA'
                TableField = 'FECHA_ALTA'
              end
              item
                DatasetField = 'FECHA_MODIFICACION'
                TableField = 'FECHA_MODIFICACION'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'FECHA_NACIMIENTO'
                TableField = 'FECHA_NACIMIENTO'
              end
              item
                DatasetField = 'NUMERO_SS'
                TableField = 'NUMERO_SS'
              end
              item
                DatasetField = 'FECHA_BAJA'
                TableField = 'FECHA_BAJA'
              end
              item
                DatasetField = 'CAUSA_BAJA'
                TableField = 'CAUSA_BAJA'
              end>
          end>
        Name = 'Pacientes'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTACTOS_ID'
            ServerAutoRefresh = True
            DictionaryEntry = 'Contactos_ID'
            InPrimaryKey = True
          end
          item
            Name = 'ID_CATEGORIA'
            DataType = datInteger
            DictionaryEntry = 'Pacientes_ID_CATEGORIA'
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
            DictionaryEntry = 'Contactos_NIF_CIF'
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_NOMBRE'
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_CALLE'
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_POBLACION'
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_PROVINCIA'
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            DictionaryEntry = 'Contactos_CODIGO_POSTAL'
          end
          item
            Name = 'TELEFONO_1'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Contactos_TELEFONO_1'
          end
          item
            Name = 'TELEFONO_2'
            DataType = datString
            Size = 25
            DictionaryEntry = 'Contactos_TELEFONO_2'
          end
          item
            Name = 'MOVIL_1'
            DataType = datString
            Size = 25
            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
            DictionaryEntry = 'Contactos_FAX'
          end
          item
            Name = 'EMAIL_1'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_EMAIL_1'
          end
          item
            Name = 'EMAIL_2'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_EMAIL_2'
          end
          item
            Name = 'PAGINA_WEB'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Contactos_PAGINA_WEB'
          end
          item
            Name = 'NOTAS'
            DataType = datMemo
            BlobType = dabtMemo
            DictionaryEntry = 'Contactos_NOTAS'
          end
          item
            Name = 'FECHA_ALTA'
            DataType = datDateTime
            DictionaryEntry = 'Contactos_FECHA_ALTA'
          end
          item
            Name = 'FECHA_MODIFICACION'
            DataType = datDateTime
            DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            DictionaryEntry = 'Contactos_USUARIO'
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            DictionaryEntry = 'Pacientes_ID_EMPRESA'
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            ServerAutoRefresh = True
            DictionaryEntry = 'Contactos_REFERENCIA'
          end
          item
            Name = 'FECHA_NACIMIENTO'
            DataType = datDateTime
            DictionaryEntry = 'Pacientes_FECHA_NACIMIENTO'
          end
          item
            Name = 'NUMERO_SS'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Pacientes_NUMERO_SS'
          end
          item
            Name = 'FECHA_BAJA'
            DataType = datDateTime
            DictionaryEntry = 'Pacientes_FECHA_BAJA'
          end
          item
            Name = 'CAUSA_BAJA'
            DataType = datString
            Size = 255
            DictionaryEntry = 'Pacientes_CAUSA_BAJA'
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTACTOS_ID'
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO_1'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO_2'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MOVIL_1'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MOVIL_2'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'EMAIL_1'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'EMAIL_2'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PAGINA_WEB'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOTAS'
            DataType = datMemo
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS'
            SQL = 
              'INSERT'#10'  INTO CONTACTOS'#10'    (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' +
              'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10'     TELEFONO_1,' +
              ' TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, '#10'     EMAIL_2, PAGI' +
              'NA_WEB, NOTAS, USUARIO, REFERENCIA, FECHA_ALTA)'#10'  VALUES'#10'    (:I' +
              'D, :NIF_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PR' +
              'OVINCIA,'#10'     :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1' +
              ', '#10'     :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS,' +
              ' '#10'     :USUARIO, :REFERENCIA, CURRENT_TIMESTAMP)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_Contactos'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS'
            SQL = 'DELETE '#10'  FROM'#10'    CONTACTOS'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_Contactos'
      end
      item
        Params = <
          item
            Name = 'NIF_CIF'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO_1'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO_2'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MOVIL_1'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MOVIL_2'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'EMAIL_1'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'EMAIL_2'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PAGINA_WEB'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOTAS'
            DataType = datMemo
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 20
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS'
            SQL = 
              'UPDATE CONTACTOS'#10'  SET '#10'    NIF_CIF = :NIF_CIF,'#10'    NOMBRE = :NO' +
              'MBRE, '#10'    PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10'    CALLE = :CA' +
              'LLE, '#10'    POBLACION = :POBLACION, '#10'    PROVINCIA = :PROVINCIA, '#10 +
              '    CODIGO_POSTAL = :CODIGO_POSTAL, '#10'    TELEFONO_1 = :TELEFONO_' +
              '1, '#10'    TELEFONO_2 = :TELEFONO_2, '#10'    MOVIL_1 = :MOVIL_1, '#10'    ' +
              'MOVIL_2 = :MOVIL_2, '#10'    FAX = :FAX, '#10'    EMAIL_1 = :EMAIL_1, '#10' ' +
              '   EMAIL_2 = :EMAIL_2, '#10'    PAGINA_WEB = :PAGINA_WEB, '#10'    NOTAS' +
              ' = :NOTAS, '#10'    USUARIO = :USUARIO,'#10'    REFERENCIA = :REFERENCIA' +
              ','#10'    FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10'  WHERE'#10'    (ID = :' +
              'OLD_ID)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Contactos'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TITULAR'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_DATOS_BANCO'
            SQL = 
              'INSERT'#10'  INTO CONTACTOS_DATOS_BANCO'#10'    (ID, ID_CONTACTO, TITULA' +
              'R, ENTIDAD, SUCURSAL, DC, CUENTA)'#10'  VALUES'#10'    (:ID, :ID_CONTACT' +
              'O, :TITULAR, :ENTIDAD, :SUCURSAL, :DC, :CUENTA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_DatosBancarios'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_DATOS_BANCO'
            SQL = 
              'DELETE '#10'  FROM'#10'    CONTACTOS_DATOS_BANCO'#10'  WHERE'#10'    (ID = :OLD_' +
              'ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_DatosBancarios'
      end
      item
        Params = <
          item
            Name = 'ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TITULAR'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ENTIDAD'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'SUCURSAL'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DC'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CUENTA'
            DataType = datString
            Size = 15
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_DATOS_BANCO'
            SQL = 
              'UPDATE CONTACTOS_DATOS_BANCO'#10'  SET '#10'    ID_CONTACTO = :ID_CONTAC' +
              'TO, '#10'    TITULAR = :TITULAR, '#10'    ENTIDAD = :ENTIDAD, '#10'    SUCUR' +
              'SAL = :SUCURSAL, '#10'    DC = :DC, '#10'    CUENTA = :CUENTA'#10'  WHERE'#10'  ' +
              '  (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_DatosBancarios'
      end
      item
        Params = <
          item
            Name = 'ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_CATEGORIA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_CATEGORIAS'
            SQL = 
              'INSERT'#10'  INTO CONTACTOS_CATEGORIAS'#10'    (ID_CONTACTO, ID_CATEGORI' +
              'A)'#10'  VALUES'#10'    (:ID_CONTACTO, :ID_CATEGORIA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_ContactosCategorias'
      end
      item
        Params = <
          item
            Name = 'OLD_ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID_CATEGORIA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_CATEGORIAS'
            SQL = 
              'DELETE '#10'  FROM'#10'    CONTACTOS_CATEGORIAS'#10'  WHERE'#10'    (ID_CONTACTO' +
              ' = :OLD_ID_CONTACTO) AND '#10'    (ID_CATEGORIA = :OLD_ID_CATEGORIA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_ContactosCategorias'
      end
      item
        Params = <
          item
            Name = 'ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_CATEGORIA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID_CATEGORIA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_CATEGORIAS'
            SQL = 
              'UPDATE CONTACTOS_CATEGORIAS'#10'  SET '#10'    ID_CONTACTO = :ID_CONTACT' +
              'O, '#10'    ID_CATEGORIA = :ID_CATEGORIA'#10'  WHERE'#10'    (ID_CONTACTO = ' +
              ':OLD_ID_CONTACTO) AND '#10'    (ID_CATEGORIA = :OLD_ID_CATEGORIA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_ContactosCategorias'
      end
      item
        Params = <
          item
            Name = 'ID_CONTACTO'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'EMPRESAS_CONTACTOS'
            SQL = 
              'INSERT INTO EMPRESAS_CONTACTOS'#10'    (ID, ID_EMPRESA, ID_CONTACTO)' +
              #10#10'SELECT (SELECT GEN_ID(GEN_EMPRESAS_CONTACTOS_ID, 1) FROM RDB$D' +
              'ATABASE), EMPRESAS.ID, :ID_CONTACTO'#10'FROM EMPRESAS'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_ContactoEmpresas'
      end
      item
        Params = <
          item
            Name = 'OLD_ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'EMPRESAS_CONTACTOS'
            SQL = 
              'DELETE '#10'  FROM'#10'    EMPRESAS_CONTACTOS'#10'  WHERE'#10'    (ID_CONTACTO =' +
              ' :OLD_ID_CONTACTO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_ContactoEmpresas'
      end
      item
        Params = <
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID_EMPRESA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'EMPRESAS_CONTACTOS'
            SQL = 
              'UPDATE EMPRESAS_CONTACTOS'#10'  SET '#10'    ID_EMPRESA = :ID_EMPRESA, '#10 +
              '    ID_CONTACTO = :ID_CONTACTO'#10'  WHERE'#10'    (ID_EMPRESA = :OLD_ID' +
              '_EMPRESA) AND '#10'    (ID_CONTACTO = :OLD_ID_CONTACTO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_ContactoEmpresa'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTACTOS_DIR_ID'
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'EMAIL'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOTAS'
            DataType = datMemo
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PORTE'
            DataType = datFloat
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_DIRECCIONES'
            SQL = 
              'INSERT'#10'  INTO CONTACTOS_DIRECCIONES'#10'    (ID, ID_CONTACTO, NOMBRE' +
              ', CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10'     PERSONA_CONTA' +
              'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE)'#10'  VALUES'#10'    (:I' +
              'D, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIG' +
              'O_POSTAL,'#10'     :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :FAX, :EMAI' +
              'L, :NOTAS, :PORTE)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_DireccionesContacto'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_DIRECCIONES'
            SQL = 
              'DELETE '#10'  FROM'#10'    CONTACTOS_DIRECCIONES'#10'  WHERE'#10'    (ID = :OLD_' +
              'ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_DireccionesContacto'
      end
      item
        Params = <
          item
            Name = 'ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGO_POSTAL'
            DataType = datString
            Size = 10
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PERSONA_CONTACTO'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 25
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'EMAIL'
            DataType = datString
            Size = 255
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOTAS'
            DataType = datMemo
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PORTE'
            DataType = datFloat
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS_DIRECCIONES'
            SQL = 
              'UPDATE CONTACTOS_DIRECCIONES'#10'  SET '#10'    ID_CONTACTO = :ID_CONTAC' +
              'TO, '#10'    NOMBRE = :NOMBRE,'#10'    CALLE = :CALLE,'#10'    POBLACION = :' +
              'POBLACION, '#10'    PROVINCIA = :PROVINCIA, '#10'    CODIGO_POSTAL = :CO' +
              'DIGO_POSTAL, '#10'    PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10'    TELE' +
              'FONO = :TELEFONO,'#10'    MOVIL = :MOVIL,'#10'    FAX = :FAX,'#10'    EMAIL ' +
              '= :EMAIL,'#10'    NOTAS = :NOTAS,'#10'    PORTE = :PORTE'#10'  WHERE'#10'    (ID' +
              ' = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_DireccionesContacto'
      end
      item
        Params = <
          item
            Name = 'OLD_ID_PACIENTE'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PACIENTES_DATOS'
            SQL = 
              'DELETE '#10'  FROM'#10'    PACIENTES_DATOS'#10'  WHERE'#10'    (ID_PACIENTE = :O' +
              'LD_ID_PACIENTE)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_PacientesDatos'
      end
      item
        Params = <
          item
            Name = 'ID_PACIENTE'
            DataType = datInteger
            Value = ''
          end
          item
            Name = 'FECHA_NACIMIENTO'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'NUMERO_SS'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FECHA_BAJA'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'CAUSA_BAJA'
            DataType = datString
            Size = 255
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PACIENTES_DATOS'
            SQL = 
              'INSERT'#10'  INTO PACIENTES_DATOS'#10'    (ID_PACIENTE, FECHA_NACIMIENTO' +
              ', NUMERO_SS, FECHA_BAJA, CAUSA_BAJA)'#10'  VALUES'#10'    (:ID_PACIENTE,' +
              ' :FECHA_NACIMIENTO, :NUMERO_SS, :FECHA_BAJA, :CAUSA_BAJA)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_PacientesDatos'
      end
      item
        Params = <
          item
            Name = 'FECHA_NACIMIENTO'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'NUMERO_SS'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'FECHA_BAJA'
            DataType = datDateTime
            Value = ''
          end
          item
            Name = 'CAUSA_BAJA'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'OLD_ID_PACIENTE'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'PACIENTES_DATOS'
            SQL = 
              'UPDATE PACIENTES_DATOS'#10'  SET '#10'    FECHA_NACIMIENTO = :FECHA_NACI' +
              'MIENTO,'#10'    NUMERO_SS = :NUMERO_SS,'#10'    FECHA_BAJA = :FECHA_BAJA' +
              ','#10'    CAUSA_BAJA = :CAUSA_BAJA'#10'  WHERE'#10'    (ID_PACIENTE = :OLD_I' +
              'D_PACIENTE)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_PacientesDatos'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_EMPRESAS_CONTACTOS_ID'
            Value = ''
          end
          item
            Name = 'ID_EMPRESA'
            Value = ''
          end
          item
            Name = 'ID_CONTACTO'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'EMPRESAS_CONTACTOS'
            SQL = 
              'INSERT'#10'  INTO EMPRESAS_CONTACTOS'#10'    (ID, ID_EMPRESA, ID_CONTACT' +
              'O)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :ID_CONTACTO)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_ContactoEmpresa'
      end
      item
        Params = <
          item
            Name = 'OLD_ID_EMPRESA'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID_CONTACTO'
            DataType = datInteger
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'EMPRESAS_CONTACTOS'
            SQL = 
              'DELETE '#10'  FROM'#10'    EMPRESAS_CONTACTOS'#10'  WHERE'#10'    (ID_EMPRESA = ' +
              ':OLD_ID_EMPRESA) AND '#10'    (ID_CONTACTO = :OLD_ID_CONTACTO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_ContactoEmpresa'
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datAutoInc
            GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
            Value = ''
          end
          item
            Name = 'ID_CONTACTO'
            Value = ''
          end
          item
            Name = 'NOMBRE'
            Value = ''
          end
          item
            Name = 'PUESTO'
            Value = ''
          end
          item
            Name = 'TELEFONO'
            Value = ''
          end
          item
            Name = 'MOVIL'
            Value = ''
          end
          item
            Name = 'FAX'
            Value = ''
          end
          item
            Name = 'EMAIL'
            Value = ''
          end>
        Statements = <
          item
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'CONTACTOS_DATOS_PERSONAL'
            SQL = 
              'INSERT'#10'  INTO CONTACTOS_DATOS_PERSONAL'#10'    (ID, ID_CONTACTO, NOM' +
              'BRE, PUESTO, TELEFONO, MOVIL, FAX,'#10'     EMAIL, FECHA_ALTA)'#10'  VAL' +
              'UES'#10'    (:ID, :ID_CONTACTO, :NOMBRE, :PUESTO, :TELEFONO, :MOVIL,' +
              #10'     :FAX, :EMAIL, CURRENT_TIME)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_PersonalContacto'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datAutoInc
            Value = '0'
          end>
        Statements = <
          item
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'CONTACTOS_DATOS_PERSONAL'
            SQL = 
              'DELETE '#10'  FROM'#10'    CONTACTOS_DATOS_PERSONAL'#10'  WHERE'#10'    (ID = :O' +
              'LD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_PersonalContacto'
      end
      item
        Params = <
          item
            Name = 'ID_CONTACTO'
            Value = ''
          end
          item
            Name = 'NOMBRE'
            Value = ''
          end
          item
            Name = 'PUESTO'
            Value = ''
          end
          item
            Name = 'TELEFONO'
            Value = ''
          end
          item
            Name = 'MOVIL'
            Value = ''
          end
          item
            Name = 'FAX'
            Value = ''
          end
          item
            Name = 'EMAIL'
            Value = ''
          end
          item
            Name = 'FECHA_MODIFICACION'
            Value = ''
          end
          item
            Name = 'OLD_ID'
            Value = ''
          end>
        Statements = <
          item
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'CONTACTOS_DATOS_PERSONAL'
            SQL = 
              'UPDATE CONTACTOS_DATOS_PERSONAL'#10'  SET '#10'    ID_CONTACTO = :ID_CON' +
              'TACTO, '#10'    NOMBRE = :NOMBRE, '#10'    PUESTO = :PUESTO, '#10'    TELEFO' +
              'NO = :TELEFONO, '#10'    MOVIL = :MOVIL, '#10'    FAX = :FAX, '#10'    EMAIL' +
              ' = :EMAIL, '#10'    FECHA_MODIFICACION = :FECHA_MODIFICACION'#10'  WHERE' +
              #10'    (ID = :OLD_ID)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_PersonalContacto'
      end>
    RelationShips = <
      item
        Name = 'FK_PersonalContacto_Empleados'
        MasterFields = 'ID'
        DetailDatasetName = 'PersonalContacto'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_PersonalContacto_Proveedores'
        MasterFields = 'ID'
        DetailDatasetName = 'PersonalContacto'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_PersonalContacto_Clientes'
        MasterFields = 'ID'
        DetailDatasetName = 'PersonalContacto'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_PersonalContacto_Contactos'
        MasterDatasetName = 'Pacientes'
        MasterFields = 'ID'
        DetailDatasetName = 'PersonalContacto'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_ClientesDescuentos_Clientes'
        MasterFields = 'ID'
        DetailFields = 'ID_CLIENTE'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_DireccionesContacto_Contactos'
        MasterDatasetName = 'Pacientes'
        MasterFields = 'ID'
        DetailDatasetName = 'DireccionesContacto'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_DatosBancarios_Contactos'
        MasterDatasetName = 'Pacientes'
        MasterFields = 'ID'
        DetailDatasetName = 'DatosBancarios'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_DatosBancarios_Clientes'
        MasterFields = 'ID'
        DetailDatasetName = 'DatosBancarios'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_DireccionesContacto_Clientes'
        MasterFields = 'ID'
        DetailDatasetName = 'DireccionesContacto'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_DireccionesContacto_Empleados'
        MasterFields = 'ID'
        DetailDatasetName = 'DireccionesContacto'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_DatosBancarios_Empleados'
        MasterFields = 'ID'
        DetailDatasetName = 'DatosBancarios'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_DireccionesContacto_Proveedores'
        MasterFields = 'ID'
        DetailDatasetName = 'DireccionesContacto'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end
      item
        Name = 'FK_DatosBancarios_Proveedores'
        MasterFields = 'ID'
        DetailDatasetName = 'DatosBancarios'
        DetailFields = 'ID_CONTACTO'
        RelationshipType = rtForeignKey
      end>
    UpdateRules = <
      item
        Name = 'Insert Contactos'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'Contactos'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert Clientes'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'Clientes'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert Empleados'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'Empleados'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert Proveedores'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'Proveedores'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update Contactos'
        DoInsert = False
        DoDelete = False
        DatasetName = 'Contactos'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update Clientes'
        DoInsert = False
        DoDelete = False
        DatasetName = 'Clientes'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update Empleados'
        DoInsert = False
        DoDelete = False
        DatasetName = 'Empleados'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update Proveedores'
        DoInsert = False
        DoDelete = False
        DatasetName = 'Proveedores'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert DatosBancarios'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'DatosBancarios'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update DatosBancarios'
        DoInsert = False
        DoDelete = False
        DatasetName = 'DatosBancarios'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert PersonalContacto'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'PersonalContacto'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update PersonalContacto'
        DoInsert = False
        DoDelete = False
        DatasetName = 'PersonalContacto'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert DireccionesContacto'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'DireccionesContacto'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update DireccionesContacto'
        DoInsert = False
        DoDelete = False
        DatasetName = 'DireccionesContacto'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert AgentesComisiones'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'AgentesComisiones'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update AgentesComisiones'
        DoInsert = False
        DoDelete = False
        DatasetName = 'AgentesComisiones'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Insert ClientesDescuentos'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'ClientesDescuentos'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update ClientesDescuentos'
        DoInsert = False
        DoDelete = False
        DatasetName = 'ClientesDescuentos'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete DatosBancarios'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'DatosBancarios'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete ClientesDescuentos'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'ClientesDescuentos'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete AgentesComisiones'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'AgentesComisiones'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete PersonalContacto'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'PersonalContacto'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete DireccionesContacto'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'DireccionesContacto'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete Proveedores'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'Proveedores'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete Empleados'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'Empleados'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete Clientes'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'Clientes'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Delete Contactos'
        DoUpdate = False
        DoInsert = False
        DatasetName = 'Contactos'
        FailureBehavior = fbRaiseException
      end>
    Version = 0
    Left = 38
    Top = 14
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'DatosBancarios_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
        DisplayLabel = 'ID'
      end
      item
        Name = 'DatosBancarios_ID_CONTACTO'
        DataType = datInteger
        DisplayLabel = 'ID_CONTACTO'
      end
      item
        Name = 'DatosBancarios_TITULAR'
        DataType = datString
        Size = 255
        DisplayLabel = 'Titular'
      end
      item
        Name = 'DatosBancarios_ENTIDAD'
        DataType = datString
        Size = 15
        DisplayLabel = 'C'#243'digo de entidad'
      end
      item
        Name = 'DatosBancarios_SUCURSAL'
        DataType = datString
        Size = 15
        DisplayLabel = 'C'#243'digo de sucursal'
      end
      item
        Name = 'DatosBancarios_DC'
        DataType = datString
        Size = 15
        DisplayLabel = 'D'#237'gito de control'
      end
      item
        Name = 'DatosBancarios_CUENTA'
        DataType = datString
        Size = 15
        DisplayLabel = 'C'#243'digo de cuenta'
      end
      item
        Name = 'Contactos_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_CONTACTOS_ID'
        DisplayLabel = 'ID'
      end
      item
        Name = 'Contactos_NIF_CIF'
        DataType = datString
        Size = 15
        DisplayLabel = 'NIF/CIF'
      end
      item
        Name = 'Contactos_CALLE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Direcci'#243'n'
      end
      item
        Name = 'Contactos_POBLACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Poblaci'#243'n'
      end
      item
        Name = 'Contactos_PROVINCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Provincia'
      end
      item
        Name = 'Contactos_CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'C'#243'digo postal'
      end
      item
        Name = 'Contactos_TELEFONO_1'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tlf. trabajo'
      end
      item
        Name = 'Contactos_TELEFONO_2'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tlf. particular'
      end
      item
        Name = 'Contactos_MOVIL_1'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil'
      end
      item
        Name = 'Contactos_MOVIL_2'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil 2'
      end
      item
        Name = 'Contactos_FAX'
        DataType = datString
        Size = 25
        DisplayLabel = 'Fax'
      end
      item
        Name = 'Contactos_EMAIL_1'
        DataType = datString
        Size = 255
        DisplayLabel = 'E-mail trabajo'
      end
      item
        Name = 'Contactos_EMAIL_2'
        DataType = datString
        Size = 255
        DisplayLabel = 'E-mail particular'
      end
      item
        Name = 'Contactos_PAGINA_WEB'
        DataType = datString
        Size = 255
        DisplayLabel = 'Web'
      end
      item
        Name = 'Contactos_NOTAS'
        DataType = datMemo
        BlobType = dabtMemo
        DisplayLabel = 'Observaciones'
      end
      item
        Name = 'Contactos_FECHA_ALTA'
        DataType = datDateTime
        DisplayLabel = 'Fecha de alta'
      end
      item
        Name = 'Contactos_FECHA_MODIFICACION'
        DataType = datDateTime
        DisplayLabel = 'Fecha de modificaci'#243'n'
      end
      item
        Name = 'Contactos_USUARIO'
        DataType = datString
        Size = 20
        DisplayLabel = 'Usuario'
      end
      item
        Name = 'Contactos_ID_CATEGORIA'
        DataType = datInteger
      end
      item
        Name = 'Contactos_ID_EMPRESA'
        DataType = datInteger
        DisplayLabel = 'ID_EMPRESA'
      end
      item
        Name = 'DatosBancarios_PERSONA_CONTACTO'
        DataType = datString
        Size = 255
      end
      item
        Name = 'DireccionesContacto_CALLE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Calle'
      end
      item
        Name = 'DireccionesContacto_POBLACION'
        DataType = datString
        Size = 255
        DisplayLabel = 'Poblaci'#243'n'
      end
      item
        Name = 'DireccionesContacto_PROVINCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Provincia'
      end
      item
        Name = 'DireccionesContacto_CODIGO_POSTAL'
        DataType = datString
        Size = 10
        DisplayLabel = 'C'#243'digo postal'
      end
      item
        Name = 'DireccionesContacto_PERSONA_CONTACTO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Persona de contacto'
      end
      item
        Name = 'DireccionesContacto_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_CONTACTOS_DIR_ID'
        DisplayLabel = 'ID'
      end
      item
        Name = 'DireccionesContacto_ID_CONTACTO'
        DataType = datInteger
        DisplayLabel = 'ID_CONTACTO'
      end
      item
        Name = 'Contactos_REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
      end
      item
        Name = 'DireccionesContacto_NOMBRE'
        DataType = datString
        Size = 255
      end
      item
        Name = 'DireccionesContacto_TELEFONO'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tel'#233'fono'
      end
      item
        Name = 'DireccionesContacto_EMAIL'
        DataType = datString
        Size = 255
        DisplayLabel = 'E-mail'
      end
      item
        Name = 'DireccionesContacto_NOTAS'
        DataType = datMemo
        DisplayLabel = 'Notas'
      end
      item
        Name = 'DireccionesContacto_PORTE'
        DataType = datFloat
        DisplayLabel = 'Coste del porte'
      end
      item
        Name = 'Contactos_PERSONA_CONTACTO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Persona de contacto'
      end
      item
        Name = 'Pacientes_FECHA_NACIMIENTO'
        DataType = datDateTime
        DisplayLabel = 'Fecha nacimiento'
      end
      item
        Name = 'Contactos_NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Nombre'
      end
      item
        Name = 'Pacientes_NUMERO_SS'
        DataType = datString
        Size = 255
        DisplayLabel = 'NASS'
      end
      item
        Name = 'PersonalContacto_ID'
        DataType = datAutoInc
        GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
        Required = True
      end
      item
        Name = 'PersonalContacto_ID_CONTACTO'
        DataType = datInteger
      end
      item
        Name = 'PersonalContacto_NOMBRE'
        DataType = datString
        Size = 255
        DisplayLabel = 'Nombre'
      end
      item
        Name = 'PersonalContacto_PUESTO'
        DataType = datString
        Size = 255
        DisplayLabel = 'Puesto'
      end
      item
        Name = 'PersonalContacto_TELEFONO'
        DataType = datString
        Size = 25
        DisplayLabel = 'Tel'#233'fono'
      end
      item
        Name = 'PersonalContacto_MOVIL'
        DataType = datString
        Size = 25
        DisplayLabel = 'M'#243'vil'
      end
      item
        Name = 'PersonalContacto_FAX'
        DataType = datString
        Size = 25
        DisplayLabel = 'Fax'
      end
      item
        Name = 'PersonalContacto_EMAIL'
        DataType = datString
        Size = 255
        DisplayLabel = 'E-mail'
      end
      item
        Name = 'PersonalContacto_FECHA_ALTA'
        DataType = datDateTime
      end
      item
        Name = 'PersonalContacto_FECHA_MODIFICACION'
        DataType = datDateTime
      end
      item
        Name = 'Pacientes_ID_CATEGORIA'
        DataType = datInteger
      end
      item
        Name = 'Pacientes_ID_EMPRESA'
        DataType = datInteger
      end
      item
        Name = 'Pacientes_FECHA_BAJA'
        DataType = datDateTime
        DisplayLabel = 'Fecha de baja'
      end
      item
        Name = 'Pacientes_CAUSA_BAJA'
        DataType = datString
        Size = 255
        DisplayLabel = 'Causa de baja'
      end>
    Left = 126
    Top = 14
  end
  object Diagrams: TDADiagrams
    Left = 126
    Top = 82
    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
  end
  object bpContactos: TDABusinessProcessor
    Schema = schContactos
    InsertCommandName = 'Insert_Contactos'
    DeleteCommandName = 'Delete_Contactos'
    UpdateCommandName = 'Update_Contactos'
    RefreshDatasetName = 'Contactos_Refresh'
    ReferencedDataset = 'Contactos'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 224
    Top = 15
  end
  object bpDatosBancarios: TDABusinessProcessor
    Schema = schContactos
    InsertCommandName = 'Insert_DatosBancarios'
    DeleteCommandName = 'Delete_DatosBancarios'
    UpdateCommandName = 'Update_DatosBancarios'
    ReferencedDataset = 'DatosBancarios'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 224
    Top = 79
  end
  object bpPacientes: TDABusinessProcessor
    Schema = schContactos
    InsertCommandName = 'Insert_Contactos'
    DeleteCommandName = 'Delete_Contactos'
    UpdateCommandName = 'Update_Contactos'
    RefreshDatasetName = 'Contactos_Refresh'
    ReferencedDataset = 'Pacientes'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 344
    Top = 15
  end
  object bpDireccionesContacto: TDABusinessProcessor
    Schema = schContactos
    InsertCommandName = 'Insert_DireccionesContacto'
    DeleteCommandName = 'Delete_DireccionesContacto'
    UpdateCommandName = 'Update_DireccionesContacto'
    ReferencedDataset = 'DireccionesContacto'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 224
    Top = 207
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 40
    Top = 80
  end
  object bpPersonalContacto: TDABusinessProcessor
    Schema = schContactos
    InsertCommandName = 'Insert_PersonalContacto'
    DeleteCommandName = 'Delete_PersonalContacto'
    UpdateCommandName = 'Update_PersonalContacto'
    ReferencedDataset = 'PersonalContacto'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 224
    Top = 143
  end
end
