object srvRecibosCliente: TsrvRecibosCliente OldCreateOrder = True OnCreate = DARemoteServiceCreate ConnectionName = 'IBX' ServiceSchema = schRecibosCliente ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection BeforeExecuteCommand = DataAbstractServiceBeforeExecuteCommand Height = 233 Width = 285 object schRecibosCliente: 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_EMISION, 1,4)) as ' + 'ANO'#10'from recibos_cliente'#10'order by 1 desc)'#10#10'UNION ALL'#10#10'select dis' + 'tinct '#39'Todos'#39' as ANO'#10'from empresas'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ANO' TableField = 'ANO' end> end> Name = 'ListaAnosRecibos' Fields = < item Name = 'ANO' DataType = datString Size = 255 end> ReadOnly = True end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_RECIBOS_CLIENTE' SQL = 'select v_recibos_cliente.ID, v_recibos_cliente.ID_RECIBO_COMPENS' + 'ADO, v_recibos_cliente.REFERENCIA_REC_COMPENSADO,'#10' v_recibos_' + 'cliente.REFERENCIA, v_recibos_cliente.SITUACION, v_recibos_clien' + 'te.ID_FACTURA, v_recibos_cliente.FECHA_FACTURA, v_recibos_client' + 'e.FORMA_PAGO_FACTURA,'#10' v_recibos_cliente.IMPORTE_FACTURA, v_r' + 'ecibos_cliente.ID_REMESA, v_recibos_cliente.REFERENCIA_REMESA, v' + '_recibos_cliente.FECHA_EMISION,'#10' v_recibos_cliente.FECHA_VENC' + 'IMIENTO, v_recibos_cliente.DESCRIPCION, v_recibos_cliente.OBSERV' + 'ACIONES, v_recibos_cliente.IMPORTE,'#10' v_recibos_cliente.OTROS_' + 'GASTOS, v_recibos_cliente.IMPORTE_TOTAL, v_recibos_cliente.ID_EM' + 'PRESA, v_recibos_cliente.ID_CLIENTE,'#10' v_recibos_cliente.NOMBR' + 'E_CLIENTE, v_recibos_cliente.ENTIDAD_CLIENTE, v_recibos_cliente.' + 'SUCURSAL_CLIENTE,'#10' v_recibos_cliente.DC_CLIENTE, v_recibos_cl' + 'iente.CUENTA_CLIENTE, v_recibos_cliente.NIF_CIF, v_recibos_clien' + 'te.NOMBRE, v_recibos_cliente.CALLE,'#10' v_recibos_cliente.POBLAC' + 'ION, v_recibos_cliente.CODIGO_POSTAL, v_recibos_cliente.PROVINCI' + 'A, v_recibos_cliente.FECHA_ALTA, v_recibos_cliente.FECHA_MODIFIC' + 'ACION, v_recibos_cliente.USUARIO,'#10' v_recibos_cliente.ID_TIEND' + 'A, v_recibos_cliente.TIENDA, v_recibos_cliente.LISTA_NOMBRES,'#10' ' + ' cont_subcuentas.descripcion as CUENTA_CONTABLE, v_recibos_clie' + 'nte.ID_CONTRATO, v_recibos_cliente.ID_CON_FACTURA, v_recibos_cli' + 'ente.REFERENCIA_CONTRATO,'#10' v_recibos_cliente.FECHA_PAGO, v_re' + 'cibos_cliente.SUBCUENTA'#10'from v_recibos_cliente'#10' left outer jo' + 'in pagos_cliente pag on'#10' (pag.id_recibo = v_recibos_clien' + 'te.id)'#10' left outer join pagos_cliente pag2 on'#10' ((pag2.' + 'id_recibo = pag.id_recibo) and (pag2.id > pag.id))'#10' left oute' + 'r join cont_subcuentas on'#10' (cont_subcuentas.id = pag.cuen' + 'ta)'#10'where (pag2.id is null) and {Where}'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_RECIBO_COMPENSADO' TableField = 'ID_RECIBO_COMPENSADO' end item DatasetField = 'REFERENCIA_REC_COMPENSADO' TableField = 'REFERENCIA_REC_COMPENSADO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end item DatasetField = 'ID_REMESA' TableField = 'ID_REMESA' end item DatasetField = 'REFERENCIA_REMESA' TableField = 'REFERENCIA_REMESA' end item DatasetField = 'FECHA_EMISION' TableField = 'FECHA_EMISION' end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'IMPORTE' TableField = 'IMPORTE' end item DatasetField = 'OTROS_GASTOS' TableField = 'OTROS_GASTOS' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' end item DatasetField = 'FORMA_PAGO_FACTURA' TableField = 'FORMA_PAGO_FACTURA' end item DatasetField = 'IMPORTE_FACTURA' TableField = 'IMPORTE_FACTURA' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NOMBRE_CLIENTE' TableField = 'NOMBRE_CLIENTE' end item DatasetField = 'ENTIDAD_CLIENTE' TableField = 'ENTIDAD_CLIENTE' end item DatasetField = 'SUCURSAL_CLIENTE' TableField = 'SUCURSAL_CLIENTE' end item DatasetField = 'DC_CLIENTE' TableField = 'DC_CLIENTE' end item DatasetField = 'CUENTA_CLIENTE' TableField = 'CUENTA_CLIENTE' end item DatasetField = 'ID_TIENDA' TableField = 'ID_TIENDA' end item DatasetField = 'TIENDA' TableField = 'TIENDA' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'CUENTA_CONTABLE' TableField = '' SQLOrigin = 'CUENTA_CONTABLE' end item DatasetField = 'LISTA_NOMBRES' TableField = 'LISTA_NOMBRES' 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 = 'ID_CON_FACTURA' TableField = 'ID_CON_FACTURA' end item DatasetField = 'REFERENCIA_CONTRATO' TableField = 'REFERENCIA_CONTRATO' end item DatasetField = 'ID_CONTRATO' TableField = 'ID_CONTRATO' end item DatasetField = 'FECHA_PAGO' TableField = 'FECHA_PAGO' end item DatasetField = 'SUBCUENTA' TableField = 'SUBCUENTA' end> end> Name = 'RecibosCliente' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_RECIBOS_CLIENTE_ID' ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_ID' InPrimaryKey = True end item Name = 'ID_RECIBO_COMPENSADO' DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO' end item Name = 'REFERENCIA_REC_COMPENSADO' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_REFERENCIA_REC_COMPENSADO' end item Name = 'REFERENCIA' DataType = datString Size = 255 ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_REFERENCIA' end item Name = 'SITUACION' DataType = datString Size = 9 DictionaryEntry = 'RecibosCliente_SITUACION' end item Name = 'ID_FACTURA' DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_FACTURA' end item Name = 'FECHA_FACTURA' DataType = datDateTime DictionaryEntry = 'RecibosCliente_FECHA_FACTURA' end item Name = 'FORMA_PAGO_FACTURA' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_FORMA_PAGO_FACTURA' end item Name = 'IMPORTE_FACTURA' DataType = datCurrency DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA' end item Name = 'ID_REMESA' DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_REMESA' end item Name = 'REFERENCIA_REMESA' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_REFERENCIA_REMESA' end item Name = 'FECHA_EMISION' DataType = datDateTime DictionaryEntry = 'RecibosCliente_FECHA_EMISION' end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime DictionaryEntry = 'RecibosCliente_FECHA_VENCIMIENTO' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_DESCRIPCION' end item Name = 'OBSERVACIONES' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_OBSERVACIONES' end item Name = 'IMPORTE' DataType = datCurrency DictionaryEntry = 'RecibosCliente_IMPORTE' end item Name = 'OTROS_GASTOS' DataType = datCurrency DictionaryEntry = 'RecibosCliente_OTROS_GASTOS' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL' end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_EMPRESA' end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_CLIENTE' end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE' end item Name = 'ENTIDAD_CLIENTE' DataType = datString Size = 15 DictionaryEntry = 'RecibosCliente_ENTIDAD_CLIENTE' end item Name = 'SUCURSAL_CLIENTE' DataType = datString Size = 15 DictionaryEntry = 'RecibosCliente_SUCURSAL_CLIENTE' end item Name = 'DC_CLIENTE' DataType = datString Size = 15 DictionaryEntry = 'RecibosCliente_DC_CLIENTE' end item Name = 'CUENTA_CLIENTE' DataType = datString Size = 15 DictionaryEntry = 'RecibosCliente_CUENTA_CLIENTE' end item Name = 'NIF_CIF' DataType = datString Size = 15 DictionaryEntry = 'RecibosCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_NOMBRE' end item Name = 'CALLE' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_CALLE' end item Name = 'POBLACION' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_POBLACION' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL' end item Name = 'PROVINCIA' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_PROVINCIA' end item Name = 'FECHA_ALTA' DataType = datDateTime DictionaryEntry = 'RecibosCliente_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DictionaryEntry = 'RecibosCliente_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DictionaryEntry = 'RecibosCliente_USUARIO' end item Name = 'ID_TIENDA' DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_TIENDA' end item Name = 'TIENDA' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_TIENDA' end item Name = 'LISTA_NOMBRES' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_LISTA_NOMBRES' end item Name = 'CUENTA_CONTABLE' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_CUENTA_CONTABLE' end item Name = 'ID_CONTRATO' DataType = datInteger end item Name = 'ID_CON_FACTURA' DataType = datInteger end item Name = 'REFERENCIA_CONTRATO' DataType = datString Size = 255 end item Name = 'FECHA_PAGO' DataType = datDateTime end item Name = 'SUBCUENTA' DataType = datString Size = 255 end> end item Params = <> Statements = < item Connection = 'IBX' Default = True TargetTable = 'V_PAGOS_CLIENTE' StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_RECIBO' TableField = 'ID_RECIBO' end item DatasetField = 'TIPO' TableField = 'TIPO' end item DatasetField = 'FECHA_PAGO' TableField = 'FECHA_PAGO' end item DatasetField = 'TITULAR' TableField = 'TITULAR' end item DatasetField = 'ENTIDAD' TableField = 'ENTIDAD' end item DatasetField = 'SUCURSAL' TableField = 'SUCURSAL' end item DatasetField = 'DC' TableField = 'DC' end item DatasetField = 'CUENTA' TableField = 'CUENTA' 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 = 'IGNORAR_CONTABILIDAD' TableField = 'IGNORAR_CONTABILIDAD' end item DatasetField = 'ID_SUBCUENTA' TableField = 'ID_SUBCUENTA' end item DatasetField = 'SUBCUENTA' TableField = 'SUBCUENTA' end item DatasetField = 'ID_EJERCICIO' TableField = 'ID_EJERCICIO' end item DatasetField = 'ESTADO_EJERCICIO' TableField = 'ESTADO_EJERCICIO' end item DatasetField = 'ASIENTO_PUNTEADO' TableField = 'ASIENTO_PUNTEADO' end> end> Name = 'PagosCliente' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PAGOS_CLIENTE_ID' ServerAutoRefresh = True DictionaryEntry = 'PagosCliente_ID' InPrimaryKey = True end item Name = 'ID_RECIBO' DataType = datInteger DictionaryEntry = 'PagosCliente_ID_RECIBO' end item Name = 'TIPO' DataType = datString Size = 255 DictionaryEntry = 'PagosCliente_TIPO' end item Name = 'FECHA_PAGO' DataType = datDateTime DictionaryEntry = 'PagosCliente_FECHA_PAGO' end item Name = 'TITULAR' DataType = datString Size = 255 DictionaryEntry = 'PagosCliente_TITULAR' end item Name = 'ENTIDAD' DataType = datString Size = 15 DictionaryEntry = 'PagosCliente_ENTIDAD' end item Name = 'SUCURSAL' DataType = datString Size = 15 DictionaryEntry = 'PagosCliente_SUCURSAL' end item Name = 'DC' DataType = datString Size = 15 DictionaryEntry = 'PagosCliente_DC' end item Name = 'CUENTA' DataType = datString Size = 15 DictionaryEntry = 'PagosCliente_CUENTA' end item Name = 'FECHA_ALTA' DataType = datDateTime DictionaryEntry = 'PagosCliente_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DictionaryEntry = 'PagosCliente_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DictionaryEntry = 'PagosCliente_USUARIO' end item Name = 'IGNORAR_CONTABILIDAD' DataType = datSmallInt end item Name = 'ID_SUBCUENTA' DataType = datInteger end item Name = 'SUBCUENTA' DataType = datString Size = 255 end item Name = 'ID_EJERCICIO' DataType = datInteger end item Name = 'ESTADO_EJERCICIO' DataType = datString Size = 255 end item Name = 'ASIENTO_PUNTEADO' DataType = datSmallInt end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_RECIBOS_CLIENTE' StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_RECIBO_COMPENSADO' TableField = 'ID_RECIBO_COMPENSADO' end item DatasetField = 'REFERENCIA_REC_COMPENSADO' TableField = 'REFERENCIA_REC_COMPENSADO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end item DatasetField = 'ID_REMESA' TableField = 'ID_REMESA' end item DatasetField = 'REFERENCIA_REMESA' TableField = 'REFERENCIA_REMESA' end item DatasetField = 'FECHA_EMISION' TableField = 'FECHA_EMISION' end item DatasetField = 'FECHA_VENCIMIENTO' TableField = 'FECHA_VENCIMIENTO' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'IMPORTE' TableField = 'IMPORTE' end item DatasetField = 'OTROS_GASTOS' TableField = 'OTROS_GASTOS' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'FECHA_FACTURA' TableField = 'FECHA_FACTURA' end item DatasetField = 'FORMA_PAGO_FACTURA' TableField = 'FORMA_PAGO_FACTURA' end item DatasetField = 'IMPORTE_FACTURA' TableField = 'IMPORTE_FACTURA' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'NOMBRE_CLIENTE' TableField = 'NOMBRE_CLIENTE' end item DatasetField = 'ENTIDAD_CLIENTE' TableField = 'ENTIDAD_CLIENTE' end item DatasetField = 'SUCURSAL_CLIENTE' TableField = 'SUCURSAL_CLIENTE' end item DatasetField = 'DC_CLIENTE' TableField = 'DC_CLIENTE' end item DatasetField = 'CUENTA_CLIENTE' TableField = 'CUENTA_CLIENTE' 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 = 'ID_TIENDA' TableField = 'ID_TIENDA' end item DatasetField = 'TIENDA' TableField = 'TIENDA' end item DatasetField = 'NIF_CIF' TableField = 'NIF_CIF' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'CALLE' TableField = 'CALLE' end item DatasetField = 'POBLACION' TableField = 'POBLACION' end item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' end item DatasetField = 'PROVINCIA' TableField = 'PROVINCIA' end item DatasetField = 'LISTA_NOMBRES' TableField = 'LISTA_NOMBRES' end item DatasetField = 'ID_CONTRATO' TableField = 'ID_CONTRATO' end> end> Name = 'RecibosCompensadosCli' Fields = < item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_RECIBO_COMPENSADO' DataType = datInteger end item Name = 'REFERENCIA_REC_COMPENSADO' DataType = datString Size = 255 end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 9 end item Name = 'ID_FACTURA' DataType = datInteger end item Name = 'FECHA_FACTURA' DataType = datDateTime end item Name = 'FORMA_PAGO_FACTURA' DataType = datString Size = 255 end item Name = 'IMPORTE_FACTURA' DataType = datCurrency end item Name = 'ID_REMESA' DataType = datInteger end item Name = 'REFERENCIA_REMESA' DataType = datString Size = 255 end item Name = 'FECHA_EMISION' DataType = datDateTime end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'OBSERVACIONES' DataType = datString Size = 255 end item Name = 'IMPORTE' DataType = datCurrency end item Name = 'OTROS_GASTOS' DataType = datCurrency end item Name = 'IMPORTE_TOTAL' DataType = datCurrency ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL' end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE' end item Name = 'ENTIDAD_CLIENTE' DataType = datString Size = 15 end item Name = 'SUCURSAL_CLIENTE' DataType = datString Size = 15 end item Name = 'DC_CLIENTE' DataType = datString Size = 15 end item Name = 'CUENTA_CLIENTE' DataType = datString Size = 15 end item Name = 'NIF_CIF' DataType = datString Size = 15 end item Name = 'NOMBRE' DataType = datString Size = 255 end item Name = 'CALLE' DataType = datString Size = 255 end item Name = 'POBLACION' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 end item Name = 'PROVINCIA' DataType = datString Size = 255 end item Name = 'FECHA_ALTA' DataType = datDateTime end item Name = 'FECHA_MODIFICACION' DataType = datDateTime end item Name = 'USUARIO' DataType = datString Size = 30 end item Name = 'ID_TIENDA' DataType = datInteger end item Name = 'TIENDA' DataType = datString Size = 255 end item Name = 'LISTA_NOMBRES' DataType = datString Size = 1 end item Name = 'ID_CONTRATO' DataType = datInteger end> end> JoinDataTables = <> UnionDataTables = <> Commands = < item Params = < item Name = 'IdPago' DataType = datInteger Value = '' ParamType = daptInput end item Name = 'Tipo' DataType = datString Size = 1 Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True Name = 'IBX' SQL = 'PROC_DELETE_ASIENTO_PAGO' StatementType = stStoredProcedure ColumnMappings = <> end> Name = 'Delete_AsientoPago' end item Params = < item Name = 'IdPago' DataType = datInteger Value = '' ParamType = daptInput end item Name = 'IdSubCuentaPago' DataType = datInteger Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' ConnectionType = 'Interbase' Default = True Name = 'IBX' SQL = 'PROC_NEW_ASIENTO_PAGO_CLI' StatementType = stStoredProcedure ColumnMappings = <> end> Name = 'Insert_AsientoPago' end item Params = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_RECIBOS_CLIENTE_ID' Value = '' end item Name = 'ID_EMPRESA' DataType = datInteger Value = '' end item Name = 'ID_CLIENTE' DataType = datInteger Value = '' end item Name = 'ID_FACTURA' DataType = datInteger Value = '' end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' end item Name = 'FECHA_EMISION' DataType = datDateTime Value = '' end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime Value = '' end item Name = 'DESCRIPCION' DataType = datString Size = 255 Value = '' end item Name = 'OBSERVACIONES' DataType = datString Size = 255 Value = '' end item Name = 'IMPORTE' DataType = datCurrency Value = '' end item Name = 'OTROS_GASTOS' DataType = datCurrency Value = '' end item Name = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'ID_TIENDA' DataType = datInteger Value = '' end item Name = 'NOMBRE' DataType = datString Size = 255 Value = '' end item Name = 'NIF_CIF' DataType = datString Size = 15 Value = '' end item Name = 'CALLE' DataType = datString Size = 255 Value = '' end item Name = 'POBLACION' DataType = datString Size = 255 Value = '' end item Name = 'PROVINCIA' DataType = datString Size = 255 Value = '' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 Value = '' end item Name = 'ID_CONTRATO' DataType = datInteger Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'RECIBOS_CLIENTE' SQL = 'INSERT'#10' INTO RECIBOS_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE, I' + 'D_FACTURA, REFERENCIA, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' + 'CION, OBSERVACIONES,'#10' IMPORTE, OTROS_GASTOS, USUARIO, ID_TIEN' + 'DA, NOMBRE, NIF_CIF, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,' + #10' FECHA_ALTA, ID_CONTRATO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :I' + 'D_CLIENTE, :ID_FACTURA, :REFERENCIA, :FECHA_EMISION, :FECHA_VENC' + 'IMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' :IMPORTE, :OTROS_GAST' + 'OS, :USUARIO, :ID_TIENDA, :NOMBRE, :NIF_CIF, :CALLE, :POBLACION,' + ' :PROVINCIA, :CODIGO_POSTAL,'#10' current_timestamp, :ID_CONTRATO' + ')'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_RecibosCliente' end item Params = < item Name = 'OLD_ID' DataType = datInteger Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'RECIBOS_CLIENTE' SQL = 'DELETE '#10' FROM'#10' RECIBOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_RecibosCliente' end item Params = < item Name = 'ID_REMESA' DataType = datInteger Value = '' end item Name = 'ID_EMPRESA' DataType = datInteger Value = '' end item Name = 'ID_CLIENTE' DataType = datInteger Value = '' end item Name = 'FECHA_EMISION' DataType = datDateTime Value = '' end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime Value = '' end item Name = 'DESCRIPCION' DataType = datString Size = 255 Value = '' end item Name = 'OBSERVACIONES' DataType = datString Size = 255 Value = '' end item Name = 'IMPORTE' DataType = datCurrency Value = '' end item Name = 'OTROS_GASTOS' DataType = datCurrency Value = '' end item Name = 'USUARIO' DataType = datString Size = 30 Value = '' end item Name = 'ID_TIENDA' DataType = datInteger Value = '' end item Name = 'NOMBRE' DataType = datString Size = 255 Value = '' end item Name = 'NIF_CIF' DataType = datString Size = 15 Value = '' end item Name = 'CALLE' DataType = datString Size = 255 Value = '' end item Name = 'POBLACION' DataType = datString Size = 255 Value = '' end item Name = 'PROVINCIA' DataType = datString Size = 255 Value = '' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 Value = '' end item Name = 'ID_CONTRATO' DataType = datInteger Value = '' end item Name = 'ID_FACTURA' DataType = datInteger Value = '' end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' end item Name = 'OLD_ID' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'RECIBOS_CLIENTE' SQL = 'UPDATE RECIBOS_CLIENTE'#10' SET '#10' ID_REMESA = :ID_REMESA,'#10' ID' + '_EMPRESA = :ID_EMPRESA,'#10' ID_CLIENTE = :ID_CLIENTE,'#10' FECHA_' + 'EMISION = :FECHA_EMISION,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMI' + 'ENTO,'#10' DESCRIPCION = :DESCRIPCION,'#10' OBSERVACIONES = :OBSER' + 'VACIONES,'#10' IMPORTE = :IMPORTE,'#10' OTROS_GASTOS = :OTROS_GAST' + 'OS,'#10' USUARIO = :USUARIO,'#10' ID_TIENDA = :ID_TIENDA,'#10' NOMB' + 'RE = :NOMBRE,'#10' NIF_CIF = :NIF_CIF,'#10' CALLE = :CALLE,'#10' PO' + 'BLACION = :POBLACION,'#10' PROVINCIA = :PROVINCIA,'#10' CODIGO_POS' + 'TAL = :CODIGO_POSTAL,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP' + ','#10' ID_CONTRATO = :ID_CONTRATO,'#10' ID_FACTURA = :ID_FACTURA,'#10 + ' REFERENCIA = :REFERENCIA'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_RecibosCliente' end item Params = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PAGOS_CLIENTE_ID' Value = '' end item Name = 'ID_RECIBO' Value = '' end item Name = 'TIPO' Value = '' end item Name = 'FECHA_PAGO' Value = '' end item Name = 'TITULAR' Value = '' end item Name = 'ENTIDAD' Value = '' end item Name = 'SUCURSAL' Value = '' end item Name = 'DC' Value = '' end item Name = 'CUENTA' Value = '' end item Name = 'USUARIO' Value = '' end item Name = 'IGNORAR_CONTABILIDAD' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'PAGOS_CLIENTE' SQL = 'INSERT'#10' INTO PAGOS_CLIENTE'#10' (ID, ID_RECIBO, TIPO, FECHA_PAGO' + ', TITULAR, ENTIDAD, '#10' SUCURSAL, DC, CUENTA, USUARIO, IGNORAR' + '_CONTABILIDAD,'#10' FECHA_ALTA)'#10' VALUES'#10' (:ID, :ID_RECIBO, :' + 'TIPO, :FECHA_PAGO, :TITULAR, :ENTIDAD, '#10' :SUCURSAL, :DC, :CU' + 'ENTA, :USUARIO, :IGNORAR_CONTABILIDAD,'#10' CURRENT_TIMESTAMP)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_PagosCliente' end item Params = < item Name = 'OLD_ID' DataType = datInteger Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PAGOS_CLIENTE' SQL = 'DELETE '#10' FROM'#10' PAGOS_CLIENTE'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_PagosCliente' end item Params = < item Name = 'ID' Value = '' end item Name = 'ID_RECIBO' Value = '' end item Name = 'TIPO' Value = '' end item Name = 'FECHA_PAGO' Value = '' end item Name = 'TITULAR' Value = '' end item Name = 'ENTIDAD' Value = '' end item Name = 'SUCURSAL' Value = '' end item Name = 'DC' Value = '' end item Name = 'CUENTA' Value = '' end item Name = 'IGNORAR_CONTABILIDAD' Value = '' end item Name = 'OLD_ID' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'PAGOS_CLIENTE' SQL = 'UPDATE PAGOS_CLIENTE'#10' SET '#10' ID = :ID, '#10' ID_RECIBO = :ID_R' + 'ECIBO, '#10' TIPO = :TIPO, '#10' FECHA_PAGO = :FECHA_PAGO, '#10' TI' + 'TULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCURSAL = :SUCU' + 'RSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA,'#10' IGNORAR_CONTABIL' + 'IDAD = :IGNORAR_CONTABILIDAD,'#10' FECHA_MODIFICACION = CURRENT_T' + 'IMESTAMP'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_PagosCliente' end item Params = < item Name = 'ID_RECIBO_COMPENSADO' Value = '' end item Name = 'ID' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'RECIBOS_CLIENTE' SQL = 'UPDATE RECIBOS_CLIENTE SET'#10' ID_RECIBO_COMPENSADO = :ID_REC' + 'IBO_COMPENSADO,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10'WH' + 'ERE (ID = :ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_RecibosCompensadosCli' end item Params = < item Name = 'OLD_ID' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'RECIBOS_CLIENTE' SQL = 'UPDATE RECIBOS_CLIENTE SET'#10' ID_RECIBO_COMPENSADO = NULL,'#10' ' + ' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10'WHERE (ID = :OLD_ID' + ')'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_RecibosCompensadosCli' end item Params = < item Name = 'ID_RECIBO_COMPENSADO' Value = '' end item Name = 'OLD_ID' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'RECIBOS_CLIENTE' SQL = 'UPDATE RECIBOS_CLIENTE SET'#10' ID_RECIBO_COMPENSADO = :ID_REC' + 'IBO_COMPENSADO,'#10' FECHA_MODIFICACION = CURRENT_TIMESTAMP'#10'WH' + 'ERE (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> Name = 'Update_RecibosCompensadosCli' end> RelationShips = < item Name = 'FK_RecibosCompensados' MasterFields = 'ID' DetailDatasetName = 'RecibosCompensadosCli' DetailFields = 'ID_RECIBO_COMPENSADO' RelationshipType = rtForeignKey end item Name = 'FK_PagosCliente' MasterDatasetName = 'RecibosCliente' MasterFields = 'ID' DetailDatasetName = 'PagosCliente' DetailFields = 'ID_RECIBO' RelationshipType = rtForeignKey end> UpdateRules = < item Name = 'Insert RecibosCliente' DoUpdate = False DoDelete = False DatasetName = 'RecibosCliente' FailureBehavior = fbRaiseException end item Name = 'Update RecibosCliente' DoInsert = False DoDelete = False DatasetName = 'RecibosCliente' FailureBehavior = fbRaiseException end item Name = 'Insert PagosCliente' DoUpdate = False DoDelete = False DatasetName = 'PagosCliente' FailureBehavior = fbRaiseException end item Name = 'Update PagosCliente' DoInsert = False DoDelete = False DatasetName = 'PagosCliente' FailureBehavior = fbRaiseException end item Name = 'Delete PagosCliente' DoUpdate = False DoInsert = False DatasetName = 'PagosCliente' FailureBehavior = fbRaiseException end item Name = 'Delete RecibosCliente' DoUpdate = False DoInsert = False DatasetName = 'RecibosCliente' FailureBehavior = fbRaiseException end> Version = 0 Left = 48 Top = 24 end object bpRecibosCliente: TDABusinessProcessor Schema = schRecibosCliente InsertCommandName = 'Insert_RecibosCliente' DeleteCommandName = 'Delete_RecibosCliente' UpdateCommandName = 'Update_RecibosCliente' ReferencedDataset = 'RecibosCliente' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 192 Top = 24 end object DADataDictionary: TDADataDictionary Fields = < item Name = 'RecibosCliente_ID' DataType = datAutoInc GeneratorName = 'GEN_RECIBOS_CLIENTE_ID' Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'RecibosCliente_REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'REFERENCIA' ServerAutoRefresh = True end item Name = 'RecibosCliente_SITUACION' DataType = datString Size = 9 DisplayLabel = 'SITUACION' end item Name = 'RecibosCliente_ID_FACTURA' DataType = datInteger DisplayLabel = 'ID_FACTURA' end item Name = 'RecibosCliente_FECHA_VENCIMIENTO' DataType = datDateTime DisplayLabel = 'FECHA_VENCIMIENTO' end item Name = 'RecibosCliente_DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'DESCRIPCION' end item Name = 'RecibosCliente_OBSERVACIONES' DataType = datString Size = 255 DisplayLabel = 'OBSERVACIONES' end item Name = 'RecibosCliente_IMPORTE' DataType = datCurrency DisplayLabel = 'IMPORTE' Alignment = taRightJustify end item Name = 'RecibosCliente_FECHA_FACTURA' DataType = datDateTime DisplayLabel = 'FECHA_FACTURA' end item Name = 'RecibosCliente_FORMA_PAGO_FACTURA' DataType = datString Size = 255 DisplayLabel = 'FORMA_PAGO_FACTURA' end item Name = 'RecibosCliente_IMPORTE_FACTURA' DataType = datCurrency DisplayLabel = 'IMPORTE_FACTURA' Alignment = taRightJustify end item Name = 'RecibosCliente_NOMBRE_CLIENTE' DataType = datString Size = 255 DisplayLabel = 'NOMBRE_CLIENTE' ServerAutoRefresh = True end item Name = 'RecibosCliente_NIF_CIF_CLIENTE' DataType = datString Size = 15 DisplayLabel = 'NIF_CIF_CLIENTE' end item Name = 'RecibosCliente_ENTIDAD_CLIENTE' DataType = datString Size = 15 DisplayLabel = 'ENTIDAD_CLIENTE' end item Name = 'RecibosCliente_SUCURSAL_CLIENTE' DataType = datString Size = 15 DisplayLabel = 'SUCURSAL_CLIENTE' end item Name = 'RecibosCliente_DC_CLIENTE' DataType = datString Size = 15 DisplayLabel = 'DC_CLIENTE' end item Name = 'RecibosCliente_CUENTA_CLIENTE' DataType = datString Size = 15 DisplayLabel = 'CUENTA_CLIENTE' end item Name = 'RecibosCliente_ID_EMPRESA' DataType = datInteger DisplayLabel = 'ID_EMPRESA' end item Name = 'RecibosCliente_FECHA_ALTA' DataType = datDateTime DisplayLabel = 'FECHA_ALTA' end item Name = 'RecibosCliente_FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'FECHA_MODIFICACION' end item Name = 'RecibosCliente_USUARIO' DataType = datString Size = 20 DisplayLabel = 'USUARIO' end item Name = 'PagosCliente_ID' DataType = datAutoInc GeneratorName = 'GEN_PAGOS_CLIENTE_ID' Required = True DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'PagosCliente_ID_RECIBO' DataType = datInteger end item Name = 'PagosCliente_TIPO' DataType = datString Size = 255 end item Name = 'PagosCliente_FECHA_PAGO' DataType = datDateTime end item Name = 'PagosCliente_TITULAR' DataType = datString Size = 255 end item Name = 'PagosCliente_ENTIDAD' DataType = datString Size = 15 end item Name = 'PagosCliente_SUCURSAL' DataType = datString Size = 15 end item Name = 'PagosCliente_DC' DataType = datString Size = 15 end item Name = 'PagosCliente_CUENTA' DataType = datString Size = 15 end item Name = 'PagosCliente_FECHA_ALTA' DataType = datDateTime end item Name = 'PagosCliente_FECHA_MODIFICACION' DataType = datDateTime end item Name = 'PagosCliente_USUARIO' DataType = datString Size = 20 end item Name = 'RecibosCliente_ID_REMESA' DataType = datInteger end item Name = 'RecibosCliente_REFERENCIA_REMESA' DataType = datString Size = 255 end item Name = 'RecibosCliente_OTROS_GASTOS' DataType = datCurrency Alignment = taRightJustify end item Name = 'RecibosCliente_IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'IMPORTE_TOTAL' Alignment = taRightJustify ServerAutoRefresh = True end item Name = 'RecibosCliente_ID_CLIENTE' DataType = datInteger DisplayLabel = 'ID_CLIENTE' end item Name = 'RecibosCliente_FECHA_EMISION' DataType = datDateTime end item Name = 'RecibosCliente_ID_RECIBO_COMPENSADO' DataType = datInteger end item Name = 'RecibosCliente_REFERENCIA_REC_COMPENSADO' DataType = datString Size = 255 end item Name = 'RecibosCliente_NIF_CIF' DataType = datString Size = 15 end item Name = 'RecibosCliente_NOMBRE' DataType = datString Size = 255 end item Name = 'RecibosCliente_CALLE' DataType = datString Size = 255 end item Name = 'RecibosCliente_POBLACION' DataType = datString Size = 255 end item Name = 'RecibosCliente_CODIGO_POSTAL' DataType = datString Size = 10 end item Name = 'RecibosCliente_PROVINCIA' DataType = datString Size = 255 end item Name = 'RecibosCliente_ID_TIENDA' DataType = datInteger ServerAutoRefresh = True end item Name = 'RecibosCliente_TIENDA' DataType = datString Size = 255 ServerAutoRefresh = True end item Name = 'RecibosCliente_LISTA_NOMBRES' DataType = datString Size = 255 DisplayLabel = 'LISTA_NOMBRES' end item Name = 'RecibosCliente_CUENTA_CONTABLE' DataType = datString Size = 255 DisplayLabel = 'Cuenta contable' end> Left = 48 Top = 152 end object bpPagosCliente: TDABusinessProcessor Schema = schRecibosCliente InsertCommandName = 'Insert_PagosCliente' DeleteCommandName = 'Delete_PagosCliente' UpdateCommandName = 'Update_PagosCliente' ReferencedDataset = 'PagosCliente' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 192 Top = 88 end object bpRecibosCompensados: TDABusinessProcessor Schema = schRecibosCliente InsertCommandName = 'Insert_RecibosCompensadosCli' DeleteCommandName = 'Delete_RecibosCompensadosCli' UpdateCommandName = 'Update_RecibosCompensadosCli' ReferencedDataset = 'RecibosCompensadosCli' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 192 Top = 152 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 88 end end