номер документа с каждым добавлением уменьшаеться на 1 символ
02.03.2012
16:08
#1
"1C 7.7 УЧЕТ СЕЛЬХОЗ РАБОТ
При добавлении или копировании учетного листа тракториста машинита или автомобилиста номер документа с каждым добавлением уменьшаеться на 1 символ, подскажите в чем проблема.
Пример:
НомерДок ИП000000001 (11символов)
добавляем 1 лист
НомерДок ИП00000002 (10 символов)
и т.д.
.
.
.
.
добавляем 10 лист
НомерДок ИП (2 символов)
Затем ИП не удаляется а пишет номер не уникальный
Фрагмент модуля:
Процедура ВводНового()
//ч170308
Если ПустоеЗначение(Константа.ПолучитьАтрибут("ПрефиксДляБазы"))=1 тогда
Предупреждение("Для автоматического расчета зарплаты необходимо значение Префикс. Введите это значение через пункт меню -Операции/Константы-");
Возврат;
КонецЕсли;
НомерДок=СокрЛП(Константа.ПолучитьАтрибут("ПрефиксДляБазы"))+СокрЛП(Прав(НомерДок,8));
КонецПроцедуры
Процедура ПриОткрытии()
УправлениеВидимостью();
// глПроверкаРазрешенияРедактирования(Контекст);
Если Форма.ТолькоПросмотр() = 1 Тогда
Форма.КнопкаОК.Доступность(0);
Форма.КнопкаЗаписать.Доступность(0);
Форма.КнопкаПересчитать.Доступность(0);
КонецЕсли;
НачальнаяДатаДокумента = ДатаДок;
КонецПроцедуры
Заранее благодарим за помощь"
При добавлении или копировании учетного листа тракториста машинита или автомобилиста номер документа с каждым добавлением уменьшаеться на 1 символ, подскажите в чем проблема.
Пример:
НомерДок ИП000000001 (11символов)
добавляем 1 лист
НомерДок ИП00000002 (10 символов)
и т.д.
.
.
.
.
добавляем 10 лист
НомерДок ИП (2 символов)
Затем ИП не удаляется а пишет номер не уникальный
Фрагмент модуля:
Процедура ВводНового()
//ч170308
Если ПустоеЗначение(Константа.ПолучитьАтрибут("ПрефиксДляБазы"))=1 тогда
Предупреждение("Для автоматического расчета зарплаты необходимо значение Префикс. Введите это значение через пункт меню -Операции/Константы-");
Возврат;
КонецЕсли;
НомерДок=СокрЛП(Константа.ПолучитьАтрибут("ПрефиксДляБазы"))+СокрЛП(Прав(НомерДок,8));
КонецПроцедуры
Процедура ПриОткрытии()
УправлениеВидимостью();
// глПроверкаРазрешенияРедактирования(Контекст);
Если Форма.ТолькоПросмотр() = 1 Тогда
Форма.КнопкаОК.Доступность(0);
Форма.КнопкаЗаписать.Доступность(0);
Форма.КнопкаПересчитать.Доступность(0);
КонецЕсли;
НачальнаяДатаДокумента = ДатаДок;
КонецПроцедуры
Заранее благодарим за помощь"
Читают тему
(гостей: 1)