object srvArticulos: TsrvArticulos OldCreateOrder = True OnCreate = DARemoteServiceCreate RequiresSession = True SessionManager = dmServer.SessionManager AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schArticulos ServiceAdapter = DABINAdapter OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection OnAfterGetDatasetData = DARemoteServiceAfterGetDatasetData Height = 249 Width = 343 object Diagrams: TDADiagrams Left = 150 Top = 74 DiagramData = ''#13#10''#13#10 end object DataDictionary: TDADataDictionary Fields = < item Name = 'Articulos_REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Referencia' Alignment = taLeftJustify end item Name = 'Articulos_DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Descripci'#243'n' Alignment = taLeftJustify end item Name = 'Articulos_FAMILIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Familia' Alignment = taLeftJustify end item Name = 'Articulos_IMAGEN' DataType = datBlob BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Foto' Alignment = taLeftJustify end item Name = 'Articulos_COMISIONABLE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Comisionable' Alignment = taLeftJustify end item Name = 'Articulos_FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FECHA_ALTA' Alignment = taLeftJustify end item Name = 'Articulos_FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FECHA_MODIFICACION' Alignment = taLeftJustify end item Name = 'Articulos_USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'USUARIO' Alignment = taLeftJustify end item Name = 'Articulos_REFERENCIA_PROVEEDOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Ref. proveedor' Alignment = taLeftJustify end item Name = 'Articulos_PRECIO_COSTE' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe' Alignment = taLeftJustify end item Name = 'Articulos_PRECIO_PORTE' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Porte' Alignment = taLeftJustify end item Name = 'Articulos_DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Descuento' Alignment = taLeftJustify end item Name = 'Articulos_ID' DataType = datInteger BlobType = dabtUnknown Required = True DisplayWidth = 0 DisplayLabel = 'ID' Alignment = taLeftJustify end item Name = 'Articulos_ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_EMPRESA' Alignment = taLeftJustify end item Name = 'Articulos_PRECIO_NETO' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'PRECIO_NETO' Alignment = taLeftJustify end item Name = 'Articulos_ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_PROVEEDOR' Alignment = taLeftJustify ServerAutoRefresh = True end item Name = 'Articulos_NOMBRE_PROVEEDOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Nombre' Alignment = taLeftJustify ServerAutoRefresh = True end> Left = 150 Top = 22 end object schArticulos: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Diagrams = Diagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_ARTICULOS' SQL = 'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' + 'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' + 'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' + ','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' + ' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' + 'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' V_ARTICULOS.DESCUENTO' + ','#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIAB' + 'LE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_P' + 'ROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'FAMILIA' TableField = 'FAMILIA' end item DatasetField = 'IMAGEN' TableField = 'IMAGEN' end item DatasetField = 'COMISIONABLE' TableField = 'COMISIONABLE' 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_PROV' TableField = 'REFERENCIA_PROV' end item DatasetField = 'PRECIO_COSTE' TableField = 'PRECIO_COSTE' end item DatasetField = 'PRECIO_PORTE' TableField = 'PRECIO_PORTE' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'PRECIO_NETO' TableField = 'PRECIO_NETO' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'NOMBRE_PROVEEDOR' TableField = 'NOMBRE_PROVEEDOR' end item DatasetField = 'INVENTARIABLE' TableField = 'INVENTARIABLE' end item DatasetField = 'ELIMINADO' TableField = 'ELIMINADO' end> end> Name = 'Articulos' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FAMILIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMAGEN' DataType = datBlob BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'COMISIONABLE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PRECIO_COSTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PRECIO_PORTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PRECIO_NETO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'INVENTARIABLE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ELIMINADO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Eliminado' Alignment = taLeftJustify 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 = '1' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'V_ARTICULOS' SQL = 'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' + 'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' + 'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' + ','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' + ' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' + 'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' V_ARTICULOS.DESCUENTO' + ','#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICULOS.INVENTARIAB' + 'LE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTICULOS.NOMBRE_P' + 'ROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'WHERE V_' + 'ARTICULOS.ID = :ID' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' end item DatasetField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION' end item DatasetField = 'PRECIO_COSTE' TableField = 'PRECIO_COSTE' end item DatasetField = 'PRECIO_PORTE' TableField = 'PRECIO_PORTE' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'NOMBRE_PROVEEDOR' TableField = 'NOMBRE_PROVEEDOR' end item DatasetField = 'PRECIO_NETO' TableField = 'PRECIO_NETO' end item DatasetField = 'REFERENCIA_PROV' TableField = 'REFERENCIA_PROV' end item DatasetField = 'INVENTARIABLE' TableField = 'INVENTARIABLE' end item DatasetField = 'ELIMINADO' TableField = 'ELIMINADO' end> end> Name = 'Articulos_Refresh' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PRECIO_COSTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PRECIO_PORTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PRECIO_NETO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'INVENTARIABLE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ELIMINADO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Eliminado' Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID_CLIENTE' BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'ARTICULOS' SQL = 'SELECT V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.REFER' + 'ENCIA, V_ARTICULOS.DESCRIPCION,'#10' V_ARTICULOS.FAMILIA, V_AR' + 'TICULOS.IMAGEN, V_ARTICULOS.COMISIONABLE, V_ARTICULOS.FECHA_ALTA' + ','#10' V_ARTICULOS.FECHA_MODIFICACION, V_ARTICULOS.USUARIO,'#10' ' + ' V_ARTICULOS.REFERENCIA_PROV,'#10' V_ARTICULOS.PRECIO_COST' + 'E,'#10' V_ARTICULOS.PRECIO_PORTE,'#10' CLIENTES_DTOS_PROVEED' + 'ORES.DESCUENTO,'#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTICUL' + 'OS.INVENTARIABLE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_ARTI' + 'CULOS.NOMBRE_PROVEEDOR,'#10' V_ARTICULOS.ELIMINADO'#10'FROM V_ARTI' + 'CULOS'#10'LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10'ON ((CLIENTES_DT' + 'OS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10'AND (CLI' + 'ENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'FAMILIA' TableField = 'FAMILIA' end item DatasetField = 'IMAGEN' TableField = 'IMAGEN' end item DatasetField = 'COMISIONABLE' TableField = 'COMISIONABLE' 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_PROV' TableField = 'REFERENCIA_PROV' end item DatasetField = 'PRECIO_COSTE' TableField = 'PRECIO_COSTE' end item DatasetField = 'PRECIO_PORTE' TableField = 'PRECIO_PORTE' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'PRECIO_NETO' TableField = 'PRECIO_NETO' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'NOMBRE_PROVEEDOR' TableField = 'NOMBRE_PROVEEDOR' end item DatasetField = 'INVENTARIABLE' TableField = 'INVENTARIABLE' end item DatasetField = 'ELIMINADO' TableField = 'ELIMINADO' end> end> Name = 'ArticulosParaCliente' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FAMILIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMAGEN' DataType = datBlob BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'COMISIONABLE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PRECIO_COSTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PRECIO_PORTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PRECIO_NETO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'INVENTARIABLE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ELIMINADO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Eliminado' Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end> Commands = < item Params = < item Name = 'ELIMINADO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptUnknown end 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 = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FAMILIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMAGEN' DataType = datBlob BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'COMISIONABLE' DataType = datInteger 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 = 'PRECIO_COSTE' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PRECIO_PORTE' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PRECIO_NETO' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'INVENTARIABLE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'ARTICULOS' SQL = 'INSERT'#10' INTO ARTICULOS'#10' (ID, ID_EMPRESA, REFERENCIA, DESCRIP' + 'CION, FAMILIA, IMAGEN, '#10' COMISIONABLE, FECHA_ALTA, FECHA_MOD' + 'IFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO,' + ' ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV, INVENTARIABLE' + ', ELIMINADO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCR' + 'IPCION, :FAMILIA, '#10' :IMAGEN, :COMISIONABLE, :FECHA_ALTA, :FE' + 'CHA_MODIFICACION, '#10' :USUARIO, :PRECIO_COSTE, :PRECIO_PORTE, ' + ':DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NETO, :REFERENCIA_PROV,' + #10' :INVENTARIABLE, :ELIMINADO)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Articulos' end item Params = < item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'ARTICULOS' SQL = 'UPDATE ARTICULOS'#10'SET ELIMINADO = 1'#10'WHERE (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Articulos' 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 = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FAMILIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMAGEN' DataType = datBlob BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'COMISIONABLE' DataType = datInteger 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 = 'PRECIO_COSTE' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PRECIO_PORTE' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PRECIO_NETO' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'INVENTARIABLE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ELIMINADO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'ARTICULOS' SQL = 'UPDATE ARTICULOS'#10' SET '#10' ID = :ID, '#10' ID_EMPRESA = :ID_EMPR' + 'ESA, '#10' REFERENCIA = :REFERENCIA, '#10' DESCRIPCION = :DESCRIPC' + 'ION, '#10' FAMILIA = :FAMILIA, '#10' IMAGEN = :IMAGEN, '#10' COMISI' + 'ONABLE = :COMISIONABLE, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECH' + 'A_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO, '#10 + ' PRECIO_COSTE = :PRECIO_COSTE, '#10' PRECIO_PORTE = :PRECIO_PO' + 'RTE, '#10' DESCUENTO = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEE' + 'DOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' INVENTARIABLE = :INVEN' + 'TARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_PROV,'#10' ELIMINADO ' + '= :ELIMINADO'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Articulos' end> RelationShips = <> UpdateRules = < item Name = 'Insert Articulos' DoUpdate = False DoInsert = True DoDelete = False DatasetName = 'Articulos' FailureBehaviour = fbRaiseException end item Name = 'Update Articulos' DoUpdate = True DoInsert = False DoDelete = False DatasetName = 'Articulos' FailureBehaviour = fbRaiseException end item Name = 'Delete Articulos' DoUpdate = False DoInsert = False DoDelete = True DatasetName = 'Articulos' FailureBehaviour = fbRaiseException end> Left = 48 Top = 24 end object DABINAdapter: TDABINAdapter Left = 48 Top = 72 end object bpArticulos: TDABusinessProcessor Schema = schArticulos InsertCommandName = 'Insert_Articulos' DeleteCommandName = 'Delete_Articulos' UpdateCommandName = 'Update_Articulos' RefreshDatasetName = 'Articulos_Refresh' ReferencedDataset = 'Articulos' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 264 Top = 24 end end