Имя: Пароль:
1C
1C 7.7
v7: Помогите плиз - я так и не научилась правильно называть темы
🠗 (Волшебник 19.03.2013 13:45)
0 dianna
 
19.03.13
13:38
есть отчет
в который нужно добавить в таблицу дату, я дату добавила а вот что дальше нужно прописать я не знаю, подскажите пожалуйста
я думала что нужно прописать что то в роде этого    пДата=лнак.ДатаДок; (такое у меня в этом же отчете только в другой таблице) но ничего не помогло, помогите плиз
http://s019.radikal.ru/i624/1303/14/8553580a8edb.png


Процедура кнПлан()
   фНетто=1;
   лтб=СоздатьОбъект("ТаблицаЗначений");
   лтб.НоваяКолонка("Док");
   лтб.НоваяКолонка("Контр");
   лтб.НоваяКолонка("ТМЦ");
   лтб.НоваяКолонка("тмцГрп");
   лтб.НоваяКолонка("кво","число");
   лтб.НоваяКолонка("Вес","число");
   лтб.НоваяКолонка("ЦенаБ","число");
   лтб.НоваяКолонка("ЦенаС","число");
   лтб.НоваяКолонка("СуммаБ","число");
   лтб.НоваяКолонка("СуммаС","число");
   нтб=СоздатьОбъект("ТаблицаЗначений");
   лтб.Выгрузить(нТб);
   РасчитатьТБ(лтб);
   таб=СоздатьОбъект("Таблица");
   таб.ИсходнаяТаблица("Плановый");
   лФлт="";
   лтб.Свернуть("тмцГрп,тмц","кво,вес,СуммаС,СуммаБ");
   лтб.НоваяКолонка("ЦенаС","число");
   лтб.НоваяКолонка("ЦенаБ","число");
   лтб.Сортировать("тмцГрп,тмц");
   если фТмц.Выбран()=1 тогда
       Если фТмц.ЭтоГруппа()=1 тогда
           лФлт=лФлт+" группе ТМЦ - """+СокрЛп(ФтМЦ.Наименование)+"""";
       иначе
           лФлт=лФлт+" тмц - """+СокрЛп(ФтМЦ.Наименование)+"""";
       Конецесли;
   конецесли;
   если фвИДтМЦ.Выбран()=1 тогда
       Если пУСТАЯСТРОКА(ЛфЛТ)=0 тогда
           лФлт=лфлт+";";
       Конецесли;
       лФлт=лФлт+"виду продукции - """+фВидТмц.Наименование+"""";
   конецесли;
   Если ПустаяСтрока(лфлт)=0 тогда
       лФлт="с ограничениями по " +лФлт;
   Конецесли;
   Если пУСТАЯСТРОКА(ЛфЛТ)=0 тогда
       лФлт=лфлт+";";
   Конецесли;
   Если фАкция=1 тогда
       лФлт=лФлт+", только акционная продукция";
   Конецесли;
   лфлт=лфлт+".";
   таб.ВывестиСекцию("шапка");
   Если фБШ=0 тогда
       таб.ПовторятьПриПечатиСтроки(4,4);
   Конецесли;
   лтб.выбратьСтроки();
   нпп=1;
   грпВес=0;
   грпСуммаМ=0;
   грпСуммаП=0;
   иВес=0;
   иСуммаМ=0;
   иСуммаП=0;
   лгрп="";
   Пока лтб.ПолучитьСтроку()=1 цикл
       Если лтб.кво<>0 тогда
           лтб.ЦенаС=окр(лтб.СуммаС/лтб.кво,2);
           лтб.Ценаб=окр(лтб.Суммаб/лтб.кво,2);
           лтб.СуммаС=окр(лтб.СуммаС,2);
       Конецесли;
       Если лГрп<>лтб.ТмцГрп тогда
           Если ПустоеЗначение(лГрп)=0 тогда
               таб.ВывестиСекцию("иГрп");

               иВес=иВес+грпВес;
               иСуммаМ=иСуммаМ+грпСуммаМ;
               иСуммаП=иСуммаП+грпСуммаП;
               грпВес=0;
               грпСуммаМ=0;
               грпСуммаП=0;
           Конецесли;
           таб.ВывестиСекцию("Грп");
           лГрп=лтб.ТмцГрп;
       Конецесли;
       таб.ВывестиСекцию("стр");
       грпВес=грпВес+лтб.вес;
       грпСуммаМ=грпСуммаМ+лтб.СуммаБ;
       грпСуммаП=грпСуммаП+лтб.СуммаС;
       нпп=нпп+1;
   КонецЦикла;
   таб.ВывестиСекцию("иГрп");
   иВес=иВес+грпВес;
   иСуммаМ=иСуммаМ+грпСуммаМ;
   иСуммаП=иСуммаП+грпСуммаП;
   таб.ВывестиСекцию("итог");
   таб.ТолькоПросмотр(1);
   таб.ПараметрыСтраницы(1,100,0,0,0,0,0,0,0,1);
   таб.Показать("Реестр",,1);
КонецПроцедуры
1 Ёпрст
 
19.03.13
13:42
не угадала
2 Гефест
 
19.03.13
13:42
Гвоздь бы в голову тому, кто так называет переменные
3 Рэйв
 
19.03.13
13:42
1.Добавь колонку в тз
2.Добавь колонку в макет
3.Заполняй значение в колонке при выводе
4.ВСЕ.

....4 месяца на форуме, а фотки нет.
Безобразие.
4 dk
 
19.03.13
13:43
про фотку уже было?
5 Рэйв
 
19.03.13
13:43
(2)+1
я тоже думал как бы высказать потактичнее, чтобы не обидеть даму:-)
6 Ёпрст
 
19.03.13
13:44
нужно добавить колонку в лтб,
проце РасчитатьТБ(лтб) заполнить эту колонку нужной датой, далее добавить эту колонку вот сюда:
лтб.Свернуть("тмцГрп,тмц","кво,вес,СуммаС,СуммаБ");

далее при выводе полиметь эту дату..
ну и в макете в свойствах ячейки выставить тип Выражение и имя твоей переменной с датой.

Как то так.
7 Рэйв
 
19.03.13
13:44
3.Заполняй значение в колонке при выводе

можно уточнить как

3.Заполняй значение в колонке В МАКЕТЕ  при выводе


а то мало ли:-)
8 Mikeware
 
19.03.13
13:45
(2) ТмцГр,плГрп,лтб... лгбт? :-))
9 dianna
 
19.03.13
13:46
это не мой отчет, а программиста который снова запил
подскажите что именно нужно прописать в модуле...буду очень благодарна
10 Рэйв
 
19.03.13
13:46
>> а программиста который снова запил

какая романтика :-)
11 Рэйв
 
19.03.13
13:48
(9)Тебе в шапку или в строчку нужна дата?
12 Mikeware
 
19.03.13
13:51
(10) _снова_ :-)))
13 Гефест
 
19.03.13
13:54
(9) Лучше его найди, похмели и заставь сделать. Это проще будет
14 dianna
 
19.03.13
14:01
(11) мне нужно в строку
15 dianna
 
19.03.13
14:02
(11) подскажи пожалуйста))
а с меня воздушный поцелуй))
16 dianna
 
19.03.13
14:05
ребят очень прошу вашей помощи
17 Рэйв
 
19.03.13
14:07
//-------



//Вставь в макет колонку с параметром "лтб.ДатаДок"
//потом:

лтб.НоваяКолонка("ДатаДок");
//.....

//и в цикле перед выводом
Если ПустоеЗначение(лтб.Док)=0 Тогда
   лтб.ДатаДок=лтб.Док.ДатаДок;
КонецЕсли;
таб.ВывестиСекцию("стр");

//-------------

как то так, если я правильно стелепатировал.
Только лтб.Док должен быть у тебя заполнен и документом.
18 Рэйв
 
19.03.13
14:07
(15)а вместо поцелуя с вас фотка в личку, барышня:-)
19 dianna
 
19.03.13
14:25
(18) дай мыло, я скину))
все сделала вот что оно мне пишет
лтб.ДатаДок=лтб.Док.ДатаДок;
{C:\DOCUMENTS AND SETTINGS\DOVZHUKAA\РАБОЧИЙ СТОЛ\РЕЕСТРОТГРУЖЕНОЙПРОДУКЦИИЦМ.ERT(618)}: Поле агрегатного объекта не обнаружено (ДатаДок)

я загрузила отчет, может так будет проще
http://files.mail.ru/DDB84199897F4D00A5A9ADE3BE9F0AFE
20 Рэйв
 
19.03.13
14:29
(19)Мэйл ру забанен у меня
Значит у тебя в лтб.Док не документ.
Вобщем реши сначала откуда ты будешь брать ДатаДок, и поправь соответственно:-)
21 dianna
 
19.03.13
14:31
дата мне нужно брать с ТМЦ, я незнаю правильно ли это но я пробовала писать тмц.док тмцдок тмц.датадок   ничего не помагает

http://www.fayloobmennik.net/2712804
22 Эльниньо
 
19.03.13
14:31
(13) Самый дельный совет.
23 Рэйв
 
19.03.13
14:39
(21)ДатаДок - это свойство документа.Вот соображай где у тебя документ и бери от него .ДатаДок

А вообще в (13) и правда хороший совет:-)
Пусть программирование занимается программист
24 dianna
 
19.03.13
14:44
просто очень срочно надо
а тот программист в отключке, трубку не берет
25 Рэйв
 
19.03.13
14:48
если ты не програмер все равно у тебя займет это больше времени чтобы понять что сделать, а потом еще и сделать.

Быстрее ваш пьяница проспится
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn