| View previous topic :: View next topic |
| Author |
Message |
Титов Александр
Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
|
 Posted: 01 Nov 2007 19:12 Post subject: |
 |
|
| Дениска wrote: | | Behemoth wrote: |
Никак. Это дано нам свыше и нам придётся с этим жить.  |
Понял. Спасибо! Самое главное, что наступила ясность |
Попробуйте
sayscreen("Чего-то",0,0)
consolerefresh()
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
| Back to top |
|
 |
Дениска
Joined: 26 Feb 2002
Posts: 649
|
| Posted: 02 Nov 2007 13:03 Post subject: |
|
|
| Титов Александр wrote: |
sayscreen("Чего-то",0,0)
consolerefresh() |
Не помогает. |
|
| Back to top |
|
|
Титов Александр
Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
|
| Posted: 03 Nov 2007 16:31 Post subject: |
|
|
| Дениска wrote: | | Титов Александр wrote: |
sayscreen("Чего-то",0,0)
consolerefresh() |
Не помогает. |
А у меня без проблем (из сопроцедуры).
Тогда напишите поподробнее: откуда и как вызываете и т.д.
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
| Back to top |
|
|
Дениска
Joined: 26 Feb 2002
Posts: 649
|
| Posted: 04 Nov 2007 08:27 Post subject: |
|
|
| Титов Александр wrote: | | Дениска wrote: | | Титов Александр wrote: |
sayscreen("Чего-то",0,0)
consolerefresh() |
Не помогает. |
А у меня без проблем (из сопроцедуры).
Тогда напишите поподробнее: откуда и как вызываете и т.д. |
Пробовал вызывать из "Книге учета операций" и из выписки. Надпись появляется, а после выполнения InotList исчезает.
| 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
|
|
|
| Back to top |
|
|
Титов Александр
Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
|
| Posted: 05 Nov 2007 15:33 Post subject: |
|
|
| Дениска wrote: | | Титов Александр wrote: | | Дениска wrote: | | Титов Александр wrote: |
sayscreen("Чего-то",0,0)
consolerefresh() |
Не помогает. |
А у меня без проблем (из сопроцедуры).
Тогда напишите поподробнее: откуда и как вызываете и т.д. |
Пробовал вызывать из "Книге учета операций" и из выписки. Надпись появляется, а после выполнения InotList исчезает.
|
Послал в личку pll.bdll попробовать.
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
| Back to top |
|
|
Дениска
Joined: 26 Feb 2002
Posts: 649
|
| Posted: 05 Nov 2007 16:46 Post subject: |
|
|
| Титов Александр wrote: |
Послал в личку pll.bdll попробовать. |
Не помогает. Его надо скопировать только в папку Client\bin?
P.S. Б5 3.3 + СП33 |
|
| Back to top |
|
|
Титов Александр
Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
|
| Posted: 05 Nov 2007 17:02 Post subject: |
|
|
| Дениска wrote: | | Титов Александр wrote: |
Послал в личку pll.bdll попробовать. |
Не помогает. Его надо скопировать только в папку Client\bin?
P.S. Б5 3.3 + СП33 |
Да, в client\bin
Попробуйте сейчас перед InitList написать:
PRIVATE aPars
m->aPars:=ARRAY(100)
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
| Back to top |
|
|
Дениска
Joined: 26 Feb 2002
Posts: 649
|
| Posted: 05 Nov 2007 17:17 Post subject: |
|
|
| Титов Александр wrote: | | Дениска wrote: | | Титов Александр wrote: |
Послал в личку pll.bdll попробовать. |
Не помогает. Его надо скопировать только в папку Client\bin?
P.S. Б5 3.3 + СП33 |
Да, в client\bin
Попробуйте сейчас перед InitList написать:
PRIVATE aPars
m->aPars:=ARRAY(100) |
Так работает. Спасибо!
Еще уточню, что функция у меня не в userlibpro.bdll, а в denis.bdll. Может еще из-за этого проблемы были ... |
|
| Back to top |
|
|
Титов Александр
Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
|
| Posted: 05 Nov 2007 17:23 Post subject: |
|
|
| Дениска wrote: | | Еще уточню, что функция у меня не в userlibpro.bdll, а в denis.bdll. Может еще из-за этого проблемы были ... |
Так надо было с этого начать
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
Powered by phpBB © phpBB Group
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
