:: Игры Разума
Вычислить план
Baga

Сообщений: 535
Откуда: г. Махачкала
Дата регистрации: 03.06.2006
Здравствуйте!
CREATE CURSOR plan(nMes N(2,0), plgod N(8,2),plmes N(8,2))
APPEND BLANK
REPLACE nMes WITH 1, plgod WITH 1700, plmes WITH plgod/12
APPEND BLANK
REPLACE nMes WITH 6, plgod WITH 1500
С января по май общий годовой план составля 1700.
С июня в связи с кризисом план уменьшили и годовой план стал равен 1500
1.Как мне программно вычислить помесячный план на оставшиеся 7 месяцев?
2.А если годовой план не уменьшился, а увеличился?
3.А если изменений в течении года будет не одно?


------------------
Багавудин Мирзаев
Ratings: 0 negative/0 positive
Re: Вычислить план
rhs72

Сообщений: 1934
Откуда: Алматы - Чарджоу
Дата регистрации: 21.03.2007
1. Получить сумму всех plmes за предсшествующие месяцы.
2. Получить остаток от нового плана Остаток=Новый plgod - сумма plmes
3. plmes на остальные месяцы = Остаток /(12-nMes)

Где то так.


------------------
"Знание того, что считать ответом, равносильно знанию ответа".
Ratings: 0 negative/0 positive
Re: Вычислить план
Baga

Сообщений: 535
Откуда: г. Махачкала
Дата регистрации: 03.06.2006
На самом деле я реализовал так:
PROCEDURE vichisl
PARAMETERS mes1
STORE 0 TO rashod
SELECT plan
GO TOP
SCAN FOR nmes<=m.Mes1
m.Mes=plan.nmes
kdp=plan.plgod
IF m.Mes#1
m.rashod=m.rashod+((predplan-m.rashod)/(12-predmes+1)*(m.mes-predmes))
m.ost=m.kdp-m.rashod
ELSE
m.ost=plan.plgod
ENDIF
predmes=m.Mes
vplan=m.ost/(12-m.Mes+1)
predplan=m.kdp
REPLACE plmes WITH vplan
ENDSCAN
Поверьте:
CREATE CURSOR plan(nMes N(2,0), plgod N(8,2),plmes N(8,2))
APPEND BLANK
REPLACE nMes WITH 1, plgod WITH 1700, plmes WITH plgod/12
APPEND BLANK
REPLACE nMes WITH 6, plgod WITH 1500
vichisl(6)
SELECT plan
BROWSE TITLE 'Уменьшение годового плана в июне'
APPEND BLANK
REPLACE nMes WITH 9, plgod WITH 1200
vichisl(9)
SELECT plan
BROWSE TITLE 'Уменьшение годового плана в сентябре'
APPEND BLANK
REPLACE nMes WITH 10, plgod WITH 2200
vichisl(10)
SELECT plan
BROWSE TITLE 'Увеличение годового плана в октябре'
Но все это мне кажется слишком громоздким.
Особенно если нужно вычислять не по одному полю, а по нескольким.
Нельзя ли что-то поудобней сообразить?


------------------
Багавудин Мирзаев
Ratings: 0 negative/0 positive
Re: Вычислить план
Владимир Максимов

Сообщений: 14095
Откуда: Москва
Дата регистрации: 02.09.2000
План на то и план, что он не вычисляется. Он задается.

Т.е., если с некоторой даты годовой план стал X, то это означает, что месячный план стал X/12. Вне зависимости от того, какой план был до изменения.

Вы же в своих рассуждениях исходите из того, что план это и есть факт. Что, вообще-то, абсурдно.

Предположим, что изначально план был 2000. А в связи с кризисом, со второго полугодия он стал 1000. Означает ли это, что плана на второе полугодие вообще нет? Ведь за первое полугодие план и составил 1000. Чего же дальше работать? Сама логика порочна.

Другой вопрос, каким образом формируется (задается) этот самый новый план. Вот здесь могут учитываться плановые показатели прошедших периодов. Однако именно с точки зрения некоторых рекомендаций, но никак не указаний.
Ratings: 0 negative/0 positive
Re: Вычислить план
Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002
Ага, а если он со второго полугодия стал 500, это значит что на оставшиеся месяцы план будет отрицательным - т.е. нужно будет уничтожить 500 ранее произведенных единиц


------------------
WBR, Igor
Ratings: 0 negative/0 positive
Re: Вычислить план
sphinx
Автор

Сообщений: 31166
Откуда: Каменск-Уральски
Дата регистрации: 22.11.2006
Igor Korolyov
Ага, а если он со второго полугодия стал 500, это значит что на оставшиеся месяцы план будет отрицательным - т.е. нужно будет уничтожить 500 ранее произведенных единиц

"У меня есть отличный план"(с)


------------------
"Veni, vidi, vici!"(с)
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 1 (Гостей: 1)

© 2000-2024 Fox Club 
Яндекс.Метрика