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

Completed code generation new method

Browse Source
This commit is contained in:
tfoman
2014-12-09 00:52:02 +01:00
parent 1a78dcc16d
commit e0bcb9a91a
3 changed files with 88 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
CobXmlSupport/GenCobCode.cs
View File

@ -1682,10 +1682,12 @@ namespace CobXmlSupport
private void btnTestThings_Click(object sender, EventArgs e)
{
bool adj = true;
fromToMoves = new ShowCode();
fromToMoves.Parent = this;
fromToMoves.Labeltext = "Testing to Creat \"move From \" Code";
Dictionary<string, string> testIndexes = new Dictionary<string, string>();
IndexState lIs = new IndexState(testIndexes,rowList);
//if (qldList == null)
@ -1705,28 +1707,43 @@ namespace CobXmlSupport
indSt.handleStatus(tmpQfh.indexStrings);
for (int i = 0; i < indSt.Returns; i++)
{
fromToMoves.CodeShower.Text += "END-PERFORM" + "\r\n";
fromToMoves.CodeShower.Text += " END-PERFORM" + "\r\n";
}
if (indSt.NewInds != null)
{
foreach (string indTxt in indSt.NewInds)
{
fromToMoves.CodeShower.Text += "PERFORM VARYING " + indTxt + " FROM 1 BY 1 UNTIL ??? " + "\r\n";
fromToMoves.CodeShower.Text += " MOVE " + tmpQfh.qualCobRow.CountIn + "\r\n" + tmpQfh.indexRedText;
fromToMoves.CodeShower.Text += " TO " + tmpQfh.qualCobRow.CountIn.ToString().Replace(S.ettingPrefix, S.ettingExpPrefix) + "\r\n " + tmpQfh.indexRedText;
fromToMoves.CodeShower.Text += " PERFORM VARYING " + indTxt + " FROM 1 BY 1\r\n UNTIL " +
indTxt + " > " + tmpQfh.qualCobRow.CountIn.ToString() + "\r\n" + tmpQfh.indexRedText;
}
}
//obs under development
if (tmpQfh.qualCobRow.FieldDef != "")
{
if (tmpQfh.qualCobRow.FieldName.ToUpper().Contains("_VALUE")) { }
else fromToMoves.CodeShower.Text += " IF " + tmpQfh.qualCobRow.CountIn.ToString() + "\r\n" + tmpQfh.indexText + " > 0 \r\n";
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";
fromToMoves.CodeShower.Text += " MOVE " + tmpQfh.ToString();
fromToMoves.CodeShower.Text += " TO " + tmpQfh.ToExpString();
if (tmpQfh.qualCobRow.FieldName.ToUpper().Contains("_VALUE")) { }
else
{
fromToMoves.CodeShower.Text += " MOVE " + tmpQfh.qualCobRow.CountIn + "\r\n" + tmpQfh.indexText;
fromToMoves.CodeShower.Text += " TO " + tmpQfh.qualCobRow.CountIn.ToString().Replace(S.ettingPrefix, S.ettingExpPrefix) + "\r\n" + tmpQfh.indexText;
fromToMoves.CodeShower.Text += " ELSE\r\n";
fromToMoves.CodeShower.Text += " MOVE 0 TO " + tmpQfh.qualCobRow.CountIn.ToString().Replace(S.ettingPrefix, S.ettingExpPrefix) + "\r\n" + tmpQfh.indexText;
fromToMoves.CodeShower.Text += " END-IF\r\n";
}
}
}
indSt.handleStatus(null);
for (int i = 0; i < indSt.Returns; i++)
{
fromToMoves.CodeShower.Text += "END-PERFORM" + "\r\n";
fromToMoves.CodeShower.Text += " END-PERFORM" + "\r\n";
}