|
|
Это что за технологии древлян?
maxab72, craxx, Мультук, Fedor-1971, furchia, Злопчинский, ДемьянТ, alexxx961503, calmius, StanyaGeya, lubitelxml, Tarlich, Жеглофф, H A D G E H O G s, PLUT, zzz_zzz_zzz, АгентБезопаснойНацио, tomvlad, Garikk, VladZ, Sabron, Gucci76, Serpuh, Fregat, Irbis, dmt, mTema32, Михаил_, dedmoroz777, akronim, zalexey, boozin, CepeLLlka, Климов Сергей, vis, asady, obs191, Гипервизор, evgen48, Ватт, _Batoo, Джордж1, PuhUfa, murfor, AlvlSpb, BMW1C, ptiz, runuts, ALCAPONA, roman383, мистер игрек, shuhard, ads55, Fish, Amra, evgeniy_n, , RomaH, Kongo2019, Sneer, Karamzin, корум, Garykom, АНДР, maxar, trad, ЕRPe, Галахад, GlRoznica, DeeK, Кирпич, Верещагин, d4rkmesa, bvb, ДенисСмирнов, SleepyHead, unenu, Михаил Козлов, Lama12, MWWRuza, den_oren, BOOL, Хряк, Dotoshin, LuckyStar, Гость из Мариуполя, kuromanlich, NV_corp, 2mugik, abfm, dnab, Анцеранана, Александр111, Prog_man, p-soft, arsik, privetik, toypaul, FirstLineSupport, Чужой, firenze600, Широкий, Mraque, X Leshiy, novichok79, dchumak, diamkms, butterbean, Krendel, kir-g, AndreyZhukov, StarPer, nick86, Sserj, Builder, DiMel_77, Rovan, Mihenius, Crusher, zxc, DimVad, vbus, 1cVandal, ОбновляторОдинЭс, John D, avkynev, mishaPH, golem14, paramedic, Бешеный заяц, ADirks, KJlag, Ногаминебить, icipher, inkvizitr, Волшебник, vladko, Кир Пластелинин, mortal, Lazy Stranger, tir654
| ☑ |
|
0
NV_corp
05.02.26
✎
08:37
|
10 лет работаю с 1С, а такой код вижу впервые. И ладно бы, это новомодное детище нейросети, 1с исполнителя или еще чего. Нет, это в примере КД2.1, который писался наверно еще до моего рождения:
ДатаИзмененияОбъекта = ДатаНачала;
Сообщить("Контрагенты");
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "
|ТекущийЭлемент = Справочник.Партнеры.ТекущийЭлемент;
|ДатаИзменения = Справочник.Партнеры.ДатаИзменения;
|Группировка ТекущийЭлемент;
|Условие(ДатаИзменения >= ДатаИзмененияОбъекта);";
Запрос.Выполнить(ТекстЗапроса);
Пока Запрос.Группировка(1) = 1 Цикл
ВыгрузитьПоПравилу(Запрос.ТекущийЭлемент, , , , "Контрагенты");
КонецЦикла;
|
|
|
1
Мультук
гуру
05.02.26
✎
08:40
|
(0)
Это код 7.7 и вроде (сколько помню) тут всё ок.
|
|
|
2
Fedor-1971
05.02.26
✎
09:16
|
(0) Это кусок правила выгрузки от КД2 из 1С 7.7
ДатаНачала - реквизит формы обработки выгрузки V77Exp.ert (в терминах 8)
дальше обход результатов и выгрузка данных
|
|
|
3
craxx
05.02.26
✎
09:25
|
(0) Здравствуй человек из будущего))) теперь ты познакомился с творчеством древних 1Сников.
"10 лет работаю с 1С, а такой код вижу впервые."
Даже завидую. Я 10 лет назад именно это разгребал.
|
|
|
4
Rovan
гуру
05.02.26
✎
09:28
|
(0) для это было как будто "вчера"
на самом деле 15-20 лет назад
|
|
|
5
craxx
05.02.26
✎
09:30
|
(4) местами и сейчас еще. Год назад одних переводил с ТиС.
|
|
|
6
Fedor-1971
05.02.26
✎
09:40
|
(4) 7.7 живее всех живых (почти как дедушка Ленин).
Слезают с неё крайне неохотно, особенно там, где выстроили процессы и допилили под себя
|
|
|
7
toypaul
гуру
05.02.26
✎
10:13
|
10 лет мало. 30 - вот это срок
|
|
|
8
vis
05.02.26
✎
10:24
|
Вот и выросло новое поколение
|
|
|
9
Stepashkin
05.02.26
✎
10:45
|
(8) Не говори)
|
|
|
10
ads55
05.02.26
✎
11:10
|
Вот ещё древнее технологии тех же "древлян" есть - http://old-dos.ru/files/file_1899.html
|
|
|
11
ptiz
05.02.26
✎
11:13
|
Чему удивляться, если выросло целое поколение, не умеющее работать даже с обычными формами 1С 8.
|
|
|
12
Джордж1
05.02.26
✎
11:44
|
Бухгалтерия 6.0
* Выясняем длину строки с ФИО
!П_ДлинаСтроки=СТРДЛИНА(П_СтрокаФИО)
* Выясняем количество символов в фамилии
* Для этого ищем позицию первого пробела
!ПорНомерСимвола=1
!ЦИКЛ ВЫД(П_СтрокаФИО\ПорНомерСимвола\1)<>" "
!* Крутим цикл, пока не встретим первый пробел
!ПорНомерСимвола=ПорНомерСимвола+1
!ВОЗВРАТ
* Выделяем подстроку с фамилией из строки ФИО
!П_Фамилия=ВЫД(П_СтрокаФИО\1\ПорНомерСимвола)
* Выделяем подстроку с именем и отчеством из строки ФИО
!П_ИмяОтчество=ВЫД(П_СтрокаФИО\ПорНомерСимвола+1\П_ДлинаСтроки-ПорНомерСимвола)
А вот так проводки создавались
!ВЫБРАТЬ СТРОКУ
!пСумма=СКД41:{|2}/СКД41:{|2}Н*ЗН|3
!* Дата; Д; К; Сумма; Содержание; Субк Д; Субк К; Кол
!ПРОВОДКА ЗН2; "90.2"; "41.1"; пСумма; "НК "+ЗН1+": "+СН{|2}+" по средней"; ЗН7; ЗН|2; ЗН|3
!СЛЕДУЮЩАЯ СТРОКА
|
|
|
13
Джордж1
05.02.26
✎
11:43
|
У нас в этом году юбилей 7-ки
Версия 7.0 вышла в 1996 году. Но вот не написано когда точно.
Кто-то знает?
|
|
|
14
ptiz
05.02.26
✎
11:51
|
(13) Интересно, создатели 7.0. и 7.7 на сколько лет жизни своего детища рассчитывали?
|
|
|
15
p-soft
05.02.26
✎
11:56
|
(14) они просто ошиблись. клюшки вычны! но заработать на них сложно, поэтому это удел бедных энтузиастов)
|
|
|
16
Krendel
05.02.26
✎
11:57
|
(15) также говорили и про фортран ;-)
|
|
|
17
Гипервизор
05.02.26
✎
12:00
|
(12) Т.е. СКД уже в 6.0 была. )
|
|
|
18
Lama12
05.02.26
✎
12:01
|
(17) Сальдо конечное дебетовое. 😎
|
|
|
19
Джордж1
05.02.26
✎
12:09
|
Когда я только начинал в 1997 мне знакомый описание встроенного языка Бухгалтерии 6.0 на 3-х страницах дал
Еще и с Бухгалтерией 5.0 под DOS пришлось поработать - там еще проще был язык и главное всего 1 субконто и формы не настраивались
А еще, к отцу на работу дяденька приехал в первой половине 90-х Зарплату (АиТ-Зарплата) и Бухгалтерию 5.0 под DOS внедрять.
И отец познакомил меня с этим небожителем.
А дяденька рассказывал что оно новую Волгу 31029 приобрел, что бы охрененно круто. У нас и компьютера то дома не было
(Помните хейт про Вадима и Короллу?)
|
|
|
20
p-soft
05.02.26
✎
12:06
|
(16) фортран - крутая тема была. но на винде он сдох. удивительно, что даже аксесс не особо жив.. хотя это у нас только наверное
|
|
|
21
Мультук
гуру
05.02.26
✎
12:06
|
А кто помнит такое? В официальном релизе было в ЗУП 7.7
//Если бы...
Функция ПодохНалог(Сумма)
Да, тогда программисты от 1С умели в шутки юмора
|
|
|
22
Джордж1
05.02.26
✎
12:08
|
(21)Еще с тех времен не перевариваю ЗиК и ЗУП.
Камин рулит
|
|
|
23
p-soft
05.02.26
✎
12:09
|
(21) и слава богу))
|
|
|
24
Гипервизор
05.02.26
✎
12:17
|
(21) Сейчас другой юмор: ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент и вот это вот всё.
|
|
|
25
X Leshiy
05.02.26
✎
12:42
|
(0) Салага)
|
|
|
26
ads55
05.02.26
✎
12:59
|
(24) Наткнулся в лурке, кажется это с Мисты -
"GROOVY: Событие "ПриИзменении" отрабатывает на клиенте, а не на сервере.
Крошка Ру: Предлагаю в 1С внедрить новую директиву:
&НаКлиентеНоЕслиЧоТоИНаСервере
специально для начинающих программистов
Fragster: ты не поверишь: &НаКлиентеНаСервереБезКонтекста
Fragster:&НаКлиентеНаСервере
Господин ПЖ: лучше сразу:
&ИменемБорисаНуралиеваВыполнисьГдеБыНиБыл" :)
|
|
|
27
H A D G E H O G s
05.02.26
✎
15:39
|
(0) Древние шизы основывают шизофазический уклад.
|
|
|
28
CepeLLlka
05.02.26
✎
16:24
|
(21)А как же #Вставить #КонецВставить?
Смешно же было, жаль отменили :)
|
|
|
29
Гипервизор
05.02.26
✎
16:34
|
(28) Ага, помню анонс на Зазеркалье. )
На производстве есть "короткие концы", так что не очень смешно.
|
|
|
30
maxab72
05.02.26
✎
17:00
|
(20) жив он. Только используется для того, для чего и предназначался - математические расчеты повышенной точности.
|
|
|
31
АгентБезопасной Нацио
05.02.26
✎
17:10
|
(20) фортран не сдох, и вполне активно развивается (последний стандарт на данный момент - fortran2023). Просто нишевый язык сейчас, для числодробления.
|
|
|
32
VladZ
05.02.26
✎
17:14
|
(0) А тебе это зачем?
Откопал - закопай обратно.
|
|
|
33
craxx
05.02.26
✎
18:23
|
(26) Эх, многих тут уже и на этом свете нету((
|
|