I am using a button on a dialog to duplicate the current parent record, and child records, into a new record and populate some of the fields with the current data. I use this function, which works fine except a date field. I am using the date field in this format 6/26/2014, but when the record is duplicated, it enters this "26/21/1328 EDT 2014". How can I get it to enter the date just the way it was?
function copyRecordData as c (e as p)
dim oldid as c
oldid = e.dataSubmitted.ID
dim currTime as c = time("MM/dd/yyyy 0h:0m:0s",Now())
dim masterid as n
masterid = oldid
dim vjscmd as c
dim j as p
dim cn as SQL::Connection
if cn.open("::Name::conn") then
dim sqlCommand as c = "SELECT * FROM discipline WHERE DisciplineID = :masteruid"
dim args as SQL::Arguments
args.add("masteruid",masterid)
if cn.Execute(sqlCommand,args) then
dim rs as SQL::ResultSet
rs = cn.ResultSet
if rs.NextRow() then
j.DISCIPDATE = rs.Data("DiscipDate")
j.DISCIPPERS = rs.Data("DiscipPers")
j.DATEINCIDENT = rs.Data("DateIncident")
j.DATEINCIDENT = rs.Data("DateIncident")
j.TIMEINCIDENT = rs.Data("TimeIncident")
j.RUNNUMBER = rs.Data("RunNumber")
j.SUPNAME = rs.Data("SupName")
j.SOG = rs.Data("Sog")
j.SUBSTANTIATED = rs.Data("Substantiated")
j.ACTIONSTAKEN = rs.Data("ActionsTaken")
j.ACTIONSTAKENNEXT = rs.Data("ActionsTakenNext")
j.DESCRIBEINCIDENT = rs.Data("DescribeIncident")
j.SUPNAME = "0"
j.CLASSNAME = "<Enter Class Name and Hours>"
j.CLASSTOPIC = rs.Data("ClassTopic")
j.LECTURESKILLVIDEO = rs.Data("LectureSkillVideo")
'j.CLASSCODE = rs.Data("ClassCode")
sqlCommand = "SELECT * FROM ceu_attendees WHERE ClassID = :masteruid"
delete rs
dim cnt as n = 0
if cn.Execute(sqlCommand,args) then
dim rs as SQL::ResultSet
rs = cn.ResultSet
while rs.NextRow()
cnt = cnt + 1
eval("j.ATTENDEE_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("attendee")
eval("j.ATTENDEE_TEXT_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("attendee_text")
eval("j.AGENCYID1_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("agencyid")
eval("j.ATTENDEEHOURS_A5INSTANCE" + alltrim(str(cnt))) = 0
eval("j.CREATEDATE1_A5INSTANCE" + alltrim(str(cnt))) = currTime
eval("j.CREATEUSER1_A5INSTANCE" + alltrim(str(cnt))) = session.persid
end while
delete rs
vjscmd = "{dialog.object}._setRepeatingSectionRowCount('CONTAINER_19'," + cnt + ",true,true);"
vjscmd = vjscmd + "{dialog.object}.populate(" + varToJSON(j) + ",1,false,true);"
vjscmd = "{Dialog.Object}.newRecord();setTimeout(function(){" + vjscmd + "},1000);"
else
vjscmd = "alert('No attendees found for this class);"
end if
else
vjscmd = "alert('No parent record found.');"
end if
else
vjscmd = "alert('Execute Error: Error returned was: " + js_escape(cn.CallResult.text) + "');"
end if
cn.Close()
else
vjscmd = "alert('Connection Error: Error returned was: " + js_escape(cn.CallResult.text) + "');"
end if
copyRecordData = vjscmd
end function
function copyRecordData as c (e as p)
dim oldid as c
oldid = e.dataSubmitted.ID
dim currTime as c = time("MM/dd/yyyy 0h:0m:0s",Now())
dim masterid as n
masterid = oldid
dim vjscmd as c
dim j as p
dim cn as SQL::Connection
if cn.open("::Name::conn") then
dim sqlCommand as c = "SELECT * FROM discipline WHERE DisciplineID = :masteruid"
dim args as SQL::Arguments
args.add("masteruid",masterid)
if cn.Execute(sqlCommand,args) then
dim rs as SQL::ResultSet
rs = cn.ResultSet
if rs.NextRow() then
j.DISCIPDATE = rs.Data("DiscipDate")
j.DISCIPPERS = rs.Data("DiscipPers")
j.DATEINCIDENT = rs.Data("DateIncident")
j.DATEINCIDENT = rs.Data("DateIncident")
j.TIMEINCIDENT = rs.Data("TimeIncident")
j.RUNNUMBER = rs.Data("RunNumber")
j.SUPNAME = rs.Data("SupName")
j.SOG = rs.Data("Sog")
j.SUBSTANTIATED = rs.Data("Substantiated")
j.ACTIONSTAKEN = rs.Data("ActionsTaken")
j.ACTIONSTAKENNEXT = rs.Data("ActionsTakenNext")
j.DESCRIBEINCIDENT = rs.Data("DescribeIncident")
j.SUPNAME = "0"
j.CLASSNAME = "<Enter Class Name and Hours>"
j.CLASSTOPIC = rs.Data("ClassTopic")
j.LECTURESKILLVIDEO = rs.Data("LectureSkillVideo")
'j.CLASSCODE = rs.Data("ClassCode")
sqlCommand = "SELECT * FROM ceu_attendees WHERE ClassID = :masteruid"
delete rs
dim cnt as n = 0
if cn.Execute(sqlCommand,args) then
dim rs as SQL::ResultSet
rs = cn.ResultSet
while rs.NextRow()
cnt = cnt + 1
eval("j.ATTENDEE_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("attendee")
eval("j.ATTENDEE_TEXT_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("attendee_text")
eval("j.AGENCYID1_A5INSTANCE" + alltrim(str(cnt))) = rs.Data("agencyid")
eval("j.ATTENDEEHOURS_A5INSTANCE" + alltrim(str(cnt))) = 0
eval("j.CREATEDATE1_A5INSTANCE" + alltrim(str(cnt))) = currTime
eval("j.CREATEUSER1_A5INSTANCE" + alltrim(str(cnt))) = session.persid
end while
delete rs
vjscmd = "{dialog.object}._setRepeatingSectionRowCount('CONTAINER_19'," + cnt + ",true,true);"
vjscmd = vjscmd + "{dialog.object}.populate(" + varToJSON(j) + ",1,false,true);"
vjscmd = "{Dialog.Object}.newRecord();setTimeout(function(){" + vjscmd + "},1000);"
else
vjscmd = "alert('No attendees found for this class);"
end if
else
vjscmd = "alert('No parent record found.');"
end if
else
vjscmd = "alert('Execute Error: Error returned was: " + js_escape(cn.CallResult.text) + "');"
end if
cn.Close()
else
vjscmd = "alert('Connection Error: Error returned was: " + js_escape(cn.CallResult.text) + "');"
end if
copyRecordData = vjscmd
end function
Comment