bavar
Joined: 22 Apr 2002
Posts: 9
Location: Балаев Артем Вячеславович
|
 Posted: 30 Aug 2005 19:43 Post subject: Нужна помощь с FileEval |
 |
|
Описание задачи, контрагенту из справочника партнеров нужно привязать прикрепленного за ним торгового агента, я добавил поле в таблицу PARTNER- код торгового агента (AGENTCODE). В качетсве справочника торговых использую справочник из блока Управление продажами RAGENT. Получилось сделать функцию вызываемую из справочника партнеров по выбору значения из справочника торговых агентов и записывающую значения в нужное поле, но при ее использовании не видно текущее значение привязанного торгового к партнеру. Не подскажите как ее можно модифицировать.
| Code: |
// можно привязать на событие "запись документа" или по Ctrl-F5
// переменные
PRIVATE cAlias
PRIVATE cHead,aBlockCols,aHeads,aSortSeek,cRType,bPostDisp
PRIVATE nRecno,nCnt,nHandle
private cAgentCode
cAgentCode:=partner->agentcode
If SELECT("partner")==0
SayError("Не справочник партнеров")
EXIT()
endif
// сохраняем старую рабочую область
cAlias:=SELECT()
// проверяем открыта ли доп таблица
If SELECT("ragent")==0
dbOpenBases({"RAGENT"})
else
dbSelectArea("ragent")
endif
dbGotop()
cHead:="Заполните данные о менеджере"
aBlockCols:={ FIELDBLOCK("CODE"),FORMULPARSBLOCK("PADR(NAME,60)",{"x"}) }
aHeads:={ "Код","МЕНЕДЖЕР"}
aSortSeek:={ {'- коду ','Введите код','field->CODE','UPPER(CODE+PADL(TRIM(aIn[1]),6))','@K XXXXXX', , ,'CODE'} }
bPostDisp:=FORMULPARSBLOCK("nRecno:=Recno()",{"x"})
cRType:=3
// создаём справочник
MakeRefer("AgentList",cHead,cRType,aHeads,{5,5,12},"n/w,w+/n",{FieldBlock("RAGENT->Code")},{cAgentCode},,aBlockCols,aSortSeek,,,,,,,bPostDisp)
// DoRefer(cAgentCode,"AgentList",.T.)
// ReferGetReader(cAgentCode,"AgentList")
// сохранение если нажат не ESC
If LastKey()<>27
If PARTNER->(RecLock())
dbGoto(nRecno)
PARTNER->AGENTCODE:=field->CODE
PARTNER->(dbUnlock())
else
SayError('Запись невозможна')
endif
endif
// восстанавливаем рабочую область
dbSelectArea(cAlias)
//
|
Насколько я поняли из описания можно справочник вызвыть из при редактировании Get объектов но как это сделать не получае
_________________
С уважением,
Балаев Артем
г. Пенза |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
