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

Possibility to avoid event-procedures

Browse Source
This commit is contained in:
tfoman
2015-11-11 01:27:31 +01:00
parent d115ed2307
commit 342f19daef
2 changed files with 27 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
CobXmlSupport/GenCobCode.cs
View File

@ -109,6 +109,7 @@ namespace CobXmlSupport
private void runXMLgen()
{
chkEvents.Checked = false;
if (!formLoading)
{
btnGenICode.Enabled = false;
@ -787,6 +788,7 @@ namespace CobXmlSupport
chkWrap.Checked = true;
chkNewArea.Checked = false;
//chkNewArea.Checked = true;
chkEvents.Checked = false;
ClientSizeMinWidth = this.ClientSize.Width;
@ -2015,8 +2017,11 @@ namespace CobXmlSupport
string chosenKey = testIndexes.FirstOrDefault(x => x.Value == xtIndex).Key; // indexes = <FieldName , FieldIndex> search FieldName from present FieldIndex
locTmpQfh = qldList.First(x => x.qualCobRow.FieldName == chosenKey); // Find QualifiedHelp-object for right field
fromToMoves.CodeShower.Text += " PERFORM " + createAftReferenceSections(locTmpQfh.qualCobRow.TagName, "LAST-in-",
xtIndex, ref SectionNames) + "\r\n";
if (chkEvents.Checked)
{
fromToMoves.CodeShower.Text += " PERFORM " + createAftReferenceSections(locTmpQfh.qualCobRow.TagName, "LAST-in-",
xtIndex, ref SectionNames) + "\r\n";
}
fromToMoves.CodeShower.Text += " END-PERFORM" + "\r\n";
}
@ -2042,8 +2047,12 @@ namespace CobXmlSupport
//string tmpCheckVar = "";
indexStack.Push(indTxt);
fromToMoves.CodeShower.Text += " PERFORM " + createAftReferenceSections(locTmpQfh.qualCobRow.TagName, "FIRST-in-",
indTxt, ref SectionNames) + "\r\n";
if (chkEvents.Checked)
{
fromToMoves.CodeShower.Text += " PERFORM " + createAftReferenceSections(locTmpQfh.qualCobRow.TagName, "FIRST-in-",
indTxt, ref SectionNames) + "\r\n";
}
}
}