AbetoDesign_FactuGES2/Source/Servidor/Configuracion/srvConfiguracion_Impl.dfm

object srvConfiguracion: TsrvConfiguracion
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  SessionManager = dmServer.SessionManager
  ConnectionName = 'IBX'
  ServiceSchema = schConfiguracion
  ServiceDataStreamer = Bin2DataStreamer
  ExportedDataTables = <>
  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
  Height = 160
  Width = 300
  object schConfiguracion: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    Datasets = <
      item
        Params = <
          item
            Name = 'CODIGO'
            DataType = datString
            Size = 50
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONFIGURACION'
            SQL = 
              'SELECT VALOR, VALOr_BLOB'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODI' +
              'GO'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'VALOR'
                TableField = 'VALOR'
              end
              item
                DatasetField = 'VALOR_BLOB'
                TableField = 'VALOR_BLOB'
              end>
          end>
        Name = 'darValor'
        Fields = <
          item
            Name = 'VALOR'
            DataType = datString
            Size = 2000
          end
          item
            Name = 'VALOR_BLOB'
            DataType = datMemo
          end>
      end
      item
        Params = <
          item
            Name = 'CODIGO'
            DataType = datString
            Size = 50
            Value = ''
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'CONFIGURACION'
            SQL = 
              'SELECT VALOR, VALOr_BLOB'#10'FROM CONFIGURACION'#10'WHERE CODIGO = :CODI' +
              'GO'#10'AND ID_EMPRESA = :ID_EMPRESA'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'VALOR'
                TableField = 'VALOR'
              end
              item
                DatasetField = 'VALOR_BLOB'
                TableField = 'VALOR_BLOB'
              end>
          end>
        Name = 'darValorParaEmpresa'
        Fields = <
          item
            Name = 'VALOR'
            DataType = datString
            Size = 2000
          end
          item
            Name = 'VALOR_BLOB'
            DataType = datMemo
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        Params = <
          item
            Name = 'CODIGO'
            Value = ''
          end
          item
            Name = 'VALOR'
            Value = ''
          end
          item
            Name = 'VALOR_BLOB'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'ID_EMPRESA'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            Name = 'IBX'
            SQL = 
              'insert into CONFIGURACION (ID, CODIGO, VALOR, VALOR_BLOB, ID_EMP' +
              'RESA)'#10'values(GEN_ID(GEN_CONFIGURACION_ID, 1), :CODIGO, :VALOR, :' +
              'VALOR_BLOB, :ID_EMPRESA)'#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'InsertarValor'
      end
      item
        Params = <
          item
            Name = 'VALOR'
            Value = ''
          end
          item
            Name = 'VALOR_BLOB'
            DataType = datMemo
            Value = ''
          end
          item
            Name = 'CODIGO'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            SQL = 
              'update CONFIGURACION'#10'set'#10'VALOR = :VALOR,'#10'VALOR_BLOB = :VALOR_BLO' +
              'B'#10'where CODIGO = :CODIGO'#10#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'UpdateValor'
      end
      item
        Params = <
          item
            Name = 'VALOR'
            Value = ''
          end
          item
            Name = 'VALOR_BLOB'
            Value = ''
          end
          item
            Name = 'CODIGO'
            Value = ''
          end
          item
            Name = 'ID_EMPRESA'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            SQL = 
              'update CONFIGURACION'#10'set'#10'VALOR = :VALOR,'#10'VALOR_BLOB = :VALOR_BLO' +
              'B'#10'where CODIGO = :CODIGO'#10'AND ID_EMPRESA = :ID_EMPRESA'#10#10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'UpdateValorParaEmpresa'
      end>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 40
    Top = 16
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 40
    Top = 80
  end
end