Пытаюсь понять понять сколько может стоить на данный спец, загрузка 10 упд в день максимум в пике, по содержанию 20 наименований в каждой. Повторяемость 80% почти все от Лемана про. Просто колотить первичку в 1С, упд присылаю на мэйл, 1С в облаке, т.е. для работы нужен стабильный инет. Система 1С8 торговля и склад. Если есть доп. вопросы готов ответить.
По мотивам статьи на хабре "Реверс-инжиниринг 128-битного дракона".
Программа рисует кривую дракона, вид фрактальной кривой.
Конкретный данный вариант алгоритма известен тем, что энтузиаст смог уместить его в исполнимый файл под MS-DOS размером всего 16 байт.
&НаКлиенте
Перем Цвета, X, Y, counter, flag, МасштабВывода;
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Цвета = Новый Массив;
Цвета.Добавить(Новый Цвет(0, 0, 0));
Цвета.Добавить(Новый Цвет(0, 0, 128));
Цвета.Добавить(Новый Цвет(0, 128, 0));
Цвета.Добавить(Новый Цвет(0, 128, 128));
Цвета.Добавить(Новый Цвет(128, 0, 0));
Цвета.Добавить(Новый Цвет(128, 0, 128));
Цвета.Добавить(Новый Цвет(128, 128, 0));
Цвета.Добавить(Новый Цвет(192, 192, 192));
Цвета.Добавить(Новый Цвет(128, 128, 128));
Цвета.Добавить(Новый Цвет(0, 0, 255));
Цвета.Добавить(Новый Цвет(0, 255, 0));
Цвета.Добавить(Новый Цвет(0, 255, 255));
Цвета.Добавить(Новый Цвет(255, 0, 0));
Цвета.Добавить(Новый Цвет(255, 0, 255));
Цвета.Добавить(Новый Цвет(255, 255, 0));
Цвета.Добавить(Новый Цвет(255, 255, 255));
ШиринаХолста = 900;
ВысотаХолста = 700;
МасштабВывода = 0.25;
Холст.Область(, 1,, ШиринаХолста*МасштабВывода).ШиринаКолонки = 0.5;
Холст.Область(1,, ВысотаХолста*МасштабВывода).ВысотаСтроки = 2.75;
Холст.Область(1, 1, ВысотаХолста*МасштабВывода, ШиринаХолста*МасштабВывода).ЦветФона = Новый Цвет(0, 0, 0);
X = 255;
Y = 0;
counter = 16;
flag = false;
КонецПроцедуры
&НаКлиенте
Процедура ШагРисованияДракона()
Для Сч = 1 По 5000 Цикл
if (flag) then
counter = counter + 17;
else
counter = counter + 16;
endif;
flag = counter > 255;
counter = counter % 256;
if (flag) then
Y = Y - (X + 1);
else
Y = Y - X;
endif;
flag = (Y % 2 <> 0);
Y = Цел(Y / 2);
if (flag) then
Y = Y + 256;
endif;
if (X < 0 and Y < 0) then
flag = true;
elsif (X >= 0 and Y >= 0) then
flag = false;
else
flag = Макс(X, Y) >= АБС(Мин(X, Y));
endif;
X = Y + X;
putPixel(X, Y, counter);
КонецЦикла;
ПодключитьОбработчикОжидания("ШагРисованияДракона", 0.5, Истина);
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
Функция АБС(Икс)
Если Икс >= 0 Тогда
Возврат Икс;
Иначе
Возврат -Икс;
КонецЕсли;
КонецФункции
&НаКлиенте
Функция putPixel(x, y, colorIndex)
Цвет = Цвета[colorIndex % 15];
Холст.Область((y+351)*МасштабВывода, (x+201)*МасштабВывода).ЦветФона = Цвет;
КонецФункции
&НаКлиенте
Процедура НарисоватьДракона(Команда)
ШагРисованияДракона();
КонецПроцедуры
&НаКлиенте
Процедура Останов(Команда)
ОтключитьОбработчикОжидания("ШагРисованияДракона");
КонецПроцедуры
Работаю 1С программистом и хочу лучше понимать нужды пользователей и то, как весь этот учёт всего чего только можно работает в целом.
Книгу, в которой бы это подробно описывалось я, к сожалению, пока что не нашёл.
Как по мне переписки по корпоративной почте удобнее и практичнее:
1) Можно перечитать и ещё раз всё обдумать
2) Всегда можно посмотреть, что тебе ответили на твой вопрос и месяц и 3 назад (память штука несовершенная)
3) Все участники переписки могу тщательнее всё обдумать во время общения
4) Куда меньше хождений "вокруг да около", как бывает в устной речи
И т.д.
П.С. Я программист, если важно
Столкнулся со странностью, прошу совета.
Тонкий клиент, платформа 8.3.23.2040.
В клиентской процедуре нужно показать файл на форме, в другой клиентской процедуре - переименовать файл, файлы локально на клиенте.
Есть реквизит формы ПДФ с типом ДокументPDF, вынесен на форму в поле с видом Поле PDF документа.
Процедура П1()
_____ФайлПДФ = "какой-то файл";
_____ПДФ.Прочитать(ФайлПДФ);
КонецПроцедуры;
Процедура П2()
_____ПереместитьФайл(ФайлПДФ, ДругойФайл); //Просто так переименовать не получается - файл занят.
КонецПроцедуры;
Пробовал так:
Процедура П2()
_____ПустойПДФ = Новый ДокументPDF();
_____ПДФ = ПустойПДФ;
_____ПереместитьФайл(ФайлПДФ, ДругойФайл); //Всё равно выходит та же ошибка.
КонецПроцедуры;
Но если вставить серверный вызов, то всё работает.
Процедура П2()
_____ПустойПДФ = Новый ДокументPDF();
_____ПДФ = ПустойПДФ;
_____КакаяТоПроцедураНаСервере();
_____ПереместитьФайл(ФайлПДФ, ДругойФайл); //Работает идеально
КонецПроцедуры;
Дело не в задержке перед переименованием - ждал до минуты, не отпускает.
Была, когда вернулась из декрета. Наш дружный женский бездетный коллектив начал меня травить. Причем, самой заводилой была девочка, которую я же и учила перед уходом в декрет. Открытые наезды, спихивание на меня своих косяков, поливание грязью за спиной, но так, чтобы слышала. Просто откровенно выдавливали.
Не учли только, что я человек упертый до безумия, а место было выстраданное. Так что кровушки попили знатно, но со временем часть коллектива сама уволилась, а другая начала ко мне бегать советоваться. Т.е. коллектив я пересилила. Впрочем, теперь я считаю, что может оно и не стоило того. Нервы дороже!
Работаю 1С программистом. И, по совместительству, являюсь не любимым подчинённым своего начальника.
В целом, не буду делать вид, что я крутой специалист, которого не ценят, к сожалению, это не так (да и вообще это моя первая работа. Мой стаж около 2-х лет). Но всё же, справедливости ради, часто ко мне возникают претензии вида "как ты мог не предусмотреть, что нам понадобиться X", «почему ты не подумал, что сотрудники смежного направления будут долго делать Y и это повлияет на сроки выполнения проекта», «почему ты не позаботился о том, чтобы были составлены документы N для проекта» (о которых мне, конечно же, никто не сообщал и какой-либо справочной информации, где был бы их перечень у меня тоже нет) и т.д. Часто после этого я мысленно оглядываюсь назад и понимаю, что мне крайне сложно представить, каким образом я мог бы об этом догадаться (может будь у меня за спиной 4-5 серьёзных проектов, то мог бы, но это не так).
При этом, так как я работал почти исключительно с нетиповыми конфигурациями, скорее всего нигде больше я особо то и не нужен…
Уже давно читаю жалобы в духе «на собеседования идёт очень много людей, которые «накрутили себе опыт» и научились хорошо проходить собеседования (но не работать) – пробиться через них трудно даже хорошему специалисту».
Только недавно под своим постом читал комментарий в стиле «пиши в резюме что хочешь, проверять никто не будет». Хотя недавно под видео видел комментарий с противоположным мнением.
Я, в целом, нахожусь скорее с другой стороны ситуации, вполне реальный опыт работы программиста в трудовой у меня есть, но работу пока что не менял и собеседования давно не проходил.
По идее, ввиду вышенаписанного, просить выписку из трудовой для работодателя достаточно логично, но практика может сильно отличаться от теории
