Дениска wrote: | ||
Понял. Спасибо! Самое главное, что наступила ясность ![]() |
Титов Александр wrote: |
sayscreen("Чего-то",0,0) consolerefresh() |
Дениска wrote: | ||
Не помогает. |
Титов Александр wrote: | ||||
А у меня без проблем (из сопроцедуры). Тогда напишите поподробнее: откуда и как вызываете и т.д. |
Code: |
FUNCTION Vnesh() Local aSetKey aSetKey:=SaveSetKey() DBPUSH() NETUSE("F_Form_Arc",LOADPATH()+"form_arc.dbf")// F_Form_Arc->(ORDSETFOCUS("Var")) WHILE Init1() ENDDO F_Form_Arc->( DBCLOSEAREA() ) DbPop() RestSetKey(aSetKey) RETURN //Main Function Init1() Local nTop, nBot, cColHead, aBlockCols, cCurproc, bDel, _aSortSeek DISPBOX(1,0,23,79,( CHR( 201 ) + CHR( 205 ) + CHR( 187 ) + CHR( 186 ) + CHR( 188 ) + CHR( 205 ) + CHR( 200 ) + CHR( 186 )+' ' ),; "W+/B") sayscreen("Чего-то",0,0) //Если идти в пошаговом режиме, то в этот момент надпись "Чего-то" появляется consolerefresh() nTop := 2 nBot := 22 cColHead:={" Код Наименование формы отчетности Дата Начало Конец ",; " формы создания периода периода "} aBlockCols:={{{||SubStr(FIELD->code_var,7,4)}, 1},{{||FIELD->name_doc},7},{{||FIELD->Date_Calc},49},{{||FIELD->Period_Sta},59},{{||FIELD->Period_End},69}} cCurProc:={||2} bDel:={||.F.} F_Form_Arc->( INITLIST(nTop,nBot,cColHead,aBlockCols,cCurProc,; ,,,,,; ,,,,,)) Return LASTKEY()!=27//Init1 |
Дениска wrote: | ||||||
Пробовал вызывать из "Книге учета операций" и из выписки. Надпись появляется, а после выполнения InotList исчезает. |
Титов Александр wrote: |
Послал в личку pll.bdll попробовать. |
Дениска wrote: | ||
Не помогает. Его надо скопировать только в папку Client\bin? P.S. Б5 3.3 + СП33 |
Титов Александр wrote: | ||||
Да, в client\bin Попробуйте сейчас перед InitList написать: PRIVATE aPars m->aPars:=ARRAY(100) |
Дениска wrote: |
Еще уточню, что функция у меня не в userlibpro.bdll, а в denis.bdll. Может еще из-за этого проблемы были ... |
output generated using printer-friendly topic mod. All times are GMT + 4 Hours