Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Оформление экрана в БЭСТ5
Goto page Previous  1, 2
 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
PostPosted: 01 Nov 2007 19:12    Post subject: Reply with quote
Дениска wrote:
Behemoth wrote:

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


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

Попробуйте
sayscreen("Чего-то",0,0)
consolerefresh()
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
Back to top
View user's profile Send private message Visit poster's website
Дениска



Joined: 26 Feb 2002
Posts: 649
PostPosted: 02 Nov 2007 13:03    Post subject: Reply with quote
Титов Александр wrote:

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


Не помогает.
Back to top
View user's profile Send private message
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
PostPosted: 03 Nov 2007 16:31    Post subject: Reply with quote
Дениска wrote:
Титов Александр wrote:

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


Не помогает.

А у меня без проблем (из сопроцедуры).
Тогда напишите поподробнее: откуда и как вызываете и т.д.
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
Back to top
View user's profile Send private message Visit poster's website
Дениска



Joined: 26 Feb 2002
Posts: 649
PostPosted: 04 Nov 2007 08:27    Post subject: Reply with quote
Титов Александр 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
View user's profile Send private message
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
PostPosted: 05 Nov 2007 15:33    Post subject: Reply with quote
Дениска wrote:
Титов Александр wrote:
Дениска wrote:
Титов Александр wrote:

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


Не помогает.

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


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


Послал в личку pll.bdll попробовать.
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
Back to top
View user's profile Send private message Visit poster's website
Дениска



Joined: 26 Feb 2002
Posts: 649
PostPosted: 05 Nov 2007 16:46    Post subject: Reply with quote
Титов Александр wrote:

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


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

P.S. Б5 3.3 + СП33
Back to top
View user's profile Send private message
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
PostPosted: 05 Nov 2007 17:02    Post subject: Reply with quote
Дениска wrote:
Титов Александр wrote:

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


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

P.S. Б5 3.3 + СП33

Да, в client\bin
Попробуйте сейчас перед InitList написать:
PRIVATE aPars
m->aPars:=ARRAY(100)
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
Back to top
View user's profile Send private message Visit poster's website
Дениска



Joined: 26 Feb 2002
Posts: 649
PostPosted: 05 Nov 2007 17:17    Post subject: Reply with quote
Титов Александр 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
View user's profile Send private message
Титов Александр



Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
PostPosted: 05 Nov 2007 17:23    Post subject: Reply with quote
Дениска wrote:
Еще уточню, что функция у меня не в userlibpro.bdll, а в denis.bdll. Может еще из-за этого проблемы были ...

Так надо было с этого начать
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
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

Rambler
Rambler's Top100 Рейтинг@Mail.ru