Re: Przymusowe podanie kodu kreskowego przy dodaniu towaru
Nie ma możliwości walidacji danych przy wprowadzaniu/edycji towaru.
Możesz natomiast pilnować aby użytkownik nie mógł wystawić dokumentu z towarem, który nie ma kompletnych danych.
Zmodyfikuj raport : Raporty
Procedury
Procedury dokumentu sprzedaży
ZNAJDŹ
Kod:
int Sub OnBeforeInsert(long lId)
EndSub
ZAMIEŃ NA
Kod:
int Sub OnBeforeInsert(long lId)
int errBP
string sMessage
baseBP bp
baseTW tw
bp.SetKey("super")
bp.SetKeySeg("super", lId)
bp.SetKeySeg("lp", 0)
errBP = bp.GetRec( GE )
while !errBP
if bp.GetField("super") != lId then exit
tw.GetRecById( bp.GetField( "idtw" ) )
if tw.GetField("poledod1") == "" then sMessage += using "W pozycji %d towar %s ma niepełne dane - Pole dodatkowe 1." + lf, bp.GetField("lp")/32, tw.GetField("kod")
if tw.GetField("kodpaskowy") == "" then sMessage += using "W pozycji %d towar %s ma niepełne dane - kod paskowy." + lf, bp.GetField("lp")/32, tw.GetField("kod")
// dodaj inne warunki
errBP = bp.GetRec( NX )
wend
if sMessage != "" then
message sMessage
OnBeforeInsert = -6000
endif
EndSub
Ustawienia
Parametry pracy
Wykonywanie procedur
Dla dokumentu sprzedaży ustaw na
TAK