Форум

Цитата
Дмитрий Хващевский пишет: {" Наименование контрагента..:","NAME_P"}}

Лучше сделать вот так:
{" Код контрагента...........:","[имя поля]"},
{" Наименование контрагента..:","NAME_P"}}

а в справочнике

Код
{"SHORTNAME"},{"aIn[7]"}

заменить на

Код
{"code","SHORTNAME"},{"aIn[7]","aIn[8]"}

Ну и соответстветствующие исправления связанные с кодом 2 для справочника -
индекс в справочнике указать и строку проверки(поиска) "UPPER([выражение поиска])"

Вот посмотрите сами

сюда

Код
aHeads:={{"Введите код партнера.:","Code"}, ; {"Наименование ........:","NAME"}, ; {"Марка автомобиля.....:","avto"}}

и сюда

Код
aRef:={,,,,,,"Partners"}

Вы наверно хотите справочник вызвать на первом элементе.
А прописали его для седьмого....
необходимо отслеживать соответствие этих двух массивов.
Первый элемент одного соответствует первому элементу второго

Может в предусловии ввода создать массив в котором присвоить ain[i] значения?
Это 9 параметр инитлиста.

P.S. Скачай инструментарий , там в pll функции разработчика, по ним можно набраться опыта, есть примеры.
В справочнике для БЭСТ-4 есть материалы со старого форума которых нет на этом сайте. Все твои ы уже обсуждались и решались уже давно.

В принципе нормально:
bPreGet:={||aIn[1]:=' ',aIn[2]:=' ',aIn[3]:=' '}

При вводе поля не заполнены, но если нужно подкорректировать,
то приходится набирать заново-поля тоже пустые.Немного не удобно.
Может возможно по другому???

Задачка усложнилась.
Итак нужно создать два справочника водителей и автомобилей.
Справочник водителей первичный. (три колонки - номер и наименование партнера и водитель этой организации)--ЭТО все работает нормально

Справочник автомобилей вторичный (пять колонок - номер и наименование партнера (вызываем справочник партнера), далее марка авто, номер путевого листа (по желанию) и основной водитель (вызываем первичный справочник водителей).

Проблема получилась с вторым справочником.
Вот код.
FUNCTION Main()
LOCAL aSet,aSetKey,nTop,nBot,cColHead,aBlockCols,cCurproc,aHeads,bDel,nUniMode,aRef,cFindMacro


aSet:=SAVESET()
aSetKey:=SAVESETKEY()
//открываем справочник авто
NETUSE("AVTO",LOADPATH()+"\sclad\Avto.dbf",,.F.)
//открываем справочник партнеров
NETUSE("_PARTNER",LOADPATH()+"\PARTNER.dbf",,.F.)
//открываем справочник водителей
NETUSE("_VODITEL",LOADPATH()+"\sclad\voditel.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:={"НАИМЕНОВАНИЕ МАРКА и ГОС. НОМЕР АВТОМОБИЛЯ ВОДИТЕЛЬ "}
//
cCurProc:={||"2"}
//Заголовки колонок реестра
aBlockCols:={{{||LEFT(FIELD->NAME,25)},-7}, ;
{{||LEFT(FIELD->marka_gos,26)},19}, ;
{{||LEFT(FIELD->voditel,25)},46}}

aHeads:={{"Введите код партнера...:","Code"}, ;
{"Наименование ..........:","NAME"}, ;
{"Марка и ГОС номер авто.:","marka_gos"}, ;
{"Номер путевого листа...:","plist"}, ;
{"ФИО водителя.......:","voditel"}}

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

_Voditel->( MAKEREFER("VODITEL","Справочник водителей",2 ;
,{" Код ","Наименование партнера"," Водитель"},;
{3,5,16}, "n/w,w+/n",{"voditel"},{"aIn[5]"},,;
{{||FIELD->CODE},{||FIELD->SHORTNAME},;
{||FIELD->Voditel}},,,,,,,,,,,,,,,,,'cFind$UPPER(ShortName)';
,,,,,,,,,,,,,,,,,,,,'NAME') )


//Запрещение удаления в таблице
bDel:={||.T.}
//Проверка уникальности
nUniMode:=2
//Массив передаваемых переменных
aRef:={"Partners",,,,"Voditel"}
//
//bPreGet:={||aIn[1]:=' ',aIn[2]:=' ',aIn[3]:=' X '}
//Коментарий
SHADOWBOX(" F4 - Ввод новой записи F6 - Фильтр F8 - Удаление записи",23,3,23,75,"W/B")

// вызов функции
AVTO->( INITLIST(nTop,nBot,cColHead,aBlockCols,cCurProc,;
aHeads,aRef,,,,;
nUniMode,bDel,,,,;
,,,,,;
,,cFindMacro,,,;
,,,,,))

//Закрываем справочник авто
AVTO->( DBCLOSEAREA() )
//Закрываем справочник партнеров
_Partner->( DBCLOSEAREA() )
//Закрываем справочник водителей
_Voditel->( DBCLOSEAREA() )

RESTSETKEY(aSetKey)
RESTSET(aSet)

RETURN NIL

После добавления.

_Voditel->( MAKEREFER("VODITEL","Справочник водителей",2 ;
,{" Код ","Наименование партнера"," Водитель"},;
{3,5,16}, "n/w,w+/n",{"voditel"},{"aIn[5]"},,;
{{||FIELD->CODE},{||FIELD->SHORTNAME},;
{||FIELD->Voditel}},,,,,,,,,,,,,,,,,'cFind$UPPER(ShortName)';
,,,,,,,,,,,,,,,,,,,,'NAME') )

Выдает ошибка выполнения.
Переменная не существует.

aHeads:={{"Введите код партнера.:","Code"}, ;
{"Наименование ........:","NAME"}, ;
{"ФИО водителя.........:","voditel"}}

Этого достаточно?

Если структура таблицы соответствует именам из aHeads - скажите откуда справочник водиетелей должен найти поле SHORTNAME ?
Вероятно в этом причина - такая переменная(имя поля) в таблице не существует

Да, сделайте правильный индекс, настройте скоп в справочнике и строку поиска.

MakeRefer(;

cRefer, cHead, nTypRefer, cKeyaHeads, aYXN,; // 5

cColor, aSource, aDest, cKeyVal, abFields,; // 10

aSortSeek, aInputHeads, aPict, aWhen, aValid,; // 15

bPost, bPreDisp, bPostDisp, bColor, cKeyValDisp,; // 20

aRef, cHelp0, bCoProc, nRowHelp, nColHelp,; // 25

aGetBlock, cFindMacro, nTag, bScrInit, bScrPost,; // 30

bDispSpr, bYesArray, nTagSeek, aHotKey, aOtherKey,; // 35

bPreGet, bPostGet, bPostRead, bYesReplArray, bYesNoRepl,; // 40

bSayPtica, cHeadPtica, bSayHead, bKeyHead, lEditRefer,; // 45

bYesValue, nOrdSeek, cLeftKey, nPosKey, lHFilter,; // 50

lOnlyF2, aGetOrder, lFilterRefer, lNoInput, bDelInit, ; // 55

bPostDel; X 56

)
Выделил жирным.
По первому смотрите пример в уроках.
По второму - положите в него блок кода с установкой скопа

bYesValue, nOrdSeek, cLeftKey, nPosKey, lHFilter,; // 50

Выделил элементы отвечающие за поиск по первым буквам, тоже было на форуме