Подготовка отпуска

Отправила Людмиле запрос по стоимости отдыха. (по почте)

Розы

Праздники встречали с друзьями за городом

7- 8  марта в гости приезжали друзья , на пельмени.

 Тесто Кирилл приготовил еще 6 , 7 днем налепили 1 - ю порцию на обед :

Кирилл делает сочни

я леплю

одна из порций :-)

Обедаем

Во дворе.
 Было солнечно и довольно тепло, ходили гулять в лес.
Нагулявшись делали глинтвейн и греческий салат. Потом Маша показывала план ланшафтного дизайна нашего участка. Очень интересный. Споры о размерах бани продолжались до самого вечера.  Последнее слово осталось за Машей 5 на 7. Баня будет как раз между черемухой и березой (см. фото)

Вечерний мастер-класс по лепке пельменей.

Вечером все были уставшие и сонные.

Поздравления

3 марта тетушке исполнилось 78 лет, тетушка живет в своем доме на озере Валдай. Поздравляла ее по скайпу.

4 марта день рождения свекрови , она была в своем доме в Двуреченске, поздравляла ее по телефону.
Вечером договорились с друзьями, что 7 марта встречать будем у нас в доме в Дегтярске.

5 марта заехала в офис к своим клиентам - оставила красивенную коробку конфет и открытку Лене (директору компании)  Где она была - не знаю, поздравила ее смс-кой и получила ответное поздравление.  Сотрудниц с которыми я работаю: Марию и Марину - поздравила стихами по скайпу.
Вечером позвонил Вадим Лобанов - поздравил меня с 8 марта и честно признался , что не знает что это за праздник такой :-) Поздравляет заранее, т.к. 8 марта будет встречать на природе в лесу.

Потенциальные клиенты

Договорилась о встрече с Ириной на следующую неделю. Потребности у нее: хороший бухгалтер за 15-20 тысяч (с перспективой повышения оклада). Налоговая оптимизация, наличные. По 1С-ке обещала ей выслать регламент архивирования программы. Она сама спросила про оплату - я сказала, что в первый выезд оплатит только такси - 380 рублей.

IT-Мастерская

Нам наконец-то починили самый старый 24" монитор.

Рабочее место разработчика теперь выглядит так.

Теперь весь офис в гостиной. За ноутбуком я работаю с интернет-банками и учетными программами, переписываюсь с клиентами в скайпе, анализирую информацию в блогах и вообще занимаюсь всеми бумажными делами. Мечтаю увезти старые книжные шкафы в дом на 2 этаж , сделать в "мастерской" ремонт и удобные полки для хранения.

 

А это "филиал" IT-Мастерской за городом.

Сегодня впервые разрабатывала программу в деревне. Ценность: самореализация

Это моя программа, как ее видит пользователь

А так выглядит текст процедуры печати бланка План переговоров

Процедура ОсновныеДействияФормыПлан(Кнопка)
    естьБланк=Ложь;
    Для каждого б из бланки цикл
        Если (б.Бланк.Предопределенный=Истина) и (СтрЧислоВхождений(б.Бланк.Код,"переговоры")>0) тогда
            СТэги=б.Бланк.НаборТэгов.Тэги.Выгрузить();   
            естьбланк=истина;
        КонецЕсли;
    КонецЦикла;   
    Если естьБланк=Ложь Тогда
        сообщить("Не выбран бланк");
        Возврат;
    КонецЕсли;   
    ТабДок = Новый ТабличныйДокумент;
    Макет = ПолучитьМакет("План");
    ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;   
    //// Именуем области////////////////////////////////////////////
    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");   
    ОбластьВизит = Макет.ПолучитьОбласть("Визит");   
    ОбластьШапкаУсловия = Макет.ПолучитьОбласть("ШапкаУсловие");   
    ОбластьСтрокаУсловие=Макет.ПолучитьОбласть("Условие");
    ОбластьЗаголовокЦель=Макет.ПолучитьОбласть("ЗаголовокЦель");
    ОбластьШапкаЦель=Макет.ПолучитьОбласть("ШапкаЦель");
    ОбластьСтрокаЦель=Макет.ПолучитьОбласть("Цель");
    ОбластьЗаголовокТема=Макет.ПолучитьОбласть("ЗаголовокТема");
    ОбластьШапкаТема=Макет.ПолучитьОбласть("ШапкаТема");
    ОбластьСтрокаТема=Макет.ПолучитьОбласть("Тема");
    ОбластьПотребности=Макет.ПолучитьОбласть("СкрытыеПотребности");
    ОбластьПерспективы=Макет.получитьОбласть("Перспективы");
    ОбластьХозяйство=Макет.получитьОбласть("Хозяйство");
    ОбластьФинансы=Макет.получитьОбласть("Финансы");
    ОбластьПроблемы=Макет.получитьОбласть("ПроблемыЗадачи");
    ТабДок.Очистить();
    ТабДок.Вывести(ОбластьЗаголовок);
    ОбластьВизит.Параметры.Регион=Регион;
    ОбластьВизит.Параметры.Контрагент=Контрагент;
    ОбластьВизит.Параметры.Менеджер=Менеджер;
    ФИО="";
    Для Каждого Кон из Контакты Цикл
        ФИО=ФИО+Строка(кон.Контакт.Наименование)+" ("+кон.Контакт.Должность+")"+"тел:"+кон.Контакт.ТелефонРабочий+" ;  ";
    КонецЦикла;   
    ОбластьВизит.Параметры.Контакт=ФИО;   
    ОбластьВизит.Параметры.ДатаСобытия=лев(Дата,16);
    ТабДок.Вывести(ОбластьВизит);
   
    ТабДок.Вывести(ОбластьШапкаУсловия);   
    ////////////////////////////вывод строк условия////////////
    Для Каждого нс из СТэги Цикл
        печ="-";
        Запрос=Новый запрос("ВЫБРАТЬ     Досье.Тэг,    Досье.Значение ИЗ    РегистрСведений.Досье КАК Досье ГДЕ Досье.Клиент = &Клиент     И Досье.Тэг = &Тэг И Досье.Тэг.МножественныеЗначения = &ВыбЗначение");
        Запрос.УстановитьПараметр("Клиент",Контрагент);
        Запрос.УстановитьПараметр("Тэг",нс.Тэг);
        Запрос.УстановитьПараметр("ВыбЗначение",Ложь);
        Результат=Запрос.Выполнить();
        //ОбластьТэг.Параметры.ЗначениеТэга=Результат;
        ТР=Результат.Выгрузить();
        со =Новый Структура("Тэг"); // структура отбора
        Для каждого тс из ТР Цикл
            печ="-";
            со.Тэг=тс.Тэг;
            к=ТР.НайтиСтроки(со);   
            ном=1;
            Для каждого тк из к Цикл
                Если Ном=1 Тогда   
                    печ=Строка(тк.Значение);
                Иначе
                    Печ=Печ+", "+Строка(тк.Значение);
                КонецЕсли;                   
                Ном=Ном+1;       
            КонецЦикла;                   
        КонецЦикла;       
        ОбластьСтрокаУсловие.Параметры.ИмяТэга=нс.Тэг.Наименование;   
        ОбластьСтрокаУсловие.Параметры.ЗначениеТэга=печ;
        ТабДок.Вывести(ОбластьСтрокаУсловие);                                 
    КонецЦикла;   
    ////////////////////////////////////////
    ТабДок.Вывести(ОбластьЗаголовокЦель);   
    ТабДок.Вывести(ОбластьШапкаЦель);
    Для каждого ц из Цели Цикл
        ОбластьСтрокаЦель.Параметры.ЦельПереговоров=ц.ЦельПереговоров.Наименование;
        ОбластьСтрокаЦель.Параметры.тип=ц.ТипЦели;
        ОбластьСтрокаЦель.Параметры.Формулировка=ц.ЦельПереговоров.Формулировка;
        ТабДок.Вывести(ОбластьСтрокаЦель);
    КонецЦикла;   
    ////////////////////////////вывод строк цель////////////
    ТабДок.Вывести(ОбластьЗаголовокТема);
    ТабДок.Вывести(ОбластьШапкаТема);
    ////////////////////////////вывод строк тема////////////
    Для каждого т из Темы Цикл
        ОбластьСтрокаТема.Параметры.ТемаОбсуждения=т.Тема;
        ОбластьСтрокаТема.Параметры.формат=т.Формат;
        ОбластьСтрокаТема.Параметры.Аргументы=т.Преимущества;
        ТабДок.Вывести(ОбластьСтрокаТема);
    КонецЦикла;        
    ТабДок.Вывести(ОбластьХозяйство);
    ТабДок.Вывести(ОбластьФинансы);
    ТабДок.Вывести(ОбластьПерспективы);
    ТабДок.Вывести(ОбластьПотребности);
    ТабДок.Вывести(ОбластьПроблемы);
    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Истина;
    ТабДок.ОтображатьЗаголовки = Ложь;
    ТабДок.Показать();     
   
КонецПроцедуры