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
