2007-11-16 20:58:56 +00:00
|
|
|
inherited DataModuleInventario: TDataModuleInventario
|
|
|
|
|
OnCreate = DAClientDataModuleCreate
|
2007-11-21 16:03:51 +00:00
|
|
|
Height = 238
|
2007-11-16 20:58:56 +00:00
|
|
|
Width = 518
|
|
|
|
|
object RORemoteService: TRORemoteService
|
2007-11-21 16:03:51 +00:00
|
|
|
Message = dmConexion.ROMessage
|
|
|
|
|
Channel = dmConexion.ROChannel
|
2007-11-16 20:58:56 +00:00
|
|
|
ServiceName = 'srvInventario'
|
|
|
|
|
Left = 48
|
|
|
|
|
Top = 24
|
|
|
|
|
end
|
2007-11-21 16:03:51 +00:00
|
|
|
object Bin2DataStreamer: TDABin2DataStreamer
|
|
|
|
|
Left = 48
|
|
|
|
|
Top = 84
|
|
|
|
|
end
|
|
|
|
|
object rda_Inventario: TDARemoteDataAdapter
|
2009-07-08 15:39:46 +00:00
|
|
|
DataStreamer = Bin2DataStreamer
|
2007-11-21 16:03:51 +00:00
|
|
|
GetSchemaCall.RemoteService = RORemoteService
|
|
|
|
|
GetDataCall.RemoteService = RORemoteService
|
|
|
|
|
UpdateDataCall.RemoteService = RORemoteService
|
|
|
|
|
GetScriptsCall.RemoteService = RORemoteService
|
|
|
|
|
RemoteService = RORemoteService
|
|
|
|
|
Left = 51
|
|
|
|
|
Top = 151
|
|
|
|
|
end
|
|
|
|
|
object tbl_DetalleReservas: TDAMemDataTable
|
2007-11-16 20:58:56 +00:00
|
|
|
RemoteUpdatesOptions = []
|
|
|
|
|
Fields = <
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'ID'
|
2007-11-16 20:58:56 +00:00
|
|
|
DataType = datInteger
|
2007-11-21 16:03:51 +00:00
|
|
|
end
|
|
|
|
|
item
|
|
|
|
|
Name = 'ID_EMPRESA'
|
|
|
|
|
DataType = datInteger
|
|
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'ID_ALMACEN'
|
|
|
|
|
DataType = datInteger
|
2007-11-21 16:03:51 +00:00
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'NOMBRE_ALMACEN'
|
2007-11-21 16:03:51 +00:00
|
|
|
DataType = datString
|
2008-09-04 17:38:49 +00:00
|
|
|
Size = 255
|
2007-11-21 16:03:51 +00:00
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'FECHA_RESERVA'
|
2007-11-21 16:03:51 +00:00
|
|
|
DataType = datDateTime
|
2007-11-16 20:58:56 +00:00
|
|
|
end
|
2007-11-21 16:03:51 +00:00
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'CAUSA_RESERVA'
|
2007-11-21 16:03:51 +00:00
|
|
|
DataType = datString
|
2008-09-04 17:38:49 +00:00
|
|
|
Size = 2000
|
2007-11-21 16:03:51 +00:00
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'ID_ARTICULO'
|
2007-11-21 16:03:51 +00:00
|
|
|
DataType = datInteger
|
|
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'REFERENCIA'
|
2007-11-21 16:03:51 +00:00
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
|
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'DESCRIPCION'
|
|
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
2007-11-21 16:03:51 +00:00
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'FAMILIA'
|
2007-11-21 16:03:51 +00:00
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
|
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'UNIDAD_MEDIDA'
|
2007-11-21 16:03:51 +00:00
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
|
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'FABRICANTE'
|
2007-11-21 16:03:51 +00:00
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
|
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'REFERENCIA_FABR'
|
2007-11-21 16:03:51 +00:00
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
|
|
|
|
end
|
|
|
|
|
item
|
2008-09-04 17:38:49 +00:00
|
|
|
Name = 'CANTIDAD'
|
2009-07-08 15:39:46 +00:00
|
|
|
DataType = datCurrency
|
2008-09-04 17:38:49 +00:00
|
|
|
end
|
|
|
|
|
item
|
|
|
|
|
Name = 'ID_ALMACEN_RESERVA'
|
|
|
|
|
DataType = datInteger
|
|
|
|
|
end
|
|
|
|
|
item
|
|
|
|
|
Name = 'NOMBRE_ALMACEN_RESERVA'
|
|
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
2009-07-08 15:39:46 +00:00
|
|
|
end
|
|
|
|
|
item
|
|
|
|
|
Name = 'ID_EMPRESA_ALMACEN_RESERVA'
|
|
|
|
|
DataType = datInteger
|
2007-11-21 16:03:51 +00:00
|
|
|
end>
|
|
|
|
|
Params = <>
|
|
|
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
|
|
|
RemoteDataAdapter = rda_Inventario
|
|
|
|
|
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 = <
|
2007-11-16 20:58:56 +00:00
|
|
|
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
|
2008-09-04 14:33:27 +00:00
|
|
|
item
|
|
|
|
|
Name = 'UNIDAD_MEDIDA'
|
|
|
|
|
DataType = datString
|
|
|
|
|
Size = 255
|
|
|
|
|
end
|
2007-11-16 20:58:56 +00:00
|
|
|
item
|
2007-11-21 16:03:51 +00:00
|
|
|
Name = 'STOCK'
|
2008-09-30 10:06:07 +00:00
|
|
|
DataType = datFloat
|
2007-11-21 16:03:51 +00:00
|
|
|
DisplayLabel = 'Stock disponible'
|
|
|
|
|
DictionaryEntry = 'INVENTARIO_STOCK'
|
2007-11-16 20:58:56 +00:00
|
|
|
end
|
|
|
|
|
item
|
|
|
|
|
Name = 'UNIDADES_ALMACEN'
|
2008-09-30 10:06:07 +00:00
|
|
|
DataType = datFloat
|
2008-07-22 11:21:06 +00:00
|
|
|
DisplayLabel = 'U. Almac'#233'n'
|
2007-11-16 20:58:56 +00:00
|
|
|
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
|
|
|
|
|
end
|
|
|
|
|
item
|
|
|
|
|
Name = 'RESERVA'
|
2008-09-30 10:06:07 +00:00
|
|
|
DataType = datFloat
|
2007-11-16 20:58:56 +00:00
|
|
|
DisplayLabel = 'Reservado'
|
|
|
|
|
DictionaryEntry = 'INVENTARIO_RESERVA'
|
|
|
|
|
end
|
|
|
|
|
item
|
|
|
|
|
Name = 'PENDIENTE_RECEPCION'
|
2008-09-30 10:06:07 +00:00
|
|
|
DataType = datFloat
|
2007-11-16 20:58:56 +00:00
|
|
|
DisplayLabel = 'Pendiente de recibir'
|
|
|
|
|
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
|
|
|
|
|
end
|
2008-07-30 16:25:35 +00:00
|
|
|
item
|
|
|
|
|
Name = 'TIPO_ALMACEN'
|
|
|
|
|
DataType = datString
|
|
|
|
|
Size = 10
|
|
|
|
|
end
|
2007-11-21 16:03:51 +00:00
|
|
|
item
|
|
|
|
|
Name = 'ID'
|
|
|
|
|
DataType = datInteger
|
|
|
|
|
DisplayLabel = 'INVENTARIO_ID'
|
|
|
|
|
DictionaryEntry = 'INVENTARIO_ID'
|
|
|
|
|
InPrimaryKey = True
|
|
|
|
|
end
|
2007-11-16 20:58:56 +00:00
|
|
|
item
|
|
|
|
|
Name = 'CANTIDAD'
|
2008-09-30 10:06:07 +00:00
|
|
|
DataType = datFloat
|
2007-11-16 20:58:56 +00:00
|
|
|
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'
|
2008-09-04 11:46:32 +00:00
|
|
|
end
|
|
|
|
|
item
|
|
|
|
|
Name = 'ID_ALMACEN_RESERVA'
|
|
|
|
|
DataType = datInteger
|
2007-11-16 20:58:56 +00:00
|
|
|
end>
|
|
|
|
|
Params = <>
|
|
|
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
2007-11-21 16:03:51 +00:00
|
|
|
RemoteDataAdapter = rda_Inventario
|
|
|
|
|
LogicalName = 'Inventario'
|
2007-11-16 20:58:56 +00:00
|
|
|
IndexDefs = <>
|
2007-11-21 16:03:51 +00:00
|
|
|
Left = 184
|
|
|
|
|
Top = 128
|
2007-11-16 20:58:56 +00:00
|
|
|
end
|
2007-11-21 16:03:51 +00:00
|
|
|
object ds_Inventario: TDADataSource
|
|
|
|
|
DataSet = tbl_Inventario.Dataset
|
|
|
|
|
DataTable = tbl_Inventario
|
|
|
|
|
Left = 184
|
|
|
|
|
Top = 72
|
2007-11-16 20:58:56 +00:00
|
|
|
end
|
|
|
|
|
end
|