Nowy raport: blokowanie
Kod:
int sub BlokKor(long lId)
dispatch xdk = xFactory.NewObject("BDokumentSp")
xdk.load(using "id=%l",lId)
if xdk.idKorygowany != 0 && xdk.opis == "" then
message "Znów zapomniałeś o opisie"
BlokKor = -6000
endif
endsub
w procedurach dok sprzedaży na górze:
Kod:
#include "blokowanie"
w procedurze OnBeforeInsert:
Kod:
OnBeforeInsert = BlokKor(lId)