|
Докладаю.
Вчера всё дописал и сделал quick тест. Ok.
В библиотеку где находитса апплиkация, были передвинуты из других библиотек несколько объектов, на которые есть референс в open event аппликации.
Как-то, w_login и функция которая заведует проверкой create/modify date .pbd'шек в аппликейшн фолдере у юзеров.
В конце open eventa аппликации был добавлен следуюший скрипт:
SetNull(l_handle)
s_name = space(81)
GetModuleFileNamea(l_handle, s_name, 80)
// делаем это всё только в продакшн энвайромент ...
IF UPPER(Right(s_name, 8)) <> 'PB90.EXE' THEN
/* динамически создаём datastore на базе процедуры которая
возврашает дату из таблицы:
вот на всякий случай синтакс таблицы, процедура возвращает только pbd и pbd_created_date ...
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[CUSTOM_PBD]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[CUSTOM_PBD]
GO
CREATE TABLE [dbo].[CUSTOM_PBD] (
[pbd] [char] (30) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL ,
[pbd_text] [text] COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,
[pbd_created_date] [smalldatetime] NOT NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO
*/
s_sql_syntax = 'execute dbo.spu_custom_pbd_list;1'
s_presentation_str = "style(type=Tabular) Column(Font.Face='Microsoft Sans Serif' Font.Height= -8)"
s_dwsyntax_str = sqlca.SyntaxFromSQL(s_sql_syntax, '', s_errors)
IF Len(s_errors) > 0 THEN
MessageBox("Title", 'SyntaxFromSQL Failed. Errors: ' + s_errors, Exclamation!)
END IF
ds_pbd = CREATE datastore
ds_pbd.CREATE(s_dwsyntax_str, s_errors)
IF Len(s_errors) > 0 THEN
MessageBox("Title", 'SQLCreate Failed. Errors: ' + s_errors, Exclamation!)
END IF
i_rc = ds_pbd.settransobject(sqlca)
IF Len(s_errors) > 0 THEN
MessageBox("Title", 'settransobject()=' + string(i_rc), Exclamation!)
END IF
l_row = ds_pbd.Retrieve()
IF l_row < 1 THEN
DESTROY ds_pbd
ELSE
FOR l_row = 1 TO ds_pbd.RowCount()
s_db_pbd = ds_pbd.GetItemString(l_row, 'pbd')
s_local_pbd = 'c:\app_folder\' + s_db_pbd
dt_db_pbd_created_date = ds_pbd.GetItemDateTime (l_row, 'pbd_created_date')
i_rc = f_get_file_time(s_local_pbd, dt_null, dt_null, dt_local_pbd_created_date)
IF i_rc <> 1 THEN
MessageBox("Title", 'f_get_file_time() <> 1', Exclamation!)
EXIT
ELSE
IF dt_local_pbd_created_date < dt_db_pbd_created_date THEN
i_file_num = FileOpen(s_local_pbd, StreamMode!, Write!, LockReadWrite!, Replace!)
IF i_file_num = -1 OR IsNull(i_file_num) = TRUE THEN
MessageBox("Title", 'FileOpen() Fail', Exclamation!)
EXIT
ELSE
SELECTBLOB pbd_text INTO :bl_tot_bl FROM CUSTOM_PBD WHERE pbd = :s_db_pbd USING SQLCA;
l_bloblen = Len(bl_tot_bl)
IF l_bloblen > 0 THEN
// Determine the number of writes required
// to write the entire blob
IF l_bloblen > 32765 THEN
IF Mod(l_bloblen, 32765) = 0 THEN
i_writes = l_bloblen / 32765
ELSE
i_writes = (l_bloblen / 32765) + 1
END IF
ELSE
i_writes = 1
END IF
l_currentpos = 1
FOR i_cnt = 1 TO i_writes
lblb_Data = BlobMid(bl_tot_bl, l_currentpos, 32765)
l_CurrentPos += 32765
IF FileWrite(i_file_num, lblb_Data) = -1 THEN
EXIT
RETURN
END IF
NEXT
FileClose(i_file_num)
END IF
END IF
END IF
END IF
NEXT
END IF
DESTROY ds_pbd
i_rc = AddToLibraryList ('abc.pbd,xyz.pbd, .....')
IF i_rc <> 1 THEN
MessageBox("Title", 'AddToLibraryList()=' + string(i_rc) + 'Application can not be started.', Exclamation!)
HALT CLOSE
END IF
END IF
потом-
Сохранил свой "старый" project как project2 и убрал галки со всех рабочих .pbd
Теперь, сначала я делаю deploy "старого" project, который создаёт мне рабочии .pbd, потом "нового", который создаёт мне "правильный" .exe
Гружу все файлы в InstallShieldExpress, генерирую .msi и устанавливаю на тестировочные машины с разными операционками, 98, 2000, XP.
С утра интенсивно тестировал, втягивание: window, datawindow, function, structure, изменение кода и layout уже сушествуюших объектов.
Вроде работает всё кроме изменений (добавлений) в меню OBJECT, хотя дату файла меняет, значит .pbd создаёт ... ??? разберёмся.
Вообщем я счастлив, большое всем спасибо.
Буду благодарен за любые поправки в выше изложеном коде/подходе, надеюсь может кому-нибудь, на что-нибудь и сгодитса.
|
