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

Уважаемый, обнулите в межрасчтеном начислении поле "Выплачено (аванс)" [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.tabn and y...

.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 v1; ...

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

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,catalogs...