Имя: Пароль:
1C
 
Итог в форме документа
0 nirvanaz
 
22.07.08
05:39
Подскажите пожалуйста, как в 8-ке в форме документа вывести итговую сумму в подвале табличного поля???
1 ЛНТ
 
22.07.08
05:41
поставить галочки:
"подвал" у табличного поля
"отображать итоги в подвале" у колонки
2 nirvanaz
 
22.07.08
05:50
а если нет у колонки "отображать итоги в подвале"???:(
3 ЛНТ
 
22.07.08
05:51
тип колонки не числовой, у него не может быть итогов как суммы
4 nirvanaz
 
22.07.08
05:51
"отображать в подвале" есть, но неактивно и галочка стоит
5 ЛНТ
 
22.07.08
05:54
табличное поле и колонка связана с данными?
6 nirvanaz
 
22.07.08
06:05
нет, не связаны, если я правильно понимаю, потому что в этой колонке образуются данные после формирования другого документа
7 ЛНТ
 
22.07.08
06:24
используй у колонки "текст подвала"
8 nirvanaz
 
22.07.08
06:26
есть где посмотреть можно?
9 ЛНТ
 
22.07.08
06:27
зачем это смотреть? после формирования другого документа заполняй ТекстПодвала у колонки и всё
10 nirvanaz
 
22.07.08
06:32
а как сослаться на ТекстПодвала?
11 ЛНТ
 
22.07.08
06:34
ЭлементыФормы.ТвояТаблица.ТвояКолонка.ТекстПодвала = "35.50"
12 ЛНТ
 
22.07.08
06:35
а как данные в колонке заполняются?
13 nirvanaz
 
22.07.08
06:38
Процедура ПриОткрытии()
   
   Если ЭтотОбъект.Проведен = Ложь Тогда
       ЭлементыФормы.ЗакрытаБронь.Доступность = Ложь;
       ЭлементыФормы.Утвержден.Доступность = Ложь;
   КонецЕсли;
   
   АвтоматическиБронировать = Истина;
   
   Если Не глТекущийПользователь.ВидПользователя = Перечисления.ВидыПользователей.КоммерческийДиректор и НЕ глТекущийПользователь.ВидПользователя = Перечисления.ВидыПользователей.СистемныйАдминистратор Тогда
       ЭлементыФормы.Утвержден.Доступность = Ложь;
   КонецЕсли;    
   
   Если глТекущийПользователь.ВидПользователя = Перечисления.ВидыПользователей.РаботникСклада Тогда
       ЭлементыФормы.КоманднаяПанельТовары.Кнопки.Анализ.Доступность = Ложь;
   КонецЕсли;    
   
   Если ЭтоНовый() Тогда
       усЗаполнитьШапкуДокумента(ЭтотОбъект, глТекущийПользователь);
       УстановитьНомерДокумента(ЭтотОбъект);
       ЭлементыФормы.СпособДоставки.Значение=Перечисления.СпособыДоставки.ЖелезнодорожнымТранспортом;
       ЭлементыФормы.ПродающийМенеджер.Значение=глТекущийПользователь;
       
       ЭтаФорма.Обновить();
   КонецЕсли;
   
   Синий=Новый Цвет(0,0,255);
   Красный=Новый Цвет(255,0,0);
   Справ=ЭтаФорма.ЭлементыФормы.Контрагент.Значение;
   Если ТипЗнч(Справ)=ТипЗнч(Справочники.Контрагенты.ПустаяСсылка()) Тогда
       Лимит=Справ.ЛимитДебиторки;
   Иначе
       Лимит=0;
   КонецЕсли;
   
   Запрос=Новый Запрос("ВЫБРАТЬ
   |    СУММА(ВзаиморасчетыСКонтрагентамиОстатки.СуммаВзаиморасчетовОстаток) КАК Сумма,
   |    СУММА(ВзаиморасчетыСКонтрагентамиОстатки.СуммаУпрОстаток) КАК СуммаУпр
   |ИЗ
   |    РегистрНакопления.ВзаиморасчетыСКонтрагентами.Остатки КАК ВзаиморасчетыСКонтрагентамиОстатки
   |ГДЕ
   |    ВзаиморасчетыСКонтрагентамиОстатки.ДоговорКонтрагента.Владелец.Ссылка = &Контрагент");
   
   Запрос.УстановитьПараметр("Контрагент",Справ);
   РезультатЗапроса=Запрос.Выполнить();
   
   Выборка=РезультатЗапроса.Выбрать();
   Если Выборка.Следующий() Тогда
       Если Выборка.Сумма<>Null Тогда
           Дебиторка=Выборка.Сумма;
       Иначе
           Дебиторка=0;
       КонецЕсли;
   Иначе
       Дебиторка=0;
   КонецЕсли;
   
   ЭлементыФормы.Надпись6.Заголовок="Долг: "+Строка(Дебиторка)+" руб., лимит: "+Строка(Лимит);
   Если Лимит<Дебиторка Тогда
       ЭлементыФормы.Надпись6.ЦветТекста=Красный;
   Иначе
       ЭлементыФормы.Надпись6.ЦветТекста=Синий;
   КонецЕсли;
   
   ЭлементыФормы.Надпись6.Видимость=Истина;
   ЭтаФорма.Обновить();
   Если ТипЗнч(ЭтаФорма.ЭлементыФормы.Контрагент.Значение)<>ТипЗнч(Справочники.Контрагенты.ПолучитьСсылку()) Тогда
       ЭлементыФормы.Надпись6.Видимость=Ложь;
       Возврат;
   КонецЕсли;
   
   Если ТипЗнч(ЭтаФорма.ЭлементыФормы.Контрагент.Значение)=ТипЗнч(Справочники.Контрагенты.ПолучитьСсылку()) и (ЭтаФорма.ЭлементыФормы.Контрагент.Значение=Справочники.Контрагенты.ПустаяСсылка()) Тогда
       ЭлементыФормы.Надпись6.Видимость=Ложь;
       Возврат;
   КонецЕсли;
   
   УстановитьИзменятьВидимостьКолонокТабЧасти(ЭлементыФормы.Товары.Колонки, Новый Структура("Номенклатура, КоличествоПлан"));
   усВыполнитьСтандартныеДействияПриОткрытии(ЭтотОбъект, ЭтаФорма);
   мТекущаяДатаДокумента = ДокументОбъект.Дата;
   
   Запрос = Новый Запрос ("ВЫБРАТЬ РАЗЛИЧНЫЕ
   |    усОтгрузкаТовары.Ссылка
   |ИЗ
   |    Документ.усОтгрузка.Товары КАК усОтгрузкаТовары
   |ГДЕ
   |    усОтгрузкаТовары.ДокументПланирования = &ДокументПланирования");
   
   Запрос.УстановитьПараметр("ДокументПланирования", ЭтотОбъект.Ссылка );
   
   СтрокаОтгрузка = "";
   Первый = Истина;
   РезультатЗапроса =  Запрос.Выполнить();
   Выборка = РезультатЗапроса.Выбрать();
   Пока   Выборка.Следующий() Цикл
       
       СтрокаОтгрузка = СтрокаОтгрузка + ?( Первый, "Были оформлены документы отгрузки : ", " , ") + СокрЛП( Выборка.Ссылка.Номер ) + " от " + Строка(Выборка.Ссылка.Дата);
       Первый = Ложь;
   КонецЦикла;    
   
   Если Не ЭтотОбъект.ЭтоНовый() Тогда
       Запрос = Новый Запрос ("ВЫБРАТЬ РАЗЛИЧНЫЕ
       |    ЗаказПокупателя.Ссылка
       |ИЗ
       |    Документ.ЗаказПокупателя КАК ЗаказПокупателя
       |ГДЕ
       |    ЗаказПокупателя.ДокументПланОтгрузки = &Документ");
       
       Запрос.УстановитьПараметр("Документ", ЭтотОбъект.Ссылка );
       Выборка = Запрос.Выполнить().Выбрать();
       Если   Выборка.Следующий() Тогда
           ЭлементыФормы.ДокументЗаказ.Значение = Выборка.Ссылка;
       КонецЕсли;
       
       ЭлементыФормы.НадписьИнформацияОбОтгрузках.Значение = СтрокаОтгрузка;
   КонецЕсли;
КонецПроцедуры
14 ЛНТ
 
22.07.08
06:45
(13) что это и зачем?
15 nirvanaz
 
22.07.08
06:46
как ответ на вопрос не получилось)))
16 nirvanaz
 
22.07.08
07:34
ты еще здесь?
17 ЛНТ
 
22.07.08
07:35
да
как данные в колонке заполняются?
18 ЛНТ
 
22.07.08
07:36
и чем тебе (11) не подходит?
19 Тиль
 
22.07.08
07:43
Откроем палитру свойств для табличного поля, расположенного в форме, и установим свойство "Подвал", которое определяет наличие подвала у элемента управления табличное поле.
Затем откроем свойства колонки "Цена" и установим текст подвала – "Всего:", горизонтальное положение в подвале – "Прижать вправо" и в шрифте подвала изменим начертание на "Жирный".[114]
После этого откроем свойства колонки "Сумма", установим горизонтальное положение в подвале – "Прижать вправо", установим флаг "Показывать итог в подвале" и в шрифте подвала тоже изменим начертание на "Жирный".
20 ЛНТ
 
22.07.08
07:46
(19) не тормози, (4) почитай
21 nirvanaz
 
22.07.08
08:01
ЭлементыФормы.Товары.Колонки.Бронь.ТекстПодвала = ????????
22 ЛНТ
 
22.07.08
08:04
на этот вопрос можно ответить только после:
как данные в колонке заполняются?
23 nirvanaz
 
22.07.08
08:44
при проведении
24 ЛНТ
 
22.07.08
08:49
(23) так ли это? ты же сказал, что колонка с данными не связана
25 nirvanaz
 
22.07.08
08:56
есть в баюличной части количество, про проведении эта колонка "бронь" приравнивается количесву, о если вводится другой документ ("отгрузка"), тогда сумма в колонке "бронь" меняется
26 nirvanaz
 
22.07.08
08:56
в табличной*
27 nirvanaz
 
22.07.08
09:26
не бросай меня, пожалуйста:(
28 ЛНТ
 
22.07.08
09:29
ты общую сумму в колонке бронь не можешь посчитать?
29 nirvanaz
 
22.07.08
09:33
да
30 artem666
 
22.07.08
09:35
(29) почитай книжки :)
31 nirvanaz
 
22.07.08
09:39
(30)учту
хорошо тебе говорить;(
32 artem666
 
22.07.08
09:40
(31) а что говорить то? Дельный совет говорю :)
33 nirvanaz
 
22.07.08
10:22
хорошо, скажите тогда как  из этого получить число
ОформлениеСтроки.Ячейки.Бронь.УстановитьТекст( Формат( ЧислоБронь, "ЧЦ=10; ЧДЦ=3"));
34 nirvanaz
 
22.07.08
10:23
точнее, это и так число, как их все сложить?
35 nirvanaz
 
22.07.08
10:39
ЧислоБронь = Число( ТекстБронь );
       
       ОформлениеСтроки.Ячейки.Бронь.УстановитьТекст( Формат( ЧислоБронь, "ЧЦ=10; ЧДЦ=3"));


       Сум =0;
       ЭлементыФормы.Товары.Колонки.Бронь.ТекстПодвала = Сум +ЧислоБронь;

типо это надо в цикле написать?
2 + 2 = 3.9999999999999999999999999999999...