Светлана Михайловна, с СД понятно, мне же еще нужны и кассеты - книга храниться на 8 кассетах, во второй столбец "наимен" пойдет - 1, а в третий "кол-во" - 8.
Как это правильно рассчитать?

Светлана Михайловна, я вставила предложенный Вами формат подсчета СД, но форма не считает, форма во вложении.
И еще одна загадка в этой форме: если считаются СД, то не считаются П/П. В чем может быть проблема? это абсолютно разные книги
Еще такой вопрос: как в разделе по темам нужно что бы книжка учитывалась во всех столбцах, т.е. она может быть Тифло и СД, Краев и СД, а получается что учитывается только в Тифло или в Краев, в СД не считается

Заранее огромное спасибо

Попробуйте написать так.
if v215^1:'o=' then &uf('+7W1001#'f(rsum((if p(v910) then if '2 4 6 C':v910^a then else v910^1,|1;|n910^1 fi fi))*val((if v215^1:'o=' then v215^a fi)),0,0)),(if val(&uf('Ag1001#1'))<>0 then '5',&uf('+7W1001#'f(val(&uf('Ag1001#1')) -1,0,0))/ else break fi),fi /,

P.S. Прикрепленный файл не смотрите. Его нужно удалить.



Редактировано 2 раз. Последний раз 21.10.2009 07:14 пользователем Дунаевская.

Светлана Михайловна, предложенный Вами формат не считает в стат.формах.
Он для статистики спроса? (А в статистике спроса выборка ведется только по одной из БД, что мне не подходит)

>И еще одна загадка в этой форме: если считаются СД, то не считаются П/П. В чем может быть проблема? это абсолютно разные книги

Я имела ввиду, что предлагаемый мною формат для вывода числа экземпляров CD с учетом 215^a Вы вставите в FORM11.STF в строку
(if p(v40) then if (val(v40^d.6)=val(&uf('Av1000^a#1'))) and (v40^v=&uf('Av1000^b#1')) then &uf('D',v40^g,|,!I=|v40^a|!,if p(v900) then if v900^c:'v' then '1' fi /,if v900^c:'y' and v215^1:'зв. кассеты' then '2' fi/, if v900^c:'y' and v215^1:'зв. кассеты' then '3' fi/, if v900^c:'w' then '4' fi /, if v215^1:'o=' then f(rsum((if p(v910) then if '2 4 6 C':v910^a then else v910^1,|1;|n910^1 fi fi))*val(v215^a),0,0) fi /, if v215^1:'z=' then '6' fi /, if v621.1:'К' or v621.2:'К ' or v621.1:'K' then '7' fi /, if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' then '8' fi/,if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' or v621.1:'К' or v621.2:'К ' or v621.1:'K' then if v215^1:'o=' then '9' fi fi / fi |), fi fi )
Чтобы получилось так (с небольшим изменением)
(if p(v40) then if (val(v40^d.6)=val(&uf('Av1000^a#1'))) and (v40^v=&uf('Av1000^b#1')) then &uf('D',v40^g,|,!I=|v40^a|!,if p(v900) then if v900^c:'v' then '1' fi /,if v900^c:'y' and v215^1:'зв. кассеты' then '2' fi/, if v900^c:'y' and v215^1:'зв. кассеты' then '3' fi/, if v900^c:'w' then '4' fi /, &uf('+7W1001#'f(rsum((if p(v910) then if '2 4 6 C':v910^a then else v910^1,if a(v910^1) then'1;'fi fi fi))*val((if v215^1:'o=' then v215^a fi)),0,0)),(if val(&uf('Ag1001#1'))<>0 then if v215^1:'o=' then '5',&uf('+7W1001#'f(val(&uf('Ag1001#1')) -1,0,0))/ else break fi),fi /, if v215^1:'z=' then '6' fi /, if v621.1:'К' or v621.2:'К ' or v621.1:'K' then '7' fi /, if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' then '8' fi/,if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' or v621.1:'К' or v621.2:'К ' or v621.1:'K' then if v215^1:'o=' then '9' fi fi / fi |), fi fi )/

Огромное спасибо, так считает.
А с кол-вом кассет можно по аналогии сделать, так же?

Да, по аналогии вставьте то же самое для кассет

Светлана Михайловна, вроде заменила необходимые данные для кассет, но подсчет не ведется.Вот что у меня получилось:
&uf('+7W1001#'f(rsum((if p(v910) then if '2 4 6 C':v910^a then else v910^1,if a(v910^1) then'1;' fi fi fi))*val((if v900^c:'y' and v215^1:'зв.' then v215^a fi)),0,0)),(if val(&uf('Ag1001#1'))<>0 then if v900^c:'y' and v215^1:'зв.' then '3',&uf('+7W1001#'f(val(&uf('Ag1001#1')) -1,0,0))/ else break fi),fi
Подскажите, пожалуйста, что не так

Попробуйте так (исправила у себя несколько ошибок)
(if p(v40) then if (val(v40^d.6)=val(&uf('Av1000^a#1'))) and (v40^v=&uf('Av1000^b#1')) then &uf('D',v40^g,|,!I=|v40^a|!,if p(v900) then if v900^c:'v' then '1' fi /,if v900^c:'y' and v215^1:'зв. кассеты' then '2' fi/, if v900^c:'w' then '4' fi /, &uf('+7W1001#'),&uf('+7W1001#'f(rsum((if p(v910) then if '2 4 6 C':v910^a then else v910^1';',if a(v910^1) then'1;'fi fi fi)),0,0)),(if val(&uf('Ag1001#1'))<>0 then if &uf('Av215^1#1'):'o=' then '5' else if &uf('Av215^1#1'):'зв.' then '3',fi fi,&uf('+7W1001#'f(val(&uf('Ag1001#1')) -1,0,0))/ else break,fi) /, if v215^1:'z=' then '6' fi /, if v621.1:'К' or v621.2:'К ' or v621.1:'K' then '7' fi /, if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' then '8' fi/,if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' or v621.1:'К' or v621.2:'К ' or v621.1:'K' then if v215^1:'o=' then '9' fi fi / fi / |), fi fi )/

(( Неправильно считает((
Так то подсчет ведется, но неправильно

Может быть, есть различие в написании 'зв. кассеты', 'зв.'
Прикрепите 2-3 записи в формате TXT или ISO

Проверяла на написание, различий не нашла.
В файле те записи, на которых и проверяла как считает форма

Извините, потерялся кусочек формата
(if p(v40) then if (val(v40^d.6)=val(&uf('Av1000^a#1'))) and (v40^v=&uf('Av1000^b#1')) then &uf('D',v40^g,|,!I=|v40^a|!,if p(v900) then if v900^c:'v' then '1' fi /,if v900^c:'y' and v215^1:'зв. кассеты' then '2' fi/, if v900^c:'w' then '4' fi /, &uf('+7W1001#'),&uf('+7W1001#'f(rsum((if p(v910) then if '2 4 6 C':v910^a then else v910^1';',if a(v910^1) then'1;'fi fi fi))*val(&uf('Av215^a#1')),0,0)),(if val(&uf('Ag1001#1'))<>0 then if &uf('Av215^1#1'):'o=' then '5' else if &uf('Av215^1#1'):'зв.' then '3',fi fi,&uf('+7W1001#'f(val(&uf('Ag1001#1')) -1,0,0))/ else break,fi) /, if v215^1:'z=' then '6' fi /, if v621.1:'К' or v621.2:'К ' or v621.1:'K' then '7' fi /, if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' then '8' fi/,if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' or v621.1:'К' or v621.2:'К ' or v621.1:'K' then if v215^1:'o=' then '9' fi fi / fi / |), fi fi )/

((( Так же считает не правильно((

Покажите результат на присланных ранее записях

За второе число выдано две говорящие книги т.е. ГК наимен - 2, а ГК кол-во должно быть 5, выданы две первые книги из списка присланного Вам

Да, я не учла того, что функция &unifor('D') не возвращает символов кириллического алфавита.
Вам нужно во всех записях глобальной корректурой заменить код "зв. кассета" на "zv=зв. кассета", а в обсуждаемом формате также заменить кириллические коды на латинские.

(if p(v40) then if (val(v40^d.6)=val(&uf('Av1000^a#1'))) and (v40^v=&uf('Av1000^b#1')) then &uf('D',v40^g,|,!I=|v40^a|!,if p(v900) then if v900^c:'v' then '1' fi /,if v900^c:'y' and v215^1:'zv=' then '2' fi/, if v900^c:'w' then '4' fi /, &uf('+7W1001#'),&uf('+7W1001#'f(rsum((if p(v910) then if '2 4 6 C':v910^a then else v910^1';',if a(v910^1) then'1;'fi fi fi))*val(&uf('Av215^a#1')),0,0)),(if val(&uf('Ag1001#1'))<>0 then if &uf('Av215^1#1'):'o=' then '5' else if &uf('Av215^1#1'):'zv=' then '3',fi fi,&uf('+7W1001#'f(val(&uf('Ag1001#1')) -1,0,0))/ else break,fi) /, if v215^1:'z=' then '6' fi /, if v621.1:'К' or v621.2:'К ' or v621.1:'K' then '7' fi /, if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' then '8' fi/,if v621.1:'Т' or v621.2:'Т ' or v621.1:'T' or v621.1:'К' or v621.2:'К ' or v621.1:'K' then if v215^1:'o=' then '9' fi fi / fi / |), fi fi )/

Соответственно нужно ввести латинские коды в 2151.tre, nosnt.mnu и Nosfst.mnu.
Вероятно, это придется сделать централизованно и включить в дистрибутив.

PS. В приведенном формате другие коды я не рассматривала.

(((Провела глобальную корректировку, изменила во всех справочниках,а форма так и не считает. Для проверки провела выдачу тех же книг, результат в прикрепленном файле

Пришлите на dsm@gpntb.ru файлы таблицы, откорректированные записи ЭК и запись читателя, чтобы я могла проверить непосредственно форму, поскольку в GENPFT на модельной записи читателя формат отрабатывает правильно

Окончательно обсуждавшаяся строка выглядит так
(if p(v40) then if (val(v40^d.6)=val(&uf('Av1000^a#1'))) and (v40^v=&uf('Av1000^b#1') or &uf('Av1000^b#1')='') then &uf('D',v40^g,|,!I=|v40^a|!,if p(v900) then if v900^c:'v' then '1' fi /,if v900^c:'y' and v215^1:'zv=' then '2' fi/, if v900^c:'w' then '4' fi /, &uf('+7W1001#'),&uf('+7W1001#'v215^a),(if val(&uf('Ag1001#1'))>0 then if &uf('Av215^1#1'):'o=' then '5' else if &uf('Av215^1#1'):'zv=' then '3'fi fi,&uf('+7W1001#'f(val(&uf('Ag1001#1'))-1,0,0))/ else break,fi) /, if v215^1:'z=' then '6' fi /, if v621.1:'Т' or v621.2:'Т ' or v621.1:'Т' or v621.1:'К' or v621.2:'К ' or v621.1:'K' then if v621.1:'Т' or v621.2:'Т ' or v621.1:'Т' then '7',if v215^1:'o=' then /'9' fi fi/,if v621.1:'К' or v621.2:'К ' or v621.1:'K' then '8',if v215^1:'o=' then /'9' fi fi/),fi fi /|), fi fi)/
Дополнительно необходимо откорректировать и строку для вертикали

Большое спасибо за ответ.
Считает правильно, сумма правильная, ((( вот только выдает все на одно число

Попробуйте заменить файл

Заменила и теперь правильно разносит по датам.
ОГРОМНОЕ Спасибо

предлагается шаблон новой стат.формы для книговыдачи (Form2_1)
"Распределение книговыдач по местам выдач и разделам знаний за определенный период"
Необходимо под себя сформировать соответствующие справочники
rzn_STF.mnu
KV_STF.mnu
и в соответствии с ними откорректировать Excel-шаблон Form2_1.xlt

Добрый день!
Светлана Михайловна, подскажите пожалуйста, возможно ли еще одно наложение условий на Form_11? Т.е. мне нужно чтобы получилась Form-19 - такой же подсчет что и в 11 форме, но еще дополнительное условие для первой половины - "Общественно-политические" if v900^c='20' or v900^2='20' or v900^3='20' or v900^4='20' и для второй - "По естественным наукам, здравохранению, медицине" if v900^c='82' or v900^2='82' or v900^3='82' or v900^4='82'

Заранее огромное спасибо,
С уважением Надежда.

Ни как не хотела цепляться форма

Nadejda_Ch написал(а):
-------------------------------------------------------
> Добрый день!
> Светлана Михайловна, подскажите пожалуйста,
> возможно ли еще одно наложение условий на Form_11?
> Т.е. мне нужно чтобы получилась Form-19 - такой же
> подсчет что и в 11 форме, но еще дополнительное
> условие для первой половины -
> "Общественно-политические" if v900^c='20' or
> v900^2='20' or v900^3='20' or v900^4='20' и для
> второй - "По естественным наукам, здравохранению,
> медицине" if v900^c='82' or v900^2='82' or
> v900^3='82' or v900^4='82'
Вставьте первое условие в &uf('D'), как показано ниже,
... &uf('D',v40^g,|,!I=|v40^a|!,if p(v900) then if s(v900^c' 'v900^2' 'v900^3' 'v900^4):'20' then if v900^c:'v' then '1' fi /,if v900^c:'y' and v215^1:'zv=' then '2' fi/, if v900^c:'w' then '4' fi /, &uf('+7W1001#'),&uf('+7W1001#'v215^a),(if val(&uf('Ag1001#1'))>0 then if &uf('Av215^1#1'):'o=' then '5' else if &uf('Av215^1#1'):'zv=' then '3'fi fi,&uf('+7W1001#'f(val(&uf('Ag1001#1'))-1,0,0))/ else break,fi) /, if v215^1:'z=' then '6' fi /, if v621.1:'Т' or v621.2:'Т ' or v621.1:'Т' or v621.1:'К' or v621.2:'К ' or v621.1:'K' then if v621.1:'Т' or v621.2:'Т ' or v621.1:'Т' then '7',if v215^1:'o=' then /'9' fi fi/,if v621.1:'К' or v621.2:'К ' or v621.1:'K' then '8',if v215^1:'o=' then /'9' fi fi/,fi fi fi/
а затем повторите весь этот фрагмент (после выделенного fi) для второго условия, соответственно изменив номера столбцов.
if p(v900) then if s(v900^c' 'v900^2' 'v900^3' 'v900^4):'82' then ... fi/|), fi fi)/



>
> Заранее огромное спасибо,
> С уважением Надежда.

Большое спасибо за столь быстрый ответ

Я не учла, что столбцы "по темам" выводятся по-старому.
В дополнительные условия включите часть формата до if v621.1:'Т'...

Светлана Михайловна, посмотрите пожалуйста, вроде вставила все правильно, а все равно не считает((((
(if p(v40) then if (val(v40^d.6)=val(&uf('Av1000^a#1'))) and (v40^v=&uf('Av1000^b#1') or &uf('Av1000^b#1')='') then &uf('D',v40^g,|,!I=|v40^a|!,if p(v900) then if s(v900^c' 'v900^2' 'v900^3' 'v900^4):'20' then &uf('+7W1001#'),&uf('+7W1001#'v215^a),(if val(&uf('Ag1001#1'))>0 then if &uf('Av215^1#1'):'o=' then '5' else if &uf('Av215^1#1'):'zv=' then '3'fi fi,&uf('+7W1001#'f(val(&uf('Ag1001#1'))-1,0,0))/ else break,fi) /, if v900^c:'v' then '1' fi /,if v900^c:'y' and v215^1:'zv=' then '2' fi/, if v900^c:'w' then '4' fi /,if v215^1:'z=' then '6' fi /, fi fi /, if p(v900) then if s(v900^c' 'v900^2' 'v900^3' 'v900^4):'82' then &uf('+7W1001#'),&uf('+7W1001#'v215^a),(if val(&uf('Ag1001#1'))>0 then if &uf('Av215^1#1'):'o=' then '11' else if &uf('Av215^1#1'):'zv=' then '9'fi fi,&uf('+7W1001#'f(val(&uf('Ag1001#1'))-1,0,0))/ else break,fi) /, if v900^c:'v' then '7' fi /,if v900^c:'y' and v215^1:'zv=' then '8' fi/, if v900^c:'w' then '10' fi /,if v215^1:'z=' then '12' fi/, fi|), fi fi)/

Может напутала с закрывающими fi