Announcement

**Steve Workings** · 11-21-2005, 08:57 AM

Tony --

The system doesn't know where your tables are unless you feed the path information.

In your profile, make sure you defined the path alias. Select General / Aliases / [PathAlias.ADB_Path]

Then, when you open a table, include that path like this:

Code:

t = table.open("[PathAlias.ADB_Path]\orders", file_rw_shared)

**AaronBBrown** · 11-21-2005, 11:08 AM

Tony, please take a look at this thread:
http://msgboard.alphasoftware.com/al...ad.php?t=57348

**oldtony** · 11-21-2005, 08:25 PM

Result stack underflow error

hi experts,
Thanks to Steve, my can't fine dbf error, has gone away. Now i am getting a
"Result stack underflow". I know this works on the local server but i can't find any hints in the help file on stack underflow?
thanks for any suggestions
old tony

Error:

Error
Error running Append Operation
Result stack underflow

code:

Code:

<html>
<head>
<meta name="generator" content="Alpha Five HTML Editor">
<title></title>
</head>
<body>

<p>

<%a5 

DIM Append as P; dim count as n

a_tbl = table.open("[PathAlias.ADB_Path]\SalesLog")
append.t_db = "[PathAlias.ADB_Path]\happydata"
ON ERROR GOTO ERROR18112005113434968


append.m_key = "cdate(APP_DATE)-AGENT-APPLICANT_"
append.t_key = "cdate(APP_DATE)-AGENT-APPLICANT_"
append.m_filter = ""
append.t_filter = ""
append.type = "Unique only"
append.m_count = 13
append.m_field1 = "App_Date"
append.m_exp1 = "@Happydata->App_Date"
append.m_field2 = "Agency"
append.m_exp2 = "@Happydata->Agency"
append.m_field3 = "Agent"
append.m_exp3 = "@Happydata->Agent"
append.m_field4 = "Applicant_"
append.m_exp4 = "@Happydata->Applicant_"
append.m_field5 = "Building"
append.m_exp5 = "@Happydata->Building"
append.m_field6 = "Unit"
append.m_exp6 = "@Happydata->Unit"
append.m_field7 = "Move_Date"
append.m_exp7 = "@Happydata->Move_Date"
append.m_field8 = "Ad_Source"
append.m_exp8 = "@Happydata->Ad_Source"
append.m_field9 = "Rent"
append.m_exp9 = "@Happydata->Rent"
append.m_field10 = "Lease_Term"
append.m_exp10 = "@Happydata->Lease_Term"
append.m_field11 = "Concession"
append.m_exp11 = "@Happydata->Concession"
append.m_field12 = "Status"
append.m_exp12 = "@Happydata->Status"
append.m_field13 = "Status_Dat"
append.m_exp13 = "@Happydata->Status_Dat"
append.t_count = 0

'Prompt for confirmation before running the Operation.......
dim rec_count as n 
rec_count = a5_get_records_in_query("happydata",append.t_filter)
message_text = "A maximum of "+rec_count + " record(s) will be appended from 'happydata', to 'saleslog'. "+crlf(2)+ "OK to proceed?"
? "<b>Append Operation " + "<br>" + message_text + "<br></b>"

'operation_result=ui_msg_box("Append Operation",message_text,UI_OK_CANCEL+ UI_FIRST_BUTTON_DEFAULT+ UI_INFORMATION_SYMBOL)

%>

<%a5
dim cRunProcess as C
%>

<p><font face=Verdana size=2>Process Sales log update?
<FORM action="<%a5 ? request.script_name %>">
    <INPUT ID=radio1 TYPE=radio VALUE=1 NAME=cRunProcess CHECKED>Yes
    <INPUT ID=radio2 TYPE=radio VALUE=2 NAME=cRunProcess>No<br>
    <INPUT TYPE=submit VALUE=Enter>
</FORM>
</p></font>


<%a5
    'If operation_result <> ui_ok_selected then 
    '	end 
    'end if 
' run if 1 is selected, ie yes
If CRunProcess <> "1" then
	? "You have NOT yet chosen to run the append process."
	end
end if
? "Running the append program.<br>"
a_tbl.append()


GOTO CONTINUE18112005113434968
ERROR18112005113434968:
ON ERROR GOTO 0
'ui_msg_box("Error","Error running Append Operation"+crlf()+error_text_get())
? "<b>Error </b><br>" + "Error running Append Operation<br>"+crlf()+error_text_get()
END
CONTINUE18112005113434968:
a_tbl.close()

'Display a dialog box showing the results of the Operation
'a5_append_op_result(a_records_processed,a_records_total,a_records_violated, "saleslog")
? "Processed " + a_records_processed + " records. " + "Total number of records is " + a_records_total + " .<br>"

'If the Operation is run from within a Form or Browse, then refresh the window
if is_object(topparent.this) then 
	if topparent.Class() = "form" .or. topparent.class() = "browse" then 
		topparent.Refresh_layout()
	end if 
end if 


%>
</p>
<p>&nbsp;</p>
</body></html>

**Steve Workings** · 11-22-2005, 09:10 AM

There's a bunch of stuff in your code that applies to the desktop, but not to the web. You found and commented some of it, like the ui_ functions, but others remain, like this piece:

Code:

if is_object(topparent.this) then 
	if topparent.Class() = "form" .or. topparent.class() = "browse" then 
		topparent.Refresh_layout()
	end if 
end if

I'd simplify as much as possible by removing whatever non-critical stuff you can.

When I run into a situation like this, I sometimes resort to the divide and conquer method: Try it with just a piece or two at a time until you run into the trouble.

Announcement

The Alpha Software Forum Participation Guidelines

Running operation on the web- how neat

Running operation on the web- how neat

Comment

Comment

Comment

Comment