Поиск ссылок на документ
26.03.2008
12:00
#1
При вводе документа БухУчетНачислений на документ НачисленияУдержанияСотрудника(или списку сотрудников) нужно проверить не вводился ли такой документ ранее в этом месяце на это же начисление. Что можно дописать в процедуру обработки проведения?
Заранее спасибо.
Заранее спасибо.
26.03.2008
13:03
#2
"Напишите что то вроде:
Процедура ПриЗаписи()
Если ПустоеЗначение(ДокОснование)=0 Тогда
Если Найти("НачисленияУдержанияСотрудника,НачисленияУдержанияСписком",ДокОснование.Вид())>0 Тогда
Найден=0;
Доки=СоздатьОбъект("Документ.БухУчетНачислений");
Доки.ВыбратьДокументы(НачМесяца(ДатаДок),КонМесяца(ДатаДок));
Пока Доки.ПолучитьДокумент()=1 Цикл
Если ПустоеЗначение(Доки.ДокОснование)=0 Тогда
Если Найти("НачисленияУдержанияСотрудника,НачисленияУдержанияСписком",Доки.ДокОснование.Вид())>0 Тогда
Если ТипЗначения(Доки.Расчет)=ТипЗначения(Расчет) Тогда
Если Доки.Расчет=Расчет Тогда
Найден=1;
Прервать;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если Найден=1 Тогда
Предупреждение("В текущем месяце уже создан документ для распределения этого вида расчета.");
СтатусВозврата(0);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры"
Процедура ПриЗаписи()
Если ПустоеЗначение(ДокОснование)=0 Тогда
Если Найти("НачисленияУдержанияСотрудника,НачисленияУдержанияСписком",ДокОснование.Вид())>0 Тогда
Найден=0;
Доки=СоздатьОбъект("Документ.БухУчетНачислений");
Доки.ВыбратьДокументы(НачМесяца(ДатаДок),КонМесяца(ДатаДок));
Пока Доки.ПолучитьДокумент()=1 Цикл
Если ПустоеЗначение(Доки.ДокОснование)=0 Тогда
Если Найти("НачисленияУдержанияСотрудника,НачисленияУдержанияСписком",Доки.ДокОснование.Вид())>0 Тогда
Если ТипЗначения(Доки.Расчет)=ТипЗначения(Расчет) Тогда
Если Доки.Расчет=Расчет Тогда
Найден=1;
Прервать;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если Найден=1 Тогда
Предупреждение("В текущем месяце уже создан документ для распределения этого вида расчета.");
СтатусВозврата(0);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры"
26.03.2008
14:29
#3
Спасибо. я такой вариант предполагал, но расчитывал, что есть вариант по проще. Документы вводятся обработкой сразу на 2000 человек, кроме того, этому же человеку вводится документ бухучет на определенные виды расчета. У каждого человека проверяется наличие или отсутсвие документа примерно таким образом. По времени очень долго, вот и думаю как сократить.
PS: Если кто сталкивался, то это субвенциальные выплаты.
PS: Если кто сталкивался, то это субвенциальные выплаты.
Читают тему
(гостей: 1)