I am using ComCodeBook to run several web applications. The web applications have been running with no problem for quite some time. But this week I had an engineer who contacted me about losing his remarks for a record he had in the database. The engineer's remarks are being stored in a memo field and the size of the memo field is about 13,000 characters. The data was entered into the memo field from another source outside the COM object. He can bring up the record via the web (using the COM object) and view the data no problem. But when he tries to update the remark data the ComObject loses the whole memo field. I have tried the sequence manually using VFP command window and I get the same results. ComCodeBook does not throw an error, but the memo field data is either gone or a few characters are saved. This is the code I ran via the command window:
lcPrcProcRem = FILETOSTR('C:\temp\bret.txt')
loComObject = CreateObject("MwsResourceMgr.PssProcurements")
loRS = loComObject.GetPssProcurementsByPrcKey(3555)
loFields = loRS.Fields
loFields.Item("PrcProcRem").value = lcPrcProcRem
cXML = "<TABLE><ROW><CRMPNAME>oPssProcurements</CRMPNAME>
<CRMCLSNAME>MwsResourceMgr.PssProcurements</CRMCLSNAME>
<NSAVEORDER>0.00</NSAVEORDER>"
cXML = cXML + "<CPARNTRELA></CPARNTRELA><LPRIMARY>T</LPRIMARY>
<CKEYFIELD>PrcKey</CKEYFIELD></ROW></TABLE>"
loRMController = CreateObject("MWSProcessObj.RMController")
lnRtn = loRMController.Set_Up_Environment(cXML)
lnRtn = loRMController.MarshallData(loRS,"oPssProcurements")
lcXMLValidation = ""
lnRtn = loRMController.Save("lcXMLValidation")
I know a lot of you are not familiar with ComCodeBook, but if you have any idea of why the memo field would not be saved I would like to hear it or if you have any past experiences in Record Sets and limitations I would like to know that also.
TIA
Bret Hobbs
"We'd have been called juvenile delinquents only our neighborhood couldn't afford a sociologist." Bob Hope