Оформление экрана в БЭСТ5
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2  :| |:
-> Программирование в БЭСТ-4

#16:  Author: Титов АлександрLocation: Титов Александр Александрович PostPosted: 01 Nov 2007 19:12
    —
Дениска wrote:
Behemoth wrote:

Никак. Это дано нам свыше и нам придётся с этим жить.


Понял. Спасибо! Самое главное, что наступила ясность

Попробуйте
sayscreen("Чего-то",0,0)
consolerefresh()

#17:  Author: Дениска PostPosted: 02 Nov 2007 13:03
    —
Титов Александр wrote:

sayscreen("Чего-то",0,0)
consolerefresh()


Не помогает.

#18:  Author: Титов АлександрLocation: Титов Александр Александрович PostPosted: 03 Nov 2007 16:31
    —
Дениска wrote:
Титов Александр wrote:

sayscreen("Чего-то",0,0)
consolerefresh()


Не помогает.

А у меня без проблем (из сопроцедуры).
Тогда напишите поподробнее: откуда и как вызываете и т.д.

#19:  Author: Дениска PostPosted: 04 Nov 2007 08:27
    —
Титов Александр 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


#20:  Author: Титов АлександрLocation: Титов Александр Александрович PostPosted: 05 Nov 2007 15:33
    —
Дениска wrote:
Титов Александр wrote:
Дениска wrote:
Титов Александр wrote:

sayscreen("Чего-то",0,0)
consolerefresh()


Не помогает.

А у меня без проблем (из сопроцедуры).
Тогда напишите поподробнее: откуда и как вызываете и т.д.


Пробовал вызывать из "Книге учета операций" и из выписки. Надпись появляется, а после выполнения InotList исчезает.


Послал в личку pll.bdll попробовать.

#21:  Author: Дениска PostPosted: 05 Nov 2007 16:46
    —
Титов Александр wrote:

Послал в личку pll.bdll попробовать.


Не помогает. Его надо скопировать только в папку Client\bin?

P.S. Б5 3.3 + СП33

#22:  Author: Титов АлександрLocation: Титов Александр Александрович PostPosted: 05 Nov 2007 17:02
    —
Дениска wrote:
Титов Александр wrote:

Послал в личку pll.bdll попробовать.


Не помогает. Его надо скопировать только в папку Client\bin?

P.S. Б5 3.3 + СП33

Да, в client\bin
Попробуйте сейчас перед InitList написать:
PRIVATE aPars
m->aPars:=ARRAY(100)

#23:  Author: Дениска PostPosted: 05 Nov 2007 17:17
    —
Титов Александр 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. Может еще из-за этого проблемы были ...

#24:  Author: Титов АлександрLocation: Титов Александр Александрович PostPosted: 05 Nov 2007 17:23
    —
Дениска wrote:
Еще уточню, что функция у меня не в userlibpro.bdll, а в denis.bdll. Может еще из-за этого проблемы были ...

Так надо было с этого начать



-> Программирование в БЭСТ-4


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2  :| |:
Page 2 of 2

Powered by phpBB © 2001, 2005 phpBB Group