Имя: Пароль:
1C
1С v8
Перебрать счет в документе (ЗУП, док. отраж.з-п в регл.учете)
0 franchisees
 
11.01.13
21:29
Подскажите, заменить счет на 73.04, не получается.


КОД-------------------------

Процедура КоманднаяПанель1Действие5(Кнопка) //ГСМ
   
   //ДополнительныеНачисления - ТЧ
   //ВидРасчета - Начисление
   //Компенсация за ГСМ - Имя начисление
   //СчетКт - РасчетыСПерсоналомПоОплатеТруда (70) ; 73.04 (не предопределенный)
   Док = ВыбДок.ПолучитьОбъект();
   Для каждого Строка из Док.ДополнительныеНачисления Цикл
       Если строка.ВидРасчета.Наименование = "Компенсация за ГСМ"  Тогда
           Строка.СчетКт.Код = "73.04" ;
       КонецЕсли;
   КонецЦикла;
   Док.Записать();
1 DrShad
 
11.01.13
21:32
Строка.СчетКт.Код = "73.04" ;

гениально!!! пиши нормально
2 Маленький Вопросик
 
11.01.13
21:33
(1) пацан к успеху идет
3 DrShad
 
11.01.13
21:33
(2) ты не далеко впереди него
4 hhhh
 
11.01.13
21:34
(0) так вам код надо у счета заменить?
5 Маленький Вопросик
 
11.01.13
21:34
(3) а ты?
6 franchisees
 
11.01.13
21:36
(4) да,
(1) подскажите пжт
7 DrShad
 
11.01.13
21:37
ну как минимум

Строка.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("73.04")
8 franchisees
 
11.01.13
21:38
Спасибо (7)
9 Маленький Вопросик
 
11.01.13
21:38
(6) а нельзя ли сделать обработку табличной части? или надо массово
10 Маленький Вопросик
 
11.01.13
21:39
(8) а еще лучше делай так:

Строка.СчетКт = ПланыСчетов.Хозрасчетный.НаименованиеСчета7304
11 DrShad
 
11.01.13
21:40
(10) тогда уж

Строка.СчетКт = ПланыСчетов.Хозрасчетный.ИмяСчета7304
12 franchisees
 
11.01.13
21:43
Да я понял, спасибо
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.