From 38cab836a17801174c6609bc6846c7b68d3e61e1 Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 3 Sep 1996 17:14:57 +0000
Subject: [PATCH] Correzione errore 006095 e abilitazione campi in Godmode.

git-svn-id: svn://10.65.10.50/trunk@3498 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba2100f.uml  |  8 ++++----
 ba/baformed.cpp | 10 +++++++++-
 2 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/ba/ba2100f.uml b/ba/ba2100f.uml
index fe23ebeeb..9b3c1ed9c 100755
--- a/ba/ba2100f.uml
+++ b/ba/ba2100f.uml
@@ -219,7 +219,7 @@ STRING F_FILE1 80 60
 BEGIN
 PROMPT 2 13 "Archivio "
 HELP "Nome dell'archivio relativo al campo"
-//FLAGS "DB"
+GROUP 7
 FLAGS "B"
 END
 
@@ -227,8 +227,8 @@ STRING F_FIELD1 80 60
 BEGIN
 PROMPT 2 14 "Campo 1  "
 HELP "Nome del campo su file"
+GROUP 7
 FLAGS "B"
-//FLAGS "DB"
 END
 
 STRING F_FIELDREF1 20 16
@@ -256,7 +256,7 @@ STRING F_FILE2 60
 BEGIN
 PROMPT 2 16 "Archivio "
 HELP "Nome dell'archivio relativo al campo"
-//FLAGS "DB"
+GROUP 7
 FLAGS "B"
 END
 
@@ -264,7 +264,7 @@ STRING F_FIELD2 60
 BEGIN
 PROMPT 2 17 "Campo 2  "
 HELP "Nome del campo su file"
-//FLAGS "DB"
+GROUP 7
 FLAGS "B"
 END
 
diff --git a/ba/baformed.cpp b/ba/baformed.cpp
index 34dd1125e..62191c5dc 100755
--- a/ba/baformed.cpp
+++ b/ba/baformed.cpp
@@ -280,7 +280,15 @@ bool TForm_editor::menu(MENU_TAG tag)
     break;
   }
   
-  if (!quit) edit(sec, pt);
+  if (!quit)
+  {
+    TString status;
+    status << "Profilo: " << _form->name();
+    status << " codice: " << _form->code();
+    xvt_statbar_set(status);
+    edit(sec, pt);
+    xvt_statbar_set(" ");
+  }
   return TRUE;
 }