Теги [Xpp] и [CAL] позволяют публиковать код Axapta и Navision

[mazzy]

Форум научился различать и раскрашивать код 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)));
}

[mazzy]

на форуме также присутствуют теги [ 1Cv7 ] и [ 1Cv8 ]
<div class='v7top'>1Cv7</div><div class='v7'>//*******************************************
// Процедура генерации запроса Сформировать.
//
Процедура Сформировать&#40;&#41;
Перем Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = СоздатьОбъект&#40;"Запрос"&#41;;
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|ТекущийСчет = Счет.Основной.ТекущийСчет;
|Валютный = Счет.Основной.Валютный;
|Код = Счет.Основной.Код;
|Функция ВалютныйСумма = Сумма(Валютный);
|Группировка ТекущийСчет;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить&#40;ТекстЗапроса&#41; = 0 Тогда
Возврат;
КонецЕсли;

// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект&#40;"Таблица"&#41;;
Таб.ИсходнаяТаблица&#40;"Сформировать"&#41;;
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию&#40;"Заголовок"&#41;;
Состояние&#40;"Заполнение выходной таблицы..."&#41;;
Таб.Опции&#40;0, 0, Таб.ВысотаТаблицы&#40;&#41;, 0&#41;;
Пока Запрос.Группировка&#40;1&#41; = 1 Цикл
// Заполнение полей ТекущийСчет
Таб.ВывестиСекцию&#40;"ТекущийСчет"&#41;;
КонецЦикла;
// Заполнение полей "Итого"
Таб.ВывестиСекцию&#40;"Итого"&#41;;
// Вывод заполненной формы
Таб.ТолькоПросмотр&#40;1&#41;;
Таб.Показать&#40;"Сформировать", ""&#41;;
КонецПроцедуры</div>

<div class='v7top'>1Cv7</div><div class='v7'>//*******************************************
// Процедура генерации запроса Сформировать.
//
Procedure Сформировать&#40;&#41;
Var Запрос, ТекстЗапроса, Таб;
//Создание объекта типа Запрос
Запрос = CreateObject&#40;"Запрос"&#41;;
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|ТекущийСчет = Счет.Основной.ТекущийСчет;
|Валютный = Счет.Основной.Валютный;
|Код = Счет.Основной.Код;
|Функция ВалютныйСумма = Сумма(Валютный);
|Группировка ТекущийСчет;
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
if Запрос.Выполнить&#40;ТекстЗапроса&#41; = 0 Then
return;
EndIf;</div>

<div class='v8top'>1Cv8</div><div class='v8'>#Если Сервер Тогда
// Устанавливает или снимает пометку на удаление с
// документов заданного типа за заданный период
Процедура ПометитьДокументыНаУдаление&#40;ИмяТипа, ДатаС, ДатаПо, Пометка&#41; Экспорт
Выборка = Документы&#91;ИмяТипа&#93;.Выбрать&#40;ДатаС, ДатаПо&#41;;
Пока Выборка.Следующий&#40;&#41; Цикл
Выборка.ПолучитьОбъект&#40;&#41;.УстановитьПометкуУдаления&#40;Пометка&#41;;
КонецЦикла;
КонецПроцедуры

// Удаляет документы заданного типа за заданный период
Процедура УдалитьДокументы&#40;ИмяТипа, ДатаС, ДатаПо&#41; Экспорт
Выборка = Документы&#91;ИмяТипа&#93;.Выбрать&#40;ДатаС, ДатаПо&#41;;
Пока Выборка.Следующий&#40;&#41; Цикл
Выборка.ПолучитьОбъект&#40;&#41;.Удалить&#40;&#41;;
КонецЦикла
КонецПроцедуры

// Перезаписывает документы заданного типа за заданный период
Процедура ЗаписатьДокументы&#40;ИмяТипа, ДатаС, ДатаПо, РежимЗаписи&#41; Экспорт
Выборка = Документы&#91;ИмяТипа&#93;.Выбрать&#40;ДатаС, ДатаПо&#41;;
Пока Выборка.Следующий&#40;&#41; Цикл
Выборка.ПолучитьОбъект&#40;&#41;.Записать&#40;РежимЗаписи&#41;;
КонецЦикла;
КонецПроцедуры
#КонецЕсли</div>

Замечания и предложения направляйте администратору