inherited DataModuleRecibosCliente: TDataModuleRecibosCliente OnCreate = DAClientDataModuleCreate Height = 286 Width = 525 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvRecibosCliente' Left = 56 Top = 24 end object rda_RecibosCliente: TDARemoteDataAdapter GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService DataStreamer = Bin2DataStreamer 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> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente MasterSource = ds_RecibosCliente MasterFields = 'ID' DetailFields = 'ID_RECIBO' DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] 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 end item Name = 'REFERENCIA_REC_COMPENSADO' DataType = datString Size = 255 end item Name = 'REFERENCIA' DataType = datString Size = 255 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 = '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 DictionaryEntry = 'RecibosCliente_IMPORTE_TOTAL' 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_EMPRESA' DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_EMPRESA' end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'RecibosCliente_ID_CLIENTE' end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 DictionaryEntry = 'RecibosCliente_NOMBRE_CLIENTE' end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 DictionaryEntry = 'RecibosCliente_NIF_CIF_CLIENTE' end item Name = 'CALLE_CLIENTE' DataType = datString Size = 255 end item Name = 'POBLACION_CLIENTE' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_CLIENTE' DataType = datString Size = 10 end item Name = 'PROVINCIA_CLIENTE' DataType = datString Size = 255 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> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] 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 = '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 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_EMPRESA' DataType = datInteger end item Name = 'DATOS_BANCARIOS' DataType = datString Size = 255 end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'NOMBRE_CLIENTE' DataType = datString Size = 255 end item Name = 'NIF_CIF_CLIENTE' DataType = datString Size = 15 end item Name = 'CALLE_CLIENTE' DataType = datString Size = 255 end item Name = 'POBLACION_CLIENTE' DataType = datString Size = 255 end item Name = 'CODIGO_POSTAL_CLIENTE' DataType = datString Size = 10 end item Name = 'PROVINCIA_CLIENTE' 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> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente MasterSource = ds_RecibosCliente MasterFields = 'ID' DetailFields = 'ID_RECIBO_COMPENSADO' DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] 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 = 254 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_RecibosCliente DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'ListaAnosRecibos' IndexDefs = <> Left = 168 Top = 208 end object ds_ListaAnosRecibos: TDADataSource DataSet = tbl_ListaAnosRecibos.Dataset DataTable = tbl_ListaAnosRecibos Left = 168 Top = 152 end end