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 = '<Diagrams>'#13#10'</Diagrams>'#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 = <
          item
            Name = 'id'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            Name = 'IBX'
            SQL = 'select id'#10'from articulos'#10'where id = :id'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end>
          end>
        Name = 'ExisteImagen'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
          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>
          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
            BlobType = dabtGraphic
            LogChanges = False
            DisplayLabel = 'Foto'
          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>
      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'       CLIENTES_DTOS_PROVEED' +
              'ORES.DESCUENTO,'#10'       V_ARTICULOS.PRECIO_NETO,'#10'       V_ARTICUL' +
              'OS.PRECIO_PVP,'#10'       V_ARTICULOS.INVENTARIABLE,'#10'       V_ARTICU' +
              'LOS.ID_PROVEEDOR,'#10'       V_ARTICULOS.NOMBRE_PROVEEDOR,'#10'       V_' +
              'ARTICULOS.ELIMINADO'#10'FROM V_ARTICULOS'#10'LEFT OUTER JOIN CLIENTES_DT' +
              'OS_PROVEEDORES'#10'ON ((CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR = V_A' +
              'RTICULOS.ID_PROVEEDOR)'#10'AND (CLIENTES_DTOS_PROVEEDORES.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 = '<unknown>'
                SQLOrigin = 'NOMBRE_PROVEEDOR'
              end
              item
                DatasetField = 'ELIMINADO'
                TableField = 'ELIMINADO'
              end
              item
                DatasetField = 'PRECIO_PVP'
                TableField = 'PRECIO_PVP'
              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
            LogChanges = False
          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
            DisplayLabel = 'Eliminado'
          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 = '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>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'ARTICULOS'
            SQL = 
              'INSERT'#10'  INTO ARTICULOS'#10'    (ID, ID_EMPRESA, REFERENCIA, DESCRIP' +
              'CION, FAMILIA,'#10'     COMISIONABLE, FECHA_ALTA, USUARIO,'#10'     PREC' +
              'IO_COSTE, PRECIO_PORTE, DESCUENTO, ID_PROVEEDOR, '#10'     PRECIO_NE' +
              'TO, PRECIO_PVP, REFERENCIA_PROV, INVENTARIABLE, ELIMINADO)'#10'  VAL' +
              'UES'#10'    (:ID, :ID_EMPRESA, :REFERENCIA, :DESCRIPCION, :FAMILIA, ' +
              #10'     :COMISIONABLE, CURRENT_TIMESTAMP,'#10'     :USUARIO, :PRECIO_C' +
              'OSTE, :PRECIO_PORTE, :DESCUENTO, '#10'     :ID_PROVEEDOR, :PRECIO_NE' +
              'TO, :PRECIO_PVP, :REFERENCIA_PROV,'#10'     :INVENTARIABLE, :ELIMINA' +
              'DO)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_Articulos'
      end
      item
        Params = <
          item
            Name = 'IMAGEN'
            DataType = datBlob
            Value = ''
          end
          item
            Name = 'ID'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            Name = 'IBX'
            SQL = 'update articulos'#10'set IMAGEN = :IMAGEN'#10'where ID = :ID'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'ModificarImagen'
      end
      item
        Params = <
          item
            Name = 'id'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            Name = 'IBX'
            SQL = 'update articulos'#10'set imagen = null'#10'where id = :id'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'EliminarImagen'
      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 = '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 = 'INVENTARIABLE'
            DataType = datSmallInt
            Value = ''
          end
          item
            Name = 'REFERENCIA_PROV'
            DataType = datString
            Size = 255
            Value = ''
          end
          item
            Name = 'ELIMINADO'
            DataType = datSmallInt
            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'    COMISIONABLE = :COMISIONABLE,'#10'    FECHA_MODIF' +
              'ICACION = 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_NETO = :PRECIO_NETO,'#10'    PRECIO_PVP = :PRECIO_PVP,'#10'    IN' +
              'VENTARIABLE = :INVENTARIABLE,'#10'    REFERENCIA_PROV = :REFERENCIA_' +
              'PROV,'#10'    ELIMINADO = :ELIMINADO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Articulos'
      end>
    RelationShips = <>
    UpdateRules = <
      item
        Name = 'Insert Articulos'
        DoUpdate = False
        DoDelete = False
        DatasetName = 'Articulos'
        FailureBehavior = fbRaiseException
      end
      item
        Name = 'Update Articulos'
        DoInsert = False
        DoDelete = False
        DatasetName = 'Articulos'
        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
end