Ya no se puede sacar los descuentos de cliente para los articulos de un determinado proveedor, porque

la lista de articulos para las ventas no estara particularizada por proveedor sino que tendremos un unico
artículo con el precio maximo de proveedor (V_ARTICULOS_PARA_VENTA)

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@470 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-25 15:39:57 +00:00
parent ad1534cf33
commit 5aeb30ff6e

View File

@ -219,12 +219,117 @@ object srvArticulos: TsrvArticulos
Size = 255
end>
end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'ARTICULOS_PROVEEDORES'
Name = 'IBX'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'PRECIO_PORTE'
TableField = 'PRECIO_PORTE'
end
item
DatasetField = 'PRECIO_PVP_VENTA'
TableField = 'PRECIO_PVP_VENTA'
end
item
DatasetField = 'MANO_OBRA'
TableField = 'MANO_OBRA'
end
item
DatasetField = 'PRECIO_PVP_TOTAL'
TableField = 'PRECIO_PVP_TOTAL'
end>
end>
Name = 'Articulos_Proveedores'
Fields = <
item
Name = 'ID'
DataType = datInteger
Required = True
InPrimaryKey = True
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
end
item
Name = 'MANO_OBRA'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_ARTICULOS'
TargetTable = 'V_ARTICULOS_PARA_COMPRA'
StatementType = stAutoSQL
ColumnMappings = <
item
@ -496,33 +601,23 @@ object srvArticulos: TsrvArticulos
end>
end
item
Params = <
item
Name = 'ID_CLIENTE'
Value = '2'
ParamType = daptInput
end>
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_ARTICULOS'
TargetTable = 'V_ARTICULOS_PARA_VENTA'
SQL =
'SELECT'#10' V_ARTICULOS.ID, V_ARTICULOS.ID_EMPRESA, V_ARTICULOS.R' +
'EFERENCIA,'#10#9'V_ARTICULOS.DESCRIPCION, V_ARTICULOS.UNIDAD_MEDIDA,'#10 +
' V_ARTICULOS.FAMILIA, V_ARTICULOS.IMAGEN, V_ARTICULOS.COMISIO' +
'NABLE,'#10#9'V_ARTICULOS.FECHA_ALTA, V_ARTICULOS.FECHA_MODIFICACION,'#10 +
' V_ARTICULOS.USUARIO, V_ARTICULOS.REFERENCIA_PROV, V_ARTICULO' +
'S.PRECIO_COSTE,'#10#9'V_ARTICULOS.PRECIO_PORTE, CLIENTES_DTOS_PROVEED' +
'ORES.DESCUENTO,'#10#9'V_ARTICULOS.PRECIO_NETO, V_ARTICULOS.INVENTARIA' +
'BLE,'#10#9'V_ARTICULOS.ID_PROVEEDOR, V_ARTICULOS.NOMBRE_PROVEEDOR,'#10#9'V' +
'_ARTICULOS.ELIMINADO, V_ARTICULOS.FABRICANTE, V_ARTICULOS.REFERE' +
'NCIA_FABR,'#10#9'V_ARTICULOS.PARAM_MARGEN, V_ARTICULOS.PRECIO_PVP_VEN' +
'TA, V_ARTICULOS.TIEMPO,'#10' V_ARTICULOS.PARAM_TIEMPO, V_ARTI' +
'CULOS.MANO_OBRA, V_ARTICULOS.PRECIO_PVP_TOTAL'#10' FROM'#10' V_ARTIC' +
'ULOS'#10' LEFT OUTER JOIN CLIENTES_DTOS_PROVEEDORES'#10#9'ON ((CLIENTES_' +
'DTOS_PROVEEDORES.ID_PROVEEDOR = V_ARTICULOS.ID_PROVEEDOR)'#10#9#9'AND ' +
'(CLIENTES_DTOS_PROVEEDORES.ID_CLIENTE = :ID_CLIENTE))'#10' WHERE {W' +
'here}'#10
#10#10'SELECT'#10' V_ARTICULOS_PARA_VENTA.ID, V_ARTICULOS_PARA_VENTA.I' +
'D_EMPRESA,'#10' V_ARTICULOS_PARA_VENTA.REFERENCIA, V_ARTICULOS_PA' +
'RA_VENTA.DESCRIPCION,'#10' V_ARTICULOS_PARA_VENTA.UNIDAD_MEDIDA, ' +
'V_ARTICULOS_PARA_VENTA.FAMILIA,'#10' V_ARTICULOS_PARA_VENTA.IMAGE' +
'N, V_ARTICULOS_PARA_VENTA.COMISIONABLE,'#10' V_ARTICULOS_PARA_VEN' +
'TA.FECHA_ALTA, V_ARTICULOS_PARA_VENTA.FECHA_MODIFICACION,'#10' V_' +
'ARTICULOS_PARA_VENTA.USUARIO, V_ARTICULOS_PARA_VENTA.INVENTARIAB' +
'LE,'#10' V_ARTICULOS_PARA_VENTA.ELIMINADO, V_ARTICULOS_PARA_VENTA' +
'.FABRICANTE,'#10' V_ARTICULOS_PARA_VENTA.REFERENCIA_FABR, V_ARTIC' +
'ULOS_PARA_VENTA.PRECIO_PVP_VENTA,'#10' V_ARTICULOS_PARA_VENTA.PRE' +
'CIO_PVP_TOTAL'#10' FROM'#10' V_ARTICULOS_PARA_VENTA'#10' WHERE {Where}'#10
StatementType = stSQL
ColumnMappings = <
item
@ -569,38 +664,10 @@ object srvArticulos: TsrvArticulos
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'PRECIO_PORTE'
TableField = 'PRECIO_PORTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NOMBRE_PROVEEDOR'
TableField = 'NOMBRE_PROVEEDOR'
end
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
@ -613,26 +680,10 @@ object srvArticulos: TsrvArticulos
DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR'
end
item
DatasetField = 'PARAM_MARGEN'
TableField = 'PARAM_MARGEN'
end
item
DatasetField = 'PRECIO_PVP_VENTA'
TableField = 'PRECIO_PVP_VENTA'
end
item
DatasetField = 'TIEMPO'
TableField = 'TIEMPO'
end
item
DatasetField = 'PARAM_TIEMPO'
TableField = 'PARAM_TIEMPO'
end
item
DatasetField = 'MANO_OBRA'
TableField = 'MANO_OBRA'
end
item
DatasetField = 'PRECIO_PVP_TOTAL'
TableField = 'PRECIO_PVP_TOTAL'
@ -706,48 +757,11 @@ object srvArticulos: TsrvArticulos
Size = 20
DictionaryEntry = 'Articulos_USUARIO'
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR'
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_COSTE'
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_PORTE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'Articulos_DESCUENTO'
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_NETO'
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
DictionaryEntry = 'Articulos_INVENTARIABLE'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'Articulos_ID_PROVEEDOR'
end
item
Name = 'NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_NOMBRE_PROVEEDOR'
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
@ -765,30 +779,12 @@ object srvArticulos: TsrvArticulos
Size = 255
DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
DisplayLabel = 'Precio P.V.P (Solo suministro)'
Alignment = taRightJustify
end
item
Name = 'TIEMPO'
DataType = datInteger
end
item
Name = 'PARAM_TIEMPO'
DataType = datFloat
end
item
Name = 'MANO_OBRA'
DataType = datCurrency
DisplayLabel = 'Mano de obra'
Alignment = taRightJustify
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
@ -918,17 +914,15 @@ object srvArticulos: TsrvArticulos
SQL =
'INSERT'#10' INTO ARTICULOS'#10' (ID, ID_EMPRESA, REFERENCIA, DESCRIP' +
'CION, UNIDAD_MEDIDA, FAMILIA, IMAGEN,'#10' COMISIONABLE, FECHA_A' +
'LTA, FECHA_MODIFICACION, USUARIO, '#10' PRECIO_COSTE, PRECIO_POR' +
'TE, DESCUENTO, ID_PROVEEDOR, '#10' PRECIO_NETO, REFERENCIA_PROV,' +
' INVENTARIABLE, ELIMINADO, FABRICANTE,'#10' REFERENCIA_FABR, PAR' +
'AM_MARGEN, PRECIO_PVP_VENTA, TIEMPO, PARAM_TIEMPO,'#10' MANO_OBR' +
'A, PRECIO_PVP_TOTAL)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA' +
', :DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIO' +
'NABLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :PRECIO' +
'_COSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_' +
'NETO, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO, :FABRIC' +
'ANTE, :REFERENCIA_FABR, :PARAM_MARGEN,'#10' :PRECIO_PVP_VENTA, :' +
'TIEMPO, :PARAM_TIEMPO, :MANO_OBRA, :PRECIO_PVP_TOTAL)'#10
'LTA, FECHA_MODIFICACION, USUARIO, '#10' INVENTARIABLE, ELIMINADO' +
', FABRICANTE, REFERENCIA_FABR, PARAM_MARGEN, TIEMPO,'#10' PARAM_' +
'TIEMPO, MANO_OBRA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, ' +
':DESCRIPCION, :UNIDAD_MEDIDA, :FAMILIA,'#10' :IMAGEN, :COMISIONA' +
'BLE, :FECHA_ALTA, :FECHA_MODIFICACION, '#10' :USUARIO, :PRECIO_C' +
'OSTE, :PRECIO_PORTE, :DESCUENTO, '#10' :ID_PROVEEDOR, :PRECIO_NE' +
'TO, :REFERENCIA_PROV,'#10' :INVENTARIABLE, :ELIMINADO, :FABRICAN' +
'TE, :REFERENCIA_FABR, :PARAM_MARGEN,'#10' :PRECIO_PVP_VENTA, :TI' +
'EMPO, :PARAM_TIEMPO, :MANO_OBRA, :PRECIO_PVP_TOTAL)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1086,6 +1080,185 @@ object srvArticulos: TsrvArticulos
ColumnMappings = <>
end>
Name = 'Update_Articulos'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = '0'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = '0'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '0'
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
Value = '0'
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = '0'
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
Value = '0'
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
Value = '0'
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
Value = '0'
end
item
Name = 'MANO_OBRA'
DataType = datCurrency
Value = '0'
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'ARTICULOS_PROVEEDORES'
SQL =
'INSERT'#10' INTO ARTICULOS_PROVEEDORES'#10' (ID, ID_ARTICULO, ID_PRO' +
'VEEDOR, REFERENCIA_PROV, PRECIO_COSTE, '#10' DESCUENTO, PRECIO_N' +
'ETO, PRECIO_PORTE, PRECIO_PVP_VENTA, '#10' MANO_OBRA, PRECIO_PVP' +
'_TOTAL)'#10' VALUES'#10' (:ID, :ID_ARTICULO, :ID_PROVEEDOR, :REFEREN' +
'CIA_PROV, '#10' :PRECIO_COSTE, :DESCUENTO, :PRECIO_NETO, :PRECIO' +
'_PORTE, '#10' :PRECIO_PVP_VENTA, :MANO_OBRA, :PRECIO_PVP_TOTAL)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Articulos_Proveedores'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'ARTICULOS_PROVEEDORES'
SQL =
'DELETE '#10' FROM'#10' ARTICULOS_PROVEEDORES'#10' WHERE'#10' (ID = :OLD_' +
'ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Articulos_Proveedores'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
Value = '0'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = '0'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '0'
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
Value = '0'
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = '0'
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
Value = '0'
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
Value = '0'
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
Value = '0'
end
item
Name = 'MANO_OBRA'
DataType = datCurrency
Value = '0'
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
Value = '0'
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = '0'
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'ARTICULOS_PROVEEDORES'
SQL =
'UPDATE ARTICULOS_PROVEEDORES'#10' SET '#10' ID = :ID, '#10' ID_ARTICU' +
'LO = :ID_ARTICULO, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' REFER' +
'ENCIA_PROV = :REFERENCIA_PROV, '#10' PRECIO_COSTE = :PRECIO_COSTE' +
', '#10' DESCUENTO = :DESCUENTO, '#10' PRECIO_NETO = :PRECIO_NETO, ' +
#10' PRECIO_PORTE = :PRECIO_PORTE, '#10' PRECIO_PVP_VENTA = :PREC' +
'IO_PVP_VENTA, '#10' MANO_OBRA = :MANO_OBRA, '#10' PRECIO_PVP_TOTAL' +
' = :PRECIO_PVP_TOTAL'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Articulos_Proveedores'
end>
RelationShips = <>
UpdateRules = <