Тему зачем закрыли? Правила я раньше читал "Памятка работодателю о том, как правильно оформлять вакансию" и не вакансию открывал, а искал определенного человека, который мне делал уже этот проект и ему подкорректировать не составит проблем, как мне.
А находил его раньше через этот форум, больше способов найти его нет:( т.к. HDD "сдулся " вместе со всеми контактами.
GROOVY, тему невнимательно читаете. А всем спасибо за помощь, только в этом я несилен, вот и хочу найти человека.

Маниак, твоя поделка?:)

(0) сколько стоила работа? по цене определю я делал или нет.

в памятке есть памятка, что памятка не относится к временным работам

(2) судя по коду...

Может так и писать в теме ? Ищю разработчика некой поделки. Потерял контакты ! и т.д.

до 1000... сам не помню. код могу выложить

через вестерн юнион на Украину отправлял

(6) не тогда не я. но могу поправить что надо за 10 000.

все семерочники вымерли уже

Триг, наверно )

тебе же в прошлой ветке уже сказали.
?(ТаблНоменклатуры.Коэффициент = 0, 1, ТаблНоменклатуры.Коэффициент) вместо ТаблНоменклатуры.Коэффициент напиши.
Кем ты работаешь? Скоко денег получаешь?

(11) да обычный юезр это. не прог. темы глянь.

работаю рубщиком:))) мясо рублю..

мясоруб, значит..

Интересно какие еще профессии на мисту заходят?

(0) Так а в твоих ветках от августа его, случайно, нет?

Знаю что ОК и КА. Ну эти понятно. А когда уже ну там политики подтянтся или проститутки? Нафиг им этот твитер? Пусть здесь пишут.

(17) Бухгалтеров забыл. Их тут тоже хватает

да ветки уже просмотрел. Блин. не помню ник и все. Здесь словились и перешли на почту. Зе бат тоже с диском умер:( завтра пойду в банк, вычислю адрес и фио.

а вот какой код у нас там был
//******************************************************************************
// ПриИзмененииНоменклатуры()
//
// Параметры:
//  Нет
//
// Возвращаемое значение:
//  Нет
//
// Вызывается из формул элементов диалога:
//  Колонка "Номенклатура" табличной части документа.
//
// Описание:
//  Производит проверку правильности выбора номенклатуры (Не даем выбрать услугу)
//
Процедура ПриИзмененииНоменклатуры()
   
   Если Номенклатура.Выбран()=1 Тогда
       Если Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга Тогда
           Предупреждение("В этом документе услугу выбирать нельзя!",60);
           Номенклатура = "";
       ИначеЕсли Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа Тогда
           Предупреждение("В этом документе работу выбирать нельзя!",60);
           Номенклатура = "";
       КонецЕсли;    
   КонецЕсли;
   
   Если Склад.РозничныйСклад = 1 Тогда
       //если перемещаем с розничного склада, то списывать надо по розничным ценам из регистра
       глПересчетТаблЧасти(Контекст,Форма.ТекущаяКолонка(),СписокПараметров);    
   Иначе
       глПересчетТаблЧасти(Контекст,Форма.ТекущаяКолонка());    
   КонецЕсли;
   
КонецПроцедуры // ПриИзмененииНоменклатуры()


Процедура Кн()
   
   Спр=СоздатьОбъект("Справочник.Номенклатура");
   Спр.ВыбратьЭлементы();
   
   к_стлб=4;
   Если (н_стр<1) или (к_стр<1) или (н_стлб<1) или (к_стлб<1)  Тогда
           Предупреждение("Заданы не все параметры!!!");
       Возврат;
   КонецЕсли;
   
   
   ТЗ=СоздатьОбъект("ТаблицаЗначений");
   кол=1;
   стр=1;
   
   Если к_стлб<10 Тогда
       кол_стлб=10;
   Иначе
       кол_стлб=к_стлб;
   КонецЕсли;
   
   Если к_стр<10 Тогда
       кол_стр=10;
   Иначе
       кол_стр=к_стр;
   КонецЕсли;
   
   Пока стр<=кол_стр Цикл
       ТЗ.НоваяСтрока();
       стр=стр+1;
   КонецЦикла;
   
   Пока кол<=кол_стлб Цикл
       ТЗ.НоваяКолонка();
       кол=кол+1;
   КонецЦикла;
   
   фл=СоздатьОбъект("Excel.Application");
   //КП=КаталогПользователя();
   КП="C:/";
   Файл="";
   
   Если ФС.ВыбратьФайл(0,Файл,КП,"Открыть файл","Файлы MS Excel|*.xls")=0
       Тогда Возврат;
   КонецЕсли;
   
   
   Для а=1 По фл.Workbooks.Count Цикл б=фл.Workbooks(а);
       Если б.Name=Файл Тогда Эксель=б;
           Прервать;
       КонецЕсли;
   КонецЦикла;
   
   Если ПустоеЗначение(Эксель)=1 Тогда
       Эксель=фл.Workbooks.Open(КП+Файл);
   КонецЕсли;
   
   фл.Visible=1;
   Если Эксель.Worksheets.Count=1 Тогда
       у=1;
   Иначе
       сз=СоздатьОбъект("СписокЗначений");
       Для а=1 По Эксель.Worksheets.Count Цикл
           сз.ДобавитьЗначение(а,Эксель.Worksheets(а).Name);
       КонецЦикла;
       Если сз.ВыбратьЗначение(у,"Выбор листа - "+Эксель.Name)=0 Тогда
           Возврат
       КонецЕсли;
   КонецЕсли;
   
   пер1=Эксель.Worksheets(у);
   пер1.Activate();
   пер2=Эксель.Worksheets(у).Cells.CurrentRegion;
   пер3=6;
   
   стр=1;
   строки=н_стр+к_стр;
   колонки=н_стлб+к_стлб;
   РезТ="";
   
   Пока стр<=к_стр Цикл
       кол=1;
       Пока кол<=к_стлб Цикл
           яч=пер2.Cells(стр+н_стр-1,кол+н_стлб-1).Value;
           ТЗ.УстановитьЗначение(стр,кол,яч);
           кол=кол+1;
       КонецЦикла;
       стр=стр+1;
   КонецЦикла;
   
   Эксель.Close();

   
   
   //Сообщить(ТЗ.ПолучитьЗначение(1,1));
   
   ии=1;
   Пока ии<стр Цикл
       Если Спр.НайтиПоКоду(ТЗ.ПолучитьЗначение(ии,1),0)=1 Тогда
               НоваяСтрока();
               Номенклатура=Спр.ТекущийЭлемент();
               Единица=Спр.ОсновнаяЕдиница;
           
               Количество=ТЗ.ПолучитьЗначение(ии,3);  
               Цена=ТЗ.ПолучитьЗначение(ии,4);
               Сумма=Количество*Цена;
           
               ПриИзмененииНоменклатуры();
       Иначе
           Сообщить("Не найден элемент - "+ТЗ.ПолучитьЗначение(ии,2));
       КонецЕсли;    
       ии=ии+1;
   КонецЦикла;

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

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

(18) бухи тупые они тут сидеть никогда не будут.
(19) за то время, что ты чувака ищешь, сам бы уже раз 50 исправил.

Как ошибку выдаст, жми на конфигуратор, оно тебе откроет обработку на строке ошибки, и замени строку как написали.

(20) аа загрузка чтоли прихода из экселя??? так чо ты паришся. вот покупй мегаразработку (мою), будешь получать еще бесплатно обновления
http://subsystems.ru/catalog/27/158/

я бы за процедуру Процедура Кн(), рожу бы набил. Об такие переменные глаза сломать можно.

вот я сижу и уже сам в коде ковыряю!
может просто подписать Коэффициент=1 ведь коэффициенты у меня везде 1 равны сюда

Пока ии<стр Цикл
       Если Спр.НайтиПоКоду(ТЗ.ПолучитьЗначение(ии,1),0)=1 Тогда
               НоваяСтрока();
               Номенклатура=Спр.ТекущийЭлемент();
               Единица=Спр.ОсновнаяЕдиница;
           Коэффициент=1
               Количество=ТЗ.ПолучитьЗначение(ии,3);  
               Цена=ТЗ.ПолучитьЗначение(ии,4);
               Сумма=Количество*Цена;
           
               ПриИзмененииНоменклатуры();
       Иначе

сломать - ни сломать, но человек сделал, что все работало. вот только с коэфф. надо поправить
(21) а процедурой просто начали пользоваться через несколько месяц, вот и обнаружили проблемку

да напищи  / ?(ТаблНоменклатуры.Коэффициент = 0, 1, ТаблНоменклатуры.Коэффициент), сегодня коэффициент 1, а завтра может 0.01. Зря ты думаешь, что он у тебя везде 1, ноль же встречается.

Зачем вы советуете лезть в глобальный модуль?

не... где 1 - это я вручную заносить начал, а где пусто - это из экселя ничего не экспортировалось, тк там даже такого параметра нет..
(28) я уже залез. либо сломаю все, либо сделаю

(28) скажи честно. Бухой?

(30) К сожалению, нет (((
А что, я сказал какую-то глупость?

(27) он явно прописывает единицу. так что пофигу ноль или не ноль.

на ноль формула ругается - не делит. А я хочу просто тупо единицу прописать. туда. Либо со справочника выдернуть, как код будет выглядеть?
Пока ии<стр Цикл
       Если Спр.НайтиПоКоду(ТЗ.ПолучитьЗначение(ии,1),0)=1 Тогда
               НоваяСтрока();
               Номенклатура=Спр.ТекущийЭлемент();
               Единица=Спр.ОсновнаяЕдиница;
           Сюда надо строку вставить с коэффициентом
               Количество=ТЗ.ПолучитьЗначение(ии,3);  
               Цена=ТЗ.ПолучитьЗначение(ии,4);
               Сумма=Количество*Цена;
           
               ПриИзмененииНоменклатуры();
       Иначе

вот так и нужно вставить строку?

/ ?(ТаблНоменклатуры.Коэффициент = 0, 1, ТаблНоменклатуры.Коэффициент)

(33) Так ты ж (25) уже всё написал, тока ; забыл.

(35) не.. (25) не заработало. ругаться стал, что переменной такой нет.

я уже методом научного тыка начал делать

пишет вот такую ошибку
Коэффициент    = ТаблицаДокумента<<?>>.Коэффициент;
{Документ.ПеремещениеТМЦ.Форма.Модуль(1228)}: Переменная не определена (ТаблицаДокумента)

(38) В (25) такого кода не было )

может надо написать Табл.номенклатуры.коэффициент=1 ?

(39) по совету (27) сделал так

(41) Напиши так. Это правильно.

Пока ии<стр Цикл
       Если Спр.НайтиПоКоду(ТЗ.ПолучитьЗначение(ии,1),0)=1 Тогда
               НоваяСтрока();
               Номенклатура=Спр.ТекущийЭлемент();
               Единица=Спр.ОсновнаяЕдиница;
           Коэффициент=1;
               Количество=ТЗ.ПолучитьЗначение(ии,3);  
               Цена=ТЗ.ПолучитьЗначение(ии,4);
               Сумма=Количество*Цена;
           
               ПриИзмененииНоменклатуры();
       Иначе

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

(43)  топор брошу и сам пройду коды калякать.

(42) не помогло. ошибок не было. но коэффициенты не заполнились, так пустыми и стались

а.... обманул! все заполнилось правильно.
А как мне написать, если коэффициент должен будет равен значению коэффициента из справочника НОМЕНКЛАТУРА?

и мясник даже может с опытными наставниками писать кое-что:)))) Это только в России!

что делать-то надо ?

(45) А разве в справочнике Номенклатуры задается коэффициент?

Жесть.. Мясник в 1С..

(47) спать

Коэффициент = Спр.ОсновнаяЕдиница.Коэффициент;

вот так правильно, если я не ошибаюсь )

(0) Если кодить сам не можешь, ищи того кто сможет. Если нашел не теряй. Если считаешь что кто то тебе теперь ошибки разгребать будет - наивен.
Тему до завтра закрывать не буду.

Но как можно потерять контакты разработчика?! Сказки рассказываете.

(51) Абсолютно верно!!! оказалось все так просто. пробовал менять в номенклатуре коэффициент, именно он и встает в форму.
(52)Когда райда нет на компе, то даже "топор" не поможет. Возникает сразу много трудностей. Хорошо, что Вас это не коснулось. Там не только контакты потеряешь.
А про наивность:)))) так разгребли, помогли добрый люди. За это всех, кто помогал, БЛАГОДАРЮ. Когда делаешь своими руками, возникает желание изучать дальше. А может в таких ситуация и рождаются программисты. Проблема решена и тему можно закрывать.

У меня важные данные хранятся на 4х разных устройствах и в двух "облаках".
Если данные действительно важны надо уметь ими дорожить.

Вспомним старый афоризм: Люди делятся на 2 типа: те кто еще не делает бэкапы, и, на тех кто уже делает.

(54) На тех, кто делает, и тех, кто будет делать)

(0) Для каких целей ищешь?

(56) уже решили проблему и уже не ищу.

(54) плохо вспомнил. запиши себе в облако на память )))

фигасе, сколько раз тут мой код скопип*здили...