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

Final correcting of indexing

Browse Source
This commit is contained in:
tfoman
2014-12-09 21:17:02 +01:00
parent cfa55dd94e
commit 4e17b9cf8d
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
CobXmlSupport/GenCobCode.cs
View File

@ -1720,11 +1720,11 @@ namespace CobXmlSupport
}
}
//obs under development
if (tmpQfh.qualCobRow.FieldDef != "")
{
//if (tmpQfh.qualCobRow.FieldDef != "")
//{
if (tmpQfh.qualCobRow.FieldName.ToUpper().Contains("_VALUE")) { }
else {
loopTyp = tmpQfh.qualCobRow.isOccurs && tmpQfh.qualCobRow.FieldDef != "";
loopTyp = tmpQfh.qualCobRow.isOccurs ;//&& tmpQfh.qualCobRow.FieldDef == "";
fromToMoves.CodeShower.Text += " IF " + tmpQfh.qualCobRow.CountIn.ToString() + "\r\n" + (string)(loopTyp ? tmpQfh.indexRedText : tmpQfh.indexText) + " > 0 \r\n";
}
fromToMoves.CodeShower.Text += " MOVE " + tmpQfh.ToString();
@ -1739,7 +1739,7 @@ namespace CobXmlSupport
fromToMoves.CodeShower.Text += " MOVE 0 TO " + tmpQfh.qualCobRow.CountIn.ToString().Replace(S.ettingPrefix, S.ettingExpPrefix) + "\r\n" + (string)(loopTyp ? tmpQfh.indexRedText : tmpQfh.indexText);
fromToMoves.CodeShower.Text += " END-IF\r\n";
}
}
//}
}
indSt.handleStatus(null);