Kod:
int Sub OnKhChanged(long lId)
baseall bd
bd.setbase("BM")
bd.setkey("id")
bd.setkeyseg("id", lId)
if bd.getrec(EQ) == 0 then
//message using "%l", bd.getfield("khid")
baseall nt
nt.setbase("NT")
nt.setkey("super")
nt.setkeyseg("typi", 0)
nt.setkeyseg("baza",20)
nt.setkeyseg("super", bd.getfield("khid"))
err = nt.GetRec(EQ)
if err == 0 && nt.getfield("opis") != "" then
notatka1 = nt.getfield("opis")
else
notatka1 = ""
endif
FORM "Notatka", 752, 520
BUTTON "Anuluj", 600, 336, 72, 24,-1
id1 = BUTTON "Zapisz", 516, 336, 72, 24, 3
MEDIT "Notatka kontrahenta", notatka1, 116, 4, 556, 312
rv = Execform oncommand2
if(nt.GetField("typi") == 0 && nt.GetField("baza") == 20 && nt.GetField("super") == bd.getfield("khid")) then
//jest już notatka, więc update
message notatka1
if nt.getfield("opis") != notatka1 then
nt.SetField("opis",notatka1)
message "update"
err = nt.Update()
endif
else //jeszcze nie ma , tworzę
nt.clear()
if notatka1 != "" then
message "new"
nt.SetField("typi",0)
nt.SetField("baza",20)
nt.SetField("super", bd.getfield("khid"))
nt.SetField("opis",notatka1)
err = nt.Insert()
endif
endif
/*
if(!err) then
Message("zmieniłem")
else
Message(using "Błąd nr %d", err)
endif
*/
//message using "%l", nt.getfield("super")
endif
EndSub
int sub onCommand2(Int id, Int msg)
if id == id1 then
save
endif
EndSub
