I get this error message:
500 Internal Server Error
Script Error
Error:line:20 Extra characters at end of expression
Alpha Anywhere Development Server/12.0 Build/2999-4519 at LEDGERSUITE1 Port 80
on code run from an a5w.page but runs fine from operations inside developer here is the code:
' this adds invoiceexports to invoiceexportshistory for reporting and audit nnw 1/10/16
DIM Append as P
a_tbl = table.open("[PathAlias.ADB_Path]\invoiceexporthistory.dbf")
append.t_db = ""[PathAlias.ADB_Path]\invoiceexport.dbf"
'ON ERROR GOTO ERROR10012016165840520
append.m_key = "ALLTRIM(Customerno+Itemcode+Serialno+cdate(Invoicedate))"
append.t_key = "ALLTRIM(Customerno+Itemcode+Serialno+cdate(Invoicedate))"
append.m_filter = ""
append.t_filter = ""
append.type = "Unique only"
append.m_count = 13
append.m_field1 = "Customerno"
append.m_exp1 = "@Invoiceexport->Customerno"
append.m_field2 = "Invoicedate"
append.m_exp2 = "@Invoiceexport->Invoicedate"
append.m_field3 = "Itemcode"
append.m_exp3 = "@Invoiceexport->Itemcode" ' error is on this line??????
append.m_field4 = "Qty"
append.m_exp4 = "@Invoiceexport->Qty"
append.m_field5 = "Price"
append.m_exp5 = "@Invoiceexport->Price"
append.m_field6 = "Serialno"
append.m_exp6 = "@Invoiceexport->Serialno"
append.m_field7 = "Startmeter"
append.m_exp7 = "@Invoiceexport->Startmeter"
append.m_field8 = "Endmeter"
append.m_exp8 = "@Invoiceexport->Endmeter"
append.m_field9 = "Leaseno"
append.m_exp9 = "@Invoiceexport->Leaseno"
append.m_field10 = "Cost"
append.m_exp10 = "@Invoiceexport->Cost"
append.m_field11 = "Invoiceno"
append.m_exp11 = "@Invoiceexport->Invoiceno"
append.m_field12 = "Model"
append.m_exp12 = "@Invoiceexport->Model"
append.m_field13 = "Description"
append.m_exp13 = "@Invoiceexport->Description"
append.t_count = 0
a_tbl.append()
a_tbl.close()
' this ends update to invoiceexporthistory 1/10/16 nnw
' There is more code that does and export to csv
end
Any Clues?
500 Internal Server Error
Script Error
Error:line:20 Extra characters at end of expression
Alpha Anywhere Development Server/12.0 Build/2999-4519 at LEDGERSUITE1 Port 80
on code run from an a5w.page but runs fine from operations inside developer here is the code:
' this adds invoiceexports to invoiceexportshistory for reporting and audit nnw 1/10/16
DIM Append as P
a_tbl = table.open("[PathAlias.ADB_Path]\invoiceexporthistory.dbf")
append.t_db = ""[PathAlias.ADB_Path]\invoiceexport.dbf"
'ON ERROR GOTO ERROR10012016165840520
append.m_key = "ALLTRIM(Customerno+Itemcode+Serialno+cdate(Invoicedate))"
append.t_key = "ALLTRIM(Customerno+Itemcode+Serialno+cdate(Invoicedate))"
append.m_filter = ""
append.t_filter = ""
append.type = "Unique only"
append.m_count = 13
append.m_field1 = "Customerno"
append.m_exp1 = "@Invoiceexport->Customerno"
append.m_field2 = "Invoicedate"
append.m_exp2 = "@Invoiceexport->Invoicedate"
append.m_field3 = "Itemcode"
append.m_exp3 = "@Invoiceexport->Itemcode" ' error is on this line??????
append.m_field4 = "Qty"
append.m_exp4 = "@Invoiceexport->Qty"
append.m_field5 = "Price"
append.m_exp5 = "@Invoiceexport->Price"
append.m_field6 = "Serialno"
append.m_exp6 = "@Invoiceexport->Serialno"
append.m_field7 = "Startmeter"
append.m_exp7 = "@Invoiceexport->Startmeter"
append.m_field8 = "Endmeter"
append.m_exp8 = "@Invoiceexport->Endmeter"
append.m_field9 = "Leaseno"
append.m_exp9 = "@Invoiceexport->Leaseno"
append.m_field10 = "Cost"
append.m_exp10 = "@Invoiceexport->Cost"
append.m_field11 = "Invoiceno"
append.m_exp11 = "@Invoiceexport->Invoiceno"
append.m_field12 = "Model"
append.m_exp12 = "@Invoiceexport->Model"
append.m_field13 = "Description"
append.m_exp13 = "@Invoiceexport->Description"
append.t_count = 0
a_tbl.append()
a_tbl.close()
' this ends update to invoiceexporthistory 1/10/16 nnw
' There is more code that does and export to csv
end
Any Clues?
Comment