object srvPedidosCliente: TsrvPedidosCliente OldCreateOrder = True OnCreate = DARemoteServiceCreate ConnectionName = 'IBX' ServiceSchema = schPedidosCliente ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 231 Width = 353 object schPedidosCliente: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DADataDictionary Datasets = < item Params = <> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True Name = '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'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ANO' TableField = 'ANO' end> end> Name = 'ListaAnosPedidos' Fields = < item Name = 'ANO' DataType = datString Size = 254 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 = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'FECHA_PEDIDO' TableField = 'FECHA_PEDIDO' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'INCIDENCIAS' TableField = 'INCIDENCIAS' end item DatasetField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS_ACTIVAS' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' end item DatasetField = 'TELEFONO' TableField = 'TELEFONO' 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 = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'REFERENCIA_CLIENTE' TableField = 'REFERENCIA_CLIENTE' end item DatasetField = 'REF_TIENDA_WEB' TableField = 'REF_TIENDA_WEB' end item DatasetField = 'FECHA_PREVISTA_ENVIO' TableField = 'FECHA_PREVISTA_ENVIO' end item DatasetField = 'NUM_COPIAS' TableField = 'NUM_COPIAS' end item DatasetField = 'NUM_CORREOS' TableField = 'NUM_CORREOS' end item DatasetField = 'ID_DIRECCION' TableField = 'ID_DIRECCION' end> end> Name = 'PedidosCliente' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_CLI_ID' ServerAutoRefresh = True 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 = 'ID_DIRECCION' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 ServerAutoRefresh = True 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 = '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 ServerAutoRefresh = True 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 item Name = 'NUM_COPIAS' DataType = datSmallInt DictionaryEntry = 'PedidosCliente_NUM_COPIAS' end item Name = 'NUM_CORREOS' DataType = datSmallInt DictionaryEntry = 'PedidosCliente_NUM_CORREOS' end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_CLIENTE_DETALLES' SQL = 'SELECT'#10' PEDIDOS_CLIENTE_DETALLES.ID, PEDIDOS_CLIENTE_DETALL' + 'ES.ID_PEDIDO,'#10' PEDIDOS_CLIENTE_DETALLES.POSICION, PEDIDOS_C' + 'LIENTE_DETALLES.TIPO_DETALLE,'#10' PEDIDOS_CLIENTE_DETALLES.CONC' + 'EPTO, PEDIDOS_CLIENTE_DETALLES.CANTIDAD,'#10' PEDIDOS_CLIENTE_D' + 'ETALLES.IMPORTE_UNIDAD, PEDIDOS_CLIENTE_DETALLES.IMPORTE_TOTAL,' + #10' PEDIDOS_CLIENTE_DETALLES.VISIBLE,'#10#10' PEDIDOS_CLIENTE_DE' + 'TALLES.ID_ARTICULO, PEDIDOS_CLIENTE_DETALLES.DESCUENTO,'#10' PE' + 'DIDOS_CLIENTE_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.REFERENCIA, ' + 'ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10'FROM PEDIDOS_' + 'CLIENTE_DETALLES'#10'LEFT JOIN ARTICULOS ON (ARTICULOS.ID = PEDIDOS' + '_CLIENTE_DETALLES.ID_ARTICULO)'#10'LEFT JOIN PEDIDOS_CLIENTE ON ( P' + 'EDIDOS_CLIENTE.ID = PEDIDOS_CLIENTE_DETALLES.ID_PEDIDO)'#10'WHERE {' + 'where}'#10'ORDER BY POSICION;'#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 = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'VISIBLE' TableField = 'VISIBLE' end item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_PORTE' TableField = 'IMPORTE_PORTE' end item DatasetField = 'REFERENCIA' TableField = '' SQLOrigin = 'REFERENCIA' end item DatasetField = 'REFERENCIA_PROVEEDOR' TableField = '' SQLOrigin = 'REFERENCIA_PROVEEDOR' end> end> Name = 'PedidosCliente_Detalles' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID' ServerAutoRefresh = True 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 = 'PedidosCliente_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 DictionaryEntry = 'PedidosCliente_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datFloat DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datInteger DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE' end item Name = 'ID_ARTICULO' DataType = datInteger DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO' 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 = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA' end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> end item Params = < item Name = 'ID' Value = '41' ParamType = daptInput end> Statements = < item Connection = 'IBX' 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 (CANTIDAD_PENDIENTE > 0)'#10'AND (ID_PEDIDO = :ID)'#10#10 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 = 'PedidosCliente_Articulos_Pendientes' Fields = < item Name = 'ID_ARTICULO' DataType = datInteger DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO' end item Name = 'CANTIDAD_PED' DataType = datCurrency end item Name = 'CANTIDAD_ALB' DataType = datCurrency end item Name = 'CANTIDAD_PENDIENTE' DataType = datCurrency end> ReadOnly = True end item Params = < item Name = 'ID' Value = '41' ParamType = daptInput end> Statements = < item Connection = 'IBX' SQL = 'SELECT'#10' ID_PEDIDO, ID_ARTICULO, CANT_PEDIDA_CLIENTE, ID_PROVE' + 'EDOR,'#10' CANT_PEDIDA_PROVEEDOR, CANT_PENDIENTE_PEDIR'#10' FROM'#10' ' + ' V_PED_CLI_ART_PEND_PEDIR_PROV'#10' WHERE ID_PEDIDO = :ID'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_ARTICULO' TableField = 'ID_ARTICULO' end item DatasetField = 'ID_PEDIDO' TableField = 'ID_PEDIDO' 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 = datInteger end item Name = 'ID_ARTICULO' DataType = datInteger DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO' end item Name = 'CANT_PEDIDA_CLIENTE' DataType = datCurrency end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'CANT_PEDIDA_PROVEEDOR' DataType = datCurrency end item Name = 'CANT_PENDIENTE_PEDIR' DataType = datCurrency end> end> JoinDataTables = <> UnionDataTables = <> Commands = < 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 = 'ID_DIRECCION' DataType = datInteger Value = '' end item Name = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'FECHA_PEDIDO' DataType = datDateTime 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 = datCurrency 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 = datCurrency Value = '' end item Name = 'IMPORTE_PORTE' DataType = datCurrency Value = '' end item Name = 'DESCUENTO' DataType = datFloat Value = '' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency Value = '' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency Value = '' end item Name = 'IVA' DataType = datFloat Value = '' end item Name = 'IMPORTE_IVA' DataType = datCurrency 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' Default = True TargetTable = 'PEDIDOS_CLIENTE' SQL = 'INSERT'#10' INTO PEDIDOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE, I' + 'D_DIRECCION, USUARIO, FECHA_PEDIDO,'#10' CALLE, CODIGO_POSTAL, P' + 'OBLACION, PROVINCIA, PERSONA_CONTACTO,'#10' TELEFONO, REFERENCIA' + ', REFERENCIA_CLIENTE, IMPORTE_TOTAL, INCIDENCIAS,'#10' INCIDENCI' + 'AS_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_TIENDA' + '_WEB, FECHA_PREVISTA_ENVIO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_' + 'CLIENTE, :ID_DIRECCION, :USUARIO, :FECHA_PEDIDO,'#10' :CALLE, :C' + 'ODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :T' + 'ELEFONO, :REFERENCIA, :REFERENCIA_CLIENTE, :IMPORTE_TOTAL, :INCI' + 'DENCIAS,'#10' :INCIDENCIAS_ACTIVAS, :OBSERVACIONES, :FECHA_ALTA,' + #10' :FECHA_MODIFICACION, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :' + 'DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' :IMPO' + 'RTE_IVA, :ID_FORMA_PAGO, :REF_TIENDA_WEB, :FECHA_PREVISTA_ENVIO)' + #10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_PedidosCliente' end item Params = < item Name = 'OLD_ID' DataType = datAutoInc Value = '' end> Statements = < item Connection = 'IBX' Default = True TargetTable = 'PEDIDOS_CLIENTE' SQL = 'DELETE'#10' FROM'#10' PEDIDOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)'#10 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 = 'ID_DIRECCION' DataType = datInteger Value = '' end item Name = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'FECHA_PEDIDO' DataType = datDateTime 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 = datCurrency 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 = datCurrency Value = '' end item Name = 'IMPORTE_PORTE' DataType = datCurrency Value = '' end item Name = 'DESCUENTO' DataType = datFloat Value = '' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency Value = '' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency Value = '' end item Name = 'IVA' DataType = datFloat Value = '' end item Name = 'IMPORTE_IVA' DataType = datCurrency 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' Default = True TargetTable = 'PEDIDOS_CLIENTE' SQL = 'UPDATE PEDIDOS_CLIENTE'#10' SET'#10' ID_EMPRESA = :ID_EMPRESA,'#10' I' + 'D_CLIENTE = :ID_CLIENTE,'#10' ID_DIRECCION = :ID_DIRECCION,'#10' U' + 'SUARIO = :USUARIO,'#10' FECHA_PEDIDO = :FECHA_PEDIDO,'#10' CALLE =' + ' :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL,'#10' POBLACION = :PO' + 'BLACION,'#10' PROVINCIA = :PROVINCIA,'#10' PERSONA_CONTACTO = :PER' + 'SONA_CONTACTO,'#10' TELEFONO = :TELEFONO,'#10' REFERENCIA = :REFER' + 'ENCIA,'#10' REFERENCIA_CLIENTE = :REFERENCIA_CLIENTE,'#10' IMPORTE' + '_TOTAL = :IMPORTE_TOTAL,'#10' INCIDENCIAS = :INCIDENCIAS,'#10' INC' + 'IDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS,'#10' OBSERVACIONES = :OB' + 'SERVACIONES,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACIO' + 'N = :FECHA_MODIFICACION,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' I' + 'MPORTE_PORTE = :IMPORTE_PORTE,'#10' DESCUENTO = :DESCUENTO,'#10' I' + 'MPORTE_DESCUENTO = :IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE = :BAS' + 'E_IMPONIBLE,'#10' IVA = :IVA,'#10' IMPORTE_IVA = :IMPORTE_IVA,'#10' ' + ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' REF_TIENDA_WEB = :REF_TIEND' + 'A_WEB,'#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO'#10' WHERE'#10 + ' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_PedidosCliente' end item Params = < item Name = 'CANTIDAD' DataType = datCurrency Value = '' end item Name = 'POSICION' DataType = datInteger Value = '' end item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID' Value = '' end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 Value = '' end item Name = 'CONCEPTO' DataType = datString Size = 2000 Value = '' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency Value = '' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency Value = '' end item Name = 'VISIBLE' DataType = datSmallInt Value = '' end item Name = 'ID_PEDIDO' DataType = datInteger Value = '' end item Name = 'ID_ARTICULO' DataType = datInteger Value = '' end item Name = 'DESCUENTO' DataType = datFloat Value = '' end item Name = 'IMPORTE_PORTE' DataType = datCurrency Value = '' end> Statements = < item Connection = 'IBX' Default = True 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, :CONCEPT' + 'O,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDIDO,'#10' ' + ' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_PedidosCliente_Detalles' end item Params = < item Name = 'OLD_ID' DataType = datAutoInc Value = '' end> Statements = < item Connection = 'IBX' Default = True 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 = datCurrency Value = '' end item Name = 'POSICION' DataType = datInteger Value = '' end item Name = 'ID' DataType = datInteger Value = '' end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 Value = '' end item Name = 'CONCEPTO' DataType = datString Size = 2000 Value = '' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency Value = '' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency Value = '' end item Name = 'VISIBLE' DataType = datSmallInt Value = '' end item Name = 'ID_PEDIDO' DataType = datInteger Value = '' end item Name = 'ID_ARTICULO' DataType = datInteger Value = '' end item Name = 'DESCUENTO' DataType = datFloat Value = '' end item Name = 'IMPORTE_PORTE' DataType = datCurrency Value = '' end item Name = 'OLD_ID' Value = '' end> Statements = < item Connection = 'IBX' Default = True 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 = :IMPORT' + 'E_UNIDAD,'#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' VISIBLE = :VIS' + 'IBLE,'#10' ID_PEDIDO = :ID_PEDIDO,'#10' ID_ARTICULO = :ID_ARTICULO' + ','#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE' + #10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_PedidosCliente_Detalles' end> RelationShips = < item Name = 'FK_PEDIDOCLIENTE_DETALLES' MasterDatasetName = 'PedidosCliente' MasterFields = 'ID' DetailDatasetName = 'PedidosCliente_Detalles' DetailFields = 'ID_PEDIDO' RelationshipType = rtForeignKey end> UpdateRules = <> Version = 0 Left = 56 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 = 240 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 = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 240 Top = 88 end object DADataDictionary: TDADataDictionary Fields = < item Name = 'PedidosProveedor_ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_PROV_ID' Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'PedidosProveedor_ID_EMPRESA' DataType = datInteger DisplayLabel = 'ID_EMPRESA' end item Name = 'PedidosProveedor_NOMBRE' DataType = datString Size = 255 DisplayLabel = 'Nombre del proveedor' end item Name = 'PedidosProveedor_FECHA_PEDIDO' DataType = datDateTime DisplayLabel = 'Fecha pedido' end item Name = 'PedidosProveedor_CALLE' DataType = datString Size = 255 DisplayLabel = 'Calle' end item Name = 'PedidosProveedor_CODIGO_POSTAL' DataType = datString Size = 10 DisplayLabel = 'C'#243'd. postal' end item Name = 'PedidosProveedor_POBLACION' DataType = datString Size = 255 DisplayLabel = 'Poblaci'#243'n' end item Name = 'PedidosProveedor_PROVINCIA' DataType = datString Size = 255 DisplayLabel = 'Provincia' end item Name = 'PedidosProveedor_PERSONA_CONTACTO' DataType = datString Size = 255 DisplayLabel = 'Persona de contacto' end item Name = 'PedidosProveedor_TELEFONO' DataType = datString Size = 25 DisplayLabel = 'Tel'#233'fono' end item Name = 'PedidosProveedor_OBSERVACIONES' DataType = datMemo DisplayLabel = 'Observaciones' end item Name = 'PedidosProveedor_INCIDENCIAS' DataType = datMemo DisplayLabel = 'INCIDENCIAS' end item Name = 'PedidosProveedor_INCIDENCIAS_ACTIVAS' DataType = datInteger DisplayLabel = 'INCIDENCIAS_ACTIVAS' end item Name = 'PedidosProveedor_FECHA_ALTA' DataType = datDateTime DisplayLabel = 'FECHA_ALTA' end item Name = 'PedidosProveedor_FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'FECHA_MODIFICACION' end item Name = 'PedidosProveedor_USUARIO' DataType = datString Size = 20 DisplayLabel = 'USUARIO' end item Name = 'PedidosProveedor_IMPORTE_NETO' DataType = datCurrency DisplayLabel = 'Importe neto' Alignment = taRightJustify end item Name = 'PedidosProveedor_IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe del porte' Alignment = taRightJustify end item Name = 'PedidosProveedor_DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify end item Name = 'PedidosProveedor_IMPORTE_DESCUENTO' DataType = datCurrency DisplayLabel = 'Importe dto.' Alignment = taRightJustify end item Name = 'PedidosProveedor_BASE_IMPONIBLE' DataType = datCurrency DisplayLabel = 'Base imponible' Alignment = taRightJustify end item Name = 'PedidosProveedor_IVA' DataType = datFloat DisplayLabel = 'IVA' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify end item Name = 'PedidosProveedor_IMPORTE_IVA' DataType = datCurrency DisplayLabel = 'Importe IVA' Alignment = taRightJustify end item Name = 'PedidosProveedor_IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'PedidosProveedor_ID_FORMA_PAGO' DataType = datInteger DisplayLabel = 'ID_FORMA_PAGO' end item Name = 'PedidosProveedor_Detalles_ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID' Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'PedidosProveedor_Detalles_ID_PEDIDO' DataType = datInteger Required = True DisplayLabel = 'ID_PEDIDO' end item Name = 'POSICIONCONCEPTO' DataType = datInteger DisplayLabel = 'POSICION' end item Name = 'PedidosProveedor_Detalles_TIPO_DETALLE' DataType = datString Size = 25 DisplayLabel = 'TIPO_DETALLE' end item Name = 'PedidosProveedor_Detalles_REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Referencia' end item Name = 'PedidosProveedor_Detalles_ID_ARTICULO' DataType = datInteger DisplayLabel = 'ID_ARTICULO' end item Name = 'PedidosProveedor_Detalles_CONCEPTO' DataType = datString Size = 2000 DisplayLabel = 'CONCEPTO' end item Name = 'CANTIDAD' DataType = datFloat Alignment = taRightJustify end item Name = 'PedidosProveedor_Detalles_IMPORTE_UNIDAD' DataType = datCurrency DisplayLabel = 'Importe unidad' Alignment = taRightJustify end item Name = 'PedidosProveedor_Detalles_IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'PedidosProveedor_Detalles_DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify end item Name = 'PedidosProveedor_Detalles_IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe porte' Alignment = taRightJustify end item Name = 'PedidosProveedor_Detalles_VISIBLE' DataType = datInteger DisplayLabel = 'VISIBLE' end item Name = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR' DataType = datString Size = 255 DisplayLabel = 'Ref. proveedor' end item Name = 'PedidosProveedor_ID_PROVEEDOR' DataType = datInteger end item Name = 'PedidosProveedor_FECHA_CONFIRMACION' DataType = datDateTime DisplayLabel = #191'Confirmado?' end item Name = 'PedidosProveedor_FECHA_ENTREGA' DataType = datDateTime DisplayLabel = 'Entrega prevista' end item Name = 'PedidosProveedor_SITUACION' DataType = datString Size = 255 DisplayLabel = 'Situaci'#243'n' end item Name = 'PedidosProveedor_ID_ALMACEN' DataType = datInteger end item Name = 'PedidosProveedor_ID_PEDIDO_CLIENTE' DataType = datInteger end item Name = 'PedidosProveedor_REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'REFERENCIA' end item Name = 'PedidosProveedor_FECHA_ENVIO' DataType = datDateTime DisplayLabel = #191'Enviado?' end item Name = 'PedidosProveedor_NOMBRE_ALMACEN' DataType = datString Size = 255 DisplayLabel = 'Almac'#233'n' end item Name = 'PedidosProveedor_REF_PED_CLIENTE' DataType = datString Size = 255 end item Name = 'PedidosProveedor_Detalles_UNIDAD_MEDIDA' DataType = datString Size = 255 DisplayLabel = 'Unidad de medida' end item Name = 'PedidosProveedor_Detalles_REFERENCIA_FABRICANTE' DataType = datString Size = 255 DisplayLabel = 'Ref. fabricante' end item Name = 'PedidosProveedor_ID_OBRA' DataType = datInteger end item Name = 'PedidosProveedor_NOMBRE_OBRA' DataType = datString Size = 255 DisplayLabel = 'Obra' end item Name = 'PedidosProveedor_ID_DIRECCION' DataType = datInteger DisplayLabel = 'ID_DIRECCION' end item Name = 'PedidosProveedor_TIPO_ALMACEN' DataType = datString Size = 10 ServerAutoRefresh = True end item Name = 'PedidosProveedor_ID_FACTURA' DataType = datInteger end item Name = 'PedidosProveedor_REF_FACTURA_PROV' DataType = datString Size = 255 end item Name = 'PedidosProveedor_PERSONA_CONTACTO_PROV' DataType = datString Size = 255 DisplayLabel = 'Contacto del proveedor' end item Name = 'PedidosCliente_ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_CLI_ID' Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'PedidosCliente_ID_EMPRESA' DataType = datInteger DisplayLabel = 'ID_EMPRESA' end item Name = 'PedidosCliente_ID_CLIENTE' DataType = datInteger end item Name = 'PedidosCliente_NOMBRE' DataType = datString Size = 255 DisplayLabel = 'Nombre del proveedor' ServerAutoRefresh = True end item Name = 'PedidosCliente_REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'REFERENCIA' end item Name = 'PedidosCliente_REFERENCIA_CLIENTE' DataType = datString Size = 255 end item Name = 'PedidosCliente_SITUACION' DataType = datString Size = 255 DisplayLabel = 'Situaci'#243'n' 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 ServerAutoRefresh = True 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_REF_TIENDA_WEB' DataType = datInteger end item Name = 'PedidosCliente_FECHA_PREVISTA_ENVIO' DataType = datDateTime end item Name = 'PedidosCliente_NUM_COPIAS' DataType = datSmallInt end item Name = 'PedidosCliente_NUM_CORREOS' DataType = datSmallInt end item Name = 'PedidosCliente_Detalles_ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID' Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'PedidosCliente_Detalles_ID_PEDIDO' DataType = datInteger Required = True DisplayLabel = 'ID_PEDIDO' end item Name = 'PedidosCliente_Detalles_POSICION' DataType = datInteger DisplayLabel = 'POSICION' end item Name = 'PedidosCliente_Detalles_TIPO_DETALLE' DataType = datString Size = 25 DisplayLabel = 'TIPO_DETALLE' end item Name = 'PedidosCliente_Detalles_CONCEPTO' DataType = datString Size = 2000 DisplayLabel = 'CONCEPTO' end item Name = 'PedidosCliente_Detalles_CANTIDAD' DataType = datFloat DisplayLabel = 'CANTIDAD' 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_VISIBLE' DataType = datInteger DisplayLabel = 'VISIBLE' end item Name = 'PedidosCliente_Detalles_ID_ARTICULO' DataType = datInteger DisplayLabel = 'ID_ARTICULO' 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_REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Referencia' end> Left = 56 Top = 144 end object Bin2DataStreamer: TDABin2DataStreamer Left = 56 Top = 80 end end