Галактика в вопросах и ответах

Уважаемый, обнулите в межрасчтеном начислении поле "Выплачено (аванс)" [Shift + Del вроде]
а потом, кому надо, поставьте сумму к выплате. остальные получат сумму вместе с ЗП

!!!!!!!!!!! Закомментарено условие по датам
interface Nach_Or '' escclose;
file f_txt;
var d1:date
nrec_pers, tmp_nrec_pers, ttt: comp;
_mvz, _stroka, kompan, _kau, _bklass, _sschet: string;
Table Struct tab_mvz
(
schet : string,
subschet : string,
KAU : string,
MVZ : string,
BKLASS : string,
SUMMA ...

.........
mm,yy)>>=appointments.appointdate
and (date(1,mm,yy)<=appointments.dismissdate or date(0,0,0)=appointments.dismissdate)
*/ ))
Этой строки быть не должно: and '+'=klvidopl.vhv
она и рубит. Проще проверять
внутри sumvidop, как я и писал.

А так, не исключено что всю выборку колбасить ...

29090 около одной минуты.
Так что давайте ваш исходник /в обязательном порядке/, будем глядеть

НЕ поленитесь выложите весь исходник еще раз , с моими вставками

попробуйте воспользоваться моей логической таблицей и моим обходом без изменений. У меня по sumvidop 2315 запсией достаточно быстро пролетает

lschet.tabn /== sumvidop.tabn

НЕ надо делать этого. В самой Галактике такая конструкция запрещена. Она- то уж точно угробит выборку

Весь исходник покажите. У меня 2000 записей, начинает работать сразу

Сколько записей в lschet?

Вот кусок, который должен ускорить вашу работу
не очень хочется разбираться в деталях вашей задачи :
......
create view var
dd : word;
mm : word;
yy : word;
as select
*
from
SUMVIDOP
,APPOINTMENTS
,EXCLASSSEG
,CATALOGS
,SPKAU
where
((
lschet.cex == sumvidop.cex
and lschet.tabn == sumvidop ...

.FORM myForm
.ard
.create view v1
as select tperson, cschetd, csubschd, spkau.name, summa
from sumvidop svo
where
((
svo.vidopl==klvidopl.vidopl
and svo.ckaud[1]==spkau.nrec
and 2005 ==yearn
and 9==mesn
))
and
(
'+'=klvidopl.vhv
)
order external by tabn
;
.FIELDS
v1.svo.tabn
.ENDFIELDS

.{ table ...

Нет, нельзя. Потому как закладки - это фактически разные окна

Select
catalogs.name
,sumvidop.summa
where
((
mm == sumvidop.mesn
and yyyy == sumvidop.yearn
and 11 == ExtCatLinks.ObjType
and 1 == ExtCatLinks.ModType
and sumvidop.cex == ExtCatLinks.ExtCat
and ExtCatLinks.StaffCat == Catalogs.nrec
))
order by catalogs.name
;
Но это при условии , что у вас ...

сорри, ОЧЕПЯТКА ))

_Loop catalogS
if foundmarker(m_podr,catalogs.nrec)
message(catalogs.name)

а вообще-то более правильно от маркера идти меньше данных перелапатите

Довольно странная конструкция

if (getfirst catalogs where searchmarker(m_podr,catalogs.nrec,i_pick) ) = tsOK then
do message(catalogs.name)
while (getnext catalogs where searchmarker(m_podr,catalogs.nrec,i_pick) ) = tsOK;
тем паче i_pick нигде не меняется

_Loop catalog
if foundmarker(m_podr ...