Книга 4 из 5, рекомендую к прочтению. Книга подойдет для мужчин и женщин, советы и рекомендации для «Славных людей», а не только для «Славных парней». Моментами будет больно в тех местах в которых обнаруживаешь себя, захочется бросить книгу. Приятно будет читать главы с чертами характера с которыми удалось справится и побороть. Прочитав книгу и выполнив упражнения, можно качественно изменить жизнь, в одиночку будет сложно пройти этот путь, лучше обзавестись поддержкой. Группа поддержки описывается в каждой главе, более того в этих группах Гловер являлся наставником. Ищите друга которому доверяете, коуча или психолога, либо вторую половинку. Прочитать книгу мало, в каждой главе подразумевается большая работа над собой. Отмечу что в первой и второй часте книги есть мысли которые противоречат друг другу, а так же идеи которые невозможно принять, думаю из-за менталитета и особенности жизни в России.

Есть два типа людей: те, кто делает бэкап, и те, кто ЕЩЁ его не делает. мудрость на любом форуме про потерю данных Сегодня праздник world backup day — всемирный день резервного копирования. Это знак: сохраните всё важное прямо сейчас! Помню как-то раз у меня умер хард… с тех самых пор я научился зеркалить все в 2-3 места. Файлы в безопасности! Что использую я: 1с облачный архив — Сервис от 1с который позволяет хранить файлы и бекапы баз в облаке Яндекс.Диск — Копирую туда все важные файлы, разработки, базы и фотографии, часть папок обновляются в облаке автоматически GitHub — Клонирую туда все разработки, что-то в открытый доступ, что-то в закрытый. Так же храню там диаграммы которые рисую с помощью сервиса diagrams.net photos.google.com — Сливаю туда все фотографии так же как и в яндекс диск keep.google.com — Различные заметки к которым хочу всегда иметь доступ google docs — Облачные документы, облачные таблицы, удобно для общей работы Облачные сервисы которыми я не пользуюсь, но пользовался раньше: ...

Вот уже 6 дней работаю над собой и улучшаю свою жизнь. Открываю новые горизонты и собираю советы. Формирую полезные привычки и начинаю мечтать о все большем и большем. Продолжаю работать и собирать статистику для корректировки программы. Результат шестого дня: Совершил второе по сложности дело из всех возможных. Купил новую куртку. Пробежал 3 км, вроде легко далось. Корректировка программы тренировок — оставляю одну тренировку ног в месяц, добавлю 2-3 беговые тренировки в неделю. Научился работать с базой данных на языке Go, читать и записывать данные, а также устанавливать дополнительные библиотеки. На следующей неделе нужно закончить программу по проверки корректности паспортов. Опубликовал статью про работу 1с и excel, 5 способов взаимодействия, подойдет для тех кто учится программировать и для универсальной болванки для новых разработок и само автоматизации. Провел день с семьей — чистый кайф! Всем рекомендую!

Написана обработка в которой приведены все стандартные способы загрузить данные из excel. Скачать можно git и инфостарт. В конфигурации приведено 5 методов загрузки информации из Excel в 1с, нет лишних оберток. Отлично подходит как болванка, так и для обучению программированию. #Область OLEСервер &НаКлиенте Процедура ЗагрузкаНаСервереOLE(Команда) нФайл = Новый Файл(ИмяФайла); Если НЕ нФайл.Существует() Тогда Возврат; КонецЕсли; ДвоичДанные = Новый ДвоичныеДанные(ИмяФайла); ОбработкаОЛЕНаСервере(ДвоичДанные, нФайл.Расширение); КонецПроцедуры &НаСервере Процедура ОбработкаОЛЕНаСервере(ДвоичДанные, Расширение) ФайлЭксельНаСервере = ПолучитьИмяВременногоФайла(Расширение); ДвоичДанные.Записать(ФайлЭксельНаСервере); Попытка Эксель = Новый COMОбъект("Excel.Application"); Эксель.DisplayAlerts = 0; Эксель.Visible = 0; Исключение Return; КонецПопытки; // // Работаем с данными Excel // Эксель.Workbooks.Close(); Эксель.Application.Quit(); КонецПроцедуры #КонецОбласти #Область ВнешнийИсточникДанных &НаКлиенте Процедура ЗагрузкаСПомощьюВнешнегоИсточникаДанных(Команда) ЗагрузкаСПомощьюВнешнегоИсточникаДанныхНаСервере(); КонецПроцедуры &НаСервере Процедура ЗагрузкаСПомощьюВнешнегоИсточникаДанныхНаСервере() ПараметрыПодключения = Новый ПараметрыСоединенияВнешнегоИсточникаДанных; ПараметрыПодключения.СтрокаСоединения = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + ИмяФайла + ";"; ВнешниеИсточникиДанных.Excel.УстановитьОбщиеПараметрыСоединения(ПараметрыПодключения); ВнешниеИсточникиДанных.Excel.УстановитьСоединение(); Запрос = Новый Запрос("ВЫБРАТЬ | ExcelТаблицаТаблица1.КолонкаКод, | ExcelТаблицаТаблица1.Колонка2, | ExcelТаблицаТаблица1.Колонка3 КАК Колонка3 |ИЗ | ВнешнийИсточникДанных.Excel.Таблица.Таблица1 КАК ExcelТаблицаТаблица1 |ГДЕ | ExcelТаблицаТаблица1.Колонка3 > 1 |УПОРЯДОЧИТЬ ПО | Колонка3"); ТаблицаЭксельВ1с = Запрос.Выполнить().Выгрузить(); Для Каждого Стр Из ТаблицаЭксельВ1с Цикл Сообщить(Стр); // Обрабатываем КонецЦикла; КонецПроцедуры #КонецОбласти #Область OLEКлиент &НаКлиенте Процедура ЗагрузкаНаКлиентеOLE(Команда) Попытка Эксель = Новый COMОбъект("Excel.Application"); Эксель.DisplayAlerts = 0; Эксель.Visible = 0; Исключение Сообщить(ОписаниеОшибки()); Возврат; КонецПопытки; ЭксельКнига = Эксель.Workbooks.Open(ИмяФайла); КоличествоСтраниц = ЭксельКнига.Sheets.Count; // Перебираем все листы Для НомерЛиста = 1 По КоличествоСтраниц Цикл Лист = ЭксельКнига.Sheets(НомерЛиста); КоличествоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row; КоличествоКолонок = Лист.Cells(1, 1).SpecialCells(11).Column; // Перебираем строки Для НомерСтроки = 1 По КоличествоСтрок Цикл // Перебираем колонки Для НомерКолонки = 1 По КоличествоКолонок Цикл ЗначениеВЯчейке = Лист.Cells(НомерСтроки, НомерКолонки).Value; // ... Сообщить(ЗначениеВЯчейке); // Обрабатываем занчение // ... КонецЦикла; КонецЦикла; КонецЦикла; Эксель.Workbooks.Close(); Эксель.Application.Quit(); КонецПроцедуры #КонецОбласти #Область ТабличныйДокумент &НаСервере Процедура ЗагрузкаВТабличныйДокументНаСервере() табДок = Новый ТабличныйДокумент; Попытка табДок.Прочитать(ИмяФайла); Исключение Возврат; КонецПопытки; нТабзнч = Новый ТаблицаЗначений; нТабзнч.Колонки.Добавить("КолонкаКод", Новый ОписаниеТипов("Строка")); нТабзнч.Колонки.Добавить("Колонка2", Новый ОписаниеТипов("Строка")); нТабзнч.Колонки.Добавить("Колонка3", Новый ОписаниеТипов("Число")); КоличествоСтрок = табДок.ВысотаТаблицы; Для сч = 2 По КоличествоСтрок Цикл нСтр = нТабзнч.Добавить(); Попытка нСтр.КолонкаКод = Строка(табДок.ПолучитьОбласть("R" + Формат(сч, "ЧГ=0;") + "C" + 1).ТекущаяОбласть.Текст); нСтр.Колонка2 = Строка(табДок.ПолучитьОбласть("R" + Формат(сч, "ЧГ=0") + "C" + 2).ТекущаяОбласть.Текст); нСтр.Колонка3 = Число(табДок.ПолучитьОбласть("R" + Формат(сч, "ЧГ=0") + "C" + 3).ТекущаяОбласть.Текст); Исключение Сообщение = Новый СообщениеПользователю; Сообщение.Текст = "Не удалось загрузить строку " + Строка(сч); Сообщение.Сообщить(); КонецПопытки; КонецЦикла; КонецПроцедуры &НаКлиенте Процедура ЗагрузкаВТабличныйДокумент(Команда) ЗагрузкаВТабличныйДокументНаСервере(); КонецПроцедуры #КонецОбласти #Область ТабличныйДокументv2Построитель &НаКлиенте Процедура ЗагрузкаВТабличныйДокументv2(Команда) ЗагрузкаВТабличныйДокументНаСервереv2(); КонецПроцедуры &НаСервере Процедура ЗагрузкаВТабличныйДокументНаСервереv2() ТабДок = Новый ТабличныйДокумент; ТабДок.Прочитать(ИмяФайла); ОбластиТаб = ТабДок.Область(1, 1, ТабДок.ВысотаТаблицы, ТабДок.ШиринаТаблицы); Построитель = Новый ПостроительЗапроса; Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ОбластиТаб); Построитель.Выполнить(); ТабДанные = Построитель.Результат.Выгрузить(); Объект.Таблица1.Загрузить(ТабДанные); //Для Каждого Стр Из ТабДанные Цикл // Сообщить(стр); // Обрабатываем //КонецЦикла; КонецПроцедуры #КонецОбласти

Работая над собой добиваясь небольших целей захотелось добиваться не только малых целей, но и больших. Рекомендую всем мечтать. А я начну с того что установлю audi a5 изображением к этой записи. Откуда-то из космоса пришло осознание, что я каждый день работаю примером для ребенка — отличный повод становится лучше каждый день. День 4 Поставил рекорд за три минуты прыгнул 320 раз на прагалках Подтягивания 5 повторов Жим штанги от груди 60кг, по плану дойти проходкой до 80 и скорректировать программу, что бы пожать 12х80 Дописал парсинг файла паспортов на go День 5 Слова по английскому с 1204 продвинулся до 1271, за 5 дней выучено 67 слов поа идет бодрее чем я думал, посмотрим дней через 10 Установил PostgreSQL для дальнейшего изучения Go. Нужно научится писать в базу данных. Перевел одну страницу канбан гайда, оказалось это сложнее чем я думал Решено больше фотографировать, как-то надо поднять этот скил Решил распечатать некоторые свои мечты и повесить перед рабочим местом, попробую теорию про визуализацию. Решил с понедельника запускать небольшие мини-соревнования в инстаграм, будем становится лучше вместе.