Tecsitel_FactuGES2/Source/Modulos/Inventario/Data/uDataModuleInventario.dfm

inherited DataModuleInventario: TDataModuleInventario
  OnCreate = DAClientDataModuleCreate
  Height = 238
  Width = 518
  object RORemoteService: TRORemoteService
    Message = dmConexion.ROMessage
    Channel = dmConexion.ROChannel
    ServiceName = 'srvInventario'
    Left = 48
    Top = 24
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 48
    Top = 84
  end
  object rda_Inventario: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RORemoteService
    GetDataCall.RemoteService = RORemoteService
    UpdateDataCall.RemoteService = RORemoteService
    GetScriptsCall.RemoteService = RORemoteService
    RemoteService = RORemoteService
    DataStreamer = Bin2DataStreamer
    Left = 51
    Top = 151
  end
  object tbl_DetalleReservas: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID_ALB'
        DataType = datInteger
        DisplayLabel = 'IdAlbaran'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB'
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DisplayLabel = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
      end
      item
        Name = 'REFERENCIA_ALB'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. albar'#195#161'n'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
      end
      item
        Name = 'SITUACION_ALB'
        DataType = datString
        Size = 9
        DisplayLabel = 'Situaci'#195#179'n'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
      end
      item
        Name = 'FECHA_PREVISTA_ENVIO_ALB'
        DataType = datDateTime
        DisplayLabel = 'Fecha prevista de envio'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
      end
      item
        Name = 'ID_ALMACEN_ALB'
        DataType = datInteger
        DisplayLabel = 'IdAlmac'#195#169'n'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
      end
      item
        Name = 'ALMACEN_ALB'
        DataType = datString
        Size = 255
        DisplayLabel = 'Almac'#195#169'n'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
      end
      item
        Name = 'ID_CLIENTE_ALB'
        DataType = datInteger
        DisplayLabel = 'IdCliente'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
      end
      item
        Name = 'CLIENTE_ALB'
        DataType = datString
        Size = 255
        DisplayLabel = 'Cliente'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
      end
      item
        Name = 'ID_ART'
        DataType = datInteger
        DisplayLabel = 'IdArticulo'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART'
      end
      item
        Name = 'FAMILIA_ART'
        DataType = datString
        Size = 255
        DisplayLabel = 'Familia'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_FAMILIA_ART'
      end
      item
        Name = 'REFERENCIA_ART'
        DataType = datString
        Size = 255
        DisplayLabel = 'Referencia'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ART'
      end
      item
        Name = 'REFERENCIA_PROV_ART'
        DataType = datString
        Size = 255
        DisplayLabel = 'Ref. proveedor'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART'
      end
      item
        Name = 'DESCRIPCION_ART'
        DataType = datString
        Size = 255
        DisplayLabel = 'Descripci'#195#179'n'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART'
      end
      item
        Name = 'CANTIDAD_ART'
        DataType = datLargeInt
        DisplayLabel = 'Reservado'
        DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Inventario
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'DetalleReservas'
    IndexDefs = <>
    Left = 360
    Top = 128
  end
  object ds_DetalleReservas: TDADataSource
    DataSet = tbl_DetalleReservas.Dataset
    DataTable = tbl_DetalleReservas
    Left = 360
    Top = 72
  end
  object tbl_Inventario: TDAMemDataTable
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ID_ALMACEN'
        DataType = datInteger
        DictionaryEntry = 'INVENTARIO_ID_ALMACEN'
      end
      item
        Name = 'ID_ARTICULO'
        DataType = datInteger
        DictionaryEntry = 'INVENTARIO_ID_ARTICULO'
      end
      item
        Name = 'ALMACEN'
        DataType = datString
        Size = 255
        DictionaryEntry = 'INVENTARIO_ALMACEN'
      end
      item
        Name = 'ID_EMPRESA'
        DataType = datInteger
        DictionaryEntry = 'INVENTARIO_ID_EMPRESA'
      end
      item
        Name = 'REFERENCIA'
        DataType = datString
        Size = 255
        DisplayLabel = 'INVENTARIO_REFERENCIA'
        DictionaryEntry = 'INVENTARIO_REFERENCIA'
      end
      item
        Name = 'FAMILIA'
        DataType = datString
        Size = 255
        DictionaryEntry = 'INVENTARIO_FAMILIA'
      end
      item
        Name = 'DESCRIPCION'
        DataType = datString
        Size = 255
        DictionaryEntry = 'INVENTARIO_DESCRIPCION'
      end
      item
        Name = 'REFERENCIA_PROVEEDOR'
        DataType = datString
        Size = 255
        DictionaryEntry = 'INVENTARIO_REFERENCIA_PROVEEDOR'
      end
      item
        Name = 'PRECIO_NETO'
        DataType = datCurrency
        DisplayLabel = 'Precio unidad'
        Alignment = taRightJustify
        DictionaryEntry = 'INVENTARIO_PRECIO_NETO'
      end
      item
        Name = 'STOCK'
        DataType = datLargeInt
        DisplayLabel = 'Stock disponible'
        DictionaryEntry = 'INVENTARIO_STOCK'
      end
      item
        Name = 'UNIDADES_ALMACEN'
        DataType = datLargeInt
        DisplayLabel = 'U. Almac'#195#169'n'
        DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
      end
      item
        Name = 'COSTE_UNIDADES'
        DataType = datCurrency
        DisplayLabel = 'Coste unidades'
        Alignment = taRightJustify
        DictionaryEntry = 'INVENTARIO_COSTE_UNIDADES'
      end
      item
        Name = 'RESERVA'
        DataType = datLargeInt
        DisplayLabel = 'Reservado'
        DictionaryEntry = 'INVENTARIO_RESERVA'
      end
      item
        Name = 'PENDIENTE_RECEPCION'
        DataType = datLargeInt
        DisplayLabel = 'Pendiente de recibir'
        DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
      end
      item
        Name = 'ID'
        DataType = datInteger
        LogChanges = False
        DisplayLabel = 'INVENTARIO_ID'
        DictionaryEntry = 'INVENTARIO_ID'
        InPrimaryKey = True
        Calculated = True
      end
      item
        Name = 'CANTIDAD'
        DataType = datInteger
        DisplayLabel = 'INVENTARIO_CANTIDAD'
        DictionaryEntry = 'INVENTARIO_CANTIDAD'
      end
      item
        Name = 'FECHA_MOVIMIENTO'
        DataType = datDateTime
        DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO'
        DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO'
      end
      item
        Name = 'CAUSA'
        DataType = datString
        Size = 255
        DisplayLabel = 'INVENTARIO_CAUSA'
        DictionaryEntry = 'INVENTARIO_CAUSA'
      end
      item
        Name = 'TIPO'
        DataType = datString
        Size = 1
        DisplayLabel = 'INVENTARIO_TIPO'
        DictionaryEntry = 'INVENTARIO_TIPO'
      end>
    Params = <>
    StreamingOptions = [soDisableEventsWhileStreaming]
    RemoteDataAdapter = rda_Inventario
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Inventario'
    IndexDefs = <>
    Left = 184
    Top = 128
  end
  object ds_Inventario: TDADataSource
    DataSet = tbl_Inventario.Dataset
    DataTable = tbl_Inventario
    Left = 184
    Top = 72
  end
end