Трудовая книжка
16.06.2004
13:03
#2
"Процедура Стаж()
ТрудоваКнижка=0;
Если ТрудоваяКнижка=1 Тогда
_____Сообщить("Все супер! Пашем дальше");
Иначе
_____ТрудоваяКнижка=Купить(ТрудоваяКнижка);
_____Если НайтиАрхив=1 Тогда
________ВосстановитьЗаписи=1;
_____Иначе
________ВспомнитьМестаРаботы=1;
________ПройтиПроставитьЗаписи=1;
_____КонецЕсли;
КонецЕсли;
КонецПроцедуры"
ТрудоваКнижка=0;
Если ТрудоваяКнижка=1 Тогда
_____Сообщить("Все супер! Пашем дальше");
Иначе
_____ТрудоваяКнижка=Купить(ТрудоваяКнижка);
_____Если НайтиАрхив=1 Тогда
________ВосстановитьЗаписи=1;
_____Иначе
________ВспомнитьМестаРаботы=1;
________ПройтиПроставитьЗаписи=1;
_____КонецЕсли;
КонецЕсли;
КонецПроцедуры"
Читают тему
(гостей: 1)