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

Ending dot interfered with numeric decimal

Browse Source
This commit is contained in:
tfoman
2015-01-12 16:51:37 +01:00
parent f493ccd9fa
commit 947f3cad8c
2 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
CobXmlSupport/GenCobCode.cs
View File

@ -355,7 +355,7 @@ namespace CobXmlSupport
}
return strCobCode;
}
//xxxxxxxxxxxxxxxhär sker detxxxxxxxxxxxxxxx
private string valueChecker(string strLDisp, string strLStdValue, string strCobCode)
{
if (chkValues.Checked)
@ -523,6 +523,7 @@ namespace CobXmlSupport
outText.Text += "\r\n" + wrkStr;
}
//xxxxxxxxxxxxxxxxx här är jag xxxxxxxxxxx
/// <summary>
/// Creates a CobRow object from a cobol declaration text
@ -671,7 +672,7 @@ namespace CobXmlSupport
btnTestThings.Visible = S.ettingSpecials;
formLoading = false;
cmbLastFile.Text = cmbLastFile.Items[0].ToString();
// cmbLastFile.Text = cmbLastFile.Items[0].ToString();
}
private void btnClose_Click(object sender, EventArgs e)
@ -709,7 +710,7 @@ namespace CobXmlSupport
}
if (occParRows.Length > 0)
{
genCode.CodeShower.Text += occParRows + " )\r\n";
genCode.CodeShower.Text += " (" + occParRows + " )\r\n";
}
}
}
@ -1111,7 +1112,7 @@ namespace CobXmlSupport
}
if (occParRows.Length > 0)
{
genMoves.CodeShower.Text += occParRows + " )\r\n";
genMoves.CodeShower.Text += " (" + occParRows + " )\r\n";
}
}
}
@ -1175,13 +1176,13 @@ namespace CobXmlSupport
genExtMoves.CodeShower.Text += "\r\n MOVE 0 TO " + cr.CountIn;
if (occParRows.Length > 0)
{
genExtMoves.CodeShower.Text += occParRows + " )";
genExtMoves.CodeShower.Text += " (" + occParRows + " )";
}
genExtMoves.CodeShower.Text += "\r\n IF " + cr.CountIn;
if (occParRows.Length > 0)
{
genExtMoves.CodeShower.Text += occParRows + " )";
genExtMoves.CodeShower.Text += " (" + occParRows + " )";
}
genExtMoves.CodeShower.Text += "\r\n > 0";