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