11
Рейтинг

Код
Функция СтрокаВДату(Знач ДатаСтрока) ОписаниеТипа = Новый ОписаниеТипов("Дата"); Результат = ОписаниеТипа.ПривестиЗначение(ДатаСтрока); Если ЗначениеЗаполнено(Результат) Тогда Возврат Результат; КонецЕсли; ПозицияПробела = СтрНайти(ДатаСтрока, " ", НаправлениеПоиска.СНачала); Если ПозицияПробела > 0 Тогда ДатаСтрока = Лев(ДатаСтрока, ПозицияПробела - 1); КонецЕсли; ДатаСтрока = СокрЛП(СтрЗаменить(ДатаСтрока, ".", "")); ДатаСтрока = СокрЛП(СтрЗаменить(ДатаСтрока, ",", "")); ДатаСтрока = СокрЛП(СтрЗаменить(ДатаСтрока, ":", "")); ДатаСтрока = СокрЛП(СтрЗаменить(ДатаСтрока, "/", "")); ДатаСтрока = СокрЛП(СтрЗаменить(ДатаСтрока, "-", "")); ДатаСтрока = Сред(ДатаСтрока, 5) + Сред(ДатаСтрока, 3, 2) + Лев(ДатаСтрока, 2); Если СтрДлина(ДатаСтрока) = 6 Тогда ДатаСтрока = "20" + ДатаСтрока; КонецЕсли; //ОписаниеТипа = Новый ОписаниеТипов("Дата"); Результат = ОписаниеТипа.ПривестиЗначение(ДатаСтрока); Возврат Результат; КонецФункции

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

   ДатаСтрока = Сред(ДатаСтрока, 5) + Сред(ДатаСтрока, 3, 2) + Лев(ДатаСтрока, 2);
   Если СтрДлина(ДатаСтрока) = 6 Тогда
      ДатаСтрока = "20" + ДатаСтрока;
   КонецЕсли;
   
   //ОписаниеТипа = Новый ОписаниеТипов("Дата");
   Результат    = ОписаниеТипа.ПривестиЗначение(ДатаСтрока);
   
   Возврат Результат;
   
КонецФункции

Dev › Добавление нового документа › #6 24.09.12 16:24

Для БП 2.0 надо включить документ в Подписки на события - ПередЗаписьюДокументаДляУдаленияДвижений.
(1) windym,

БУ › Акт оказания услуг для бухгалтерии 3.0.10.8 › #2 26.06.12 12:21

(1) гыук320, для редактирования печатной формы под нужды организации. В управляемых формах можно менять печатную форму и в пользовательском режиме, но нельзя удалять параметры.

БУ › Акт оказания услуг для бухгалтерии 3.0.10.8 › #0 25.06.12 12:03

Внешняя печатная форма Акта для Бухгалтерии 3.0.10.8

БУ › Торг-12 свернутый для УТ 10.3 › #0 16.09.11 14:06

11 Рейтинг

Srv1313 Руслан Сапегин

Рейтинг 11

Акт оказания услуг для бухгалтерии 3.0.10.8 +5 –

Торг-12 свернутый для УТ 10.3 +7 –1

Комментарии

11
Рейтинг

Srv1313
Руслан Сапегин

Акт оказания услуг для бухгалтерии 3.0.10.8
+5 –

Торг-12 свернутый для УТ 10.3
+7 –1