Re: Need help for OnSQLExecuteError event
probably if PK > 1
since new record is -1 and your existing records will be higher than 1
Maybe if I add if PK = "" ?
since new record is -1 and your existing records will be higher than 1
Alpha Software Mobile Development Tools: Alpha Anywhere | Alpha TransForm |
function afterDialogValidate as v (e as p) dim MRNum as c dim clientid as n [COLOR="#FF0000"]dim PK as n[/COLOR] dim cn as sql::Connection dim result as l dim sqlSelect as c dim args as sql::Arguments dim rs as sql::ResultSet MRNum = e.dataSubmitted.MRNum clientid = e.dataSubmitted.clientid PK = e.datasubmitted.ID [COLOR="#FF0000"]if PK > 1 goto ExecuteServerSideAction else[/COLOR] result = cn.Open("::Name::sql") if result sqlSelect = "SELECT ID FROM Patient WHERE MRNum = :newMRNum AND clientid = :newCLIENTID" args.add("newMRNum",MRNum) args.add("newCLIENTID",clientid) result = cn.Execute(sqlSelect,args) if result rs = cn.ResultSet result = rs.nextRow() if result e.javascript = "alert('Please enter a unique MR#');" exit function end if end if else e.javascript = "alert('could not connect to database');" cn.close() end if end if ExecuteServerSideAction("Save Data::Save_Submitted_Data_to_Table_s_") end function
MRNum = e.dataSubmitted.MRNum clientid = e.dataSubmitted.clientid PK = e.datasubmitted.ID if PK < 1 result = cn.Open("::Name::sql") if result sqlSelect = "SELECT ID FROM Patient WHERE MRNum = :newMRNum AND clientid = :newCLIENTID" args.add("newMRNum",MRNum) args.add("newCLIENTID",clientid) result = cn.Execute(sqlSelect,args) if result rs = cn.ResultSet result = rs.nextRow() if result e.javascript = "alert('Please enter a unique MR#');" exit function end if end if else e.javascript = "alert('could not connect to database');" cn.close() end if end if else ExecuteServerSideAction("Save Data::Save_Submitted_Data_to_Table_s_") end if end function
MRNum = e.dataSubmitted.MRNum clientid = e.dataSubmitted.clientid PK = e.datasubmitted.ID if PK > 1 ExecuteServerSideAction("Save Data::Save_Submitted_Data_to_Table_s_") else result = cn.Open("::Name::sql") if result sqlSelect = "SELECT ID FROM Patient WHERE MRNum = :newMRNum AND clientid = :newCLIENTID" args.add("newMRNum",MRNum) args.add("newCLIENTID",clientid) result = cn.Execute(sqlSelect,args) if result rs = cn.ResultSet result = rs.nextRow() if result e.javascript = "alert('Please enter a unique MR#');" exit function end if end if else e.javascript = "alert('could not connect to database');" cn.close() end if end if ExecuteServerSideAction("Save Data::Save_Submitted_Data_to_Table_s_") end function
Comment