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

728 lines
22 KiB
Plaintext

object srvInventario: TsrvInventario
OldCreateOrder = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schInventario
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 168
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, UNIDAD_MEDIDA,'#10'/* RE' +
'FERENCIA_PROV as REFERENCIA_PROVEEDOR, PRECIO_NETO, COSTE_UNIDAD' +
'ES, SE ELIMINAN LOS PRECIOS CON HASTA SABER QUE DECISIONES SE T' +
'OMAN*/'#10' STOCK, UNIDADES_ALMACEN, RESERVA, PENDIENTE_RECEPCION' +
', TIPO_ALMACEN,'#10' '#10' /*'#10' NO BORRAR YA QUE SIRVE PARA LAS ' +
'ENTRADAS Y SALIDAS DE ALMACEN(TABLA MOVIMIENTOS)'#10' DEBERIA GEN' +
'ERAR UNA TABLA DE MOVIMIENTOS INDEPENDIENTE DEL INVENTARIO PERO ' +
'POR FALTA'#10' DE TIEMPO Y FIABILIDAD YA QUE AHORA FUNCIONA TODO,' +
' CREAMOS ESTOS CAMPOS FICTICIOS'#10' */'#10#10' 0 as ID, 0 as CANTID' +
'AD, current_date as FECHA_MOVIMIENTO, NULL as CAUSA, NULL as TIP' +
'O,'#10' 0 as ID_ALMACEN_RESERVA'#10#10#10'FROM V_INVENTARIO'#10'where {where}' +
#10'ORDER BY ID_ARTICULO'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_ALMACEN'
TableField = 'ID_ALMACEN'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'ALMACEN'
TableField = '<unknown>'
SQLOrigin = 'ALMACEN'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'STOCK'
TableField = 'STOCK'
end
item
DatasetField = 'UNIDADES_ALMACEN'
TableField = 'UNIDADES_ALMACEN'
end
item
DatasetField = 'RESERVA'
TableField = 'RESERVA'
end
item
DatasetField = 'PENDIENTE_RECEPCION'
TableField = 'PENDIENTE_RECEPCION'
end
item
DatasetField = 'TIPO_ALMACEN'
TableField = 'TIPO_ALMACEN'
end
item
DatasetField = 'ID'
TableField = '<unknown>'
SQLOrigin = 'ID'
end
item
DatasetField = 'CANTIDAD'
TableField = '<unknown>'
SQLOrigin = 'CANTIDAD'
end
item
DatasetField = 'FECHA_MOVIMIENTO'
TableField = '<unknown>'
SQLOrigin = 'FECHA_MOVIMIENTO'
end
item
DatasetField = 'CAUSA'
TableField = '<unknown>'
SQLOrigin = 'CAUSA'
end
item
DatasetField = 'TIPO'
TableField = '<unknown>'
SQLOrigin = 'TIPO'
end
item
DatasetField = 'ID_ALMACEN_RESERVA'
TableField = '<unknown>'
SQLOrigin = 'ID_ALMACEN_RESERVA'
end>
end>
Name = 'Inventario'
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
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 = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
end
item
Name = 'STOCK'
DataType = datLargeInt
DictionaryEntry = 'INVENTARIO_STOCK'
end
item
Name = 'UNIDADES_ALMACEN'
DataType = datLargeInt
DictionaryEntry = 'INVENTARIO_UNIDADES_ALMACEN'
end
item
Name = 'RESERVA'
DataType = datLargeInt
DictionaryEntry = 'INVENTARIO_RESERVA'
end
item
Name = 'PENDIENTE_RECEPCION'
DataType = datLargeInt
DictionaryEntry = 'INVENTARIO_PENDIENTE_RECEPCION'
end
item
Name = 'TIPO_ALMACEN'
DataType = datString
Size = 10
end
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_ID'
InPrimaryKey = True
end
item
Name = 'CANTIDAD'
DataType = datInteger
DictionaryEntry = 'INVENTARIO_CANTIDAD'
end
item
Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime
DictionaryEntry = 'INVENTARIO_FECHA_MOVIMIENTO'
end
item
Name = 'CAUSA'
DataType = datString
Size = 255
DictionaryEntry = 'INVENTARIO_CAUSA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
DictionaryEntry = 'INVENTARIO_TIPO'
end
item
Name = 'ID_ALMACEN_RESERVA'
DataType = datInteger
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_INV_DETALLE_RESERVAS'
SQL =
'SELECT'#10' ID_ALB,'#10' ID_EMPRESA,'#10' REFERENCIA_ALB,'#10' SITUACION_ALB' +
','#10' FECHA_PREVISTA_ENVIO_ALB,'#10' ID_ALMACEN_ALB,'#10' ALMACEN_ALB,'#10' ' +
' ID_CLIENTE_ALB,'#10' CLIENTE_ALB,'#10' ID_ART,'#10' FAMILIA_ART,'#10' REFER' +
'ENCIA_ART,'#10' REFERENCIA_PROV_ART,'#10' DESCRIPCION_ART,'#10' CANTIDAD_' +
'ART'#10' '#10'FROM V_INV_DETALLE_RESERVAS'#10'where {where}'#10'ORDER BY REFERE' +
'NCIA_ALB'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_ALB'
TableField = 'ID_ALB'
end
item
DatasetField = 'REFERENCIA_ALB'
TableField = 'REFERENCIA_ALB'
end
item
DatasetField = 'SITUACION_ALB'
TableField = 'SITUACION_ALB'
end
item
DatasetField = 'FECHA_PREVISTA_ENVIO_ALB'
TableField = 'FECHA_PREVISTA_ENVIO_ALB'
end
item
DatasetField = 'ID_ALMACEN_ALB'
TableField = 'ID_ALMACEN_ALB'
end
item
DatasetField = 'ALMACEN_ALB'
TableField = 'ALMACEN_ALB'
end
item
DatasetField = 'ID_CLIENTE_ALB'
TableField = 'ID_CLIENTE_ALB'
end
item
DatasetField = 'CLIENTE_ALB'
TableField = 'CLIENTE_ALB'
end
item
DatasetField = 'ID_ART'
TableField = 'ID_ART'
end
item
DatasetField = 'FAMILIA_ART'
TableField = 'FAMILIA_ART'
end
item
DatasetField = 'REFERENCIA_ART'
TableField = 'REFERENCIA_ART'
end
item
DatasetField = 'REFERENCIA_PROV_ART'
TableField = 'REFERENCIA_PROV_ART'
end
item
DatasetField = 'DESCRIPCION_ART'
TableField = 'DESCRIPCION_ART'
end
item
DatasetField = 'CANTIDAD_ART'
TableField = 'CANTIDAD_ART'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end>
end>
Name = 'DetalleReservas'
Fields = <
item
Name = 'ID_ALB'
DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALB'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
end
item
Name = 'REFERENCIA_ALB'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
end
item
Name = 'SITUACION_ALB'
DataType = datString
Size = 9
DictionaryEntry = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
end
item
Name = 'FECHA_PREVISTA_ENVIO_ALB'
DataType = datDateTime
DictionaryEntry = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
end
item
Name = 'ID_ALMACEN_ALB'
DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
end
item
Name = 'ALMACEN_ALB'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
end
item
Name = 'ID_CLIENTE_ALB'
DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
end
item
Name = 'CLIENTE_ALB'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
end
item
Name = 'ID_ART'
DataType = datInteger
DictionaryEntry = 'DETALLE_RESERVAS_INV_ID_ART'
end
item
Name = 'FAMILIA_ART'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_FAMILIA_ART'
end
item
Name = 'REFERENCIA_ART'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_ART'
end
item
Name = 'REFERENCIA_PROV_ART'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART'
end
item
Name = 'DESCRIPCION_ART'
DataType = datString
Size = 255
DictionaryEntry = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART'
end
item
Name = 'CANTIDAD_ART'
DataType = datLargeInt
DictionaryEntry = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_MOVIMIENTOS_ID'
Value = ''
end
item
Name = 'ID_ALMACEN'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end
item
Name = 'FECHA_MOVIMIENTO'
Value = ''
end
item
Name = 'TIPO'
Value = ''
end
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'CAUSA'
Value = ''
end
item
Name = 'ID_ALMACEN_RESERVA'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'MOVIMIENTOS'
SQL =
'INSERT'#10' INTO MOVIMIENTOS'#10' (ID, ID_ALMACEN, ID_ARTICULO, FECH' +
'A_MOVIMIENTO, TIPO, CANTIDAD, CAUSA, ID_ALMACEN_RESERVA)'#10' VALUE' +
'S'#10' (:ID, :ID_ALMACEN, :ID_ARTICULO, :FECHA_MOVIMIENTO, :TIPO,' +
' :CANTIDAD, :CAUSA, :ID_ALMACEN_RESERVA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_INVENTARIO'
end
item
Params = <
item
Name = 'OLD_ID'
Value = ''
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'
Value = ''
end
item
Name = 'ID_ALMACEN'
Value = ''
end
item
Name = 'ID_ARTICULO'
Value = ''
end
item
Name = 'FECHA_MOVIMIENTO'
Value = ''
end
item
Name = 'TIPO'
Value = ''
end
item
Name = 'CANTIDAD'
Value = ''
end
item
Name = 'CAUSA'
Value = ''
end
item
Name = 'ID_ALMACEN_RESERVA'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'MOVIMIENTOS'
SQL =
'UPDATE MOVIMIENTOS'#10' SET '#10' ID = :ID,'#10' ID_ALMACEN = :ID_ALM' +
'ACEN,'#10' ID_ARTICULO = :ID_ARTICULO,'#10' FECHA_MOVIMIENTO = :FE' +
'CHA_MOVIMIENTO,'#10' TIPO = :TIPO,'#10' CANTIDAD = :CANTIDAD,'#10' ' +
'CAUSA = :CAUSA,'#10' ID_ALMACEN_RESERVA = :ID_ALMACEN_RESERVA'#10' W' +
'HERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_INVENTARIO'
end>
RelationShips = <>
UpdateRules = <>
Version = 0
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 DataDictionary: TDADataDictionary
Fields = <
item
Name = 'INVENTARIO_ID_ALMACEN'
DataType = datInteger
DisplayLabel = 'ID_ALMACEN'
end
item
Name = 'INVENTARIO_ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'ID_ARTICULO'
end
item
Name = 'INVENTARIO_ALMACEN'
DataType = datString
Size = 255
DisplayLabel = 'ALMACEN'
end
item
Name = 'INVENTARIO_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'INVENTARIO_REFERENCIA_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_CLIENTE'
end
item
Name = 'INVENTARIO_FAMILIA'
DataType = datString
Size = 255
DisplayLabel = 'FAMILIA'
end
item
Name = 'INVENTARIO_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'DESCRIPCION'
end
item
Name = 'INVENTARIO_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA_PROVEEDOR'
end
item
Name = 'INVENTARIO_STOCK'
DataType = datLargeInt
DisplayLabel = 'Stock disponible'
end
item
Name = 'INVENTARIO_RESERVA'
DataType = datLargeInt
DisplayLabel = 'Reservado'
end
item
Name = 'INVENTARIO_PENDIENTE_RECEPCION'
DataType = datLargeInt
DisplayLabel = 'Pendiente de recibir'
end
item
Name = 'INVENTARIO_ID'
DataType = datInteger
ServerAutoRefresh = True
end
item
Name = 'INVENTARIO_CANTIDAD'
DataType = datInteger
end
item
Name = 'INVENTARIO_FECHA_MOVIMIENTO'
DataType = datDateTime
end
item
Name = 'INVENTARIO_CAUSA'
DataType = datString
Size = 255
end
item
Name = 'INVENTARIO_TIPO'
DataType = datString
Size = 1
end
item
Name = 'INVENTARIO_REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'INVENTARIO_REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'INVENTARIO_UNIDADES_ALMACEN'
DataType = datLargeInt
DisplayLabel = 'U. Almac'#233'n'
end
item
Name = 'INVENTARIO_PRECIO_NETO'
DataType = datCurrency
DisplayLabel = 'Precio unidad'
Alignment = taRightJustify
end
item
Name = 'INVENTARIO_COSTE_UNIDADES'
DataType = datCurrency
DisplayLabel = 'Coste unidades'
Alignment = taRightJustify
end
item
Name = 'DETALLE_RESERVAS_INV_ID_ALB'
DataType = datInteger
DisplayLabel = 'IdAlbaran'
end
item
Name = 'DETALLE_RESERVAS_INV_REFERENCIA_ALB'
DataType = datString
Size = 255
DisplayLabel = 'Ref. albar'#225'n'
end
item
Name = 'DETALLE_RESERVAS_INV_SITUACION_ALB'
DataType = datString
Size = 9
DisplayLabel = 'Situaci'#243'n'
end
item
Name = 'DETALLE_RESERVAS_INV_FECHA_PREVISTA_ENVIO_ALB'
DataType = datDateTime
DisplayLabel = 'Fecha prevista de envio'
end
item
Name = 'DETALLE_RESERVAS_INV_ID_ALMACEN_ALB'
DataType = datInteger
DisplayLabel = 'IdAlmac'#233'n'
end
item
Name = 'DETALLE_RESERVAS_INV_ALMACEN_ALB'
DataType = datString
Size = 255
DisplayLabel = 'Almac'#233'n'
end
item
Name = 'DETALLE_RESERVAS_INV_ID_CLIENTE_ALB'
DataType = datInteger
DisplayLabel = 'IdCliente'
end
item
Name = 'DETALLE_RESERVAS_INV_CLIENTE_ALB'
DataType = datString
Size = 255
DisplayLabel = 'Cliente'
end
item
Name = 'DETALLE_RESERVAS_INV_ID_ART'
DataType = datInteger
DisplayLabel = 'IdArticulo'
end
item
Name = 'DETALLE_RESERVAS_INV_FAMILIA_ART'
DataType = datString
Size = 255
DisplayLabel = 'Familia'
end
item
Name = 'DETALLE_RESERVAS_INV_REFERENCIA_ART'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
end
item
Name = 'DETALLE_RESERVAS_INV_REFERENCIA_PROV_ART'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
end
item
Name = 'DETALLE_RESERVAS_INV_DESCRIPCION_ART'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#243'n'
end
item
Name = 'DETALLE_RESERVAS_INV_CANTIDAD_ART'
DataType = datLargeInt
DisplayLabel = 'Reservado'
end
item
Name = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
DataType = datInteger
end>
Left = 126
Top = 14
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 40
Top = 80
end
end