Code: |
Tag_nomer: 02
Tag_name: TAG_TASK Index: TASK+DTOS(DATAOPER)+UPPER(NNDOC) |
Code: |
_main->(setscope("TAG_TASK",
"14"+dtos(ctod("01/"+b+"/"+g)), "14"+dtos(EOM(ctod("01/"+b+"/"+g))))) //не работает. |
Code: |
_main->(setscope("02",
"14"+dtos(ctod("01/"+b+"/"+g)), "14"+dtos(EOM(ctod("01/"+b+"/"+g))))) //работает |
ewgen wrote: | ||||
:
В БЭСТ 4+/12/35 работал первый вариант. |
Quote: |
SetScope(cScope,xScope,xScope1,aOrder) – задание ключевого интервального фильтра
· cScope выражение для ключевой фильтрации в виде символьной строки для вычисления (путем макроподстановки) значения ключа при фильтрации. |
Code: |
TASK+DTOS(DATAOPER)+UPPER(NNDOC) |
Code: |
_main->(setscope("TASK",.......) |
Code: |
function main()
private a,b,sum private aSet,aSetKey dbpush() aSet:=SaveSet() aSetKey:=SaveSetKey() NETUSE("_main",LoadPath()+"\main.dbf",,.F.) _main->(ORDSETFOCUS("summa_data")) a:=str(1000,19,3) b:=str(2000,19,3) sum:=0 _main->(SETSCOPE()) _main->(SETSCOPE("summa_data",a,b)) _main->(DBGOTOP()) while (_main->(!EOF())) sum:=sum+_main->summa _main->(DBSKIP()) enddo sayandwait("Сумма по проводкам от 1000 до 2000 составляет_"+str(sum)) _main->(DBCLOSEAREA()) RestSetKey(aSetKey) RestSet(aSet) dbpop() return nil |
Code: |
NETUSE("_iznos",LoadPath()+"\oc\iznos.DBF",,.F.)
_iznos->(ordcreate(LoadPath()+"\oc\_iznos","uoc",UPPER("unioc+dtos(period)"))) _iznos->(dbsetindex(LoadPath()+"\oc\_iznos.cdx")) _iznos->(ORDSETFOCUS("uoc")) _iznos->(setscope(UPPER("uoc"),_coc->unioc+"20010101",_coc->unioc+"20011231")) _iznos->(dbgotop()) s:=0 while _iznos->(!eof()) s:=s+_iznos->summa _iznos->(dbskip()) enddo |
output generated using printer-friendly topic mod. All times are GMT + 4 Hours