Групповые операции. Помогите чайнику

SamS

Пытаюсь создать следующее:

А1=ДАТА0()
А2=ДАТА()

/*Даты при выполнении групповой операции не спрашивает. Со словом ВВОД помедитировал - не вышло...*/

ВВОД(("Введите дату проводок",А3,"Д"))
ВВОД(("Введите процент начислений",А4,"Ч","99"))

/*Здесь все вводится, но я не понимаю, зачем двойные скобки? */

ПОКА (СЧЕТ(Б2,"Введите счет") = 1)
ДОБАВИТЬ(Б1,Б2)
ВСЕ_ПОКА

/*Скопировал из хелпа. Написано, что по CTRL-F10 должно останавливаться - не останавливается */

ЦИКЛ Б1,Б2,Б3
ДОБАВИТЬ(В1,ДТКТ(Б2,70,А1,А2)
ВСЕ_ЦИКЛ

/*Здесь, вроде бы, что-то делает*/

ЦИКЛ В1,В2,В3
П(А3,"РЕЗЕРВ",Б1(В3),"96","Начисление резерва отпускных),В2*А4)
ВСЕ_ЦИКЛ

/*Ругается на непарные скобки.. Где, интересно?*/
_________________
Origin: 2:5049/97.3

Лариса Т. · Posted: 15 Mar 2005 10:56 Post subject:

SamS · Posted: 15 Mar 2005 11:43 Post subject:

Спасибо

Но это я при перепечатке ошибся. В оригинале - кавычки.

По остальным никто не поможет? А
_________________
Origin: 2:5049/97.3

Fan

[quote="SamS"]Пытаюсь создать следующее:

ВВОД(("Введите дату проводок",А3,"Д"))
ВВОД(("Введите процент начислений",А4,"Ч","99"))

/*Здесь все вводится, но я не понимаю, зачем двойные скобки? */

Внутри скобок может быть список:

ВВОД(("Введите дату проводок",А3,"Д"),;
("Введите процент начислений",А4,"Ч","99");
)

SamS · Posted: 15 Mar 2005 17:20 Post subject:

Ау! Ну хоть пальцем ткните, где читать...

И про цикл с ДОБАВИТЬ, скопированный из хелпа - не работет ведь Ctrl-F10. Шо делать-
_________________
Origin: 2:5049/97.3

Fan · Posted: 15 Mar 2005 17:37 Post subject:

Об операторе
П(А3,"РЕЗЕРВ",Б1(В3),"96","Начисление резерва отпускных),В2*А4)
По моему, скобки д.б. квадратными: Б1[D3].

Цитата из хелпа:
"Если в цикле используется оператор ВЫВОД, прерывание может осуществляться только при помощи функции КЛАВИША()."
Может для отладки есть ВЫВОД?

Полный текст программы не помешал бы.....

Elena · Posted: 15 Mar 2005 17:37 Post subject:

Можно получить полный текст групповой операци

SamS · Posted: 15 Mar 2005 18:05 Post subject:

А как его вывести в куда-нибудь?

_________________
Origin: 2:5049/97.3

Fan · Posted: 15 Mar 2005 18:13 Post subject:

Сначала F9, потом F2 для вывода в текстовый файл.

SamS · Posted: 15 Mar 2005 18:53 Post subject:

Ага, сделал

Fan · Posted: 16 Mar 2005 12:23 Post subject:

1. Я бы сделал так:
А1=ДАТА()
А2=ДАТА()
А3=ДАТА()
ВВОД(("Введите дату начала расчета",А1,"Д"),;
("Введите дату конца расчета",А2,"Д"),;
("Введите дату проводок",А3,"Д"),;
("Введите процент начислений",А4,"Ч","99");
)
Если дата конца расчета совпадает с датой проводок, то один оператор можно исключить.
2. Во вложенном списке, как я понимаю, счета затрат вводятся? Этож надо еще и последовательность соблюсти ;( Ошибки оператора возможны...
Список можно задать в начале программы. Абсолютно универсальных программ не бывает :0)
Что касается вложенных циклов, у меня тоже были проблемы... Делаю пока без них.
Нужно ли хранить промежуточные результаты до конца подпрограммы (потом все равно пропадут)? Если НЕТ, то два цикла - лишние.
3. Номер счета это строка символов, а не число. Я бы определил список:
Г1{"70(и еще 8 пробелов, если счет 10 разрядов)","6911(и 6 пробелов)", и т.д.}
4. Перед формированием проводок сумму лучше округлить заранее. Иначе возможны проблемы при закрытии периода в АрмеГБ.

SamS · Posted: 16 Mar 2005 19:58 Post subject:

Спасибо, почти все получилось

Работающий вариант:

Fan · Posted: 16 Mar 2005 21:31 Post subject:

БЭСТ считает до трех знаков после запятой и даже в main.dbf суммы с тремя знаками.
Поскольку в формуле есть деление, лучше округлить насильно :0)

GAL · Posted: 17 Mar 2005 20:03 Post subject:

Fan · Posted: 18 Mar 2005 12:19 Post subject:

GAL писала:
И еще. Я бы не стала "перегружать" конструкции, и вынесла бы вычиление процента от суммы из функции "проводка".

От себя добавлю "масла масляного" в эту рекомендацию:
Округлите это вычисление.

У меня оператор ввела новую проводку в амортизацию ОС. Вылезла копейка в оборотках. Замучился округлять вручную.
Не "подстелишь соломки" - сюда и упадешь :0)