Re: Wykrywanie podwójnych kodów kreskowych danego towaru
Kod został poprawiony ponieważ źle był napisany warunek dla którego raport decydował o stwierdzeniu podwójnych kodów kreskowych, w tym momencie o stwierdzeniu podwójnych kodów decyduje suma cyfr kodu kreskowego
len(s) > 13, po przekroczeniu 13 cyfr dla tego samego kodu kresowego zostaje wyświetlony komunikat(tzn. że kod jest zdublowany lub zwielokrotniony)
Kod:
int Sub OnAfterUpdate(long lId)
baseTW tw
int errTW
string kp = tw.GetField("kodpaskowy")
string s = ""
ioRec ioLista
tw.SetKey("id")
tw.SetKeySeg("id", 0)
errTw = tw.GetRec( GE )
tw.GetRecById( lId )
while !errTw
if tw.GetField("kodpaskowy") != "" then
if tw.GetField("kodpaskowy") == kp then ioLista.SetField("id",(using "%l", tw.GetField("id")))
if tw.GetField("kodpaskowy") == kp then s += tw.GetField("kodpaskowy")
endif
errTw = tw.GetRec( NX )
wend
if kp != "" then
if(len(s) > 13) then
message("Uwaga podwójne kody kreskowe")
ShowListWindow( ioLista, "TW" )
NoOutPut()
endif
endif
OnAfterUpdate = 0
EndSub
