Имя: Пароль:
1C
 
Форма.Параметр
0 ИвановИван
 
28.11.05
13:06
1. Есть документ ПутевойЛист, из него окрываеться документ ТТН.
2. На док. ТТН навешена внешняя печатная форма, в нее надобно передовать выводить реквезиты из док-в ПутЛист и ТТН

Вот кусочек кода для внешней печатной формы дока ТТН
----------------
Процедура ПриОткрытии()
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда        
       Док      = Форма.Параметр.Получить("Контекст");
       //Устройство = Форма.Параметр.Получить("Устройство");
       //КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");    
       Печать(Док);
       Статусвозврата(0);
       Возврат;
   КонецЕсли;  
-----------------------------
1 Гламурный Подонок
 
28.11.05
13:07
Вы баянист?
2 ИвановИван
 
28.11.05
13:15
вы нахрен не сходите?
3 skunk
 
28.11.05
13:16
возможно завтра
4 Парижская фанера
 
28.11.05
13:17
Очередная порция тупизны от Ивана...
5 Гламурный Подонок
 
28.11.05
13:18
(2)Только после вас.
6 КонецЦикла
 
28.11.05
13:19
2(0) Это вопрос или статья?
7 Парижская фанера
 
28.11.05
13:22
(6) Это приговор врачебной коммисии.
8 колодина
 
28.11.05
13:23
ПБУ 30/1 - Подонки Гламурные отражаются на отдельном синтетическом счете "нахрен", при этом в аналитическом учете учитываются дифференцированно по видам ИвановыхИванов, в оценке которых возник посыл...
9 По идее так
 
28.11.05
13:34
(0) А хде вопрос?
10 ИвановИван
 
28.11.05
13:35
(4) :)) Спасибо.
11 ИвановИван
 
28.11.05
13:35
(9) а вопрос "почему не работает?"
12 Парижская фанера
 
28.11.05
13:35
(10) Тебе спасибо.
13 Salvador Limones
 
28.11.05
13:38
Шикарно.
14 По идее так
 
28.11.05
13:39
(11) Ты б хоть написал, как внешнюю печатную форму открываешь, и что в неё передаешь для начала...
15 Rovan
 
гуру
28.11.05
13:44
(8) Браво ! Талант !
16 427
 
28.11.05
13:47
заполняю путЁвые листы недорого...
17 Ёжик в тумане
 
28.11.05
13:54
Нет, ИвановИван не баянист.
Он - трубач.
18 ИвановИван
 
28.11.05
14:01
----------------
Процедура ПриОткрытии()
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда        
       Док      = Форма.Параметр.Получить("Контекст");
       ДокУМ      = Форма.Параметр.Получить("Контекст");
       Печать(Док);
       Статусвозврата(0);
       Возврат;
   КонецЕсли;  
КонецПроцедуры //ПриОткрытии
-----------------------------
Табло (отладчик)
Форма.Параметр.Получить("Контекст").НомерДок = "     1"
 Док.НомерДок = ""
 Докум.НомерДок = "     1"

ПОЧЕМУ  Док.НомерДок = "" ???
19 ИвановИван
 
28.11.05
14:07
ню конкретный вопрос, хде ответ или поорать горазды а мозгов не больше чем у меня?
20 Salvador Limones
 
28.11.05
14:11
(19) Да Ваня, мы такое же быдло, как и ты. :-(
21 ИвановИван
 
28.11.05
14:12
(20) я не быдло, это ты про себя говори...
22 Zanuda
 
28.11.05
14:13
(19) А что именно не работает? Не печатает?
23 Рупор абсурда
 
28.11.05
14:13
(18) Я не могу ответить на этот вопрос ...
24 Скользящий
 
28.11.05
14:16
(8) Респект. В мемориз.
25 Скользящий
 
28.11.05
14:17
Модераторам. Ветку переименуйте пожалуйста в Форма.Параметр.НаХрен(1)
26 ИвановИван
 
28.11.05
14:20
Если комуто интересно то так работает:
Процедура ПриОткрытии()
   Перем Док;
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда        
       
       Док      = Форма.Параметр.Получить("Контекст");
       ДокУМ      = Форма.Параметр.Получить("Контекст");
       
       Сообщить("Док ="+ Док.НомерДок);
       Сообщить("Докуим ="+ Докум.НомерДок);
       
       Печать(Док);
       Статусвозврата(0);
       Возврат;
   КонецЕсли;  
КонецПроцедуры //ПриОкрытии
----
Док =     1
Докуим =     1
27 ИвановИван
 
28.11.05
14:21
(22) смотри 18, и 26
28 Zanuda
 
28.11.05
14:22
(26) Не интересно. Лучше скажи, что не работает именно.
29 ИвановИван
 
28.11.05
14:24
(28) блин как я тебе скажу если я говорю а ты не смотришь? НЕ РАБОТАЕТ Док.НомерДок = "" --- ПУСТО!!!! А НЕ ДОЛЖНО!
30 lisss
 
28.11.05
14:25
(18)Загвоздка в "Печать(Док);" наверное.....
31 Рупор абсурда
 
28.11.05
14:26
(29) А в (26) работало?
32 ИвановИван
 
28.11.05
14:27
(31)
после того как перем задал работает
33 Zanuda
 
28.11.05
14:28
(29) Да я про изначальный вопрос спросил. В (0) то что не работает?
По поводу Док.НомерДок у тебя может быть где-нибудь уже определена переменная Док.
34 LOD
 
28.11.05
14:29
(32) А первоначальный документ был сохранён ?
35 Рупор абсурда
 
28.11.05
14:31
(34) Какая разница? Судя по строке представления, в списке контекст сидит ...
36 Cheater
 
28.11.05
14:32
(32) Что есть ДокУМ?
37 ИвановИван
 
28.11.05
14:33
(33) да и в ноль тоже самое не работало... Выше только: Процедура Печать(Док), иного программного кода нет
38 ИвановИван
 
28.11.05
14:34
(34) сохранил (36) Только что созданая перем, точно такаяже как и док
39 LOD
 
28.11.05
14:35
(35) А я в таких случаях так делаю: Форма.Параметр.ТекущийДокумент()
Я примат ? ;)
40 Cheater
 
28.11.05
14:38
(38) Ранее нигде не объявленная? Странно...
41 Рупор абсурда
 
28.11.05
14:40
(39) Вот как раз в этом случае, если документ не записан, выражение вернёт пустое значение.
Но Форма.Параметр.НомерДок вернет тот номер, что выбран в поле на форме.
42 ИвановИван
 
28.11.05
14:40
Шоб сомнений небыло не сочтите за флуд )) Полный текст внешней формы ТТН
//*******************************************
Процедура Печать(Док)
   Перем Груз1, Груз2, Груз3;
   Перем Документы1, Документы2, Документы3;
   Перем Упаковка1, Упаковка2, Упаковка3;
   Перем Мест1, Мест2, Мест3;
   Перем СОМ1, СОМ2, СОМ3;
   Перем КодГруза1, КодГруза2, КодГруза3;
   Перем КлассГруза1, КлассГруза2, КлассГруза3;
   Перем МассаБрутто1, МассаБрутто2, МассаБрутто3, МассаБруттоВсего;
   
   Авто = Док.ПутевойЛист.Автомобиль;
   Сотрудник = Док.ПутевойЛист.Водитель;
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("ТМФ 1-Т");
   Таб.ВывестиСекцию("Лицевая");
   Таб.Область("Номер").Текст = Док.НомерДок;
   Таб.Область("ДеньСоставления").Текст = ДатаЧисло(Док.ДатаСоставления);
   Таб.Область("МесяцСоставления").Текст = ДатаМесяц(Док.ДатаСоставления);
   Таб.Область("ГодСоставления").Текст = ДатаГод(Док.ДатаСоставления);
   Таб.Область("Грузоотправитель").Текст = Док.Грузоотправитель.ПолнНаименование + ", " + Док.Грузоотправитель.ПочтовыйАдрес + ", " + Док.Грузоотправитель.Телефоны;;
   Таб.Область("Грузополучатель").Текст = Док.Грузополучатель.ПолнНаименование + ", " + Док.Грузополучатель.ПочтовыйАдрес + ", " + Док.Грузополучатель.Телефоны;
   Таб.Область("Плательщик").Текст = Док.Заказчик.ПолнНаименование + ", " + Док.Заказчик.ПочтовыйАдрес + ", " + Док.Заказчик.Телефоны;
   Таб.НоваяСтраница();
   Док.ВыбратьСтроки();
   Для чСч = 1 По Мин(3,Док.КоличествоСтрок()) Цикл
       Если Док.ПолучитьСтроку() = 1 Тогда
           Если чСч = 1 Тогда
               Груз1 = Док.Груз.Наименование;
               КодГруза1 = Док.Груз.Код;
               Попытка
                   КлассГруза1 = Док.Груз.Класс;
               Исключение
               КонецПопытки;
               Упаковка1 = Док.ВидУпаковки.Наименование;
               Мест1 = Док.Мест;
               СОМ1 = Док.СпособОпределенияМассы;
               МассаБрутто1 = Док.МассаБруттоГруза;
           ИначеЕсли чСч = 2 Тогда
               Груз2 = Док.Груз.Наименование;
               КодГруза2 = Док.Груз.Код;
               Попытка
                   КлассГруза2 = Док.Груз.Класс;
               Исключение
               КонецПопытки;    
               Упаковка2 = Док.ВидУпаковки.Наименование;
               Мест2 = Док.Мест;
               СОМ2 = Док.СпособОпределенияМассы;
               МассаБрутто2 = Док.МассаБруттоГруза;
           ИначеЕсли чСч = 3 Тогда
               Груз3 = Док.Груз.Наименование;
               КодГруза3 = Док.Груз.Код;
               Попытка
                   КлассГруза3 = Док.Груз.Класс;
               Исключение
               КонецПопытки;
               Упаковка3 = Док.ВидУпаковки.Наименование;
               Мест3 = Док.Мест;
               СОМ3 = Док.СпособОпределенияМассы;
               МассаБрутто3 = Док.МассаБруттоГруза;
           КонецЕсли;    
       КонецЕсли;
   КонецЦикла;
   МассаБруттоВсего = МассаБрутто1 + МассаБрутто2 + МассаБрутто3;
   
   Попытка
       Марка = СокрЛП(Док.ПутевойЛист.Автомобиль.Модель.Родитель) + "-" + СокрЛП(Док.ПутевойЛист.Автомобиль.Модель);
       
   Исключение
       Марка = "";
   КонецПопытки;
   
   Попытка
       МаркаПрицеп = СокрЛП(Док.ПутевойЛист.Прицеп.Модель.Родитель) + "-" + СокрЛП(Док.ПутевойЛист.Прицеп.Модель);
       ГосНомерПрицеп = Док.ПутевойЛист.Прицеп.ГосНомер;
       ИнвНомПрицеп = Док.ПутевойЛист.Прицеп.Код;
   Исключение
       МаркаПрицеп = "";
       ГосНомерПрицеп = "";
       ИнвНомПрицеп = "";
   КонецПопытки;
   
   Попытка
       МаркаПрицеп1 = СокрЛП(Док.ПутевойЛист.Прицеп1.Модель.Родитель) + "-" + СокрЛП(Док.ПутевойЛист.Прицеп1.Модель);
       ГосНомерПрицеп1 = Док.ПутевойЛист.Прицеп1.ГосНомер;
       ИнвНомПрицеп1 = Док.ПутевойЛист.Прицеп1.Код;
   Исключение
       МаркаПрицеп1 = "";
       ГосНомерПрицеп1 = "";
       ИнвНомПрицеп1 = "";
   КонецПопытки;
   
   Таб.ВывестиСекцию("Оборотная");
   
   
   Таб.Опции(0, 0, 0, 0, "опцПечати1Т", "окн1Т");
   Таб.ПараметрыСтраницы(2,100,,5,5,5,5,0,0,1);
   Таб.ТолькоПросмотр(1);
   Таб.Показать("ТТН 44(форма №1-Т)");
КонецПроцедуры // кнПечать

Процедура ПриОткрытии()
   //Перем Док;
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда        
       
       Док      = Форма.Параметр.Получить("Контекст");
       ДокУМ      = Форма.Параметр.Получить("Контекст");
       
       Сообщить("Док ="+ Док.НомерДок);
       Сообщить("Докуим ="+ Докум.НомерДок);
       
       Печать(Док);
       Статусвозврата(0);
       Возврат;
   КонецЕсли;  
КонецПроцедуры //ПриОткрытии
43 Парижская фанера
 
28.11.05
14:41
(42) Много стрёмных сочетаний букв. Ниасилил.
44 ИвановИван
 
28.11.05
14:43
(43) тебя и не просили... вообщем с тебя толку мало а крику много
45 Рупор абсурда
 
28.11.05
14:43
(42) Так работает?
46 LOD
 
28.11.05
14:44
(41)Поэтому я и спросил про сохран. дока
Но у меня всегда так срабатывало и никаких вопросов не возникало и необходимость делать по другому не возникало
Ведь печатать из несохранёного дока противоречит здравой логике (ИМХО)
47 ИвановИван
 
28.11.05
14:45
(45) неа, ибо "//Перем Док;"

Док =
Докуим =     1
Авто = Док.ПутевойЛист.Автомобиль;
{C:\1CB\V7\RARUS\КОПИЯ АВТОХОЗЯЙСТВО\AXDEMO\EXTFORMS\PRNFORMS\TTH_PARTN.ERT(12)}: Значение не представляет агрегатный объект (Автомобиль)
48 LOD
 
28.11.05
14:45
(42) Процедура печати не нужна
Ты лучше покажи что в контекст "пихаешь"
49 Рупор абсурда
 
28.11.05
14:46
(46) В данном случае пофих сохранен он или нет ...
Почему печатать из несохранёного дока противоречит здравой логике?
50 Zanuda
 
28.11.05
14:46
(42) И что? Не печатает?
Может у тебя на форме обработки ничего нет? Тогда и не будет печатать. Надо хотя бы какой-нибудь текст повесить
51 По идее так
 
28.11.05
14:47
(42) Сообщи ТипЗначенияСтр(Док), и покажи, как в (42) передаешь параметры, т.ь что написано в ОткрытьФорму() ...
52 LOD
 
28.11.05
14:48
(49) Потому что бухи распечатают кучу доков, а потом не могут их (и их проводки) найти
И кричат что прога не считает
У меня в базе печать из дока который не проведён запрещена (кроме платёжек, счетов ...)
53 LOD
 
28.11.05
14:49
(52)+ т.к. забыли сохранить
54 Парижская фанера
 
28.11.05
14:49
(44) Объясни в чем удовольствие копаться в чужом коде размером А4 бесплатно, когда известно что не работает потому что у афтора либо руки кривые, либо просто глаз "замылился" и он в отладчике баг не может выцепить. Задрали ветки про записись элементов справочников и проч. лабуда.
55 Парижская фанера
 
28.11.05
14:50
(+54) Ваня не умеет юзать "Отладчик". Какого хрена он делал на экзамене вообще не понятно.
56 ИвановИван
 
28.11.05
14:51
Передача в форму
//кнАльтПечать()
// Параметры:
// Возвращаемое значение:
// Описание:
Процедура кнАльтПечать(СразуНаПринтер = 0,КолЭкз = 1)
   чНомер = глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм);
   Если чНомер > 0 Тогда
       НомерТекущейФормы = чНомер;
       Параметры = СоздатьОбъект("СписокЗначений");
       Параметры.ДобавитьЗначение(глВзятьКонтекст(Контекст), "Контекст");
       Параметры.ДобавитьЗначение(СразуНаПринтер, "Устройство");
       Параметры.ДобавитьЗначение(КолЭкз, "КоличествоКопий");
       
       ОткрытьФорму("Отчет", Параметры, глКаталогПечФорм+ТаблицаПечФорм.ПолучитьЗначение(НомерТекущейФормы,"Файл"));
   КонецЕсли;
   
КонецПроцедуры //кнАльтПечать
57 LOD
 
28.11.05
14:51
(54)+Действительно и как ты   ИвановИван умудряешься на ровном месте спотыкаться ?
58 ИвановИван
 
28.11.05
14:52
(54) ты засранец, извени но это так, ибо даже не смотришь что говорят, а тока пытаешь насрать... Отвали
59 Гламурный Подонок
 
28.11.05
14:54
Воинствующий хам.
60 Zanuda
 
28.11.05
14:55
(56) Вот ты кодом разбросался. (50) смотрел?
61 OFF
 
модератор
28.11.05
14:56
All. Не на базаре, так что давайте без оскорблений взаимных.
Дабы не возникало глупых вопросов за что забанили
62 Парижская фанера
 
28.11.05
14:57
(58) Ваня я все смотрю и читаю, кроме твоих простыней кода - ибо это всё лечится клавишами F5 и F8 в "Отладчике". Вместо того чтобы сделать это ты просто плодишь ветки о том чего быть не может в нормальном коде. Почитай туториал от "Отладчика".
63 Cheater
 
28.11.05
14:58
(56) Пальцем в небо - А если поменять местами объявление процедур? Т.е. ПриОткрытии() выше, чем Печать(Док)? Работает?
64 LOD
 
28.11.05
14:59
(60) Прав !
(56) Ответь на (50)
65 Zanuda
 
28.11.05
14:59
(63) Конечно же не сработает. Потому что Печать(Док) вызывается из ПриОткрытии(). Если поменять местами, ругаться будет...
66 Cheater
 
28.11.05
15:01
(65) Печать(Док) далее;
67 LOD
 
28.11.05
15:01
(66) Зачем ?
68 LOD
 
28.11.05
15:02
(65) Неужели Ваня так долго пытается на обработку кнопочку или текст какойнибуть повесить ?
69 Cheater
 
28.11.05
15:04
(67) Экперимент
70 По идее так
 
28.11.05
15:04
Вот это креатиФФ! :))

>> Док.ВыбратьСтроки();
>>   Для чСч = 1 По Мин(3,Док.КоличествоСтрок()) Цикл
>>       Если Док.ПолучитьСтроку() = 1 Тогда
71 Zanuda
 
28.11.05
15:04
(68) Наверное ему стыдно за свою оплошность...
72 LOD
 
28.11.05
15:07
(70) ШОК !!!
(71) Стыдно не признаться в этом !
Ваня исправься и скажи спасибо (50), иначе ...
73 ИвановИван
 
28.11.05
15:23
(50) а что там должно быть? Но это пока неважно почему не печатает, а важно почему без явного определения "перем док" док.НомерДок = "ПУСТО".
74 Парижская фанера
 
28.11.05
15:25
Эх Ваня, Ваня... (с) "Любовь и голуби".
75 ИвановИван
 
28.11.05
15:32
(74) что эхаешь, ты конкретно скажи почему а потом эхай, а так не умничай
76 Zanuda
 
28.11.05
15:33
(73) Да можно любой текст. Хоть "Бла-бла-бла"... Может после этого и Док.НомерДок заработает.
77 Cheater
 
28.11.05
15:33
(75) (63)+(66) пробовал?
78 LOD
 
28.11.05
15:34
(77) Не поможет
79 Zanuda
 
28.11.05
15:34
+(76) В конце концов, вместо того чтобы кричать, что все козлы и никто помочь не хочет, сделай хотя бы то, что советуют.
80 Cheater
 
28.11.05
15:35
(78) Пробовал?
81 ИвановИван
 
28.11.05
15:36
Процедура ПриОткрытии()    
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда        
       
       Док      = Форма.Параметр.Получить("Контекст");
       ДокУМ      = Форма.Параметр.Получить("Контекст");
       
       Сообщить("Док ="+ Док.НомерДок);
       Сообщить("Докуим ="+ Докум.НомерДок);
       
       Док = Докум;
       
       Сообщить("Док ="+ Док.НомерДок);
       
       Дока      = Форма.Параметр.Получить("Контекст");
       Док      = Форма.Параметр.Получить("Контекст");
       
       Сообщить("Док ="+ Док.НомерДок);
       Сообщить("Дока ="+ Дока.НомерДок);
       
       
       Печать(Док);
       Статусвозврата(0);
       Возврат;
   КонецЕсли;  
КонецПроцедуры //ПриОткрытии
-------------
Док =
Докуим =     1
Док =
Док =
Дока =     1
ДОК.НОМЕРДОК
Авто = Док.ПутевойЛист.Автомобиль;
{C:\1CB\V7\RARUS\КОПИЯ АВТОХОЗЯЙСТВО\AXDEMO\EXTFORMS\PRNFORMS\TTH_PARTN.ERT(15)}: Значение не представляет агрегатный объект (Автомобиль)
82 Cheater
 
28.11.05
15:37
(81) Исправь на Печать(Докум) или 63+66 попробуй
83 ИвановИван
 
28.11.05
15:38
Процедура ПриОткрытии()    
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда        
       
       Док      = Форма.Параметр.Получить("Контекст");
       ДокУМ      = Форма.Параметр.Получить("Контекст");
       
       Сообщить("Док ="+ Док.НомерДок);
       Сообщить("Докуим ="+ Докум.НомерДок);
       
       Док = Докум;
       
       Сообщить("Док ="+ Док.НомерДок);
       
       Дока      = Форма.Параметр.Получить("Контекст");
       Док      = Форма.Параметр.Получить("Контекст");
       
       Сообщить("Док ="+ Док.НомерДок);
       Сообщить("Дока ="+ Дока.НомерДок);
       
       
       //////////////////////////Печать(Док);
       Статусвозврата(0);
       Возврат;
   КонецЕсли;  
КонецПроцедуры //ПриОткрытии
-------------
Док =
Докуим =     1
Док =
Док =
Дока =     1
ДОК.НОМЕРДОК
Авто = Док.ПутевойЛист.Автомобиль;
84 ИвановИван
 
28.11.05
15:38
причем тут печать? ну причем, если в этом хоть какаято логика есть умоляю скажите
85 Парижская фанера
 
28.11.05
15:39
ВыборГруппы(1) отдыхает. Ваня, сотри паутину в константах.

ЗЫ Семен Семеныч, это ваш пациент.
86 Zanuda
 
28.11.05
15:40
(84) За... (50) пробовал? Если нет, разговор окончен.
87 Cheater
 
28.11.05
15:41
(84) А ты попробуй, а потом скажи результат
88 ИвановИван
 
28.11.05
15:42
(86) в (50) я не понял куда и чего
89 ИвановИван
 
28.11.05
15:43
(87) да закоментировал я "печать" есть тока функция при открытии, процедуры печати нет вообще...............
90 Парижская фанера
 
28.11.05
15:45
(88) Кто-бы сомневался...
91 LOD
 
28.11.05
15:46
(88) Мля ...
Пихай в форму своей обработки (та что печатную форму хранит) кнопку любую или текст вставь любой
92 Парижская фанера
 
28.11.05
15:48
(91) У Вани на форме нету ни одного реквизита или кнопки? Ужоснах...
93 Zanuda
 
28.11.05
15:48
(88) Иван, с тобой тяжело общаться. Но форму твоего отчета текст добавить. Что непонятного? Есть три закладки, форма, модуль, таблица. Вот на закладке "Форма" на форму вставить текст.
Теперь понятно?
94 ИвановИван
 
28.11.05
15:51
(92) Это не ужас, во первых есть на форме пара кнопок, во вторых я гдето читал что форма не должна быть пустой, но это имхо не про тот случай, но так Зануда нисказал для чего пихать я до конца не понял и уточнял
95 ИвановИван
 
28.11.05
15:52
(93) Конечно понятно, только не понятно зачем
96 Zanuda
 
28.11.05
15:53
(94) Бля. Я же у тебя в (50) спросил:
>Может у тебя на форме обработки ничего нет?
Не мог что ли сразу сказать, что кнопки есть?
Реквизита формы "Док" нету?
97 ИвановИван
 
28.11.05
15:55
(93) Скажи мне тока одно плиз, еслиб у меня форма была пустая у меня процедура при открытии бы срабатывала?
98 ИвановИван
 
28.11.05
15:55
(96) мЛЯ процедура при открыттие пашет, мля, значит мля есть :))
99 LOD
 
28.11.05
15:56
(98) Ты решил всех достать ?
100 Лошадка в пальто
 
28.11.05
15:56
100
101 ИвановИван
 
28.11.05
15:57
Зануда не горичесь, я не понял, зачем ты в (50) это спрашивал вообщее смысла в этом небыло, когда ты переспросил сделално ли (50) я сказал что сделано
102 Рупор абсурда
 
28.11.05
15:57
Ошибка: Сервер перегружен. Попробуйте зайти позже
Выгнать Ваню нах!
103 ИвановИван
 
28.11.05
15:58
(99) неа, если что не так, то извеняйте не хотел
104 Лошадка в пальто
 
28.11.05
15:59
(102) не в нем дело.... скрипт выдающий сотки от моего имени перегружает сервер...
105 Zanuda
 
28.11.05
16:00
(101) Тогда после
Док      = Форма.Параметр.Получить("Контекст")
сделай
Сообщить("" + ТипЗначенияСтр(Док))
и посмотри, что выведет.
106 Рупор абсурда
 
28.11.05
16:01
(104) Ваня кодил? Выгнать Ваню нах!
107 Рупор абсурда
 
28.11.05
16:02
(105) Почему ты хочешь помочь Ивану даже больше, чем сам Иван хочет помощь эту получить?
108 Таня
 
28.11.05
16:05
Все не читала, мож уже было, имхо, что у него на форме отбработки есть поле с типом печатаемого документа и идентификатором Док.
109 Zanuda
 
28.11.05
16:06
(107) Потому что у меня ни разу подобной проблемы не возникало. Может я что-то не так делаю? Интересно узнать, что я не так делаю.
110 Zanuda
 
28.11.05
16:07
(108) Спрашивал уже. Ваня ничего не ответил по этому поводу...
... а в ответ тишина...
111 ИвановИван
 
28.11.05
16:11
Процедура ПриОткрытии()    
   Сообщить("------------------------------4444---");
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда        
       
       Док      = Форма.Параметр.Получить("Контекст");
       ДокУМ      = Форма.Параметр.Получить("Контекст");
       
       Сообщить("Док ="+ТипЗначенияСтр(Док));
       Сообщить("Докуим ="+ТипЗначенияСтр(Докум));
       Сообщить("Док ="+ Док.НомерДок);
       Сообщить("Докум ="+ Докум.НомерДок);
------------------------------4444---
Док =ГрупповойКонтекст
Докуим =ГрупповойКонтекст
Док =     1
Докум =     1
ДОК.НОМЕРДОК     1
Работает!
Имхо заработало после того, как я удалил все объекты с формы, и добавил кнопку
112 Парижская фанера
 
28.11.05
16:14
УпалПадСтол.
113 Zanuda
 
28.11.05
16:15
(111) Ура! Теперь можно спокойно попить чай, не терзаясь сомнениями по поводу нового стиля программирования от ИвановаИвана :)
114 По идее так
 
28.11.05
16:15
(111) Шок - Это по нашему ! :)
115 Таня
 
28.11.05
16:16
тоже чтоли какой-нибудь развод замутить, рейтинг поддержать..
116 Рупор абсурда
 
28.11.05
16:17
Выгнать Таню нах!
117 Salvador Limones
 
28.11.05
16:18
Выгнать всех нах!!!
118 ИвановИван
 
28.11.05
16:18
(109) был у меня идентификатор "док", а загаловок другой, после того как грохнул всё на форме его не стало
119 Таня
 
28.11.05
16:20
(116) фу-у, как грубо :(

(118) ч.т.д.
120 LOD
 
28.11.05
16:20
(118) Мля ... тебеж мля... это сто раз говорили ...
Я В ШОКЕ !!!
121 По идее так
 
28.11.05
16:20
(118) Сам догадался ? ... иль подсказал кто ? :)
122 Zanuda
 
28.11.05
16:21
(118) Я у тебя это еще в (33) спрашивал...
>По поводу Док.НомерДок у тебя может быть где-нибудь уже определена переменная Док
И что ж ты столько времени голову всем морочил?
123 Рупор абсурда
 
28.11.05
16:21
(119) В глубине души, я тебя люблю ...
124 LOD
 
28.11.05
16:22
(122) Нервы не подорвал свои ? ;)
125 Zanuda
 
28.11.05
16:22
+(122) И что ж ты после этого обижаешься, что тебе не помогают?
Если не слушаешь никого.
126 Парижская фанера
 
28.11.05
16:24
(122) Не просто и сто постов....
127 ИвановИван
 
28.11.05
16:24
(122) угу спрашивали, выж не сказали, что на форме глянь идентификаторы!!!! И не надо потока чуств, где еще кроме 33, об этом упоминалось???
128 Парижская фанера
 
28.11.05
16:24
(126) Т.е. -> Не прошло и ста постов.
129 Рупор абсурда
 
28.11.05
16:25
(125) Понял, что ты делаешь не так?
130 ИвановИван
 
28.11.05
16:27
В (33)
(29) Да я про изначальный вопрос спросил. В (0) то что не работает?
По поводу Док.НомерДок у тебя может быть где-нибудь уже определена переменная Док. ------- тут ты настолько ничетко написал, что уж извените не понял
131 LOD
 
28.11.05
16:30
(130) Вань, лучше поблагодари  Zanuda и свали отсюда минут на 10
А то он тебя тоже "Возниновидет" ;)
132 Парижская фанера
 
28.11.05
16:30
(130) >>Да я про изначальный вопрос спросил. В (0) то что не работает?

Дядя, у вас не работает машина! (с) Бородатый анекдот.
133 1CPP
 
28.11.05
16:31
(0) - я бы в этом случае сделал бы класс, наследник от ТТН с методом ПечатьВнешнейФормы.
134 ИвановИван
 
28.11.05
16:33
(131) Немогу :((( Пока мне не скажут почему реквезит на форме док, с типом Документ, немог записать в себя групповойконтекст
135 Парижская фанера
 
28.11.05
16:33
(133) Апупеть. Дайте две.
136 Zanuda
 
28.11.05
16:34
(130) Я же не вижу твою обработку. Я высказал предположение. Если ты не везде проверил, то я то как узнаю, есть у тебя такой реквизит на форме, или переменная какая-то так обозвана.
137 Парижская фанера
 
28.11.05
16:34
(134) 20 лет назад геологи нашли мальчика воспитанного дикими дятлами...
138 ИвановИван
 
28.11.05
16:34
(133) Нужно наследовать два класса ТТН и путевой лист
139 ИвановИван
 
28.11.05
16:36
(136) а я не вижу, в (33) ответа, вернее раньше не видел так как раньше его не знал, а вот теперь когда знаю, то вижу но с большим трудом.
140 Парижская фанера
 
28.11.05
16:37
(139) >>а вот теперь когда знаю, то вижу но с большим трудом

Подождите, я записываю...
141 LOD
 
28.11.05
16:37
(134) (139) Вань, тут даже дятлы отдыхают ...
С твоим напором ... не сравниться никто
142 LOD
 
28.11.05
16:38
(140) Ща со смеху помру ... ;))))
143 Да уж
 
28.11.05
16:45
(134) Это очевидно:

На форме Реквизит ИваноИван Тип Дятел.

В модуле формы:
ОткрытьФорму("Обработка.Дятлов",Контекст);

В обработке:
Процедура  ПриОткрытии()
   Сообщить(""+ТипЗначенияСтр(Форма.Параметр));//вернет Контекст
   ИвановИван = Форма.Параметр;// так делать низя, ИвановИван - тип Дятел, нельзя менять тип у реквизитов на форме!
144 Парижская фанера
 
28.11.05
16:45
(138) С такими познаниями в процедурном программированни представляю на что ты способен в ООП. Паттерны отдыхают, Фаулер бы просто плакал...
145 ИвановИван
 
28.11.05
16:56
(144) а мне похрен, что обо мне думают... Тока мне за людей обидно, которые в силу злапамятности будут пытаться грузить, вот я тебе пытался показать как это некрасиво выходит в твоей ветки про Зику, в итоге сказал что больше не буду... а ты вел и ведешь себя не красиво, а если будешь продолжать так себя вести таким же и останешься (небуду говорить кем, не хочу обзываться)...
146 Скользящий
 
28.11.05
17:01
(145) Ты кстати сертификат то получил?
147 Zanuda
 
28.11.05
17:03
(146) Да вроде хвастался, что сдал. На тройку.
148 ИвановИван
 
28.11.05
17:04
(146, 147) все вопросы по данном вопросу к Волшебнику... Понимать буквально
149 Dulsineя
 
28.11.05
17:07
150 goodfella
 
28.11.05
17:11
(149) Тань, а зачем это?
151 Dulsineя
 
28.11.05
17:14
(150) я не "Тань"!
152 Скользящий
 
28.11.05
17:15
(148) Орган, и даже без сертификата. :-(
153 Zanuda
 
28.11.05
17:16
(148) А при чем тут Волшебник?
154 Парижская фанера
 
28.11.05
17:19
(152) Гы-гы
155 goodfella
 
28.11.05
17:20
(151) Ладно, Таня.
156 Лошадка в пальто
 
28.11.05
17:20
(153) а это Ванько завуалированно нах посылает...
157 ИвановИван
 
28.11.05
18:42
(153) это он забил ветку, а пять раз рассказывать лень
(156) 28 ноября Лошадка назвала меня Ванько, с этого дня жизнь удалась
Программист всегда исправляет последнюю ошибку.