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

Completed the correcting of occursvariable in transfer code

Browse Source
This commit is contained in:
tfoman
2015-07-29 20:55:07 +02:00
parent f0449c6874
commit 105fdd0769
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
CobXmlSupport/GenCobCode.cs
View File

@ -2166,7 +2166,7 @@ namespace CobXmlSupport
private void createXMLMoveCode(savedFile SF, bool justOut = false)
{
bool loopTyp = false;
qualifieldhlp locTmpQfh = null;
//Create showing window
fromToMoves = new ShowCode();
fromToMoves.Parent = this;
@ -2231,14 +2231,14 @@ namespace CobXmlSupport
{
//Before perform varying, move the count-value from old structure to new
string chosenKey = testIndexes.FirstOrDefault(x => x.Value == indTxt).Key; // indexes = <FieldName , FieldIndex> search FieldName from present FieldIndex
qualifieldhlp locTmpQfh = qldList.First(x => x.qualCobRow.FieldName == chosenKey); // Find QualifiedHelp-object for right field
locTmpQfh = qldList.First(x => x.qualCobRow.FieldName == chosenKey); // Find QualifiedHelp-object for right field
fromToMoves.CodeShower.Text += " MOVE " + locTmpQfh.qualCobRow.CountIn + "\r\n" + locTmpQfh.indexRedText;
fromToMoves.CodeShower.Text += " TO " +
locTmpQfh.qualCobRow.CountIn.ToString().Replace(S.ettingPrefix, S.ettingExpPrefix) + "\r\n" + locTmpQfh.indexRedText;
}
//Perform
fromToMoves.CodeShower.Text += " PERFORM VARYING " + indTxt + " FROM 1 BY 1\r\n UNTIL " +
indTxt + "\r\n > " + tmpQfh.qualCobRow.CountIn.ToString() + "\r\n" + tmpQfh.indexRedText;
indTxt + "\r\n > " + locTmpQfh.qualCobRow.CountIn.ToString() + "\r\n" + locTmpQfh.indexRedText;
}
}