Ktoś mi może napisać czemu ten raport powoduje wysypywanie się HMP 2011.1
Kod:
int sub AppendNotka(string notka,long iddk,string typ)
basent n
basext x
basedk d
n.open()
x.open()
d.open()
d.getrecbyid(iddk)
x.getrecbyid(d.getfield("rodzaj"))
n.getrecbyid(x.getfield("klient"))
string rdnot = n.getfield("opis")
iorec io
io.clear()
io.setfield("id",using "%l",iddk)
io.setfield("notatka",rdnot + " " + notka)
if typ == "DK" then editsp(io)
if typ == "MG" then editmg(io)
n.close()
x.close()
d.close()
endsub
Wywoływane z "Procedury dokumentu sprzedaży"
Kod:
int Sub OnAfterInsert(long lId)
OnAfterInsert = SprawdzOkresNumeracji(lId, BAS_DK)
AppendNotka("Notka z procedury",lId,"DK")
EndSub
