Пример #1
0
        public static bool CanLogin(DataPersistance dp,
                                    string RoleName, string UserName, string UserPassword)
        {
            string TrueStr  = dp.FormatSqlValue(true);
            string FalseStr = dp.FormatSqlValue(false);

            dp.ValidateTableDef <User>();
            dp.ValidateTableDef <RoleUser>();

            string SqlQuery;

            if (BaseSecurity.LoginWithRole)
            {
                SqlQuery = string.Concat(@"SELECT U.UserName 
                FROM (_System_User AS U INNER JOIN _System_RoleUser AS RU ON 
                U.UserName=RU.UserName) INNER JOIN _System_Role AS R ON 
                RU.RoleName=R.RoleName AND RU.ProductName=R.ProductName 
                WHERE RU.ProductName=@3 AND U.IsActive=", TrueStr,
                                         @" AND U.UserName=@0 AND U.UserPassword=@1
                AND (U.UseDateLimit=", FalseStr, " OR ", dp.GetSqlNow(),
                                         " BETWEEN U.StartDate AND U.EndDate) AND R.IsActive=",
                                         TrueStr, @" AND R.RoleName=@2 AND 
                (R.UseDateLimit=", FalseStr, " OR ", dp.GetSqlNow(),
                                         " BETWEEN R.StartDate AND R.EndDate)");

                return(dp.Find.IsExists(SqlQuery,
                                        new FieldParam("0", UserName),
                                        new FieldParam("1", UserPassword),
                                        new FieldParam("2", RoleName),
                                        new FieldParam("3", BaseFramework.ProductName)));
            }
            else
            {
                SqlQuery = string.Concat(@"SELECT U.UserName 
                FROM (_System_User AS U INNER JOIN _System_RoleUser AS RU ON 
                U.UserName=RU.UserName) INNER JOIN _System_Role AS R ON 
                RU.RoleName=R.RoleName AND RU.ProductName=R.ProductName 
                WHERE RU.ProductName=@3 AND U.IsActive=", TrueStr,
                                         @" AND U.UserName=@0 AND U.UserPassword=@1
                AND (U.UseDateLimit=", FalseStr, " OR ", dp.GetSqlNow(),
                                         " BETWEEN U.StartDate AND U.EndDate) AND R.IsActive=",
                                         TrueStr, @" AND
                (R.UseDateLimit=", FalseStr, " OR ", dp.GetSqlNow(),
                                         " BETWEEN R.StartDate AND R.EndDate)");

                return(dp.Find.IsExists(SqlQuery,
                                        new FieldParam("0", UserName),
                                        new FieldParam("1", UserPassword),
                                        new FieldParam("3", BaseFramework.ProductName)));
            }
        }
Пример #2
0
 /// <summary>
 /// Update Field MataUangDasr di semua akun
 /// </summary>
 /// <param name="Dp"></param>
 /// <param name="MataUang"></param>
 public static void SetMataUangDasar(DataPersistance Dp,
                                     string MataUang)
 {
     Dp.ExecuteNonQuery(string.Concat(
                            "UPDATE Akun SET MataUangDasar=",
                            Dp.FormatSqlValue(false, DataType.Boolean),
                            " WHERE MataUangDasar=",
                            Dp.FormatSqlValue(true, DataType.Boolean)));
     Dp.ExecuteNonQuery(string.Concat(
                            "UPDATE Akun SET MataUangDasar=",
                            Dp.FormatSqlValue(true, DataType.Boolean),
                            " WHERE KodeMataUang=@0"),
                        new FieldParam("0", MataUang));
 }
Пример #3
0
        private void UpdateStrQuery()
        {
            string tmpFilter;

            if (_Filter.Length > 0)
            {
                tmpFilter = _Filter;
            }
            else
            {
                tmpFilter = "1=1";
            }

            string TmpStr = DataPersistance.BuildKeyField(td);

            if (_OrderFld._dtlsa == null)
            {
                strQuery = string.Concat("SELECT KeyField FROM (SELECT ",
                                         TmpStr, " AS KeyField,", _OrderFld.FieldName, " FROM ",
                                         td._TableName, " WHERE (", tmpFilter, ")) AS X");
                _CriteriaPos = strQuery.Length - 6;
            }
            else
            {
                strQuery = string.Concat("SELECT KeyField FROM (SELECT KeyField,",
                                         DataPersistance.GetSqlCoalesceNoFormat(_OrderFld.FieldName,
                                                                                DataPersistance.FormatSqlValue(string.Empty)),
                                         " AS ", _OrderFld.FieldName, " FROM (SELECT ", TmpStr, " AS KeyField,(", _OrderFld._dtlsa._SqlQuery, ") AS ",
                                         _OrderFld.FieldName, " FROM ",
                                         td._TableName, " WHERE (", tmpFilter, ")) AS X) AS X");
                _CriteriaPos = strQuery.Length - 12;
            }
            IsKeyFieldEqualOrderField = TmpStr == _OrderFld.FieldName;
        }
        public void DrawTree(TreeListNode ParentNode)
        {
            //string ParentValue = ParentNode == null ?
            //    (string)TreeList.RootValue : (string)((object[])ParentNode.Tag)[0];
            string ParentValue = ParentNode == null ?
                                 (string)TreeList.RootValue : ((MyNode)ParentNode.Tag).KeyField;

            IList <object> ListEntity =
                Dp.FastLoadEntities(Td.ClassType, null,
                                    string.Join(",", Columns), string.Concat(
                                        TreeList.ParentFieldName, "=",
                                        Dp.FormatSqlValue(ParentValue)), OrderField);

            //if (ParentNode != null) ((object[])ParentNode.Tag)[1] = true;
            if (ParentNode != null)
            {
                ((MyNode)ParentNode.Tag).IsLoad = true;
            }

            if (ListEntity == null || ListEntity.Count == 0)
            {
                if (ParentNode != null)
                {
                    ParentNode.HasChildren = false;
                }
                return;
            }
            object[] NodeValue = new object[Columns.Length - 1];
            TreeList.BeginUnboundLoad();
            try
            {
                foreach (object Entity in ListEntity)
                {
                    for (int i = 1; i < Columns.Length; i++)
                    {
                        NodeValue[i - 1] = Td.GetFieldDef(Columns[i])
                                           .GetValue(Entity);
                    }
                    TreeListNode Node = TreeList.AppendNode(NodeValue, ParentNode);
                    MyNode       nd   = new MyNode(Node,
                                                   (string)Td.GetFieldDef(Columns[0])
                                                   .GetValue(Entity));
                    Node.Tag = nd;

                    //Node.Tag = new object[2] {
                    //    Td.GetFieldDef(Columns[0]).GetValue(Entity), false };

                    if (onAfterAddNode != null)
                    {
                        onAfterAddNode(Node, Entity);
                    }
                }
            }
            finally
            {
                TreeList.EndUnboundLoad();
            }
        }
Пример #5
0
 /// <summary>
 /// Tambahkan jumlah counter pengunci pada akun
 /// </summary>
 /// <param name="Dp"></param>
 /// <param name="IdAkun"></param>
 public static void TambahJmlPengunci(DataPersistance Dp,
                                      string IdAkun)
 {
     Dp.ExecuteNonQuery(string.Concat(
                            "UPDATE Akun SET Terkunci=",
                            Dp.FormatSqlValue(true, DataType.Boolean),
                            ",JmlPengunci=JmlPengunci+1 WHERE IdAkun=@0"),
                        new FieldParam("0", IdAkun));
 }
Пример #6
0
 public static DataTable GetListRole(DataPersistance dp, string UserName)
 {
     return(dp.OpenDataTable(string.Concat("SELECT ",
                                           dp.FormatSqlValue(false, DataType.Boolean),
                                           @" AS Pilih,RoleName AS NamaPeran FROM _System_RoleUser 
         WHERE UserName=@0 AND ProductName=@1"),
                             new FieldParam("0", UserName),
                             new FieldParam("1", BaseFramework.ProductName)));
 }
Пример #7
0
        internal static bool IsUserAdminExist(DataPersistance dp)
        {
            string TrueStr  = dp.FormatSqlValue(true);
            string FalseStr = dp.FormatSqlValue(false);

            string SqlQuery = string.Concat(
                @"SELECT U.UserName FROM (_System_User AS U 
                INNER JOIN _System_RoleUser AS RU ON 
                U.UserName=RU.UserName) INNER JOIN _System_Role R ON 
                RU.RoleName=R.RoleName AND RU.ProductName=R.ProductName WHERE 
                R.ProductName=@0 AND U.IsAdmin=", TrueStr,
                " AND U.IsActive=", TrueStr,
                " AND (U.UseDateLimit=", FalseStr, " OR ",
                dp.GetSqlNow(), @" BETWEEN U.StartDate AND 
                U.EndDate) AND R.IsActive=", TrueStr,
                " AND (R.UseDateLimit=", FalseStr, " OR ",
                dp.GetSqlNow(), " BETWEEN R.StartDate AND R.EndDate)");

            return(dp.Find.IsExists(SqlQuery,
                                    new FieldParam("0", BaseFramework.ProductName)));
        }
Пример #8
0
        private string BuildPKWhere(object Entity)
        {
            string RetVal = string.Empty;

            foreach (FieldDef fld in td.KeyFields.Values)
            {
                RetVal = string.Concat(RetVal, " AND ",
                                       dp.FormatSqlObject(fld.FieldName), "=",
                                       dp.FormatSqlValue(fld.GetValue(Entity), fld.DataType));
            }

            return(RetVal.Substring(5));
        }
Пример #9
0
 internal static DataTable GetListRole(DataPersistance dp,
                                       bool AllRole)
 {
     dp.ValidateTableDef <Role>();
     if (AllRole)
     {
         return(dp.OpenDataTable(
                    "SELECT RoleName FROM _System_Role WHERE ProductName=@0 ORDER BY RoleName",
                    new FieldParam("0", BaseFramework.ProductName)));
     }
     else
     {
         return(dp.OpenDataTable(string.Concat(
                                     "SELECT RoleName FROM _System_Role WHERE ProductName=@0 AND IsActive=",
                                     dp.FormatSqlValue(true, DataType.Boolean),
                                     " AND (UseDateLimit=",
                                     dp.FormatSqlValue(false, DataType.Boolean),
                                     " OR ", dp.GetSqlNow(),
                                     " BETWEEN StartDate AND EndDate) ORDER BY RoleName"),
                                 new FieldParam("0", BaseFramework.ProductName)));
     }
 }
Пример #10
0
        private void CreateWarningLetter()
        {
            string SqlQuery = "SELECT * FROM ViewWarningList WHERE AutoWarningLetter=1";

            DataPersistance         Dp     = BaseFramework.DefaultDp;
            IList <ViewWarningList> ListWl =
                Dp.ListFastLoadEntitiesUsingSqlSelect <ViewWarningList>(
                    null, SqlQuery, string.Empty);

            if (ListWl.Count == 0)
            {
                return;
            }

            StringBuilder sb = new StringBuilder();

            foreach (ViewWarningList vwl in ListWl)
            {
                string SqlFilter = vwl.KodeDepartemen.Length > 0 ?
                                   string.Concat("KodeDepartemen=",
                                                 Dp.FormatSqlValue(vwl.KodeDepartemen)) : string.Empty;

                if (vwl.KodeBagian.Length > 0)
                {
                    SqlFilter = string.Concat(SqlFilter, " AND KodeBagian=",
                                              Dp.FormatSqlValue(vwl.KodeBagian));
                }
                if (vwl.KodeSeksi.Length > 0)
                {
                    SqlFilter = string.Concat(SqlFilter, " AND KodeSeksi=",
                                              Dp.FormatSqlValue(vwl.KodeSeksi));
                }
                if (vwl.KodeGudang.Length > 0)
                {
                    SqlFilter = string.Concat(SqlFilter, " AND KodeGudang=",
                                              Dp.FormatSqlValue(vwl.KodeGudang));
                }

                if (SqlFilter.StartsWith(" AND"))
                {
                    SqlFilter = " WHERE " + SqlFilter.Substring(5);
                }
                else if (SqlFilter.Length > 0)
                {
                    SqlFilter = " WHERE " + SqlFilter;
                }

                sb.Append(" UNION ALL SELECT ").Append(
                    Dp.FormatSqlValue(vwl.WarningName)).Append(
                    @" NamaPeringatan,NoDokumen,TglAkhir,Keterangan,KodeDepartemen,
                        KodeBagian,KodeSeksi,KodeGudang,Pembuat FROM (")
                .Append(vwl.WarningQuery.Replace("@Tgl", vwl.NumDayToWarningLetter))
                .Append(") x").Append(SqlFilter);
            }
            SqlQuery = string.Concat("SELECT * FROM (",
                                     sb.ToString().Substring(10), @") x LEFT JOIN WarningLetter wl ON 
                x.NamaPeringatan=wl.WarningName AND x.NoDokumen=wl.ReffDocNumber 
                WHERE wl.WarningName IS NULL AND TglAkhir<",
                                     Dp.FormatSqlValue(DateTime.Today));
            IList <clsWarningList> ListWarning = Dp
                                                 .ListFastLoadEntitiesUsingSqlSelect <clsWarningList>(null,
                                                                                                      SqlQuery, "NamaPeringatan,TglAkhir");

            try
            {
                //using (EntityTransaction tr = new EntityTransaction(Dp))
                //{
                //    foreach (clsWarningList wl in ListWarning)
                //    {
                //        SuratPeringatan sp = new SuratPeringatan(NoReg,
                //            wl.NamaPeringatan);
                //        sp.SaveNew();
                //        new WarningLetter(wl.NamaPeringatan,
                //            sp.NoSuratPeringatan, wl.NoDokumen).SaveNew();
                //    }
                //    tr.CommitTransaction();
                //}
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message, "Error Pembuatan SP",
                                MessageBoxButtons.OK, MessageBoxIcon.Error);
            }
        }
Пример #11
0
        public static string CreateSqlWarning(string NamaTabel)
        {
            string RetVal;

            if (!DictSqlWarning.TryGetValue(NamaTabel, out RetVal))
            {
                string SqlQuery = "SELECT * FROM ViewWarningList WHERE TableSourceName LIKE @ts";

                DataPersistance Dp = BaseFramework.DefaultDp;

                IList <ViewWarningList> ListWl =
                    Dp.ListFastLoadEntitiesUsingSqlSelect <ViewWarningList>(
                        null, SqlQuery, string.Empty,
                        new FieldParam("ts", string.Concat("%", NamaTabel, "%")));

                if (ListWl.Count > 0)
                {
                    StringBuilder sb = new StringBuilder();
                    foreach (ViewWarningList vwl in ListWl)
                    {
                        string SqlFilter = vwl.KodeDepartemen.Length > 0 ?
                                           string.Concat(" AND KodeDepartemen=",
                                                         Dp.FormatSqlValue(vwl.KodeDepartemen)) : string.Empty;

                        if (vwl.KodeBagian.Length > 0)
                        {
                            SqlFilter = string.Concat(SqlFilter, " AND KodeBagian=",
                                                      Dp.FormatSqlValue(vwl.KodeBagian));
                        }
                        if (vwl.KodeSeksi.Length > 0)
                        {
                            SqlFilter = string.Concat(SqlFilter, " AND KodeSeksi=",
                                                      Dp.FormatSqlValue(vwl.KodeSeksi));
                        }
                        if (vwl.KodeGudang.Length > 0)
                        {
                            SqlFilter = string.Concat(SqlFilter, " AND KodeGudang=",
                                                      Dp.FormatSqlValue(vwl.KodeGudang));
                        }

                        sb.Append(" UNION ALL SELECT ").Append(
                            Dp.FormatSqlValue(vwl.WarningName)).Append(
                            @" NamaPeringatan,NoDokumen,TglAkhir,Keterangan,KodeDepartemen,
                        KodeBagian,KodeSeksi,KodeGudang,Pembuat,")
                        .Append(Dp.FormatSqlValue(vwl.ResponsibleUser))
                        .Append(" PenanggungJawab,CAST(")
                        .Append(vwl.AutoWarningLetter ? "1" : "0")
                        .Append(" AS BIT) JenisWarning FROM (")
                        .Append(vwl.WarningQuery.Replace("@Tgl", vwl.NumDayToWarningLetter))
                        .Append(") x")
                        .Append(" WHERE NoDokumen LIKE @NoDok+'%'")
                        .Append(SqlFilter);
                    }
                    RetVal = sb.Remove(0, 11).ToString();
                }
                else
                {
                    RetVal = string.Empty;
                }
                DictSqlWarning[NamaTabel] = RetVal;
            }
            return(RetVal);
        }
Пример #12
0
        public IList <clsWarningList> CreateDataSource(bool Awl)
        {
            string SqlQuery = @"SELECT * FROM ViewWarningList 
                WHERE ResponsibleUser=@User AND AutoWarningLetter=@awl";

            DataPersistance Dp = SDMDp;

            IList <ViewWarningList> ListWl =
                Dp.ListFastLoadEntitiesUsingSqlSelect <ViewWarningList>(
                    null, SqlQuery, string.Empty,
                    new FieldParam("User", BaseSecurity.CurrentLogin.CurrentUser),
                    new FieldParam("awl", Awl));

            if (ListWl.Count > 0)
            {
                StringBuilder sb = new StringBuilder();
                foreach (ViewWarningList vwl in ListWl)
                {
                    string SqlFilter = vwl.KodeDepartemen.Length > 0 ?
                                       string.Concat("KodeDepartemen=",
                                                     Dp.FormatSqlValue(vwl.KodeDepartemen)) : string.Empty;

                    if (vwl.KodeBagian.Length > 0)
                    {
                        SqlFilter = string.Concat(SqlFilter, " AND KodeBagian=",
                                                  Dp.FormatSqlValue(vwl.KodeBagian));
                    }
                    if (vwl.KodeSeksi.Length > 0)
                    {
                        SqlFilter = string.Concat(SqlFilter, " AND KodeSeksi=",
                                                  Dp.FormatSqlValue(vwl.KodeSeksi));
                    }
                    if (vwl.KodeGudang.Length > 0)
                    {
                        SqlFilter = string.Concat(SqlFilter, " AND KodeGudang=",
                                                  Dp.FormatSqlValue(vwl.KodeGudang));
                    }

                    if (SqlFilter.StartsWith(" AND"))
                    {
                        SqlFilter = " WHERE " + SqlFilter.Substring(5);
                    }
                    else if (SqlFilter.Length > 0)
                    {
                        SqlFilter = " WHERE " + SqlFilter;
                    }

                    sb.Append(" UNION ALL SELECT ").Append(
                        Dp.FormatSqlValue(vwl.WarningName)).Append(
                        @" NamaPeringatan,NoDokumen,TglAkhir,Keterangan,KodeDepartemen,
                        KodeBagian,KodeSeksi,KodeGudang,Pembuat FROM (")
                    .Append(vwl.WarningQuery.Replace("@Tgl", vwl.NumDayToWarningLetter))
                    .Append(") x").Append(SqlFilter);
                }
                sb.Remove(0, 11);
                return(Dp.ListFastLoadEntitiesUsingSqlSelect <clsWarningList>(null,
                                                                              sb.ToString(), "NamaPeringatan,TglAkhir"));
            }
            else
            {
                return(new List <clsWarningList>());
            }
        }