Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-28, 23:40x



Odpowiedz w temacie  [ Posty: 2 ] 
Wykrywanie podwójnych kodów kreskowych danego towaru 
Autor Wiadomość

Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post Wykrywanie podwójnych kodów kreskowych danego towaru
taki raporcik w Procedurach towaru na wykrywanie podówjnych kodów kreskowych danego towaru podczas edycji lub dodawania nowego towaru, spróbujecie poprawić jakość kodu ?

Kod:
int Sub OnAfterUpdate(long lId)
   baseTW tw
int errTW

ioRec ioLista

tw.SetKey("id")
tw.SetKeySeg("id", 0)

errTw = tw.GetRec( GE )

tw.GetRecById( lId )
string kp = tw.GetField("kodpaskowy")
string a = ""
while !errTw
   if tw.GetField("kodpaskowy") != "" then
   if tw.GetField("kodpaskowy") == kp then ioLista.SetField("id",(using "%l", tw.GetField("id")))
   a += ""+"a"
   endif
   errTw = tw.GetRec( NX )
   
wend
if kp != "" then

if a != "" then
message("Uwaga podwójne kody kreskowe")
ShowListWindow( ioLista, "TW" )
NoOutPut()
endif
endif

   OnAfterUpdate = 0
EndSub


2021-01-21, 19:14
Wyświetl profil
Autor Wiadomość
 



Rejestracja: 2010-11-25, 09:46
Posty: 438
Pomógł: 7
Post 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


2021-01-25, 09:33
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 2 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Dwa lub więcej kodów kreskowych dla jednego towaru

w Programy Handlowe

slavo_s2k

0

2697

2016-08-10, 22:44

slavo_s2k Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. drukowanie kodów kreskowych

w Programy Księgowe

monika

5

4620

2009-09-08, 17:09

monika Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. czytniki kodów kreskowych

w Ogólne

zuzia12

4

8635

2019-02-04, 09:37

jo.anna Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Drukarka kodów kreskowych

w Techniczne

pawciu28

3

4053

2009-01-19, 18:08

gregor Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 5 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant