Представления форм документов — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→PAC50001) |
||
| Строка 6: | Строка 6: | ||
= PAC50001 = | = PAC50001 = | ||
| + | |||
| + | Блок кода при открытии формы | ||
| + | |||
| + | // После высветки сырья выделяем муку (чтобы видеть ИТОГО по муке) | ||
| + | local muka:={} | ||
| + | // пробегаемся по всему сырью | ||
| + | while !eof() | ||
| + | if 'МУ' $ CATTR1; Aadd(muka,Recno()) ; endif | ||
| + | DbSkip() | ||
| + | end | ||
| + | DbGoTop() | ||
| + | if Len(muka)>1; SetSelRows(muka,true); endif | ||
| + | // пересчитать суммы | ||
| + | CalcTotal() | ||
Версия 16:06, 19 апреля 2016
Справочник R170
Описание справочника "Представления форм документов"
PAC50001
Блок кода при открытии формы
// После высветки сырья выделяем муку (чтобы видеть ИТОГО по муке)
local muka:={}
// пробегаемся по всему сырью
while !eof()
if 'МУ' $ CATTR1; Aadd(muka,Recno()) ; endif
DbSkip()
end
DbGoTop()
if Len(muka)>1; SetSelRows(muka,true); endif
// пересчитать суммы
CalcTotal()
