copied from runtime documentation:
dim master_db_name as C
dim shadow_db_name as C
master_db_name = ""
shadow_db_name = ""
ui_modeless_dlg_box("Install MyAppName",<<%dlg%
{can_exit=exit}
{lf};
Specify the filename of the master copy of the application:;
[%P=ui_get_file("Select file","(*.adb)",master_db_name)%.100master_db_name];
{lf};
<Click Here to Start Install!oK?.not.(master_db_name="")> <Cancel!cancel>;
22 Alpha Five Runtime
%dlg%,<<%code%
if a_dlg_button = "cancel" then
ui_modeless_dlg_close("Install MyAppName")
a_dlg_button = ""
end if
if a_dlg_button = "oK" then
if file.exists(master_db_name) = .f. then
ui_msg_box("Error","Master Database not found.")
else
shadow_db_name = a5.Get_Name()
a5.Load(master_db_name)
If version() = 5 then
a5_NOpt_CopyAddFiles(shadow_db_name,master_db_name)
create_shadow(shadow_db_name,master_db_name,.t.)
Else
create_shadow2(shadow_db_name,master_db_name,.t.)
End If
ui_modeless_dlg_close("Install MyAppName")
end if
end if
%code%)
It pops up with this message when runs and it fails to create a shadow database :
script: UI_MODELESS_DLG_BOX:Install MyAppName line:15
create_shadow2(shadow_db_name,master_db_name,.t.)
Variable is of different type
the bootstrap filename and master copy filename are identical as instructed in the runtime documentation...
dim master_db_name as C
dim shadow_db_name as C
master_db_name = ""
shadow_db_name = ""
ui_modeless_dlg_box("Install MyAppName",<<%dlg%
{can_exit=exit}
{lf};
Specify the filename of the master copy of the application:;
[%P=ui_get_file("Select file","(*.adb)",master_db_name)%.100master_db_name];
{lf};
<Click Here to Start Install!oK?.not.(master_db_name="")> <Cancel!cancel>;
22 Alpha Five Runtime
%dlg%,<<%code%
if a_dlg_button = "cancel" then
ui_modeless_dlg_close("Install MyAppName")
a_dlg_button = ""
end if
if a_dlg_button = "oK" then
if file.exists(master_db_name) = .f. then
ui_msg_box("Error","Master Database not found.")
else
shadow_db_name = a5.Get_Name()
a5.Load(master_db_name)
If version() = 5 then
a5_NOpt_CopyAddFiles(shadow_db_name,master_db_name)
create_shadow(shadow_db_name,master_db_name,.t.)
Else
create_shadow2(shadow_db_name,master_db_name,.t.)
End If
ui_modeless_dlg_close("Install MyAppName")
end if
end if
%code%)
It pops up with this message when runs and it fails to create a shadow database :
script: UI_MODELESS_DLG_BOX:Install MyAppName line:15
create_shadow2(shadow_db_name,master_db_name,.t.)
Variable is of different type
the bootstrap filename and master copy filename are identical as instructed in the runtime documentation...
Comment