Re[2]: индусский код (Боян)
От: dfdk  
Дата: 22.03.10 14:46
Оценка: :))) :))) :))) :)))
B>Напомнило, что. При всём уважении к сей платформе, не могу не процитировать 

СформироватьСчетаФактуры(Ложь, Ложь, Ложь)

[url=http://zuiki.livejournal.com/2394888.html]отсюда[url]
... << RSDN@Home 1.2.0 alpha 4 rev. 1238>>
Re[2]: индусский код (Боян)
От: Muxa  
Дата: 22.03.10 11:24
Оценка: :))) :)
B>При всём уважении к сей платформе, не могу не процитировать
оттудажа

Реальный медитативный пример из 1С 7.7.
Процедура ОбработкаВнешнегоСобытия(Кто,Что,Зачем)
    Если Кто="LRC_Modem" Тогда
        Если Что="LRC_Modem" Тогда
            Сообщить(Зачем);
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры //ОбработкаВнешнегоСобытия

Реальный медитативный пример из 1С 8.1
СхемаКомпоновкиДанных = ПолучитьМакет("ФактЗатрат");
КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
ЗУП_ТиповыеОтчеты.УстановитьПараметр(КомпоновщикНастроек, "ОбъектЗатрат", Ссылка);
 
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, , ДанныеРасшифровки);
ДокументРезультат = ЭлементыФормы.ТабличныйДокументЗатратыФакт;
ДокументРезультат.Очистить();
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
Re: индусский код (Боян)
От: baranovda Российская Империя  
Дата: 22.03.10 10:58
Оценка: :))
Здравствуйте, ZAMUNDA, Вы писали:

ZAM>Разбираю конвертер один, на VBA писаный. Незнаю на сколько боян, но меня улыбнуло:

Напомнило, чтона лёркмо таки завелась статья про 1С. При всём уважении к сей платформе, не могу не процитировать 

| КОНЕЦ) КАК ПросроченоПиздецКак,
| СУММА(ВложенныйЗапрос.СуммаОстаток) КАК ДебиторкаВся,
| ВложенныйЗапрос.Договор.СрокОплатыПоДоговору КАК СрокОплаты,
| ВложенныйЗапрос.Сделка.Ответственный КАК Менеджер
|ИЗ
индусский код (Боян)
От: ZAMUNDA Земля для жалоб и предложений
Дата: 22.03.10 10:41
Оценка: :)
Разбираю конвертер один, на VBA писаный. Незнаю на сколько боян, но меня улыбнуло:

    If (False = res Or errcnt > 0) And Me.cbIgnoreErrors <> True And Me.Фл_до_конца Then
    ' ... '
    End If
Наука изощряет ум; ученье вострит память.
(c) Козьма Прутков
Re[3]: индусский код (Боян)
От: makdak  
Дата: 22.03.10 13:23
Оценка:
Здравствуйте, Muxa, Вы писали:

B>>При всём уважении к сей платформе, не могу не процитировать
M>оттудажа

M>Реальный медитативный пример из 1С 7.7.
M>
M>Процедура ОбработкаВнешнегоСобытия(Кто,Что,Зачем)
M>    Если Кто="LRC_Modem" Тогда
M>        Если Что="LRC_Modem" Тогда
M>            Сообщить(Зачем);
M>        КонецЕсли;
M>    КонецЕсли;
M>КонецПроцедуры //ОбработкаВнешнегоСобытия
M>

M>Реальный медитативный пример из 1С 8.1
M>
M>СхемаКомпоновкиДанных = ПолучитьМакет("ФактЗатрат");
M>КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
M>КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
M>ЗУП_ТиповыеОтчеты.УстановитьПараметр(КомпоновщикНастроек, "ОбъектЗатрат", Ссылка);
 
M>ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
M>КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
M>МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);
M>ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
M>ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, , ДанныеРасшифровки);
M>ДокументРезультат = ЭлементыФормы.ТабличныйДокументЗатратыФакт;
M>ДокументРезультат.Очистить();
M>ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
M>ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
M>ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
M>



второй пример е осилил, потому что это стёб.
Re[4]: индусский код (Боян)
От: DenisCh Россия  
Дата: 22.03.10 19:45
Оценка:
Здравствуйте, makdak, Вы писали:

M>>Реальный медитативный пример из 1С 8.1
M>>
M>>СхемаКомпоновкиДанных = ПолучитьМакет("ФактЗатрат");
M>>КомпоновщикНастроек = Новый КомпоновщикНастроекКомпоновкиДанных;
M>>КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
M>>ЗУП_ТиповыеОтчеты.УстановитьПараметр(КомпоновщикНастроек, "ОбъектЗатрат", Ссылка);
M>>ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;
M>>КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
M>>МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.Настройки, ДанныеРасшифровки);
M>>ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
M>>ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, , ДанныеРасшифровки);
M>>ДокументРезультат = ЭлементыФормы.ТабличныйДокументЗатратыФакт;
M>>ДокументРезультат.Очистить();
M>>ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
M>>ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
M>>ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
M>>


M>второй пример е осилил, потому что это стёб.

С чего бы?
... << RSDN@Home 1.2.0 alpha rev. 741>>
Re[5]: индусский код (Боян)
От: makdak  
Дата: 23.03.10 04:58
Оценка:
Здравствуйте, DenisCh, Вы писали:
DC>С чего бы?

а что это? Не явный стеб!?
Re[6]: индусский код (Боян)
От: DenisCh Россия  
Дата: 23.03.10 16:37
Оценка:
Здравствуйте, makdak, Вы писали:

DC>>С чего бы?
M>а что это? Не явный стеб!?

Нет, это реальный код.
... << RSDN@Home 1.2.0 alpha rev. 741>>
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.