With the xbasic code below I am getting an error 6000 not in help. Can someone give some light on this thanks
a_tbl = table.open("imitemloc")
ON ERROR GOTO ERROR09052008173953546
post.t_db = "shopreporting_sql"
post.m_key = "ITEM_NO"
post.t_key = "ITEM_NO"
post.m_filter = ""
post.t_filter = ""
post.m_count = 4
post.m_field1 = "Item_No"
post.m_exp1 = "Item_No+Shopreporting_Sql->Item_No"
post.m_field2 = "Qty_On_Hand"
post.m_exp2 = "Qty_On_Hand+Shopreporting_Sql->Qty_On_Hand"
post.m_field3 = "Price"
post.m_exp3 = "Price+Shopreporting_Sql->Price"
post.m_field4 = "Last_Cost"
post.m_exp4 = "Last_Cost+Shopreporting_Sql->Last_Cost"
post.t_count = 0
'Prompt for confirmation before running the Operation.......
dim rec_count as n
Dim OpDenf as P
dim arguments as sql::arguments
OpDefn.arguments = arguments
rec_count = a5_get_records_in_query("shopreporting_sql",post.t_filter,-1,.f.,OpDefn)
message_text = "A maximum of "+rec_count + " record(s) will be Posted from 'shopreporting_sql' to 'imitemloc'."+crlf(2)+ "OK to proceed?"
operation_result=ui_msg_box("Post Operation",message_text,UI_OK_CANCEL+ UI_FIRST_BUTTON_DEFAULT+ UI_INFORMATION_SYMBOL)
If operation_result <> ui_ok_selected then
end
end if
a_tbl.post()
GOTO CONTINUE09052008173953546
ERROR09052008173953546:
ON ERROR GOTO 0
ui_msg_box("Error","Error running Post Operation"+crlf()+error_text_get())
END
CONTINUE09052008173953546:
a_tbl.close()
'Display a dialog box showing the results of the Operation
dim args as sql::arguments
if eval_valid("arguments") then
if typeof(arguments) = "P" then
args = arguments
end if
end if
a5_post_op_result(a_records_processed,a_records_total,a_records_violated,"imitemloc", args)
'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
a_tbl = table.open("imitemloc")
ON ERROR GOTO ERROR09052008173953546
post.t_db = "shopreporting_sql"
post.m_key = "ITEM_NO"
post.t_key = "ITEM_NO"
post.m_filter = ""
post.t_filter = ""
post.m_count = 4
post.m_field1 = "Item_No"
post.m_exp1 = "Item_No+Shopreporting_Sql->Item_No"
post.m_field2 = "Qty_On_Hand"
post.m_exp2 = "Qty_On_Hand+Shopreporting_Sql->Qty_On_Hand"
post.m_field3 = "Price"
post.m_exp3 = "Price+Shopreporting_Sql->Price"
post.m_field4 = "Last_Cost"
post.m_exp4 = "Last_Cost+Shopreporting_Sql->Last_Cost"
post.t_count = 0
'Prompt for confirmation before running the Operation.......
dim rec_count as n
Dim OpDenf as P
dim arguments as sql::arguments
OpDefn.arguments = arguments
rec_count = a5_get_records_in_query("shopreporting_sql",post.t_filter,-1,.f.,OpDefn)
message_text = "A maximum of "+rec_count + " record(s) will be Posted from 'shopreporting_sql' to 'imitemloc'."+crlf(2)+ "OK to proceed?"
operation_result=ui_msg_box("Post Operation",message_text,UI_OK_CANCEL+ UI_FIRST_BUTTON_DEFAULT+ UI_INFORMATION_SYMBOL)
If operation_result <> ui_ok_selected then
end
end if
a_tbl.post()
GOTO CONTINUE09052008173953546
ERROR09052008173953546:
ON ERROR GOTO 0
ui_msg_box("Error","Error running Post Operation"+crlf()+error_text_get())
END
CONTINUE09052008173953546:
a_tbl.close()
'Display a dialog box showing the results of the Operation
dim args as sql::arguments
if eval_valid("arguments") then
if typeof(arguments) = "P" then
args = arguments
end if
end if
a5_post_op_result(a_records_processed,a_records_total,a_records_violated,"imitemloc", args)
'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