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

object srvReferencias: TsrvReferencias
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ServiceSchema = schReferencias
  ServiceAdapter = DABINAdapter
  OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
  Height = 202
  Width = 392
  object Diagrams: TDADiagrams
    Left = 150
    Top = 90
    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
  end
  object DataDictionary: TDADataDictionary
    Fields = <
      item
        Name = 'Referencias_CODIGO'
        DataType = datString
        Size = 50
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'CODIGO'
        Alignment = taLeftJustify
      end
      item
        Name = 'Referencias_DESCRIPCION'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'Referencias'
        Alignment = taLeftJustify
      end
      item
        Name = 'Referencias_VALOR'
        DataType = datString
        Size = 255
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'C'#243'digo'
        Alignment = taLeftJustify
      end
      item
        Name = 'Referencias_ID_EMPRESA'
        DataType = datInteger
        BlobType = dabtUnknown
        DisplayWidth = 0
        DisplayLabel = 'ID_EMPRESA'
        Alignment = taLeftJustify
      end>
    Left = 150
    Top = 24
  end
  object schReferencias: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'REFERENCIAS'
            SQL = 
              'SELECT '#10'    CODIGO, DESCRIPCION, VALOR, ID_EMPRESA'#10'  FROM'#10'    RE' +
              'FERENCIAS'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'DESCRIPCION'
                TableField = 'DESCRIPCION'
              end
              item
                DatasetField = 'CODIGO'
                TableField = 'CODIGO'
              end
              item
                DatasetField = 'VALOR'
                TableField = 'VALOR'
              end
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end>
          end>
        Name = 'Referencias'
        Fields = <
          item
            Name = 'CODIGO'
            DataType = datString
            Size = 50
            BlobType = dabtUnknown
            DictionaryEntry = 'Referencias_CODIGO'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'DESCRIPCION'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'Referencias_DESCRIPCION'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'VALOR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DictionaryEntry = 'Referencias_VALOR'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            DictionaryEntry = 'Referencias_ID_EMPRESA'
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'VALOR'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_CODIGO'
            DataType = datString
            Size = 50
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'OLD_ID_EMPRESA'
            DataType = datInteger
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'REFERENCIAS'
            SQL = 
              'UPDATE REFERENCIAS'#10'  SET '#10'    VALOR = :VALOR'#10'  WHERE'#10'    (CODIGO' +
              ' = :OLD_CODIGO)'#10'    AND (ID_EMPRESA = :OLD_ID_EMPRESA)'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Update_Referencias'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 48
    Top = 24
  end
  object DABINAdapter: TDABINAdapter
    Left = 48
    Top = 90
  end
  object bpReferencias: TDABusinessProcessor
    Schema = schReferencias
    UpdateCommandName = 'Update_Referencias'
    ReferencedDataset = 'Referencias'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 248
    Top = 24
  end
end