object srvLogin: TsrvLogin
  OldCreateOrder = True
  OnCreate = DataAbstractServiceCreate
  ConnectionName = 'IBX'
  ServiceSchema = schLogin
  ServiceDataStreamer = Bin2DataStreamer
  ExportedDataTables = <>
  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
  Height = 300
  Width = 300
  object schLogin: TDASchema
    ConnectionManager = dmServer.ConnectionManager
    Datasets = <
      item
        Params = <
          item
            Name = 'ID_USUARIO'
            DataType = datInteger
            Value = '1'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'EMPRESAS_USUARIOS'
            SQL = 
              'SELECT '#10'    ID_EMPRESA'#10'  FROM'#10'    EMPRESAS_USUARIOS'#10'  WHERE ID_U' +
              'SUARIO = :ID_USUARIO'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID_EMPRESA'
                TableField = 'ID_EMPRESA'
              end>
          end>
        Name = 'EmpresasUsuario'
        Fields = <
          item
            Name = 'ID_EMPRESA'
            DataType = datInteger
            InPrimaryKey = True
          end>
      end
      item
        Params = <
          item
            Name = 'ID_USUARIO'
            DataType = datInteger
            Value = '1'
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            SQL = 
              'SELECT '#10'    PERFILES.PERFIL'#10'  FROM'#10'    PERFILES, PERFILES_USUARI' +
              'OS'#10'  WHERE PERFILES_USUARIOS.ID_USUARIO = :ID_USUARIO'#10'  AND PERF' +
              'ILES.ID = PERFILES_USUARIOS.ID_PERFIL'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'PERFIL'
                TableField = 'PERFIL'
              end>
          end>
        Name = 'PerfilesUsuario'
        Fields = <
          item
            Name = 'PERFIL'
            DataType = datString
            Size = 15
          end>
      end
      item
        Params = <
          item
            Name = 'USUARIO'
            DataType = datString
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'PASS'
            DataType = datString
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'USUARIOS'
            SQL = 
              'SELECT'#10'    ID'#10'  FROM'#10'    USUARIOS'#10'  WHERE USUARIO = :USUARIO AND' +
              #10'        PASS = :PASS AND'#10'        ACTIVO = 1'
            StatementType = stSQL
            ColumnMappings = <
              item
                DatasetField = 'ID'
                TableField = 'ID'
              end>
          end>
        Name = 'UsuarioPermitido'
        Fields = <
          item
            Name = 'ID'
            DataType = datInteger
            InPrimaryKey = True
          end>
      end>
    JoinDataTables = <>
    UnionDataTables = <>
    Commands = <
      item
        Params = <
          item
            Name = 'PASSWORD'
            DataType = datString
            Value = ''
            ParamType = daptInput
          end
          item
            Name = 'USERID'
            DataType = datString
            Value = ''
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'IBX'
            TargetTable = 'USUARIOS'
            SQL = 
              'UPDATE'#10'    USUARIOS'#10'  SET'#10'    PASS = :PASSWORD'#10'  WHERE'#10'    ID = ' +
              ':USERID'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'SetUserPassword'
      end>
    RelationShips = <>
    UpdateRules = <>
    Version = 0
    Left = 40
    Top = 24
  end
  object Bin2DataStreamer: TDABin2DataStreamer
    Left = 40
    Top = 88
  end
end