object srvArticulos: TsrvArticulos OldCreateOrder = True OnCreate = DARemoteServiceCreate ConnectionName = 'IBX' ServiceSchema = schArticulos ServiceDataStreamer = Bin2DataStreamer AllowWhereSQL = True ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 229 Width = 349 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 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 = '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 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> Left = 150 Top = 22 end object schArticulos: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Diagrams = Diagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'ARTICULOS_IDIOMAS' Name = 'IBX' StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'ID_IDIOMA' TableField = 'ID_IDIOMA' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end> end> Name = 'Articulos_Idiomas' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_IDIOMAS_ID' Required = True ServerAutoRefresh = True InPrimaryKey = True end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'ID_IDIOMA' DataType = datInteger end item Name = 'DESCRIPCION' DataType = datString Size = 1000 end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' 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 item DatasetField = 'FECHA_ACTUALIZACION' TableField = 'FECHA_ACTUALIZACION' end> end> Name = 'Articulos_Proveedores' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_PROVEEDORES_ID' Required = True ServerAutoRefresh = 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 end item Name = 'PRECIO_COSTE' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'PRECIO_NETO' DataType = datCurrency end item Name = 'PRECIO_PORTE' DataType = datCurrency end item Name = 'PRECIO_PVP_VENTA' DataType = datCurrency end item Name = 'PRECIO_PVP_TOTAL' DataType = datCurrency end item Name = 'FECHA_ACTUALIZACION' DataType = datDateTime end> end item Params = <> Statements = < item ConnectionType = 'Interbase' Default = True Name = 'IBX' SQL = 'select distinct TARIFA'#10'from articulos'#10'where TARIFA IS NOT NULL'#10'a' + 'nd strlen(TRIM(TARIFA))>0'#10'order by 1 desc'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'TARIFA' TableField = 'TARIFA' end> end> Name = 'ListaTarifasArticulos' Fields = < item Name = 'TARIFA' DataType = datString Size = 255 end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_ARTICULOS' 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 = '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 item DatasetField = 'PRECIO_PVP' TableField = 'PRECIO_PVP' end item DatasetField = 'TARIFA' TableField = 'TARIFA' end item DatasetField = 'FABRICANTE' TableField = 'FABRICANTE' end item DatasetField = 'REFERENCIA_FAB' TableField = 'REFERENCIA_FAB' end item DatasetField = 'STOCK_MIN' TableField = 'STOCK_MIN' end item DatasetField = 'UNIDAD_MEDIDA' TableField = 'UNIDAD_MEDIDA' 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 = '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 DictionaryEntry = 'Articulos_PRECIO_NETO' end item Name = 'PRECIO_PVP' DataType = datCurrency end item Name = 'INVENTARIABLE' DataType = datSmallInt end item Name = 'ID_PROVEEDOR' DataType = datInteger DictionaryEntry = 'Articulos_ID_PROVEEDOR' end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 DictionaryEntry = 'Articulos_NOMBRE_PROVEEDOR' end item Name = 'ELIMINADO' DataType = datSmallInt DisplayLabel = 'Eliminado' end item Name = 'TARIFA' DataType = datString Size = 255 end item Name = 'FABRICANTE' DataType = datString Size = 255 end item Name = 'REFERENCIA_FAB' DataType = datString Size = 50 end item Name = 'STOCK_MIN' DataType = datInteger end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 end> end item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'V_ARTICULOS_PARA_COMPRA' Name = 'IBX' 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 = '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 = 'PRECIO_PVP' TableField = 'PRECIO_PVP' 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 = 'TARIFA' TableField = 'TARIFA' end item DatasetField = 'FABRICANTE' TableField = 'FABRICANTE' end item DatasetField = 'REFERENCIA_FAB' TableField = 'REFERENCIA_FAB' end item DatasetField = 'STOCK_MIN' TableField = 'STOCK_MIN' end item DatasetField = 'UNIDAD_MEDIDA' TableField = 'UNIDAD_MEDIDA' end> end> Name = 'ArticulosParaCompra' Fields = < item Name = 'ID' DataType = datInteger end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'FAMILIA' DataType = datString Size = 255 end item Name = 'IMAGEN' DataType = datBlob end item Name = 'COMISIONABLE' DataType = datSmallInt end item Name = 'FECHA_ALTA' DataType = datDateTime end item Name = 'FECHA_MODIFICACION' DataType = datDateTime end item Name = 'USUARIO' DataType = datString Size = 30 end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 end item Name = 'PRECIO_COSTE' DataType = datCurrency end item Name = 'PRECIO_PORTE' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'PRECIO_NETO' DataType = datCurrency end item Name = 'PRECIO_PVP' DataType = datCurrency end item Name = 'INVENTARIABLE' DataType = datSmallInt end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 end item Name = 'ELIMINADO' DataType = datSmallInt end item Name = 'TARIFA' DataType = datString Size = 255 end item Name = 'FABRICANTE' DataType = datString Size = 255 end item Name = 'REFERENCIA_FAB' DataType = datString Size = 50 end item Name = 'STOCK_MIN' DataType = datInteger end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 end> end item Params = < item Name = 'ID_CLIENTE' 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' '#10' CLIENTES_DATO' + 'S.DESCUENTO_LINEA as DESCUENTO,'#10'/*'#10' CLIENTES_DTOS_PROVEEDO' + 'RES.DESCUENTO,'#10'*/'#10' V_ARTICULOS.PRECIO_NETO,'#10' V_ARTIC' + 'ULOS.INVENTARIABLE,'#10' V_ARTICULOS.ID_PROVEEDOR,'#10' V_AR' + 'TICULOS.NOMBRE_PROVEEDOR,'#10' V_ARTICULOS.ELIMINADO,'#10' V' + '_ARTICULOS.TARIFA'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIENTES_DATO' + 'S'#10'ON (CLIENTES_DATOS.ID_CLIENTE = :ID_CLIENTE)'#10'where {where}'#10 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 = 'INVENTARIABLE' TableField = 'INVENTARIABLE' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'NOMBRE_PROVEEDOR' TableField = '' SQLOrigin = 'NOMBRE_PROVEEDOR' end item DatasetField = 'ELIMINADO' TableField = 'ELIMINADO' end item DatasetField = 'TARIFA' TableField = 'TARIFA' end> end> Name = 'ArticulosParaCliente' Fields = < item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'FAMILIA' DataType = datString Size = 255 end item Name = 'IMAGEN' DataType = datBlob end item Name = 'COMISIONABLE' DataType = datSmallInt end item Name = 'FECHA_ALTA' DataType = datDateTime end item Name = 'FECHA_MODIFICACION' DataType = datDateTime end item Name = 'USUARIO' DataType = datString Size = 30 end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 end item Name = 'PRECIO_COSTE' DataType = datCurrency end item Name = 'PRECIO_PORTE' DataType = datCurrency end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'PRECIO_NETO' DataType = datCurrency end item Name = 'INVENTARIABLE' DataType = datSmallInt end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 end item Name = 'ELIMINADO' DataType = datSmallInt DisplayLabel = 'Eliminado' end item Name = 'TARIFA' DataType = datString Size = 255 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 = 'FAMILIA' DataType = datString Size = 255 Value = '' end item Name = 'IMAGEN' DataType = datBlob Value = '' end item Name = 'COMISIONABLE' DataType = datSmallInt Value = '' end item Name = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'PRECIO_COSTE' DataType = datCurrency Value = '' end item Name = 'PRECIO_PORTE' DataType = datCurrency Value = '' end item Name = 'DESCUENTO' DataType = datFloat Value = '' end item Name = 'ID_PROVEEDOR' DataType = datInteger Value = '' end item Name = 'PRECIO_NETO' DataType = datCurrency Value = '' end item Name = 'PRECIO_PVP' DataType = datCurrency Value = '' end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 Value = '' end item Name = 'INVENTARIABLE' DataType = datSmallInt Value = '' end item Name = 'ELIMINADO' DataType = datSmallInt Value = '' end item Name = 'TARIFA' DataType = datString Size = 255 Value = '' end item Name = 'FABRICANTE' DataType = datString Size = 255 Value = '' end item Name = 'REFERENCIA_FAB' DataType = datString Size = 50 Value = '' end item Name = 'STOCK_MIN' DataType = datInteger Value = '' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 Value = '' 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_MODI' + 'FICACION, USUARIO,'#10' PRECIO_COSTE, PRECIO_PORTE, DESCUENTO, I' + 'D_PROVEEDOR,'#10' PRECIO_NETO, PRECIO_PVP, REFERENCIA_PROV, INVE' + 'NTARIABLE, ELIMINADO, TARIFA,'#10' FABRICANTE, REFERENCIA_FAB, S' + 'TOCK_MIN, UNIDAD_MEDIDA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERE' + 'NCIA, :DESCRIPCION, :FAMILIA,'#10' :IMAGEN, :COMISIONABLE, CURRE' + 'NT_TIMESTAMP, CURRENT_TIMESTAMP,'#10' :USUARIO, :PRECIO_COSTE, :' + 'PRECIO_PORTE, :DESCUENTO,'#10' :ID_PROVEEDOR, :PRECIO_NETO, :PRE' + 'CIO_PVP, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO, :TAR' + 'IFA, :FABRICANTE, :REFERENCIA_FAB, :STOCK_MIN, :UNIDAD_MEDIDA)'#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 = '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 = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'PRECIO_COSTE' DataType = datCurrency Value = '' end item Name = 'PRECIO_PORTE' DataType = datCurrency Value = '' end item Name = 'DESCUENTO' DataType = datFloat Value = '' end item Name = 'ID_PROVEEDOR' DataType = datInteger Value = '' end item Name = 'PRECIO_NETO' DataType = datCurrency Value = '' end item Name = 'PRECIO_PVP' DataType = datCurrency Value = '' end item Name = 'INVENTARIABLE' DataType = datSmallInt Value = '' end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 Value = '' end item Name = 'ELIMINADO' DataType = datSmallInt Value = '' end item Name = 'TARIFA' DataType = datString Size = 255 Value = '' end item Name = 'FABRICANTE' DataType = datString Size = 255 Value = '' end item Name = 'REFERENCIA_FAB' DataType = datString Size = 50 Value = '' end item Name = 'STOCK_MIN' DataType = datInteger Value = '' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 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' FAMILI' + 'A = :FAMILIA, '#10' IMAGEN = :IMAGEN, '#10' COMISIONABLE = :COMISI' + 'ONABLE, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION =' + ' CURRENT_TIMESTAMP,'#10' USUARIO = :USUARIO, '#10' PRECIO_COSTE = ' + ':PRECIO_COSTE, '#10' PRECIO_PORTE = :PRECIO_PORTE, '#10' DESCUENTO' + ' = :DESCUENTO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NE' + 'TO = :PRECIO_NETO,'#10' PRECIO_PVP = :PRECIO_PVP,'#10' INVENTARIAB' + 'LE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_PROV,'#10' ' + ' ELIMINADO = :ELIMINADO,'#10' TARIFA = :TARIFA,'#10' FABRICANTE = ' + ':FABRICANTE,'#10' REFERENCIA_FAB = :REFERENCIA_FAB,'#10' STOCK_MIN' + ' = :STOCK_MIN,'#10' UNIDAD_MEDIDA = :UNIDAD_MEDIDA'#10' WHERE'#10' (I' + 'D = :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' DataType = datInteger Value = '' end item Name = 'ID_PROVEEDOR' DataType = datInteger Value = '' end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 Value = '' end item Name = 'PRECIO_COSTE' DataType = datCurrency Value = '' end item Name = 'DESCUENTO' DataType = datFloat Value = '' end item Name = 'PRECIO_NETO' DataType = datCurrency Value = '' end item Name = 'PRECIO_PORTE' DataType = datCurrency Value = '' end item Name = 'PRECIO_PVP_VENTA' DataType = datCurrency Value = '' end item Name = 'PRECIO_PVP_TOTAL' DataType = datCurrency Value = '' end item Name = 'FECHA_ACTUALIZACION' DataType = datDateTime 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_NE' + 'TO, PRECIO_PORTE, PRECIO_PVP_VENTA, PRECIO_PVP_TOTAL,'#10' FECHA' + '_ACTUALIZACION)'#10' VALUES'#10' (:ID, :ID_ARTICULO, :ID_PROVEEDOR, ' + ':REFERENCIA_PROV,'#10' :PRECIO_COSTE, :DESCUENTO, :PRECIO_NETO, ' + ':PRECIO_PORTE,'#10' :PRECIO_PVP_VENTA, :PRECIO_PVP_TOTAL, :FECHA' + '_ACTUALIZACION)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Articulos_Proveedores' end item Params = < item Name = 'OLD_ID' DataType = datAutoInc Value = '' 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' DataType = datInteger Value = '' end item Name = 'ID_PROVEEDOR' DataType = datInteger Value = '' end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 Value = '' end item Name = 'PRECIO_COSTE' DataType = datCurrency Value = '' end item Name = 'DESCUENTO' DataType = datFloat Value = '' end item Name = 'PRECIO_NETO' DataType = datCurrency Value = '' end item Name = 'PRECIO_PORTE' DataType = datCurrency Value = '' end item Name = 'PRECIO_PVP_VENTA' DataType = datCurrency Value = '' end item Name = 'PRECIO_PVP_TOTAL' DataType = datCurrency Value = '' end item Name = 'FECHA_ACTUALIZACION' DataType = datDateTime 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 = :R' + 'EFERENCIA_PROV, '#10' PRECIO_COSTE = :PRECIO_COSTE, '#10' DESCUENT' + 'O = :DESCUENTO, '#10' PRECIO_NETO = :PRECIO_NETO, '#10' PRECIO_POR' + 'TE = :PRECIO_PORTE, '#10' PRECIO_PVP_VENTA = :PRECIO_PVP_VENTA, '#10 + ' PRECIO_PVP_TOTAL = :PRECIO_PVP_TOTAL,'#10' FECHA_ACTUALIZACIO' + 'N = :FECHA_ACTUALIZACION'#10' WHERE'#10' (ID = :OLD_ID)'#10' '#10' '#10' ' + ' '#10#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Articulos_Proveedores' end item Params = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_IDIOMAS_ID' Value = '' end item Name = 'ID_ARTICULO' DataType = datInteger Value = '' end item Name = 'ID_IDIOMA' DataType = datInteger Value = '' end item Name = 'DESCRIPCION' DataType = datString Size = 1000 Value = '' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'ARTICULOS_IDIOMAS' SQL = 'INSERT'#10' INTO ARTICULOS_IDIOMAS'#10' (ID, ID_ARTICULO, ID_IDIOMA,' + ' DESCRIPCION)'#10' VALUES'#10' (:ID, :ID_ARTICULO, :ID_IDIOMA, :DESC' + 'RIPCION)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Articulos_Idiomas' end item Params = < item Name = 'OLD_ID' DataType = datAutoInc Value = '' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'ARTICULOS_IDIOMAS' SQL = 'DELETE '#10' FROM'#10' ARTICULOS_IDIOMAS'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Articulos_Idiomas' end item Params = < item Name = 'ID_ARTICULO' DataType = datInteger Value = '' end item Name = 'ID_IDIOMA' DataType = datInteger Value = '' end item Name = 'DESCRIPCION' DataType = datString Size = 1000 Value = '' end item Name = 'OLD_ID' DataType = datAutoInc Value = '' end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True TargetTable = 'ARTICULOS_IDIOMAS' SQL = 'UPDATE ARTICULOS_IDIOMAS'#10' SET '#10' ID_ARTICULO = :ID_ARTICULO, ' + #10' ID_IDIOMA = :ID_IDIOMA, '#10' DESCRIPCION = :DESCRIPCION'#10' W' + 'HERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Articulos_Idiomas' end> RelationShips = < item Name = 'FK_Articulos_Idioma1' MasterDatasetName = 'Articulos' MasterFields = 'ID' DetailDatasetName = 'Articulos_Idiomas' DetailFields = 'ID_ARTICULO' RelationshipType = rtForeignKey end 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 = 'Insert Articulos_Idiomas' DoUpdate = False DoDelete = False DatasetName = 'Articulos_Idiomas' FailureBehavior = fbRaiseException end item Name = 'Update Articulos_Proveedores' DoInsert = False DoDelete = False DatasetName = 'Articulos_Proveedores' FailureBehavior = fbRaiseException end item Name = 'Update Articulos_Idiomas' DoInsert = False DoDelete = False DatasetName = 'Articulos_Idiomas' 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_Idiomas' DoUpdate = False DoInsert = False DatasetName = 'Articulos_Idiomas' 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 = 264 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 = 264 Top = 88 end object bpAticulos_Idiomas: TDABusinessProcessor Schema = schArticulos InsertCommandName = 'Insert_Articulos_Idiomas' DeleteCommandName = 'Delete_Articulos_Idiomas' UpdateCommandName = 'Update_Articulos_Idiomas' ReferencedDataset = 'Articulos_Idiomas' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 264 Top = 152 end end