inherited DataModuleTiendaWeb: TDataModuleTiendaWeb OnCreate = DAClientDataModuleCreate Height = 590 Width = 605 object RORemoteService: TRORemoteService Message = ROBinMessage1 Channel = ROWinInetHTTPChannel1 ServiceName = 'srvTiendaWeb' Left = 64 Top = 24 end object DADesigntimeCall1: TDADesigntimeCall RemoteService = LoginRemoteService Params = <> Left = 64 Top = 160 end object LoginRemoteService: TRORemoteService Message = ROBinMessage1 Channel = ROWinInetHTTPChannel1 ServiceName = 'srvLogin' Left = 64 Top = 216 end object ROWinInetHTTPChannel1: TROWinInetHTTPChannel UserAgent = 'RemObjects SDK' TargetURL = 'http://localhost:8099/bin' ServerLocators = <> DispatchOptions = [] Left = 64 Top = 272 end object ROBinMessage1: TROBinMessage Envelopes = <> Left = 64 Top = 324 end object tbl_osc_AddressBook: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'address_book_id' DataType = datAutoInc Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!' ServerAutoRefresh = True InPrimaryKey = True end item Name = 'customers_id' DataType = datInteger DictionaryEntry = 'osc_AddressBook_customers_id' end item Name = 'entry_gender' DataType = datString Size = 1 DictionaryEntry = 'osc_AddressBook_entry_gender' end item Name = 'entry_company' DataType = datString Size = 32 DictionaryEntry = 'osc_AddressBook_entry_company' end item Name = 'entry_firstname' DataType = datString Size = 32 DictionaryEntry = 'osc_AddressBook_entry_firstname' end item Name = 'entry_lastname' DataType = datString Size = 32 DictionaryEntry = 'osc_AddressBook_entry_lastname' end item Name = 'entry_street_address' DataType = datString Size = 64 DictionaryEntry = 'osc_AddressBook_entry_street_address' end item Name = 'entry_suburb' DataType = datString Size = 32 DictionaryEntry = 'osc_AddressBook_entry_suburb' end item Name = 'entry_postcode' DataType = datString Size = 10 DictionaryEntry = 'osc_AddressBook_entry_postcode' end item Name = 'entry_city' DataType = datString Size = 32 DictionaryEntry = 'osc_AddressBook_entry_city' end item Name = 'entry_state' DataType = datString Size = 32 DictionaryEntry = 'osc_AddressBook_entry_state' end item Name = 'entry_country_id' DataType = datInteger DictionaryEntry = 'osc_AddressBook_entry_country_id' end item Name = 'entry_zone_id' DataType = datInteger DictionaryEntry = 'osc_AddressBook_entry_zone_id' end item Name = 'entry_telephone' DataType = datString Size = 32 end item Name = 'rdx_address_book_id_local' DataType = datInteger DictionaryEntry = 'osc_AddressBook_rdx_address_book_id_local' end> Params = < item Name = 'customers_id' DataType = datInteger Value = '1' ParamType = daptInput end> MasterParamsMappings.Strings = ( 'customers_id=customers_id') StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_TiendaWeb MasterSource = ds_osc_Customers MasterFields = 'customers_id' DetailFields = 'customers_id' LogicalName = 'osc_AddressBook' IndexDefs = <> Left = 400 Top = 248 end object ds_osc_AddressBook: TDADataSource DataSet = tbl_osc_AddressBook.Dataset DataTable = tbl_osc_AddressBook Left = 400 Top = 176 end object tbl_osc_Customers: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'customers_id' DataType = datAutoInc Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!' DisplayLabel = 'osc_Customers_customers_id' ServerAutoRefresh = True InPrimaryKey = True end item Name = 'customers_firstname' DataType = datString Size = 32 DictionaryEntry = 'osc_Customers_customers_firstname' end item Name = 'customers_lastname' DataType = datString Size = 32 DictionaryEntry = 'osc_Customers_customers_lastname' end item Name = 'customers_email_address' DataType = datString Size = 96 DictionaryEntry = 'osc_Customers_customers_email_address' end item Name = 'customers_default_address_id' DataType = datInteger DictionaryEntry = 'osc_Customers_customers_default_address_id' end item Name = 'customers_telephone' DataType = datString Size = 32 DictionaryEntry = 'osc_Customers_customers_telephone' end item Name = 'customers_fax' DataType = datString Size = 32 DictionaryEntry = 'osc_Customers_customers_fax' end item Name = 'customers_password' DataType = datString Size = 40 DictionaryEntry = 'osc_Customers_customers_password' end item Name = 'rdx_customers_id_local' DataType = datInteger DictionaryEntry = 'osc_Customers_rdx_customers_id_local' end item Name = 'date_account_created' DataType = datDateTime end item Name = 'date_account_last_modified' DataType = datDateTime end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_TiendaWeb LogicalName = 'osc_Customers' IndexDefs = <> Left = 400 Top = 88 end object ds_osc_Customers: TDADataSource DataSet = tbl_osc_Customers.Dataset DataTable = tbl_osc_Customers Left = 400 Top = 24 end object tbl_osc_Manufacturers: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'manufacturers_id' DataType = datAutoInc Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!' DefaultValue = '0' Required = True ServerAutoRefresh = True InPrimaryKey = True end item Name = 'manufacturers_name' DataType = datString Size = 32 DefaultValue = #39#39 Required = True end item Name = 'manufacturers_image' DataType = datString Size = 64 end item Name = 'date_added' DataType = datDateTime end item Name = 'last_modified' DataType = datDateTime end item Name = 'rdx_manufacturers_id_local' DataType = datInteger end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_TiendaWeb LogicalName = 'osc_Manufacturers' IndexDefs = <> Left = 520 Top = 88 end object ds_osc_Manufacturers: TDADataSource DataSet = tbl_osc_Manufacturers.Dataset DataTable = tbl_osc_Manufacturers Left = 520 Top = 24 end object tbl_osc_Orders: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'orders_id' DataType = datAutoInc Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!' ServerAutoRefresh = True InPrimaryKey = True end item Name = 'rdx_orders_id_local' DataType = datInteger end item Name = 'customers_id' DataType = datInteger ReadOnly = True end item Name = 'rdx_customers_id_local' DataType = datInteger ReadOnly = True end item Name = 'delivery_name' DataType = datString Size = 64 ReadOnly = True end item Name = 'delivery_company' DataType = datString Size = 32 ReadOnly = True end item Name = 'delivery_street_address' DataType = datString Size = 64 ReadOnly = True end item Name = 'delivery_suburb' DataType = datString Size = 32 ReadOnly = True end item Name = 'delivery_city' DataType = datString Size = 32 ReadOnly = True end item Name = 'delivery_postcode' DataType = datString Size = 10 ReadOnly = True end item Name = 'delivery_state' DataType = datString Size = 32 ReadOnly = True end item Name = 'delivery_country' DataType = datString Size = 32 ReadOnly = True end item Name = 'delivery_telephone' DataType = datString Size = 32 ReadOnly = True end item Name = 'last_modified' DataType = datDateTime end item Name = 'date_purchased' DataType = datDateTime end item Name = 'orders_status' DataType = datInteger end item Name = 'orders_date_finished' DataType = datDateTime end item Name = 'comments' DataType = datMemo BlobType = dabtMemo ReadOnly = True end item Name = 'rdx_ship_date' DataType = datDateTime end item Name = 'rdx_referencia_cliente' DataType = datString Size = 255 end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_TiendaWeb LogicalName = 'osc_Orders' IndexDefs = <> Left = 200 Top = 336 end object ds_osc_Orders: TDADataSource DataSet = tbl_osc_Orders.Dataset DataTable = tbl_osc_Orders Left = 200 Top = 400 end object tbl_osc_Orders_products: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'orders_products_id' DataType = datAutoInc Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!' ServerAutoRefresh = True InPrimaryKey = True end item Name = 'orders_id' DataType = datInteger ReadOnly = True end item Name = 'products_id' DataType = datInteger ReadOnly = True end item Name = 'rdx_products_id_local' DataType = datInteger ReadOnly = True end item Name = 'products_model' DataType = datString Size = 12 ReadOnly = True end item Name = 'products_name' DataType = datString Size = 64 ReadOnly = True end item Name = 'products_price' DataType = datFloat ReadOnly = True end item Name = 'final_price' DataType = datFloat ReadOnly = True end item Name = 'products_tax' DataType = datFloat ReadOnly = True end item Name = 'products_quantity' DataType = datInteger ReadOnly = True end> Params = < item Name = 'orders_id' DataType = datInteger Value = '1' ParamType = daptInput end> MasterParamsMappings.Strings = ( 'orders_id=orders_id') StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_TiendaWeb MasterSource = ds_osc_Orders MasterFields = 'orders_id' DetailFields = 'orders_id' LogicalName = 'osc_Orders_products' IndexDefs = <> Left = 312 Top = 336 end object ds_osc_Orders_products: TDADataSource DataSet = tbl_osc_Orders_products.Dataset DataTable = tbl_osc_Orders_products Left = 312 Top = 400 end object Bin2DataStreamer: TDABin2DataStreamer Left = 64 Top = 84 end object rda_TiendaWeb: TDARemoteDataAdapter DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService Left = 163 Top = 87 end object tbl_TiendaWeb: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc DictionaryEntry = 'TiendaWeb_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DisplayLabel = 'TiendaWeb_ID_EMPRESA' DictionaryEntry = 'TiendaWeb_ID_EMPRESA' end item Name = 'TIENDA_ACTIVA' DataType = datInteger DisplayLabel = 'TiendaWeb_TIENDA_ACTIVA' DictionaryEntry = 'TiendaWeb_TIENDA_ACTIVA' end item Name = 'BDSERVER' DataType = datString Size = 255 DisplayLabel = 'TiendaWeb_BDSERVER' DictionaryEntry = 'TiendaWeb_BDSERVER' end item Name = 'BDPORT' DataType = datString Size = 20 DisplayLabel = 'TiendaWeb_BDPORT' DictionaryEntry = 'TiendaWeb_BDPORT' end item Name = 'BDNAME' DataType = datString Size = 255 DisplayLabel = 'TiendaWeb_BDNAME' DictionaryEntry = 'TiendaWeb_BDNAME' end item Name = 'BDUSER' DataType = datString Size = 255 DisplayLabel = 'TiendaWeb_BDUSER' DictionaryEntry = 'TiendaWeb_BDUSER' end item Name = 'BDPASS' DataType = datString Size = 255 DisplayLabel = 'TiendaWeb_BDPASS' DictionaryEntry = 'TiendaWeb_BDPASS' end item Name = 'ULTIMA_ACTUALIZACION' DataType = datDateTime DisplayLabel = 'TiendaWeb_ULTIMA_ACTUALIZACION' DictionaryEntry = 'TiendaWeb_ULTIMA_ACTUALIZACION' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_TiendaWeb LogicalName = 'TiendaWeb' IndexDefs = <> Left = 264 Top = 80 end object ds_TiendaWeb: TDADataSource DataSet = tbl_TiendaWeb.Dataset DataTable = tbl_TiendaWeb Left = 264 Top = 24 end object tbl_osc_Products: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'products_id' DataType = datAutoInc Description = #161#161#161#161#161#161' ESTE CAMPO TIENE QUE SER AUTOINC PARA QUE FUNCIONE !!!!!' DefaultValue = '0' Required = True ServerAutoRefresh = True InPrimaryKey = True end item Name = 'products_name' DataType = datString Size = 64 end item Name = 'products_description' DataType = datMemo end item Name = 'products_model' DataType = datString Size = 12 end item Name = 'products_date_added' DataType = datDateTime Required = True end item Name = 'products_last_modified' DataType = datDateTime end item Name = 'products_status' DataType = datInteger end item Name = 'manufacturers_id' DataType = datInteger end item Name = 'rdx_products_id_local' DataType = datInteger end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_TiendaWeb LogicalName = 'osc_Products' IndexDefs = <> Left = 520 Top = 232 end object ds_osc_Products: TDADataSource DataSet = tbl_osc_Products.Dataset DataTable = tbl_osc_Products Left = 520 Top = 176 end end