object srvContactos: TsrvContactos
  OldCreateOrder = True
  SessionManager = dmServer.SessionManager
  OnActivate = DARemoteServiceActivate
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schContactos
  ServiceAdapter = DABINAdapter
  Left = 578
  Top = 289
  Height = 368
  Width = 464
  object schContactos: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = dmServer.DataDictionary
    Diagrams = dmServer.DADiagrams
    Datasets = <
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOSCATEGORIAS'
            SQL = 
              'SELECT '#10'    CONTACTOSCATEGORIAS.CODIGOCONTACTO, CONTACTOSCATEGOR' +
              'IAS.CODIGOCATEGORIA,'#10'    CATEGORIAS.DESCRIPCION'#10'FROM'#10'    CONTACT' +
              'OSCATEGORIAS, CATEGORIAS'#10'WHERE CONTACTOSCATEGORIAS.CODIGOCONTACT' +
              'O = :CODIGOCONTACTO'#10'AND CATEGORIAS.CODIGO = CONTACTOSCATEGORIAS.' +
              'CODIGOCATEGORIA'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'CODIGOCATEGORIA'
                TableField = 'CODIGOCATEGORIA'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end>
          end>
        Name = 'CONTACTOSCATEGORIAS'
        Fields = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'C'#243'd. contacto'
            Alignment = taLeftJustify
            ServerAutoRefresh = True
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCATEGORIA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCATEGORIA'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CATEGORIAS'
            SQL = 'SELECT '#10'    CODIGO, DESCRIPCION'#10'  FROM'#10'    CATEGORIAS'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end>
          end>
        Name = 'CATEGORIAS'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datAutoInc
            BlobType = dabtUnknown
            GeneratorName = 'GEN_CATEGORIAS'
            DictionaryEntry = 'CODIGOCATEGORIA_GEN'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOCATEGORIA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOSCATEGORIAS'
            SQL = 
              'SELECT '#10'    CONTACTOSCATEGORIAS.CODIGOCONTACTO, CONTACTOSCATEGOR' +
              'IAS.CODIGOCATEGORIA,'#10'    CATEGORIAS.DESCRIPCION'#10'FROM'#10'    CONTACT' +
              'OSCATEGORIAS, CATEGORIAS'#10'WHERE CONTACTOSCATEGORIAS.CODIGOCONTACT' +
              'O = :CODIGOCONTACTO'#10'AND CONTACTOSCATEGORIAS.CODIGOCATEGORIA = :C' +
              'ODIGOCATEGORIA'#10'AND CATEGORIAS.CODIGO = CONTACTOSCATEGORIAS.CODIG' +
              'OCATEGORIA'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'CODIGOCATEGORIA'
                TableField = 'CODIGOCATEGORIA'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end>
          end>
        Name = 'REFRESCOCONTACTOSCATEGORIAS'
        Fields = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCONTACTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOCATEGORIA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCATEGORIA'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS'
            SQL = 
              'SELECT '#10'    CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, NIFCIF, '#10 +
              '    NOMBRE, CALLE, PROVINCIA, CODIGOPOSTAL, POBLACION, '#10'    TELE' +
              'FONO1, TELEFONO2, MOVIL, FAX, CORREO1, CORREO2, '#10'    PAGINAWEB, ' +
              'PUESTO, TRABAJO, DATOSFACTURACION,'#10'    DATOSBANCARIOS,'#10'    (sele' +
              'ct CADENA from getcategorias(CONTACTOS.CODIGO)) as LISTACATEGORI' +
              'AS'#10'  FROM'#10'    CONTACTOS'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOEMPRESA'
                TableField = 'CODIGOEMPRESA'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'FECHAALTA'
                TableField = 'FECHAALTA'
              end
              item
                DatasetField = 'USUARIO'
                TableField = 'USUARIO'
              end
              item
                DatasetField = 'NIFCIF'
                TableField = 'NIFCIF'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end
              item
                DatasetField = 'CALLE'
                TableField = 'CALLE'
              end
              item
                DatasetField = 'PROVINCIA'
                TableField = 'PROVINCIA'
              end
              item
                DatasetField = 'CODIGOPOSTAL'
                TableField = 'CODIGOPOSTAL'
              end
              item
                DatasetField = 'POBLACION'
                TableField = 'POBLACION'
              end
              item
                DatasetField = 'TELEFONO1'
                TableField = 'TELEFONO1'
              end
              item
                DatasetField = 'TELEFONO2'
                TableField = 'TELEFONO2'
              end
              item
                DatasetField = 'MOVIL'
                TableField = 'MOVIL'
              end
              item
                DatasetField = 'FAX'
                TableField = 'FAX'
              end
              item
                DatasetField = 'CORREO1'
                TableField = 'CORREO1'
              end
              item
                DatasetField = 'CORREO2'
                TableField = 'CORREO2'
              end
              item
                DatasetField = 'PAGINAWEB'
                TableField = 'PAGINAWEB'
              end
              item
                DatasetField = 'PUESTO'
                TableField = 'PUESTO'
              end
              item
                DatasetField = 'TRABAJO'
                TableField = 'TRABAJO'
              end
              item
                DatasetField = 'LISTACATEGORIAS'
                TableField = 'LISTACATEGORIAS'
              end
              item
                DatasetField = 'DATOSFACTURACION'
                TableField = 'DATOSFACTURACION'
              end
              item
                DatasetField = 'DATOSBANCARIOS'
                TableField = 'DATOSBANCARIOS'
              end>
          end>
        Name = 'CONTACTOS'
        Fields = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOEMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'C'#243'd. contacto'
            Alignment = taLeftJustify
            ServerAutoRefresh = True
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'FECHAALTA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'USUARIO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NIFCIF'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            DictionaryEntry = 'NIFCIF'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'NOMBRE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 150
            BlobType = dabtUnknown
            DictionaryEntry = 'CALLE'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'PROVINCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOPOSTAL'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOPOSTAL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            DictionaryEntry = 'POBLACION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TELEFONO1'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'TELEFONOTRABAJO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TELEFONO2'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'TELEFONOPARTICULAR'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'MOVIL'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            DictionaryEntry = 'FAX'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CORREO1'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            DictionaryEntry = 'CORREO1'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CORREO2'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            DictionaryEntry = 'CORREO2'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PAGINAWEB'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DictionaryEntry = 'PAGINAWEB'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PUESTO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TRABAJO'
            DataType = datString
            Size = 300
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DATOSFACTURACION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DATOSBANCARIOS'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'LISTACATEGORIAS'
            DataType = datString
            Size = 1000
            BlobType = dabtUnknown
            LogChanges = False
            DisplayWidth = 0
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOSASOCIADOS'
            SQL = 
              'SELECT CONTACTOSASOCIADOS.CODIGOCONTACTO, CONTACTOSASOCIADOS.COD' +
              'IGOASOCIADO, CONTACTOS.NOMBRE'#10'FROM CONTACTOSASOCIADOS'#10'LEFT JOIN ' +
              'CONTACTOS ON (CONTACTOSASOCIADOS.CODIGOASOCIADO = CONTACTOS.CODI' +
              'GO)'#10'WHERE CONTACTOSASOCIADOS.CODIGOCONTACTO = :CODIGOCONTACTO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'CODIGOASOCIADO'
                TableField = 'CODIGOASOCIADO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end>
          end>
        Name = 'CONTACTOSASOCIADOS'
        Fields = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            DisplayLabel = 'C'#243'd. contacto'
            Alignment = taLeftJustify
            ServerAutoRefresh = True
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOASOCIADO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCONTACTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Nombre'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOASOCIADO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOSASOCIADOS'
            SQL = 
              'SELECT CONTACTOSASOCIADOS.CODIGOCONTACTO, CONTACTOSASOCIADOS.COD' +
              'IGOASOCIADO,'#10'CONTACTOS.NOMBRE'#10'FROM CONTACTOSASOCIADOS'#10'LEFT JOIN ' +
              'CONTACTOS ON (CONTACTOSASOCIADOS.CODIGOASOCIADO = CONTACTOS.CODI' +
              'GO)'#10'WHERE CONTACTOSASOCIADOS.CODIGOCONTACTO = :CODIGOCONTACTO'#10'AN' +
              'D CONTACTOSASOCIADOS.CODIGOASOCIADO = :CODIGOASOCIADO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CODIGOCONTACTO'
                TableField = 'CODIGOCONTACTO'
              end
              item
                DatasetField = 'CODIGOASOCIADO'
                TableField = 'CODIGOASOCIADO'
              end
              item
                DatasetField = 'NOMBRE'
                TableField = 'NOMBRE'
              end>
          end>
        Name = 'REFRESCOCONTACTOSASOCIADOS'
        Fields = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCONTACTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CODIGOASOCIADO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'CODIGOCONTACTO'
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Nombre'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOCATEGORIA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOSCATEGORIAS'
            SQL = 
              'INSERT'#10'  INTO CONTACTOSCATEGORIAS'#10'    (CODIGOCONTACTO, CODIGOCAT' +
              'EGORIA)'#10'  VALUES'#10'    (:CODIGOCONTACTO, :CODIGOCATEGORIA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_CONTACTOSCATEGORIAS'
      end
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOCATEGORIA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_CODIGOCATEGORIA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOSCATEGORIAS'
            SQL = 
              'UPDATE CONTACTOSCATEGORIAS'#10'  SET '#10'    CODIGOCONTACTO = :CODIGOCO' +
              'NTACTO, '#10'    CODIGOCATEGORIA = :CODIGOCATEGORIA'#10'  WHERE'#10'    (COD' +
              'IGOCONTACTO = :OLD_CODIGOCONTACTO) AND '#10'    (CODIGOCATEGORIA = :' +
              'OLD_CODIGOCATEGORIA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_CONTACTOSCATEGORIAS'
      end
      item
        Params = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NIFCIF'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 150
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOPOSTAL'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO1'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO2'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CORREO1'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CORREO2'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PAGINAWEB'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PUESTO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TRABAJO'
            DataType = datString
            Size = 300
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DATOSFACTURACION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DATOSBANCARIOS'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS'
            SQL = 
              'INSERT'#10'  INTO CONTACTOS'#10'    (CODIGOEMPRESA, CODIGO, FECHAALTA, U' +
              'SUARIO, NIFCIF, NOMBRE,'#10'     CALLE, PROVINCIA, CODIGOPOSTAL, POB' +
              'LACION, TELEFONO1, '#10'     TELEFONO2, MOVIL, FAX, CORREO1, CORREO2' +
              ', PAGINAWEB, '#10'     PUESTO, TRABAJO, DATOSFACTURACION, DATOSBANCA' +
              'RIOS)'#10'  VALUES'#10'    (:CODIGOEMPRESA, :CODIGO, :FECHAALTA, :USUARI' +
              'O, :NIFCIF, :NOMBRE,'#10'     :CALLE, :PROVINCIA, :CODIGOPOSTAL, :PO' +
              'BLACION, :TELEFONO1, '#10'     :TELEFONO2, :MOVIL, :FAX, :CORREO1, :' +
              'CORREO2, :PAGINAWEB, '#10'     :PUESTO, :TRABAJO, :DATOSFACTURACION,' +
              ' :DATOSBANCARIOS)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_CONTACTOS'
      end
      item
        Params = <
          item
            Name = 'CODIGOEMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHAALTA'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USUARIO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NIFCIF'
            DataType = datString
            Size = 10
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'NOMBRE'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CALLE'
            DataType = datString
            Size = 150
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PROVINCIA'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOPOSTAL'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'POBLACION'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO1'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TELEFONO2'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'MOVIL'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FAX'
            DataType = datString
            Size = 30
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CORREO1'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CORREO2'
            DataType = datString
            Size = 60
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PAGINAWEB'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PUESTO'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TRABAJO'
            DataType = datString
            Size = 300
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DATOSFACTURACION'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'DATOSBANCARIOS'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_CODIGO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOS'
            SQL = 
              'UPDATE CONTACTOS'#10'  SET '#10'    CODIGOEMPRESA = :CODIGOEMPRESA, '#10'   ' +
              ' FECHAALTA = :FECHAALTA, '#10'    USUARIO = :USUARIO, '#10'    NIFCIF = ' +
              ':NIFCIF, '#10'    NOMBRE = :NOMBRE, '#10'    CALLE = :CALLE, '#10'    PROVIN' +
              'CIA = :PROVINCIA, '#10'    CODIGOPOSTAL = :CODIGOPOSTAL, '#10'    POBLAC' +
              'ION = :POBLACION, '#10'    TELEFONO1 = :TELEFONO1, '#10'    TELEFONO2 = ' +
              ':TELEFONO2, '#10'    MOVIL = :MOVIL, '#10'    FAX = :FAX, '#10'    CORREO1 =' +
              ' :CORREO1, '#10'    CORREO2 = :CORREO2, '#10'    PAGINAWEB = :PAGINAWEB,' +
              ' '#10'    PUESTO = :PUESTO, '#10'    TRABAJO = :TRABAJO,'#10'    DATOSFACTUR' +
              'ACION = :DATOSFACTURACION,'#10'    DATOSBANCARIOS = :DATOSBANCARIOS'#10 +
              '  WHERE'#10'    (CODIGO = :OLD_CODIGO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_CONTACTOS'
      end
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOASOCIADO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOSASOCIADOS'
            SQL = 
              'INSERT'#10'  INTO CONTACTOSASOCIADOS'#10'    (CODIGOCONTACTO, CODIGOASOC' +
              'IADO)'#10'  VALUES'#10'    (:CODIGOCONTACTO, :CODIGOASOCIADO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_CONTACTOSASOCIADOS'
      end
      item
        Params = <
          item
            Name = 'CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CODIGOASOCIADO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_CODIGOCONTACTO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_CODIGOASOCIADO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONTACTOSASOCIADOS'
            SQL = 
              'UPDATE CONTACTOSASOCIADOS'#10'  SET '#10'    CODIGOCONTACTO = :CODIGOCON' +
              'TACTO, '#10'    CODIGOASOCIADO = :CODIGOASOCIADO'#10'  WHERE'#10'    (CODIGO' +
              'CONTACTO = :OLD_CODIGOCONTACTO) AND '#10'    (CODIGOASOCIADO = :OLD_' +
              'CODIGOASOCIADO)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_CONTACTOSASOCIADOS'
      end>
    RelationShips = <
      item
        Name = 'FK_CONTACTOSCATEGORIAS_CONTACTOS'
        MasterDatasetName = 'CONTACTOS'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'CONTACTOSCATEGORIAS'
        DetailFields = 'CODIGOCONTACTO'
      end
      item
        Name = 'FK_CONTACTOSCATEGORIAS_CATEGORIAS'
        MasterDatasetName = 'CATEGORIAS'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'CONTACTOSCATEGORIAS'
        DetailFields = 'CODIGOCATEGORIA'
      end
      item
        Name = 'FK_CONTACTOSASOCIADOS_CONTACTOS'
        MasterDatasetName = 'CONTACTOS'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'CONTACTOSASOCIADOS'
        DetailFields = 'CODIGOCONTACTO'
      end
      item
        Name = 'FK_CONTACTOSASOCIADOS_CONTACTOS'
        MasterDatasetName = 'CONTACTOS'
        MasterFields = 'CODIGO'
        DetailDatasetName = 'CONTACTOSASOCIADOS'
        DetailFields = 'CODIGOASOCIADO'
      end>
    UpdateRules = <
      item
        Name = 'Delete CONTACTOSASOCIADOS'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'CONTACTOSASOCIADOS'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete CategoriasContacto'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'CONTACTOSCATEGORIAS'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete Contactos'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'CONTACTOS'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert Contactos'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'CONTACTOS'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert CategoriasContacto'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'CONTACTOSCATEGORIAS'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Insert CONTACTOSASOCIADOS'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'CONTACTOSASOCIADOS'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update Contactos'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'Contactos'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update CategoriasContacto'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'CONTACTOSCATEGORIAS'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update CONTACTOSASOCIADOS'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'CONTACTOSASOCIADOS'
        FailureBehaviour = fbRaiseException
      end>
    Left = 32
    Top = 16
  end
  object frxReport1: TfrxReport
    Version = '3.23.7'
    DotMatrixReport = False
    EngineOptions.DoublePass = True
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    ReportOptions.CreateDate = 38658.761816215280000000
    ReportOptions.LastChange = 38658.776815497690000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 296
    Top = 16
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      object MasterData1: TfrxMasterData
        Height = 22.677180000000000000
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo1: TfrxMemoView
          Left = 3.779530000000000000
          Width = 79.370130000000000000
          Height = 18.897650000000000000
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Memo.UTF8 = (
            '[frxDBDataset1."nombre"]')
        end
      end
    end
  end
  object DACDSDataTable1: TDACDSDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'CODIGOEMPRESA'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CODIGOEMPRESA'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CODIGO'
        DataType = datAutoInc
        BlobType = dabtUnknown
        GeneratorName = 'GEN_CONTACTOS'
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CODIGOCONTACTO_GEN'
        InPrimaryKey = True
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'FECHAALTA'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'FECHAALTA'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'USUARIO'
        DataType = datString
        Size = 100
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'USUARIO'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'NIFCIF'
        DataType = datString
        Size = 10
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'NIFCIF'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'NOMBRE'
        DataType = datString
        Size = 100
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'NOMBRE'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'NOTAS'
        DataType = datString
        Size = 2000
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'NOTAS'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CALLE'
        DataType = datString
        Size = 150
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CALLE'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'PROVINCIA'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'PROVINCIA'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CODIGOPOSTAL'
        DataType = datString
        Size = 5
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CODIGOPOSTAL'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'POBLACION'
        DataType = datString
        Size = 40
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'POBLACION'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'TELEFONO1'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'TELEFONOPARTICULAR'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'TELEFONO2'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'TELEFONOTRABAJO'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'MOVIL'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'MOVIL'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'FAX'
        DataType = datString
        Size = 30
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'FAX'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CORREO1'
        DataType = datString
        Size = 60
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CORREO1'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CORREO2'
        DataType = datString
        Size = 60
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'CORREO2'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'PAGINAWEB'
        DataType = datString
        Size = 100
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'PAGINAWEB'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'PERSONACONTACTO'
        DataType = datString
        Size = 100
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        DictionaryEntry = 'PERSONACONTACTO'
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteFetchEnabled = False
    SchemaCall.Params = <>
    DataRequestCall.Params = <>
    DataUpdateCall.Params = <>
    ScriptCall.Params = <>
    ReadOnly = False
    Adapter = DABINAdapter
    LocalSchema = schContactos
    LocalConnection = 'IBX'
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Contactos'
    IndexDefs = <>
    Left = 296
    Top = 72
  end
  object DADataSource1: TDADataSource
    DataTable = DACDSDataTable1
    Left = 352
    Top = 72
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    CloseDataSource = True
    DataSource = DADataSource1
    Left = 352
    Top = 16
  end
  object bpCategorias: TDABusinessProcessor
    Schema = schContactos
    InsertCommandName = 'Insert_CONTACTOSCATEGORIAS'
    UpdateCommandName = 'Update_CONTACTOSCATEGORIAS'
    RefreshDatasetName = 'REFRESCOCONTACTOSCATEGORIAS'
    ReferencedDataset = 'CONTACTOSCATEGORIAS'
    ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 128
    Top = 64
  end
  object bpContactos: TDABusinessProcessor
    Schema = schContactos
    InsertCommandName = 'Insert_CONTACTOS'
    UpdateCommandName = 'Update_CONTACTOS'
    ReferencedDataset = 'CONTACTOS'
    ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 128
    Top = 16
  end
  object bpAsociados: TDABusinessProcessor
    Schema = schContactos
    InsertCommandName = 'Insert_CONTACTOSASOCIADOS'
    UpdateCommandName = 'Update_CONTACTOSASOCIADOS'
    RefreshDatasetName = 'REFRESCOCONTACTOSASOCIADOS'
    ReferencedDataset = 'CONTACTOSASOCIADOS'
    ProcessorOptions = [poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 128
    Top = 120
  end
  object DABINAdapter: TDABINAdapter
    Left = 32
    Top = 64
  end
end
