ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Формирование товарных отчетов из спецфункции
 
Добрый день.

Подскажите, пожалуйста, можно ди с помощью объекта ScladDocs добавить товарный отчет в Торговом зале?
Ввод параметров с помощью QInput, Ошибка при вызове QInput
 
Добрый день.

Помогите, пожалуйста, разобраться с QInput. При вызове QInput программа выдает ошибку.

Фрагмент текста программы:

private cColHead,aBlock,aInputHeads,aValid,cCurProc,aKeys,aKeyDB
private i,tmpfile,cStr
private dDate,cScladP,cPrizn,cNum,cPart, anPar, aSet,bPost,bPreDisp,bPostGet,aWhen
private cFILEPP,aStru,cPartCode,cena_GP

// --------------------- begin_main -----------------------------------
#include "Inkey.ch"
#include "S_Refer.ch"

altd()
aSet:=SAVESET()
CLEAR SCREEN
DBPUSH()
// Ввод параметров с экрана


// Создать справочник складов
NETUSE("u_sclad",LoadPath()+'sclad\msclad.dbf')
u_sclad->(OrdSetFocus("CODE"))
//определить справочник складов
u_sclad->( MAKEREFER("u_s","Склады",1,{" Код ","Название"},{3,24,16},;
"n/w,w+/n",{"CODE"},{"aIn[2]"},"UPPER(aIn[2])",{{||fIELD->CODE},{||FIELD->SHORTNAME}},;
,,,,,;
,,,,,;
,,,,,;
,'cFind$UPPER(SHORTNAME)'))

// Создать справочник "Признак акта"
NETUSE("u_dim",LoadPath()+'dim_anl.dbf')
DBPUSH("u_dim","CODE_GROUP","",{"UPPER(CODE)",'ПРИЗНАК АКТА'})
NETUSE("u_analit",LoadPath()+'analit_seg.dbf')
DBPUSH("u_analit","TAG_DIM","",{"DIM_ID",u_dim->dim_id})
//определить справочник аналитик
u_analit->( MAKEREFER("u_pr","Признак акта",1,{" Код ","Название"},{3,24,16},;
"n/w,w+/n",{"CODE"},{"aIn[3]"},"UPPER(aIn[3])",{{||left(FIELD->CODE,6)},{||left(FIELD->NAME,30)}},;
,,,,,;
,,,,,;
,,,,,;
,'cFind$UPPER(NAME)'))

// Создать справочник партнеров
NETUSE("u_type",LoadPath()+'type_a.dbf')
DBPUSH("u_type","TAG_NAME","",{"UPPER(NAME)",'ЛПУ'})

NETUSE("u_part",LoadPath()+'partner.dbf')
DBPUSH("u_part","_NAME","",{"TYPE_A",u_type->nnoper})
u_part->( MAKEREFER("u_lpu","От кого",1,{" Код ","Название"},{3,24,16},;
"n/w,w+/n",{"CODE"},{"aIn[5]"},"UPPER(aIn[5])",{{||left(FIELD->CODE,6)},{||left(FIELD->SHORTNAME,50)}},;
,,,,,;
,,,,,;
,,,,,;
,'cFind$UPPER(SHORTNAME)'))

cScladP :=REPLICATE(" ",6)
cPrizn :=REPLICATE(" ",6)
cPart :=REPLICATE(" ",6)
dDate :=Date()
cNum :=REPLICATE(" ",6)


QINPUT(10,15,16,50, ;
{{'Дата ','dDate'}, ;
{'Склад ','cScladP'}, ;
{'Признак акта ','cPrizn'}, ;
{'Номер ','cNum'}, ;
{'От кого ','cPart'} ;
}, ;
1,{,"u_s","u_pr",,"u_lpu"},,;
,,,,,, ;
'RESTOFF')


Ошибка в прикрепленном файле.

Подскажите, что не так. Все переменные PRIVATE и инициализированы. Ошибка выходит даже если убрать справочники, даже если оставить один какой-нибудь параметр. Ошибка появляется в самом конце, ввод параметров происходт, все справочники вызываются, результат выбора из справочника появляется на экране.
Страницы: 1