ON do have an upload event and I have reviewed all of the objects that are updated and mad sure that they were not set to read only: See Code Below...Did I or am I missing something: I am looking into any rules or other events that could trigger code execution when opening the form but so far I am not finding anything.
Dim
i, hold, contsupref As String
Dim var As String
Dim strOut, txtXMLIn, xmlOut, frmFileLocation, frmFileName, frmFileSaveAs As StringDim GMUI As GoldMine.UI
Dim doc, xmldoc, docReturned As MSXML2.DOMDocument40Dim elRoot As MSXML.IXMLDOMElement
Dim Child As MSXML.IXMLDOMElementDim timer As System.Timers.Timer
'Assign Accountno to the interview
If Left(thisXDocument.URI.ToString, 4) = "Form" Then
'Pull data from GM to use for saving document
var = "AccountNo"
i = GetAccntVal(var)
thisXDocument.DOM.selectSingleNode("/dfs:myFields/my:AccountNoKey").text = i
var = "RecID"
i = GetAccntVal(var)
thisXDocument.DOM.selectSingleNode("/dfs:myFields/my:CandI/my:RecID").text = i
var = "Contact"
i = GetAccntVal(var)
thisXDocument.DOM.selectSingleNode("/dfs:myFields/my:CandI/my:Contact").text = i
var = "&UserName"
i = GetAccntVal(var)
thisXDocument.DOM.selectSingleNode("/dfs:myFields/my:CandI/my:FullUserName").text = i
End If
If Left(thisXDocument.URI.ToString(), 4) <> "Form" Then
frmChangeTextFlag =
False
'MsgBox("I made it to the query")
Dim chkvalue, passsql As String
chkvalue = " "
chkvalue = "contsupref"
passsql = "SELECT " & chkvalue & " FROM CONTSUPP" & " Where RecID = " & "'" & thisXDocument.DOM.selectSingleNode("/dfs:myFields/my:CONSUPPREF").text & "'"
FldRunQry(chkvalue, passsql)
'MsgBox(frmContSupRef)
'Check to see if document should be set to read only
If frmContSupRef = "MA App FILED" Then
thisXDocument.DOM.selectSingleNode("/dfs:myFields/my:ApplicationType").text = "MA App FILED"
thisXDocument.Save()
End If
End If
thisXDocument.DOM.selectSingleNode("/dfs:myFields/my:EditFlag").text = "FALSE"