| mojaSymfonia FORUM https://forum.mix-soft.pl/ |
|
| Prawa do typu dokumentu w Handlu https://forum.mix-soft.pl/viewtopic.php?f=15&t=4178 |
Strona 1 z 1 |
| Autor: | andrew [ 2012-09-17, 10:21 ] |
| Tytuł: | Prawa do typu dokumentu w Handlu |
Czy jest możliwość nadania praw do typu dokumentu? Mam utworzonych kilka typów FVS1, FVS2 ... i potrzebuję ograniczyć użytkownikowi możliwość wystawiania dokumentu tylko do jednego typu. W prawach niczego takiego nie widzę. |
|
| Autor: | rafal [ 2012-09-17, 11:53 ] |
| Tytuł: | Re: Prawa do typu dokumentu w Handlu |
Jest możliwość blokady wystawienia dokumentu. Należy dopisać krótki skrypt w Raporty -> Procedury -> Procedury dokumentu sprzedaży Kod: int Sub OnBeforeInsert(long lId) mapValue mvPrawa mvPrawa.Type( string ) mvPrawa.Set( "Admin", "@FVS1@FVS2@FVS3@") mvPrawa.Set( "Anna", "@FVS1@") // mvPrawa.Set( "nazwa_użytkownika", "@typy_dokumentow_rozdzielane_małpkami@") // analogicznie tu można dodawać kolejnych użytkowników buf = mvPrawa.Get( CurrentUser ) baseDK dk dk.GetRecById( lId ) if find regular "{*}@" + dk.GetField("typ_dk") + "@{*}" then OnBeforeInsert = 0 else message "Nie masz prawa do wystawienia dokumentu "+ dk.GetField("typ_dk") OnBeforeInsert = -6000 endif EndSub |
|
| Autor: | andrew [ 2012-09-17, 12:28 ] |
| Tytuł: | Re: Prawa do typu dokumentu w Handlu |
Dziękuję. Działa jednak tylko dla użytkowników którym wpisze prawa. W innym wypadku pojawia się błąd : Błąd wykonania Klucz TR nie istnieje w mapie. plik: Procedury dokumentu sprzedaży linia: 25 |
|
| Autor: | rafal [ 2012-09-17, 13:08 ] |
| Tytuł: | Re: Prawa do typu dokumentu w Handlu |
Kod: int Sub OnBeforeInsert(long lId) mapValue mvPrawa mvPrawa.Type( string ) mvPrawa.Set( "Admin", "@FVS1@FVS2@FVS3@") mvPrawa.Set( "Anna", "@FVS1@") // mvPrawa.Set( "nazwa_użytkownika", "@typy_dokumentow_rozdzielane_małpkami@") // analogicznie tu można dodawać kolejnych użytkowników buf = mvPrawa.Get( CurrentUser ,"") baseDK dk dk.GetRecById( lId ) if (find regular "{*}@" + dk.GetField("typ_dk") + "@{*}") || buf == "" then OnBeforeInsert = 0 else message "Nie masz prawa do wystawienia dokumentu "+ dk.GetField("typ_dk") OnBeforeInsert = -6000 endif EndSub |
|
| Autor: | andrew [ 2012-09-17, 13:51 ] |
| Tytuł: | Re: Prawa do typu dokumentu w Handlu |
Wielkie dzięki. Sprytne. |
|
| Strona 1 z 1 | Strefa czasowa UTC+1godz. [letni] |
| Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |
|