object srvEmpresas: TsrvEmpresas OldCreateOrder = True OnCreate = DARemoteServiceCreate RequiresSession = True AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schEmpresas ServiceAdapter = BINAdapter OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData Height = 157 Width = 351 object schEmpresas: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Diagrams = Diagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS' SQL = 'SELECT'#10' ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, ' + #10' PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, ' + #10' MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, '#10' FEC' + 'HA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO,'#10' REGISTRO_MER' + 'CANTIL, IVA'#10' FROM'#10' EMPRESAS' 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 = 'RAZON_SOCIAL' TableField = 'RAZON_SOCIAL' 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 = 'LOGOTIPO' TableField = 'LOGOTIPO' end item DatasetField = 'REGISTRO_MERCANTIL' TableField = 'REGISTRO_MERCANTIL' end item DatasetField = 'IVA' TableField = 'IVA' end> end> Name = 'Empresas' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Empresas_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'NIF_CIF' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'Empresas_NIF_CIF' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_NOMBRE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'RAZON_SOCIAL' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_RAZON_SOCIAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CALLE' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_CALLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POBLACION' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_POBLACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVINCIA' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_PROVINCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 BlobType = dabtUnknown DictionaryEntry = 'Empresas_CODIGO_POSTAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO_1' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_TELEFONO_1' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO_2' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_TELEFONO_2' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'MOVIL_1' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_MOVIL_1' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'MOVIL_2' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_MOVIL_2' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FAX' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_FAX' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'EMAIL_1' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_EMAIL_1' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'EMAIL_2' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_EMAIL_2' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PAGINA_WEB' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_PAGINA_WEB' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOTAS' DataType = datMemo BlobType = dabtUnknown DictionaryEntry = 'Empresas_NOTAS' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'Empresas_FECHA_ALTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'Empresas_FECHA_MODIFICACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DictionaryEntry = 'Empresas_USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'LOGOTIPO' DataType = datBlob BlobType = dabtBlob DictionaryEntry = 'Empresas_LOGOTIPO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REGISTRO_MERCANTIL' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IVA' DataType = datFloat BlobType = dabtUnknown DictionaryEntry = 'Empresas_IVA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS_DATOS_BANCO' SQL = 'SELECT '#10' ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENT' + 'A, '#10' SUFIJO_N19, SUFIJO_N58'#10' FROM'#10' EMPRESAS_DATOS_BANCO'#10'W' + 'HERE ID_EMPRESA = :ID_EMPRESA' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' 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 = 'SUFIJO_N19' TableField = 'SUFIJO_N19' end item DatasetField = 'SUFIJO_N58' TableField = 'SUFIJO_N58' end> end> Name = 'EmpresasDatosBanco' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_ID_EMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_NOMBRE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ENTIDAD' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_ENTIDAD' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUCURSAL' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_SUCURSAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DC' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_DC' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CUENTA' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_CUENTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUFIJO_N19' DataType = datString Size = 3 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N19' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUFIJO_N58' DataType = datString Size = 3 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N58' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS' SQL = 'SELECT'#10' ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, ' + #10' PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, ' + #10' MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, NOTAS, '#10' FEC' + 'HA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTIPO,'#10' REGISTRO_MER' + 'CANTIL, IVA'#10' FROM'#10' EMPRESAS'#10'WHERE ID = :ID' 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 = 'RAZON_SOCIAL' TableField = 'RAZON_SOCIAL' 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 = 'LOGOTIPO' TableField = 'LOGOTIPO' end item DatasetField = 'REGISTRO_MERCANTIL' TableField = 'REGISTRO_MERCANTIL' end item DatasetField = 'IVA' TableField = 'IVA' end> end> Name = 'Empresas_Refresh' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Empresas_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'NIF_CIF' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'Empresas_NIF_CIF' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_NOMBRE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'RAZON_SOCIAL' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_RAZON_SOCIAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CALLE' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_CALLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POBLACION' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_POBLACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVINCIA' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_PROVINCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 BlobType = dabtUnknown DictionaryEntry = 'Empresas_CODIGO_POSTAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO_1' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_TELEFONO_1' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TELEFONO_2' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_TELEFONO_2' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'MOVIL_1' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_MOVIL_1' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'MOVIL_2' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_MOVIL_2' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FAX' DataType = datString Size = 25 BlobType = dabtUnknown DictionaryEntry = 'Empresas_FAX' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'EMAIL_1' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_EMAIL_1' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'EMAIL_2' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_EMAIL_2' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PAGINA_WEB' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_PAGINA_WEB' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOTAS' DataType = datMemo BlobType = dabtUnknown DictionaryEntry = 'Empresas_NOTAS' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'Empresas_FECHA_ALTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'Empresas_FECHA_MODIFICACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DictionaryEntry = 'Empresas_USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'LOGOTIPO' DataType = datBlob BlobType = dabtBlob DictionaryEntry = 'Empresas_LOGOTIPO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REGISTRO_MERCANTIL' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Empresas_REGISTRO_MERCANTIL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IVA' DataType = datFloat BlobType = dabtUnknown DictionaryEntry = 'Empresas_IVA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS_DATOS_BANCO' SQL = 'SELECT '#10' ID, ID_EMPRESA, NOMBRE, ENTIDAD, SUCURSAL, DC, CUENT' + 'A, '#10' SUFIJO_N19, SUFIJO_N58'#10' FROM'#10' EMPRESAS_DATOS_BANCO'#10'W' + 'HERE ID = :ID' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' 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 = 'SUFIJO_N19' TableField = 'SUFIJO_N19' end item DatasetField = 'SUFIJO_N58' TableField = 'SUFIJO_N58' end> end> Name = 'EmpresasDatosBanco_Refresh' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_ID_EMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_NOMBRE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ENTIDAD' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_ENTIDAD' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUCURSAL' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_SUCURSAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DC' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_DC' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CUENTA' DataType = datString Size = 15 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_CUENTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUFIJO_N19' DataType = datString Size = 3 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N19' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SUFIJO_N58' DataType = datString Size = 3 BlobType = dabtUnknown DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N58' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end> Commands = < item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'NIF_CIF' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'RAZON_SOCIAL' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CALLE' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'POBLACION' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PROVINCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'TELEFONO_1' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'TELEFONO_2' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'MOVIL_1' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'MOVIL_2' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FAX' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'EMAIL_1' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'EMAIL_2' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PAGINA_WEB' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'NOTAS' DataType = datMemo BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'LOGOTIPO' DataType = datBlob BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'REGISTRO_MERCANTIL' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IVA' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS' SQL = 'INSERT'#10' INTO EMPRESAS'#10' (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, C' + 'ALLE, POBLACION, '#10' PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TEL' + 'EFONO_2, MOVIL_1, '#10' MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_W' + 'EB, NOTAS, '#10' FECHA_ALTA, FECHA_MODIFICACION, USUARIO, LOGOTI' + 'PO, '#10' REGISTRO_MERCANTIL, IVA)'#10' VALUES'#10' (:ID, :NIF_CIF, ' + ':NOMBRE, :RAZON_SOCIAL, :CALLE, :POBLACION, '#10' :PROVINCIA, :C' + 'ODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, '#10' :MOVIL_1, :MOVIL_2' + ', :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, '#10' :NOTAS, :FECHA_AL' + 'TA, :FECHA_MODIFICACION, :USUARIO, '#10' :LOGOTIPO, :REGISTRO_ME' + 'RCANTIL, :IVA)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Empresas' end item Params = < item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS' SQL = 'DELETE '#10' FROM'#10' EMPRESAS'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Empresas' end item Params = < item Name = 'NIF_CIF' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'RAZON_SOCIAL' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CALLE' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'POBLACION' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PROVINCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'TELEFONO_1' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'TELEFONO_2' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'MOVIL_1' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'MOVIL_2' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FAX' DataType = datString Size = 25 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'EMAIL_1' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'EMAIL_2' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PAGINA_WEB' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'NOTAS' DataType = datMemo BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'LOGOTIPO' DataType = datBlob BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'REGISTRO_MERCANTIL' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IVA' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS' SQL = 'UPDATE EMPRESAS'#10' SET '#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NOM' + 'BRE, '#10' RAZON_SOCIAL = :RAZON_SOCIAL, '#10' CALLE = :CALLE, '#10' ' + ' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODI' + 'GO_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 = :NOTA' + 'S, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FEC' + 'HA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10' LOGOTIPO = :LOGOT' + 'IPO, '#10' REGISTRO_MERCANTIL = :REGISTRO_MERCANTIL, '#10' IVA = :' + 'IVA'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Empresas' end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ENTIDAD' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'SUCURSAL' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DC' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CUENTA' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'SUFIJO_N19' DataType = datString Size = 3 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'SUFIJO_N58' DataType = datString Size = 3 BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS_DATOS_BANCO' SQL = 'INSERT'#10' INTO EMPRESAS_DATOS_BANCO'#10' (ID, ID_EMPRESA, NOMBRE, ' + 'ENTIDAD, SUCURSAL, DC, CUENTA, '#10' SUFIJO_N19, SUFIJO_N58)'#10' V' + 'ALUES'#10' (:ID, :ID_EMPRESA, :NOMBRE, :ENTIDAD, :SUCURSAL, :DC, ' + #10' :CUENTA, :SUFIJO_N19, :SUFIJO_N58)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_EmpresasDatosBanco' end item Params = < item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS_DATOS_BANCO' SQL = 'DELETE '#10' FROM'#10' EMPRESAS_DATOS_BANCO'#10' WHERE'#10' (ID = :OLD_I' + 'D)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_EmpresasDatosBanco' end item Params = < item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ENTIDAD' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'SUCURSAL' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DC' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CUENTA' DataType = datString Size = 15 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'SUFIJO_N19' DataType = datString Size = 3 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'SUFIJO_N58' DataType = datString Size = 3 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'EMPRESAS_DATOS_BANCO' SQL = 'UPDATE EMPRESAS_DATOS_BANCO'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,' + #10' NOMBRE = :NOMBRE, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = ' + ':SUCURSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA, '#10' SUFIJO_N19' + ' = :SUFIJO_N19, '#10' SUFIJO_N58 = :SUFIJO_N58'#10' WHERE'#10' (ID = ' + ':OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_EmpresasDatosBanco' end> RelationShips = <> UpdateRules = < item Name = 'Insert Empresas' DoUpdate = False DoInsert = True DoDelete = False DatasetName = 'Empresas' FailureBehaviour = fbRaiseException end item Name = 'Insert EmpresasDatosBanco' DoUpdate = False DoInsert = True DoDelete = False DatasetName = 'EmpresasDatosBanco' FailureBehaviour = fbRaiseException end item Name = 'Update Empresas' DoUpdate = True DoInsert = False DoDelete = False DatasetName = 'Empresas' FailureBehaviour = fbRaiseException end item Name = 'Update EmpresasDatosBanco' DoUpdate = True DoInsert = False DoDelete = False DatasetName = 'EmpresasDatosBanco' FailureBehaviour = fbRaiseException end item Name = 'Delete EmpresasDatosBanco' DoUpdate = False DoInsert = False DoDelete = True DatasetName = 'EmpresasDatosBanco' FailureBehaviour = fbRaiseException end item Name = 'Delete Empresas' DoUpdate = False DoInsert = False DoDelete = True DatasetName = 'Empresas' FailureBehaviour = fbRaiseException end> Left = 30 Top = 14 end object BINAdapter: TDABINAdapter Left = 30 Top = 82 end object DataDictionary: TDADataDictionary Fields = < item Name = 'Empresas_ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID' Alignment = taLeftJustify end item Name = 'Empresas_NIF_CIF' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'CIF' Alignment = taLeftJustify end item Name = 'Empresas_NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Nombre' Alignment = taLeftJustify end item Name = 'Empresas_RAZON_SOCIAL' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Raz'#243'n Social' Alignment = taLeftJustify end item Name = 'Empresas_CALLE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Calle' Alignment = taLeftJustify end item Name = 'Empresas_POBLACION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Poblaci'#243'n' Alignment = taLeftJustify end item Name = 'Empresas_PROVINCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Provincia' Alignment = taLeftJustify end item Name = 'Empresas_CODIGO_POSTAL' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'C'#243'd. postal' Alignment = taLeftJustify end item Name = 'Empresas_TELEFONO_1' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Tel'#233'fono 1' Alignment = taLeftJustify end item Name = 'Empresas_TELEFONO_2' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Tel'#233'fono 2' Alignment = taLeftJustify end item Name = 'Empresas_MOVIL_1' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'M'#243'vil 1' Alignment = taLeftJustify end item Name = 'Empresas_MOVIL_2' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'M'#243'vil 2' Alignment = taLeftJustify end item Name = 'Empresas_FAX' DataType = datString Size = 25 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Fax' Alignment = taLeftJustify end item Name = 'Empresas_EMAIL_1' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'E-mail 1' Alignment = taLeftJustify end item Name = 'Empresas_EMAIL_2' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'E-mail 2' Alignment = taLeftJustify end item Name = 'Empresas_PAGINA_WEB' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'P'#225'gina web' Alignment = taLeftJustify end item Name = 'Empresas_NOTAS' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Notas' Alignment = taLeftJustify end item Name = 'Empresas_FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify end item Name = 'Empresas_FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify end item Name = 'Empresas_USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify end item Name = 'Empresas_LOGOTIPO' DataType = datBlob BlobType = dabtBlob DisplayWidth = 0 DisplayLabel = 'Logotipo' Alignment = taLeftJustify end item Name = 'Empresas_REGISTRO_MERCANTIL' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Registro mercantil' Alignment = taLeftJustify end item Name = 'Empresas_IVA' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'IVA' Alignment = taLeftJustify end item Name = 'EmpresasDatosBanco_ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID' Alignment = taLeftJustify end item Name = 'EmpresasDatosBanco_ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify end item Name = 'EmpresasDatosBanco_NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Nombre del banco' Alignment = taLeftJustify end item Name = 'EmpresasDatosBanco_ENTIDAD' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Entidad' Alignment = taLeftJustify end item Name = 'EmpresasDatosBanco_SUCURSAL' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Sucursal' Alignment = taLeftJustify end item Name = 'EmpresasDatosBanco_DC' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'DC' Alignment = taLeftJustify end item Name = 'EmpresasDatosBanco_CUENTA' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Cuenta' Alignment = taLeftJustify end item Name = 'EmpresasDatosBanco_SUFIJO_N19' DataType = datString Size = 3 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Sufijo 19' Alignment = taLeftJustify end item Name = 'EmpresasDatosBanco_SUFIJO_N58' DataType = datString Size = 3 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Sufijo 58' Alignment = taLeftJustify end> Left = 126 Top = 14 end object Diagrams: TDADiagrams Left = 126 Top = 82 DiagramData = ''#13#10' '#13#10' '#13#10''#13#10 end object bpEmpresas: TDABusinessProcessor Schema = schEmpresas InsertCommandName = 'Insert_Empresas' DeleteCommandName = 'Delete_Empresas' UpdateCommandName = 'Update_Empresas' ReferencedDataset = 'Empresas' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 16 end object bpEmpresasDatosBanco: TDABusinessProcessor Schema = schEmpresas InsertCommandName = 'Insert_EmpresasDatosBanco' DeleteCommandName = 'Delete_EmpresasDatosBanco' UpdateCommandName = 'Update_EmpresasDatosBanco' RefreshDatasetName = 'EmpresasDatosBanco_Refresh' ReferencedDataset = 'EmpresasDatosBanco' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 80 end end