diff --git a/CobXmlSupport/GenCobCode.cs b/CobXmlSupport/GenCobCode.cs index b35a02a..d463264 100644 --- a/CobXmlSupport/GenCobCode.cs +++ b/CobXmlSupport/GenCobCode.cs @@ -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; diff --git a/CobXmlSupport/SaveRegCopyFile.cs b/CobXmlSupport/SaveRegCopyFile.cs index 5b3a988..1403bd9 100644 --- a/CobXmlSupport/SaveRegCopyFile.cs +++ b/CobXmlSupport/SaveRegCopyFile.cs @@ -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); ;