SYSDBA в 09:05, 24 августа 2008

2008-08-24T09:05:29Z

Новая страница

Файл mdf_proclist.pas по состоянию на август 2008 г.

unit mdf_proclist;

interface

uses
gdModify, mdf_CreateUniqueFunctionName,
mdf_AddBranchKey, mdf_ChangeReportForm, mdf_ChangeSyncProcedures,
mdf_ChangeSetting, mdf_UpdateRemainsCommand, mdf_UpdateStorageCommand,
mdf_ChangeFilterFullName, mfd_UserGroupNameToRUID, mdf_UpdateDocumenttypeRUID,
mdf_DivideFullClassName, mdf_ChangeRUID, mdf_ChangeFilterReportName,
mfd_UpdateLocalName, mdf_AddEditionDate, mdf_UpdateContact, mdf_AlterTriggerGoodTax,
mdf_ChangeTemplatesName, mdf_ChangeForeignForAtFields, mdf_ChangeJournal,
mdf_UpdateHolidays, mdf_AddMacrosRightsFields, mdf_AddAccountStoredProc,
mdf_AddHolding, mdf_InsertAnaliseCommands, mdf_AddTaxTables, mdf_AlterViewGD_CONTACTLIST,
mdf_AddFbUdfSupport, mdf_SpySFChange, mdf_AddUdfDelChar, mdf_UpdateModuleCode,
mdf_AddMacrosListIndices, mdf_Correct_gd_function, mdf_AddZeroAccount,
mdf_AddEntryDate, mdf_ModifyAccountCirculation, mdf_AddFieldFUNCSTOR,
mdf_InsertLedgerCommands, mdf_AddNewInventTable, mdf_CreateViewGd_V_COMPANY,
mdf_EntryQuantitySupport, mdf_AddFieldSaveNullEntry, mdf_ModifyAnaliticalForeignKey,
mdf_AddFieldDocumentType, mdf_AutoTransactionTables, mdf_UpdateContact2,
mdf_AddDisplayInMenuField, mdf_InsertGeneralLedgerCommands,
mdf_ChangeAtRelations, mfd_Create_gd_File, mdf_ModifyACBALANCEENTRY,
mdf_Add_AC_OVERTURNBYANAL, mdf_AddIncludeInternalMovmentField, mdf_AddEntryIndices,
mdf_AddQuantityField, mdf_AddEntryIndices2, mdf_SetDomainCondition, mdf_AddIsCheckNumberField,
mdf_ChangeDGoldQuantity, mdf_ChangeINV_AU_MOVEMENT, mdf_AddLongNameFieldInScript,
mdf_AddGSFFieldsToSettings, mdf_NewAcctReports, mdf_UniqueLName, mdf_UpdateFiles,
mdf_AddAccountKeyToTypeEntry, mdf_NewTaxies, mdf_NewTrEntries, mdf_GrantTables,
mdf_QuckLedger, mdf_AddTransactionFunctionFields, mdf_GetSimpleLedger2,
mdf_AddQuantityFK, mdf_DocumentAndCommandUpdate, mdf_QuckLedger2,
mdf_AddSettingPosIndices, mdf_AddPK_AC_G_LEDGERACCOUNT, mdf_Add_Transaction_triggers,
mdf_AddFieldsToInv_BalanceOptions, mdf_CorrectCMD_InExplorer, mdf_AddEditorKeyConst,
mdf_AddRateInStatement, mdf_AddAccountKeyInStatementLine, mdf_AddUdfDataParamStr,
mdf_AddFixNumberInDocumenttype, mdf_ChangeBranchKey, mdf_AddFieldPlaceCode,
mdf_QuckLedger3, mdf_AddFieldFolderKey, mdf_QuckLedger_Last, mdf_Add_Account_triggers,
mdf_CirculationList, mdf_QuckLedger4, mdf_AddBalanceIndice, mdf_QuckLedger5,
mdf_CirculationList2, mdf_NewGeneralLedger, mdf_AddFieldTo_RPLLOG, mdf_Fix_GD_TAXTYPE,
mdf_AlterBankStatementTrigger, mdf_QuckLedger6, mdf_AddLinkTables, mdf_TblCalDayFields,
mdf_AddGoodkeyFK_Inv_PriceLine, mdf_ModifyBlockTriggers, mdf_EvtObject,
mdf_ModifyBlockTriggers2, mdf_ModifyRecordTriggers, mdf_CirculationList3,
mdf_DropLBRBUniqueIndices, msf_CorrectBadInvCard, mdf_AddGoodKeyIntoMovement_unit,
mdf_SuperNewGeneralLedger, mdf_SQLMonitor, mdf_AddBranchToBankAndIndex,
mdf_AddEmployeeCmd, mdf_AddDTBlock, mdf_RemakeAcEntry, mdf_CorrectInvTrigger, mdf_AddInvMakeRest,
mdf_ModifyBlockTriggers3, mdf_ModifyBlockTriggers4, mdf_wageUpdateFields, mdf_AddGenerators,
mdf_AddCheckConstraints, mdf_AddUseCompanyKey_Balance;

const
cProcCount = 132;

type
TModifyProc = record
ModifyProc: TProcAddr; // Адрес процедуры выполняющей действия по модификации
ModifyVersion: String; // Max версия БД для которой выполнять данную модификацию
end;

// !!! ЭТО ВАЖНО !!!
// Следует разделить модификацию данных и структуры БД. Например функция
// ChangeFilterFullName модифицировала данные в таблице FLT_FILTERCOMPONENT
// после этого была создана процедура CustomTableModify которая добавляла
// поле NOT NULL в таблицу GD_CUSTOMTABLE. Т.к. Upgrade не пройдет без запуска модифай
// в котором заполняется значение поля, мы меняем версию базы данных после
// добавления поля (Причем менять надо не в CustomTableModify а в SQL скриптах,
// по которым генерится эталонная база и в которую переносятся данные утилитой
// Upgrade). При этом процедура модификации фильтра привязывается к той же версии БД
// что и процедура добавления поля. И если версия выше, то она не выполняется.
// ПРИ ЭТОМ КАЖДАЯ ПРОЦЕДУРА ДОЛЖНА САМОСТОЯТЕЛЬНО ОСТЛЕЖИВАТЬ НЕОБХОДИМОСТЬ
// ВЫПОЛНЕНИЯ МОДИФИКАЦИИ. Так в первом случае в процедуре ChangeFilterFullName
// должна выполняться проверка формата хранения наименования фильтра.
// Во втором случае в процедуре CustomTableModify должно проверяться наличие
// добавляемого поля. Данный способ позволяет всего лишь не вызывать устаревшие
// процедуры, которые для БД начиная с определенной версии не могут пригодится.
// Кроме того, если добавляется поле которое допускает значение NULL версию БД
// менять не надо, в противном случае необходимо также увеличить версию БД
// для процедур которые были привязаны к предыдущей версии БД.
// Т.е. если процедура ChangeFilterFullName привязана к версии 0000.0001.0000.0038,
// а процедура CustomTableModify добавляет поле с возможным значением NULL,
// то есть два варианта действий :
// 1. Оставляем версию БД неизменной, т.е. CustomTableModify также привязана к
// версии 0000.0001.0000.0038.
// 2. Увеличиваем версию БД до 0000.0001.0000.0039, а для процедуры CustomTableModify
// и для всех процедур с версией 0000.0001.0000.0038 (в частности для ChangeFilterFullName)
// увеличиваем версию до 0000.0001.0000.0039.
// Последняя версия БД находится в файле gd_version.sql

TProcList = array[0..cProcCount - 1] of TModifyProc;

const
cProcList: TProcList = (
(ModifyProc: CreateUniqueFunctionName; ModifyVersion: '0000.0001.0000.0034'),
// Добавление поля branchkey в таблицу at_relations
(ModifyProc: AddBranchKey; ModifyVersion: '0000.0001.0000.0034'),
// Изменение формы отчетов
(ModifyProc: ChangeReportForm; ModifyVersion: '0000.0001.0000.0034'),
// Изменение процедур синхронизации
(ModifyProc: ChangeSyncProcedures; ModifyVersion: '0000.0001.0000.0034'),
// Изменение настроек
(ModifyProc: ChangeSetting; ModifyVersion: '0000.0001.0000.0034'),
// Изменение комманды просморта остатков
(ModifyProc: ChangeRemainsCommand; ModifyVersion: '0000.0001.0000.0034'),
// Изменение комманды просморта хранилища
(ModifyProc: ChangeStorageCommand; ModifyVersion: '0000.0001.0000.0034'),
// Изменение строки компонентов фильтров под классы
//(ModifyProc: ChangeFilterFullName; ModifyVersion: '0000.0001.0000.0034'),
//Изменение ruid для стандратных документов
(ModifyProc: ChangeDocumentTypeRUID; ModifyVersion: '0000.0001.0000.0034'),
//Изменение таблицы gd_ruid
(ModifyProc: ChangeRUID; ModifyVersion: '0000.0001.0000.0034'),
// разделение "полного" имени класса
(ModifyProc: DivideFullClassName; ModifyVersion: '0000.0001.0000.0034'),
//Изменение названий фильтров и отчетов и создание уникалтных индексов
(ModifyProc: ChangeFilterReportName; ModifyVersion: '0000.0001.0000.0034'),
//Изменение структуры таблиц настроек
(ModifyProc: AddEditionDate; ModifyVersion: '0000.0001.0000.0034'),
(ModifyProc: UpdateLocalName; ModifyVersion: '0000.0001.0000.0034'),
// для всех контактов котрые не входят в папки присвоим пэрент
(ModifyProc: UpdateContact; ModifyVersion: '0000.0001.0000.0034'),
//Изменяет триггер в таблице gd_goodtax (инициализация datetax)
(ModifyProc: AlterTriggerGoodTax; ModifyVersion: '0000.0001.0000.0034'),
//Изменяет названия шаблонов отчетов на уникальные
(ModifyProc: ChangeTemplatesName; ModifyVersion: '0000.0001.0000.0034'),
(ModifyProc: ChangeForeignForAtFields; ModifyVersion: '0000.0001.0000.0034'),
(ModifyProc: ChangeJournal; ModifyVersion: '0000.0001.0000.0034'),
//Замена полей день и месяц одним полем дата в таблице Праздники
(ModifyProc: UpdateHolidays; ModifyVersion: '0000.0001.0000.0034'),
//добавление поле доступа к записи для табл. evt_macroslist, rp_reportlist
(ModifyProc: AddMacrosrightsFields; ModifyVersion: '0000.0001.0000.0034'),
//добавление процедур AC_ACCOUNTEXSALDO и AC_CIRCULATIONLIST
(ModifyProc: AddAccountStoredProc; ModifyVersion: '0000.0001.0000.0034'),
//добавление холдинга
(ModifyProc: AddHolding; ModifyVersion: '0000.0001.0000.0034'),
//добавление команд в таблицу GD_COMMAND для аналитики
(ModifyProc: InsertAnaliseCommands; ModifyVersion: '0000.0001.0000.0034'),
//добавление метаданных для поддержки бухгалтерских отчетов
(ModifyProc: AddTaxTables; ModifyVersion: '0000.0001.0000.0034'),
//корректировка представления GD_CONTACTLIST
(ModifyProc: AlterViewContactList; ModifyVersion: '0000.0001.0000.0034'),
//Добавление поддержки FBUdf
(ModifyProc: AddFBUdfSupport; ModifyVersion: '0000.0001.0000.0034'),
//Добавление счетчика изменений скрипт-функций
(ModifyProc: SpySFChange; ModifyVersion: '0000.0001.0000.0034'),
//Добавление udf g_s_delchar
(ModifyProc: AddUdfDelChar; ModifyVersion: '0000.0001.0000.0034'),
//Изменение модулекоде для старых функций отчетов
(ModifyProc: UpdateModuleCode; ModifyVersion: '0000.0001.0000.0034'),
//обавление индексов в таблицу evt_macroslist
(ModifyProc: AddMacrosListIndices; ModifyVersion: '0000.0001.0000.0034'),
//Корректировка поля displayscript таблицы gd_function для поддержки компиляции
(ModifyProc: Correct_gd_function; ModifyVersion: '0000.0001.0000.0034'),
//Добавление раздела Забалансовые и счета 00
(ModifyProc: AddZeroAccount; ModifyVersion: '0000.0001.0000.0034'),
//Добавление даты проводки в AC_ENTRY
(ModifyProc: AddAccountEntryDate; ModifyVersion: '0000.0001.0000.0034'),
//Добавляет поле в AC_SCRIPT для поддержки конструктора функций проводок
(ModifyProc: AddFieldFUNCSTOR; ModifyVersion: '0000.0001.0000.0034'),
//Обновление процедуры корректировки баланса проводки
(ModifyProc: ModifyAccBalanceEntry; ModifyVersion: '0000.0001.0000.0034'),
//Добавляет таблицу для настройки остатков, уникальный индекс NAME на gd_tax
(ModifyProc: AddNewInventTable; ModifyVersion: '0000.0001.0000.0035'),
//Добавляет представление с реквизитами клиента
(ModifyProc: CreateViewGd_V_COMPANY; ModifyVersion: '0000.0001.0000.0035'),
//Добавляет поддержки кол-нных пок-лей проводки
(ModifyProc: AddQuantityMetaData; ModifyVersion: '0000.0001.0000.0035'),
//Корректировка FOREIGN KEY на главную аналитику в счете
(ModifyProc: ModifyAnaliticalForeignKey; ModifyVersion: '0000.0001.0000.0035'),
//Добавлениее полей в gd_documenttype
(ModifyProc: AddFieldDocumentType; ModifyVersion: '0000.0001.0000.0035'),
//Добавление таблиц автоматичесих проводок
(ModifyProc: AddAutoTransactionTables; ModifyVersion: '0000.0001.0000.0036'),
//Добавляет поле в AC_LEDGER и запись в GD_COMMAND для поддержки конструктора функций проводок
(ModifyProc: InsertLedgerCommands; ModifyVersion: '0000.0001.0000.0036'),
//
(ModifyProc: UpdateContact2; ModifyVersion: '0000.0001.0000.0036'),
//Добавляет поле DISPLAYINMENU в EVT_MARCOSLIST(отображение макроса в меню формы)
(ModifyProc: AddDisplayInMenuField; ModifyVersion: '0000.0001.0000.0036'),
//Добавление полей для отображения
(ModifyProc: ChangeAtRelations; ModifyVersion: '0000.0001.0000.0038'),
//Добавление структуры для хранения файлов в БД
(ModifyProc: Create_gd_File; ModifyVersion: '0000.0001.0000.0039'),
//добавление таблицы для хранения настроек Оборотки по аналитике
(ModifyProc: AddOverTurnByAnal; ModifyVersion: '0000.0001.0000.0040'),
//добавление полей IncludeInternalMovement
(ModifyProc: AddIncludeInternalMovment; ModifyVersion: '0000.0001.0000.0041'),
//добавление индексов
(ModifyProc: AddEntryIndices; ModifyVersion: '0000.0001.0000.0042'),
(ModifyProc: AddQuantityField; ModifyVersion: '0000.0001.0000.0043'),
(ModifyProc: AddEntryIndices2; ModifyVersion: '0000.0001.0000.0044'),
//Increase length of fields setcondition and refcondition in at_fields
(ModifyProc: SetDomainCondition; ModifyVersion: '0000.0001.0000.0044'),
// Добавление поля ischecknumber в gd_documenttype
(ModifyProc: AddIsCheckNumberField; ModifyVersion: '0000.0001.0000.0044'),
// Изменение домена DGOLDQUANTITY на NUMERIC(15, 8)
(ModifyProc: ChangeDGoldQuantity; ModifyVersion: '0000.0001.0000.0045'),
// Изменение триггера INV_AU_MOVEMENT
(ModifyProc: ChangeINV_AU_MOVEMENT; ModifyVersion: '0000.0001.0000.0046'),
// Увеличение длины поля name в gd_function
(ModifyProc: AddLongNameFieldInScript; ModifyVersion: '0000.0001.0000.0046'),
// Добавление полей в AT_SETTING для нового формата настроек. Yuri.
(ModifyProc: AddGSFFields; ModifyVersion: '0000.0001.0000.0047'),
//Обновление процедуры оборотной ведомости
(ModifyProc: ModifyAccountCirculation; ModifyVersion: '0000.0001.0000.0047'),
//Новые бух. отчеты
(ModifyProc: NewAcctReports; ModifyVersion: '0000.0001.0000.0048'),
(ModifyProc: UniqueLName; ModifyVersion: '0000.0001.0000.0049'),
//Добавление поля description в gd_files
(ModifyProc: UpdateFiles; ModifyVersion: '0000.0001.0000.0049'),
//Добавление поля accountkey в таблицу ac_trrecord
(ModifyProc: AddAccountKeyToTypeEntry; ModifyVersion: '0000.0001.0000.0050'),
//Добавляет поле в AC_TRRECORD сохранять нулевые проводки или нет
(ModifyProc: AddFieldSaveNullEntry; ModifyVersion: '0000.0001.0000.0050'),
(ModifyProc: NewTaxies; ModifyVersion: '0000.0001.0000.0051'),
//Преоразование поля usergroupname в таблице rp_reportgroup к РУИДу
(ModifyProc: UserGroupToRUID; ModifyVersion: '0000.0001.0000.0052'),
(ModifyProc: NewTrEntries; ModifyVersion: '0000.0001.0000.0053'),
(ModifyProc: GrantTables; ModifyVersion: '0000.0001.0000.0053'),
(ModifyProc: QuickLedger; ModifyVersion: '0000.0001.0000.0054'),
(ModifyProc: AddTransactionFuntionField; ModifyVersion: '0000.0001.0000.0055'),
(ModifyProc: AddQuantityFK; ModifyVersion: '0000.0001.0000.0057'),
(ModifyProc: DocumentAndCommandUpdate; ModifyVersion: '0000.0001.0000.0058'),
//Исправление ошибки в триггере на таблицу ac_entry
(ModifyProc: QuickLedger2; ModifyVersion: '0000.0001.0000.0059'),
//Добавление индексов на таблицу at_settingpos
(ModifyProc: AddSettingPosIndices; ModifyVersion: '0000.0001.0000.0059'),
(ModifyProc: AddPK_AC_G_LEDGERACCOUNT; ModifyVersion: '0000.0001.0000.0060'),
(ModifyProc: Add_Transaction_triggers; ModifyVersion: '0000.0001.0000.0060'),
(ModifyProc: AddFieldsToInv_BalanceOptions; ModifyVersion: '0000.0001.0000.0061'),
(ModifyProc: AddEditorKeyConst; ModifyVersion: '0000.0001.0000.0063'),
//Добавление поля rate в бансковскую выписку
(ModifyProc: AddRateInStatement; ModifyVersion: '0000.0001.0000.0064'),
//Добавление ссылки на ac_account в таблицу bn_bankstatementline
(ModifyProc: AddAccountKeyInStatementLine; ModifyVersion: '0000.0001.0000.0066'),
(ModifyProc: AddUdfDataParamStr; ModifyVersion: '0000.0001.0000.0067'),
//Добавление флага фиксированной длины номера в gd_lastnumber
(ModifyProc: AddFixNumberInDocumenttype; ModifyVersion: '0000.0001.0000.0068'),
//Изменение branchkey в at_relations и gd_documenttype
(ModifyProc: ChangeBranchKey; ModifyVersion: '0000.0001.0000.0069'),
(ModifyProc: AddFieldPlaceCode; ModifyVersion: '0000.0001.0000.0070'),
(ModifyProc: QuickLedger3; ModifyVersion: '0000.0001.0000.0071'),
(ModifyProc: AddFieldFolderKey; ModifyVersion: '0000.0001.0000.0072'),
//Добавление таблиц и команд для Главной книги
(ModifyProc: InsertGeneralLedgerCommands; ModifyVersion: '0000.0001.0000.0074'),
(ModifyProc: Add_Account_Triggers; ModifyVersion: '0000.0001.0000.0075'),
(ModifyProc: QuickLedger_last; ModifyVersion: '0000.0001.0000.0076'),
{Здесь изменена версия БД!!!!}
(ModifyProc: CorrectCMD_InExplorer; ModifyVersion: '0000.0001.0000.0077'),
(ModifyProc: CirculationList; ModifyVersion: '0000.0001.0000.0077'),
(ModifyProc: GetSimpleLedger2; ModifyVersion: '0000.0001.0000.0078'),
(ModifyProc: QuickLedger4; ModifyVersion: '0000.0001.0000.0079'),
(ModifyProc: AddBalanceIndice; ModifyVersion: '0000.0001.0000.0080'),
(ModifyProc: CirculationList2; ModifyVersion: '0000.0001.0000.0083'),
(ModifyProc: NewGeneralLedger; ModifyVersion: '0000.0001.0000.0084'),
(ModifyProc: AddFieldTo_RPLLOG; ModifyVersion: '0000.0001.0000.0085'),
(ModifyProc: Fix_GD_TAXTYPE; ModifyVersion: '0000.0001.0000.0086'),
(ModifyProc: QuickLedger5; ModifyVersion: '0000.0001.0000.0087'),
(ModifyProc: AlterBankStatementTrigger; ModifyVersion: '0000.0001.0000.0087'),
(ModifyProc: QuickLedger6; ModifyVersion: '0000.0001.0000.0088'),
(ModifyProc: AddLinkTables; ModifyVersion: '0000.0001.0000.0089'),
(ModifyProc: ModifyTblCalFields; ModifyVersion: '0000.0001.0000.0089'),
(ModifyProc: ModifyTblCalDayFields; ModifyVersion: '0000.0001.0000.0089'),
(ModifyProc: AddGoodkeyFK_Inv_PriceLine; ModifyVersion: '0000.0001.0000.0090'),
(ModifyProc: ModifyBlockTriggers; ModifyVersion: '0000.0001.0000.0092'),
(ModifyProc: AddAccountReview; ModifyVersion: '0000.0001.0000.0094'),
(ModifyProc: ModifyBlockTriggers2; ModifyVersion: '0000.0001.0000.0095'),
(ModifyProc: ModifyRecordTriggers; ModifyVersion: '0000.0001.0000.0096'),
(ModifyProc: CirculationList3; ModifyVersion: '0000.0001.0000.0096'),
(ModifyProc: DropLBRBUniqueIndices; ModifyVersion: '0000.0001.0000.0096'),
(ModifyProc: ClearEvtObject; ModifyVersion: '0000.0001.0000.0096'),
(ModifyProc: CorrectBadInvCard; ModifyVersion: '0000.0001.0000.0096'),
(ModifyProc: SuperNewGeneralLedger; ModifyVersion: '0000.0001.0000.0097'),
(ModifyProc: AddGoodKeyIntoMovement; ModifyVersion: '0000.0001.0000.0098'),
(ModifyProc: SQLMonitor; ModifyVersion: '0000.0001.0000.0099'),
(ModifyProc: AddBranchToBankAndIndex; ModifyVersion: '0000.0001.0000.0100'),
(ModifyProc: AddBranchToBankStatement; ModifyVersion: '0000.0001.0000.0101'),
(ModifyProc: AddEmployeeCmd; ModifyVersion: '0000.0001.0000.0102'),
(ModifyProc: AddDTBlock; ModifyVersion: '0000.0001.0000.0105'),
(ModifyProc: RemakeACENTRY; ModifyVersion: '0000.0001.0000.0105'),
(ModifyProc: RemakeACENTRY_NEW; ModifyVersion: '0000.0001.0000.0105'),
(ModifyProc: RemakeExStored; ModifyVersion: '0000.0001.0000.0106'),
(ModifyProc: CorrectInvTrigger; ModifyVersion: '0000.0001.0000.0107'),
(ModifyProc: Add_INV_GETCARDMOVEMENT; ModifyVersion: '0000.0001.0000.0109'),
(ModifyProc: ModifyBlockTriggers3; ModifyVersion: '0000.0001.0000.0115'),
(ModifyProc: ModifyBlockTriggers4; ModifyVersion: '0000.0001.0000.0117'),
(ModifyProc: ModifyWageFields; ModifyVersion: '0000.0001.0000.0118'),
(ModifyProc: ModifyBankRuid; ModifyVersion: '0000.0001.0000.0120'),
(ModifyProc: ModifyWageFields1; ModifyVersion: '0000.0001.0000.0121'),
(ModifyProc: AddGenerators; ModifyVersion: '0000.0001.0000.0123'),
(ModifyProc: AddCheckConstraints; ModifyVersion: '0000.0001.0000.0125'),
(ModifyProc: AddUseCompanyKey_Balance; ModifyVersion: '0000.0001.0000.0126')
);

implementation

end.

MDF PROCLIST.PAS - История изменений

SYSDBA: Содержимое страницы заменено на «См. mdf_proclist.»

SYSDBA в 09:05, 24 августа 2008