Noviseda_FactuGES2/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm

object srvReferencias: TsrvReferencias
  OldCreateOrder = True
  OnCreate = DataAbstractServiceCreate
  ServiceSchema = schReferencias
  ServiceDataStreamer = Bin2DataStreamer
  ExportedDataTables = <>
  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
  Height = 300
  Width = 300
  object schReferencias: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'REFERENCIAS'
            Name = 'IBX'
            SQL = 
              'SELECT '#10'    ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION'#10'  FROM'#10'  ' +
              '  REFERENCIAS'#10'  WHERE {Where}'#10
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'VALOR'
                TableField = 'VALOR'
              end
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end>
          end>
        Name = 'Referencias'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            GeneratorName = 'GEN_REFERENCIAS_ID'
            Required = True
            InPrimaryKey = True
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
          end
          item
            Name = 'CODIGO'
            DataType = datString
            Size = 50
            Required = True
          end
          item
            Name = 'VALOR'
            DataType = datString
            Size = 255
            Required = True
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        IsPublic = False
        Params = <
          item
            Name = 'VALOR'
            Value = ''
          end
          item
            Name = 'CODIGO'
            Value = ''
          end>
        Statements = <
          item
            Connection = 'IBX'
            ConnectionType = 'Interbase'
            Default = True
            TargetTable = 'REFERENCIAS'
            Name = 'IBX'
            SQL = 
              'UPDATE REFERENCIAS SET'#10'    VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' +
              #10
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'ModificarValorReferencia'
      end>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 40
    Top = 24
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 40
    Top = 88
  end
end