|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 591
|
 Blokada założenia indeksu tow. W jaki sposób mogę zablokować 'inwencję twórczą' pracowników dz. zaopatrzenia?
Chciałbym, żeby wprowadzali towary o określonym schemacie kodowania, a niestety z poziomu procedur dla towaru nie ma OnBeforeInsert=-6000.
_________________
zz
|
| Autor |
Wiadomość |
|
Mix-soft.pl
|
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
A za pomoca OnAfterInsert - nic nie dasz rade wykombinowac?
|
| 2010-03-11, 19:42 |
|
|
|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 591
|
No niestety nie bardzo wiem jak. 
Daję tylko ostrzeżenie bo też nie działa -6000.
_________________
zz
|
| 2010-03-12, 11:31 |
|
|
|
wrob
Ekspert
Rejestracja: 2008-04-18, 18:52 Posty: 5169 Pomógł: 59
|
No po wystawieniu -6000 na logike nie moze dzialac..... mozesz zamiast ostzrezenia np odrazu usunac ten towar....
|
| 2010-03-12, 11:50 |
|
|
|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 591
|
...i przychodzić do pracy na III zmianę, żeby się nie natknąć na 'zadowolonych-inaczej' kolegów...
_________________
zz
|
| 2010-03-12, 14:15 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
Przykład wymusza, żeby kodty towarów zaczynały się od znaku 'A'
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 = "BTowar"
xProcObj.aktywny = 1
xProcObj.raport = "kod='Mix-soft Kontrola kodu towaru'"
Dispatch xProcEvent = xProcObj.proceduryZdarzen.AddNew()
xProcEvent.zdarzenie = "kod='BeforeSave'"
Dispatch xProcedura = xProcEvent.procedury.AddNew()
xProcedura.nazwa = "SprawdzKodTowaru"
xProcedura.aktywny = 1
xProcedura.kolejnosc = 1
xProcedura.konieczna = 0
xKonf.aktywny = 1
OnStart = 0
endsub
Kod: //"mixkktw.sc","Mix-soft Kontrola kodu towaru","\Procedury\",0,1.0.0,SYSTEM
#define XmsgERROR 0x01
long Sub SprawdzKodTowaru(String strEventName, Dispatch xObject, String strParams, Dispatch xParams)
SprawdzKodTowaru = 0
Dispatch msg
if mid(xObject.kod,1,1) != "A" then
msg = xFactory.komunikaty.AddNew()
msg.tresc = "Kod towaru musi zaczynać się znakiem 'A'"
msg.status = XmsgINTERNAL
SprawdzKodTowaru = 771
EndIf
EndSub
|
| 2010-03-13, 11:35 |
|
|
|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 591
|
Dzięki Rafał.
PS. Jakbym mógł coś dla ciebie zrobić (odśnieżyć samochód, wypić za twoje zdrowie, ...) to 'ino mrygnij ...' 
_________________
zz
|
| 2010-03-15, 09:32 |
|
|
|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 591
|
PS 2. Czyżby zniknął przycisk POMÓGŁ?
Nie mogę znaleźć.
_________________
zz
|
| 2010-03-15, 11:12 |
|
|
|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 591
|
Chyba coś robię nie tak:
dodałem wpisy w OnOpen()
dodałem BeforeSave() w procedurach towaru
przy zapisie towaru mam komunikat:
"Błąd składni języka. Niezdefiniowany symbol xMsgInternal"
Co jeszcze powinienem dodać?
_________________
zz
|
| 2010-03-24, 16:23 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
zamisat
Kod: #define XmsgERROR 0x01
powinno być Kod: #define XmsgINTERNAL 0x03
|
| 2010-03-24, 22:36 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
zz pisze: dodałem wpisy w OnOpen()
dodałem BeforeSave() w procedurach towaru
Coś mi się tu nie podoba. Co zrobiłeś w OnOpen i po co?
Zaktualizuj załączone raporty i po sprawie.
|
| 2010-03-24, 22:38 |
|
|
|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 591
|
Myślałem, że OnStart ma być w OnOpen() - wyrzuciłem
Dodałem BeforeSave = SprawdzKodTowaru(lId) w procedurach towaru - czy dobrze?
Mam błąd dla tej linii: Oczekiwane ','
_________________
zz
|
| 2010-03-25, 15:12 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
utwórz plik : prockonf.sc - wklej do niego pierwszy raport
utwórz plik : mixkktw.sc - wklej do niego drugi raport
uruchom raport : Aktualizacja raportów systemowych wskazując katalog z w/w plikami
wyjdź i wejdź do firmy jeszcze raz.
Zadziałało?
|
| 2010-03-25, 15:44 |
|
|
|
zz
Rejestracja: 2008-03-10, 14:01
Posty: 591
|
Tak <brawo>
Chciałem 'przekombinować' z tymi procedurami
Jeszcze tylko: czy użytkownik mógłby dostać informację, czemu się nie wystawia?
_________________
zz
|
| 2010-03-25, 16:11 |
|
|
|
rafal
Ekspert
Rejestracja: 2007-11-16, 15:08 Posty: 3983 Pomógł: 445
|
Zastanawiam się czy Ci zadziałało.
Jeżeli zainstalowałeś te raporty poprawnie to przy próbie wprowadzenia towaru, którego nazwa zaczyna się od innego znaku niż "A" pojawia się komunikat, że nie można dodać towaru. Czy o to chodziło?
|
| 2010-03-25, 16:14 |
|
|
