Форум программистов, компьютерный форум, киберфорум
1С: Типовые и стандартные решения
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 24.07.2017
Сообщений: 1
1C 7.x

Кореектировать печатную форму ТТНки для значения "Без НДС"

24.07.2017, 16:39. Показов 1190. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите как в печатную форму при снятии галочки вывести текст "Без НДС"
Ибо я тут чтото наделал, что теперь при снятии галочки "с НДС" (после данного выбора выводило "Без НДС" на печатную форму ТТНки) сейчас выводит сумму НДС, а при активации "с НДС" остается пустое поле
Вот Функции связанные с НДС

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
//************************************************************
Функция ИзмЦенаСНДС()      
    СуммаСНДС=ЦенаСНДС*Кво;
КонецФункции
 
//************************************************************
Функция ИзмСуммаСНДС()  
    Попытка      
        ЦенаСНДС=СуммаСНДС/Кво;
    Исключение
        ЦенаСНДС=0;
    КонецПопытки;     
КонецФункции
 
//************************************************************
Процедура ПечатьТТН(КАК=1) 
    
    ДатаТТН='14.01.2014';
    НПП=0;
    
    Табл=СоздатьОбъект("Таблица");
    Если ДатаДок<ДатаТТН Тогда
        Табл.ИсходнаяТаблица("ТТН");  
    Иначе  
        Табл.ИсходнаяТаблица("ТТН_2014");  
    КонецЕсли; 
    
    
    Табл.Опции(0,0);
    Табл.ПараметрыСтраницы(2,,,,,,,,,1);
    Табл.КоличествоЭкземпляров(Экз); 
    Табл.ЭкземпляровНаСтранице(1);
    
    Табл.ТолькоПросмотр(0);
    глУстПропись(Валюта,"у"); 
    
    пСуммаСНДС=?(СуммаСНДС=0,"",Формат(Итог("СуммаСНДС"),"ЧПДС"));   
    
    Табл.ВывестиСекцию("Заголовок");
    Табл.ВывестиСекцию("ШапкаТабл");
    
    Если Полная=1 Тогда
        Строк  =КоличествоСтрок();
        
        Осталось=Строк;
        НаЛисте  =На1Листе;
        цН=1;
        
        //Если Осталось <= НаЛисте Тогда
            Для цН=1 по Строк Цикл 
                ПолучитьСтрокуПоНомеру(цН);   
                //БруттоСтрока=(КвоКГ+ВесТары)/1000; 
                БруттоСтрока=0;   
                НПП=НПП+1;
                Табл.ВывестиСекцию("Строка");
            КонецЦикла;   
            
            Если ПустоеЗначение(Поддон)=0 Тогда  
                //БруттоСтрока=(КвоКГ+ВесТары)/1000; 
                БруттоСтрока=0;
                Табл.ВывестиСекцию("СтрокаПД");   
            КонецЕсли;   
            
            Если рВесБрутто=0 Тогда  
                БруттоСтрока=(Итог("КвоКГ")+Итог("ВесТары")+ВесПоддон)/1000;
            Иначе  
                БруттоСтрока=рВесБрутто;
            КонецЕсли; 
            
            Табл.ВывестиСекцию("Всего");
            Табл.ВывестиСекцию("Дно");  
        //Иначе
        //КонецЕсли;  
    Иначе
        Штук=0;
        тТМЦ="";
        ВыбратьСтроки();
        Пока ПолучитьСтроку()=1 Цикл
            Если ТМЦ.ВидТМЦ<>Перечисление.ВидыТМЦ.Тара Тогда
                Если Штук=0 Тогда
                    тТМЦ=ТМЦ;
                КонецЕсли;
                Штук=Штук+1;
            КонецЕсли; 
        КонецЦикла;   
        
        Если Штук=0 Тогда
        ИначеЕсли Штук=1 Тогда
        Иначе  
            тТМЦ=Константа.БазМикс;
        КонецЕсли; 
        
        НПП=НПП+1;
        оТекст="Згідно з видатковой накладной №"+СокрЛП(ДокХозяин.НомерДок)+" від "+ДокХозяин.ДатаДок;
        Табл.ВывестиСекцию("Строка0"); 
        Для ц=1 по 5 Цикл 
            Табл.ВывестиСекцию("СтрокаПусто"); 
        КонецЦикла;    
        
        Если рВесБрутто=0 Тогда  
            БруттоСтрока=(Итог("КвоКГ")+Итог("ВесТары")+ВесПоддон)/1000;
        Иначе  
            БруттоСтрока=рВесБрутто;
        КонецЕсли; 
        
        Табл.ВывестиСекцию("Всего0");
        Табл.ВывестиСекцию("Дно");  
        
    КонецЕсли; 
 
 
    Если КАК=1 Тогда
        Табл.Показать("ТТН"); 
    Иначе
    КонецЕсли;  
    
    глУстПропись(Гривня,"у"); 
КонецПроцедуры
Миниатюры
Кореектировать печатную форму ТТНки для значения "Без НДС"  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.07.2017, 16:39
Ответы с готовыми решениями:

Не подставляются значения в печатную форму
Здравствуйте. Я новичок в вопросах 1С программирования. Возникла такая вот проблема. Создал внешнюю печатную форму, в которой содержится...

Дана цена товара в долларах с НДС; посчитать эту цену в рублях без НДС
Добра вам, уважаемые господа-программисты и не только:gsmile:! Пытаюсь решить задачку на денежные единицы, и тут я поняла, что мне не быть...

SEO-фирма с НДС или без НДС?
Приветствую! Возникла трудность. Насколько я знаю в случае работы без НДС многим фирмам получается не выгодно (если они платят НДС, не...

1
Эксперт 1С
2202 / 248 / 74
Регистрация: 12.11.2015
Сообщений: 1,540
27.07.2017, 16:54
Где вы взяли функцию в таблице: фСуммаНДС? Глобальная?
А вообще в ячейку, где вам нужно выводить поставить НужноВывести:
1C
1
2
3
4
5
Если СНДС = 1 Тогда //если флажок стоит
 НужноВывести=Итог("СуммаСНДС"); //Ваша переменная в ячейке = сумма с ндс
иначе
 НужноВывести="Без НДС";
КонецЕсли;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.07.2017, 16:54
Помогаю со студенческими работами здесь

В чеке ставка НДС 0% в нежно чтобы в чеке писал БЕЗ НДС
Здравствуйте все!!! Конфигурация &quot;Управление торговлей&quot;, редакция 10.3 (10.3.40.1) касса штрих онлайн В чеке ставка НДС 0% в...

Как подключить внешнюю печатную форму Для нетипового документа созданного в расширении?
Как подключить внешнюю печатную форму Для нетипового документа созданного в расширении? В модуле документа указал нужные процедуры : ...

Аккаунты AdWords без НДС для работы и тех, кто умеет считать СВОИ деньги
Добрый день! &lt;div&gt; &lt;/div&gt;&lt;div&gt;Отдам в хорошие руки верифицированный аккаунт AdWords с постоплатой с кредитки, &lt;b&gt;без...

Вывод на печатную форму. УТ 11
Здравствуйте, в типовой печатной форме нужно вывести данные, в табл часть шаблон вставил, в модуле код прописал но пишет данные из...

Добавить печатную форму 1С v8
Необходимо Документы - Ведомость в кассу добавить печатную форму 0504403. Зашел в конфигуратор - Документы - Ведомость в кассу - Макеты....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru