Код проводки 20 - 41.1
21.12.2006
08:59
#1
Здравствуйте! Пожалуйста помогите мне сделать проводку. Мне нужен код процедуры проведения. Дебет (20 счет) - Субконто: Виды номенклатуры, Затраты производства, Подразделения. Кредит (41.1 счет) - Субконто: Номенклатура, Места хранения.
21.12.2006
15:12
#2
"Дык...
Операция.НоваяПроводка();
Операция.Дебет.Счет = СчетПоКоду("20");
Операция.Дебет.Субконто(1,значениепервогосубконто);
Операция.Дебет.Субконто(2,значениевторогосубконто);
Операция.Кредит.Счет = СчетПоКоду("41.1");
Операция.Кредит.Субконто(1,значениепервогосубконто);
Операция.Кредит.Субконто(2,значениевторогосубконто);
Операция.Сумма = Сумма;
Операция.Количество = Количество;
Операция.СодержаниеПроводки = "содержание";
Операция.НомерЖурнала = "номержурнала";
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(ТекущийДокумент());
ну и собственно
Операция.Записать();"
Операция.НоваяПроводка();
Операция.Дебет.Счет = СчетПоКоду("20");
Операция.Дебет.Субконто(1,значениепервогосубконто);
Операция.Дебет.Субконто(2,значениевторогосубконто);
Операция.Кредит.Счет = СчетПоКоду("41.1");
Операция.Кредит.Субконто(1,значениепервогосубконто);
Операция.Кредит.Субконто(2,значениевторогосубконто);
Операция.Сумма = Сумма;
Операция.Количество = Количество;
Операция.СодержаниеПроводки = "содержание";
Операция.НомерЖурнала = "номержурнала";
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(ТекущийДокумент());
ну и собственно
Операция.Записать();"
Читают тему
(гостей: 1)