Новичок. Процедура ОбработкаПроведения()

[Nodir2525]

Конфигурация
   - Справочники
      - Контрагент                                 
                                               - Фамилия       
                 - Имя
         - Отчество
                                  - ДокументНомер
                                     
Документы
        - ВводНовыхКлиентов
   - Шапка
                                - Фамилия   
                - Имя
       - Отчество
      - ДокументНомер        
--------------------------------------------------------------------------------------------------

- Модуль Документа- Документ.ВводНовыхКлиентов
-------------------------------------------------------------------------------------------------
Процедура ОбработкаПроведения()

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

КонецПроцедуры
------------------------------------------------------------------------------------------------
У меня такой Вапрос?
Когда Я водил нового клиента он создавался на справочнике.
Но база ведает ошибку.

СпрК.Записать();
{Документ.ВводНовыхКлиентов.Модуль Документа(14)}: Не определена дата! Элемент не может быть записан!

[kiser]

Может среди реквизитов справочника есть периодические?

[Nodir2525]

На Свойства Реквизита стоит галочка "Периодический, Изменяется Документами"
Я хочу только водили новых клиентов через "ВводНовыхКлиентов" и делали изменение только через Конфигурацию - Документы - ИзменениеДанныхКлиентов!!!
Чтобы через Справочник - Контрагент - не смогли водит и изменят данный!!!

[Kivals]

Nodir2525, Проведение документа - в общем случае операция не разовая, а у тебя при каждом проведении будет создаваться новый элемент справочника. Нужно добавить дополнительные проверки чтобы элемент не создавался повторно.
Если у реквизита справочника установлены такие параметры, как ты описал (и снят флажок Ручное изменение) - то правильно устанавливать реквизит нужно с помощью процедуры УстановитьРеквизитСправочника();

[Nodir2525]

Kivals
процедуры УстановитьРеквизитСправочника();
можно пример написать

[AndyG]

Открываем Стандартную конфигурацию и смотрим обработку "ПервыйЗапуск"
там есть примеры, вот кусок:

   Валюты = СоздатьОбъект("Справочник.Валюты");
      Валюты.Новый();
      Валюты.Код = "0";
      Валюты.Наименование = "Руб";
      Валюты.ПолнНаименование = "Рубли";
      Валюты.Записать();
      Валюты.Кратность.Установить('01.01.1980',1); //периодический
      Валюты.Курс.Установить('01.01.1980',1);//периодический

Но как правильно заметил Kivals, возможно элемент справочника уже присутствует, тогда следует
написать проверку дублирования, и если есть элемент, то спозиционироваться на нем и код будет
несколько другой:
УстановитьРеквизитСправочника(<ЭлементСправочника>,<НазваниеРеквизита>,<Значение>,<ДатаУстановки>,<ИмяТипа>,<Длина>,<Точность>)
Хотя я использовал в доках и вариант 1, те Спр.Реквизит.Установить(дата, значение)

[kiser]

ИМХО надо так:

Код:

Процедура ОбработкаПроведения()

СпрК=СоздатьОбъект("Справочник.Контрагент");
СпрК.Новый();
УстановитьРеквизитСправочника(СпрК,"Фамилия",Фамилия,ДатаДок);
УстановитьРеквизитСправочника(СпрК,"Имя",Имя,ДатаДок);
УстановитьРеквизитСправочника(СпрК,"Отчество",Отчество,ДатаДок);
//если остальные реквизиты не периодические, то так и останутся
СпрК.ДокументНомер=ДокументНомер;
СпрК.ДокументДатаВыдачи=ДокументДатаВыдачи;
СпрК.ДокументКемВыдан=ДокументКемВыдан;
СпрК.Наименование=СокрЛП(Фамилия)+" "+СокрЛП(Имя)+" "+СокрЛП(Отчество);
//если хочешь использовать СпрК.Фамилия, СпрК.Имя и СпрК.Отчество тогда
//СпрК.Наименование=СокрЛП(СпрК.Фамилия.Получить(ДатаДок))+" "+СокрЛП(СпрК.Имя.Получить(ДатаДок))+" "+СокрЛП(СпрК.Отчество.Получить(ДатаДок));
//поскольку периодические реквизиты не только записываются по дате, но и читаются
СпрК.Записать();

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

[Kivals]

Код:

...
СпрК.Новый();
УстановитьРеквизитСправочника(СпрК,"Фамилия",Фамилия,ДатаДок);
...

Не прокатит. Нужно так:

Код:

...
СпрК.Записать();
УстановитьРеквизитСправочника(СпрК,"Фамилия",Фамилия,ДатаДок);
...

[Nodir2525]

KISER
Я попробовал, как ты написал. Но у меня не получается.
У меня на конфигурации только это написано.
Может куда та что-то надо писать.

[Nodir2525]

Kivals,
Код:
...
СпрК.Новый();
УстановитьРеквизитСправочника(СпрК,"Фамилия",Фамилия,ДатаДок);
...Не прокатит. Нужно так:

Код:
...
СпрК.Записать();
УстановитьРеквизитСправочника(СпрК,"Фамилия",Фамилия,ДатаДок);
...


Мне надо так писат!!!

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

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

[kiser]

Так последний вариант работает?

[Nodir2525]

Последний вариант работает
Но в Контрагенте в Наименование не чего нету пуста.

СпрК.Наименование=СокрЛП(СпрК.Фамилия.Получить(ДатаДок))+" "+СокрЛП(СпрК.Имя.Получить(ДатаДок))+" "+СокрЛП(СпрК.Отчество.Получить(ДатаДок));
не работает на верно.

[Kivals]

Код:

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

[Nodir2525]

Серавно!!!

СпрК.Наименование=СокрЛП(СпрК.Фамилия.Получить(ДатаДок))+" "+СокрЛП(СпрК.Имя.Получить(ДатаДок))+" "+СокрЛП(СпрК.Отчество.Получить(ДатаДок));
не работает на верно.

[Kivals]

Сори - не глянул (естественно эти реквизиты еще не установлены)
Вот так долно быть:
СпрК.Наименование=СокрЛП(Фамилия)+" "+СокрЛП(Имя)+" "+СокрЛП(Отчество);
где Фамилия, Имя, Отчество - это реквизиты документа

[Kivals]

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

[Nodir2525]

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

В чем разница с вашим модулем.

[Kivals]

Разница в том, что твой вариант просто устанавливает реквизиты на указанную даты (не привязывая их к документу), что имеет свои минусы:
0. Такой режим предусматривает ручное изменение периодических реквизитов - в некоторых случаях это недопустимо
1. На каждую дату можно установить только одно значение - значит 2 документа в один день сделать нельзя, точнее можно, но первое значение будет "затерто".
3. Значение не привязано к документу, т.е. нельзя просто посмотреть в историю реквизита и узнать каким документом изменение внесено
4. При отмене проведения документа значения реквизитов не отменятся.

Возможно для твоей задачи это и приемлемо, но это неправильный подход (ИМХО)

[Nodir2525]

Сори - не глянул (естественно эти реквизиты еще не установлены)
Вот так долно быть:
СпрК.Наименование=СокрЛП(Фамилия)+" "+СокрЛП(Имя)+" "+СокрЛП(Отчество);
где Фамилия, Имя, Отчество - это реквизиты документа

Да это плохо.
На Вашем варианте
СпрК.Наименование=СокрЛП(Фамилия)+" "+СокрЛП(Имя)+" "+СокрЛП(Отчество);
Не работает

[kiser]

Код:

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

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

[Kivals]

Если Вопрос("Такой контрагент есть! Добавить этого?", "Да+Нет") = "Нет"

kiser, не рекомендую использовать интерактивные функции при проведении. В крайнем случае (если уж очень хочется) - то с установленным таймаутом (обычно - последний параметр).
Причина: например есть 100 000 документов, которые надо перепровести чтобы исправить последовательность. Запускаем вечером, смотрим что первые 100 документов проводятся нормально и уходим домой, предполагая, что за ночь все проведется. Утром видим картину: на 200-м документе у нас завис вопрос и все остановилось
Проверять результат ГрупповаяОбработка() - не выход, т.к. документы могут массово проводиться и самонаписаной обработкой.

[kiser]

Если Вопрос("Такой контрагент есть! Добавить этого?", "Да+Нет") = "Нет"

kiser, не рекомендую использовать интерактивные функции при проведении. В крайнем случае (если уж очень хочется) - то с установленным таймаутом (обычно - последний параметр).
Причина: например есть 100 000 документов, которые надо перепровести чтобы исправить последовательность. Запускаем вечером, смотрим что первые 100 документов проводятся нормально и уходим домой, предполагая, что за ночь все проведется. Утром видим картину: на 200-м документе у нас завис вопрос и все остановилось
Проверять результат ГрупповаяОбработка() - не выход, т.к. документы могут массово проводиться и самонаписаной обработкой.

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

[Kivals]

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

[Nodir2525]

СПАСИБО!!!
ПОЛУЧИЛСЯ!!!

[Nodir2525]

Процедура ОбработкаПроведения()
    СпрК=СоздатьОбъект("Справочник.Контрагент");
    СпрК.Новый();
   СпрК.Наименование=СокрЛП(Фамилия)+" "+СокрЛП(Имя)+" "+СокрЛП(Отчество);
    СпрК.Записать();     
   УстановитьРеквизитСправочника(СпрК,"Фамилия",Фамилия,ДатаДок);
    УстановитьРеквизитСправочника(СпрК,"Имя",Имя,ДатаДок);
    УстановитьРеквизитСправочника(СпрК,"Отчество",Отчество,ДатаДок);
   УстановитьРеквизитСправочника(СпрК,"ДокументНомер",ДокументНомер,ДатаДок);
    УстановитьРеквизитСправочника(СпрК,"ДокументСерия",ДокументСерия,ДатаДок);
    УстановитьРеквизитСправочника(СпрК,"ДокументДатаВыдачи",ДокументДатаВыдачи,ДатаДок);
    УстановитьРеквизитСправочника(СпрК,"ДокументКемВыдан",ДокументКемВыдан,ДатаДок);
   УстановитьРеквизитСправочника(СпрК,"ЮридическиеАдрес",ЮридическиеАдрес,ДатаДок);
   УстановитьРеквизитСправочника(СпрК,"КодСОАТОЮрАдрес",КодСОАТОЮрАдрес,ДатаДок); 
   УстановитьРеквизитСправочника(СпрК,"ПочтовыйИндексЮр",ПочтовыйИндексЮр,ДатаДок); 
   УстановитьРеквизитСправочника(СпрК,"Страна",Страна,ДатаДок);   
    УстановитьРеквизитСправочника(СпрК,"ПочтовыйАдрес",КодСОАТОПочАдрес,ДатаДок);   
    УстановитьРеквизитСправочника(СпрК,"ПочтовыйАдрес",КодСОАТОПочАдрес,ДатаДок);
    УстановитьРеквизитСправочника(СпрК,"ПочтовыйАдрес",КодСОАТОПочАдрес,ДатаДок);   
    УстановитьРеквизитСправочника(СпрК,"Регион",Регион,ДатаДок);   
    КонецПроцедуры

ОШИБКА!!!
СпрК.Записать();     
{Документ.ВводНовыхКлиентФиз.Модуль Документа(28)}: Неверно задан код!

[Kivals]

Для справочника Контрагент:
Какой тип и длина кода?
Установлен ли флаг автонумерации?

[Nodir2525]

ДА!!!
СПАСИБО!!!