AbetoDesign_FactuGES2/Source/Modulos/Inventario/Servidor/srvInventario_Impl.dfm
2022-10-21 09:41:20 +00:00

756 lines
23 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, IMPORTE_COMPRA_2ANOS, NOMBRE' +
' as ALMACEN, ID_EMPRESA, REFERENCIA, FAMILIA,'#10' DESCRIPCION, S' +
'TOCK_MIN, UNIDAD_MEDIDA, PRECIO_NETO, STOCK, (IMPORTE_COMPRA_2AN' +
'OS * STOCK) as COSTE_MEDIO_TOTAL,'#10' UNIDADES_ALMACEN, COSTE_UN' +
'IDADES, RESERVA, PENDIENTE_RECEPCION,'#10' '#10' /*'#10' NO BORRAR ' +
'YA QUE SIRVE PARA LAS ENTRADAS Y SALIDAS DE ALMACEN(TABLA MOVIMI' +
'ENTOS)'#10' DEBERIA GENERAR UNA TABLA DE MOVIMIENTOS INDEPENDIENT' +
'E DEL INVENTARIO PERO POR FALTA'#10' DE TIEMPO Y FIABILIDAD YA QU' +
'E 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'where {where}'#10'ORDER ' +
'BY ID_ARTICULO'#10#10#10
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 = 'UNIDADES_ALMACEN'
TableField = 'UNIDADES_ALMACEN'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'COSTE_UNIDADES'
TableField = 'COSTE_UNIDADES'
end
item
DatasetField = 'STOCK_MIN'
TableField = 'STOCK_MIN'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'IMPORTE_COMPRA_2ANOS'
TableField = 'IMPORTE_COMPRA_2ANOS'
end
item
DatasetField = 'COSTE_MEDIO_TOTAL'
TableField = '<unknown>'
SQLOrigin = 'COSTE_MEDIO_TOTAL'
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 = 'IMPORTE_COMPRA_2ANOS'
DataType = datFloat
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 = 'STOCK_MIN'
DataType = datInteger
DictionaryEntry = 'Inventario_STOCK_MIN'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DictionaryEntry = 'Inventario_UNIDAD_MEDIDA'
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
DictionaryEntry = 'Inventario_PRECIO_NETO'
end
item
Name = 'STOCK'
DataType = datFloat
DictionaryEntry = 'Inventario_STOCK'
end
item
Name = 'COSTE_MEDIO_TOTAL'
DataType = datFloat
end
item
Name = 'UNIDADES_ALMACEN'
DataType = datFloat
DictionaryEntry = 'Inventario_UNIDADES_ALMACEN'
end
item
Name = 'COSTE_UNIDADES'
DataType = datCurrency
DictionaryEntry = 'Inventario_COSTE_UNIDADES'
end
item
Name = 'RESERVA'
DataType = datFloat
DictionaryEntry = 'Inventario_RESERVA'
end
item
Name = 'PENDIENTE_RECEPCION'
DataType = datFloat
DictionaryEntry = 'Inventario_PENDIENTE_RECEPCION'
end
item
Name = 'ID'
DataType = datInteger
DictionaryEntry = 'Inventario_ID'
InPrimaryKey = True
Calculated = True
end
item
Name = 'CANTIDAD'
DataType = datFloat
DictionaryEntry = 'Inventario_CANTIDAD'
end
item
Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime
DictionaryEntry = 'Inventario_FECHA_MOVIMIENTO'
end
item
Name = 'CAUSA'
DataType = datString
Size = 2000
DictionaryEntry = 'Inventario_CAUSA'
end
item
Name = 'TIPO'
DataType = datString
Size = 1
DictionaryEntry = 'Inventario_TIPO'
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 = datFloat
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'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime
Value = ''
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Value = ''
end
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'CAUSA'
DataType = datString
Size = 2000
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)'#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'
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'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
Value = ''
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
end
item
Name = 'FECHA_MOVIMIENTO'
DataType = datDateTime
Value = ''
end
item
Name = 'TIPO'
DataType = datString
Size = 1
Value = ''
end
item
Name = 'CANTIDAD'
DataType = datCurrency
Value = ''
end
item
Name = 'CAUSA'
DataType = datString
Size = 2000
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' WHERE'#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 = '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 = datFloat
DisplayLabel = 'Reservado'
end
item
Name = 'DETALLE_RESERVAS_INV_ID_EMPRESA'
DataType = datInteger
end
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'
DataType = datString
Size = 255
DisplayLabel = 'INVENTARIO_REFERENCIA'
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_PRECIO_NETO'
DataType = datCurrency
DisplayLabel = 'Precio unidad'
Alignment = taRightJustify
end
item
Name = 'Inventario_STOCK'
DataType = datFloat
DisplayLabel = 'Stock disponible'
end
item
Name = 'Inventario_UNIDADES_ALMACEN'
DataType = datFloat
DisplayLabel = 'U. Almac'#233'n'
end
item
Name = 'Inventario_COSTE_UNIDADES'
DataType = datCurrency
DisplayLabel = 'Coste unidades'
Alignment = taRightJustify
end
item
Name = 'Inventario_RESERVA'
DataType = datFloat
DisplayLabel = 'Reservado'
end
item
Name = 'Inventario_PENDIENTE_RECEPCION'
DataType = datFloat
DisplayLabel = 'Pendiente de recibir'
end
item
Name = 'Inventario_ID'
DataType = datInteger
LogChanges = False
DisplayLabel = 'INVENTARIO_ID'
end
item
Name = 'Inventario_CANTIDAD'
DataType = datFloat
DisplayLabel = 'INVENTARIO_CANTIDAD'
end
item
Name = 'Inventario_FECHA_MOVIMIENTO'
DataType = datDateTime
DisplayLabel = 'INVENTARIO_FECHA_MOVIMIENTO'
end
item
Name = 'Inventario_CAUSA'
DataType = datString
Size = 2000
DisplayLabel = 'INVENTARIO_CAUSA'
end
item
Name = 'Inventario_TIPO'
DataType = datString
Size = 1
DisplayLabel = 'INVENTARIO_TIPO'
end
item
Name = 'Inventario_STOCK_MIN'
DataType = datInteger
end
item
Name = 'Inventario_UNIDAD_MEDIDA'
DataType = datString
Size = 255
end>
Left = 126
Top = 14
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 40
Top = 80
end
end