Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 14:49

Корректировочный счет-фактура в старом релизе 1с 7.70.310

Автор GovMPE, 30 мая 2012, 10:40

0 Пользователей и 1 гость просматривают эту тему.

GovMPE

Вообщем проблема в следующем: Добавил корр. с-ф из нового релиза в старый, кое-как адаптировал, чтоб работал.  Но никак не могу заставить его брать Ставку НДС из док.основания (счет-фактуры). Все суммы, наименования, все идет кроме СтавкиНДС.
Код:

Процедура ЗаполнитьТабЧастьНаОсн()
   
   Если глЕстьРеквизитШапки("ДокументОснование", ДокОснование.Вид()) = Да Тогда
      
      ДокОсн = ДокОснование.ДокументОснование;
      
      Если ПустоеЗначение(ДокОсн) = 1 Тогда
         Возврат;
      КонецЕсли;   
      
      Если (ДокОсн.Вид() = "ОтчетКомиссионера") или
         (ДокОсн.Вид() = "РасходнаяНакладная") или
         (ДокОсн.Вид() = "РеализацияРозница") Тогда
         
         СуммаВклНДС = 1;   
            
         ДокОсн.ВыбратьСтроки();
         Пока ДокОсн.ПолучитьСтроку()=1 Цикл
            
            НоваяСтрока();
         
            Если ТипЗначенияСтр(ДокОсн.товар) = "Справочник" Тогда      
               НазначитьТип("Наименование", "Справочник." + ДокОсн.Товар.Вид());
                Наименование = ДокОсн.Товар;
            КонецЕсли;
            
            Единица                 = ДокОсн.Единица;
            Коэффициент             = ДокОсн.Коэффициент;
            КоличествоДоИзменения   = ДокОсн.Сумма / ?(ДокОсн.Цена <> 0, ДокОсн.Цена, 1);
            Количество              = ДокОсн.Сумма / ?(ДокОсн.Цена <> 0, ДокОсн.Цена, 1);
            СтавкаНДС             = ДокОсн.СтавкаНДС;
            ЦенаДоИзменения       = ДокОсн.Цена;
            Цена                  = ДокОсн.Цена;
            СуммаНДСДоИзменения    = ДокОсн.НДС;
              СуммаНДС                = ДокОсн.НДС;     //добавил, чтобы меньше править руками.
            СуммаДоИзменения       = ДокОсн.Сумма;
            Сумма                    = ДокОсн.Сумма;
            
            ПересчетТаблЧасти();
            
         КонецЦикла;
      
Идентификаторы в док.оновании на месте, называются как положено, но все равно не берет эту чертову Ставку :angry:. подскажите, куда копать?

Теги:

Похожие темы (1)

Рейтинг@Mail.ru

Поиск