Changeset 240

Timestamp:

01/11/12 18:37:14 (4 months ago)

Author:

alfonsojunior

Message:

Alteracao de Alfonso

Files:

• trunk/ViewSource/Part.cs (modified) (1 diff)

trunk/ViewSource/Part.cs

@@ -105 +105 @@
                         break;
                     case 12:
-                        if (this.KBObject.Type == ObjClass.SDT || this.KBObject.Type == ObjClass.Procedure)
+                        //MessageBox.Show("Objeto: " + this.KBObject.Name);
+                        Artech.Common.Properties.PropertyManager.PropertySpecDescriptor prpSpDesc = this.KBObject.GetPropertyDescriptorByDisplayName("Main program");
+                        //MessageBox.Show("Prop: " + prpSpDesc.Value.ToString());
+                        if (this.KBObject.Type == ObjClass.SDT || (this.KBObject.Type == ObjClass.Procedure && prpSpDesc.Value.ToString().Equals("False")))
                             filename = filename + this.KBObject.Name + ".java";
                         else
-                            filename = filename + this.KBObject.Name + "_impl.java";
+                            if (this.KBObject.Type == ObjClass.Procedure && prpSpDesc.Value.ToString().Equals("True"))
+                                filename = filename + "a" + this.KBObject.Name + "_impl.java";
+                            else
+                                filename = filename + this.KBObject.Name + "_impl.java";
                         break;
                     case 15: