Помогите переделать обработку из 1С 7.7 в 1С 8.2
Перем ИмяФайла;
Процедура ВыборФайла()

   Ф="";
   ИсхКаталог="";
       ИмяФайла="";

   Если ФС.ВыбратьФайл(0, Ф, ИсхКаталог, "Выберите файл загрузки",
       "Текстовые файлы (*.txt) |*.txt") = 1 Тогда
   //    ФС.УстТекКаталог(КаталогИБ());
       ИмяФайла=ИсхКаталог+Ф;
       Иначе
           Возврат;
       КонецЕсли;
      // ИмяФайлаТекст.=Ф;

КонецПроцедуры
//*******************************************

Процедура Сформировать()

   Т=СоздатьОбъект("ТаблицаЗначений");
   Т.НоваяКолонка("Серия","Строка",13);
   Т.НоваяКолонка("Номер","Строка",5);
   Т.НоваяКолонка("ЭТК","Справочник.БСО");
   Файл    = СоздатьОбъект("Текст");    
   Файл.КодоваяСтраница(0);
   Попытка
       Файл.Открыть(ИмяФайла);
   Исключение
       Предупреждение("Файл не выбран");
       Возврат;
   КонецПопытки;    
   Стр="";
   КоличествоСтрок=Файл.КоличествоСтрок();
   Бланк=СоздатьОбъект("Справочник.БСО");
   Для НомерСтроки=1 По КоличествоСтрок Цикл
       Стр=Файл.получитьСтроку(НомерСтроки);
       СокрЛП(Стр);
       Т.НоваяСтрока();
       Серия=Лев(Стр,12);
       Номер=Сред(Стр,13,6);
       Т.Серия=Серия;
       Т.Номер=Номер;
       Бланк.ИспользоватьВладельца(ВидБланка);
       Если Найти(ВидБланка.Код,"00000002")=1 Тогда
            Бланк.НайтиПоКоду(Число(Номер)-547900);
       КонецЕсли;
       Если Найти(ВидБланка.Код,"00000003")=1 Тогда
           Бланк.НайтиПоКоду(Число(Номер)-539880);
       КонецЕсли;
   
       Флаг=0;
   //    Если Бланк.ПолучитьЭлемент()=1 Тогда
   //    Пропуск=Число(Номер)-Число(Бланк.НомерБланка)-1;
   //        Для А=1 По Пропуск Цикл
   //           Если Бланк.ПолучитьЭлемент()=0 Тогда Прервать; КонецЕсли;
   //        КонецЦикла;    
   //    КонецЕсли;    
    Если (Найти(Бланк.Серия,Серия)=1)  И (Найти(Бланк.НомерБланка,Номер)=1) И (Бланк. ПометкаУдаления()=0) Тогда Флаг=1; Сообщить("ЭТК "+Серия+" "+Номер+" найдена");
    Иначе
       Бланк.ВыбратьЭлементы();
       Пока Бланк.ПолучитьЭлемент()=1 Цикл
        Если (Найти(Бланк.Серия,Серия)=1)  И (Найти(Бланк.НомерБланка,Номер)=1) И (Бланк. ПометкаУдаления()=0) Тогда Флаг=1; Сообщить("ЭТК "+Серия+" "+Номер+" найдена");Прервать; КонецЕсли;
       КонецЦикла;    
     КонецЕсли;

       Если Флаг=1 Тогда
           Т.ЭТК=Бланк.ТекущийЭлемент();
       КонецЕсли;
   КонецЦикла;
   Если Т.КоличествоСтрок()=0 Тогда Возврат; КонецЕсли;
   Сообщить("Найдено "+Т.КоличествоСтрок()+" карт");
   Если Поступление=1 Тогда
       Док=СоздатьОбъект("Документ.ПоступлениеБСО");
       Док.Новый();
       Док.ДатаДок=ДатаДок;
       Фирма=СоздатьОбъект("Справочник.Фирмы");
       
       Если Фирма.НайтиПоКОду("000000000001")=1 Тогда Док.ВыбраннаяФирма=Фирма.ТекущийЭлемент(); КонецЕсли;
       
       Док.ВидБланковСтрогойОтчетности=ВидБланка;
       Док.МестоХранения=МестоХранения;
       Док.КодВидаДеятельности=Перечисление.КодВидаДеятельности.Бюджет;
       Док.ОтКогоПолучено=ОтКогоПолучено;
       Док.ПервичныйДокумент=ПервичныйДок;
       Т.ВыбратьСтроки();
       Пока Т.ПолучитьСтроку()=1 Цикл
           Если ПустоеЗначение(Т.ЭТК)=0 Тогда
               Док.НоваяСтрока();
               Док.БланкСтрогойОтчетности=Т.ЭТК;
               Док.Количество=1;
               Док.Цена=1;
               Док.Сумма=1;
               Сообщить("ЭТК"+ Т.Серия+" " +Т.Номер+" добавлена в документ");
           Иначе
                Сообщить("ЭТК"+ Т.Серия+" " +Т.Номер+" не найдена в справочнике");
           КонецЕсли;
       КонецЦикла;    
       Док.Записать();
       Сообщить("Создан документ Поступление бланков строгой отчетности №"+Док.НомерДок+ " от "+Док.ДатаДок);
   КонецЕсли;
   Если Списание=1 Тогда
       Док=СоздатьОбъект("Документ.АктСписанияБСО");
       Док.Новый();
       Док.НомерДок=НомерАкта;
       Док.ДатаДок=ДатаДок;
       Фирма=СоздатьОбъект("Справочник.Фирмы");
       
       Если Фирма.НайтиПоКОду("000000000001")=1 Тогда Док.ВыбраннаяФирма=Фирма.ТекущийЭлемент(); КонецЕсли;
       
       Док.ВидБланковСтрогойОтчетности=ВидБланка;
       Док.МестоХранения=МестоХранения;
       Док.КодВидаДеятельности=Перечисление.КодВидаДеятельности.Бюджет;
       Док.НомерПриказа=НомерПриказа;
       Док.ДатаПриказа=ДатаПриказа;
       Док.Председатель=Председатель;
       Док.ЧленКомиссии1=ЧленКомиссии1;
       Док.ЧленКомиссии2=ЧленКомиссии2;
       Док.ЧленКомиссии3=ЧленКомиссии3;
       Док.НачПериода=ДатаДок;
       Док.КонПериода=ДатаДок;
       
       Т.ВыбратьСтроки();
       Пока Т.ПолучитьСтроку()=1 Цикл
           Если ПустоеЗначение(Т.ЭТК)=0 Тогда
               Док.НоваяСтрока();
               Док.БланкСтрогойОтчетности=Т.ЭТК;
               Док.Количество=1;
               //Док.Цена=1;
               Док.Сумма=1;
               Док.ПричинаСписания=ПричинаСписания;
               Док.Комуотпущено=КомуОтпущено;
               
           КонецЕсли;
       КонецЦикла;    
       Док.Записать();
       Сообщить("Создан документ Акт списания бланков строгой отчетности №"+Док.НомерДок+ " от "+Док.ДатаДок);
   КонецЕсли;    
КонецПроцедуры
У меня не получается много ошибок выдает метод объекта не обнаружен

(286) То есть стандартный механизм работы с бланками строгой отчётности просто не рассматривался - решили, что всё что было в семёрке - хорошо будет и в восьмёрке - так ?

(285) я в положительном ключе)
ну если несогласен то фотку выложи на которую тебя знойная девушка разводит )))

Интересно, а (0) знает, что бывают регистры сведений и т.п. или кроме справочников и документов в неё в голове ничего не поместилось ?

(286) могу ошибиться но вы вроде эти несуществующие элементы справочников по кодам ищете ?

все элементы существуют

Torquader

294 - 09.05.12 - 16:41
Интересно, а (0) знает, что бывают регистры сведений и т.п. или кроме справочников и документов в неё в голове ничего не поместилось ?
Куда уж мне я же блондинка

(295) Мало того, что ищет, так поди ещё и ожидает, что при добавлении справочника в конфигураторе его элементы сами в базу скопируются.

(291) у вас есть шансы переписать обработку

(299) и какие же?

(297) не лукавьте - подкрашиваете )

а как же

(300) Я бы, сначала, внимательно почитал бы, как ведётся учёт бланков строгой отчётности в ББУ (или кто у вас там), чтобы понять, что и куда нужно грузить.
Ведь от того, что вы справочники добавили, учёт сам не настроится.

чтобы когда тупой называют как вот тут на форуме хоть причины не искали а сразу по цвету волос ))))))))) не так обидно

(300) призрачные пока - щас шар прогреется - смогу увидеть будущее яснее )

(303)я не только справочники добавила все что касалось учета бланков строгой отчетности все перенесено, могу только дать почитать  код обработки к сожалению

просто я мало слышал от женщин слово - логично) кто научил ? папа сына ?

(305) да да посмотрите, еще я в этом году в Испанию собираюсь посмотрите поеду ли?

(304) типичнейшая ошибка что оценивают по цвету волос )

(307) папы у меня нету а сын маленький еще так что училась сама простите, чему смогла сама тому м научилась, в фокспро не плохо получалось, ну вот как то 1С перспективнее будет

(308) все хорошее у вас впереди )

О боги....
Барышня, Вы на них не обижайтесь. Они добрые на самом деле. Я бы уже давно послала к чертовой матери, если честно, а они еще что-то спрашивают, помогают.
Молоды ребята

(306) Откуда перенесено ?

(309) большая ошибка вообще оценивать, есть такая поговорка не суди человека за прошлое не зная своего будущего

(312) пусть не обижают и обижаться не буду

(313) перенесено из 1С 7

(310) то есть уровень не нулевой
а как бабе с ребенком думаю кто-то точно поможет
мне лениво но если что увижу направлю конечно же
успехов!)

(316) Зачем !!!
Неужели в восьмой версии не нашлось учёта бланков ?
Есть мнение, что вашу идею зарубят на корню, так как вы не только обработку изпоганили, но и в базе дров навалили.

(315) А что толку с твоих обид?) Кому лучше стало от того, что ты на них обиделась? Тебе? Нет, тебе не стало. А им так вообще пофиг)
Кинь обработку свою на мыло, посмотрю

(319) Ты лучше базу посмотри - там проблема гораздо ГЛУБЖЕ.

(319) Скинула уже

(320) Ну я рада, что ты так за нее беспокоишься, честное слово. У меня БГУ нет, смотреть на нее я не хочу. Обработка тупая, ее 10 раз уже можно было на 8.х код переписать, пользуясь простейшей логикой и СП.
Весьма вероятно, что ТС получит по своей светлой головушке за то, что сделано. Но в основном люди учатся на своих ошибках, а не на чужих. Когда получит, тогда поймет и научится.

(321) А обработку саму нельзя было скинуть?

щас

(322) вот я не хочу по головушке поэтому и спросила о помощи

(322) главное чтобы ей не пришлось всю типовую переписывать под их хотелки
и\или изобретать велосипед

(322) если 10 раз то подскажите где я ошиблась пожалуйста

(326) Похоже, что его уже изобрели.
(322) У меня тоже нет БГУ и тоже нет желания изучать правила регистрации бланков строгой отчётности, но есть подозрение, что этот велосипед уже изобретён сотню раз в разных типовых конфигурациях, и наверняка в БГУ тоже есть.

(328)бланки строгой отчетности есть но формы этой там нет эта форма позволяет множество документов разнести за короткое время не вручную а автоматически

(329) Как стандартно учитываются бланки в БГУ ?

просто в ручную создаешь документ поступление или списание и в ручную каждый раз заполняешь все реквизиты и значения

(331) Документ вы сами нарисовали, или он был до вас ?

(331)был до меня, нарисована только форма

(327) Я просила обработку. Не код модуля, а обработку целиком. Ну да ладно.
Сбросила ответ в таком же виде. Написала комментарии. Мой диагноз - читайте книги. Вы не понимаете разница между менеджером и ссылкой. Между колонкой ТЗ и строкой. Без элементарных понятий дальше двигаться невозможно!!!
Это не вам случайно тут недавно надо было объяснять чти такое типы?

(327) нет не мне

(334) вообще знаю разницу между колонкой и строкой, просто тяжело когда толком 8 не знаешь а надо из 7 сделать тоже самое в 8 кто как подсказал так и написала возможно что в иоге фигня получилась

(334) Да ты что, чтобы ТС книги читала? Ей про книги еще 200 постов назад сказали, так нет же, я после этого стал "редиской"
(336) Какое фото - такие и подсказки)) Сказал же - ню может помочь))

(336) Не заметно, что знаешь. Или просто думать не стала, когда писала. Я не говорю, что в жизни не знаешь, я про код говорю. нельзя обратиться к колонке и ждать, что что-то заполнится.
Совет: пишешь какой-то метод, посмотри, что про него написано в СП. Там практически ВСЕГДА есть простейший пример применения. И сразу все понятно становится

(337) Хватит издеваться уже. Давай я тебе свои фото ню пришлю, глядишь - успокоишься))

(338)ок, ну просто я не за диагнозом сюда обратилась а за помощью а за совет спасибо

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

(339) Ну не ты же ТС?))) Где я издеваюсь то, книжки правда советовал 200 постов назад)))
(341) То есть все должны все бросить, и потому что у тебя нет времени, начать резво тебе помогать?)))

Ну вот и на меня обиделась. На надутых воду возят)
(341) Сейчас самое время! Я первую обработку для клиентов писала на личсточке на лавочке в парке, как раз по книге писала, пока дочка на детской площадке бесилась) Обработка было простейшая, но главное, что код я написала, и дома он работал) И книги не просят фото и не стебутся над незнанием)

(343)Я не на кого не обиделась просто отвечаю вам наоборот спасибо за помощь

(343) спасибо за совет

просто если бы какую то обработку я бы тоже по книжке а тут из 7 на 8 поэтому  я и в ступоре

Ссылка в тему
v8: Конвертация конфигураций

(346) Да забудь ты про 7! У тебя есть задача: из некого файла выбрать строки, по этим строкам заполнить некий документ. Так? Вот и выполняй эту задачу! При чем тут 7?

(339) настолько НЮ ? ))

(349) насколько?

(350) ну как бе обычного гетеросексуального мужчину фотками НЮ не успокоить а даже наоборот )
вот и интересуюсь что ж за НЮ такое )

(350) Бедный мишка, совсем шкуру с него снимешь?)))

(351) Вам не понравится, это однозначно

(353) НЮНЮ или НЮиНЮ ?)

(354) НЮ какая вам разница? Я и в одежде не нравлюсь большинству одинесников, а уж без нее... успокоитесь, не переживайте)

(355) Уговорила, выкладывай фотосессию ню)))

(356) Я не обещала выложить. Я предлагала на мыло тебе прислать)

(346) Если "в ступоре", то нужно пойти и подумать над чем-то другим - не надо заставлять участников форума тоже оказаться в ступоре вместе с вами.

(357) И чего, вы каждому на мыло посылаете ?

(357) А если понравиться?)) Готова к домогательствам?)))

(360) Она вам бабушку-нудиста вышлет - точно желание просить фото пропадёт.

(360) ню не в ню я ее видел, так что не прокатит)))

(362) Ладно - чудо с обработкой свалило.
Видимо, решило книжки почитать.
По мне так - нафиг надо фото какой-то тётки, которая в 1С, как свинья в апельсинах.

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

(364) Ну вот и молодец - удачи вам и успехов в прочтении.

(363)а по поводу свинья в апельсинах я думаю когда вы начинали тоже я бы сказала не идеально было

(366) Ну да, было не идеально, но я ни к кому не приставал и честно читал ЖКК, чтобы понять, как должно быть.
P.S. когда я первый раз увидел 7.7 меня поразило, что написали целый язык в котором нет динамических массивов, но потом меня познакомили с VbScript и всё встало на свои места, но на мои обработки 1С-ники до сих пол плюются, так как не всегда можно понять, что делает программа, код которой собирается в момент исполнения.
К счастью, в восьмёрке такое возможно без всяких лишних действий.

(367) прям так уж нужны были динамические ?

(366) Когда мы начинали - Мисты еще не было, да и большинство народу лишь слышало что есть такая вешь как Интернет

(368) Вообще-то, в семёрке для подобных целей прекрасно подходит таблица значений, но в Excel этого объекта нет, а так как обработка писалась и для Excel тоже, то пришлось использовать MSScriptControl

(369) Про интернет я знал, только я обычно искал ответ в google, и если его там не было, желания где-то задавать вопрос не возникало, так как казалось, что если google не знает, то и люди - тоже.

(371) Это какой год был?) Я начинал в 99, а до инета добрался только в 2001)

интернет это вообще пипец - килобайты экономил чтобы скачать пор* то есть знания по 1С )

(373) Да вообще, зачем его придумали))) Если б не он - я б холостой был бы))) С женой в аське как раз осенью 2001 познакомился) Осенью 2001 познакомился, в феврале 2002 поженились) 10 лет псу под хвост)))) И это только начало)))

(372) Я начинал в 98, тогда, конечно, интернет был, но поисковую систему yahoo звали, и искала она совсем не очень.
В 1С я заглядывал, когда нужно было программу с ней подружить, тогда автоматизация на 1С не у всех была, и другие программы были не хуже, а даже лучше.
(374) Ну да, аналогично, только не по Ваське, а в книге (был такой вид форумов, где просто не было тем, а все писали в кучу - примерно как здесь).

а я в чате))))

зашел блин в чат потестить новый канал
а теперь дочка вот подрастает )

МУЖИКИ!! ЖЕНЩИНЫ КОВАРНЫ!! ОНИ ПОДЖИДАЮТ НАС ВЕЗДЕ!! ОСОБЕННО В ИНТЕРНЕТЕ!!
АЛАРМ!!

(375) Видимо в моей деревне с инетом было плохо, ну или я был такой отсталый) Правда в 2001 сел сразу на выделенку, на работе, чтото типа мегабит 5 на контору в сотню компов)))
(377) Вот-вот, дочке в этом году в школу))) Пообщались в аське, и решили попить пива в реале....))))

(378) Да вот как-то от интернета этого и не ожидал.
В остальных случаях вопрос обычно касается работы, а так как результат у женского полу не очень, то и на внешность уже смотреть не обязательно.

(378) Судя по всему - вам уже опасаться нечего, вы уже попались)

(381) Да мы все попались - не попасть - невозможно - так мир устроен.

(381) А ты?)) Видимо тоже, раз фото ню предлагаешь на почту прислать)))

(383) А что я? Я так... мимо проходила)

(384) Они все так - мимо проходят.

(384) Ах ну да, ты же "не нравишься большинству 1Сников") А через годик - муж 1Сник, сама только что из роддома.... ))))

(386) да где он - муж адинесник? Через годик хорошо было бы)

(387) Проходите, проходите - здесь уже все женатые - вам надо на другой форум.

(388) :) А я и не претендую

(389) И слава богу!

(387) Нас разобрали на взлете)) Меня например в 22 года))) Теперь отстатыщ, четырешка с евроремонтом в ближнем подмосковье))) Даже мистабола маню и того разобрали))))