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 |
|
|
|