Имя: Пароль:
1C
1С v8
Это что за технологии древлян?
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) и слава богу))
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.