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