Jey
Joined: 29 Oct 2003
Posts: 34
Interests: Кемерово
|
 Posted: 30 Sep 2004 13:35 Post subject: Дополнительные поля |
 |
|
Помогите человеку далекому от clipper...
Используется плагин по добавлению доп. полей в справочник партнеров. Прг-шка переделывается на добавление другого состава полей. Однако если после вызова спецфункций из арма гб, нажимается esc, все ранее внесенное содержимое полей стирается, даже если это просто редактирование, а не первичный ввод данных.
ВОТ ТАК ВЫГЛЯДИТ ПРГ-шка. Где ошибка ?
----------------------------------------------------------------------
private LICENSE1,LICENSE2,LICENSE3,ORGLIC1,RAZRESH,OTSR1,OTSR2,OTSR3,OTSR4,DOPPRIM
LICENSE1:=partner->LICENSE1
LICENSE2:=partner->LICENSE2
LICENSE3:=partner->LICENSE3
ORGLIC1:=partner->ORGLIC1
RAZRESH:=partner->RAZRESH
OTSR1:=partner->OTSR1
OTSR2:=partner->OTSR2
OTSR3:=partner->OTSR3
OTSR4:=partner->OTSR4
DOPPRIM:=partner->DOPPRIM
//dat1_sum:=mdoc->dat1
//dat2_sum:=mdoc->dat2
aglobvars[11]:={'Лицензия 1(номер,сроки):','Лицензия 2(номер,сроки):','Лицензия 3(номер,сроки):','Кем выдана:','Разрешение
на поставку:','Отсрочка (ВОДКА):','Отсрочка (ВИНО) :','Отсрочка (ПИВО) :','Отсрочка (ПРОЧЕЕ):','Примечание:'}
aglobvars[12]:={'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX','XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX','XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX','XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX','XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX','9999.9','9999.9','9999.9','9999.9','XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'}
aglobvars[13]:={LICENSE1,LICENSE2,LICENSE3,ORGLIC1,RAZRESH,OTSR1,OTSR2,OTSR3,OTSR4,DOPPRIM}
aglobvars[14]:=dialog(aglobvars[11],aglobvars[12],aglobvars[13],'Контрагент: '+partner->shortname)
if (partner->LICENSE1!=aglobvars[14][1].or.partner->LICENSE2!=aglobvars[14][2].or.partner->LICENSE3!=aglobvars[14][3].or.partner->ORGLIC1!=aglobvars[14][4].or.partner->RAZRESH!=aglobvars[14][5].or.partner->OTSR1!=aglobvars[14][6].or.partner->OTSR2!=aglobvars[14][7].or.partner->OTSR3!=aglobvars[14][8].or.partner->OTSR4!=aglobvars[14][9].or.partner->DOPPRIM!=aglobvars[14][10].and.lastkey()!=27)
partner->(RECLOCK())
//partner->(AX_rlock())
partner->LICENSE1:=aglobvars[14][1]
partner->LICENSE2:=aglobvars[14][2]
partner->LICENSE3:=aglobvars[14][3]
partner->ORGLIC1:=aglobvars[14][4]
partner->RAZRESH:=aglobvars[14][5]
partner->OTSR1:=aglobvars[14][6]
partner->OTSR2:=aglobvars[14][7]
partner->OTSR3:=aglobvars[14][8]
partner->OTSR4:=aglobvars[14][9]
partner->DOPPRIM:=aglobvars[14][10]
partner->(F_DBUNLOCK())
//partner->(AX_Unlock())
//sayandwait(str(aglobvars[14][1]))
endif
------------------------------------------------------------------ |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
