object dmVentasTerminadas: TdmVentasTerminadas OldCreateOrder = True OnCreate = DAClientDataModuleCreate Height = 363 Width = 600 object RORemoteService: TRORemoteService Message = dmBase.ROMessage Channel = dmBase.ROChannel ServiceName = 'srvVentasTerminadas' Left = 48 Top = 20 end object tbl_VentasTerminadas2: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = < item Name = 'FECHAINI' DataType = datString Value = '2006/01/01' ParamType = daptInput end item Name = 'FECHAFIN' DataType = datString Value = '2006/12/12' ParamType = daptInput end> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapter_VentasTerminadas2 LocalDataStreamer = DABinDataStreamer1 DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'VentasTerminadas' IndexDefs = <> Left = 464 Top = 72 end object tbl_VentasTerminadasCrossTab: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = < item Name = 'fechaini' DataType = datString Value = '' ParamType = daptInput end item Name = 'fechafin' DataType = datString Value = '' ParamType = daptInput end item Name = 'coleccion' DataType = datString Value = '%' ParamType = daptInput end> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapterCrossTab DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'VentasTerminadasCrossTab' IndexDefs = <> Left = 216 Top = 224 end object ds_VentasTerminadasCrossTab: TDADataSource DataSet = tbl_VentasTerminadasCrossTab.Dataset DataTable = tbl_VentasTerminadasCrossTab Left = 216 Top = 288 end object DARemoteDataAdapterCrossTab: TDARemoteDataAdapter GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.MethodName = 'GetSchemaCrossTab' GetSchemaCall.Params = < item Name = 'Result' DataType = rtBinary Flag = fResult Value = Null end item Name = 'FechaIni' DataType = rtString Flag = fIn Value = '01/01/2007' end item Name = 'FechaFin' DataType = rtString Flag = fIn Value = '31/01/2007' end item Name = 'Coleccion' DataType = rtString Flag = fIn end> GetSchemaCall.Default = False GetSchemaCall.IncomingSchemaParameter = 'Result' GetSchemaCall.OutgoingFilterParameter = 'aFilter' GetDataCall.RemoteService = RORemoteService GetDataCall.MethodName = 'GetDataCrossTab' GetDataCall.Params = < item Name = 'Result' DataType = rtBinary Flag = fResult Value = Null end item Name = 'FechaIni' DataType = rtString Flag = fIn Value = '01/01/2007' end item Name = 'FechaFin' DataType = rtString Flag = fIn Value = '31/01/2007' end item Name = 'Coleccion' DataType = rtString Flag = fIn end> GetDataCall.Default = False GetDataCall.OutgoingTableNamesParameter = 'DatasetName' GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' GetDataCall.IncomingDataParameter = 'Result' GetDataCall.OutgoingParamsParameter = 'Params' GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.MethodName = 'UpdateData' UpdateDataCall.Params = < item Name = 'Delta' DataType = rtBinary Flag = fIn end item Name = 'Result' DataType = rtBinary Flag = fResult end> UpdateDataCall.Default = False UpdateDataCall.OutgoingDeltaParameter = 'Delta' UpdateDataCall.IncomingDeltaParameter = 'Result' GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.MethodName = 'GetDatasetScripts' GetScriptsCall.Params = < item Name = 'DatasetNames' DataType = rtString Flag = fIn end item Name = 'Result' DataType = rtString Flag = fResult end> GetScriptsCall.Default = False GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' GetScriptsCall.IncomingScriptParameter = 'Result' RemoteService = RORemoteService DataStreamer = dmBase.DABINAdapter Left = 216 Top = 168 end object DARemoteDataAdapter_VentasTerminadas2: TDARemoteDataAdapter GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.MethodName = 'GetSchema' GetSchemaCall.Params = < item Name = 'Result' DataType = rtBinary Flag = fResult Value = Null end item Name = 'DatasetName' DataType = rtString Flag = fIn Value = 'VentasTerminadas' end item Name = 'Columns' DataType = rtString Flag = fIn Value = Null end> GetSchemaCall.Default = False GetSchemaCall.IncomingSchemaParameter = 'Result' GetSchemaCall.OutgoingFilterParameter = 'aFilter' GetDataCall.RemoteService = RORemoteService GetDataCall.MethodName = 'GetDataEx' GetDataCall.Params = < item Name = 'Result' DataType = rtBinary Flag = fResult Value = Null end item Name = 'DatasetName' DataType = rtString Flag = fIn Value = 'VentasTerminadas' end item Name = 'Columns' DataType = rtString Flag = fIn end item Name = 'Params' DataType = rtString Flag = fIn Value = Null end item Name = 'MaxRecords' DataType = rtInteger Flag = fIn Value = -1 end> GetDataCall.Default = False GetDataCall.OutgoingTableNamesParameter = 'DatasetName' GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' GetDataCall.IncomingDataParameter = 'Result' GetDataCall.OutgoingParamsParameter = 'Params' GetDataCall.OutgoingIncludeSchemaParameter = 'IncludeSchema' GetDataCall.OutgoingMaxRecordsParameter = 'MaxRecords' UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.MethodName = 'UpdateData' UpdateDataCall.Params = < item Name = 'Delta' DataType = rtBinary Flag = fIn end item Name = 'Result' DataType = rtBinary Flag = fResult end> UpdateDataCall.Default = False UpdateDataCall.OutgoingDeltaParameter = 'Delta' UpdateDataCall.IncomingDeltaParameter = 'Result' GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.MethodName = 'GetDatasetScripts' GetScriptsCall.Params = < item Name = 'DatasetNames' DataType = rtString Flag = fIn end item Name = 'Result' DataType = rtString Flag = fResult end> GetScriptsCall.Default = False GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames' GetScriptsCall.IncomingScriptParameter = 'Result' RemoteService = RORemoteService DataStreamer = DABinDataStreamer1 Left = 464 Top = 16 end object DABinDataStreamer1: TDABinDataStreamer IsCompatibleV4 = False Left = 48 Top = 96 end object DARemoteDataAdapter_VentasTerminadas: TDARemoteDataAdapter GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.MethodName = 'GetSchemaAsXML' GetSchemaCall.Params = < item Name = 'Result' DataType = rtString Flag = fResult end> GetSchemaCall.Default = False GetSchemaCall.IncomingSchemaParameter = 'Result' GetSchemaCall.OutgoingFilterParameter = 'aFilter' GetDataCall.RemoteService = RORemoteService GetDataCall.MethodName = 'GetDatasetDataEx' GetDataCall.Params = < item Name = 'Result' DataType = rtBinary Flag = fResult Value = Null end item Name = 'DatasetName' DataType = rtString Flag = fIn Value = 'VentasTerminadas' end item Name = 'Params' DataType = rtUserDefined Flag = fIn TypeName = 'TDADatasetParamArray' Value = Null end item Name = 'UserFilter' DataType = rtString Flag = fIn Value = Null end item Name = 'IncludeSchema' DataType = rtBoolean Flag = fIn Value = True end item Name = 'MaxRecords' DataType = rtInteger Flag = fIn Value = -1 end> GetDataCall.Default = False GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray' GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray' GetDataCall.IncomingDataParameter = 'Result' UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService DataStreamer = DABinDataStreamer1 Left = 216 Top = 16 end object tbl_VentasTerminadas: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'NUMINF' DataType = datString Size = 35 InPrimaryKey = True end item Name = 'CLAVE1' DataType = datDecimal InPrimaryKey = True end item Name = 'CLAVE2' DataType = datInteger InPrimaryKey = True end item Name = 'CLAVE3' DataType = datInteger InPrimaryKey = True end item Name = 'FECHA' DataType = datDateTime DisplayLabel = 'Fecha' end item Name = 'DIA' DataType = datInteger DisplayLabel = 'D'#237'a' end item Name = 'DIASEMANA' DataType = datWideString Size = 30 DisplayLabel = 'D'#237'a de la semana' end item Name = 'MES' DataType = datWideString Size = 30 DisplayLabel = 'Mes' end item Name = 'ANO' DataType = datInteger DisplayLabel = 'A'#241'o' end item Name = 'CENTRO' DataType = datString Size = 25 DisplayLabel = 'Centro' end item Name = 'VENDEDOR' DataType = datString Size = 66 DisplayLabel = 'Vendedor' end item Name = 'NUMTALON' DataType = datString Size = 35 end item Name = 'CODIGO' DataType = datString Size = 12 DisplayLabel = 'C'#243'digo producto' end item Name = 'PRODUCTO' DataType = datString Size = 40 DisplayLabel = 'Producto' end item Name = 'GRUPOPRODUCTO' DataType = datString Size = 25 DisplayLabel = 'Grupo' end item Name = 'TIPOPRODUCTO' DataType = datString Size = 25 DisplayLabel = 'Tipo' end item Name = 'COLECCION' DataType = datString Size = 6 DisplayLabel = 'Colecci'#243'n' end item Name = 'COLOR' DataType = datString Size = 10 DisplayLabel = 'Color' end item Name = 'TALLA' DataType = datString Size = 8 DisplayLabel = 'Talla' Alignment = taRightJustify end item Name = 'TALLA38' DataType = datDecimal DisplayLabel = '38' Alignment = taRightJustify end item Name = 'TALLA40' DataType = datDecimal DisplayLabel = '40' Alignment = taRightJustify end item Name = 'TALLA42' DataType = datDecimal DisplayLabel = '42' Alignment = taRightJustify end item Name = 'TALLA44' DataType = datDecimal DisplayLabel = '44' Alignment = taRightJustify end item Name = 'TALLA46' DataType = datDecimal DisplayLabel = '46' Alignment = taRightJustify end item Name = 'TALLA48' DataType = datDecimal DisplayLabel = '48' Alignment = taRightJustify end item Name = 'VTATERMDEV' DataType = datDecimal DisplayLabel = 'Vta.Term/Dev' Alignment = taRightJustify end item Name = 'VTAFINALRESC' DataType = datDecimal DisplayLabel = 'Vta.Final/Resc' Alignment = taRightJustify end item Name = 'VENTAS' DataType = datDecimal DisplayLabel = 'Ventas' Alignment = taRightJustify end item Name = 'DEVOLUCIONES' DataType = datDecimal DisplayLabel = 'Devoluciones' Alignment = taRightJustify end item Name = 'TOTAL' DataType = datDecimal DisplayLabel = 'Total ventas' Alignment = taRightJustify end item Name = 'VALTERMDEV' DataType = datCurrency DecimalPrecision = 2 DisplayLabel = 'Val.Term/Dev' Alignment = taRightJustify end item Name = 'VALFINALRESC' DataType = datCurrency DecimalPrecision = 2 DisplayLabel = 'Val.Final/Resc' Alignment = taRightJustify end item Name = 'VALVEN' DataType = datCurrency DecimalPrecision = 2 DisplayLabel = 'Imp. ventas' Alignment = taRightJustify end item Name = 'VALDEV' DataType = datCurrency DecimalPrecision = 2 DisplayLabel = 'Imp. devoluciones' Alignment = taRightJustify end item Name = 'VALTOT' DataType = datCurrency DecimalPrecision = 2 DisplayLabel = 'Imp. Total' Alignment = taRightJustify end> Params = < item Name = 'FECHAINI' Value = '' ParamType = daptInput end item Name = 'FECHAFIN' Value = '' ParamType = daptInput end> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = DARemoteDataAdapter_VentasTerminadas LocalDataStreamer = DABinDataStreamer1 DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'VentasTerminadas' IndexDefs = <> Left = 216 Top = 72 end end