Componentes.Terceros.RemObjects/official/5.0.23.613/Data Abstract for Delphi/Samples/Business Rules Scripts/BusinessRulesScripts_ClientData.dfm

object BusinessRulesScripts_ClientDataModule: TBusinessRulesScripts_ClientDataModule
  OldCreateOrder = True
  Left = 447
  Top = 246
  Height = 382
  Width = 300
  object ROChannel: TROWinInetHTTPChannel
    UserAgent = 'RemObjects SDK'
    TargetURL = 'http://localhost:8099/BIN'
    ServerLocators = <>
    DispatchOptions = []
    Left = 40
    Top = 8
  end
  object ROMessage: TROBinMessage
    Left = 40
    Top = 52
  end
  object RemoteService: TRORemoteService
    Message = ROMessage
    Channel = ROChannel
    ServiceName = 'NewService'
    Left = 41
    Top = 96
  end
  object BinDataStreamer: TDABinDataStreamer
    Left = 40
    Top = 142
  end
  object dtProducts: TDACDSDataTable
    ScriptingProvider = DAPSScriptingProvider
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'ProductID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = True
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'ProductName'
        DataType = datWideString
        Size = 40
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'SupplierID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'CategoryID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'QuantityPerUnit'
        DataType = datWideString
        Size = 20
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'UnitPrice'
        DataType = datFloat
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'UnitsInStock'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'UnitsOnOrder'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'ReorderLevel'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'Discontinued'
        DataType = datBoolean
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'Gain'
        DataType = datFloat
        BlobType = dabtUnknown
        LogChanges = False
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = True
        Lookup = False
        LookupCache = False
      end>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soIgnoreStreamSchema, soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    ReadOnly = False
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'Products'
    IndexDefs = <>
    Left = 128
    Top = 160
  end
  object dsProducts: TDADataSource
    DataSet = dtProducts.Dataset
    DataTable = dtProducts
    Left = 127
    Top = 187
  end
  object DAPSScriptingProvider: TDAPSScriptingProvider
    ScriptEngine.CompilerOptions = [icAllowNoBegin, icAllowNoEnd, icBooleanShortCircuit]
    ScriptEngine.Plugins = <
      item
        Plugin = DAPSScriptingProvider.PluginClasses
      end
      item
        Plugin = DAPSScriptingProvider.PluginDB
      end
      item
        Plugin = DAPSScriptingProvider.PluginDateUtils
      end>
    ScriptEngine.UsePreProcessor = False
    Left = 128
    Top = 256
  end
  object RemoteDataAdapter: TDARemoteDataAdapter
    GetSchemaCall.RemoteService = RemoteService
    GetSchemaCall.MethodName = 'GetSchema'
    GetSchemaCall.Params = <
      item
        Name = 'aFilter'
        DataType = rtString
        Flag = fIn
        Value = Null
      end
      item
        Name = 'Result'
        DataType = rtString
        Flag = fResult
        Value = Null
      end>
    GetSchemaCall.Default = False
    GetSchemaCall.IncomingSchemaParameter = 'Result'
    GetSchemaCall.OutgoingFilterParameter = 'aFilter'
    GetDataCall.RemoteService = RemoteService
    GetDataCall.MethodName = 'GetData'
    GetDataCall.Params = <
      item
        Name = 'aTableNameArray'
        DataType = rtUserDefined
        Flag = fIn
        TypeName = 'StringArray'
        Value = Null
      end
      item
        Name = 'aTableRequestInfoArray'
        DataType = rtUserDefined
        Flag = fIn
        TypeName = 'TableRequestInfoArray'
        Value = Null
      end
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
        Value = Null
      end>
    GetDataCall.Default = False
    GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
    GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
    GetDataCall.IncomingDataParameter = 'Result'
    UpdateDataCall.RemoteService = RemoteService
    UpdateDataCall.MethodName = 'UpdateData'
    UpdateDataCall.Params = <
      item
        Name = 'aDelta'
        DataType = rtBinary
        Flag = fIn
      end
      item
        Name = 'Result'
        DataType = rtBinary
        Flag = fResult
      end>
    UpdateDataCall.Default = False
    UpdateDataCall.OutgoingDeltaParameter = 'aDelta'
    UpdateDataCall.IncomingDeltaParameter = 'Result'
    GetScriptsCall.RemoteService = RemoteService
    GetScriptsCall.MethodName = 'GetDatasetScripts'
    GetScriptsCall.Params = <
      item
        Name = 'Result'
        DataType = rtString
        Flag = fResult
      end
      item
        Name = 'DatasetNames'
        DataType = rtString
        Flag = fIn
        Value = Null
      end>
    GetScriptsCall.Default = False
    GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
    GetScriptsCall.IncomingScriptParameter = 'Result'
    RemoteService = RemoteService
    DataStreamer = BinDataStreamer
    AutoFillScripts = True
    Left = 128
    Top = 103
  end
  object dtOrderDetails: TDACDSDataTable
    ScriptingProvider = DAPSScriptingProvider
    RemoteUpdatesOptions = []
    Fields = <
      item
        Name = 'OrderID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = True
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'ProductName'
        DataType = datString
        Size = 50
        BlobType = dabtUnknown
        LogChanges = False
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = True
        LookupSource = dsProducts
        LookupKeyFields = 'ProductID'
        LookupResultField = 'ProductName'
        KeyFields = 'ProductID'
        LookupCache = True
      end
      item
        Name = 'ProductID'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Visible = False
        Alignment = taLeftJustify
        InPrimaryKey = True
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'UnitPrice'
        DataType = datFloat
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'Quantity'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'Discount'
        DataType = datFloat
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayFormat = '0.##'
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = False
        Lookup = False
        LookupCache = False
      end
      item
        Name = 'Gain'
        DataType = datFloat
        BlobType = dabtUnknown
        LogChanges = False
        DisplayWidth = 0
        DisplayFormat = '0.##'
        Alignment = taLeftJustify
        InPrimaryKey = False
        Calculated = True
        Lookup = False
        LookupCache = False
      end>
    Params = <>
    MasterMappingMode = mmDataRequest
    StreamingOptions = [soIgnoreStreamSchema, soDisableEventsWhileStreaming]
    RemoteDataAdapter = RemoteDataAdapter
    ReadOnly = False
    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
    LogicalName = 'OrderDetails'
    IndexDefs = <>
    Left = 157
    Top = 159
  end
  object dsOrderDetails: TDADataSource
    DataSet = dtOrderDetails.Dataset
    DataTable = dtOrderDetails
    Left = 158
    Top = 188
  end
end