Report bearbeiten
Um den Inhalt des Reports zu bearbeiten, klicken Sie auf "Web Request bearbeiten".
Es wird das untenstehende Fenster geöffnet, in dem Sie Ihre Definitionen einfügen können.
Beispiel:
Lb_Test = true;
//dbg();
//brk();
#define EventAttributeID 712
/*******************************************************/
/* Default Answer */
/*******************************************************/
WebRequestAnswer = GetUtf8BlobFromString("SMT School Professional:\n\rWebAddress Request Error!");
WebRequestAnswer = GetWebResponsePacket([""],
["Server","Content-Type","Content-Length"],["SMT School Professional","text/JSON; charset=UTF-8",GetSize(WebRequestAnswer)],
"HTTP/1.1",400,GetHttpCode(400),WebRequestAnswer);
Li_AddressID = 0;
Lo_Data = GetWebRequestData(WebRequest);
Li_Error = 0;
Li_AnswerCode = 200;
Ls_Message = "OK";
Lo_Answer := {"Error": Li_Error, "ErrorText" : Ls_Message};
/*******************************************************/
if ((Li_Error != 0) || (Li_AnswerCode != 200))
{
Ls_Message = GetTraceText();
Li_Pos = StrFind(Ls_Message,"Executing Program...");
if (Li_Pos >= 0)
{
Ls_Message = StrMid(Ls_Message,Li_Pos+21);
Ls_Message = StrTrim(Ls_Message,"\n");
} /* if */
} /* if */
Lo_Answer.Error = Li_Error;
Lo_Answer.ErrorText = Ls_Message;
WebRequestAnswer = GetUtf8BlobFromString(GetJSONFromObject(Lo_Answer));
WebRequestAnswer = GetWebResponsePacket([""],
["Server","Content-Type","Content-Length"],["SMT School Professional","text/JSON; charset=UTF-8",GetSize(WebRequestAnswer)],
"HTTP/1.1",Li_AnswerCode,GetHttpCode(Li_AnswerCode),WebRequestAnswer);
Skip = 0;
Result = 0;
|