Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
This repository has been archived on 2024-11-28. You can view files and clone it, but cannot push or open issues or pull requests.
8e42ec5d7f
Noviseda_FactuGES2/Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm
roberto 8e42ec5d7f Se añade modulo de pedidos de cliente 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@101 f33bb606-9f5c-448d-9c99-757f00063c96
2010-02-17 10:44:34 +00:00

1658 lines
51 KiB
Plaintext
Raw Blame History

object srvPedidosCliente: TsrvPedidosCliente
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
SessionManager = dmServer.SessionManager
ConnectionName = 'IBX'
ServiceSchema = schPedidosCliente
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 247
Width = 347
object schPedidosCliente: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DADataDictionary
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
SQL =
'select ANO from'#10'(select distinct(substr(FECHA_PEDIDO, 1,4)) as A' +
'NO'#10'from pedidos_cliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select dist' +
'inct '#39'Todos'#39' as ANO'#10'from empresas'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'ListaAnosPedidos'
Fields = <
item
Name = 'ANO'
DataType = datString
Size = 254
end>
end
item
Params = <
item
Name = 'ID_PEDIDO'
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT '#10' ID_PEDIDO, ID_ARTICULO, CANT_PEDIDA_CLIENTE, ID_PROV' +
'EEDOR, '#10' CANT_PEDIDA_PROVEEDOR, CANT_PENDIENTE_PEDIR'#10' FROM'#10' ' +
' V_PED_CLI_ART_PEND_PEDIR_PROV'#10' WHERE ID_PEDIDO = :ID_PEDIDO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'CANT_PEDIDA_CLIENTE'
TableField = 'CANT_PEDIDA_CLIENTE'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'CANT_PEDIDA_PROVEEDOR'
TableField = 'CANT_PEDIDA_PROVEEDOR'
end
item
DatasetField = 'CANT_PENDIENTE_PEDIR'
TableField = 'CANT_PENDIENTE_PEDIR'
end>
end>
Name = 'PedidoCliente_ArticulosPendientesPedirAProv'
Fields = <
item
Name = 'ID_PEDIDO'
DataType = datAutoInc
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PEDIDO'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_ARTICULO'
end
item
Name = 'CANT_PEDIDA_CLIENTE'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_ID_PROVEEDOR'
end
item
Name = 'CANT_PEDIDA_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
end
item
Name = 'CANT_PENDIENTE_PEDIR'
DataType = datInteger
DictionaryEntry = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_PEDIDOS_CLIENTE'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_CLIENTE'
TableField = 'REFERENCIA_CLIENTE'
end
item
DatasetField = 'SITUACION'
TableField = 'SITUACION'
end
item
DatasetField = 'FECHA_PEDIDO'
TableField = 'FECHA_PEDIDO'
end
item
DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
item
DatasetField = 'INCIDENCIAS'
TableField = 'INCIDENCIAS'
end
item
DatasetField = 'INCIDENCIAS_ACTIVAS'
TableField = 'INCIDENCIAS_ACTIVAS'
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 = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'BASE_IMPONIBLE'
TableField = 'BASE_IMPONIBLE'
end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
item
DatasetField = 'IMPORTE_IVA'
TableField = 'IMPORTE_IVA'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'REF_TIENDA_WEB'
TableField = 'REF_TIENDA_WEB'
end
item
DatasetField = 'FECHA_PREVISTA_ENVIO'
TableField = 'FECHA_PREVISTA_ENVIO'
end>
end>
Name = 'PedidosCliente'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
DictionaryEntry = 'PedidosCliente_ID'
InPrimaryKey = True
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_ID_EMPRESA'
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_ID_CLIENTE'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_NOMBRE'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_REFERENCIA'
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE'
end
item
Name = 'SITUACION'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_SITUACION'
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
DictionaryEntry = 'PedidosCliente_FECHA_PEDIDO'
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_CALLE'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'PedidosCliente_CODIGO_POSTAL'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_PROVINCIA'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_PERSONA_CONTACTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DictionaryEntry = 'PedidosCliente_TELEFONO'
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
DictionaryEntry = 'PedidosCliente_OBSERVACIONES'
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
DictionaryEntry = 'PedidosCliente_INCIDENCIAS'
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_INCIDENCIAS_ACTIVAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'PedidosCliente_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'PedidosCliente_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'PedidosCliente_USUARIO'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_IMPORTE_NETO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_IMPORTE_PORTE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'PedidosCliente_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_BASE_IMPONIBLE'
end
item
Name = 'IVA'
DataType = datFloat
DictionaryEntry = 'PedidosCliente_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_IMPORTE_IVA'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_IMPORTE_TOTAL'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO'
end
item
Name = 'REF_TIENDA_WEB'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_REF_TIENDA_WEB'
end
item
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
SQL =
'SELECT PEDIDOS_CLIENTE_DETALLES.ID,'#10' PEDIDOS_CLIENTE_DETAL' +
'LES.ID_PEDIDO,'#10' PEDIDOS_CLIENTE_DETALLES.POSICION,'#10' ' +
'PEDIDOS_CLIENTE_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_CLIENTE_DE' +
'TALLES.ID_ARTICULO,'#10' ARTICULOS.REFERENCIA,'#10' '#39#39' as RE' +
'FERENCIA_PROVEEDOR,'#10' PEDIDOS_CLIENTE_DETALLES.CONCEPTO,'#10' ' +
' PEDIDOS_CLIENTE_DETALLES.CANTIDAD,'#10' PEDIDOS_CLIENTE_D' +
'ETALLES.IMPORTE_UNIDAD,'#10' '#39#39' as UNIDAD_MEDIDA,'#10' PEDID' +
'OS_CLIENTE_DETALLES.DESCUENTO,'#10' PEDIDOS_CLIENTE_DETALLES.I' +
'MPORTE_PORTE,'#10' PEDIDOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10' ' +
' PEDIDOS_CLIENTE_DETALLES.VISIBLE'#10'FROM PEDIDOS_CLIENTE_DETALL' +
'ES'#10' LEFT JOIN ARTICULOS ON PEDIDOS_CLIENTE_DETALLES.ID_ARTIC' +
'ULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER BY POSICION;'#10#10#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'POSICION'
TableField = 'POSICION'
end
item
DatasetField = 'TIPO_DETALLE'
TableField = 'TIPO_DETALLE'
end
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'REFERENCIA'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA'
end
item
DatasetField = 'REFERENCIA_PROVEEDOR'
TableField = '<unknown>'
SQLOrigin = 'REFERENCIA_PROVEEDOR'
end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
item
DatasetField = 'CANTIDAD'
TableField = 'CANTIDAD'
end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
end
item
DatasetField = 'UNIDAD_MEDIDA'
TableField = '<unknown>'
SQLOrigin = 'UNIDAD_MEDIDA'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'VISIBLE'
TableField = 'VISIBLE'
end>
end>
Name = 'PedidosCliente_Detalles'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
DictionaryEntry = 'PedidosCliente_Detalles_ID'
InPrimaryKey = True
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_ID_PEDIDO'
end
item
Name = 'POSICION'
DataType = datInteger
DictionaryEntry = 'POSICIONCONCEPTO'
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE'
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA'
end
item
Name = 'REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
DictionaryEntry = 'PedidosCliente_Detalles_CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
DictionaryEntry = 'CANTIDAD'
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
end
item
Name = 'UNIDAD_MEDIDA'
DataType = datString
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'PedidosCliente_Detalles_DESCUENTO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
end
item
Name = 'VISIBLE'
DataType = datInteger
DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE'
end>
end
item
Params = <
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_PED_CLI_ARTICULOS'
SQL =
'SELECT ID_ARTICULO,'#10' CANTIDAD_PEDIDA AS CANTIDAD_PED,'#10' ' +
' CANTIDAD_RESERVADA + CANTIDAD_ENVIADA + CANTIDAD_SERVIDA AS C' +
'ANTIDAD_ALB,'#10' CANTIDAD_PENDIENTE'#10'FROM V_PED_CLI_ARTICULOS'#10 +
'WHERE ID_PEDIDO = :ID_PEDIDO AND'#10' CANTIDAD_PENDIENTE > 0'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_ARTICULO'
TableField = 'ID_ARTICULO'
end
item
DatasetField = 'CANTIDAD_PED'
TableField = 'CANTIDAD_PED'
end
item
DatasetField = 'CANTIDAD_ALB'
TableField = 'CANTIDAD_ALB'
end
item
DatasetField = 'CANTIDAD_PENDIENTE'
TableField = 'CANTIDAD_PENDIENTE'
end>
end>
Name = 'PedidoCliente_Articulos_Pendientes'
Fields = <
item
Name = 'ID_ARTICULO'
DataType = datInteger
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_ID_ARTICULO'
InPrimaryKey = True
end
item
Name = 'CANTIDAD_PED'
DataType = datInteger
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
end
item
Name = 'CANTIDAD_ALB'
DataType = datInteger
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
end
item
Name = 'CANTIDAD_PENDIENTE'
DataType = datInteger
DictionaryEntry = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'CANTIDAD'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'VISIBLE'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
SQL =
'INSERT'#10' INTO PEDIDOS_CLIENTE_DETALLES'#10' (CANTIDAD, POSICION, ' +
'ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL,' +
' VISIBLE, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORTE)' +
#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CONCEP' +
'TO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDIDO,' +
' '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_PedidosCliente_Detalles'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
SQL =
'DELETE '#10' FROM'#10' PEDIDOS_CLIENTE_DETALLES'#10' WHERE'#10' (ID = :O' +
'LD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_PedidosCliente_Detalles'
end
item
Params = <
item
Name = 'CANTIDAD'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'POSICION'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TIPO_DETALLE'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end
item
Name = 'CONCEPTO'
DataType = datString
Size = 2000
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'VISIBLE'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_ARTICULO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'IMPORTE_PORTE'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
SQL =
'UPDATE PEDIDOS_CLIENTE_DETALLES'#10' SET '#10' CANTIDAD = :CANTIDAD,' +
' '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE = :' +
'TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD = :' +
'IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBL' +
'E = :VISIBLE, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = :I' +
'D_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMP' +
'ORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_PedidosCliente_Detalles'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datDecimal
Value = ''
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datDecimal
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datDecimal
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datDecimal
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datDecimal
Value = ''
end
item
Name = 'IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datDecimal
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'REF_TIENDA_WEB'
DataType = datInteger
Value = ''
end
item
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_CLIENTE'
SQL =
'INSERT'#10' INTO PEDIDOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE, U' +
'SUARIO, FECHA_PEDIDO, '#10' ID_DIRECCION, CALLE, CODIGO_POSTAL, ' +
'POBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, REFERENCI' +
'A, REFERENCIA_CLIENTE, IMPORTE_TOTAL, INCIDENCIAS,'#10' INCIDENC' +
'IAS_ACTIVAS, OBSERVACIONES, FECHA_ALTA, FECHA_MODIFICACION,'#10' ' +
' IMPORTE_NETO, IMPORTE_PORTE, DESCUENTO,'#10' IMPORTE_DESCUENTO,' +
' BASE_IMPONIBLE, IVA, IMPORTE_IVA, '#10' ID_FORMA_PAGO, REF_TIEN' +
'DA_WEB, FECHA_PREVISTA_ENVIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' +
'D_CLIENTE, :USUARIO, :FECHA_PEDIDO, '#10' :ID_DIRECCION, :CALLE,' +
' :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' ' +
' :TELEFONO, :REFERENCIA, :REFERENCIA_CLIENTE, :IMPORTE_TOTAL, :I' +
'NCIDENCIAS,'#10' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_AL' +
'TA,'#10' :FECHA_MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' ' +
' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA, '#10' :' +
'IMPORTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :FECHA_PREVISTA_EN' +
'VIO)'#10' '#10' '#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_PedidosCliente'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_CLIENTE'
SQL = 'DELETE '#10' FROM'#10' PEDIDOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_PedidosCliente'
end
item
Params = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datDecimal
Value = ''
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datDecimal
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datDecimal
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datDecimal
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datDecimal
Value = ''
end
item
Name = 'IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datDecimal
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'REF_TIENDA_WEB'
DataType = datInteger
Value = ''
end
item
Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PEDIDOS_CLIENTE'
SQL =
'UPDATE PEDIDOS_CLIENTE'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
'ID_CLIENTE = :ID_CLIENTE, '#10' USUARIO = :USUARIO, '#10' FECHA_PE' +
'DIDO = :FECHA_PEDIDO, '#10' ID_DIRECCION = :ID_DIRECCION,'#10' CAL' +
'LE = :CALLE, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION' +
' = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACT' +
'O = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' REFERENCI' +
'A = :REFERENCIA, '#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10 +
' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS = :INCIDENC' +
'IAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' OBSER' +
'VACIONES = :OBSERVACIONES, '#10' FECHA_ALTA = :FECHA_ALTA,'#10' FE' +
'CHA_MODIFICACION = :FECHA_MODIFICACION,'#10' IMPORTE_NETO = :IMPO' +
'RTE_NETO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :' +
'DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BAS' +
'E_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA' +
' = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TI' +
'ENDA_WEB = :REF_TIENDA_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PR' +
'EVISTA_ENVIO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_PedidosCliente'
end>
RelationShips = <
item
Name = 'FK_Pedidos_Cliente_Detalles'
MasterDatasetName = 'PedidosCliente'
MasterFields = 'ID'
DetailDatasetName = 'PedidosCliente_Detalles'
DetailFields = 'ID_PEDIDO'
RelationshipType = rtForeignKey
end>
UpdateRules = <
item
Name = 'Insert PedidosCliente'
DoUpdate = False
DoDelete = False
DatasetName = 'PedidosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert PedidosCliente_Detalles'
DoUpdate = False
DoDelete = False
DatasetName = 'PedidosCliente_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Update PedidosCliente'
DoInsert = False
DoDelete = False
DatasetName = 'PedidosCliente'
FailureBehavior = fbRaiseException
end
item
Name = 'Update PedidosCliente_Detalles'
DoInsert = False
DoDelete = False
DatasetName = 'PedidosCliente_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete PedidosCliente_Detalles'
DoUpdate = False
DoInsert = False
DatasetName = 'PedidosCliente_Detalles'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete PedidosCliente'
DoUpdate = False
DoInsert = False
DatasetName = 'PedidosCliente'
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 48
Top = 24
end
object bpPedidosCliente: TDABusinessProcessor
Schema = schPedidosCliente
InsertCommandName = 'Insert_PedidosCliente'
DeleteCommandName = 'Delete_PedidosCliente'
UpdateCommandName = 'Update_PedidosCliente'
ReferencedDataset = 'PedidosCliente'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 24
end
object bpPedidosCliente_Detalles: TDABusinessProcessor
Schema = schPedidosCliente
InsertCommandName = 'Insert_PedidosCliente_Detalles'
DeleteCommandName = 'Delete_PedidosCliente_Detalles'
UpdateCommandName = 'Update_PedidosCliente_Detalles'
ReferencedDataset = 'PedidosCliente_Detalles'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 192
Top = 80
end
object DADataDictionary: TDADataDictionary
Fields = <
item
Name = 'PedidosCliente_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_ID'
DisplayLabel = 'ID'
end
item
Name = 'PedidosCliente_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'PedidosCliente_ID_CLIENTE'
DataType = datInteger
DisplayLabel = 'ID_CLIENTE'
end
item
Name = 'PedidosCliente_NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre del cliente'
end
item
Name = 'PedidosCliente_FECHA_PEDIDO'
DataType = datDateTime
DisplayLabel = 'Fecha pedido'
end
item
Name = 'PedidosCliente_CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
end
item
Name = 'PedidosCliente_CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'd. postal'
end
item
Name = 'PedidosCliente_POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
end
item
Name = 'PedidosCliente_PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
end
item
Name = 'PedidosCliente_PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
end
item
Name = 'PedidosCliente_TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
end
item
Name = 'PedidosCliente_OBSERVACIONES'
DataType = datMemo
DisplayLabel = 'Observaciones'
end
item
Name = 'PedidosCliente_INCIDENCIAS'
DataType = datMemo
DisplayLabel = 'INCIDENCIAS'
end
item
Name = 'PedidosCliente_INCIDENCIAS_ACTIVAS'
DataType = datInteger
DisplayLabel = 'INCIDENCIAS_ACTIVAS'
end
item
Name = 'PedidosCliente_FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'FECHA_ALTA'
end
item
Name = 'PedidosCliente_FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'FECHA_MODIFICACION'
end
item
Name = 'PedidosCliente_USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'USUARIO'
end
item
Name = 'PedidosCliente_IMPORTE_NETO'
DataType = datCurrency
DisplayLabel = 'Importe neto'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe del porte'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_IMPORTE_DESCUENTO'
DataType = datCurrency
DisplayLabel = 'Importe dto.'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_BASE_IMPONIBLE'
DataType = datCurrency
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_IVA'
DataType = datFloat
DisplayLabel = 'IVA'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_IMPORTE_IVA'
DataType = datCurrency
DisplayLabel = 'Importe IVA'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_ID_FORMA_PAGO'
DataType = datInteger
DisplayLabel = 'ID_FORMA_PAGO'
end
item
Name = 'PedidosCliente_Detalles_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'PedidosCliente_Detalles_ID_PEDIDO'
DataType = datInteger
DisplayLabel = 'ID_PEDIDO'
end
item
Name = 'POSICIONCONCEPTO'
DataType = datInteger
DisplayLabel = 'POSICION'
end
item
Name = 'PedidosCliente_Detalles_TIPO_DETALLE'
DataType = datString
Size = 10
DisplayLabel = 'TIPO_DETALLE'
end
item
Name = 'PedidosCliente_Detalles_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
end
item
Name = 'PedidosCliente_Detalles_ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'ID_ARTICULO'
end
item
Name = 'PedidosCliente_Detalles_CONCEPTO'
DataType = datString
Size = 2000
DisplayLabel = 'CONCEPTO'
end
item
Name = 'CANTIDAD'
DataType = datInteger
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_Detalles_IMPORTE_UNIDAD'
DataType = datCurrency
DisplayLabel = 'Importe unidad'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_Detalles_IMPORTE_TOTAL'
DataType = datCurrency
DisplayLabel = 'Importe total'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_Detalles_DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento'
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_Detalles_IMPORTE_PORTE'
DataType = datCurrency
DisplayLabel = 'Importe porte'
Alignment = taRightJustify
end
item
Name = 'PedidosCliente_Detalles_VISIBLE'
DataType = datInteger
DisplayLabel = 'VISIBLE'
end
item
Name = 'PedidosCliente_Detalles_REFERENCIA_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Ref. proveedor'
end
item
Name = 'PedidoCliente_Articulos_Pendientes_ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'ID_ARTICULO'
end
item
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PED'
DataType = datInteger
DisplayLabel = 'Cantidad en pedido'
Alignment = taRightJustify
end
item
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_ALB'
DataType = datInteger
DisplayLabel = 'Cantidad en albaranes'
Alignment = taRightJustify
end
item
Name = 'PedidoCliente_Articulos_Pendientes_CANTIDAD_PENDIENTE'
DataType = datInteger
DisplayLabel = 'Cantidad pendiente'
Alignment = taRightJustify
end
item
Name = 'DarArticulosPendientesPedirAProv_ID_PEDIDO'
DataType = datAutoInc
DisplayLabel = 'ID_PEDIDO'
end
item
Name = 'DarArticulosPendientesPedirAProv_ID_ARTICULO'
DataType = datInteger
DisplayLabel = 'ID_ARTICULO'
end
item
Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_CLIENTE'
DataType = datInteger
DisplayLabel = 'Cant. pedida por cliente'
end
item
Name = 'DarArticulosPendientesPedirAProv_ID_PROVEEDOR'
DataType = datInteger
DisplayLabel = 'ID_PROVEEDOR'
end
item
Name = 'DarArticulosPendientesPedirAProv_CANT_PEDIDA_PROVEEDOR'
DataType = datInteger
DisplayLabel = 'Cant. pedida a proveedor'
end
item
Name = 'DarArticulosPendientesPedirAProv_CANT_PENDIENTE_PEDIR'
DataType = datInteger
DisplayLabel = 'Cant. pendiente pedir'
end
item
Name = 'PedidosCliente_FECHA_PREVISTA_ENVIO'
DataType = datDateTime
DisplayLabel = 'Fecha de entrega prevista'
end
item
Name = 'PedidosCliente_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
end
item
Name = 'PedidosCliente_REFERENCIA_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'PedidosCliente_SITUACION'
DataType = datString
Size = 255
DisplayLabel = 'Situaci'#243'n'
ServerAutoRefresh = True
end
item
Name = 'PedidosCliente_REF_TIENDA_WEB'
DataType = datInteger
DisplayLabel = 'REF_TIENDA_WEB'
end>
Left = 48
Top = 152
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 88
end
end
Reference in New Issue View Git Blame Copy Permalink