From 105fdd0769f6caaea67faf0f080e300c6dce9ea6 Mon Sep 17 00:00:00 2001 From: tfoman Date: Wed, 29 Jul 2015 20:55:07 +0200 Subject: [PATCH] Completed the correcting of occursvariable in transfer code --- CobXmlSupport/GenCobCode.cs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/CobXmlSupport/GenCobCode.cs b/CobXmlSupport/GenCobCode.cs index ba7605a..f8fae28 100644 --- a/CobXmlSupport/GenCobCode.cs +++ b/CobXmlSupport/GenCobCode.cs @@ -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 = 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; } }