Modern Talking

Репутация

Если рассказать клиентам о внутренних проблемах своей компании, как причину невыполненной работы, то свою репутацию можно смело похоронить.

Сегодня настал тот день, когда моя репутация была подорвана очень и очень сильно.
Наверное потребуется месяцы, чтобы ее восстановить до прежнего уровня.

1С:Предприятие Расчет

Начал обновлять распределенные базы клиентам, в конфигурации ничего глобального не сделал, за одним исключением - добавил субсчет 71.2. Обновил конфигурацию, программа в некоторых (! не во всех) филиалах предложила пересчитать бух.итоги, так как изменился план счетов. После этого все итоги стали не верными, анализ счета по субконто начал показывать "красноту". Сделал полный пересчет бух. итогов - все встало на места свои. Ужас, не понимаю вообще почему так произошло, но обновление конфигурации займет не час (запланировано), а несколько часов (факт).

Ненавижу бухгалтерию.

Дополнительный функционал с таблицей значений

Задача:
Найти значение в Таблице Значений по заданному критерию - совпадение по выбранным колонкам и вернуть значение указанной колонки.
Например, Таблица значений содержит 3 колонки - Наименование, Цвет, Цена. Условие "Наименование = Тюльпан, Цвет = Красный", получить "Цена".
Код на встроенном языке 1С:Предприятие 7.7 (позже будет доступен класс для 1С++ и функционал для 1С:Предприятие 8.x).
Условие задаются в виде списка значений (_Условия = СоздатьОбъект("СписокЗначений"))

Функция НайтиЗначениеВ_ТЗ(АТЗ, АЗначения, АКолонкаРезультат)
 _ТС = 0;
 АТЗ.ВыбратьСтроки();
 Пока АТЗ.ПолучитьСтроку() > 0 Цикл
  _ТС = _ТС + 1;
  _Найдено = 1;
  Для Сч = 1 По АЗначения.РазмерСписка() Цикл
   _Стр = "";
   _Знач = АЗначения.ПолучитьЗначение(Сч, _Стр);
   Если АТЗ.ПолучитьЗначение(_ТС, _Стр) <> _Знач Тогда
    _Найдено = 0;
    Прервать;
   КонецЕсли;
  КонецЦикла;
  Если _Найдено = 1 Тогда
   Возврат АТЗ.ПолучитьЗначение(_ТС, АКолонкаРезультат);
  КонецЕсли;

 КонецЦикла;
 Возврат ПолучитьПустоеЗначение();
КонецФункции

Пример использования

 ТЗ = СоздатьОбъект("ТаблицаЗначений");
 ТЗ.НоваяКолонка("Номенклатура");
 ТЗ.НоваяКолонка("Цвет");
 ТЗ.НоваяКолонка("Тип");
 ТЗ.НоваяКолонка("Колво");

 Для Сч = 1 по 10 Цикл
  ТЗ.НоваяСтрока();
  ТЗ.Номенклатура = "Ном " + Строка(Сч);
  ТЗ.Цвет = "Цвет " + Строка(Сч);
  ТЗ.Тип = "Тип " + Строка(Сч);
  ТЗ.Колво = Сч;
 КонецЦикла;
 _СЗ = СоздатьОбъект("СписокЗначений");
 _СЗ.ДобавитьЗначение("Ном 3", "Номенклатура");
 _СЗ.ДобавитьЗначение("Цвет 3", "Цвет");
 _СЗ.ДобавитьЗначение("Тип 3", "Тип");

 Сообщить(НайтиЗначениеВ_ТЗ(ТЗ, _СЗ, "Колво"));

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

Продолжение смотрим вот тут (http://fzdev.ru/weblog/)

Бухгалтерия

Это конечно ужасно, но я начал потихоньку вникать в бухгалтерию. В план счетов, в проводки и прочую ерунду.
Конечно сам бы никогда не подорвался, но сотрудники начинают динамить и кидать с работой (странно, ведь они же за это не получат денег), вот и приходится работать за них.

Оптимист

Оптимист - это человек, который не желает замечать правды.

Пессимист

Пессимист – это человек, который жалуется на шум, когда к нему в дверь
стучится удача.