Помогите переделать обработку из 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;
               Док.ПричинаСписания=ПричинаСписания;
               Док.Комуотпущено=КомуОтпущено;
               
           КонецЕсли;
       КонецЦикла;    
       Док.Записать();
       Сообщить("Создан документ Акт списания бланков строгой отчетности №"+Док.НомерДок+ " от "+Док.ДатаДок);
   КонецЕсли;    
КонецПроцедуры
У меня не получается много ошибок выдает метод объекта не обнаружен

100 баксов

что таоке ВидБланка ?

> СокрЛП(Стр);


это что за строкка ?

> Помогите переделать обработку из 1С 7.7 в 1С 8.2


её надо не переделывать, а переписывать

(4) да там копрокода столько, что даже не смешно...

где присвоение Поступление = 1 ?

туфта,  а не код

+ юля без фотки

спросили бы лучше у ТС рабочая ли вообще обработка. ))

+ для 7.7

Фотка вечером будет

обработка рабочая работает в 7

я тут попыталась переписать получилось вот такое но все равно ругает на конструкции некоторые:

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


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

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

(12) она не рабочая

(13) жесть

смотри в (4)

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

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


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

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

вот я попыталась но все равно еще ругается посмотрите где поменять на код в 1С 8

помогите пожалуйста, мне надо срочно написать аналогично

ауууууу, что не кто не посмотрит?

(19) а что бюджетчики сейчас работают ?

да работают

(19) Сначала фото, потом все остальное. Попытаешься обмануть - никто потом даже и не почешется

и тишина................

неужели бюджет зажмет 100 вражеских денег на такую мощную обработку?

в смысле?

да

зажимает

самые жадины говядины это бюджет.

(22) не может быть.

вам какое фото надо?

(29) тогда ты раскошеливайся на фотку

отвечаю

(31) конечно топлесс ))))))))))))))))))))

(31) Твое. Ню )

какую фотку?

поверьте мне не красиво будет

Пасаны не мелочитесь,просите сразу минет

(37) Ну тогда (38) ))) Выбирай))))

я могу но не ню, ню там не красиво

что выбирать?

(40) Ну сможем тоже наполовину, но оно тебе надо?))))

для блондинки по подробнее расскажите

нет на половину не надо

Что не понятного в слове минет???

(37) жестоко - но некрасивым тем более в одинэсе делать нечего
посмотри на меня - я красив и я в одинэсе !! ))

(22) как этот бюджет заовут ?

ого как

как бюджет зовут не важно

(49) тогда фотку НЮ. )

(49) сфера области какая ?

я не понял - сисьло будет или будем тёрки тут тереть на тыщщу постов? (*закрывает открытую 8.2*)

а что просто помочь не один мужчина девушки не может((((. Обязательно через унижение?

(0) да че там переписывать - надо просто быть в контексте обеих систем

(53) тут сплошь тупые, озабоченные и жадные одинэсники

ну вот я попробовала но не до конца

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


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

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

(53) в одинэсе естесственный отбор - не можешь или плати любым способом или проходи мимо

(53) унижение в чём ?

(54) какие умные слова - аж слушать приятно. )

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

(58) как в чем, фото требуют да еще Ню. )
(56) ну тогда не Ню, может понравишься и помогут.)

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

(56) одноэсина же ругается вот и копай туда где ругается

копаю но не могу аналог найти в 1С 8 некоторых команд

а где тут кстати просто фото можно разместить

ну так быть может посмотрит кто нибудь где у меня еще надо на 1С8 поменять код?

аууууууууууууууу

(60) СКД это не программирование
так что задачу отдай на аутсорс
тебе не помогут тут побыстрому овладеть программированием на одноэсе

тут надо заново всё переписывать

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

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

я начала заново нашла похожее в 1С 8 и сделала не могу найти вот на этот кусок кода
Т.НоваяСтрока();
  Серия=Лев(Стр,12);                  
  Номер=Сред(Стр,13,6);
  Т.Серия=Серия;
  Т.Номер=Номер;

(64) немудренно так как некоторые вещи делаются в 8-ке проще и короче

как это в 1С 8 будет?

вместо Т.НоваяСтрока();
надо новСтрока=Т.Добавить();
новСтрока.Серия=Серия;

ну так подскажите мне как? или где посмотреть пожалуйста?

спасибо

(67) я пас... мне надо в магазин идти срочно

ИмяФайла="";
   ф="";
   ПутьКФайлу="";
    //открываем диалог выбора файла
   Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   Диалог.Заголовок = "Выберите файл...";
   Диалог.ПредварительныйПросмотр = Ложь;
   Диалог.МножественныйВыбор = Ложь;
   Диалог.Фильтр = "Текстовые файлы (*.txt)|*.txt";
   Диалог.Каталог = "D:\ЭТК";
   Если Диалог.Выбрать() Тогда
       ПутьКФайлу = Диалог.ПолноеИмяФайла;
       ИмяФайла=Диалог.Каталог;
   Иначе
       Возврат;
   КонецЕсли;
    //читаем файл
   Текст = Новый ЧтениеТекста(ПутьКФайлу, КодировкаТекста.UTF8);
   Строка = Текст.ПрочитатьСтроку();
   Пока Строка <> Неопределено Цикл
       Строка = Текст.ПрочитатьСтроку();
     //  Сообщить(Строка);
   КонецЦикла;
   
КонецПроцедуры
А как указать в этом куске кода чтобы в форме показывался еще путь выбранного файла?

что в текстовом файле ?

разделители ; ?

нет я в коде написала чтобы можно было в форме выбрать файл TXT он отлично выбирается но надо в форме чтобы где написано выбрать файл рядом отображался путь файла например d:\папка\файл

файл покажи
и откуа он появляется

обыкновенный файл txt  его надо в форме выбирать для того чтобы из него брать нужные данные

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

ИмяФайла="";
   ф="";
   ПутьКФайлу="";
    //открываем диалог выбора файла

   Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
   Диалог.Заголовок = "Выберите файл...";
   Диалог.ПредварительныйПросмотр = Ложь;
   Диалог.МножественныйВыбор = Ложь;
   Диалог.Фильтр = "Текстовые файлы (*.txt)|*.txt";
   Диалог.Каталог = "D:\ЭТК";
   Если Диалог.Выбрать() Тогда
       ПутьКФайлу = Диалог.ПолноеИмяФайла;
       ИмяФайла=Диалог.Каталог;
   Иначе
       Возврат;
   КонецЕсли;
    //читаем файл

   Текст = Новый ЧтениеТекста(ПутьКФайлу, КодировкаТекста.UTF8);
   Строка = Текст.ПрочитатьСтроку();
   Пока Строка <> Неопределено Цикл
       Строка = Текст.ПрочитатьСтроку();
     //  Сообщить(Строка);

   КонецЦикла;
   
КонецПроцедуры

ИмяФайла=Диалог.Каталог;
мне кажется вот здесь надо что то изменить

и еще какой аналог в 1С8 вот этого кода?:
Т.НоваяКолонка("ЭТК","Справочник.БСО");

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

так я стараюсь отвечать

файл покажи
и откуа он появляется
  ya deva
84 - 09.05.12 - 13:01
обыкновенный файл txt  его надо в форме выбирать для того чтобы из него брать нужные данные

приведи пример строки, что в файле

5867904950694

и все строки просто цифры

это номера документов

в задаче по номеру документа нужно сравнивать со справочниками и создавать посупление или списание товара

1. Владелец - это свойсвто, а не метод
2. ПометкаУдаления - тоже свойство
3. вместо метода .ТекущийЭлемент() - свойство .Ссылка
4. КоличествоСтрок у ТЗ наоборот, не свойство, а метод
5. для ТЗ, вместо:
Т.ВыбратьСтроку();
Пока Т.ПолучитьСтроку=1 Цикл
можно написать:
Для каждого СтрокаТЗ из Т Цикл
соотвественно, внутри цикла должно быть уже обращение к СтрокаТЗ, а не к Т
6. Если делать выборку справочника не через запрос, а так:
Бланк.ВыбратьЭлементы();
Пока Бланк.ПолучитьЭлемент()=1 Цикл
то это нужно переписать:
Бланк.Выбрать();
Пока Бланк.Следующий() Цикл
7. вместо Т.НоваяКолонка()
  Т.Колонки.Добавить()

как этот файл создаётся ?

его просто присылают а они вручную его создают

(99) пусть хоть в excel создают

они в txt создают

а что в электронной таблице не в моде ?

я там недавно работаю поэтому указывают скорее всего мне чем я

надо всегда стоять на своей позиции

(97)
*поправка в
4. вместо КоличествоСтрок должно быть Количество()

спасибо я уже догадалась

там кроме этого варианта не какой не похож

мне не понятно что вы с первого по третий ответ написали? можно подробнее?

и у меня таблица значений это просто Т

подскажите правильно вместо :Бланк=СоздатьОбъект("Справочник.БСО");
вот это?
 Бланк=Справочники.БСО.СоздатьЭлемент();

zak555

104 - 09.05.12 - 13:20
надо всегда стоять на своей позиции
по дольше поработаю буду стоять на свой позиции обязательно

(110) в БГУ БСО справочник ?

(108)
1. вместо
Бланк.Владелец(ВидБланка);
должно быть
Бланк.Владелец = ВидБланка;
2. ПометкаУдаления - без скобок должна быть, т.к. это свойство
3. вместо Организация.Текущийлемент() должно быть Организация.Ссылка

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

да БСО это справочник

(110) Бланк=СоздатьОбъект("Справочник.БСО"); использовался в 7.7 и в разных контекстах - как менеджер и как объект.
Если нужнен объект, то да
СоздатьЭлемент() для справочника - правильно.

(115) но в этом коде, это скорее всего менеджер, тогда не правильно
нужно просто Справочники.БСО;

то есть получается Бланк=Справочники.БСО?

(117) да. там дальше поиск происходит

вместо Организация.Текущийлемент() должно быть Организация.Ссылка
здесь поменять?

Если Организация.НайтиПоКоду("00001")=1 Тогда Док.ВыбраннаяОрганизация=Организация.Текущийлемент()
   КонецЕсли;

Не проще ли написать заново по все правилам, чем переводить ?
Наверняка есть готовые примеры, которые делают что-то полезное.

(119) поменять то можно только толку мало - там проблема выше в строке
Организация=Справочники.Организации.ТекущиеДанные;
+
вот тут
Организация=Справочники.Организации.НайтиПоКоду();
     Если Организация.НайтиПоКоду("00001")=1 Тогда Док.ВыбраннаяОрганизация=Организация.Текущийлемент();

первая строчка не нужна (и ошибочна)

и ещё, что действиетельно в документе есть такое поле "ВыбраннаяОрганизация"?

не видя конфигурации, много гадания на кофейной гуще происходит

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

+(118) то место вообще лучше запросом написать
Бланк.Владелец(ВидБланка);
 
Если Найти(ВидБланка.Код, "00000002")=1 Тогда
   Бланк.НайтиПоКоду(Число(Номер)-547900);  
КонецЕсли;
Если Найти(ВидБланка.Код, "00000003")=1 Тогда
    Бланк.НайтиПоКоду(Число(Номер)-539880);
КонецЕсли;

но тут своя ересь есть - вроде в Бланке (он же БСО) код символьный, но зачем-то когда делается поиск, Номер переводят в число... и что-то отнимают

очень, очень непонятно...

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

посмотрите может так понятнее будет

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

вместо Док.ВыбраннаяОрганизация=Организация.Текущийлемент()
Док.ВыбраннаяОрганизация=Организация.Ссылка;

спрашивал, повторю ВыбраннаяОрганизация - это реальный реквизит документа БСО_Поступление?

вид бланка это справочник которому подчинен справочник организации

да

ой нет это не реальный реквизит я посмотрела простите

Док=Новый Документ;
не нужно

это каккая то конструкция в семеруке

почему не нужно?, нужно же создать новый документ поступление БСО? а как тогда?

вы его уже создали кодом выше - СоздатьДокумент()

точно простите просто хочется все повторить как в семерке

/Организация=СоздатьОбъект("Справочник.Организации")
а вместо этого вот это не подходит?*
//Организация=Справочники.Организации.ТекущиеДанные;

короче, по организациям.

напишите в самом начале обработки
Организация=Справочники.Организации.НайтиПоКоду("00001");

организация с таким кодом должна быть в вашей базе.

дальше, когда будете создавать документ напишите
Док.Организация = Организация;

все остальное выкиньте

спасибо

(126) а остальное там по коду правильно?

нужно смотреть конечный вариант

ну получается в итоге вот так:

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


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

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

Проще скинуть кому-нить с БГУ эту обработку, чтобы ее переписали, чем пытаться кусками переписывать.
(0) У меня была страя книжка Радченко, типа "практическое пособие разработчика" только еще для 8.0. Вней очень понятным и доступным языком давались базовые понятия об объектах конфигурации и о том, как с ними работать. Советую для перехода с 7.7 на 8 найти и почитать. С этой книжкой в обнимку твоя обработка напишется за пару часов

Вопрос такого плана - не проще ли вынести организацию с кодом 0001 в реквизит формы и заполнять его при открытии формы из элемента с таким кодом, а в самой обработке уже использовать выбранное значение - так будет понятнее тем, кто с ней работает.

Т.ЭТК=Бланк.ТекущийЭлемент();
текущийэлемент заменить на ссылку, как уже написано выше

Бланк.ПометкаУдаления=0 вместо 0 должно быть Ложь

про это место
Т.ВыбратьСтроку();
   Пока Т.ПолучитьСтроку=1 Цикл
я тоже выше писал

Организация=Справочники.Организации.НайтиПоКоду();
     Если Организация.НайтиПоКоду("00001")=1 Тогда Док.ВыбраннаяОрганизация=Организация.Текущийлемент();

вот это место выше заменили, а ниже забыли

Док.СоставБСО.колонки(ВидБСО)=ВидБланка

вместо круглых - квадратные^
Док.СоставБСО.колонки[ВидБСО]=ВидБланка;

Док.СоставБСО.колонки(ВидБСО)=ВидБланка
(150) вернее вообще непонятно что это...

Док.ДатаДок - нет такого, есть Док.Дата. И номер тоже просто Док.Номер.
ВидБланка где определяется?

вид бланка определяется в форме выбирается персонализированная и неперсонализированное два варианта из справочника виды бланков

(153) это реквизит шапки? один, два, ...
или это в восьмерке реквизит ТЧ?

Я вообще не поняла, что эта обработка делает. Жесть какая-то непроходимая.
Юлия, ты логику обработки знаешь? МНе кажется, все же проще заново все переписать.
СОставь алгоритм работы обработки и аккуратненько напиши все заново

в семерке на этом месте все просто
Док.ВидБланковСтрогойОтчетности=ВидБланка;

в восьмерке у вас почему-то эта непонятная конструкция
Док.СоставБСО.колонки(ВидБСО)=ВидБланка

кстати, выше по коду так и написано
Док.ВидБСО=ВидБланка;

просто состав бсо это название табличной части, мне нужно добавить в колонку бсо данные из таблицы значений

в табличной части, для начала нужно Добавить строку
и только потом, что-то можно заполнять

а как тогда будет?

СтрокаТЧ = Док.СоставБСО.Добавить();
СтрокаТЧ.ВидБСО = ВидБланка;

Т.ВыбратьСтроку();
  Пока Т.ПолучитьСтроку=1 Цикл
Для каждого СтрокаТЗ из Т Цикл
соотвественно, внутри цикла должно быть уже обращение к СтрокаТЗ, а не к Т
я вот это не поняла у меня т и есть таблица значений как тогда заменить?

Выборка=ТЗ.Выбрать();
Пока Выборка.Получить()=Истина Цикл

так и заменить, как написано.

сначала эти две строки, указанной одной, а затем
внутри цикла, везде вместо "Т." написать "СтрокаТЗ."

(163) один хрен, внутри цикла переменную нужно менять

было:
Т.ВыбратьСтроку();
   Пока Т.ПолучитьСтроку=1 Цикл
       //Если ПустоеЗначение(Т.ЭТК)=0 Тогда
       Если Т.ЭТК.Пустая()=ИСТИНА Тогда
           Док.НоваяСтрока();
           Док.БланкСтрогойОтчетности=Т.ЭТК;
           Док.Количество=1;
           Док.Цена=1;
           Док.Сумма=1;
           Сообщить("ЭТК"+ Т.Серия+" " +Т.Номер+" добавлена в документ");
       Иначе
           Сообщить("ЭТК"+ Т.Серия+" " +Т.Номер+" не найдена в справочнике");
       КонецЕсли;
   КонецЦикла;





вот так будет?

Для каждого СтрокаТЗ из Т Цикл
Выборка=ТЗ.Выбрать();
Пока Выборка.Получить()=Истина Цикл
Если Т.ЭТК.Пустая()=ИСТИНА Тогда
           Док.НоваяСтрока();
           Док.БланкСтрогойОтчетности=Т.ЭТК;
           Док.Количество=1;
           Док.Цена=1;
           Док.Сумма=1;
           Сообщить("ЭТК"+ Т.Серия+" " +Т.Номер+" добавлена в документ");
       Иначе
           Сообщить("ЭТК"+ Т.Серия+" " +Т.Номер+" не найдена в справочнике");
       КонецЕсли;
   КонецЦикла;

вот так правильно будет?

нет

а где не правильно?

Либо Для Каждого стр Из Т
Либо Выборка=Т.Выбрать
Оба способа сразу явно не подходят.

и ниже, вместо
Т.Серия
нужно будет писать либо СтрокаТЗ.Серия, либо Выборка.Серия
смотря какой вариант ты выберешь ))

ладно, я убежал в кино.
дальше только Отладчик, синтаксис-контроль и синтаксис-помощник помогут

(169)Вы вообще до этого хоть на 7 хоть на 8 что-то программировали ?
И как синтаксис помощник открывается знаете ?

знаю в основном только на восьмерке и через скд

поэтому и прошу о помощи

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

(176) мда, тяжело вам сейчас. С кривого 7го кода перевести на 8-й код.

(175) Тебя тоже просили - фото ню, в ответ нелепые отмазки) Нету ножек - нету мультиков)

+ и при этом не зная толком 8ку.

Есть только просто фото

(180) Нету ножек - нету мультиков)))

(180) Проще было по порядку.
1. Описание ТЗ
2. Описание условий (конфигурация, параметры отчета)
3. План отчета
4. Фрагменты кода.

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

(177) в задаче типа (0) разницы нет между 7 и 8

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

есть разница он выдает ошибку метод объекта не определен, вот поэтому я и ищу аналог команд в 1С 8

(186) Нужно понять, прежде всего, что способы хранения данных о бланках в 7 и в 8 разные - то есть сначала нужно посмотреть, что они грузили в 7 и куда, а потом выяснить, что мы хотим загрузить в 8.
Куски кода типа "Бланк.НайтиПоКоду(Число(Номер)-547900);" предполагают, что создатель сего кода знал какие-то сокровенные вещи об организации хранения данных в базе, и что в восьмёрке этого просто нет.

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

(184)  копаться неохота в этот день в чужом коде совершенно. ;)
(187) +1000. Ориентироваться нужно всеже на 8ку. У вас есть файл с данными, нужно отобрать данные из файла и разобраться куда грузить. Типы данных в 7ке и в 8ке могут не совпадать, это во первых. Во вторых - в 8ке просто так данные не запишутся.

блин спасибо даже за критику, но хочется все таки дописать, спасибо за помощь для меня это не оценимо

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

(190) Ну что сказать. Файл с данными секретен, в какие доки грузите видимо тоже(всю ветку не читала- извиняюсь). Конкретных ошибок тоже не пишите. Ну что остается -только телепатировать. Так что вам остается работать самой. :))

я напишу конкретные ошибки обязательно

подскажи те вот вместо этой конструкции Т.НоваяКолонка("ЭТК","Справочник.БСО");
вот эта подойдет? Т.Колонки.Добавить("БСО", Новый ОписаниеТипов("СправочникСсылка.БСО"));

(194) Мой совет. по 7му коду разберись в общем что он делает. А дальше пиши код на 8ке не оглядываяь на код 7й обработки. Языки- ну очень сильно отличаются. А так ты только себя больше запутываешь. Так что Удачи. :)

Спасибо

Всем большое спасибо за помощь

подскажите еще у меня на работе 1С8.2 бугалтерия бюджетного учреждения, дома тоже но  на работе виндовс икс пи а дома виндовс 7 я загружаю базу которую на работе выгрузила а мне овт такая ошибка выходит

Неверный формат файла для загрузки информационной базы
Ошибка при выполнении файловой операции
по причине:
Ошибка при выполнении файловой операции

(198) Ну вот, раз дома, ждем нужное фото)))

(200)

Не понимаю,что заставило автора темы заниматься не своей работой...?

(198) То есть у вас дома и рабочая база не загрузилась ?
А тогда что и зачем вы пишете.
Идите, лучше, чай попейте или на улицу погулять, а завтра на работе будете выяснять, что вам нужно загрузить и зачем, и лучше у тех, кто больше вас знает.
Удачи и хорошего настроения - сегодня праздник - грех работать.

(201) она намекнула что хочет в будущем рубить бабло на поприще одинэса так что мы ее здесь увидим с подобными темами

правильный алгоритм был указан:
ПОНЯТЬ
и
ПРОСТИТЬ
то есть простить клюшкиному прогеру и написать с нуля

(199) ты какой-то агрессивный сегодня)
девушка уже разместила фото скажем так - на любителя
подумай - может тебе и не надо НЮ )))

Amra

199 - 09.05.12 - 15:39
(198) Ну вот, раз дома, ждем нужное фото)))
просто фото подойдет?

(198) Запускай под той же платформой, что и на работе.

Что вы такие добрые то все, сами когда начинали все сразу получалось?)

дада в семерку не надо грузить)

ОФФ: а фото ничего себе...

(208) я начинал со взлома игрушек на машинном коде) да было не просто)

(210) -20к

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

база уже давно в восьмерка находится

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

в некоторых местах меньше стало в некоторыз больше, тренажерный зал это вообще вещь хорошая

(206) Простое фото помогло?))
(205) Я лишь намекаю ТС, чтобы она не лезла в те вещи, которые не понимает)))

(215) не останавливайтесь на достигнутом
на мисте фото в нужной кондиции творит чудеса )

(216) старайтесь чтобы сверху не уменьшалось ни при каких условиях )

(206) Простое фото помогло?))
(205) Я лишь намекаю ТС, чтобы она не лезла в те вещи, которые не понимает)))
Если бьы люди не лезли в те вещи которые не понимают и не разбирались бы в низ со временем, то висели бы тогда мы бы с вами до сих пор на ветках

216) старайтесь чтобы сверху не уменьшалось ни при каких условиях )
сверху все хорошо все красиво

(217) уже поздновато - дверца знаний скрипнула и немного отворилась

(220) это верно в 5% случаев
амра не злой по сути - се

вот так бы активно разобраться помогали как гнобите

йчас он просто стимулирующий инструмент

(221) на мисте словам веры нет )

а на текущей толком не разглядеть ))

как жаль что я не в тех случаях попадаюсь когда он добрый?

(228) он добрый когда спит )

ну пока не туда он стимулирующий инструмент

очень жаль что он добрый когда только спит

(224) здесь так разговаривают

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

(231) в железке живет - чтож поделаешь

а здесь просто так разговаривают? то есть мне по ходу привыкать придеться7

(231) в железке живет - чтож поделаешь
а вы другой?

(233) зато женщина так красиво раздевается как ни один жумик не сможет )

(236) а я пока там не живу)

(235) включайте женские хитрости )

некоторым даже поначалу жестко а потом понравилось)

девушкам в смысле

тут половине сегодня просто влом думаю думать даже
может завтра...

experimentator76

241 - 09.05.12 - 16:11
девушкам в смысле
?????????

>>Если бьы люди не лезли в те вещи которые не понимают и не разбирались бы в низ со >>временем, то висели бы тогда мы бы с вами до сих пор на ветках
Нужно начинать с азов.К примеру,захотел я разобраться как устроен двигатель внутреннего сгорания.Я начинаю сначала изучать физические процессы на которых он основан.Я же не пристаю к конструктору,как сделать двигатель для автомобиля

experimentator76

242 - 09.05.12 - 16:12
тут половине сегодня просто влом думаю думать даже
может завтра...
а вы мне поможете завтра? Я вам буду очень благодарна

Ranger_83
ну если у вас не получится разобраться в некоторых процессах? вы у кого спросите?

(245) Долби-долби))) Он тож почти железкенский, так что за просто так не поможет)))

(243) Тут бывают существа женского полу и с огромным клювом, поэтому, народу не привыкать к тому, что задают тупые вопросы.

Просто, когда хотят загрузить файл в 1С, то:
- во-первых, должно быть известно, что за данные в файле и как они располагаются.
- куда они загружаются, и что при этом создаётся (документы, справочники) и какие регистры заполняются.
Только после этого можно писать обработку загрузки файла с данными в 1С.

(246) Книжки спросит, книжки... А не к создателю движков Макларена с вопросами полезет)))

Torquader
спасибо вы очень вежливый человек

Просто, когда хотят загрузить файл в 1С, то:
- во-первых, должно быть известно, что за данные в файле и как они располагаются.
- куда они загружаются, и что при этом создаётся (документы, справочники) и какие регистры заполняются.
Только после этого можно писать обработку загрузки файла с данными в 1С.
Мне все это известно и все это описано выше

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

+(252) но фото должна заинтересовать правда местных гурманов

Amra

249 - 09.05.12 - 16:16
Наконец то а то я думала так и будете молчать)))))))))))

(245) я традиционно говорю что готовый продукт от меня - это дорого - потому что мне просто лениво )

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

(247) спасибо - хоть кто-то в меня ВЕРИТ ))

я вообще в принцитпе верю во всех себя окружающих людей почему нет то))))))))))

(256) Просто, судя по вопросам, получается, что всё и сразу сделать за вас будет быстрее и проще, чем пытаться понять алгоритм, который, видимо, писал кто-то с несильно отличными от вас способностями.

(251) номер сообщения на которое отвечаете заключайте в скобки
так принято

Torquader

259 - 09.05.12 - 16:22
(256) Просто, судя по вопросам, получается, что всё и сразу сделать за вас будет быстрее и проще, чем пытаться понять алгоритм, который, видимо, писал кто-то с несильно отличными от вас способностями.
возможно, но тот кто писал в итоге у него вся семерка работает, и мне хочется надеится что и у меня получится сделать аналог

(260) ок

(254) он не молчит - он яд аккумулирует ))))

(261) Вы можете простым и русским языком описать, что делает код для семёрки, то есть какие документы он заполняет ?

(263) а что еще не все? я уже минут 10 как ничего не спрашиваю)))))))))))))))))))

(259) вот так вот взял и главбуха оскорбил - она с тех пор с клюшника до буха поднялась))

(264)могу он заполняет либо документ поступление БСО либо документ Списание БСО, в зависимости от выбранной галочки в форме

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

(265) не гневите - лучше дайте то что он хочет )))))))

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

(269)не могу, тогда плохая из меня девушка получится )))))))))))))

мы амру потом всей мистой успокаиваем когда ему фоток не дают ))
ведет себя хуже Халка )

http://mstitelifilm.ru/wp-content/uploads/2012/03/111.jpg

(267) То есть либо поступление, либо списание.
Что вводится в эти документы ?

(272)ну что поделаешь есть вещи которые нельзя всем есть вещи которые можно одному

(274)инфа из спавочника БСО и справочника ВИДЫ бланков а также номер документа который находится в файле TXT

(271) так вы еще девушка? тогда мы идем к вам! )) шутка

(276) В восьмёрке есть эти документы и справочники ?
И у них те же или подобные реквизиты ?

(273) а можно его фото в нормальном состоянии вдруг красавчик?
(277)ну так не девочка а девушка все уже произошло, даже сын растет как доказательство что все произошло))))))))
(278) Да все те реквизиты и документы со справочниками туже в восьмерке есть я перенесла

(278) щас случится страшное )

(279) Что значит "перенесла", что их до этого там не было ?

(280) не пугайте сама боюсь)

(279) амра немного на молодого бандераса похож
когда по железке идет все женщины глаза опускают чтобы не сойти с ума от его моджо

содержимого не было

(254) Даже не надейся))))
(283) Фу, бандеросом меня обозвал)))

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

(285)я и не надеюсь)), просто я фото свое показала а вы прячетесь? почему?))))))))

(279) то есть вы когда сомневаетесь сына кличете ))))
а что удобно - доказательства всегда под рукой

(287) потому что не вопросы задаю)))

(288) это если кому то проверять захочется горизонтальным методом, а мне не захочется)))))))))))))

(289) логично

(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 года))) Теперь отстатыщ, четырешка с евроремонтом в ближнем подмосковье))) Даже мистабола маню и того разобрали))))