Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
5aeb30ff6e
Tecsitel_FactuGES2/Source/Modulos/Articulos/Servidor/srvArticulos_Impl.dfm
roberto 5aeb30ff6e 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
2008-06-25 15:39:57 +00:00

1306 lines
38 KiB
Plaintext
Raw Blame History

object srvArticulos: TsrvArticulos
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schArticulos
ServiceDataStreamer = Bin2DataStreamer
AllowWhereSQL = True
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 229
Width = 349
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'Articulos_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
end
item
Name = 'Articulos_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#243'n'
end
item
Name = 'Articulos_FAMILIA'
DataType = datString
Size = 255
DisplayLabel = 'Familia'
end
item
Name = 'Articulos_IMAGEN'
DataType = datBlob
DisplayLabel = 'Foto'
end
item
Name = 'Articulos_COMISIONABLE'
DataType = datInteger
DisplayLabel = 'Comisionable'
end
item
Name = 'Articulos_FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'FECHA_ALTA'
end
item
Name = 'Articulos_FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'FECHA_MODIFICACION'
end
item
Name = 'Articulos_USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'USUARIO'
end
item
Name = 'Articulos_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
end
item
Name = 'Articulos_PRECIO_COSTE'
DataType = datCurrency
DisplayLabel = 'Importe'
end
item
Name = 'Articulos_PRECIO_PORTE'
DataType = datCurrency
DisplayLabel = 'Precio porte'
end
item
Name = 'Articulos_DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
end
item
Name = 'Articulos_ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_ID'
Required = True
DisplayLabel = 'ID'
ServerAutoRefresh = True
end
item
Name = 'Articulos_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'Articulos_PRECIO_NETO'
DataType = datCurrency
DisplayLabel = 'Precio neto'
end
item
Name = 'Articulos_ID_PROVEEDOR'
DataType = datInteger
DisplayLabel = 'ID_PROVEEDOR'
ServerAutoRefresh = True
end
item
Name = 'Articulos_NOMBRE_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
ServerAutoRefresh = True
end
item
Name = 'Articulos_UNIDAD_MEDIDA'
DataType = datString
Size = 255
DisplayLabel = 'Unidad de medida'
end
item
Name = 'Articulos_INVENTARIABLE'
DataType = datSmallInt
DisplayLabel = 'Inventariable'
end
item
Name = 'Articulos_ELIMINADO'
DataType = datSmallInt
DisplayLabel = 'Eliminado'
end
item
Name = 'Articulos_FABRICANTE'
DataType = datString
Size = 255
DisplayLabel = 'Fabricante'
end
item
Name = 'Articulos_REFERENCIA_FABR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. fabricante'
end
item
Name = 'Articulos_PARAM_MARGEN'
DataType = datFloat
DisplayLabel = 'Margen'
end
item
Name = 'Articulos_PRECIO_PVP_VENTA'
DataType = datCurrency
DisplayLabel = 'Precio PVP (Solo suministro)'
Alignment = taRightJustify
end
item
Name = 'Articulos_TIEMPO'
DataType = datInteger
DisplayLabel = 'Tiempo'
end
item
Name = 'Articulos_PARAM_TIEMPO'
DataType = datFloat
DisplayLabel = 'Precio min'
Alignment = taRightJustify
end
item
Name = 'Articulos_MANO_OBRA'
DataType = datCurrency
DisplayLabel = 'Mano de obra'
Alignment = taRightJustify
end
item
Name = 'Articulos_PRECIO_PVP_TOTAL'
DataType = datCurrency
DisplayLabel = 'Precio P.V.P (Total)'
Alignment = taRightJustify
end>
Left = 150
Top = 22
end
object schArticulos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Datasets = <
item
Params = <
item
Name = 'ID_EMPRESA'
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'V_ARTICULOS'
Name = 'IBX'
SQL =
'select distinct ID_PROVEEDOR, NOMBRE'#10'from V_articulos'#10'inner join' +
' contactos on (contactos.ID = V_articulos.ID_PROVEEDOR)'#10'where ID' +
'_EMPRESA = :ID_EMPRESA'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end>
end>
Name = 'ProveedoresConArticulos'
Fields = <
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'NOMBRE'
DataType = datString
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_PARA_COMPRA'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'IMAGEN'
TableField = 'IMAGEN'
end
item
DatasetField = 'COMISIONABLE'
TableField = 'COMISIONABLE'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
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'
end
item
DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE'
end
item
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'
end>
end>
Name = 'Articulos'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Articulos_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Articulos_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_REFERENCIA'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_DESCRIPCION'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_UNIDAD_MEDIDA'
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_FAMILIA'
end
item
Name = 'IMAGEN'
DataType = datBlob
DictionaryEntry = 'Articulos_IMAGEN'
end
item
Name = 'COMISIONABLE'
DataType = datInteger
DictionaryEntry = 'Articulos_COMISIONABLE'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Articulos_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Articulos_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
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
DictionaryEntry = 'Articulos_ELIMINADO'
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_FABRICANTE'
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end
item
Name = 'PARAM_MARGEN'
DataType = datFloat
DictionaryEntry = 'Articulos_PARAM_MARGEN'
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA'
end
item
Name = 'TIEMPO'
DataType = datInteger
DictionaryEntry = 'Articulos_TIEMPO'
end
item
Name = 'PARAM_TIEMPO'
DataType = datFloat
DictionaryEntry = 'Articulos_PARAM_TIEMPO'
end
item
Name = 'MANO_OBRA'
DataType = datCurrency
DictionaryEntry = 'Articulos_MANO_OBRA'
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_ARTICULOS_PARA_VENTA'
SQL =
#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
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'IMAGEN'
TableField = 'IMAGEN'
end
item
DatasetField = 'COMISIONABLE'
TableField = 'COMISIONABLE'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
end
item
DatasetField = 'FABRICANTE'
TableField = 'FABRICANTE'
end
item
DatasetField = 'REFERENCIA_FABR'
TableField = 'REFERENCIA_FABR'
end
item
DatasetField = 'PRECIO_PVP_VENTA'
TableField = 'PRECIO_PVP_VENTA'
end
item
DatasetField = 'PRECIO_PVP_TOTAL'
TableField = 'PRECIO_PVP_TOTAL'
end>
end>
Name = 'ArticulosParaCliente'
Description =
#161#161#161#161' Esta tabla debe tener los mismos campos y orden de campos q' +
'ue '#39'Art'#237'culos'#39' !!!!'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Articulos_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Articulos_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_REFERENCIA'
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_DESCRIPCION'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_UNIDAD_MEDIDA'
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_FAMILIA'
end
item
Name = 'IMAGEN'
DataType = datBlob
DictionaryEntry = 'Articulos_IMAGEN'
end
item
Name = 'COMISIONABLE'
DataType = datInteger
DictionaryEntry = 'Articulos_COMISIONABLE'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Articulos_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Articulos_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'Articulos_USUARIO'
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
DictionaryEntry = 'Articulos_INVENTARIABLE'
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
DictionaryEntry = 'Articulos_ELIMINADO'
end
item
Name = 'FABRICANTE'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_FABRICANTE'
end
item
Name = 'REFERENCIA_FABR'
DataType = datString
Size = 255
DictionaryEntry = 'Articulos_REFERENCIA_FABR'
end
item
Name = 'PRECIO_PVP_VENTA'
DataType = datCurrency
DisplayLabel = 'Precio P.V.P (Solo suministro)'
Alignment = taRightJustify
end
item
Name = 'PRECIO_PVP_TOTAL'
DataType = datCurrency
DisplayLabel = 'Precio P.V.P. (Total)'
Alignment = taRightJustify
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_ARTICULOS_ID'
Value = ''
end
item
Name = 'ID_EMPRESA'
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'DESCRIPCION'
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'FAMILIA'
Value = ''
end
item
Name = 'IMAGEN'
Value = ''
end
item
Name = 'COMISIONABLE'
Value = ''
end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'PRECIO_COSTE'
Value = ''
end
item
Name = 'PRECIO_PORTE'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'ID_PROVEEDOR'
Value = ''
end
item
Name = 'PRECIO_NETO'
Value = ''
end
item
Name = 'REFERENCIA_PROV'
Value = ''
end
item
Name = 'INVENTARIABLE'
Value = ''
end
item
Name = 'ELIMINADO'
Value = ''
end
item
Name = 'FABRICANTE'
Value = ''
end
item
Name = 'REFERENCIA_FABR'
Value = ''
end
item
Name = 'PARAM_MARGEN'
Value = ''
end
item
Name = 'PRECIO_PVP_VENTA'
Value = ''
end
item
Name = 'TIEMPO'
Value = ''
end
item
Name = 'PARAM_TIEMPO'
Value = ''
end
item
Name = 'MANO_OBRA'
Value = ''
end
item
Name = 'PRECIO_PVP_TOTAL'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
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' 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>
Name = 'Insert_Articulos'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
SQL = 'UPDATE ARTICULOS'#10'SET ELIMINADO = 1'#10'WHERE (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Articulos'
end
item
Params = <
item
Name = 'ID_EMPRESA'
Value = ''
end
item
Name = 'REFERENCIA'
Value = ''
end
item
Name = 'DESCRIPCION'
Value = ''
end
item
Name = 'UNIDAD_MEDIDA'
Value = ''
end
item
Name = 'FAMILIA'
Value = ''
end
item
Name = 'IMAGEN'
Value = ''
end
item
Name = 'COMISIONABLE'
Value = ''
end
item
Name = 'FECHA_ALTA'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'PRECIO_COSTE'
Value = ''
end
item
Name = 'PRECIO_PORTE'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'ID_PROVEEDOR'
Value = ''
end
item
Name = 'PRECIO_NETO'
Value = ''
end
item
Name = 'INVENTARIABLE'
Value = ''
end
item
Name = 'REFERENCIA_PROV'
Value = ''
end
item
Name = 'ELIMINADO'
Value = ''
end
item
Name = 'FABRICANTE'
Value = ''
end
item
Name = 'REFERENCIA_FABR'
Value = ''
end
item
Name = 'PARAM_MARGEN'
Value = ''
end
item
Name = 'PRECIO_PVP_VENTA'
Value = ''
end
item
Name = 'TIEMPO'
Value = ''
end
item
Name = 'PARAM_TIEMPO'
Value = ''
end
item
Name = 'MANO_OBRA'
Value = ''
end
item
Name = 'PRECIO_PVP_TOTAL'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'ARTICULOS'
SQL =
'UPDATE ARTICULOS'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,'#10' REFERE' +
'NCIA = :REFERENCIA, '#10' DESCRIPCION = :DESCRIPCION, '#10' UNIDAD' +
'_MEDIDA = :UNIDAD_MEDIDA,'#10' FAMILIA = :FAMILIA, '#10' IMAGEN = ' +
':IMAGEN, '#10' COMISIONABLE = :COMISIONABLE, '#10' FECHA_ALTA = :F' +
'ECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' U' +
'SUARIO = :USUARIO, '#10' PRECIO_COSTE = :PRECIO_COSTE, '#10' PRECI' +
'O_PORTE = :PRECIO_PORTE, '#10' DESCUENTO = :DESCUENTO, '#10' ID_PR' +
'OVEEDOR = :ID_PROVEEDOR, '#10' PRECIO_NETO = :PRECIO_NETO,'#10' IN' +
'VENTARIABLE = :INVENTARIABLE,'#10' REFERENCIA_PROV = :REFERENCIA_' +
'PROV,'#10' ELIMINADO = :ELIMINADO,'#10' FABRICANTE = :FABRICANTE,'#10 +
' REFERENCIA_FABR = :REFERENCIA_FABR,'#10' PARAM_MARGEN = :PARA' +
'M_MARGEN,'#10' PRECIO_PVP_VENTA = :PRECIO_PVP_VENTA,'#10' TIEMPO =' +
' :TIEMPO,'#10' PARAM_TIEMPO = :PARAM_TIEMPO,'#10' MANO_OBRA = :MAN' +
'O_OBRA,'#10' PRECIO_PVP_TOTAL = :PRECIO_PVP_TOTAL'#10' WHERE'#10' (ID' +
' = :OLD_ID)'#10
StatementType = stSQL
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 = <
item
Name = 'Insert Articulos'
DoUpdate = False
DoDelete = False
DatasetName = 'Articulos'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Articulos'
DoInsert = False
DoDelete = False
DatasetName = 'Articulos'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Articulos'
DoUpdate = False
DoInsert = False
DatasetName = 'Articulos'
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 48
Top = 24
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 80
end
object bpArticulos: TDABusinessProcessor
Schema = schArticulos
InsertCommandName = 'Insert_Articulos'
DeleteCommandName = 'Delete_Articulos'
UpdateCommandName = 'Update_Articulos'
ReferencedDataset = 'Articulos'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 264
Top = 24
end
end
Reference in New Issue View Git Blame Copy Permalink