inherited DataModuleRecibosCliente: TDataModuleRecibosCliente OnCreate = DAClientDataModuleCreate Height = 346 Width = 525 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvRecibosCliente' Left = 56 Top = 24 end object rda_RecibosCliente: TDARemoteDataAdapter DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService Left = 59 Top = 151 end object Bin2DataStreamer: TDABin2DataStreamer Left = 56 Top = 84 end object tbl_PagosCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PAGOS_CLIENTE_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'PagosCliente_ID' InPrimaryKey = True end item Name = 'ID_RECIBO' DataType = datInteger DisplayLabel = 'PagosCliente_ID_RECIBO' DictionaryEntry = 'PagosCliente_ID_RECIBO' end item Name = 'TIPO' DataType = datString Size = 255 DisplayLabel = 'PagosCliente_TIPO' DictionaryEntry = 'PagosCliente_TIPO' end item Name = 'FECHA_PAGO' DataType = datDateTime DisplayLabel = 'PagosCliente_FECHA_PAGO' DictionaryEntry = 'PagosCliente_FECHA_PAGO' end item Name = 'TITULAR' DataType = datString Size = 255 DisplayLabel = 'PagosCliente_TITULAR' DictionaryEntry = 'PagosCliente_TITULAR' end item Name = 'ENTIDAD' DataType = datString Size = 15 DisplayLabel = 'PagosCliente_ENTIDAD' DictionaryEntry = 'PagosCliente_ENTIDAD' end item Name = 'SUCURSAL' DataType = datString Size = 15 DisplayLabel = 'PagosCliente_SUCURSAL' DictionaryEntry = 'PagosCliente_SUCURSAL' end item Name = 'DC' DataType = datString Size = 15 DisplayLabel = 'PagosCliente_DC' DictionaryEntry = 'PagosCliente_DC' end item Name = 'CUENTA' DataType = datString Size = 15 DisplayLabel = 'PagosCliente_CUENTA' DictionaryEntry = 'PagosCliente_CUENTA' end item Name = 'FECHA_ALTA' DataType = datDateTime DisplayLabel = 'PagosCliente_FECHA_ALTA' DictionaryEntry = 'PagosCliente_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DisplayLabel = 'PagosCliente_FECHA_MODIFICACION' DictionaryEntry = 'PagosCliente_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DisplayLabel = 'PagosCliente_USUARIO' 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> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente MasterSource = ds_RecibosCliente MasterFields = 'ID' DetailFields = 'ID_RECIBO' LogicalName = 'PagosCliente' IndexDefs = <> Left = 288 Top = 88 end object ds_PagosCliente: TDADataSource DataSet = tbl_PagosCliente.Dataset DataTable = tbl_PagosCliente Left = 288 Top = 32 end object tbl_RecibosCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_RECIBOS_CLIENTE_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'RecibosCliente_ID' InPrimaryKey = True end item Name = 'ID_RECIBO_COMPENSADO' DataType = datInteger DisplayLabel = 'RecibosCliente_ID_RECIBO_COMPENSADO' DictionaryEntry = 'RecibosCliente_ID_RECIBO_COMPENSADO' end item Name = 'REFERENCIA_REC_COMPENSADO' DataType = datString Size = 255 DisplayLabel = 'RecibosCliente_REFERENCIA_REC_COMPENSADO' 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 Alignment = taRightJustify DictionaryEntry = 'RecibosCliente_IMPORTE_FACTURA' end item Name = 'ID_REMESA' DataType = datInteger DisplayLabel = 'RecibosCliente_ID_REMESA' DictionaryEntry = 'RecibosCliente_ID_REMESA' end item Name = 'REFERENCIA_REMESA' DataType = datString Size = 255 DisplayLabel = 'RecibosCliente_REFERENCIA_REMESA' DictionaryEntry = 'RecibosCliente_REFERENCIA_REMESA' end item Name = 'FECHA_EMISION' DataType = datDateTime DisplayLabel = 'RecibosCliente_FECHA_EMISION' 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 Alignment = taRightJustify DictionaryEntry = 'RecibosCliente_IMPORTE' end item Name = 'OTROS_GASTOS' DataType = datCurrency DisplayLabel = 'RecibosCliente_OTROS_GASTOS' Alignment = taRightJustify DictionaryEntry = 'RecibosCliente_OTROS_GASTOS' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency Alignment = taRightJustify 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 DisplayLabel = 'RecibosCliente_NIF_CIF' DictionaryEntry = 'RecibosCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 255 DisplayLabel = 'RecibosCliente_NOMBRE' DictionaryEntry = 'RecibosCliente_NOMBRE' end item Name = 'CALLE' DataType = datString Size = 255 DisplayLabel = 'RecibosCliente_CALLE' DictionaryEntry = 'RecibosCliente_CALLE' end item Name = 'POBLACION' DataType = datString Size = 255 DisplayLabel = 'RecibosCliente_POBLACION' DictionaryEntry = 'RecibosCliente_POBLACION' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 DisplayLabel = 'RecibosCliente_CODIGO_POSTAL' DictionaryEntry = 'RecibosCliente_CODIGO_POSTAL' end item Name = 'PROVINCIA' DataType = datString Size = 255 DisplayLabel = 'RecibosCliente_PROVINCIA' 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 DisplayLabel = 'RecibosCliente_ID_TIENDA' DictionaryEntry = 'RecibosCliente_ID_TIENDA' end item Name = 'TIENDA' DataType = datString Size = 255 DisplayLabel = 'RecibosCliente_TIENDA' 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 DisplayLabel = 'Cuenta contable' 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> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente LogicalName = 'RecibosCliente' IndexDefs = <> Left = 168 Top = 88 end object ds_RecibosCliente: TDADataSource DataSet = tbl_RecibosCliente.Dataset DataTable = tbl_RecibosCliente Left = 168 Top = 32 end object tbl_RecibosCompensadosCli: TDAMemDataTable RemoteUpdatesOptions = [] 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 Alignment = taRightJustify 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> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente MasterSource = ds_RecibosCliente MasterFields = 'ID' DetailFields = 'ID_RECIBO_COMPENSADO' LogicalName = 'RecibosCompensadosCli' IndexDefs = <> Left = 416 Top = 88 end object ds_RecibosCompensadosCli: TDADataSource DataSet = tbl_RecibosCompensadosCli.Dataset DataTable = tbl_RecibosCompensadosCli Left = 416 Top = 32 end object tbl_ListaAnosRecibos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ANO' DataType = datString Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente LogicalName = 'ListaAnosRecibos' IndexDefs = <> Left = 176 Top = 216 end object ds_ListaAnosRecibos: TDADataSource DataSet = tbl_ListaAnosRecibos.Dataset DataTable = tbl_ListaAnosRecibos Left = 176 Top = 160 end end