Здравствуйте! помогите разобраться есть документ увольнение в форме
выбирается сотрудник и дата увольнения и 2 кнопки ок и закрыть
на кнопку ок прописан модуль :

Процедура ОбработкаПроведения()
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.НайтиЭлемент(Сотрудник);
СпрСотр.ДатаУвольнения = ДатаУвольнения;
СпрСотр.Записать();
КонецПроцедуры

Но при нажатии на кнопку ок сотрудник со справочника не удаляется в чем может быть дело ? И при нажатии операции проведение документа удаление вылазит ошибка:
СпрСотр.ДатаУвольнения = ДатаУвольнения;
{Документ.Увольнение.Модуль Документа(8)}: Не выбран элемент!

(38) СпрСотр.Записать();
СпрСотр.Удалить(1);

да ты кудесник!

Случайный прохожий спасибо тебе добрый человек!!! :D

(39) Это обучающий код) Когда он его запустит и поймет в чем дело, тогда просто удалит строку "СпрСотр.Удалить(1);" и настанет мир во всем мире XD

(40) ты как-то не с той стороны начал 1С изучать

(40) Незачто, пользуйся на здоровье XD

1Сергей поподробнее? если можно..

Всем спасибо за участие!!!!!!!!!!

Открой документы приема и увольнения. Всё норм там?)

(38) Очень... очень... интересный подход...

ДА все нормально проверено!!!!....Еще раз спасибо...

(46) Лучше открыть тот документ, котоый только что проводил.

(48) оО Как так? Похоже я еще нуб в 7-ке.... пойду книжки заново перечитаю...

кстати, где ДенисЧ? прогуливает? одному надо Подвал, другому Удалить. закончились СП, похоже

ребят объясните еще мне пжл в удалить() 2 режима?

(52) продам СП, дорого.

АААаааааа!!! Нафиг нафиг!!! Сейчас за мной люди в белых халатах прийдут))) Кароче я пойду лучше покушаю))) Пользуйся Синтаксис-Помошником (СП)

(52) удалить полностью или только пометить крестиком

ок спасибо...

(28) "... смысл в том что мне их хранить даже в группе не нада я хочу их выкидывать со справочника"
Переносил я тут на днях из Firebird данные. Так вот там та же херня. Идиоты тупо удаляли записи из таблицы. Теперь фиг поймешь чего продавалось и чего на остатке.
Лучше б твой начальник нанял 1С-ника и не портил тебе карму. Хотя ты сам себе ее портишь с таким радикальным подходом.
Интересно, а если начальник захочет что б ты розовое платье на работу одевал - также прогнешся?..

(56) я вот не понимаю. Программируешь на куче языков, в которых во всех есть функция удаления объектов. Не уж та трудно проверить есть ли тут такие же команды.
Берешь пишешь команду, выделяешь ее, жмешь ctrl+f1 и смотришь есть или нет, там же тебе сразу напишет что делает для разных объектов и какие параметры нужны.

(56) Вам что-нибудь говорит понятие "реляционная мдель базы данных"? и еще вопрос: а с сылками на удаляемый объект что будете делать?

Злой Бобр Лучше б твой начальник нанял 1С-ника и не портил тебе карму. Хотя ты сам себе ее портишь с таким радикальным подходом.
Интересно, а если начальник захочет что б ты розовое платье на работу одевал - также прогнешся?..
Причем тут карма если ты читал тему прочитай еще раз. Подход это чисто для меня объясняю персонально. База учебная. Про платье ответь сам на свой вопрос. А 1с я думаю мне пригодится поэтому и разбираюсь но уж точно не прогибаюсь.

Аццкий Чибуражко простыми словами атрибуты, схема отношения базы данных. Условия целостности данных. Связи между таблицами. Общие представления о модели данных.

del123 вот ответ на вопрос 1с - единственный в мире язык программирования на Русском языке. Понятное дело что команды отличаются от других может если только с бейсиком или си++

Действительно, что к человеку пристали? Как говорил Ленин: "Учиться, учиться и еще раз - учиться" ))) Психопат, не слушай их. Просто им на работе делать нечего и они так развлекаются :) Если чего непонятно по синтаксису - жми Ctrl+F1, если непонятно что-то еще - пиши на форум :)

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

а можно попросить открыть эти 2 документа, сделать скрины и выложить их сюда ?

ок...

(60) Если б непрогибался то мучал бы снеговика а не клюшки.
А вообще мне пофиг. В итоге такие как я потом заработают больше на поднятии убитых баз. Так что удаляй все нафиг...

http://s61.radikal.ru/i171/1205/93/45764350152c.jpg

(68) ну и зачем ты нам формы новых документов показываешь? ты тот покажи, в котором ОК жал

Ахахахаа))))) Психопат, сорри, я под столом))) Но вот твое "Уполнение" и "Дата Уфольнения" вынесли мне мозг))))

+(69) и размер картинки не меняй

(70) ты где там разглядел?

господа, вы не заметили главное
он сделал скрин НОВЫХ доков, а не открытых

Злой Бобр Ты наверно не понял еще есть такие случаи когда нужно удалять из справочника. Но речь не об этом Я еще раз тебе напоминаю база учебная и я это делаю исключительно для себя в ознакомительных целях а насчет зп. получай больше я только рад этому. Программистов и так недооценивают поэтому и платят так....А если ты сможешь заработать то это только +....

(72) Лупу к экрану подставил XD

(73) да заметили

слово "долбо;№б" уже звучало в ветке?

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

(78) Ну вот у нас уже практически вечер, так что можно вечер среды округлить до утра четверга. А четверг - это предпятничный день, можно сказать практически конец недели, поэтому и воспринимается как пятница. Так что нам осталось совсем недолго) Ждем, господа)))

(38) = левизна....
нет позиционирования на элементе справочника
и зачем присваивать дату и записывать - если тут же удаляешь?О_О

(80)>>нет позиционирования на элементе справочника


а это чаво?

СпрСотр.НайтиЭлемент(Сотрудник);

(81) результат = ложь или истина
а у них нет реквизитов

(80) Тему до конца читай :) Это "обучающий код". Можно бы конечно было бы просто написать:

Процедура ОбработкаПроведения()
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.НайтиЭлемент(Сотрудник);
СпрСотр.Удалить(1);
КонецПроцедуры

Но после запуска такого кода пользователь увидел бы несуществующие ссылки на объекты и пришлось бы переписывать в:

Процедура ОбработкаПроведения()
СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
СпрСотр.НайтиЭлемент(Сотрудник);
СпрСотр.ДатаУвольнения = ДатаУвольнения;
СпрСотр.Записать();
КонецПроцедуры

Поэтому какой смысл удалять две строки, если их потом придется заново писать?) Легче написать написать сразу так, а потом удалить 1 строку. А вообще если кто не понял - этот код - своего рода шутка. Сам бы я никогда так не написал :)

ПРОШУ ПРОЩЕНИЯ НЕ ТОТ СКРИН СКИНУЛ.....СЧАС СКИНУ НУЖНЫЙ....

ээ.. вынос мозга

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

вот скрин....
http://s019.radikal.ru/i632/1205/c5/8af2f5d7384e.jpg

(87) теперь ответь на вопрос: кого уволил?

+(88) документ есть? есть. значит, увольнение было. а кого?

(88) тфу, блин, я дурак. Вассалов, на скрине же видно!

(87)
предлагаю сделать документ "Банкротство" - с удалением всех сотрудников (и остатков ОС , товаров - как заведёшь)

на скрине же все видно: "<Объект не найден>(20/)" - вот его и уволили :)

(90) он в журнале регистрации может увидеть)

А вообще лучше сделать, чтобы при увольении сотрудника удалялись все доки, связанные с ним :)

(94) и повестка родным

отлично, у него получилось
5 баллов, особенно за теоретические знания про реляционную модель БД

(96) в (61) очень правильные слова, перечитай ;)

При приеме на работу, там где у тебя ФИО стоит - должно быть реквизит не с типом "текст", а с типом "Справочники.Сотрудники"

(98) Нет, он все правильно сделал - хоть по фамилии вспомнить потом кого принимали :)

сотня

Случайный прохожий было бы не плохо....попробовать....Для ВСЕХ ЕЩЕ РАЗ МНЕ БЫЛО ВАЖНО УДАЛИТЬ СО СПРАВОЧНИКА РАБОТНИКА А ТО ЧТО ОН В ДОКУМЕНТЕ НЕ ОТОБРАЖАЕТСЯ ТО ЭТО ПОКА ДЛЯ МЕНЯ НЕ ВАЖНО....НО ПОТОМ Придется разбиратся как сделать что бы он оставался в документе...Но я думаю придется делать группу уволенные..Да я понимаю  Случайный прохожий я ставил так но вопрос в том что я работаю с формой а не со справочником и при вводе в форму сотрудник записывается в справочник....А не я завожу нового сотрудника в справочнике

(101) Перепроведи прием на работу. Глянь, создался ли еще "клон" сотрудника?

(101) честно-честно, я два раза медленно прочитал. ни черта не понял. особенно вот это: при вводе в форму сотрудник записывается в справочник

(103) Это передовые технологии, как в 8-ке :) Ты пишешь только ФИО в текстовое поле, а 1С-ка сама создает элемент справочника "Сотрудники" и записывает его :)

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

Процедура ОбработкаПроведения()
   СпрСотр = СоздатьОбъект("Справочник.Сотрудники");
   
   Если СпрСотр.НайтиПоНаименованию(ФИО) = 1 Тогда
       Предупреждение("Сотрудник сушествует");
       // проверка есть или нет сотрудник в справочнике
   Иначе  
       СпрСотр.Новый();
       СпрСотр.Наименование = ФИО;
       СпрСотр.Должность = Должность;
       СпрСотр.Оклад = Оклад;
       СпрСотр.ДатаПриема = ДатаПриема;
       СпрСотр.Записать();
       // ввод нового сотрудника
       Предупреждение("Сотрудник  успешно внесен!!!");
   КонецЕсли;    
           
   КонецПроцедуры

(105) а теперь прими на работу двух полных тёзок

и предупреждение в проведении - моветон, мягко говоря

(104) у мну так и сделано в одной базке. В документе храниться и строка и ссылка на элемент спр

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

(105) не, класс! документ служит для создания элемента справочника. неплохо

(105) Молодец :) Помню у нас в АГУ были такие чудные предподаватели, звали их Дронов Сергей Вадимович, Дронов Вадим Сергеевич и снова Дронов Сергей Вадимович. Мы Сергеев Вадимовичей звали "старшим" и "младшим" соответственно. А у тебя программа как их различать будет?)

(109) перестань заниматься ерундой - "я сейчас попробую вот так, чисто для узнать, как можно..." - а займись изучением азов хотя бы реляционных БД

(109) поговаривают, что один из основателей этого форума создал неплохой учебник. Если тебе повезет и ты его (учебник) найдешь - не теряй время и изучай азы 7.7 по нему.:)

так я этим и занимаюсь что изучаю азы...  Wobland я понял про 2 тесок но условие не обязательно....я просто для себя это сделал....А его можно модефицировать...Либо убрать вообще....

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

можно. Но помойму удобнее когда в форме создаешь сотрудника? или лучше это делать в справочникею....

и вообще, откуда мысль в голову пришла, что при каких-то телодвижениях (приём/увольнение/продажа) нужно как-то модифицировать элемент справочника? ты ж в магазине при покупке мороженого не вырезаешь себе на лбу запись об этом

(116) поправьте меня, если в семёрке не так. при попытке выбора реквизита в документе попадаешь в список выбора. и там спокойно можно добавить себе новый элемент

(117) вообще-то в типовой бухии так и есть:

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

       СпрСотр.ВаловойДоход_СНачалаГода = ВаловыйДоходПредМестоРаб;
                         
       Если ПустоеЗначение(ИНН) = 0 Тогда
           СпрСотр.ИНН = ИНН;
       КонецЕсли;
       
       Если ПустоеЗначение(Должность) = 0 Тогда
           СпрСотр.Должность = Должность;
       КонецЕсли;
       
       Если ПустоеЗначение(ДокументСерия) = 0 Тогда
           СпрСотр.ДокументСерия = ДокументСерия;
       КонецЕсли;
       
       Если ПустоеЗначение(ДокументНомер) = 0 Тогда
           СпрСотр.ДокументНомер = ДокументНомер;
       КонецЕсли;
       
       Если ПустоеЗначение(ДокументКемВыдан) = 0 Тогда
           СпрСотр.ДокументКемВыдан = ДокументКемВыдан;
       КонецЕсли;
       
       Если ПустоеЗначение(ДокументДатаВыдачи) = 0 Тогда
           СпрСотр.ДокументДатаВыдачи = ДокументДатаВыдачи;
       КонецЕсли;
       
       Если ПустоеЗначение(Пол) = 0 Тогда
           СпрСотр.Пол = Пол;
       КонецЕсли;
       
       Если ПустоеЗначение(ДатаРождения) = 0 Тогда
           СпрСотр.ДатаРождения = ДатаРождения;
       КонецЕсли;
       
       Если ПустоеЗначение(ВидДокумента) = 0 Тогда
           СпрСотр.ВидДокумента = ВидДокумента;
       КонецЕсли;
       
       Если ПустоеЗначение(Страна) = 0 Тогда
           СпрСотр.Страна = Страна;
       КонецЕсли;
       
       Если ПустоеЗначение(СтраховойНомерПФР) = 0 Тогда
           СпрСотр.СтраховойНомерПФР = СтраховойНомерПФР;
       КонецЕсли;
       
       Если ПустоеЗначение(Телефон) = 0 Тогда
           СпрСотр.Телефон = Телефон;
       КонецЕсли;
       
       Если ПустоеЗначение(АдресПрописка) = 0 Тогда
           СпрСотр.АдресПрописка = АдресПрописка;
       КонецЕсли;
       
       Если ПустоеЗначение(АдресФакт) = 0 Тогда
           СпрСотр.АдресФакт = АдресФакт;
       КонецЕсли;
       
       Если ПустоеЗначение(АдресВСтранеПроживания) = 0 Тогда
           СпрСотр.АдресВСтранеПроживания = АдресВСтранеПроживания;
       КонецЕсли;
       СпрСотр.Записать();
   КонецЕсли;

Вопросов нет если у меня в справочнике 1000 сотрудников понятно любому что пока он будет сравнивать есть ли сотрудник в этом справочнике то быстродействия упадет значительно не будет присваеваться должность могут быть ошибки....Но я всетаки еще раз повторюсь я создал свой 1 пример в 1с для меня главное пока не быстродействие а научится работать с элементами разве не так? Почему я не с того начинаю...Или лучше читать другие книги про 1с а не на miste.ru в учебнике?

(119) ужасы какие... по аналогии. если я пришёл в магазин за мороженым без глаза, мне его там попутно вставят ;)
(120) книги про БД тебе сначала надо читать. и по русскому языку тоже. когда каша в голове начнёт пропадать, можно за что-то прикладное браться, например, за 1С

(121) я создам тебе любую бд не проблема msql запросы формы модули c этим нету проблем у меня... если надо реализую в делфе не вопрос... но спасибо за совет буду иметь в виду

(121) Заполнять периодические реквизиты документами - это правильно, а раз это так, то заполнять документом все реквизиты это удобнее

(123) а вот и ответ - периодический реквизит. а на какой период там установка идёт?
(122) так что ж ты так лажаешь-то?

(124)

   УстановитьРеквизитСправочника(Сотрудник,"Подразделение",Подразделение,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"Оклад",Оклад,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"ПроцентСевернойНадбавки",ПроцентСевернойНадбавки,ДатаДок);        
   УстановитьРеквизитСправочника(Сотрудник,"СчетЗатрат",СчетЗатрат,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"Субконто1",Субконто1,ДатаДок,СчетЗатрат.ВидСубконто(1));
   УстановитьРеквизитСправочника(Сотрудник,"Субконто2",Субконто2,ДатаДок,СчетЗатрат.ВидСубконто(2));
   УстановитьРеквизитСправочника(Сотрудник,"Субконто3",Субконто3,ДатаДок,СчетЗатрат.ВидСубконто(3));
   УстановитьРеквизитСправочника(Сотрудник,"СтатьяОтчисленийНаСоцНужды",СтатьяОтчисленийНаСоцНужды,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"СтатьяПрочихОтчисленийНаСоцНужды",СтатьяПрочихОтчисленийНаСоцНужды,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"ХарактерРаботы",ХарактерРаботы,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"Инвалид",Инвалид,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"НачислятьНалогиСФОТ",НачислятьНалогиСФОТ,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"НеВзиматьВзносыПФРиФСС",НеВзиматьВзносыПФРиФСС,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"НеВзиматьВзносыФОМС",НеВзиматьВзносыФОМС,ДатаДок);
   УстановитьРеквизитСправочника(Сотрудник,"Статус",Статус,ДатаДок);

(122) не, а что, нормальный подход... "мне сначала надо понять, как разгоняться на велосипеде - я ездить учусь..." "а как тормозить перед препятствием?" "не, ты не понял, с этим потом разберусь... сейчас главное - разогнаться!"
PS. а потом пользователи говорят "Ваше 1С такое фуфло!" и "нам мальчик за 200 р. сделает"... :))))

(126) глядя на (119) и (125) так и хочется сказать "Ваше 1С такое фуфло!" ;)

+(126) самый лучший вариант - берешь типовую и куришь её до просветления! там все случаи есть... в том числе и запись реквизитов справочника (периодических!) при проведении документа... полезно будет сразу понять логику и принципы кодирования... типовая - не идеальный вариант... но, всяко лучше, чем то, что сейчас изобретаете...
PS. а вообще, все более напоминает стеб... :)

(127) нет плохих систем, есть неумелое внедрение (с) не моё... :)

(129)подскажи с чего лучше начать с какой книги почитать для увеличения знаний в 1с м.б. на miste в учебнике или лекциях?

Wobland м.б. сбросишь примеры для общего развития?

http://www.mista.ru/tutor_1c/index.htm

Мдя, говорили мне "жертвы чернобыля" - "ты еще вспомнишь 1986!"....

(131) http://1cbooks.info/82/programmistu82/6-1spredpriyatie-82-prakticheskoe-posobie-razrabotchika-primery-i-tipovye-priemy.html

спс...

(130) Вы не поверите, но я начинал с "Описание языка" в 2-х томах и "Администрирование и конфигурирование", т. е. те самые ЖКК, которые идут в коробках... дальше - только практические (а не виртуальные!) задачи и "ковыряние" типовых до полного просветления...

Мне уже даже интересно, в какой организации работает автор темы...