LuisLeon_FactuGES/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm

object srvInventario: TsrvInventario
  OldCreateOrder = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ConnectionName = 'IBX'
  ServiceSchema = schInventario
  ServiceAdapter = DABINAdapter
  OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
  OnAfterGetDatasetData = DARemoteServiceAfterGetDatasetData
  Height = 300
  Width = 300
  object schInventario: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'V_INVENTARIO'
            SQL = 
              'SELECT'#10'    ID_ALMACEN, ID_ARTICULO, NOMBRE as ALMACEN, ID_EMPRES' +
              'A, REFERENCIA, FAMILIA,'#10'    DESCRIPCION, REFERENCIA_PROV as REFE' +
              'RENCIA_PROVEEDOR, PRECIO_NETO, STOCK,'#10'    UNIDADES_ALMACEN, COST' +
              'E_UNIDADES, RESERVA, PENDIENTE_RECEPCION,'#10'    '#10'    /*'#10'    NO BOR' +
              'RAR YA QUE SIRVE PARA LAS ENTRADAS Y SALIDAS DE ALMACEN(TABLA MO' +
              'VIMIENTOS)'#10'    DEBERIA GENERAR UNA TABLA DE MOVIMIENTOS INDEPEND' +
              'IENTE DEL INVENTARIO PERO POR FALTA'#10'    DE TIEMPO Y FIABILIDAD Y' +
              'A QUE AHORA FUNCIONA TODO, CREAMOS ESTOS CAMPOS FICTICIOS'#10'    */' +
              #10#10'    0 as ID, 0 as CANTIDAD, current_date as FECHA_MOVIMIENTO, ' +
              'NULL as CAUSA, NULL as TIPO'#10#10#10'FROM V_INVENTARIO'#10'ORDER BY ID_ARTI' +
              'CULO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID_ALMACEN'
                TableField = 'ID_ALMACEN'
              end
              item
                DatasetField = 'ID_ARTICULO'
                TableField = 'ID_ARTICULO'
              end
              item
                DatasetField = 'ALMACEN'
                TableField = 'ALMACEN'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'FAMILIA'
                TableField = 'FAMILIA'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'STOCK'
                TableField = 'STOCK'
              end
              item
                DatasetField = 'RESERVA'
                TableField = 'RESERVA'
              end
              item
                DatasetField = 'PENDIENTE_RECEPCION'
                TableField = 'PENDIENTE_RECEPCION'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'FECHA_MOVIMIENTO'
                TableField = 'FECHA_MOVIMIENTO'
              end
              item
                DatasetField = 'CAUSA'
                TableField = 'CAUSA'
              end
              item
                DatasetField = 'TIPO'
                TableField = 'TIPO'
              end
              item
                DatasetField = 'REFERENCIA'
                TableField = 'REFERENCIA'
              end
              item
                DatasetField = 'REFERENCIA_PROVEEDOR'
                TableField = 'REFERENCIA_PROVEEDOR'
              end
              item
                DatasetField = 'UNIDADES_ALMACEN'
                TableField = 'UNIDADES_ALMACEN'
              end
              item
                DatasetField = 'PRECIO_NETO'
                TableField = 'PRECIO_NETO'
              end
              item
                DatasetField = 'COSTE_UNIDADES'
                TableField = 'COSTE_UNIDADES'
              end>
          end>
        Name = 'INVENTARIO'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_ID'
            InPrimaryKey = True
            Calculated = True
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_ALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_ID_ALMACEN'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_ID_ARTICULO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ALMACEN'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_ALMACEN'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_ID_EMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_REFERENCIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FAMILIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_FAMILIA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PRECIO_NETO'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_PRECIO_NETO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA_PROVEEDOR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'UNIDADES_ALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'COSTE_UNIDADES'
            DataType = datCurrency
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'STOCK'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_STOCK'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'RESERVA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_RESERVA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'PENDIENTE_RECEPCION'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_CANTIDAD'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FECHA_MOVIMIENTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CAUSA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_CAUSA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            DictionaryEntry = 'INVENTARIO_TIPO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_ALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_MOVIMIENTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CAUSA'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MOVIMIENTOS'
            SQL = 
              'INSERT'#10'  INTO MOVIMIENTOS'#10'    (ID, ID_ALMACEN, ID_ARTICULO, FECH' +
              'A_MOVIMIENTO, TIPO, CANTIDAD, CAUSA)'#10'  VALUES'#10'    (:ID, :ID_ALMA' +
              'CEN, :ID_ARTICULO, :FECHA_MOVIMIENTO, :TIPO, :CANTIDAD, :CAUSA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Insert_INVENTARIO'
      end
      item
        Params = <
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MOVIMIENTOS'
            SQL = 'DELETE '#10'  FROM'#10'    MOVIMIENTO'#10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Delete_INVENTARIO'
      end
      item
        Params = <
          item
            Name = 'ID_ALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'FECHA_MOVIMIENTO'
            DataType = datDateTime
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'TIPO'
            DataType = datString
            Size = 1
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'CAUSA'
            DataType = datString
            Size = 2000
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'MOVIMIENTOS'
            SQL = 
              'UPDATE MOVIMIENTOS'#10'  SET '#10'    ID_ALMACEN = :ID_ALMACEN,'#10'    ID_A' +
              'RTICULO = :ID_ARTICULO,'#10'    FECHA_MOVIMIENTO = :FECHA_MOVIMIENTO' +
              ','#10'    TIPO = :TIPO,'#10'    CANTIDAD = :CANTIDAD,'#10'    CAUSA = :CAUSA' +
              #10'  WHERE'#10'    (ID = :OLD_ID)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_INVENTARIO'
      end>
    RelationShips = <>
    UpdateRules = <
      item
        Name = 'Insert INVENTARIO'
        DoUpdate = False
        DoInsert = True
        DoDelete = False
        DatasetName = 'INVENTARIO'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Update INVENTARIO'
        DoUpdate = True
        DoInsert = False
        DoDelete = False
        DatasetName = 'INVENTARIO'
        FailureBehaviour = fbRaiseException
      end
      item
        Name = 'Delete INVENTARIO'
        DoUpdate = False
        DoInsert = False
        DoDelete = True
        DatasetName = 'INVENTARIO'
        FailureBehaviour = fbRaiseException
      end>
    Left = 40
    Top = 16
  end
  object bpInventario: TDABusinessProcessor
    Schema = schInventario
    InsertCommandName = 'Insert_INVENTARIO'
    DeleteCommandName = 'Delete_INVENTARIO'
    UpdateCommandName = 'Update_INVENTARIO'
    ReferencedDataset = 'INVENTARIO'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 208
    Top = 16
  end
  object DABINAdapter: TDABINAdapter
    Left = 40
    Top = 72
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'INVENTARIO_ID_ALMACEN'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_ALMACEN'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_ID_ARTICULO'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_ARTICULO'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_ALMACEN'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ALMACEN'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_ID_EMPRESA'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_EMPRESA'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_REFERENCIA_CLIENTE'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'REFERENCIA_CLIENTE'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_FAMILIA'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'FAMILIA'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_DESCRIPCION'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'DESCRIPCION'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_REFERENCIA_PROVEEDOR'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'REFERENCIA_PROVEEDOR'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_STOCK'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Stock disponible'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_RESERVA'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Reservado'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_PENDIENTE_RECEPCION'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Pendiente de recibir'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_ID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_CANTIDAD'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_FECHA_MOVIMIENTO'
        DataType = datDateTime
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_CAUSA'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_TIPO'
        DataType = datString
        Size = 1
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_REFERENCIA'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_REFERENCIA_PROV'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_UNIDADES_ALMACEN'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'U. Almac'#233'n'
        Alignment = taLeftJustify
      end
      item
        Name = 'INVENTARIO_PRECIO_NETO'
        DataType = datCurrency
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Precio unidad'
        Alignment = taRightJustify
      end
      item
        Name = 'INVENTARIO_COSTE_UNIDADES'
        DataType = datCurrency
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Coste unidades'
        Alignment = taRightJustify
      end>
    Left = 126
    Top = 14
  end
end