Logo Objects içerisinde Rights nesnesi mevcut. Bu nesne ile tüm yetkilerin tek tek okunması ambar, firma, terminal gibi yetkilerde sıkıntı oluşturmazken işlem yetkileri (yaklaşık 10600 tanedir) tek tek okunmak istendiğinde performans sıkıntısıyla karşılaşılabilir..
RightTreeLists ile bu yetkilerin bir anda tümü liste şeklinde alınabilir.
| Parametre | Type | Açıklama |
|---|---|---|
| RghtTree | IRightTreeLists | Yetki listesi. |
| userID | Integer (opsiyonel) | Kullanıcı numarası (ID) |
| firmNr | Integer (opsiyonel) | İşlem yetkileri okunacak firma numarası |
| rightsType | Integer (opsiyonel) | rightsType (Yetki Tipi); |
| Return Type | Açıklama | |
| Boolean | Belirtilen kriterlere uygun bir yetki kodu tanımı bulunursa TRUE, diğer durumlarda FALSE değeri döner. | |
Not: Opsiyonel parametreler girilmediği taktirde bütün öğeler için "right" değeri FALSE gelecektir.
Delphi Örneği
Memo1.Lines.BeginUpdate;
Memo1.Lines.Clear;
RightTree := AppRec.FObject.NewRghtsTree;
AppRec.FObject.GetRghtsTree(RightTree, 2, 1, 3);
for i:=0 to RightTree.count-1 do
Memo1.Lines.Add(StringOfChar(#9, RightTree.item[i].rlev)+
inttostr(RightTree.item[i].ridx) +' '+
inttostr(RightTree.item[i].rlev)+' '+
RightTree.item[i].tag+' '+
BoolToStr(RightTree.item[i].right,TRUE))
Memo1.Lines.EndUpdate;
C# Örneği
UnityObjects.RightTreeLists RightTree = Global.UnityApp.NewRghtsTree();
Global.UnityApp.GetRghtsTree(RightTree, 2,217, 1);
for (int i = 0; i < 10; i++) {
richTextBox1.AppendText(RightTree.Item[i].rLev.ToString()
+ " : " + RightTree.Item[i].rIdx.ToString()
+ " : " + RightTree.Item[i].tag.ToString()
+ " : " + RightTree.Item[i].right + "\n");
}
Copyright © 2018 Logo Yazılım