Solution:  Change the Field Formula PeopleCode on WebLib_GL Record and replace with this:  Function Iscript_Excel_Journal();    Local BIDocs &rootInDoc, &rootOutDoc, &RequestDoc, &ResponseDoc;    Local File &fileLog;        Local string &inString, &cleanInString;        /* Get the incoming Request BiDoc */    &inString = %Request.GetContentBody();        /*** Start Logging ***/    &fileLog = GetFile("JournalUpload" | String(%Datetime) | ".log", "w", "a", %FilePath_Relative);    &fileLog.WriteLine("Start InBound XML String Contents");    &fileLog.WriteLine("start &inString");    &fileLog.WriteLine(&inString);    &fileLog.WriteLine("end &inString");        /*Get Start pos of end tag, and so we can strip off any extra chars after this tag*/    &endTagStartPos = Find("</Postreq>", &inString);        /*Strip off any extra chars after above end tag*/    &cleanInString = Substring(&inString, 1, (&endTagStartPos + 10));        &fileLog.WriteLine("start &cleanInString after stripping off extra chars");    &fileLog.WriteLine(&cleanInString);    &fileLog.WriteLine("end &cleanInString after stripping off extra chars");        &fileLog.WriteLine("End InBound XML String Contents");    &fileLog.Close();    /*** End Logging ***/    &rootInDoc = GetBiDoc(&cleanInString);        &RequestDoc = &rootInDoc.GetDoc("Postreq");        /* Create Response BiDoc and it's subsequent node doc */    &rootOutDoc = GetBiDoc("");    If &rootOutDoc.AddProcessInstruction("<?xml version=""1.0""?>") <> 0 Then       Exit (1);    End-If;    &ResponseDoc = &rootOutDoc.CreateElement("postresponse");        &TotalError = 0;    Import_Journal(&RequestDoc, &ResponseDoc);        If &TotalError > 0 Then       /* Rollback all transactions */       SQLExec("ROLLBACK");    End-If;    %Response.Write(&rootOutDoc.GenXmlString()); End-Function;

Solution:

Change the Field Formula PeopleCode on WebLib_GL Record and replace with this:

Function Iscript_Excel_Journal();
   Local BIDocs &rootInDoc, &rootOutDoc, &RequestDoc, &ResponseDoc;
   Local File &fileLog;
   
   Local string &inString, &cleanInString;
   
   /* Get the incoming Request BiDoc */
   &inString = %Request.GetContentBody();
   
   /*** Start Logging ***/
   &fileLog = GetFile("JournalUpload" | String(%Datetime) | ".log", "w", "a", %FilePath_Relative);
   &fileLog.WriteLine("Start InBound XML String Contents");
   &fileLog.WriteLine("start &inString");
   &fileLog.WriteLine(&inString);
   &fileLog.WriteLine("end &inString");
   
   /*Get Start pos of end tag, and so we can strip off any extra chars after this tag*/
   &endTagStartPos = Find("</Postreq>", &inString);
   
   /*Strip off any extra chars after above end tag*/
   &cleanInString = Substring(&inString, 1, (&endTagStartPos + 10));
   
   &fileLog.WriteLine("start &cleanInString after stripping off extra chars");
   &fileLog.WriteLine(&cleanInString);
   &fileLog.WriteLine("end &cleanInString after stripping off extra chars");
   
   &fileLog.WriteLine("End InBound XML String Contents");
   &fileLog.Close();
   /*** End Logging ***/
   &rootInDoc = GetBiDoc(&cleanInString);
   
   &RequestDoc = &rootInDoc.GetDoc("Postreq");
   
   /* Create Response BiDoc and it's subsequent node doc */
   &rootOutDoc = GetBiDoc("");
   If &rootOutDoc.AddProcessInstruction("<?xml version=""1.0""?>") <> 0 Then
      Exit (1);
   End-If;
   &ResponseDoc = &rootOutDoc.CreateElement("postresponse");
   
   &TotalError = 0;
   Import_Journal(&RequestDoc, &ResponseDoc);
   
   If &TotalError > 0 Then
      /* Rollback all transactions */
      SQLExec("ROLLBACK");
   End-If;
   %Response.Write(&rootOutDoc.GenXmlString());
End-Function;

Comment