Wątek przeniesiony 2021-01-28 13:23 z Inne języki programowania przez cerrato.

skrypt VBS z błędem

0

Witam,

Mam kod jak poniżej ale podczas wykonywania wywala błąd 'Brak kodu powrotu ze skryptu'. Co jest nie tak?

Sub termin
err=PB.SetReturnValue(1)
err=PB.GetItemLong("naglowek", 1, "doksprzed_id", doksprzed_id)

q=    "select case when ds.warplat_id = w.warplat_id then 1 else 0 end as limit " 
q=q & "from doksprzed as ds"
q=q & " join alokdok as a on ds.doksprzed_id = a.dokpod_id"
q=q & " join zamodb as z on a.doknad_id = z.zamodb_id"
q=q & " join warplatpoz as w on ds.warplat_id = z.warplat_id"
q=q & " where a.typdok_nad = 11 and ds.doksprzed_id =" & doksprzed_id

err = PB.SQLSelect( "pobierz_limit", q )
err = PB.GetItemString("pobierz_limit", 1, "limit", wynik)

if wynik = 0 then
   MesBox = MsgBox ("Termin płatnoći na fakturze i zamówieniu od odbiorcy jest różny. Czy zatwierdzić fakturę?", vbYesNo , "UWAGA")
 if  MesBox = vbYes then
   err=PB.SetReturnValue(-1)
end if
end if

end sub
0

Ale to jest samodzielny skrypt, czy część czegoś większego? I jak jest uruchamiany?
Bo w tej postaci ma sporo błędów - np. nie wiadomo, co to jest PB. Poza tym to jest tylko procedura - brak kodu uruchamiającego ją. I chyba o tym mówi komunikat błędu.

0

Wygląda na skrypt na dokumentach sprzedaży Simple.ERP :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1