Skip to content
Snippets Groups Projects
Commit 08b19a42 authored by Efstathios Trantalis's avatar Efstathios Trantalis
Browse files

Comment XML and JSON editbox

parent b02e8395
No related branches found
No related tags found
No related merge requests found
Pipeline #1184 passed
......@@ -28,7 +28,7 @@ SET sResponseBody:""
SET mResponseHeaders:(map())
SET nReponseCode:0
CC "AdoScript" EDITBOX text:(sModelXML)
#CC "AdoScript" EDITBOX text:(sModelXML)
CC "AdoScript" LISTBOX entries:"Start & End Event Exist;Verify incoming-outgoing sequence flows;Verify all objects are inside a pool"
toksep:";"
......@@ -68,7 +68,7 @@ IF (endbutton = "ok") {
}
CC "AdoScript" EDITBOX text:(STR nReponseCode + "\n\n" + STR mResponseHeaders + "\n\n" + sResponseBody)
#CC "AdoScript" EDITBOX text:(STR nReponseCode + "\n\n" + STR mResponseHeaders + "\n\n" + sResponseBody)
#Webservice response in json format
SETL responseJson:(fromJson(sResponseBody))
......@@ -215,29 +215,29 @@ IF(selectedRule = "Verify incoming-outgoing sequence flows") {
}
IF(selectedRule = "Verify all objects are inside a pool") {
SETL objectInsidePoolsDiagram: (diagram["objectsInsidePools"])
IF( objectInsidePoolsDiagram = "correct") {
CC "AdoScript" INFOBOX "The verification is completed no errors have been found."
}
ELSE {
FOR i from:0 to:(lenghtInstances-1) {
SETL objectInsidePoolsCheck: (instances[i]["instanceRuleEvaluation"]["isInsidePool"])
IF (objectInsidePoolsCheck ="not correct") {
CC "Modeling" DYE (VAL instances[i]["id"]) error-mark
CC "AdoScript" ERRORBOX (instances[i]["name"] + ": All objects must be inside a pool!\n\nShall the verification be continued?") title:"Syntax Error Message" yes-no
}
IF(endbutton = "no") {
BREAK
}
IF(i = (lenghtInstances-1)) {
CC "AdoScript" INFOBOX "The verification is completed."
}
}
}
}
#IF(selectedRule = "Verify all objects are inside a pool") {
# SETL objectInsidePoolsDiagram: (diagram["objectsInsidePools"])
# IF( objectInsidePoolsDiagram = "correct") {
# CC "AdoScript" INFOBOX "The verification is completed no errors have been found."
# }
# ELSE {
# FOR i from:0 to:(lenghtInstances-1) {
# SETL objectInsidePoolsCheck: (instances[i]["instanceRuleEvaluation"]["isInsidePool"])
# IF (objectInsidePoolsCheck ="not correct") {
# CC "Modeling" DYE (VAL instances[i]["id"]) error-mark
# CC "AdoScript" ERRORBOX (instances[i]["name"] + ": All objects must be inside a pool!\n\nShall the verification be continued?") title:"Syntax Error Message" yes-no
# }
# IF(endbutton = "no") {
# BREAK
# }
# IF(i = (lenghtInstances-1)) {
# CC "AdoScript" INFOBOX "The verification is completed."
# }
# }
# }
#}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment