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

Solution on perform -> end-perform problem.

Browse Source
This commit is contained in:
tfoman
2014-12-08 13:58:40 +01:00
parent 9b4f39834f
commit 1a78dcc16d
3 changed files with 66 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
CobXmlSupport/GenCobCode.cs
View File

@ -1716,9 +1716,20 @@ namespace CobXmlSupport
}
//obs under development
fromToMoves.CodeShower.Text += "IF "+ tmpQfh.qualCobRow.CountIn.ToString()+ " > 0 \r\n";
fromToMoves.CodeShower.Text += "MOVE " + tmpQfh.ToString();
fromToMoves.CodeShower.Text += "TO " + tmpQfh.ToExpString();
fromToMoves.CodeShower.Text += "ELSE \r\n";
fromToMoves.CodeShower.Text += "MOVE 0 TO " + tmpQfh.qualCobRow.CountIn.ToString().Replace(S.ettingPrefix, S.ettingExpPrefix) + "\r\n";
}
indSt.handleStatus(null);
for (int i = 0; i < indSt.Returns; i++)
{
fromToMoves.CodeShower.Text += "END-PERFORM" + "\r\n";
}
fromToMoves.Show();
}