Имя: Пароль:
1C
1С v8
Нужна обработка или помощь в исправлении ошибки
0 Evgen54
 
24.04.12
08:38
Мне надо заменить 2-ое субконто с 1 значения на другое в закрытии месяца причем выборочные проводки по условию. Сделать надо разово. Написал условие но, что то в нем не так  не выполняется условие. Подскажите что поменять или обработка может у кого есть.
1 Мимохожий Однако
 
24.04.12
08:38
На ИТС универсальная обработка подбора объектов
2 Нуф-Нуф
 
24.04.12
08:39
поменяй прокладку между креслом и клавиатурой
3 tertva_1C
 
24.04.12
08:39
на диске ИТС есть обработка поиск и замена значений, как раз для таких случаев
4 MRAK
 
24.04.12
08:40
(1), (2) не в тему
5 MRAK
 
24.04.12
08:41
то есть (1) (3) не в тему
6 Мимохожий Однако
 
24.04.12
08:42
(5)Бездоказательное утверждение.)))
7 Evgen54
 
24.04.12
08:43
Если НЕ ЗначениеЗаполнено(СтрокаЗатрат.Сумма) И НЕ ЗначениеЗаполнено(СтрокаЗатрат.Количество) Тогда
               Продолжить;
           КонецЕсли;
           
           Проводка = Проводки.Добавить();

           Проводка.Период       = ДатаРасчета;
           Проводка.Содержание   = ?(НЕ ЗначениеЗаполнено(ТекстПроводки), "Погашение стоимости", ТекстПроводки);
           Проводка.НомерЖурнала = НомерЖурнала;
           Проводка.Организация  = СтруктураШапкиДокумента.Организация;
           Проводка.Сумма        = СтрокаЗатрат.Сумма;

           Проводка.СчетДт = СтрокаЗатрат.СчетЗатрат;
           БухгалтерскийУчет.УстановитьСубконто(СтрокаЗатрат.СчетЗатрат, Проводка.СубконтоДт, 1, СтрокаЗатрат.Субконто1);
           БухгалтерскийУчет.УстановитьСубконто(СтрокаЗатрат.СчетЗатрат, Проводка.СубконтоДт, 2, СтрокаЗатрат.Субконто2);
           Если СтрокаЗатрат.СчетЗатрат = "20.01" и СтрокаНапр.Субконто2 = "1301 Масловское месторождение-2011" Тогда
               БухгалтерскийУчет.УстановитьСубконто(СтрокаЗатрат.СчетЗатрат, Проводка.СубконтоДт, 2, СтрокаЗатрат.Установить("1301/12 Масловские объекты-2012-12"));
           Иначе
               БухгалтерскийУчет.УстановитьСубконто(СтрокаЗатрат.СчетЗатрат, Проводка.СубконтоДт, 2, СтрокаЗатрат.Субконто2);
           КонецЕсли;
               
           БухгалтерскийУчет.УстановитьСубконто(СтрокаЗатрат.СчетЗатрат, Проводка.СубконтоДт, 3, СтрокаЗатрат.Субконто3);
           
           Проводка.СчетКт = СтрокаЗатрат.СчетАмортизации;
           БухгалтерскийУчет.УстановитьСубконто(СтрокаЗатрат.СчетАмортизации, Проводка.СубконтоКт, 1, СтрокаЗатрат.ОбъектУчета);
           БухгалтерскийУчет.УстановитьСубконто(СтрокаЗатрат.СчетАмортизации, Проводка.СубконтоКт, 2, СтрокаЗатрат.ДокументПередачи);
           БухгалтерскийУчет.УстановитьСубконто(СтрокаЗатрат.СчетАмортизации, Проводка.СубконтоКт, 3, СтрокаЗатрат.ПодразделениеФизЛицо);
           Проводка.КоличествоКт = СтрокаЗатрат.Количество;

       КонецЦикла;

На ИТС смотрел обработки. Они не подходят. Они меняют все проводки по документу а не выборочно
8 Evgen54
 
24.04.12
08:45
Нуф-Нуф спасибо за совет.
9 IamAlexy
 
24.04.12
08:46
(7) ну тогда остается только одно

потратить 30 минут драгоценного времени и самому написать эту обработку
10 Мимохожий Однако
 
24.04.12
08:49
Как вариант через документ Бухгалтерская справка собрать неправильные проводки, просторнировать и добавить в том же документе правильные.
11 tertva_1C
 
24.04.12
08:49
а условие отбора в обработках поставить ни как да ?????
12 Мимохожий Однако
 
24.04.12
08:49
+(10) т.е не через документ, а в документе
13 Мимохожий Однако
 
24.04.12
08:51
По большому счету в Бухгалтерии есть регистр сведений для указания нужного счета по отдельно взятой номенклатуре. И надо делать ходули в виде обработок и замен.
14 Evgen54
 
24.04.12
08:52
tertva_1C поставил посмотри код. Но я что то неправильно написал.
15 Evgen54
 
24.04.12
08:55
МимохожийОднако: если бы это было 20-50 записей, а если их 5-7 тысч?
16 Starhan
 
24.04.12
08:56
Если это БП 2.0. поставить галочку ручные проводки и поставить руками все что нужно.
17 Evgen54
 
24.04.12
09:00
Это БП 1.6 и ручные проводки сделать ну просто невозможно будет.
18 Мимохожий Однако
 
24.04.12
09:01
(15)Проводки надо собирать программно, а не руками.
Посмотри на совет в (13)
19 tertva_1C
 
24.04.12
09:01
(14) тогда забей скажи бухам пусть сами исправляют, там кода дописать мин на 40....
Закон Брукера: Даже маленькая практика стоит большой теории.