Hello,
When I run this code:
function AfterUpdateRecord as v (e as p)
'''''''POST RECORDS '''''''''
a_tbl = table.open("[PathAlias.ADB_Path]\debtoraccount",FILE_RW_SHARED)
post.t_db = "[PathAlias.ADB_Path]\payments"
post.m_key = "str(ACCOUNTID,7,0)"
post.t_key = "str(ACCOUNTID,7,0)"
post.m_filter = ""
post.t_filter = "Posted="Yes""
post.m_count = 4
post.m_field1 = "Baldueacct"
post.m_exp1 = "Baldueacct-@Payments->Paymentamt"
post.m_field2 = "Totalpay"
post.m_exp2 = "Totalpay+@Payments->Paymentamt"
post.m_field3 = "Addcharges"
post.m_exp3 = "Addcharges"
post.m_field4 = "Acctsubtot"
post.m_exp4 = "Principala+Addcharges"
post.t_count = 3
post.t_case1 = "POSTED"
post.t_field1 = "@Payments->Posted"
post.t_exp1 = ""Posted""
post.t_case2 = "VIOLATED"
post.t_field2 = "@Payments->Posted"
post.t_exp2 = ""Failed""
post.t_case3 = "NO-MATCH"
post.t_field3 = "@Payments->Posted"
post.t_exp3 = ""NoMatc""
a_tbl.post()
a_tbl.close()
if is_object(topparent.this) then
if topparent.Class() = "form" .or. topparent.class() = "browse" then
topparent.Refresh_layout()
end if
end if
''''''''''''''''''ADD NEW RECORD TO NOTES TABLE''''''''''''''''''''''''''''
delete a_tbl
a_tbl = table.open("[PathAlias.ADB_Path]\notes",FILE_RW_SHARED)
append.t_db = "[PathAlias.ADB_Path]\payments"
append.m_key = ""
append.t_key = "recno()"
append.m_filter = ""
append.t_filter = "Posted="Posted""
append.type = "All"
append.m_count = 4
append.m_field1 = "USER_NOTE"
append.m_exp1 = "@Payments->Paymentamt+" posted to the account""
append.m_field2 = "Accountid"
append.m_exp2 = "@Payments->Accountid"
append.m_field3 = "ACTION"
append.m_exp3 = ""Pos""
append.m_field4 = "RESULT"
append.m_exp4 = ""Pos""
append.t_count = 1
append.t_case1 = "APPENDED"
append.t_field1 = "@Payments->Posted"
append.t_exp1 = ""POSTN""
a_tbl.append()
a_tbl.close()
'a5_append_op_result(a_records_processed,a_records_total,a_records_violated, "[PathAlias.ADB>Path]\notes","Append Operation Result",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
end function
---------------------------------------------------------------------------------------------------------------------------
It works correctly on the localhost and in my other systems running the same code.
When I run it on the server i get this error:
Error running Grid:
Error executing AfterUpdateRecord event handler: command: a_tbl.post() a_tbl.post(): Argument is incorrect data type.
Any assistance would be a great help.
Melvin W
When I run this code:
function AfterUpdateRecord as v (e as p)
'''''''POST RECORDS '''''''''
a_tbl = table.open("[PathAlias.ADB_Path]\debtoraccount",FILE_RW_SHARED)
post.t_db = "[PathAlias.ADB_Path]\payments"
post.m_key = "str(ACCOUNTID,7,0)"
post.t_key = "str(ACCOUNTID,7,0)"
post.m_filter = ""
post.t_filter = "Posted="Yes""
post.m_count = 4
post.m_field1 = "Baldueacct"
post.m_exp1 = "Baldueacct-@Payments->Paymentamt"
post.m_field2 = "Totalpay"
post.m_exp2 = "Totalpay+@Payments->Paymentamt"
post.m_field3 = "Addcharges"
post.m_exp3 = "Addcharges"
post.m_field4 = "Acctsubtot"
post.m_exp4 = "Principala+Addcharges"
post.t_count = 3
post.t_case1 = "POSTED"
post.t_field1 = "@Payments->Posted"
post.t_exp1 = ""Posted""
post.t_case2 = "VIOLATED"
post.t_field2 = "@Payments->Posted"
post.t_exp2 = ""Failed""
post.t_case3 = "NO-MATCH"
post.t_field3 = "@Payments->Posted"
post.t_exp3 = ""NoMatc""
a_tbl.post()
a_tbl.close()
if is_object(topparent.this) then
if topparent.Class() = "form" .or. topparent.class() = "browse" then
topparent.Refresh_layout()
end if
end if
''''''''''''''''''ADD NEW RECORD TO NOTES TABLE''''''''''''''''''''''''''''
delete a_tbl
a_tbl = table.open("[PathAlias.ADB_Path]\notes",FILE_RW_SHARED)
append.t_db = "[PathAlias.ADB_Path]\payments"
append.m_key = ""
append.t_key = "recno()"
append.m_filter = ""
append.t_filter = "Posted="Posted""
append.type = "All"
append.m_count = 4
append.m_field1 = "USER_NOTE"
append.m_exp1 = "@Payments->Paymentamt+" posted to the account""
append.m_field2 = "Accountid"
append.m_exp2 = "@Payments->Accountid"
append.m_field3 = "ACTION"
append.m_exp3 = ""Pos""
append.m_field4 = "RESULT"
append.m_exp4 = ""Pos""
append.t_count = 1
append.t_case1 = "APPENDED"
append.t_field1 = "@Payments->Posted"
append.t_exp1 = ""POSTN""
a_tbl.append()
a_tbl.close()
'a5_append_op_result(a_records_processed,a_records_total,a_records_violated, "[PathAlias.ADB>Path]\notes","Append Operation Result",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
end function
---------------------------------------------------------------------------------------------------------------------------
It works correctly on the localhost and in my other systems running the same code.
When I run it on the server i get this error:
Error running Grid:
Error executing AfterUpdateRecord event handler: command: a_tbl.post() a_tbl.post(): Argument is incorrect data type.
Any assistance would be a great help.
Melvin W