After update Windows 10

[johnkoh]

Hi All,

After update windows 10 from Windows 7, I have the two problems.

1) AlphaFivePrinterV4 - not able to print with PDF.
2)the Backup or Zipfile utility will not completed because Some of files were opened.

The first one is solved with re-install the A5 printer driver again.

I can find the " .ddf .ddd .ddm " files in my directory with File Explorer.

My question is

Can I rename those files and copy and paste it from old Backup?

[Mark B]

Re: After update Windows 10

Same printer issue here.

[johnkoh]

Re: After update Windows 10

Mark,

find C:\Program Files (x86)\a5V11\AmyuniV4\InstallAmyuniPrinters and re-install it.

[preston2]

Re: After update Windows 10

Upgrading to Win 10 will sometimes break the Amyuni printer.

Open Settings/Devices/Printers & Scanners then scroll down and click "Devices and Printers" under "Related Settings"

Find any Amyuni printer or AlphaFivePrinter and delete them.

Now using the folder explores navigate to C:\Program Files (x86)\a5V11\AmyuniV4\. Right click on InstallAmyuniPrinters and select "Run as Administrator".

Once that has completed start V11 by right clicking and selecting "run as Administrator" now open a workspace in V11, open a report, select the Acrobat icon and then save to PDF. When it tells you the printer has not been and do you want to install it, answer yes. It should now install the AlphaFivePrinter and create the PDF.

After that you should be able to start A5 as you normally would and the print feature will work.

[preston2]

Re: After update Windows 10

Hi All,
1) AlphaFivePrinterV4 - not able to print with PDF.
2)the Backup or Zipfile utility will not completed because Some of files were opened.

For #2 Alpha must shut down all forms and browses before it can create the backup zip file. The xbasix to do this should look something like this.

'Display the 'Backup Workspace' dialog box
dim cmd_initial as c 
cmd_initial = " backup_database()"
dim msg as c 
msg = "In order to Backup files, all open Windows must first be closed. OK to close all open Windows?"
dim cmd_result as c 


'get list of all open windows...........................................
dim open_windows as c 
open_windows = a5_list_open_windows()	
dim current_window as c 
if is_object(topparent.this)
	if topparent.class() = "form" .or. topparent.class() = "browse" then 
		current_window = topparent.name()
		'remove the current window from the list
		open_windows = word_subtract(open_windows,current_window,crlf())  
	end if 
end if 

'generate the xbasic to close all of the open windows (excepting the current window)....................
if open_windows <> "" then 
	dim cmd_close as c 
	cmd_close = *for_each(x,x+".close()" , open_windows)
	''now execute the xbasic
	cmd_result = evaluate_template(cmd_close)
	if cmd_result <> "" then 
		ui_msg_box("Error",cmd_result)
		goto skip_rest_close_open_windows
	end if 
end if 




if is_object(topparent.this) then 
	if topparent.class() = "form" .or. topparent.class() = "browse" then 
		dim q_msg as n 
		q_msg = ui_msg_box("Notice",msg,UI_ATTENTION_SYMBOL+UI_OK_CANCEL)
		if q_msg = ui_ok_selected then
			dim topparent_name as c 
			dim cmd as c 
			dim condition as c 
			
			dim open_sessions as c 
			open_sessions = session_enum()
			dim open_session_count as n 
			open_session_count = line_count(open_sessions)

			if topparent.class() = "form" then 
				cmd = "dim tempP as p; tempP = form.view(" + quote(topparent.name(1)+"@" + topparent.Dictionary_Get(1))+")"
			else
				cmd = "dim tempP as p; tempP = browse.view(" +quote( topparent.name(1)+"@" + topparent.Dictionary_Get(1))+")"
			end if 
			
			if a5_IsMaximized() = .t. then 
				cmd =  cmd +  crlf() +"xbasic_wait_for_idle()" + crlf() +  "tempP.maximize()" + crlf()
			end if 
			
			
			'when the number of sessions is one less than the number before the layout is closed then 
			'the session that the form/browse was based on has been closed, and it is safe to run the
			'command.
			condition = "line_count(session_enum()) =  " + (open_session_count - 1 )
			cmd = cmd_initial + crlf() + cmd
			
			'is the control panel hidden? if so then you have to temporarily show it, or else the database will close
			'after you close this form.
			if ControlPanel.IsVisible() = .f. then 
				ControlPanel.Minimize()
				cmd = cmd + crlf() + "controlpanel.hide()"
				if a5_IsMaximized() then 
					topparent.restore()
				end if 
			end if 

			
			on_condition(condition,cmd)
			topparent.close()
		end if 
	
	else   'topparent is an object, but it is not a form or browse
		cmd_result = evaluate_template(cmd_initial)
		if cmd_result <> "" then 
			ui_msg_box("Error",cmd_result)
		end if 
	end if 
else '	topparent is not an object 
	cmd_result = evaluate_template(cmd_initial)
	if cmd_result <> "" then 
		ui_msg_box("Error",cmd_result)
	end if 
end if 

skip_rest_close_open_windows:

[DaveM]

Re: After update Windows 10

Can I rename those files and copy and paste it from old Backup?

Make sure no one is in the app!! CLOSED
then yes you can. NEVER seprate dbf and ftp files though.

[johnkoh]

Re: After update Windows 10

Hi All,

Thank you for your reply.