Hi,
I am facing issue with Multiple CheckBox copy feature.
Having a Grid with 'Create Report', when we click on that opening a UX Component to Enter a New Record.
Here at New Record popup screen, I have given 'Copy Record' option so that user can create duplicate the record(given dropdown to select the report name and button to copy the record.)
I can able to duplicate all the fields from the database, except Multiple Checkbox (selected items).
Please help me to develop this Copy Record feature.
After user selects Reports from DropdownBox and clicks Copy Record - calling the AjaxCallback - Populate function
function populate as c (e as p)
dim sel_report_name as c
sel_report_name = e.dataSubmitted.dropdownbox2
dim cn as sql::connection
dim args as sql::Arguments
dim flag as L
dim sqlCommand as c
dim rs as sql::ResultSet
flag = cn.open("::Name::PLM")
if flag == .f. then
js = "alert('Couldn't execute the query.');"
cn.Close()
popuplate = js
exit function
end if
args.Add("sel_report_name", sel_report_name)
sqlCommand = "SELECT * FROM VD_REPORT_DETAILS WHERE RD_REPORT_NAME = :sel_report_name"
flag = cn.execute(sqlCommand,args)
if flag == .f. then
js = "alert('Couldn't execute the query.');"
cn.Close()
popuplate = js
exit function
end if
if flag
rs = cn.ResultSet
e._set.Report_Name.value = rs.Data("RD_REPORT_NAME") //
e._set.Report_Description.value = rs.Data("RD_REPORT_DESC")
e._set.Process_Type.value = rs.Data("RD_PROCESS_TYPE")
e._set.Report_URL.value = rs.Data("RD_URL")
e._set.Time_Base.value = rs.Data("RD_TIME_BASE")
e._set.Enter_Name_for_Product_Line_Group.value = rs.Data("RD_PRD_LINE_GRP_NAME")
e._set.CheckBox3.value = rs.Data("RD_PRD_LINES") 'issue with this line could not able to copy the selected items in multiple checkbox
end if
end function
I am facing issue with Multiple CheckBox copy feature.
Having a Grid with 'Create Report', when we click on that opening a UX Component to Enter a New Record.
Here at New Record popup screen, I have given 'Copy Record' option so that user can create duplicate the record(given dropdown to select the report name and button to copy the record.)
I can able to duplicate all the fields from the database, except Multiple Checkbox (selected items).
Please help me to develop this Copy Record feature.
After user selects Reports from DropdownBox and clicks Copy Record - calling the AjaxCallback - Populate function
function populate as c (e as p)
dim sel_report_name as c
sel_report_name = e.dataSubmitted.dropdownbox2
dim cn as sql::connection
dim args as sql::Arguments
dim flag as L
dim sqlCommand as c
dim rs as sql::ResultSet
flag = cn.open("::Name::PLM")
if flag == .f. then
js = "alert('Couldn't execute the query.');"
cn.Close()
popuplate = js
exit function
end if
args.Add("sel_report_name", sel_report_name)
sqlCommand = "SELECT * FROM VD_REPORT_DETAILS WHERE RD_REPORT_NAME = :sel_report_name"
flag = cn.execute(sqlCommand,args)
if flag == .f. then
js = "alert('Couldn't execute the query.');"
cn.Close()
popuplate = js
exit function
end if
if flag
rs = cn.ResultSet
e._set.Report_Name.value = rs.Data("RD_REPORT_NAME") //
e._set.Report_Description.value = rs.Data("RD_REPORT_DESC")
e._set.Process_Type.value = rs.Data("RD_PROCESS_TYPE")
e._set.Report_URL.value = rs.Data("RD_URL")
e._set.Time_Base.value = rs.Data("RD_TIME_BASE")
e._set.Enter_Name_for_Product_Line_Group.value = rs.Data("RD_PRD_LINE_GRP_NAME")
e._set.CheckBox3.value = rs.Data("RD_PRD_LINES") 'issue with this line could not able to copy the selected items in multiple checkbox
end if
end function