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

Handle STRING command in user code

Browse Source
This commit is contained in:
tfoman
2015-01-15 14:18:59 +01:00
parent ac8375e78c
commit 302b44948e
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
CobXmlSupport/GenCobCode.cs
View File

@ -1219,7 +1219,7 @@ namespace CobXmlSupport
//------------- move from --------------
if (cr.MoveCode.Length > 1 && cr.MoveCode != " ")
{
if (cr.MoveCode.ToUpper().Contains("MOVE")) {}
if (cr.MoveCode.ToUpper().Contains("MOVE") || (cr.MoveCode.ToUpper().Contains("STRING") && cr.MoveCode.ToUpper().Contains("INTO"))) { }
else genExtMoves.CodeShower.Text += "MOVE ";
genExtMoves.CodeShower.Text += cr.MoveCode;
}
@ -1237,7 +1237,10 @@ namespace CobXmlSupport
genExtMoves.CodeShower.Text += "\r\n " + adjustIf(adj) + " *> #" + cr.FieldName + "#";
//------------- move to ---------------
genExtMoves.CodeShower.Text += "\r\n " + adjustIf(adj) + "TO " + cr.FieldName;
genExtMoves.CodeShower.Text += "\r\n " + adjustIf(adj);
if (cr.MoveCode.ToUpper().Contains("STRING") && cr.MoveCode.ToUpper().Contains("INTO")) {}
else genExtMoves.CodeShower.Text += "TO ";
genExtMoves.CodeShower.Text += "\r\n " + adjustIf(adj) + cr.FieldName;
genExtMoves.CodeShower.Text = checkForOccurs(indexNames, cr, genExtMoves.CodeShower.Text, ref occParRows, ref slask, false, adj);
while (crTmp.LevelParent != null)
{
@ -1249,6 +1252,10 @@ namespace CobXmlSupport
{
genExtMoves.CodeShower.Text += " (" + occParRows + " )";
}
if (cr.MoveCode.ToUpper().Contains("STRING") && cr.MoveCode.ToUpper().Contains("INTO")) {
genExtMoves.CodeShower.Text += "\r\n " + adjustIf(adj) + "END-STRING " ;
}
if (chkMvToDisp.Checked)
{
occParRows = "";