Добрый день.
Помогите, пожалуйста, разобраться с 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 и инициализированы. Ошибка выходит даже если убрать справочники, даже если оставить один какой-нибудь параметр. Ошибка появляется в самом конце, ввод параметров происходт, все справочники вызываются, результат выбора из справочника появляется на экране.
Помогите, пожалуйста, разобраться с 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 и инициализированы. Ошибка выходит даже если убрать справочники, даже если оставить один какой-нибудь параметр. Ошибка появляется в самом конце, ввод параметров происходт, все справочники вызываются, результат выбора из справочника появляется на экране.