skrypt VBS - coś nie bangla

Witam,

Poniżej kod z vbs, który nie do końca bangla i nie wiem gdzie jest błąd.
Żadnego komunikatu z błędem nie wywala a jednak efekt końcowy nie jest taki jak powinien.
Mianowicie z selecta dostaję liczbę 154 więc finalnie powinno pojawić się okienko z komunikatem z msgbox'a.
Jednak tak się nie dzieje.
Może ktoś pomoże?

Dim  magazyn_id,dokprzychwewn_id



err = PB.GetItemLong("naglowek",1,"dokprzychwewn_id",dokprzychwewn_id)

sSQL = "select w.magazyn_id as magazyn_id from dokprzychwewn w,pp_zlecprod z where w.zlecprod_id=z.zlecprod_id and z.zlecprod_ids = 'GN64' and w.dokprzychwewn_id =" &dokprzychwewn_id

err = PB.SQLSelect( "magazyn", sSQL )
err = PB.GetItemLong("magazyn",1,"magazyn_id", magazyn_id)



if magazyn_id <> 158 then 
	err=MsgBox( "Błędny magazyn. Dla zlecenia z gniazdem GN64 należy wybrać magazyn WGSC" )
	err=PB.SetReturnValue(-1)
else
	err=PB.SetReturnValue(1)
end if

Podejrzewam, że problem może dotyczyć typu danych.

Spróbuj wstawić linijkę która wyświetli Tobie wartość i typ zmiennej magazyn_id

np.:

MsgBox "value: " & magazyn_id & vbTab & "type: " & VarType(magazyn_id)

https://www.w3schools.com/asp/func_vartype.asp

powodzenia

Paweł

Dzięki za pomoc.

Do zapytania sql-owego dodałem isnull i jest git

sSQL = "select IsNull(w.magazyn_id,'') as magazyn_id from dokprzychwewn w,pp_zlecprod z where w.zlecprod_id=z.zlecprod_id and z.zlecprod_ids = 'GN64' and w.dokprzychwewn_id = " &dokprzychwewn_id

Temat do zamknięcia.