Бухгалтерия / Говнокод #4849 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
ВнутреннийКодДокумента=Лев(ФайлКаталога.Имя,Найти(ФайлКаталога.Имя,"_")-1);
ВнутреннийКодДокумента=Формат(Число(ВнутреннийКодДокумента),"ЧЦ=9;ЧВН=");
ВнутреннийКодДокумента=СтрЗаменить(ВнутреннийКодДокумента," ","");
СсылкаНаВходящийДокумент=Справочники.ВходящиеДокументы.НайтиПоКоду(ВнутреннийКодДокумента);

получает имя файла например 122341_20101207201000.pdf и ищет по коду в справочники с лидирующими нулями, если кто то может предложить лучше предложение, то я буду только рад)

Запостил: cdpoma cdpoma, (Updated )

Комментарии (22) RSS

  • ava cdpoma # Ссылка на оригинал 0

    небольшая неточность заменить надо не пробел а Символы.НПП
    Ответить

    • ava guest # Ссылка на оригинал 0 ⇈

      ну если правильно написать форматную строку в Формат, то никаких НПП или ещё чего заменять вообще не надо будет
      Ответить

  • ava Анонимус # Ссылка на оригинал 0

    расскажите пожалуйста по подробнее про задачу
    мне вроде бы все слова ясны, но в общую картину не скалдывается(
    Ответить

    • ava cdpoma # Ссылка на оригинал 0 ⇈

      Пока СтрДлина(ВнутреннийКодДокумента)<Метадан ные.Справочники.ВходящиеДокументы.ДлинаК ода Цикл
      ВнутреннийКодДокумента="0"+ВнутреннийКод Документа;
      КонецЦикла;
      Ответить

  • ava istem # Ссылка на оригинал 0

    Извиняюсь, в могучем 1С не очень силён, но, кажется нашёл:
    ЛучшееРешение = Получить(ИмяФайла.Например_122341_20101207201000.pdf, труЪ);
ЛучшееРешение = ИскатьПоКоду.вСправочники.сЛидирующимиНулями( ЛучшееРешение );
Если ( КтоТо.МожетПредложитьЛучшеПредложение == ЛучшееРешение )
Тогда { 
Автор.Говорить ( "ТоЯБудуТолькоРад" );
}
    Ответить

  • ava KirAmp # Ссылка на оригинал 0

    у меня такое ощущение, что 1С - это огромный фреймворк к паскалю с миллиардами статиков на все возможные случаи всех блондинок страны
    Ответить

Добавить комментарий

Переведи на "PHP", guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓