im at a difficult part of my web app, where i need to convert some code from my desktop app to my web app. i have built all of the grids, pages etc.
i just can't get to grips with Ajax Callback's and could do with some help with this part of my application.
Please remember we are a small mortgage services company, developing this for ourselves and not for re-sale, so please be gentle with your fee's.
this is the sort of code i need to put in to my web app, this is from my desktop.
and this
also, along the way there have been a few very small parts of my app that i had difficulties with but didnt impact future development. So ill need to review these at the end and will need help with those.
i just can't get to grips with Ajax Callback's and could do with some help with this part of my application.
Please remember we are a small mortgage services company, developing this for ourselves and not for re-sale, so please be gentle with your fee's.
this is the sort of code i need to put in to my web app, this is from my desktop.
Code:
dim tbl as P
dim duptbl as P
dim qry as P
dim nrecs as N
dim i as N
tbl = table.current()
duptbl = table.open("tcommmngr")
filter_process = "process = .T."
filter_dup = "Duplicate = .T."
filter_month = "last_renewal<>month(date())"
filter_recs ="("+filter_dup +") .and. ("+filter_month +") .and. ("+filter_process +")"
query.description = "Dup Recs"
query.order = ""
query.filter = filter_recs
query.options = ""
qry = tbl.query_create()
nrecs = qry.records_get()
if nrecs=0 then
ui_msg_box("No Records", "No records to update")
end
else
ui_msg_box("Renewal Commissions", (nrecs + " " + "Records will be updated"))
tbl.fetch_first()
while .NOT. tbl.fetch_eof()
duptbl.enter_begin()
duptbl.productid = tbl.productid
duptbl.commdate = date()
duptbl.commtype = tbl.commtype
duptbl.commamount=tbl.commamount
duptbl.dripreceipt=tbl.dripreceipt
duptbl.CASEREF=tbl.CASEREF
duptbl.provider=tbl.provider
duptbl.caseparent=tbl.caseparent
duptbl.SOURCE=tbl.SOURCE
duptbl.client_name=tbl.client_name
duptbl.adviser = tbl.adviser
duptbl.enter_end()
tbl.change_begin()
tbl.last_renewal=month(date())
tbl.PROCESS = .F.
tbl.change_end()
tbl.fetch_next()
end while
'tbl.close()
duptbl.close()
qry.close()
topparent.Commit()
topparent.Resynch()
topparent.Refresh_Layout()
ui_msg_box("Renewal Commission Processing", (nrecs + " " + "Commission Records have been updated."))
end if
Code:
'create a report for each adviser, save to file and email
dim vdoc as c
dim varEmpFile as c
dim varEmpemail as c
rslt = ui_get_radio("","All","All","Single Salesman")
IF rslt = "All"
lst = table.external_record_content_get("tcommmngr","alltrim(adviser)","adviser",".t. .and. unique_key_value()")
FOR each foo in lst
filter1 = "tcommmngr->adviser = " + quote(foo.value)
filter2 = "Tprods->Prod_Commrec=.T..AND.Adv_Paid=.t. .and. adv_paid_date = date()"
varEmpFile = lookup("tstaff","employeename = "+quote(foo.value),"alltrim(emp_file_location)")
varEmpemail = lookup("tstaff","employeename = "+quote(foo.value),"alltrim(employeeemail)")
current_filter = "("+filter1 +") .and. ("+filter2 +")"
current_order = current_order_expn()
query.filter = current_filter
query.order = current_order
IF A5_GET_RECORDS_IN_QUERY("tcommstat.set",current_filter) > 0
vdoc=varEmpFile+"\\"+"Commission Statement"+" "+dtoc(date(),"1-")+".pdf"
:Report.SaveAs("comm_statement","PDF",query.filter,query.order,vdoc,.F.)
'email comm statement
to_param = a5_eval_expression(varEmpemail)
cc_param = a5_eval_expression("",local_variables())
bcc_param = a5_eval_expression("",local_variables())
subject_param = a5_eval_expression("=\"Your commission statement is attached\"",local_variables())
message_param = a5_eval_expression("=\"Please find attached your commission statement for this week, your statements are also stored in your personnel file and can be accessed via the 'My Profile' page in Mortgage Manager.\"",local_variables())
email_send(to_param,subject_param,message_param,vdoc,cc_param,bcc_param)
ELSE
'do nothing
END IF
next
ELSE
adv = alltrim(ui_get_text("Name","Enter Adviser name"))
IF adv > ""
filter1 = "tcommmngr->adviser = " + quote(adv)
filter2 = "Tprods->Prod_Commrec=.T..AND.Adv_Paid=.t. .and. adv_paid_date = date()"
varEmpFile = lookup("tstaff","employeename = "+quote(adv),"alltrim(emp_file_location)")
varEmpemail = lookup("tstaff","employeename = "+quote(adv),"alltrim(employeeemail)")
current_filter = "("+filter1 +") .and. ("+filter2 +")"
current_order = current_order_expn()
query.filter = current_filter
query.order = current_order
IF A5_GET_RECORDS_IN_QUERY("tcommstat.set",current_filter) > 0
vdoc=varEmpFile+"\\"+"Commission Statement"+" "+dtoc(date(),"1-")+".pdf"
:Report.SaveAs("comm_statement","PDF",query.filter,query.order,vdoc,.F.)
'email comm statement
to_param = a5_eval_expression(varEmpemail)
cc_param = a5_eval_expression("",local_variables())
bcc_param = a5_eval_expression("",local_variables())
subject_param = a5_eval_expression("=\"Your commission statement is attached\"",local_variables())
message_param = a5_eval_expression("=\"Please find attached your commission statement for this week, your statements are also stored in your personnel file and can be accessed via the 'My Profile' page in Mortgage Manager.\"",local_variables())
email_send(to_param,subject_param,message_param,vdoc,cc_param,bcc_param)
ELSE
'do nothing
END IF
ELSE
ui_msg_box("Alert","No Adviser chosen")
END IF
end if
:Report.Preview("commission summary",filter2,query.order)
Comment