| View previous topic :: View next topic |
| Author |
Message |
ewgen
Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым
|
 Posted: 15 Nov 2004 16:27 Post subject: Как установить "скоб" |
 |
|
Пользуюсь
dbpush("arc_acc","arc_acc","arc_acc->tnum=apars[3].and.arc_acc->inout='ТР'.and.arc_acc->cperiod>=apars[1].and.arc_acc->cperiod<=apars[2]",{}) но работает долго. Как я понял будет быстрее если установить "скоб". Как его правильно написа |
|
| Back to top |
|
 |
wildstorm
Joined: 31 Jan 2003
Posts: 45
|
| Posted: 15 Nov 2004 16:35 Post subject: |
|
|
На фоксе  |
|
| Back to top |
|
|
SLS
Joined: 30 Aug 2004
Posts: 22
Location: Свешников Л.С.
Occupation: контора
Interests: Астрахань
|
| Posted: 15 Nov 2004 17:37 Post subject: тема |
|
|
wildstorm? Ты, наверное, Евгений Петросян?
ewgen почитай "Рук-во по программированию БЭСТ", ты найдешь его в исходниках. |
|
| Back to top |
|
|
ewgen
Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым
|
| Posted: 15 Nov 2004 18:12 Post subject: |
|
|
| Quote: | | ewgen почитай "Рук-во по программированию БЭСТ", ты найдешь его в исходниках |
и как этот файл называется???
А вообще почитал Develop.doc и сделал так:
dbpush("arc_acc","arc_acc","",{"tnum+cperiod+inout",apars[3]+apars[1]+"ТР",apars[3]+apars[2]+"ТР"})
apars[1] - начало периода, apars[2] - конец периода
Не работает!!! |
|
| Back to top |
|
|
SLS
Joined: 30 Aug 2004
Posts: 22
Location: Свешников Л.С.
Occupation: контора
Interests: Астрахань
|
| Posted: 15 Nov 2004 18:47 Post subject: тема |
|
|
прости что заставил искать в исходниках 
ты смотришь самое-то...
а уж что и как это не ко мне...  |
|
| Back to top |
|
|
ewgen
Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым
|
| Posted: 16 Nov 2004 07:47 Post subject: |
|
|
И еще. Как сделать вывод строчки только при величине рабочего времени больше нуля. Где поставить условие?
Форма такая:
заголовок
Таб№ ФИО Кол. отраб. часов
ячейки
Таб№ ФИО Fileeval("prg1.txt",{I41,I42,I01})
Текст программы:
| Code: | avars:=afill(array(3),0)
if select("arc_acc")<>0
avars[1]:=0
dbpush("arc_acc","arc_acc","arc_acc->tnum=apars[3].and.arc_acc->inout='ТР'.and.arc_acc->cperiod>=apars[1].and.arc_acc->cperiod<=apars[2]",{})
do while arc_acc->(!eof())
avars[1]:=avars[1]+arc_acc->time
arc_acc->(dbskip())
enddo
dbpop()
avars[1]
endif |
|
|
| Back to top |
|
|
SLS
Joined: 30 Aug 2004
Posts: 22
Location: Свешников Л.С.
Occupation: контора
Interests: Астрахань
|
| Posted: 16 Nov 2004 15:25 Post subject: тема |
|
|
Как ты знаешь, результатом работы FileEval является последний оператор присваивания, поставить вместо avars[1]
| Code: |
IF (рабочее время>0)
твоя_переменная:= avars[1]
ENDIF
|
может сработает  |
|
| Back to top |
|
|
ewgen
Joined: 23 Nov 2002
Posts: 339
Location: Евгений
Occupation: (инженер программист)
Interests: Надым
|
| Posted: 14 Jan 2005 15:09 Post subject: |
|
|
| Разработчики. Если не можете (не хотите) ответить на вопрос, то скажите хотя бы где можно найти ответ. Спасибо. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
