|
|
Это что за технологии древлян?
diamkms, butterbean, Krendel, kir-g, Джордж1, zzz_zzz_zzz, AndreyZhukov, Fedor-1971, StarPer, nick86, ads55, Sserj, Builder, p-soft, Гипервизор, DiMel_77, Rovan, Mihenius, Prog_man, Fish, Мультук, Crusher, Irbis, zxc, obs191, Lama12, DimVad, vbus, 1cVandal, Климов Сергей, ОбновляторОдинЭс, John D, avkynev, ptiz, lubitelxml, mishaPH, golem14, paramedic, Бешеный заяц, ADirks, KJlag, Ногаминебить, icipher, inkvizitr, Волшебник, Serpuh, vladko, Garikk, toypaul, tomvlad, Кир Пластелинин, mortal, Lazy Stranger, tir654, Tefal, Aloex, Fregat, ДенисСмирнов, НаборДанных, Double_Medved, Philix, privetik, 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, FirstLineSupport, 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) Сейчас другой юмор: ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент и вот это вот всё.
|
|