Потребовалось решить такую задачу: 4-я цена в прайсе должна идти из последней накладной на приход. Самый быстрый вариант это видимо через плагин. Но он не работает, говорит, что не ткрыты таблицы. Подскажите где исправить. Текст плагина ниже:
private code_pr,cena_pr,a_gr1
netuse('mdocm1',loadpath()+"sclad\mdocm.dbf")
DBSELECTAREA("mdocm1")
mdocm1->(dbcreateindex("md1","vid"))
mdocm1->(ordsetfocus("md1"))
netuse('mlabel1',loadpath()+"sclad\mlabel.dbf")
DBSELECTAREA("mlabel1")
mlabel1->(ordsetfocus("tag_code"))
dbselectarea("mdocm1")
F_SETRELATION("mlabel1","UPPER(alltrim(a_grup)+grup+nnum)")
mdocm1->(dbgotop())
mdocm1->(dbseek("1"))
do while (mdocm1->(!eof()).and.mdocm1->vid="1".AND.mdocm->type="1")
cena_pr:=mdocm1->cenaout
a_gr1:=mdocm1->a_grup
mdocm1->(reclock())
mdocm1->a_grup:=code_pr
mdocm1->(f_dbunlock())
if mlabel1->(found())
mlabel1->(reclock())
mlabel1->ocena4:=cena_pr
mlabel1->(f_dbunlock())
endif
dbselectarea("mdocm1")
mdocm1->(reclock())
mdocm1->a_grup:=a_gr1
mdocm1->(f_dbunlock())
mdocm1->(dbskip())
enddo
mdocm1->(dbclosearea())
mlabel1->(dbclosearea())