Имя: Пароль:
1C
1C 7.7
v7: Ищу програмиста_2
,
0 ivanant
 
20.12.11
00:28
Тему зачем закрыли? Правила я раньше читал "Памятка работодателю о том, как правильно оформлять вакансию" и не вакансию открывал, а искал определенного человека, который мне делал уже этот проект и ему подкорректировать не составит проблем, как мне.
А находил его раньше через этот форум, больше способов найти его нет:( т.к. HDD "сдулся " вместе со всеми контактами.
GROOVY, тему невнимательно читаете. А всем спасибо за помощь, только в этом я несилен, вот и хочу найти человека.
1 Demasiado
 
20.12.11
00:29
Маниак, твоя поделка?:)
2 ProProg
 
20.12.11
00:30
(0) сколько стоила работа? по цене определю я делал или нет.
3 Stim213
 
20.12.11
00:31
в памятке есть памятка, что памятка не относится к временным работам
4 Amra
 
20.12.11
00:32
(2) судя по коду...
5 Никола_
Питерский
 
20.12.11
00:32
Может так и писать в теме ? Ищю разработчика некой поделки. Потерял контакты ! и т.д.
6 ivanant
 
20.12.11
00:34
до 1000... сам не помню. код могу выложить
7 ivanant
 
20.12.11
00:35
через вестерн юнион на Украину отправлял
8 ProProg
 
20.12.11
00:38
(6) не тогда не я. но могу поправить что надо за 10 000.
9 Stim213
 
20.12.11
00:38
все семерочники вымерли уже
10 Deon
 
20.12.11
00:38
Триг, наверно )
11 hohol
 
20.12.11
00:39
тебе же в прошлой ветке уже сказали.
?(ТаблНоменклатуры.Коэффициент = 0, 1, ТаблНоменклатуры.Коэффициент) вместо ТаблНоменклатуры.Коэффициент напиши.
Кем ты работаешь? Скоко денег получаешь?
12 ProProg
 
20.12.11
00:40
(11) да обычный юезр это. не прог. темы глянь.
13 ivanant
 
20.12.11
00:41
работаю рубщиком:))) мясо рублю..
14 Stim213
 
20.12.11
00:41
мясоруб, значит..
15 hohol
 
20.12.11
00:43
Интересно какие еще профессии на мисту заходят?
16 Deon
 
20.12.11
00:43
(0) Так а в твоих ветках от августа его, случайно, нет?
17 hohol
 
20.12.11
00:45
Знаю что ОК и КА. Ну эти понятно. А когда уже ну там политики подтянтся или проститутки? Нафиг им этот твитер? Пусть здесь пишут.
18 Deon
 
20.12.11
00:46
(17) Бухгалтеров забыл. Их тут тоже хватает
19 ivanant
 
20.12.11
00:47
да ветки уже просмотрел. Блин. не помню ник и все. Здесь словились и перешли на почту. Зе бат тоже с диском умер:( завтра пойду в банк, вычислю адрес и фио.
20 ivanant
 
20.12.11
00:49
а вот какой код у нас там был
//******************************************************************************
// ПриИзмененииНоменклатуры()
//
// Параметры:
//  Нет
//
// Возвращаемое значение:
//  Нет
//
// Вызывается из формул элементов диалога:
//  Колонка "Номенклатура" табличной части документа.
//
// Описание:
//  Производит проверку правильности выбора номенклатуры (Не даем выбрать услугу)
//
Процедура ПриИзмененииНоменклатуры()
   
   Если Номенклатура.Выбран()=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;
   КонецЦикла;

   
КонецПроцедуры
21 ProProg
 
20.12.11
00:50
кстати откуда нам знать, а вдруг ТС ищет 1Сника чтобы сделать страшную месть.
Я лично сомневаюсь в том чтобы можно было искать за какую то хрень сделанную за 1000 рублей через полгода 1Сника.
22 hohol
 
20.12.11
00:50
(18) бухи тупые они тут сидеть никогда не будут.
(19) за то время, что ты чувака ищешь, сам бы уже раз 50 исправил.

Как ошибку выдаст, жми на конфигуратор, оно тебе откроет обработку на строке ошибки, и замени строку как написали.
23 ProProg
 
20.12.11
00:52
(20) аа загрузка чтоли прихода из экселя??? так чо ты паришся. вот покупй мегаразработку (мою), будешь получать еще бесплатно обновления
http://subsystems.ru/catalog/27/158/
24 hohol
 
20.12.11
00:52
я бы за процедуру Процедура Кн(), рожу бы набил. Об такие переменные глаза сломать можно.
25 ivanant
 
20.12.11
00:54
вот я сижу и уже сам в коде ковыряю!
может просто подписать Коэффициент=1 ведь коэффициенты у меня везде 1 равны сюда

Пока ии<стр Цикл
       Если Спр.НайтиПоКоду(ТЗ.ПолучитьЗначение(ии,1),0)=1 Тогда
               НоваяСтрока();
               Номенклатура=Спр.ТекущийЭлемент();
               Единица=Спр.ОсновнаяЕдиница;
           Коэффициент=1
               Количество=ТЗ.ПолучитьЗначение(ии,3);  
               Цена=ТЗ.ПолучитьЗначение(ии,4);
               Сумма=Количество*Цена;
           
               ПриИзмененииНоменклатуры();
       Иначе
26 ivanant
 
20.12.11
00:56
сломать - ни сломать, но человек сделал, что все работало. вот только с коэфф. надо поправить
(21) а процедурой просто начали пользоваться через несколько месяц, вот и обнаружили проблемку
27 hohol
 
20.12.11
00:58
да напищи  / ?(ТаблНоменклатуры.Коэффициент = 0, 1, ТаблНоменклатуры.Коэффициент), сегодня коэффициент 1, а завтра может 0.01. Зря ты думаешь, что он у тебя везде 1, ноль же встречается.
28 Deon
 
20.12.11
01:00
Зачем вы советуете лезть в глобальный модуль?
29 ivanant
 
20.12.11
01:01
не... где 1 - это я вручную заносить начал, а где пусто - это из экселя ничего не экспортировалось, тк там даже такого параметра нет..
(28) я уже залез. либо сломаю все, либо сделаю
30 hohol
 
20.12.11
01:01
(28) скажи честно. Бухой?
31 Deon
 
20.12.11
01:03
(30) К сожалению, нет (((
А что, я сказал какую-то глупость?
32 ProProg
 
20.12.11
01:03
(27) он явно прописывает единицу. так что пофигу ноль или не ноль.
33 ivanant
 
20.12.11
01:05
на ноль формула ругается - не делит. А я хочу просто тупо единицу прописать. туда. Либо со справочника выдернуть, как код будет выглядеть?
Пока ии<стр Цикл
       Если Спр.НайтиПоКоду(ТЗ.ПолучитьЗначение(ии,1),0)=1 Тогда
               НоваяСтрока();
               Номенклатура=Спр.ТекущийЭлемент();
               Единица=Спр.ОсновнаяЕдиница;
           Сюда надо строку вставить с коэффициентом
               Количество=ТЗ.ПолучитьЗначение(ии,3);  
               Цена=ТЗ.ПолучитьЗначение(ии,4);
               Сумма=Количество*Цена;
           
               ПриИзмененииНоменклатуры();
       Иначе
34 ivanant
 
20.12.11
01:07
вот так и нужно вставить строку?

/ ?(ТаблНоменклатуры.Коэффициент = 0, 1, ТаблНоменклатуры.Коэффициент)
35 Deon
 
20.12.11
01:08
(33) Так ты ж (25) уже всё написал, тока ; забыл.
36 ivanant
 
20.12.11
01:10
(35) не.. (25) не заработало. ругаться стал, что переменной такой нет.
37 ivanant
 
20.12.11
01:10
я уже методом научного тыка начал делать
38 ivanant
 
20.12.11
01:11
пишет вот такую ошибку
Коэффициент    = ТаблицаДокумента<<?>>.Коэффициент;
{Документ.ПеремещениеТМЦ.Форма.Модуль(1228)}: Переменная не определена (ТаблицаДокумента)
39 Deon
 
20.12.11
01:12
(38) В (25) такого кода не было )
40 ivanant
 
20.12.11
01:13
может надо написать Табл.номенклатуры.коэффициент=1 ?
41 ivanant
 
20.12.11
01:13
(39) по совету (27) сделал так
42 Deon
 
20.12.11
01:16
(41) Напиши так. Это правильно.

Пока ии<стр Цикл
       Если Спр.НайтиПоКоду(ТЗ.ПолучитьЗначение(ии,1),0)=1 Тогда
               НоваяСтрока();
               Номенклатура=Спр.ТекущийЭлемент();
               Единица=Спр.ОсновнаяЕдиница;
           Коэффициент=1;
               Количество=ТЗ.ПолучитьЗначение(ии,3);  
               Цена=ТЗ.ПолучитьЗначение(ии,4);
               Сумма=Количество*Цена;
           
               ПриИзмененииНоменклатуры();
       Иначе
43 Stim213
 
20.12.11
01:24
а ведь человек работал всю жизнь себе спокойно рубщиком мяса.. какие все-таки одинесники бесчувственные животные...
44 ivanant
 
20.12.11
01:30
(43)  топор брошу и сам пройду коды калякать.

(42) не помогло. ошибок не было. но коэффициенты не заполнились, так пустыми и стались
45 ivanant
 
20.12.11
01:32
а.... обманул! все заполнилось правильно.
А как мне написать, если коэффициент должен будет равен значению коэффициента из справочника НОМЕНКЛАТУРА?
46 ivanant
 
20.12.11
01:33
и мясник даже может с опытными наставниками писать кое-что:)))) Это только в России!
47 zak555
 
20.12.11
01:50
что делать-то надо ?
48 Deon
 
20.12.11
01:51
(45) А разве в справочнике Номенклатуры задается коэффициент?
49 Попытка1С
 
20.12.11
02:04
Жесть.. Мясник в 1С..
50 Deon
 
20.12.11
02:08
(47) спать
51 Sj
 
20.12.11
02:25
Коэффициент = Спр.ОсновнаяЕдиница.Коэффициент;

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

Но как можно потерять контакты разработчика?! Сказки рассказываете.
53 ivanant
 
20.12.11
06:37
(51) Абсолютно верно!!! оказалось все так просто. пробовал менять в номенклатуре коэффициент, именно он и встает в форму.
(52)Когда райда нет на компе, то даже "топор" не поможет. Возникает сразу много трудностей. Хорошо, что Вас это не коснулось. Там не только контакты потеряешь.
А про наивность:)))) так разгребли, помогли добрый люди. За это всех, кто помогал, БЛАГОДАРЮ. Когда делаешь своими руками, возникает желание изучать дальше. А может в таких ситуация и рождаются программисты. Проблема решена и тему можно закрывать.
54 GROOVY
 
20.12.11
06:41
У меня важные данные хранятся на 4х разных устройствах и в двух "облаках".
Если данные действительно важны надо уметь ими дорожить.

Вспомним старый афоризм: Люди делятся на 2 типа: те кто еще не делает бэкапы, и, на тех кто уже делает.
55 Начинающий Программер
 
20.12.11
06:46
(54) На тех, кто делает, и тех, кто будет делать)
56 VladZ
 
20.12.11
07:20
(0) Для каких целей ищешь?
57 ivanant
 
20.12.11
18:53
(56) уже решили проблему и уже не ищу.
58 polymorph
 
20.12.11
19:11
(54) плохо вспомнил. запиши себе в облако на память )))
59 Азат
 
20.12.11
19:36
фигасе, сколько раз тут мой код скопип*здили...
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший