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

Defined occurs when exists, init right index when looping in xml

Browse Source
This commit is contained in:
tfoman
2015-07-29 15:18:56 +02:00
parent 8e65a50c3c
commit f0449c6874
2 changed files with 18 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
CobXmlSupport/GenCobCode.cs
View File

@ -752,6 +752,7 @@ namespace CobXmlSupport
chkDisplays.Checked = true;
chkWrap.Checked = true;
chkNewArea.Checked = false;
//chkNewArea.Checked = true;
ClientSizeMinWidth = this.ClientSize.Width;
@ -879,7 +880,7 @@ namespace CobXmlSupport
private void btnGenICodeNew_Click(object sender, EventArgs e)
{
bool justOut = true;
bool loopTyp = false;
//bool loopTyp = false;
Dictionary<string, string> indexNames = new Dictionary<string, string>();
string IndVarText = " *--------------------------------------------------*\r\n * Extra indexvariabler för occurs-taggar --------*\r\n *--------------------------------------------------*";
@ -1919,7 +1920,7 @@ namespace CobXmlSupport
SF.idConnect = "0A975654-75C6-4A8C-8534-AA16F46BC740";
SF.usageName = S.ettingActualFile.Substring(0, S.ettingActualFile.LastIndexOf(".")) + "_Transfer";
SF.fNameSaved = S.ettingActualFile.Substring(0, S.ettingActualFile.LastIndexOf(".")) + "_Transfer.cbl";
fromMoves.SavedFile = SF;
fromToMoves.SavedFile = SF;
bool adj = false;
bool valueSwitch = false;
@ -2229,9 +2230,11 @@ namespace CobXmlSupport
if (!justOut)
{
//Before perform varying, move the count-value from old structure to new
fromToMoves.CodeShower.Text += " MOVE " + tmpQfh.qualCobRow.CountIn + "\r\n" + tmpQfh.indexRedText;
string chosenKey = testIndexes.FirstOrDefault(x => x.Value == indTxt).Key; // indexes = <FieldName , FieldIndex> search FieldName from present FieldIndex
qualifieldhlp locTmpQfh = qldList.First(x => x.qualCobRow.FieldName == chosenKey); // Find QualifiedHelp-object for right field
fromToMoves.CodeShower.Text += " MOVE " + locTmpQfh.qualCobRow.CountIn + "\r\n" + locTmpQfh.indexRedText;
fromToMoves.CodeShower.Text += " TO " +
tmpQfh.qualCobRow.CountIn.ToString().Replace(S.ettingPrefix, S.ettingExpPrefix) + "\r\n" + tmpQfh.indexRedText;
locTmpQfh.qualCobRow.CountIn.ToString().Replace(S.ettingPrefix, S.ettingExpPrefix) + "\r\n" + locTmpQfh.indexRedText;
}
//Perform
fromToMoves.CodeShower.Text += " PERFORM VARYING " + indTxt + " FROM 1 BY 1\r\n UNTIL " +
@ -2346,7 +2349,7 @@ namespace CobXmlSupport
fromToMoves.Show();
//createXMLMoveCode();
func_exit: ;
//func_exit: ;
}
private void loadResWords()