mojaSymfonia FORUM
https://forum.mix-soft.pl/

Blokada zmiany znacznika z okna Kartoteki ZMO
https://forum.mix-soft.pl/viewtopic.php?f=15&t=1902
Strona 1 z 1

Autor:  zz [ 2010-03-31, 11:27 ]
Tytuł:  Blokada zmiany znacznika z okna Kartoteki ZMO

Witam.
Potrzebuję zablokować możliwość zmiany znacznika na ZMO - przy założeniu że zmiana powinna być możliwa dla faktur (musi być uprawnienie systemowe na zmianę znacznika).
Jeśli ktoś będzie chciał to zrobić poprzez edycję ZMO to chyba sobie jakoś poradzę.
Ale jeśli ktoś to zrobi z okna kartoteki ZMO (a tak jest prawie zawsze, bo prościej). Tam nie są wykonywane procedury dla zamówienia -jak to 'ugryźć'?

Autor:  Misiek [ 2010-03-31, 13:31 ]
Tytuł: 

Witam,

Proponuję całkowicie zablokować zmianę znacznika z poziomu programu (prawo dla użytkownika) i napisać sobie niewielki raport do nadawania/zmiany znacznika na dokumencie - kwestia praw i osób które mają mieć lub nie dostęp do tych funkcji można już oprogramować w Symfonii. To taka pierwsza myśl i rozwiązanie w tym temacie.

Oczywiście procedura dodatkowo dla dokumentu, która również nie pozwoli na zmianę znacznika z poziomu dokumentu, ewentualnie przeglądnięcie jeszcze innych miejsc skąd można nadać znacznik (jak jest grupowe nadawanie znaczników gdzieś w operacjach).

Autor:  rafal [ 2010-04-02, 13:02 ]
Tytuł: 

Zrób analogicznie do :
http://forum.mojasymfonia.pl/viewtopic.php?t=1839

Tylko użyj obiektu BTw a nie BTowar i zmień sprawdzanie kodu towaru na sprawdzanie znacznika.

I załatwione.

Autor:  zz [ 2010-04-07, 15:52 ]
Tytuł: 

Tak zrobiłem i niestety zero reakcji systemu. :(

Autor:  rafal [ 2010-04-07, 21:07 ]
Tytuł: 

Kod:
//"prockonf.sc","Procedury - konfiguracja","\Procedury\",0,1.0.0,SYSTEM

int sub OnStart()
  Dispatch xKonf
  Dispatch xProcs
  Dispatch xProcObj

  xKonf = xFactory.konfiguracjaRaportow
  xKonf.Clear()
  xProcs = xKonf.proceduryObiektow
  xProcObj = xProcs.AddNew()
  xProcObj.objectTypeName = "BDokZo"
  xProcObj.aktywny = 1
  xProcObj.raport = "kod='Mix-soft Kontrola zmiany znacznika z listy'"
  Dispatch xProcEvent = xProcObj.proceduryZdarzen.AddNew()
  xProcEvent.zdarzenie = "kod='BeforeSave'"
  Dispatch xProcedura = xProcEvent.procedury.AddNew()
  xProcedura.nazwa = "SprawdzZnZMO"
  xProcedura.aktywny = 1
  xProcedura.kolejnosc = 1
  xProcedura.konieczna = 0
  xKonf.aktywny = 1
  OnStart = 0

endsub


Kod:
//"mixkzm.sc","Mix-soft Kontrola zmiany znacznika z listy","\Procedury\",0,1.0.0,SYSTEM

#define XmsgINTERNAL    0x03

long Sub SprawdzZnZMO(String strEventName, Dispatch xObject, String strParams, Dispatch xParams)
  SprawdzZnZMO = 0
  Dispatch msg

if (!AMStrCMpi(strParams, "znacznik")) then
     msg = xFactory.komunikaty.AddNew()
     msg.tresc = "Nie można zminiać znacznika na liście zamówień."
     msg.status = XmsgINTERNAL
     SprawdzZnZMO = 771
  EndIf

EndSub

Autor:  zz [ 2010-04-09, 07:49 ]
Tytuł: 

IT WORKS !!!
THX

Autor:  zz [ 2010-05-31, 15:26 ]
Tytuł: 

Działa, ale 'prawie' dobrze :-(
Mam w okienku WYBORY pozakładane filtry (dla oddziałów). Wszystko jest OK, dopóki poruszam się w obrębie jednego oddziału. Jeśli przejdę do ZMO innego oddziału, mam błąd jak w zał. Muszę zamknąć kartotekę ZMO i ponownie otworzyć.

Załączniki:
ZMO blad.JPG
ZMO blad.JPG [ 6.77 KiB | Przeglądany 4783 razy ]

Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/