Договорилась о встрече с Ириной на следующую неделю. Потребности у нее: хороший бухгалтер за 15-20 тысяч (с перспективой повышения оклада). Налоговая оптимизация, наличные. По 1С-ке обещала ей выслать регламент архивирования программы. Она сама спросила про оплату - я сказала, что в первый выезд оплатит только такси - 380 рублей.
четверг, 3 марта 2011 г.
среда, 2 марта 2011 г.
IT-Мастерская
Нам наконец-то починили самый старый 24" монитор.
Ярлыки:
жизнь в городе,
муж,
планы,
радость,
самозанятость,
IT-Мастерская
вторник, 1 марта 2011 г.
Сегодня впервые разрабатывала программу в деревне. Ценность: самореализация
| Это моя программа, как ее видит пользователь |
А так выглядит текст процедуры печати бланка План переговоров
Процедура ОсновныеДействияФормыПлан(Кнопка)
естьБланк=Ложь;
Для каждого б из бланки цикл
Если (б.Бланк.Предопределенный=Истина) и (СтрЧислоВхождений(б.Бланк.Код,"переговоры")>0) тогда
СТэги=б.Бланк.НаборТэгов.Тэги.Выгрузить();
естьбланк=истина;
КонецЕсли;
КонецЦикла;
Если естьБланк=Ложь Тогда
сообщить("Не выбран бланк");
Возврат;
КонецЕсли;
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("План");
ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
//// Именуем области////////////////////////////////////////////
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьВизит = Макет.ПолучитьОбласть("Визит");
ОбластьШапкаУсловия = Макет.ПолучитьОбласть("ШапкаУсловие");
ОбластьСтрокаУсловие=Макет.ПолучитьОбласть("Условие");
ОбластьЗаголовокЦель=Макет.ПолучитьОбласть("ЗаголовокЦель");
ОбластьШапкаЦель=Макет.ПолучитьОбласть("ШапкаЦель");
ОбластьСтрокаЦель=Макет.ПолучитьОбласть("Цель");
ОбластьЗаголовокТема=Макет.ПолучитьОбласть("ЗаголовокТема");
ОбластьШапкаТема=Макет.ПолучитьОбласть("ШапкаТема");
ОбластьСтрокаТема=Макет.ПолучитьОбласть("Тема");
ОбластьПотребности=Макет.ПолучитьОбласть("СкрытыеПотребности");
ОбластьПерспективы=Макет.получитьОбласть("Перспективы");
ОбластьХозяйство=Макет.получитьОбласть("Хозяйство");
ОбластьФинансы=Макет.получитьОбласть("Финансы");
ОбластьПроблемы=Макет.получитьОбласть("ПроблемыЗадачи");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ОбластьВизит.Параметры.Регион=Регион;
ОбластьВизит.Параметры.Контрагент=Контрагент;
ОбластьВизит.Параметры.Менеджер=Менеджер;
ФИО="";
Для Каждого Кон из Контакты Цикл
ФИО=ФИО+Строка(кон.Контакт.Наименование)+" ("+кон.Контакт.Должность+")"+"тел:"+кон.Контакт.ТелефонРабочий+" ; ";
КонецЦикла;
ОбластьВизит.Параметры.Контакт=ФИО;
ОбластьВизит.Параметры.ДатаСобытия=лев(Дата,16);
ТабДок.Вывести(ОбластьВизит);
ТабДок.Вывести(ОбластьШапкаУсловия);
////////////////////////////вывод строк условия////////////
Для Каждого нс из СТэги Цикл
печ="-";
Запрос=Новый запрос("ВЫБРАТЬ Досье.Тэг, Досье.Значение ИЗ РегистрСведений.Досье КАК Досье ГДЕ Досье.Клиент = &Клиент И Досье.Тэг = &Тэг И Досье.Тэг.МножественныеЗначения = &ВыбЗначение");
Запрос.УстановитьПараметр("Клиент",Контрагент);
Запрос.УстановитьПараметр("Тэг",нс.Тэг);
Запрос.УстановитьПараметр("ВыбЗначение",Ложь);
Результат=Запрос.Выполнить();
//ОбластьТэг.Параметры.ЗначениеТэга=Результат;
ТР=Результат.Выгрузить();
со =Новый Структура("Тэг"); // структура отбора
Для каждого тс из ТР Цикл
печ="-";
со.Тэг=тс.Тэг;
к=ТР.НайтиСтроки(со);
ном=1;
Для каждого тк из к Цикл
Если Ном=1 Тогда
печ=Строка(тк.Значение);
Иначе
Печ=Печ+", "+Строка(тк.Значение);
КонецЕсли;
Ном=Ном+1;
КонецЦикла;
КонецЦикла;
ОбластьСтрокаУсловие.Параметры.ИмяТэга=нс.Тэг.Наименование;
ОбластьСтрокаУсловие.Параметры.ЗначениеТэга=печ;
ТабДок.Вывести(ОбластьСтрокаУсловие);
КонецЦикла;
////////////////////////////////////////
ТабДок.Вывести(ОбластьЗаголовокЦель);
ТабДок.Вывести(ОбластьШапкаЦель);
Для каждого ц из Цели Цикл
ОбластьСтрокаЦель.Параметры.ЦельПереговоров=ц.ЦельПереговоров.Наименование;
ОбластьСтрокаЦель.Параметры.тип=ц.ТипЦели;
ОбластьСтрокаЦель.Параметры.Формулировка=ц.ЦельПереговоров.Формулировка;
ТабДок.Вывести(ОбластьСтрокаЦель);
КонецЦикла;
////////////////////////////вывод строк цель////////////
ТабДок.Вывести(ОбластьЗаголовокТема);
ТабДок.Вывести(ОбластьШапкаТема);
////////////////////////////вывод строк тема////////////
Для каждого т из Темы Цикл
ОбластьСтрокаТема.Параметры.ТемаОбсуждения=т.Тема;
ОбластьСтрокаТема.Параметры.формат=т.Формат;
ОбластьСтрокаТема.Параметры.Аргументы=т.Преимущества;
ТабДок.Вывести(ОбластьСтрокаТема);
КонецЦикла;
ТабДок.Вывести(ОбластьХозяйство);
ТабДок.Вывести(ОбластьФинансы);
ТабДок.Вывести(ОбластьПерспективы);
ТабДок.Вывести(ОбластьПотребности);
ТабДок.Вывести(ОбластьПроблемы);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
естьБланк=Ложь;
Для каждого б из бланки цикл
Если (б.Бланк.Предопределенный=Истина) и (СтрЧислоВхождений(б.Бланк.Код,"переговоры")>0) тогда
СТэги=б.Бланк.НаборТэгов.Тэги.Выгрузить();
естьбланк=истина;
КонецЕсли;
КонецЦикла;
Если естьБланк=Ложь Тогда
сообщить("Не выбран бланк");
Возврат;
КонецЕсли;
ТабДок = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("План");
ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
//// Именуем области////////////////////////////////////////////
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьВизит = Макет.ПолучитьОбласть("Визит");
ОбластьШапкаУсловия = Макет.ПолучитьОбласть("ШапкаУсловие");
ОбластьСтрокаУсловие=Макет.ПолучитьОбласть("Условие");
ОбластьЗаголовокЦель=Макет.ПолучитьОбласть("ЗаголовокЦель");
ОбластьШапкаЦель=Макет.ПолучитьОбласть("ШапкаЦель");
ОбластьСтрокаЦель=Макет.ПолучитьОбласть("Цель");
ОбластьЗаголовокТема=Макет.ПолучитьОбласть("ЗаголовокТема");
ОбластьШапкаТема=Макет.ПолучитьОбласть("ШапкаТема");
ОбластьСтрокаТема=Макет.ПолучитьОбласть("Тема");
ОбластьПотребности=Макет.ПолучитьОбласть("СкрытыеПотребности");
ОбластьПерспективы=Макет.получитьОбласть("Перспективы");
ОбластьХозяйство=Макет.получитьОбласть("Хозяйство");
ОбластьФинансы=Макет.получитьОбласть("Финансы");
ОбластьПроблемы=Макет.получитьОбласть("ПроблемыЗадачи");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ОбластьВизит.Параметры.Регион=Регион;
ОбластьВизит.Параметры.Контрагент=Контрагент;
ОбластьВизит.Параметры.Менеджер=Менеджер;
ФИО="";
Для Каждого Кон из Контакты Цикл
ФИО=ФИО+Строка(кон.Контакт.Наименование)+" ("+кон.Контакт.Должность+")"+"тел:"+кон.Контакт.ТелефонРабочий+" ; ";
КонецЦикла;
ОбластьВизит.Параметры.Контакт=ФИО;
ОбластьВизит.Параметры.ДатаСобытия=лев(Дата,16);
ТабДок.Вывести(ОбластьВизит);
ТабДок.Вывести(ОбластьШапкаУсловия);
////////////////////////////вывод строк условия////////////
Для Каждого нс из СТэги Цикл
печ="-";
Запрос=Новый запрос("ВЫБРАТЬ Досье.Тэг, Досье.Значение ИЗ РегистрСведений.Досье КАК Досье ГДЕ Досье.Клиент = &Клиент И Досье.Тэг = &Тэг И Досье.Тэг.МножественныеЗначения = &ВыбЗначение");
Запрос.УстановитьПараметр("Клиент",Контрагент);
Запрос.УстановитьПараметр("Тэг",нс.Тэг);
Запрос.УстановитьПараметр("ВыбЗначение",Ложь);
Результат=Запрос.Выполнить();
//ОбластьТэг.Параметры.ЗначениеТэга=Результат;
ТР=Результат.Выгрузить();
со =Новый Структура("Тэг"); // структура отбора
Для каждого тс из ТР Цикл
печ="-";
со.Тэг=тс.Тэг;
к=ТР.НайтиСтроки(со);
ном=1;
Для каждого тк из к Цикл
Если Ном=1 Тогда
печ=Строка(тк.Значение);
Иначе
Печ=Печ+", "+Строка(тк.Значение);
КонецЕсли;
Ном=Ном+1;
КонецЦикла;
КонецЦикла;
ОбластьСтрокаУсловие.Параметры.ИмяТэга=нс.Тэг.Наименование;
ОбластьСтрокаУсловие.Параметры.ЗначениеТэга=печ;
ТабДок.Вывести(ОбластьСтрокаУсловие);
КонецЦикла;
////////////////////////////////////////
ТабДок.Вывести(ОбластьЗаголовокЦель);
ТабДок.Вывести(ОбластьШапкаЦель);
Для каждого ц из Цели Цикл
ОбластьСтрокаЦель.Параметры.ЦельПереговоров=ц.ЦельПереговоров.Наименование;
ОбластьСтрокаЦель.Параметры.тип=ц.ТипЦели;
ОбластьСтрокаЦель.Параметры.Формулировка=ц.ЦельПереговоров.Формулировка;
ТабДок.Вывести(ОбластьСтрокаЦель);
КонецЦикла;
////////////////////////////вывод строк цель////////////
ТабДок.Вывести(ОбластьЗаголовокТема);
ТабДок.Вывести(ОбластьШапкаТема);
////////////////////////////вывод строк тема////////////
Для каждого т из Темы Цикл
ОбластьСтрокаТема.Параметры.ТемаОбсуждения=т.Тема;
ОбластьСтрокаТема.Параметры.формат=т.Формат;
ОбластьСтрокаТема.Параметры.Аргументы=т.Преимущества;
ТабДок.Вывести(ОбластьСтрокаТема);
КонецЦикла;
ТабДок.Вывести(ОбластьХозяйство);
ТабДок.Вывести(ОбластьФинансы);
ТабДок.Вывести(ОбластьПерспективы);
ТабДок.Вывести(ОбластьПотребности);
ТабДок.Вывести(ОбластьПроблемы);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
КонецПроцедуры
Ярлыки:
жизнь за городом,
личное,
самозанятость,
ЦЕННОСТИ,
IT-Мастерская
суббота, 26 февраля 2011 г.
пятница, 25 февраля 2011 г.
Заблудилась
Намаявшись в Пенсионном фонде села у Дворца Молодежи вместо 14 автобуса на 014 :-) В итоге от Бебеля 33 до Крауля 9 (там Райффайзен банк) топала пешком, у Райффайзена меня Кирилл на машине встретил. По Бебелевскому мосту шел поток машин и один пешеход в моем лице. Как раз когда переходила Бебеля позвонила риелтор из Первоуральска - пыталась убедить меня приехать показать квартиру.
.... Думала о том , что надо все-таки получить права.
.... Думала о том , что надо все-таки получить права.
Предприниматель и Пенсионный фонд
24 числа зашла в Пенсионный 1 раз: посмотрела расписание работы и объявление о том , что 1 отчет не принимают без другого.
Второй отчет у меня не был заполнен, так что я развернулась и ушла.
На сегодня вызвала такси к 8 утра. Диспетчер позвонила 7-48 и сказала, что не могут найти машину. В итоге я доехала в Пенсионный на автобусе только к 8-46. С отчетом в кабинеть 201 попала спустя 40 минут, выяснила, что мой платеж зачислен на неверный КБК.
Правильный КБК для индивидуального предпринимателя (страховая часть пенсии):
392 102 02100 06 1000 160
А я заплатила на КБК юр. лица.
На реплику о том, что это моя ошибка, я сказал, что если бы у меня были образцы - не было бы ошибки. И в следующий раз я не буду платить взнос во время. Дождусь, когда они мне вышлют образцы . Кстати, образцы мне сразу выдали :-)
Отметку о сдаче отчета мне поставили.
Еще 40 минут просидела на сверку, для того, чтобы написать заявление о переводе с одного КБК на другой.В итое уложилась в полтора часа :-). Плюс спустя 10 дней нужно будет снова идти с отчетом.
День я потратила, чтобы самостоятельно разобраться с расчетом и уплатой взносов.
Еще не меньше чем полдня на заполнение отчетов.
День уйдет на сдачу отчета, если сдашь с первого раза.
Итого на взаимодействие с пенсионным я потрачу дня 4 в год :-)
В декабре 2011 надо будет съездить в пенсионный и сфотографировать все их образцы.
Второй отчет у меня не был заполнен, так что я развернулась и ушла.
На сегодня вызвала такси к 8 утра. Диспетчер позвонила 7-48 и сказала, что не могут найти машину. В итоге я доехала в Пенсионный на автобусе только к 8-46. С отчетом в кабинеть 201 попала спустя 40 минут, выяснила, что мой платеж зачислен на неверный КБК.
Правильный КБК для индивидуального предпринимателя (страховая часть пенсии):
392 102 02100 06 1000 160
А я заплатила на КБК юр. лица.
На реплику о том, что это моя ошибка, я сказал, что если бы у меня были образцы - не было бы ошибки. И в следующий раз я не буду платить взнос во время. Дождусь, когда они мне вышлют образцы . Кстати, образцы мне сразу выдали :-)
Отметку о сдаче отчета мне поставили.
Еще 40 минут просидела на сверку, для того, чтобы написать заявление о переводе с одного КБК на другой.В итое уложилась в полтора часа :-). Плюс спустя 10 дней нужно будет снова идти с отчетом.
День я потратила, чтобы самостоятельно разобраться с расчетом и уплатой взносов.
Еще не меньше чем полдня на заполнение отчетов.
День уйдет на сдачу отчета, если сдашь с первого раза.
Итого на взаимодействие с пенсионным я потрачу дня 4 в год :-)
В декабре 2011 надо будет съездить в пенсионный и сфотографировать все их образцы.
Ярлыки:
бюрократия,
личное,
планы,
самозанятость,
тревога
четверг, 24 февраля 2011 г.
Деловой центр
Сегодня удачно съездила вместе с Кириллом в "деловой центр" города.
Зашла в Пенсионный и Райффайзен на Вайнера. Пока Кирилл покупал комплектующие в магазине на Белинского- я зашла к клиентам в офис. Очень плодотворно побеседовали.
Маша на прощание сказала : "Татьяна, ты заходишь к нам не на долго!" Алена Ивановна заинтересовалась нашими с Машей беседами : "Почему Вы меня не привлекаете?"
Я обещала прийти в понедельник. Когда пришла домой сразу занесла всю информацию в блог. Потом распечатаю и в выходные за городом буду разрабатывать программу.
Зашла в Пенсионный и Райффайзен на Вайнера. Пока Кирилл покупал комплектующие в магазине на Белинского- я зашла к клиентам в офис. Очень плодотворно побеседовали.
Маша на прощание сказала : "Татьяна, ты заходишь к нам не на долго!" Алена Ивановна заинтересовалась нашими с Машей беседами : "Почему Вы меня не привлекаете?"
Я обещала прийти в понедельник. Когда пришла домой сразу занесла всю информацию в блог. Потом распечатаю и в выходные за городом буду разрабатывать программу.
Ярлыки:
бизнес-коммуникации,
муж,
планы,
радость,
самозанятость
Подписаться на:
Сообщения (Atom)



