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

Extra backup on my local device

Browse Source
This commit is contained in:
tfoman
2015-10-10 17:14:24 +02:00
parent 46e6585495
commit b4e8089efc
7 changed files with 141 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
CobXmlSupport/GenCobCode.cs
View File

@ -62,7 +62,7 @@ namespace CobXmlSupport
////-------------------------
public readonly string NOMOVE = "NoMove";
private readonly bool MOVEFROM = true;
//private readonly bool MOVEFROM = true;
public string FldPref
{
@ -252,14 +252,17 @@ namespace CobXmlSupport
if (Cc.WorkDicOut.TryGetValue(rw.FieldName, out fieldOutCompl))
{
rw.MoveFromCode = fieldOutCompl;
//Debug.WriteLine("Existerarnde fält: " + rw.FieldName + " Kod : " + fieldOutCompl);
}
else
{
Cc.WorkDicOut.Add(rw.FieldName, "");
//Debug.WriteLine("Upplagt fält: " + rw.FieldName);
}
}
if (rw.Move_FromCode == null) { rw.MoveFromCode = " "; }
Cc.WorkDicOut[rw.FieldName] = rw.Move_FromCode;
FieldList.Add(rw.FieldName, objNr++);
}
// Prefill with possibly filled out code
@ -860,7 +863,7 @@ namespace CobXmlSupport
string IndVarText = " *--------------------------------------------------*\r\n * Extra indexvariabler för occurs-taggar --------*\r\n *--------------------------------------------------*";
string slask = "";
genCode = new ShowCode();
genCode.Parent = this;
genCode.FormParent = this;
genCode.Labeltext = "Creating Initialization Code";
savedFile SF = new savedFile();
@ -915,9 +918,9 @@ namespace CobXmlSupport
Dictionary<string, string> indexNames = new Dictionary<string, string>();
//string IndVarText = " *--------------------------------------------------*\r\n * Extra indexvariabler för occurs-taggar --------*\r\n *--------------------------------------------------*";
string slask = "";
//string slask = "";
genCode = new ShowCode();
genCode.Parent = this;
genCode.FormParent = this;
genCode.Labeltext = "Creating Initialization Code";
savedFile SF = new savedFile();
@ -986,7 +989,7 @@ namespace CobXmlSupport
genCode.CodeShower.Text += " PERFORM VARYING " + indTxt + " FROM 1 BY 1\r\n UNTIL " +
indTxt + "\r\n > " + tmpQfh.qualCobRow.occNum.ToString() + "\r\n"; // +tmpQfh.indexRedText;
if (tmpQfh.qualCobRow.isOccurs) slask = "";
//if (tmpQfh.qualCobRow.isOccurs) slask = "";
}
}
@ -1471,7 +1474,7 @@ namespace CobXmlSupport
string IndVarText = " *--------------------------------------------------*\r\n * Extra indexvariabler för occurs-taggar --------*\r\n *--------------------------------------------------*";
string slask = "";
genMoves = new ShowCode();
genMoves.Parent = this;
genMoves.FormParent = this;
genMoves.Labeltext = "Creating \"move to\" Code";
// CreateComment(genMoves.CodeShower, "Moves to", "Tommy Öman", "Fordonsdata Nordic AB");
@ -1521,7 +1524,7 @@ namespace CobXmlSupport
string aktIndList = "", slask = "", slask2 = "", struktMove = ""; ;
IndexState Is = new IndexState(indexNames, rowList);
genExtMoves = new ShowCode();
genExtMoves.Parent = this;
genExtMoves.FormParent = this;
genExtMoves.Labeltext = "Creating \"move to (with loop)\" Code";
savedFile SF = new savedFile();
@ -1766,7 +1769,7 @@ namespace CobXmlSupport
string aktIndList = "", slask = "", slask2 = "";
IndexState Is = new IndexState(indexNames, rowList, false);
fromMoves = new ShowCode();
fromMoves.Parent = this;
fromMoves.FormParent = this;
fromMoves.Labeltext = "Creating \"move from\" Code";
savedFile SF = new savedFile();
@ -1944,7 +1947,7 @@ namespace CobXmlSupport
string occParIndRows = "";
IndexState Is = new IndexState(indexNames, rowList, false);
fromToMoves = new ShowCode();
fromToMoves.Parent = this;
fromToMoves.FormParent = this;
fromToMoves.Labeltext = "Creating \"move From - To\" Code";
savedFile SF = new savedFile();
@ -2203,7 +2206,7 @@ namespace CobXmlSupport
//Create showing window
fromToMoves = new ShowCode();
fromToMoves.Parent = this;
fromToMoves.FormParent = this;
if (!justOut)
{
fromToMoves.Labeltext = "Created \"move From To\" Code";
@ -2304,14 +2307,14 @@ namespace CobXmlSupport
if (!justOut)
{
fromToMoves.CodeShower.Text += " TO " + tmpQfh.ToExpString();
if (tmpQfh.qualCobRow.MoveFromCode != null && tmpQfh.qualCobRow.Move_FromCode.Trim().Length > 0)
if (tmpQfh.qualCobRow.Move_FromCode != null && tmpQfh.qualCobRow.Move_FromCode.Trim().Length > 0)
{
fromToMoves.CodeShower.Text += tmpQfh.qualCobRow.MoveFromCode + "\r\n";
}
}
else
{
if (tmpQfh.qualCobRow.MoveFromCode != null && tmpQfh.qualCobRow.Move_FromCode.Trim().Length > 0)
if (tmpQfh.qualCobRow.Move_FromCode != null && tmpQfh.qualCobRow.Move_FromCode.Trim().Length > 0)
{
//if (tmpQfh.qualCobRow.MoveFromCode.IndexOf("<?>") > -1 || tmpQfh.qualCobRow.MoveFromCode.IndexOf("<NYPOST>") > -1)
//{
@ -2410,7 +2413,7 @@ namespace CobXmlSupport
//Create showing window
loadResWords();
fromToMoves = new ShowCode();
fromToMoves.Parent = this;
fromToMoves.FormParent = this;
fromToMoves.Labeltext = "Cobol \"reserved\" Words";
savedFile SF = new savedFile();
@ -2471,7 +2474,7 @@ namespace CobXmlSupport
{
//Create showing window
fromToMoves = new ShowCode();
fromToMoves.Parent = this;
fromToMoves.FormParent = this;
fromToMoves.BSynch = true;
fromToMoves.Labeltext = "Cobol \"CrossRef\" List";