MS

app/DD-Record-Organizer/frmSAP_FuBa.vb

@@ -28,7 +28,7 @@ Public Class frmSAP_FuBa
     End Sub
     Sub Refresh_Fubas()
         Try
-            Me.TBPMO_SAP_FUBATableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBPMO_SAP_FUBATableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
             Me.TBPMO_SAP_FUBATableAdapter.Fill(Me.DD_ECMAdmin.TBPMO_SAP_FUBA)
             If MethodTextBox.Text <> "" Then
                 If MethodTextBox.Text = "TABLE" Then
@@ -39,7 +39,7 @@ Public Class frmSAP_FuBa
             End If
             If rbTable.Checked Then
                 MethodTextBox.Text = "TABLE"
-                lblMethodname.Text = "Table Name"
+                lblMethodname.Text = "SAP Table-/View-Name"
             Else
                 lblMethodname.Text = "FuBa Name"
                 MethodTextBox.Text = "FUBA"
@@ -175,7 +175,8 @@ Public Class frmSAP_FuBa
 
             Dim alter = String.Format("ALTER TABLE {0} ADD GUID INTEGER NOT NULL IDENTITY(1,1)", oTablename)
             MYDB_ECM.ExecuteNonQuery(alter)
-
+            alter = String.Format("ALTER TABLE {0} ADD ADDED_WHEN DATETIME NOT NULL DEFAULT GETDATE()", oTablename)
+            MYDB_ECM.ExecuteNonQuery(alter)
             Try
                 'Dim OwnerCS As String
                 'OwnerCS = ClassDatabase.GetConnectionString(1)