tfoman/CobXmlSupport
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Better procnames (events)

Browse Source
This commit is contained in:
tfoman
2015-09-29 07:42:25 +02:00
parent a372fc306a
commit 46e6585495
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
CobXmlSupport/GenCobCode.cs
View File

@ -2199,6 +2199,8 @@ namespace CobXmlSupport
bool loopTyp = false; bool loopTyp = false;
string SectionNames="",BoolVars=""; string SectionNames="",BoolVars="";
qualifieldhlp locTmpQfh = null; qualifieldhlp locTmpQfh = null;
Stack<string> indexStack = new Stack<string>();
//Create showing window //Create showing window
fromToMoves = new ShowCode(); fromToMoves = new ShowCode();
fromToMoves.Parent = this; fromToMoves.Parent = this;
@ -2251,6 +2253,12 @@ namespace CobXmlSupport
//If indexes get out of scope there will come an END-PERFORM for each //If indexes get out of scope there will come an END-PERFORM for each
for (int i = 0; i < indSt.Returns; i++) for (int i = 0; i < indSt.Returns; i++)
{ {
string xtIndex = indexStack.Pop();
string chosenKey = testIndexes.FirstOrDefault(x => x.Value == xtIndex ).Key; // indexes = <FieldName , FieldIndex> search FieldName from present FieldIndex
locTmpQfh = qldList.First(x => x.qualCobRow.FieldName == chosenKey); // Find QualifiedHelp-object for right field
fromToMoves.CodeShower.Text += " PERFORM " + createAftReferenceSections(locTmpQfh.qualCobRow.TagName, "LAST-in-",
xtIndex, ref SectionNames) + "\r\n";
fromToMoves.CodeShower.Text += " END-PERFORM" + "\r\n"; fromToMoves.CodeShower.Text += " END-PERFORM" + "\r\n";
} }
@ -2274,8 +2282,9 @@ namespace CobXmlSupport
fromToMoves.CodeShower.Text += " PERFORM VARYING " + indTxt + " FROM 1 BY 1\r\n UNTIL " + fromToMoves.CodeShower.Text += " PERFORM VARYING " + indTxt + " FROM 1 BY 1\r\n UNTIL " +
indTxt + "\r\n > " + locTmpQfh.qualCobRow.CountIn.ToString() + "\r\n" + locTmpQfh.indexRedText; indTxt + "\r\n > " + locTmpQfh.qualCobRow.CountIn.ToString() + "\r\n" + locTmpQfh.indexRedText;
string tmpCheckVar = ""; //string tmpCheckVar = "";
fromToMoves.CodeShower.Text += " PERFORM " + createAftReferenceSections(locTmpQfh.qualCobRow.TagName, "NXTO-", indexStack.Push(indTxt);
fromToMoves.CodeShower.Text += " PERFORM " + createAftReferenceSections(locTmpQfh.qualCobRow.TagName, "FIRST-in-",
indTxt, ref SectionNames) + "\r\n"; indTxt, ref SectionNames) + "\r\n";
} }
} }
@ -2369,8 +2378,8 @@ namespace CobXmlSupport
private string createAftReferenceSections(string tagName, string procPrefix, string indexVar, ref string wrkSectStr) private string createAftReferenceSections(string tagName, string procPrefix, string indexVar, ref string wrkSectStr)
{ {
string tmpProcName = procPrefix + tagName.Replace("\"", "").Replace(":", "");; string tmpProcName = procPrefix + tagName.Replace("\"", "").Replace(":", "")+"-x";
if (!wrkSectStr.Contains(tmpProcName)) if (!wrkSectStr.Contains(tmpProcName+"-x"))
{ {
wrkSectStr += "\r\n *>------------------- HANDLE SECTION --------------*" + tmpProcName; wrkSectStr += "\r\n *>------------------- HANDLE SECTION --------------*" + tmpProcName;
wrkSectStr += "\r\n * Den här sektionen används för att positionera "; wrkSectStr += "\r\n * Den här sektionen används för att positionera ";