LuisLeon_FactuGES/Modulos/Inventario/Servidor/srvInventario_Impl.dfm

object srvInventario: TsrvInventario
  OldCreateOrder = True
  RequiresSession = 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
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'INVENTARIO'
            SQL = 
              'SELECT'#10'    INVENTARIO.ID, INVENTARIO.ID_ALMACEN, INVENTARIO.ID_A' +
              'RTICULO, 0 as CANTIDAD,'#10'    INVENTARIO.ID_PEDIDO_PROVEEDOR, INVE' +
              'NTARIO.ID_PEDIDO_CLIENTE,'#10'    PEDIDOS_CLIENTE.REFERENCIA as REFE' +
              'RENCIA_PED_CLI,'#10'    ALMACENES.NOMBRE as ALMACEN, ALMACENES.ID_EM' +
              'PRESA,'#10'    ARTICULOS.REFERENCIA as REFERENCIA_CLIENTE, ARTICULOS' +
              '.FAMILIA, ARTICULOS.DESCRIPCION,'#10'    ARTICULOS_DATOS_PROV.REFERE' +
              'NCIA as REFERENCIA_PROVEEDOR'#10#10'FROM INVENTARIO'#10'LEFT JOIN ALMACENE' +
              'S ON (INVENTARIO.ID_ALMACEN = ALMACENES.ID)'#10'LEFT JOIN ARTICULOS ' +
              'ON (INVENTARIO.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN ARTICULOS_D' +
              'ATOS_PROV ON (INVENTARIO.ID_ARTICULO = ARTICULOS_DATOS_PROV.ID_A' +
              'RTICULO)'#10'LEFT JOIN PEDIDOS_CLIENTE ON (INVENTARIO.ID_PEDIDO_CLIE' +
              'NTE = PEDIDOS_CLIENTE.ID)'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'ALMACEN'
                TableField = 'ALMACEN'
              end
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_ALMACEN'
                TableField = 'ID_ALMACEN'
              end
              item
                DatasetField = 'ID_ARTICULO'
                TableField = 'ID_ARTICULO'
              end
              item
                DatasetField = 'ID_PEDIDO_PROVEEDOR'
                TableField = 'ID_PEDIDO_PROVEEDOR'
              end
              item
                DatasetField = 'ID_PEDIDO_CLIENTE'
                TableField = 'ID_PEDIDO_CLIENTE'
              end
              item
                DatasetField = 'REFERENCIA_PED_CLI'
                TableField = 'REFERENCIA_PED_CLI'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'REFERENCIA_CLIENTE'
                TableField = 'REFERENCIA_CLIENTE'
              end
              item
                DatasetField = 'FAMILIA'
                TableField = 'FAMILIA'
              end
              item
                DatasetField = 'REFERENCIA_PROVEEDOR'
                TableField = 'REFERENCIA_PROVEEDOR'
              end>
          end>
        Name = 'INVENTARIO'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_ALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_PEDIDO_PROVEEDOR'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_PEDIDO_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA_PED_CLI'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA_CLIENTE'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FAMILIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ALMACEN'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Almac'#233'n'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA_PROVEEDOR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end
      item
        Params = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'INVENTARIO'
            SQL = 
              'SELECT'#10'    INVENTARIO.ID, INVENTARIO.ID_ALMACEN, INVENTARIO.ID_A' +
              'RTICULO, 0 as CANTIDAD,'#10'    INVENTARIO.ID_PEDIDO_PROVEEDOR, INVE' +
              'NTARIO.ID_PEDIDO_CLIENTE,'#10'    PEDIDOS_CLIENTE.REFERENCIA as REFE' +
              'RENCIA_PED_CLI,'#10'    ALMACENES.NOMBRE as ALMACEN, ALMACENES.ID_EM' +
              'PRESA,'#10'    ARTICULOS.REFERENCIA as REFERENCIA_CLIENTE, ARTICULOS' +
              '.FAMILIA, ARTICULOS.DESCRIPCION,'#10'    ARTICULOS_DATOS_PROV.REFERE' +
              'NCIA as REFERENCIA_PROVEEDOR'#10#10'FROM INVENTARIO'#10'LEFT JOIN ALMACENE' +
              'S ON (INVENTARIO.ID_ALMACEN = ALMACENES.ID)'#10'LEFT JOIN ARTICULOS ' +
              'ON (INVENTARIO.ID_ARTICULO = ARTICULOS.ID)'#10'LEFT JOIN ARTICULOS_D' +
              'ATOS_PROV ON (INVENTARIO.ID_ARTICULO = ARTICULOS_DATOS_PROV.ID_A' +
              'RTICULO)'#10'LEFT JOIN PEDIDOS_CLIENTE ON (INVENTARIO.ID_PEDIDO_CLIE' +
              'NTE = PEDIDOS_CLIENTE.ID)'#10'WHERE INVENTARIO.ID = :ID'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'ALMACEN'
                TableField = 'ALMACEN'
              end
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_ALMACEN'
                TableField = 'ID_ALMACEN'
              end
              item
                DatasetField = 'ID_ARTICULO'
                TableField = 'ID_ARTICULO'
              end
              item
                DatasetField = 'ID_PEDIDO_PROVEEDOR'
                TableField = 'ID_PEDIDO_PROVEEDOR'
              end
              item
                DatasetField = 'ID_PEDIDO_CLIENTE'
                TableField = 'ID_PEDIDO_CLIENTE'
              end
              item
                DatasetField = 'REFERENCIA_PED_CLI'
                TableField = 'REFERENCIA_PED_CLI'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'CANTIDAD'
                TableField = 'CANTIDAD'
              end
              item
                DatasetField = 'REFERENCIA_CLIENTE'
                TableField = 'REFERENCIA_CLIENTE'
              end
              item
                DatasetField = 'FAMILIA'
                TableField = 'FAMILIA'
              end
              item
                DatasetField = 'REFERENCIA_PROVEEDOR'
                TableField = 'REFERENCIA_PROVEEDOR'
              end>
          end>
        Name = 'INVENTARIO_Refresh'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Required = True
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_ALMACEN'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_ARTICULO'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CANTIDAD'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taRightJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_PEDIDO_PROVEEDOR'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_PEDIDO_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA_PED_CLI'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            DictionaryEntry = 'DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA_CLIENTE'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'FAMILIA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ALMACEN'
            DataType = datString
            Size = 100
            BlobType = dabtUnknown
            DisplayWidth = 0
            DisplayLabel = 'Almac'#233'n'
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'REFERENCIA_PROVEEDOR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            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 = 'ID_PEDIDO_PROVEEDOR'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_PEDIDO_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'INVENTARIO'
            SQL = 
              'INSERT'#10'  INTO INVENTARIO'#10'    (ID, ID_ALMACEN, ID_ARTICULO, ID_PE' +
              'DIDO_PROVEEDOR, ID_PEDIDO_CLIENTE)'#10'  VALUES'#10'    (:ID, :ID_ALMACE' +
              'N, :ID_ARTICULO, :ID_PEDIDO_PROVEEDOR, :ID_PEDIDO_CLIENTE)'
            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 = 'INVENTARIO'
            SQL = 'DELETE '#10'  FROM'#10'    INVENTARIO'#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 = 'ID_PEDIDO_PROVEEDOR'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'ID_PEDIDO_CLIENTE'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'INVENTARIO'
            SQL = 
              'UPDATE INVENTARIO'#10'  SET '#10'    ID_ALMACEN = :ID_ALMACEN,'#10'    ID_AR' +
              'TICULO = :ID_ARTICULO,'#10'    ID_PEDIDO_PROVEEDOR = :ID_PEDIDO_PROV' +
              'EEDOR,'#10'    ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE'#10'  WHERE'#10'    (I' +
              'D = :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'
    RefreshDatasetName = 'INVENTARIO_Refresh'
    ReferencedDataset = 'INVENTARIO'
    ProcessorOptions = [poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 184
    Top = 16
  end
  object DABINAdapter: TDABINAdapter
    Left = 40
    Top = 72
  end
end