JonnySilver
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Assembler - язык, C++ - язык, Delphi - язык, Basic - язык, 1С - язык, Perl, SQL, FoxPro... - все они языки. Только для разных задач.
ЗЫ. Но русский язык - всем языкам язык:
Цитата: Если КорректируемыйДок.Проведен()=0 Тогда
Сообщить("Невозможно провести документ-корректировку!
|Корректируемый документ "+КорректируемыйДок+ " не проведен!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
// честная корректировка - сторнирование записей корректируемого дока
ЖР = СоздатьОбъект("ЖурналРасчетов.Зарплата");
ТП = ЖР.ТекущийПериод();
ЖРНов = СоздатьОбъект("ЖурналРасчетов.Зарплата");
ЖР.ВыбратьЗаписиПоДокументу(КорректируемыйДок);
Пока ЖР.ПолучитьЗапись()=1 Цикл
Если ЖР.ПериодРегистрации.ДатаНачала>=ТП.ДатаНачала Тогда
Сообщить("Невозможно провести документ-корректировку!
|Корректируемый документ "+КорректируемыйДок+ " проведен в текущем периоде!");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если (ЖР.ПериодРегистрации.ДатаНачала<ТП.ДатаНачала) И (ЖР.Сторно=0) Тогда
ЖРНов.Новая();
ЖРНов.УстановитьРеквизит("Документ",ТекущийДокумент());
Для Сч=1 По Метаданные.ЖурналРасчетов("Зарплата").Реквизит() Цикл
ИмяР = Метаданные.ЖурналРасчетов("Зарплата").Реквизит(Сч).Идентификатор;
ЖРНов.УстановитьРеквизит(ИмяР,ЖР.ПолучитьАтрибут(ИмяР));
КонецЦикла;
ЖРНов.Записать();
КонецЕсли;
КонецЦикла; |
После буржуйских языков - немного смешно выглядит, хотя, конечно, можно и по англицки писать... Помесь С++ с Васиком якобы для бухгалтеров. Ага. Много они в этом понимают... 
|
Всего записей: 151 | Зарегистр. 03-09-2003 | Отправлено: 20:09 25-05-2004 | Исправлено: JonnySilver, 20:14 25-05-2004 |
|
старые флудовые темы просто так не поднимаем, если есть желание пофлеймить иди в соотв. топик.