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

Some events on head-window , save-procedure

Browse Source
This commit is contained in:
tfoman
2015-07-19 23:21:20 +02:00
parent 59efd6f425
commit 89fedaec3f
2 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
CobXmlSupport/GenCobCode.cs
View File

@ -1385,6 +1385,13 @@ namespace CobXmlSupport
genMoves.Parent = this;
genMoves.Labeltext = "Creating \"move to\" Code";
// CreateComment(genMoves.CodeShower, "Moves to", "Tommy Öman", "Fordonsdata Nordic AB");
savedFile SF = new savedFile();
SF.idConnect = "6EFF8B31-7F88-4A81-B94E-41D54A3D3197";
SF.usageName = S.ettingActualFile.Substring(0, S.ettingActualFile.LastIndexOf(".")) + "_Load";
SF.fNameSaved = "Load_" + S.ettingActualFile.Substring(0, S.ettingActualFile.LastIndexOf(".")) + ".cbl";
genMoves.SavedFile = SF;
foreach (CobRow cr in rowList)
{
string occParRows = "";
@ -1430,7 +1437,8 @@ namespace CobXmlSupport
savedFile SF = new savedFile();
SF.idConnect = "6EFF8B31-7F88-4A81-B94E-41D54A3D3197";
SF.usageName = "Usage001.cpy";
SF.usageName = S.ettingActualFile.Substring(0, S.ettingActualFile.LastIndexOf(".")) + "_Load";
SF.fNameSaved = "Load_" + S.ettingActualFile.Substring(0, S.ettingActualFile.LastIndexOf(".")) + ".cbl";
genExtMoves.SavedFile = SF;
bool adj = false;

3
CobXmlSupport/SaveRegCopyFile.cs
View File

@ -23,7 +23,8 @@ namespace CobXmlSupport
private void btnChooseFnameAndPlace_Click(object sender, EventArgs e)
{
saveFileDialog.Title = "Välj plats för den aktuella filen !";
saveFileDialog.Filter = "Copy files (*.cpy)|*.cpy|Text Files (*.txt)|*.txt|All files (*.*)|*.*";
saveFileDialog.Filter = "Copy files (*.cpy)|*.cpy|Cobol code (*.cbl)|*.cbl|Text Files (*.txt)|*.txt|All files (*.*)|*.*";
saveFileDialog.FileName = SavedFile.fNameSaved;
if (saveFileDialog.ShowDialog() == DialogResult.OK)
{
SavedFile.fNameSaved = txtFileName.Text = saveFileDialog.FileName.Substring(saveFileDialog.FileName.LastIndexOf("\\") + 1); ;