|
01.02.2004, 13:33 | #1 |
Участник
|
Форум научился различать и раскрашивать код X++ и C/AL.
Для публикации кода Х++ код надо обрамить тегами [ XPP ]код[ /XPP ] Для публикации кода C/AL код надо обрамить тегами [ CAL ]код[ /CAL ] (пробелы надо убрать) Для удобного ввода тегов, на форме ответа добавлены кнопки Х++ и C/AL. Вот, например, как выглядит код Х++ <div class='XPPtop'>X++</div><div class='XPP'>Array</div> А вот код C/AL <div class='CALtop'>C/AL</div><div class='CAL'>GLSetup.GET; IF "Shortcut Dimension 1 Code" <> '' THEN BEGIN TempJnlLineDim."Table ID" := DATABASE::"Item Journal Line"; TempJnlLineDim."Journal Template Name" := "Journal Template Name"; TempJnlLineDim."Journal Batch Name" := "Journal Batch Name"; TempJnlLineDim."Journal Line No." := "Line No."; TempJnlLineDim."Dimension Code" := GLSetup."Global Dimension 1 Code"; TempJnlLineDim."Dimension Value Code" := "Shortcut Dimension 1 Code"; TempJnlLineDim.INSERT; END;</div> По-прежнему, можно пользоваться тегом [ CODE ] Код: static void testSysQuery_CountLoops_rnr(Args _args) { Query q = new Query(); info(strfmt('Total: %1',SysQuery::countTotal(qr))); info(strfmt('Loops: %1',SysQuery::countLoops(qr))); } |
|
06.02.2004, 22:17 | #2 |
Участник
|
на форуме также присутствуют теги [ 1Cv7 ] и [ 1Cv8 ]
<div class='v7top'>1Cv7</div><div class='v7'>//******************************************* // Процедура генерации запроса Сформировать. // Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = СоздатьОбъект("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |ТекущийСчет = Счет.Основной.ТекущийСчет; |Валютный = Счет.Основной.Валютный; |Код = Счет.Основной.Код; |Функция ВалютныйСумма = Сумма(Валютный); |Группировка ТекущийСчет; |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; // Подготовка к заполнению выходных форм данными запроса Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); // Заполнение полей "Заголовок" Таб.ВывестиСекцию("Заголовок"); Состояние("Заполнение выходной таблицы..."); Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); Пока Запрос.Группировка(1) = 1 Цикл // Заполнение полей ТекущийСчет Таб.ВывестиСекцию("ТекущийСчет"); КонецЦикла; // Заполнение полей "Итого" Таб.ВывестиСекцию("Итого"); // Вывод заполненной формы Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать", ""); КонецПроцедуры</div> <div class='v7top'>1Cv7</div><div class='v7'>//******************************************* // Процедура генерации запроса Сформировать. // Procedure Сформировать() Var Запрос, ТекстЗапроса, Таб; //Создание объекта типа Запрос Запрос = CreateObject("Запрос"); ТекстЗапроса = "//{{ЗАПРОС(Сформировать) |ТекущийСчет = Счет.Основной.ТекущийСчет; |Валютный = Счет.Основной.Валютный; |Код = Счет.Основной.Код; |Функция ВалютныйСумма = Сумма(Валютный); |Группировка ТекущийСчет; |"//}}ЗАПРОС ; // Если ошибка в запросе, то выход из процедуры if Запрос.Выполнить(ТекстЗапроса) = 0 Then return; EndIf;</div> <div class='v8top'>1Cv8</div><div class='v8'>#Если Сервер Тогда // Устанавливает или снимает пометку на удаление с // документов заданного типа за заданный период Процедура ПометитьДокументыНаУдаление(ИмяТипа, ДатаС, ДатаПо, Пометка) Экспорт Выборка = Документы[ИмяТипа].Выбрать(ДатаС, ДатаПо); Пока Выборка.Следующий() Цикл Выборка.ПолучитьОбъект().УстановитьПометкуУдаления(Пометка); КонецЦикла; КонецПроцедуры // Удаляет документы заданного типа за заданный период Процедура УдалитьДокументы(ИмяТипа, ДатаС, ДатаПо) Экспорт Выборка = Документы[ИмяТипа].Выбрать(ДатаС, ДатаПо); Пока Выборка.Следующий() Цикл Выборка.ПолучитьОбъект().Удалить(); КонецЦикла КонецПроцедуры // Перезаписывает документы заданного типа за заданный период Процедура ЗаписатьДокументы(ИмяТипа, ДатаС, ДатаПо, РежимЗаписи) Экспорт Выборка = Документы[ИмяТипа].Выбрать(ДатаС, ДатаПо); Пока Выборка.Следующий() Цикл Выборка.ПолучитьОбъект().Записать(РежимЗаписи); КонецЦикла; КонецПроцедуры #КонецЕсли</div> Замечания и предложения направляйте администратору |
|
|