Имя: Пароль:
1C
1С v8
Это что за технологии древлян?
privetik, dnab, Гипервизор, toypaul, Джордж1, Prog_man, FirstLineSupport, Чужой, ads55, firenze600, Широкий, Mraque, p-soft, X Leshiy, novichok79, Fregat, dchumak, diamkms, butterbean, Krendel, kir-g, zzz_zzz_zzz, AndreyZhukov, Fedor-1971, StarPer, nick86, Sserj, Builder, DiMel_77, Rovan, Mihenius, Fish, Мультук, Crusher, Irbis, zxc, obs191, Lama12, DimVad, vbus, 1cVandal, Климов Сергей, ОбновляторОдинЭс, John D, avkynev, ptiz, lubitelxml, mishaPH, golem14, paramedic, Бешеный заяц, ADirks, KJlag, Ногаминебить, icipher, inkvizitr, Волшебник, Serpuh, vladko, Garikk, tomvlad, Кир Пластелинин, mortal, Lazy Stranger, tir654, Tefal, Aloex, ДенисСмирнов, НаборДанных, Double_Medved, Philix, maxab72, бегинер, orakool, K1RSAN, Silgis, Amra, Stepashkin, Timon1405, Галахад, maxar, СеньорПрограммист, Доминошник, CepeLLlka, Михаил_, dva1c, vis, trdm, Ненавижу 1С, sikuda, s_trikozin, arsik, Ёпрст, mgreat, Indian, PLUT, Mankubus, jack777, PR, integer, Dotoshin, Homer, Новиков, ansh15, Kigo_Kigo, АгентБезопаснойНацио, Hmster, Бычье сердце, Шурик71, eklmn, Trucker, Phace, АЛьФ, Fragster, den_oren, Михаил Козлов, Vstur, craxx, evorle145, elka302, Telcher, okmail, RAJAH, El_Duke, 2S, Sanchez_22, Хряк, Elf_80_lvl, rbcvg, d4rkmesa, ryutao, kupec, ANDRU48, Жеглофф, RomanYS, END, kuromanlich, Arh01, zva, Затейник, yurikmellon2, TormozIT, NV_corp, boev82, ReaLg, Winnie Buh
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:&НаКлиентеНаСервере
Господин ПЖ: лучше сразу:
&ИменемБорисаНуралиеваВыполнисьГдеБыНиБыл" :)