Создание классов. 
Информационные технологии в менеджменте

Классы описывают состояние и поведение объектов системы. Объект системы определяется экземпляром класса. Состояние объекта описывается через данные класса, поведение — через методы класса. Методы и данные класса описывают лишь структуру объекта. Реальное состояние определяется значениями данных экземпляра класса, соответствующего объекту; управление поведением объекта производится через методы конкретного экземпляра. Классы могут наследовать друг друга.

Существуют статистические методы, использование которых не связано с конкретным экземпляром класса — для них система создает один, общий для всех объектов, экземпляр. Использование статических методов продиктовано необходимостью управления полным набором объектов, а не одним конкретным (например, поиск конкретного объекта или проверка его наличия).

Для управления взаимодействиями классов без указания четкой взаимосвязи между ними используются интерфейсы. Они могут наследовать друг друга. Реализация интерфейса (поведение объекта при использовании данного интерфейса) определяется в самом классе.

Один из функционалов, который мы хотим реализовать в проекте, — автоматическая нумерация кодов аренды, которая осуществляется с использованием номерной серии, задаваемой на форме параметров модуля «Аренда автомобиля». Для того чтобы обеспечить привязку номерных серий к модулю, нужно использовать две таблицы, существующие в Microsoft Dynamics АХ: «NumberSequenceReference» («Ссылки на серии»), которая обеспечивает соответствие между модулем и его номерными сериями, и «NumberSequenceTable» («Серии документов»), которая содержит описание номерных серий. Настройка номерных серий осуществляется в меню Основное Microsoft Dynamics АХ.

Для реализации функционала автоматической нумерации нужно создать класс «NumberSeqReference_RentCar» («Номерная серия для проекта»), который является наследником класса «NumberSeqReference». Кроме этого в родительском классе нужно указать, какие номерные серии используются в модуле: для этого в классе «NumberSeqReference» необходимо модифицировать методы construct и moduleList.

Перейдем к созданию классов в проекте.

Откройте узел Classes в АТО. Для создания класса выделите узел Classes, кликните правой кнопкой мыши, в появившемся контекстном меню выберите пункт Создать Class. За объявление и наименование класса отвечает метод-заголовок ClassDeclaration.

Откройте для редактирования метод ClassDeclaration и внесите следующий код:

public class NumberSeqReference_RentCar.

extends NumberSeqReference.

{.

}.

Создайте новый метод NumberSeqModule класса «NumberSeqReference_ RentCar». Выделите название класса, кликните правой кнопкой мыши, в появившемся контекстном меню выберите пункт Создать Method. Система откроет окно редактирования нового метода. Введите следующий код:

numberSeqModule ().

public static client server NumberSeqModule numberSeqModule 0 {.

return NumberSeqModule: RentCar;

}.

Система автоматически переименует метод.

Перекройте метод loadModule класса «NumberSeqReference_RentCar». Выделите название класса, кликните правой кнопкой мыши, в появившемся контекстном меню выберите пункт Перекрыть метод / loadModule. Введите следующий код: protected void loadModule ().

{.

NumberSequenceReference numRef;

r

numRef.dataTypeld = typeId2ExtendedTypeId (typeid (RentCarld));

numRef.referenceHelp = literalStr («0RNT23»);

numRef.wizardContinuous = true;

numRef.wizardManual = NoYes: No;

numRef.wizardAllowChangeDown = NoYes: No;

numRef.wizardAllowChangeUp = NoYes: No;

numRef.sortField = 1;

this.create (numRef);

}.

Значение метки @RNT23 — «Уникальный ключ для идентификации кодов резервирования автомобиля» (англ. «Unique key for identification of booking code»). Для создания метки поставьте курсор в позицию, где должна находиться метка, кликните правой кнопкой мыши и в контекстном меню выберите пункт Просмотр метки/текста. Откроется знакомый интерфейс поиска и создания меток.

Перенесите в проект созданный класс «NumberSeqReference_RentCar». Найдите в репозитарии и перенесите в проект класс «NumberSeq Reference». Измените для него метод construct. Выделите название класса, кликните правой кнопкой мыши, в появившемся контекстном меню выберите пункт Перекрыть метод /construct. В конец блока «switch» необходимо добавить следующий текст:

//RentCar module—>

case (NumberSeqReference_RentCar:NumberSeqModule ()):return new NumberSeqReference_RentCar (_module);

//RentCar module<�—.

Аналогично измените для этого класса метод moduleList. В самый конец, перед оператором return необходимо добавить следующий текст: //RentCar module—>

moduleList += NumberSeqReference_RentCar:NumberSeqModule (); //RentCar modulec-;

Для разноски расходов клиента по аренде автомобиля необходимо создать еще один класс — «RentCarLedgerPosting». Она выполняется по команде оператора (нажатие кнопки «Разноска» в форме «Аренда автомобилей»). Разноске подлежит текущая строка верхней таблицы формы и все связанные с ней строки из нижней таблицы формы. После запуска процедуры система рассчитывает общую сумму расходов клиента, в которую включается стоимость аренды автомобиля за все дни и стоимость дополнительных услуг, полученных клиентом. Далее система проводит эту сумму в «Главную книгу» но счетам, указанным в данных каждого автомобиля (счет по кредиту), и на итоговый счет из профиля разноски клиента (счет по дебету). Проводка выполняется конечной датой использования автомобиля. Сумму к разноске вычисляет display-метод total Expense из таблицы «RentCarTable».

После успешного окончания разноски система проставляет в записи таблицы аренды автомобиля флажок «Разнесено» (это нужно сделать для того, чтобы не было повторных проводок). Номер документа «Главной книги» система берет из модуля «Расчеты с клиентами» (номерная серия «Накладная на услуги»).

Итак, создадим класс «RentCarLedgerPosting» («Разноска расходов в ГК»), Определите следующие методы класса:

ClassDeclaration ().

public class RentCarLedgerPosting.

{.

RentCarTable carTable;

}.

initValue ().

void initValue (RentCarTable _carTable).

{.

carTable = _carTable;

}.

main ().

static void main (Args _args).

{.

RentCarLedgerPosting posting = new RentCarLedgerPosting () ;

r

posting.initValue (_args.record ()); if (posting.checkPost ()) posting. post ();

}.

checkPost ().

boolean checkPost ().

{.

boolean ret = true;

if (! carTable. Redd) return false; if (carTable.Posted) return false;

return ret;

}.

post ().

void post ().

{.

r

ttsbegin;

this.postLedgerTrans ();

carTable.Posted = NoYesCombo: Yes;

carTable.update ();

ttscommit;

}.

postLedgerTrans ().

protected void postLedgerTrans ().

{.

LedgerVoucher ledgerVoucher;

LedgerVoucherObject ledgerVoucherObject; LedgerVoucherTransObject ledgerVoucherTransObject; TransactionTxt transactionTxt;

LedgerBondClient_RU ledgerBondClient;

NumberSeq numberSeq;

Voucher voucherld;

RentCarBrandTable brand;

r

numberSeq = NumberSeq: newGetNum (CustParameters:numR efCustlnvoiceVoucher ()); voucherld = numberSeq. num ();

transactionTxt = new TransactionTxt (); transactionTxt. setType (LedgerTransTxt:None); transactionTxt. setDate (carTable.toDate); transactionTxt. setVoucher (voucherld); transactionTxt. txt (carTable.RentBrandld);

ledgerVoucherObject = LedgerVoucherObject: newVoucher (voucherld, carTable. toDate, SysModule: System, LedgerTransType: None, NoYes: No); ledgerVoucher = LedgerVoucher: newLedgerPost (DetailSummary:Summary, SysModule: System, voucherld); ledgerVoucher. pa rmVouche rSer ie sCode (numberSeq. parmNumberSequenceCode ());

ledgerVoucher.addVoucher (ledgerVoucherObject);

ledgerBondClient =ledgerVoucher.findLedgerVoucher Object ().ledgerBondClient_RU ();

if (ledgerBondClient).

ledgerBondClient.addNewLogObject ();

ledgerVoucherTransObject =.

LedgerVoucherTransObject:newCreateTrans (.

ledgerVoucher. findLedgerVoucherObj ect (), LedgerPostingType: Allocation,.

custLedgerAccounts;:sumAccount (carTable. CustAccount),.

Dimensions:emptyDimension (),.

Companylnfo:standardCurrency (),.

carTable.totalExpense (), carTable. recld); ledgerVoucherTransObject. parmTransTxt (transactionTxt. txt ());

ledgerVoucher.addTrans (ledgerVoucherTransObject) ;

select firstonly LedgerAccount from car.

where car. RentBrandld == carTable. RentBrandld;

ledgerVoucherTransObject =.

LedgerVoucherTransObj ect: newCreateTrans (.

ledgerVoucher. findLedgerVoucherOb j ect (), LedgerPostingType;rAllocation, car. LedgerAccount,.

Dimensions:emptyDimension (),.

Companylnfo:standardCurrency (), carTable. totalExpense (), carTable. recld);

ledgerVoucherTransObject.parmTransTxt (transactionTxt. txt ());

ledgerVoucher.addTrans (ledgerVoucherTransObject); if (ledgerBondClient) if (ledgerBondClient.currentLogLength () == 2).

ledgerBondClient.bondLastVRef2CurrentLog ();

ledgerBondClient.removeCurrentLogObject ();

}.

ledgerVoucher.end ();

}.

Перенесите созданный класс «RentCarLedgerPosting» в проект.