object CalcFieldsService: TCalcFieldsService
  OldCreateOrder = True
  OnCreate = DataAbstractServiceCreate
  ServiceSchema = Schema
  ServiceDataStreamer = DataStreamer
  ExportedDataTables = <>
  Height = 300
  Width = 300
  object DataStreamer: TDABin2DataStreamer
    OnWriteFieldValue = DataStreamerWriteFieldValue
    BufferSize = 262144
    SendReducedDelta = False
    Left = 32
    Top = 8
  end
  object Schema: TDASchema
    ConnectionManager = CalcFields_ServerDataForm.ConnectionManager
    DataDictionary = DataDictionary
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'ADO'
            TargetTable = 'Customers'
            SQL = 
              'SELECT '#10'    CustomerID, CompanyName, 0 as DummyServer'#10#10'  FROM'#10'  ' +
              '  Customers'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'CustomerID'
                TableField = 'CustomerID'
              end
              item
                DatasetField = 'CompanyName'
                TableField = 'CompanyName'
              end
              item
                DatasetField = 'ServerCalculated'
                TableField = 'DummyServer'
              end>
          end>
        Name = 'Customers'
        Fields = <
          item
            Name = 'CustomerID'
            DataType = datString
            Size = 5
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'CompanyName'
            DataType = datString
            Size = 40
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ClientCalculated'
            DataType = datString
            Size = 120
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            LogChanges = False
            DisplayWidth = 50
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = True
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ServerCalculated'
            DataType = datInteger
            BlobType = dabtUnknown
            DecimalPrecision = 0
            DecimalScale = 0
            LogChanges = False
            DisplayWidth = 0
            ReadOnly = True
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            ServerCalculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 32
    Top = 56
  end
  object DataDictionary: TDADataDictionary
    Fields = <>
    Left = 32
    Top = 103
  end
  object bpCustomers: TDABusinessProcessor
    Schema = Schema
    ReferencedDataset = 'Customers'
    ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 112
    Top = 56
  end
end