Имя: Пароль:
1C
1С v8
Проводки бу и Ну
0 denis_solyanko
 
09.01.15
08:13
после проведения документа в оборотке по счету 1310 не вижу оборотов
вот код проведения :
// регистр ВыдачаТалонов
Движения.Талоны.Записывать = Истина;
Движения.Талоны.Очистить();
Движение = Движения.Талоны.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Для каждого Строка из Талоны Цикл
Движение.Автомобиль = Строка.Автомобиль;
Движение.КоличествоЛитров = Строка.КоличествоЛитров;
Движение.Сумма = Строка.Сумма;
Конеццикла;
//Проводки   БУ
Движения.Типовой.Записывать = Истина;
Движения.Типовой.Очистить();
Для Каждого ТекСтрокаТалоны Из Талоны Цикл
Движение = Движения.Типовой.Добавить();
Движение.СчетДт = ПланыСчетов.Типовой.СебестоимостьРеализованнойПродукцииИОказанныхУслуг;
Движение.СчетКт = ПланыСчетов.Типовой.СырьеИМатериалы;
Движение.Период = Дата;
Движение.Сумма = ТекСтрокаТалоны.Сумма;
Движение.Организация = Организация;
Движение.Содержание = "Выдача талонов";
ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, 1,ТекСтрокаТалоны.ВидТоплива );
ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(Движение.СчетКт, Движение.СубконтоКт, 2,Склад );
Движение.КоличествоКт = ТекСтрокаТалоны.КоличествоЛитров;
СтатьиЗатрат = Константы.СтатьяЗатратДляВыдачиТалонов.Получить();
НоменклатурнаГруппа = Константы.НоменклатурнаяГруппаДляВыдачиТалонов.Получить();
Подразделение = Константы.ПоздразделениеДляВыдачиТалонов.Получить();
ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(Движение.СчетДт, Движение.СубконтоДт, 1,СтатьиЗатрат );    ПроцедурыБухгалтерскогоУчета.УстановитьСубконто(Движение.СчетДт, Движение.СубконтоДт, 2,НоменклатурнаГруппа );
КонецЦикла;
//     Проводки НУ
Движения.Налоговый.Записывать = Истина;
Движения.Налоговый.Очистить();
Для каждого ТекСтрокаТал Из Талоны Цикл
Движение = Движения.Налоговый.Добавить();
Движение.СчетДт = ПланыСчетов.Налоговый.СебестоимостьПроданныхТоваров;
Движение.СчетКт = ПланыСчетов.Налоговый.СырьеИМатериалы;
Движение.Период = Дата;
Движение.Сумма = ТекСтрокаТал.Сумма;
Движение.Организация = Организация;
движение.ВидУчетаДт = Справочники.ВидыУчетаНУ.НУ;
Движение.ВидУчетаКт = Справочники.ВидыУчетаНУ.НУ;
Движение.КоличествоКт = ТекСтрокаТалоны.КоличествоЛитров;
СтатьиЗатрат = Константы.СтатьяЗатратДляВыдачиТалонов.Получить();
НоменклатурнаГруппа = Константы.НоменклатурнаяГруппаДляВыдачиТалонов.Получить();
Подразделение = Константы.ПоздразделениеДляВыдачиТалонов.Получить();
ПроцедурыНалоговогоУчета.ВидУчетаНУПоСтатьеЗатрат(СтатьиЗатрат);
движение.Содержание = "Выдача талонов";
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоТиповые.Номенклатура] = СтатьиЗатрат;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоТиповые.СтатьиЗатрат] = СтатьиЗатрат;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоТиповые.НоменклатурныеГруппы] =НоменклатурнаГруппа;
КонецЦикла;
1 Мимохожий Однако
 
09.01.15
08:17
Информации недостаточно. Убедись, что проводки появились у проведенного документа. А после этого и остальные отчеты смотри.
2 denis_solyanko
 
09.01.15
08:21
3 Мимохожий Однако
 
09.01.15
08:24
карточка счета по этому документу формируется?
4 denis_solyanko
 
09.01.15
08:27
(3) да там все в порядке
5 denis_solyanko
 
09.01.15
08:29
6 Мимохожий Однако
 
09.01.15
08:32
Попробуй сделать пересчет итогов. Возможно, слетели итоги.
7 denis_solyanko
 
09.01.15
08:36
(6) все нашел причину дело было в периоде, еще один вопрос ,если этот товар в таком количестве на складе на счете 1310 на данное время, сделать проверку при проведение, если нету запрет проведения, как сделать проверку на наличие на складе, это нужно запрос по остаткам делать и количество сравнивать с нулем?
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший