Обсуждение написание модуля на харборе УРОК3

[nordk]

Итак судя по вопросам переходим к созданию
справочников и их применению при вводе.....

Как всегда начнем с обсуждения
1. К какому полю будем цеплять справочник
2. Как его назовем
3. Какую информацию будем отражать на
экране справочника

Хочу особо обратить внимание - наша задача
научиться делать простейшее, постепенно его
усложняя

[mrs_2005]

В предыдущих уроках мы забыли про поле получателя услуг Name_p. Может с него и начнем?

1. Включим в экранную форму поле Name_p
2. Прицепим к нему "Справочник Заказчиков"
3. Будем отражать Код и Наименован

[garik]

Доброго времени суток.Не подскажите в чём ошибка?
Навесил справочник на одиночный Get-объект.Всё работает кроме одного.При вводе в поле вылазит справочник, хотя вводимое значение соответствует информации в справочнике и тип справочника=2.Ниже код:

netuse('uslugi','uslugi')
index on NN to uslugi.cdx

Uslugi->(MakeRefer("S_V","Услуги",2, ;
{"Код","Наименование"},{3,23,7},'n/w,w+/n',{'NN'},{'cVar'},,;
{FieldBlock("NN"),FieldBlock("Nam")},,,,,,,,,,,,,,,,,;
'cFind$UPPER(NN)', ,,,,,,,, ,'',,,,,,,,,,1))

И второй вопрос.Как вернуть второе выбранное значение справочника?В моём случае значение "Наименования"?

[nordk]

[nordk]

[nordk]

Итак делаем справочник

1. Используем для этого базу partner.dbf

Значит в код надо добавить

[mrs_2005]

Экран строится, но при попытке зайти по Enter либо добавить запись по F4 у меня выдает ошибку "Неверный аргумент".

[nordk]

[Сергей В. Чурбанов]

[nordk]

[mrs_2005]

Ура, заработало!

В выражении

[nordk]

[GVA]

Формирую новую запись, выбираю поставщика. Нажимаю Enter вываливаюсь из real с сообщением:
Error base/1002 Алиас не существует: Feval

[nordk]

Если нетрудно - приведите плз код программы - может где что упустил...
Заодно хоть увижу что по результату всех наших разговоров у Вас должно было получит

[GVA]

Function Main()
Local aSet,aSetKey,nTop,nBot,cColHead,aBlockCols,cCurproc ,aRef,aWhen,aValid
Local _aheads, bDel, Napp, aPic, nUnimode
altd()
dbpush()
aSet:=SaveSet()
aSetKey:=SaveSetKey()

NETUSE("WORK",LoadPath()+"\real\work.dbf",,.F.)
NETUSE("_PARTNER",LoadPath()+"\PARTNER.dbf",,.F.)

DISPBOX(2,0,23,79,( Chr( 201 ) + Chr( 205 ) + Chr( 187 ) + Chr( 186 ) + Chr( 188 ) + Chr( 205 ) + Chr( 200 ) + Chr( 186 )+' ' ),"W+/B")
nTop:=3
nBot:=22
cColHead:={" Дата Номер НАИМЕНОВАНИЕ Кол-во Цена Сумма "}

// заголовки колонок
aBlockCols:={{{||field->tek_data},0},;
{{||field->tek_nomer},9},;
{{||LEFT(field->name,16)},16},;
{{||STR(field->kol,5)},33},;
{{||STR(field->cena,12,2)},39},;
{{||STR(field->summa,12,2)},52}}

// запрет удаления
bDel:={||.F.}
cCurProc:={||"2"}

// переменная для ввода записи
_aHeads:={{"Введите дату работ................:","TEK_DATA"},;
{" номер документа...........:","TEK_NOMER"},;
{" наименование работ........:","NAME"},;
{" количество................:","KOL","1","1","0"},;
{" цену......................:","CENA","1","1","0"},;
{" сумму (руб.)..............:","SUMMA"},;
{" наименование контрагента..:","Name_p"}}

// переменная для поля подсчета поля суммы.
aValid:={{||nApp=2}}
aWhen:={,,,,,{||IF(nApp>0,aIn[6]:=aIn[4]*aIn[5],),.T.}}

// определим формат поля суммы
aPic:={,,,,,"99999999.99"}
// Определяем уникальность по индексу (=2)
nUniMode:=2

// Создаем справочник на основе справочника партнеров
_PARTNER->( MAKEREFER("PARTNERS","Справочник поставщиков",2 ;
,{" Код ","Наименование поставщика"," И Н Н "},;
{3,5,16}, "n/w,w+/n",{"SHORTNAME"},{"aIn[7]"},,;
{{||FIELD->CODE},{||FIELD->SHORTNAME},;
{||FIELD->CODE_PR}},,,,,,,,,,,,,,,,,'cFind$UPPER(ShortName)') )

// Создаем массив справочников для InitList
aRef:={,,,,,,"Partners"}

work->(Initlist(nTop,nBot,cColHead,aBlockCols,cCurProc,;
_aHeads,aRef,aPic,aWhen,,;
nUniMode,bDel,,,,))

_PARTNER->( DBCLOSEAREA() )
WORK->( DBCLOSEAREA() )

RestSetKey(aSetKey)
RestSet(aSet)
dbpop()
RETURN NIL