Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

БухИтоги 1С:Бухгалтерия v7.7

Magnum
читатель
офлайн
Дата регистрации: 17.06.2006
Сообщений: 1
Пост №1
 
17.06.2006 19:20

"Такая вот трабла...<br><br>Следующий фрагмент выдает выручку в таблицу значений.<br>Для 2005 г. все нормально, т.е. выдавались суммы без НДС.<br>В 2006 г. изменился учет, и суммы выдаются с НДС, а надо без.<br>Известно, что если из итога вычесть оборот по счету 90.3 (НДС),<br>то получается нужный итог. Но помимо этого в каждой строке нужно<br>также вычитать счет 90.3.<br>КАК???<br><br>Процедура БухИтоги(ВыбНачПериода, ВыбКонПериода);<br>Ит = СоздатьОбъект("БухгалтерскиеИтоги");<br>Тз = СоздатьОбъект("ТаблицаЗначений");<br>Тз.НоваяКолонка("Заказ","Справочник.Заказы");<br>Тз.НоваяКолонка("ВН","Справочник.ВидыНоменклатуры");<br>Тз.НоваяКолонка("Контр","Справочник.Контрагенты");<br>Тз.НоваяКолонка("Выр","Число"); //выручка с НДС (в 2006 г.)<br>Тз.НоваяКолонка("НДС","Число"); Сумма НДС (добавлено для 2006 г.)<br>Тз.НоваяКолонка("БезНДС","Число"); Сумма без НДС (добавлено для 2006 г.)<br>Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,, 1);<br>Ит.ИспользоватьСубконто(ВидыСубконто.Заказы,, 1);<br>Ит.ИспользоватьКорСубконто(ВидыСубконто.Контрагенты,, 1);<br>Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода,<br> "90.1.1","62.1,62.11",, 2,, "С");<br><br>Ит.ВыбратьСубконто(ВидыСубконто.Заказы);<br>Пока Ит.ПолучитьСубконто(ВидыСубконто.Заказы) = 1 Цикл<br> Ит.ВыбратьСубконто(ВидыСубконто.ВидыНоменклатуры);<br> Пока Ит.ПолучитьСубконто(ВидыСубконто.ВидыНоменклатуры) = 1 Цикл<br> Ит.ВыбратьКорСубконто(ВидыСубконто.Контрагенты);<br> Пока Ит.ПолучитьКорСубконто(ВидыСубконто.Контрагенты) = 1 Цикл<br>      Если Ит.КорКО() <> 0 Тогда<br>            Тз.НоваяСтрока();<br>            Тз.Контр = Ит.КорСубконто(ВидыСубконто.Контрагенты);<br>            Тз.Заказ = Ит.Субконто(ВидыСубконто.Заказы);<br>            Тз.ВН = Ит.Субконто(ВидыСубконто.ВидыНоменклатуры);<br>            ТЗ.Выр = Ит.КорКО(); //Выручка с НДС<br>//       ТЗ.НДС = ????<br>//       ТЗ.БезНДС= ????<br>//здесь нужно вычислять сумму НДС, или сумму без НДС (используя счет 90.3)<br>//или, возможно, после заполнения Тз перебрать ее строки, и как-то<br>//вычислить эти значения?...<br>      КонецЕсли; //есть оборот<br> КонецЦикла; //по контрагентам<br> КонецЦикла; //по номенклатуре<br>КонецЦикла;       //по заказам<br>КонецПроцедуры"

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация