LuisLeon_FactuGES/Source/Modulos/Impresiones/Servidor/srvImpresiones_Impl.dfm

object srvImpresiones: TsrvImpresiones
  OldCreateOrder = True
  OnCreate = DARemoteServiceCreate
  RequiresSession = True
  SessionManager = dmServer.SessionManager
  AcquireConnection = True
  ServiceSchema = schImpresiones
  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 schImpresiones: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'IMPRESIONES'
            SQL = 'select ID, TABLA, ID_TABLA, NUM_COPIAS'#10'from IMPRESIONES'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end
              item
                DatasetField = 'TABLA'
                TableField = 'TABLA'
              end
              item
                DatasetField = 'ID_TABLA'
                TableField = 'ID_TABLA'
              end
              item
                DatasetField = 'NUM_COPIAS'
                TableField = 'NUM_COPIAS'
              end>
          end>
        Name = 'Impresiones'
        Fields = <
          item
            Name = 'ID'
            DataType = datAutoInc
            BlobType = dabtUnknown
            GeneratorName = 'GEN_IMPRESIONES_ID'
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = True
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'TABLA'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'ID_TABLA'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end
          item
            Name = 'NUM_COPIAS'
            DataType = datInteger
            BlobType = dabtUnknown
            DisplayWidth = 0
            Alignment = taLeftJustify
            InPrimaryKey = False
            Calculated = False
            Lookup = False
            LookupCache = False
          end>
        BusinessRulesClient.ScriptLanguage = rslPascalScript
        BusinessRulesServer.ScriptLanguage = rslPascalScript
      end>
    Commands = <
      item
        Params = <
          item
            Name = 'Tabla'
            DataType = datString
            Size = 255
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'IdTabla'
            BlobType = dabtUnknown
            Value = ''
            ParamType = daptUnknown
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'IMPRESIONES'
            SQL = 'execute procedure PRO_ANADIR_MARCA_IMPRESION :Tabla, :IdTabla'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'AnadirMarcaImpresion'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 48
    Top = 24
  end
  object DABINAdapter: TDABINAdapter
    Left = 48
    Top = 90
  end
  object bpImpresiones: TDABusinessProcessor
    Schema = schImpresiones
    UpdateCommandName = 'Update_Referencias'
    ReferencedDataset = 'Referencias'
    ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
    UpdateMode = updWhereKeyOnly
    Left = 248
    Top = 24
  end
end