object srvArticulos: TsrvArticulos OldCreateOrder = True OnCreate = DARemoteServiceCreate ConnectionName = 'IBX' ServiceSchema = schArticulos ServiceDataStreamer = Bin2DataStreamer AllowWhereSQL = True ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 229 Width = 517 object DataDictionary: TDADataDictionary Fields = < item Name = 'Articulos_REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Referencia' end item Name = 'Articulos_DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'Descripci'#243'n' end item Name = 'Articulos_FAMILIA' DataType = datString Size = 255 DisplayLabel = 'Familia' end item Name = 'Articulos_IMAGEN' DataType = datBlob DisplayLabel = 'Foto' end item Name = 'Articulos_COMISIONABLE' DataType = datInteger DisplayLabel = 'Comisionable' end item Name = 'Articulos_FECHA_ALTA' DataType = datDateTime DisplayLabel = 'FECHA_ALTA' end item Name = 'Articulos_FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'FECHA_MODIFICACION' end item Name = 'Articulos_USUARIO' DataType = datString Size = 20 DisplayLabel = 'USUARIO' end item Name = 'Articulos_REFERENCIA_PROVEEDOR' DataType = datString Size = 255 DisplayLabel = 'Ref. proveedor' end item Name = 'Articulos_PRECIO_COSTE' DataType = datCurrency DisplayLabel = 'Importe' end item Name = 'Articulos_PRECIO_PORTE' DataType = datCurrency DisplayLabel = 'Precio porte' end item Name = 'Articulos_DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' end item Name = 'Articulos_ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_ID' Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'Articulos_ID_EMPRESA' DataType = datInteger DisplayLabel = 'ID_EMPRESA' end item Name = 'Articulos_PRECIO_NETO' DataType = datCurrency DecimalPrecision = 2 DecimalScale = 2 DisplayLabel = 'Precio neto' end item Name = 'Articulos_ID_PROVEEDOR' DataType = datInteger DisplayLabel = 'ID_PROVEEDOR' ServerAutoRefresh = True end item Name = 'Articulos_NOMBRE_PROVEEDOR' DataType = datString Size = 255 DisplayLabel = 'Nombre' ServerAutoRefresh = True end item Name = 'Articulos_UNIDAD_MEDIDA' DataType = datString Size = 255 DisplayLabel = 'Unidad de medida' end item Name = 'Articulos_INVENTARIABLE' DataType = datSmallInt DisplayLabel = 'Inventariable' end item Name = 'Articulos_ELIMINADO' DataType = datSmallInt DisplayLabel = 'Eliminado' end item Name = 'Articulos_FABRICANTE' DataType = datString Size = 255 DisplayLabel = 'Fabricante' end item Name = 'Articulos_REFERENCIA_FABR' DataType = datString Size = 255 DisplayLabel = 'Ref. fabricante' end item Name = 'Articulos_PARAM_MARGEN' DataType = datFloat DisplayLabel = 'Margen' end item Name = 'Articulos_PRECIO_PVP_VENTA' DataType = datCurrency DisplayLabel = 'Precio PVP (Solo suministro)' Alignment = taRightJustify ServerAutoRefresh = True end item Name = 'Articulos_TIEMPO' DataType = datInteger DisplayLabel = 'Tiempo' end item Name = 'Articulos_PARAM_TIEMPO' DataType = datFloat DisplayLabel = 'Precio min' Alignment = taRightJustify end item Name = 'Articulos_MANO_OBRA' DataType = datCurrency DisplayLabel = 'Mano de obra' Alignment = taRightJustify end item Name = 'Articulos_PRECIO_PVP_TOTAL' DataType = datCurrency DisplayLabel = 'Precio P.V.P (Total)' Alignment = taRightJustify ServerAutoRefresh = True end> Left = 150 Top = 22 end object schArticulos: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Datasets = < item Params = < item Name = 'ID_EMPRESA' Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_ARTICULOS_PARA_COMPRA' Name = 'IBX' SQL = 'select distinct ID_PROVEEDOR, NOMBRE'#10'from V_articulos_PARA_COMPR' + 'A'#10'inner join contactos on (contactos.ID = V_articulos_PARA_COMPR' + 'A.ID_PROVEEDOR)'#10'where ID_EMPRESA = :ID_EMPRESA'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'NOMBRE' TableField = '' SQLOrigin = 'NOMBRE' end> end> Name = 'ProveedoresConArticulos' Fields = < item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end> end item Params = <> Statements = < item ConnectionType = 'Interbase' Default = True TargetTable = 'ARTICULOS_PROVEEDORES' Name = 'IBX' StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'REFERENCIA_PROV' TableField = 'REFERENCIA_PROV' end item DatasetField = 'PRECIO_COSTE' TableField = 'PRECIO_COSTE' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'PRECIO_NETO' TableField = 'PRECIO_NETO' end item DatasetField = 'PRECIO_PORTE' TableField = 'PRECIO_PORTE' end item DatasetField = 'PRECIO_PVP_VENTA' TableField = 'PRECIO_PVP_VENTA' end item DatasetField = 'PRECIO_PVP_TOTAL' TableField = 'PRECIO_PVP_TOTAL' end> end> Name = 'Articulos_Proveedores' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_PROVEEDORES_ID' Required = True InPrimaryKey = True end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR' end item Name = 'PRECIO_COSTE' DataType = datCurrency DictionaryEntry = 'Articulos_PRECIO_COSTE' end item Name = 'DESCUENTO' DataType = datFloat DictionaryEntry = 'Articulos_DESCUENTO' end item Name = 'PRECIO_NETO' DataType = datCurrency DecimalPrecision = 2 DecimalScale = 2 DictionaryEntry = 'Articulos_PRECIO_NETO' end item Name = 'PRECIO_PORTE' DataType = datCurrency DictionaryEntry = 'Articulos_PRECIO_PORTE' end item Name = 'PRECIO_PVP_VENTA' DataType = datCurrency ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA' end item Name = 'PRECIO_PVP_TOTAL' DataType = datCurrency ServerAutoRefresh = True end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_ARTICULOS_PARA_VENTA' StatementType = stAutoSQL 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 = 'UNIDAD_MEDIDA' TableField = 'UNIDAD_MEDIDA' 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 = 'INVENTARIABLE' TableField = 'INVENTARIABLE' end item DatasetField = 'ELIMINADO' TableField = 'ELIMINADO' end item DatasetField = 'FABRICANTE' TableField = 'FABRICANTE' end item DatasetField = 'REFERENCIA_FABR' TableField = 'REFERENCIA_FABR' end item DatasetField = 'PARAM_MARGEN' TableField = 'PARAM_MARGEN' end item DatasetField = 'PRECIO_PVP_VENTA' TableField = 'PRECIO_PVP_VENTA' end item DatasetField = 'TIEMPO' TableField = 'TIEMPO' end item DatasetField = 'PARAM_TIEMPO' TableField = 'PARAM_TIEMPO' end item DatasetField = 'MANO_OBRA' TableField = 'MANO_OBRA' end item DatasetField = 'PRECIO_PVP_TOTAL' TableField = 'PRECIO_PVP_TOTAL' end item DatasetField = 'CAMPOTECNICO' TableField = 'CAMPOTECNICO' end item DatasetField = 'CODIGOTECNICO' TableField = 'CODIGOTECNICO' end item DatasetField = 'DISENOTECNICO' TableField = 'DISENOTECNICO' end item DatasetField = 'PRECIO' TableField = 'PRECIO' end> end> Name = 'Articulos' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_ID' ServerAutoRefresh = True DictionaryEntry = 'Articulos_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'Articulos_ID_EMPRESA' end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'Articulos_REFERENCIA' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DictionaryEntry = 'Articulos_DESCRIPCION' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 DictionaryEntry = 'Articulos_UNIDAD_MEDIDA' end item Name = 'FAMILIA' DataType = datString Size = 255 DictionaryEntry = 'Articulos_FAMILIA' end item Name = 'IMAGEN' DataType = datBlob DictionaryEntry = 'Articulos_IMAGEN' end item Name = 'COMISIONABLE' DataType = datInteger DictionaryEntry = 'Articulos_COMISIONABLE' end item Name = 'FECHA_ALTA' DataType = datDateTime DictionaryEntry = 'Articulos_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DictionaryEntry = 'Articulos_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DictionaryEntry = 'Articulos_USUARIO' end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR' end item Name = 'PRECIO_COSTE' DataType = datCurrency DictionaryEntry = 'Articulos_PRECIO_COSTE' end item Name = 'PRECIO_PORTE' DataType = datCurrency DictionaryEntry = 'Articulos_PRECIO_PORTE' end item Name = 'DESCUENTO' DataType = datFloat DictionaryEntry = 'Articulos_DESCUENTO' end item Name = 'PRECIO_NETO' DataType = datCurrency DecimalPrecision = 2 DecimalScale = 2 DictionaryEntry = 'Articulos_PRECIO_NETO' end item Name = 'INVENTARIABLE' DataType = datSmallInt DictionaryEntry = 'Articulos_INVENTARIABLE' end item Name = 'ELIMINADO' DataType = datSmallInt DictionaryEntry = 'Articulos_ELIMINADO' end item Name = 'FABRICANTE' DataType = datString Size = 255 DictionaryEntry = 'Articulos_FABRICANTE' end item Name = 'REFERENCIA_FABR' DataType = datString Size = 255 DictionaryEntry = 'Articulos_REFERENCIA_FABR' end item Name = 'PARAM_MARGEN' DataType = datFloat end item Name = 'PRECIO_PVP_VENTA' DataType = datCurrency ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA' end item Name = 'TIEMPO' DataType = datInteger end item Name = 'PARAM_TIEMPO' DataType = datFloat DictionaryEntry = 'Articulos_PARAM_TIEMPO' end item Name = 'MANO_OBRA' DataType = datCurrency DictionaryEntry = 'Articulos_MANO_OBRA' end item Name = 'PRECIO_PVP_TOTAL' DataType = datCurrency ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL' end item Name = 'CAMPOTECNICO' DataType = datString Size = 200 end item Name = 'CODIGOTECNICO' DataType = datString Size = 15 end item Name = 'DISENOTECNICO' DataType = datString Size = 6 end item Name = 'PRECIO' DataType = datCurrency end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_ARTICULOS_PARA_COMPRA' StatementType = stAutoSQL 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 = 'UNIDAD_MEDIDA' TableField = 'UNIDAD_MEDIDA' 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 = 'INVENTARIABLE' TableField = 'INVENTARIABLE' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'NOMBRE_PROVEEDOR' TableField = 'NOMBRE_PROVEEDOR' end item DatasetField = 'ELIMINADO' TableField = 'ELIMINADO' end item DatasetField = 'FABRICANTE' TableField = 'FABRICANTE' end item DatasetField = 'REFERENCIA_FABR' TableField = 'REFERENCIA_FABR' end item DatasetField = 'PARAM_MARGEN' TableField = 'PARAM_MARGEN' end item DatasetField = 'PRECIO_PVP_VENTA' TableField = 'PRECIO_PVP_VENTA' end item DatasetField = 'TIEMPO' TableField = 'TIEMPO' end item DatasetField = 'PARAM_TIEMPO' TableField = 'PARAM_TIEMPO' end item DatasetField = 'MANO_OBRA' TableField = 'MANO_OBRA' end item DatasetField = 'PRECIO_PVP_TOTAL' TableField = 'PRECIO_PVP_TOTAL' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end> end> Name = 'ArticulosParaCompra' Description = #161#161#161#161' Esta tabla debe tener los mismos campos y orden de campos q' + 'ue '#39'Art'#237'culos'#39' !!!!' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_ID' ServerAutoRefresh = True DictionaryEntry = 'Articulos_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'Articulos_ID_EMPRESA' end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'Articulos_REFERENCIA' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DictionaryEntry = 'Articulos_DESCRIPCION' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 DictionaryEntry = 'Articulos_UNIDAD_MEDIDA' end item Name = 'FAMILIA' DataType = datString Size = 255 DictionaryEntry = 'Articulos_FAMILIA' end item Name = 'IMAGEN' DataType = datBlob DictionaryEntry = 'Articulos_IMAGEN' end item Name = 'COMISIONABLE' DataType = datInteger DictionaryEntry = 'Articulos_COMISIONABLE' end item Name = 'FECHA_ALTA' DataType = datDateTime DictionaryEntry = 'Articulos_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DictionaryEntry = 'Articulos_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DictionaryEntry = 'Articulos_USUARIO' end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR' end item Name = 'PRECIO_COSTE' DataType = datCurrency DictionaryEntry = 'Articulos_PRECIO_COSTE' end item Name = 'PRECIO_PORTE' DataType = datCurrency DictionaryEntry = 'Articulos_PRECIO_PORTE' end item Name = 'DESCUENTO' DataType = datFloat DictionaryEntry = 'Articulos_DESCUENTO' end item Name = 'PRECIO_NETO' DataType = datCurrency DecimalPrecision = 2 DecimalScale = 2 DictionaryEntry = 'Articulos_PRECIO_NETO' end item Name = 'INVENTARIABLE' DataType = datSmallInt DictionaryEntry = 'Articulos_INVENTARIABLE' end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 end item Name = 'ELIMINADO' DataType = datSmallInt DictionaryEntry = 'Articulos_ELIMINADO' end item Name = 'FABRICANTE' DataType = datString Size = 255 DictionaryEntry = 'Articulos_FABRICANTE' end item Name = 'REFERENCIA_FABR' DataType = datString Size = 255 DictionaryEntry = 'Articulos_REFERENCIA_FABR' end item Name = 'PARAM_MARGEN' DataType = datFloat end item Name = 'PRECIO_PVP_VENTA' DataType = datCurrency ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA' end item Name = 'TIEMPO' DataType = datInteger end item Name = 'PARAM_TIEMPO' DataType = datFloat DictionaryEntry = 'Articulos_PARAM_TIEMPO' end item Name = 'MANO_OBRA' DataType = datCurrency DictionaryEntry = 'Articulos_MANO_OBRA' end item Name = 'PRECIO_PVP_TOTAL' DataType = datCurrency ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL' end item Name = 'ID_ARTICULO' DataType = datInteger end> end> JoinDataTables = <> UnionDataTables = <> Commands = < item Params = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_ID' Value = '' end item Name = 'ID_EMPRESA' DataType = datInteger Value = '' end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' end item Name = 'DESCRIPCION' DataType = datString Size = 255 Value = '' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 Value = '' end item Name = 'FAMILIA' DataType = datString Size = 255 Value = '' end item Name = 'IMAGEN' DataType = datBlob Value = '' end item Name = 'COMISIONABLE' DataType = datSmallInt Value = '' end item Name = 'FECHA_ALTA' DataType = datDateTime Value = '' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime Value = '' end item Name = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'INVENTARIABLE' DataType = datSmallInt Value = '' end item Name = 'ELIMINADO' DataType = datSmallInt Value = '' end item Name = 'FABRICANTE' DataType = datString Size = 255 Value = '' end item Name = 'REFERENCIA_FABR' DataType = datString Size = 255 Value = '' end item Name = 'PARAM_MARGEN' DataType = datFloat Value = '' end item Name = 'TIEMPO' DataType = datInteger Value = '' end item Name = 'PARAM_TIEMPO' DataType = datFloat Value = '' end item Name = 'MANO_OBRA' DataType = datCurrency Value = '' end item Name = 'CAMPOTECNICO' DataType = datString Size = 200 Value = '' end item Name = 'CODIGOTECNICO' DataType = datString Size = 15 Value = '' end item Name = 'DISENOTECNICO' DataType = datString Size = 6 Value = '' end item Name = 'PRECIO' DataType = datCurrency Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'ARTICULOS' SQL = 'INSERT'#10' INTO ARTICULOS'#10' (ID, ID_EMPRESA, REFERENCIA, DESCRIP' + 'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' + 'LTA, FECHA_MODIFICACION, USUARIO, '#10' INVENTARIABLE, ELIMINADO' + ', FABRICANTE, REFERENCIA_FABR, PARAM_MARGEN, TIEMPO,'#10' PARAM_' + 'TIEMPO, MANO_OBRA,'#10' CAMPOTECNICO, CODIGOTECNICO, DISENOTECNI' + 'CO, PRECIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :DESCRI' + 'PCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, :F' + 'ECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :INVENTARIABLE, ' + ':ELIMINADO, :FABRICANTE, :REFERENCIA_FABR, :PARAM_MARGEN,'#10' :' + 'TIEMPO, :PARAM_TIEMPO, :MANO_OBRA,'#10' :CAMPOTECNICO, :CODIGOTE' + 'CNICO, :DISENOTECNICO, :PRECIO)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Articulos' end item Params = < item Name = 'OLD_ID' DataType = datInteger 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_EMPRESA' DataType = datInteger Value = '' end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' end item Name = 'DESCRIPCION' DataType = datString Size = 255 Value = '' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 Value = '' end item Name = 'FAMILIA' DataType = datString Size = 255 Value = '' end item Name = 'IMAGEN' DataType = datBlob Value = '' end item Name = 'COMISIONABLE' DataType = datSmallInt Value = '' end item Name = 'FECHA_ALTA' DataType = datDateTime Value = '' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime Value = '' end item Name = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'INVENTARIABLE' DataType = datSmallInt Value = '' end item Name = 'ELIMINADO' DataType = datSmallInt Value = '' end item Name = 'FABRICANTE' DataType = datString Size = 255 Value = '' end item Name = 'REFERENCIA_FABR' DataType = datString Size = 255 Value = '' end item Name = 'PARAM_MARGEN' DataType = datFloat Value = '' end item Name = 'TIEMPO' DataType = datInteger Value = '' end item Name = 'PARAM_TIEMPO' DataType = datFloat Value = '' end item Name = 'MANO_OBRA' DataType = datCurrency Value = '' end item Name = 'CAMPOTECNICO' DataType = datString Size = 200 Value = '' end item Name = 'CODIGOTECNICO' DataType = datString Size = 15 Value = '' end item Name = 'DISENOTECNICO' DataType = datString Size = 6 Value = '' end item Name = 'PRECIO' DataType = datCurrency Value = '' end item Name = 'OLD_ID' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'ARTICULOS' SQL = 'UPDATE ARTICULOS'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,'#10' REFERE' + 'NCIA = :REFERENCIA, '#10' DESCRIPCION = :DESCRIPCION, '#10' UNIDAD' + '_MEDIDA = :UNIDAD_MEDIDA,'#10' FAMILIA = :FAMILIA, '#10' IMAGEN = ' + ':IMAGEN, '#10' COMISIONABLE = :COMISIONABLE, '#10' FECHA_ALTA = :F' + 'ECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' U' + 'SUARIO = :USUARIO, '#10' INVENTARIABLE = :INVENTARIABLE,'#10' ELIM' + 'INADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10' REFERENCIA' + '_FABR = :REFERENCIA_FABR,'#10' PARAM_MARGEN = :PARAM_MARGEN,'#10' ' + 'TIEMPO = :TIEMPO,'#10' PARAM_TIEMPO = :PARAM_TIEMPO,'#10' MANO_OBR' + 'A = :MANO_OBRA,'#10' CAMPOTECNICO = :CAMPOTECNICO,'#10' CODIGOTECN' + 'ICO = :CODIGOTECNICO,'#10' DISENOTECNICO = :DISENOTECNICO,'#10' PR' + 'ECIO = :PRECIO'#10#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Articulos' end item Params = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_PROVEEDORES_ID' Value = '' end item Name = 'ID_ARTICULO' Value = '' end item Name = 'ID_PROVEEDOR' Value = '' end item Name = 'REFERENCIA_PROV' Value = '' end item Name = 'PRECIO_COSTE' Value = '' end item Name = 'DESCUENTO' Value = '' end item Name = 'PRECIO_NETO' Value = '' end item Name = 'PRECIO_PORTE' Value = '' end item Name = 'PRECIO_PVP_VENTA' Value = '' end item Name = 'PRECIO_PVP_TOTAL' Value = '' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'ARTICULOS_PROVEEDORES' SQL = 'INSERT'#10' INTO ARTICULOS_PROVEEDORES'#10' (ID, ID_ARTICULO, ID_PRO' + 'VEEDOR, REFERENCIA_PROV, PRECIO_COSTE, '#10' DESCUENTO, PRECIO_N' + 'ETO, PRECIO_PORTE, PRECIO_PVP_VENTA, PRECIO_PVP_TOTAL)'#10' VALUES'#10 + ' (:ID, :ID_ARTICULO, :ID_PROVEEDOR, :REFERENCIA_PROV, '#10' :' + 'PRECIO_COSTE, :DESCUENTO, :PRECIO_NETO, :PRECIO_PORTE, '#10' :PR' + 'ECIO_PVP_VENTA, :PRECIO_PVP_TOTAL)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Articulos_Proveedores' end item Params = < item Name = 'OLD_ID' DataType = datInteger Value = '0' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'ARTICULOS_PROVEEDORES' SQL = 'DELETE '#10' FROM'#10' ARTICULOS_PROVEEDORES'#10' WHERE'#10' (ID = :OLD_' + 'ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Articulos_Proveedores' end item Params = < item Name = 'ID_ARTICULO' Value = '' end item Name = 'ID_PROVEEDOR' Value = '' end item Name = 'REFERENCIA_PROV' Value = '' end item Name = 'PRECIO_COSTE' Value = '' end item Name = 'DESCUENTO' Value = '' end item Name = 'PRECIO_NETO' Value = '' end item Name = 'PRECIO_PORTE' Value = '' end item Name = 'PRECIO_PVP_VENTA' Value = '' end item Name = 'PRECIO_PVP_TOTAL' Value = '' end item Name = 'OLD_ID' Value = '' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'ARTICULOS_PROVEEDORES' SQL = 'UPDATE ARTICULOS_PROVEEDORES'#10' SET '#10' ID_ARTICULO = :ID_ARTICU' + 'LO,'#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' REFERENCIA_PROV = :RE' + 'FERENCIA_PROV, '#10' PRECIO_COSTE = :PRECIO_COSTE, '#10' DESCUENTO' + ' = :DESCUENTO, '#10' PRECIO_NETO = :PRECIO_NETO, '#10' PRECIO_PORT' + 'E = :PRECIO_PORTE, '#10' PRECIO_PVP_VENTA = :PRECIO_PVP_VENTA, '#10' ' + ' PRECIO_PVP_TOTAL = :PRECIO_PVP_TOTAL'#10' WHERE'#10' (ID = :OLD_I' + 'D)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Articulos_Proveedores' end> RelationShips = < item Name = 'FK_Articulos_Proveedor1' MasterDatasetName = 'Articulos' MasterFields = 'ID' DetailDatasetName = 'Articulos_Proveedores' DetailFields = 'ID_ARTICULO' RelationshipType = rtForeignKey end> UpdateRules = < item Name = 'Insert Articulos' DoUpdate = False DoDelete = False DatasetName = 'Articulos' FailureBehavior = fbRaiseException end item Name = 'Insert Articulos_Proveedores' DoUpdate = False DoDelete = False DatasetName = 'Articulos_Proveedores' FailureBehavior = fbRaiseException end item Name = 'Update Articulos_Proveedores' DoInsert = False DoDelete = False DatasetName = 'Articulos_Proveedores' FailureBehavior = fbRaiseException end item Name = 'Update Articulos' DoInsert = False DoDelete = False DatasetName = 'Articulos' FailureBehavior = fbRaiseException end item Name = 'Delete Articulos_Proveedores' DoUpdate = False DoInsert = False DatasetName = 'Articulos_Proveedores' FailureBehavior = fbRaiseException end item Name = 'Delete Articulos' DoUpdate = False DoInsert = False DatasetName = 'Articulos' FailureBehavior = fbRaiseException end> Version = 0 Left = 48 Top = 24 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end object bpArticulos: TDABusinessProcessor Schema = schArticulos InsertCommandName = 'Insert_Articulos' DeleteCommandName = 'Delete_Articulos' UpdateCommandName = 'Update_Articulos' ReferencedDataset = 'Articulos' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 336 Top = 24 end object bpArticulos_Proveedores: TDABusinessProcessor Schema = schArticulos InsertCommandName = 'Insert_Articulos_Proveedores' DeleteCommandName = 'Delete_Articulos_Proveedores' UpdateCommandName = 'Update_Articulos_Proveedores' ReferencedDataset = 'Articulos_Proveedores' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 336 Top = 96 end end