7.7 Сводный счет-фактура в 1С Предприниматель

Тема в разделе "Отчеты и обработки для "1С:Предприятие 7.7"", создана пользователем mrleo1964, 29 окт 2010.

  1. shurikvz
    Offline

    shurikvz Модераторы Команда форума Модератор

    Регистрация:
    1 окт 2009
    Сообщения:
    8.409
    Симпатии:
    316
    Баллы:
    104
    Только что не поленился проверил:
    Док и СчФ - Поля ввода на форме типа Реализация и СчетФактураВыданный соответствено.
    Все работает.
    Код:
    //*******************************************
    Процедура Сформировать() 
    СводныйСчФ = СоздатьОбъект("Документ.СчетФактураВыданный");
    СводныйСчФ.НайтиДокумент(СчФ);
    Док.ВыбратьСтроки();
    Пока Док.ПолучитьСтроку()=1 Цикл
    ТекТовар=Док.Номенклатура;
    ТекЦена=Док.Цена;
    ТекЕдИзм=Док.Номенклатура.ЕдиницаИзмерения;
    ТекСтавкаНДС=Док.СтавкаНДС;
    ТекКоличество=Док.Количество;
    ТекСумма=Док.Сумма;
    ТекСуммаНДС=Док.СуммаНДС;
    ТекСуммаБезНДС=ТекСумма-ТекСуммаНДС;
    ТекВидДеятельности=Док.ВидДеятельности;
    //СводныйСчФ.ВыбратьПоНомеру(Строка(НомерСводногоСчФ), ДатаСводногоСчФ,"СчетФактураВыданный");
    СводныйСчФ.НоваяСтрока();
    СводныйСчФ.НазначитьТип("Наименование","Справочник.Номенклатура");
    СводныйСчФ.Наименование=ТекТовар;
    СводныйСчФ.Единица=ТекЕдИзм;
    СводныйСчФ.Цена=Окр(ТекСуммаБезНДС/ТекКоличество,2);
    СводныйСчФ.Количество=ТекКоличество;
    СводныйСчФ.Сумма=ТекСумма;
    СводныйСчФ.СуммаНДС=ТекСуммаНДС;
    СводныйСчФ.СтавкаНДС=ТекСтавкаНДС;
    СводныйСчФ.СуммаБезНДС=ТекСумма-ТекСуммаНДС;
    СводныйСчФ.ВидДеятельности=ТекВидДеятельности;
    
    СводныйСчФ.Записать();
    КонецЦикла;    
    
    КонецПроцедуры
    
    

Поделиться этой страницей