Karl,
I pasted the entire script editor below.  This generates a unique value into the "UD01.Key1" field
Dustin Biniek
'//**************************************************
'// Custom VB.NET code for UD01Form
'// Created: 2/24/2010 4:44:25 PM
'//**************************************************
Imports System
Imports System.Data
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.ComponentModel
Imports Microsoft.VisualBasic
Imports Epicor.Mfg.UI
Imports Epicor.Mfg.UI.FrameWork
Imports Epicor.Mfg.UI.ExtendedProps
Imports Epicor.Mfg.UI.FormFunctions
Imports Epicor.Mfg.UI.Customization
Imports Epicor.Mfg.UI.Adapters
Imports Epicor.Mfg.UI.Searches
Imports Epicor.Mfg.BO
Module Script
 '// ** Wizard Insert Location - Do Not Remove 'Begin/End Wizard Added Module Level Variables' Comments! **
 '// Begin Wizard Added Module Level Variables **
 Private WithEvents edvUD01 As EpiDataView
 '// End Wizard Added Module Level Variables **
 '// Add Custom Module Level Variables Here **
 Sub InitializeCustomCode()
  '// ** Wizard Insert Location - Do not delete 'Begin/End Wizard Added Variable Intialization' lines **
  '// Begin Wizard Added Variable Intialization
  edvUD01 = CType(oTrans.EpiDataViews("UD01"), EpiDataView)
  '// End Wizard Added Variable Intialization
  '// Begin Custom Method Calls
  '// End Custom Method Calls
 End Sub
 Sub DestroyCustomCode()
  '// ** Wizard Insert Location - Do not delete 'Begin/End Wizard Added Object Disposal' lines **
  '// Begin Wizard Added Object Disposal
  edvUD01 = Nothing
  '// End Wizard Added Object Disposal
  '// Begin Custom Code Disposal
  '// End Custom Code Disposal
 End Sub
 Private Sub edvUD01_EpiViewNotification(view As EpiDataView, args As EpiNotifyArgs) Handles edvUD01.EpiViewNotification
  '// ** Argument Properties and Uses **
  '// view.dataView(args.Row)("[FieldName]")
  '// args.Row, args.Column, args.Sender, args.NotifyType
  '// NotifyType.Initialize, NotifyType.AddRow, NotifyType.DeleteRow, NotifyType.InitLastView, NotifyType.InitAndResetTreeNodes
    If (args.NotifyType = EpiTransaction.NotifyType.AddRow) Then
           If (args.Row > -1) Then
               Dim compAdapt As CompanyAdapter = New CompanyAdapter(UD01Form)
               compAdapt.BOConnect()
               Dim company As String = UD01Form.Session.CompanyID
               Dim ret As Boolean = compAdapt.GetByID(company)
              Â
               Dim newCompID As Integer = compAdapt.CompanyData.Tables("Company").Rows(0)("Number01")
             Â
               view.dataView(args.Row)("Key1") = newCompID.ToString()
               view.Notify(New EpiNotifyArgs(UD01Form, view.Row, view.Column))
              Â
               newCompID = newCompID + 1
              Â
               compAdapt.CompanyData.Tables("Company").Rows(0).BeginEdit()
               compAdapt.CompanyData.Tables("Company").Rows(0)("Number01") = newCompID
               compAdapt.CompanyData.Tables("Company").Rows(0).EndEdit()
              Â
               compAdapt.Update()
              Â
               compAdapt.Dispose()
  Â
  Â
           End If
       End If
   End Sub
End Module
________________________________
From: Karl Dash <
dashkarl@...>
To: melissa hietala <
kevmel822@...>
Sent: Fri, March 12, 2010 10:13:16 AM
Subject: Re: [Vantage] User Defined Tables
Could you send me a copy of the complete contents of the script editor for the customization you completed with Ross's assistance on Feb 25?
Regards,
-Karl Dash
________________________________
From: melissa hietala <
kevmel822@...>
To:
vantage@yahoogroups.com
Sent: Fri, March 12, 2010 7:56:47 AM
Subject: [Vantage] Prod Dtl Report - QA - ADJ Subreport
Â
Hello All,
In the Production Detail report there is a sub-report called "QA-ADJ". Within this subreport there is a field called "PartTran. Calc_DtlPrintArea. " Could someone please tell me the formula behind this field?  We do not have SDK so I don't believe there is a way that I can go into the Report Data Definition and do this myself.
Thanks,
 Dustin Biniek
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]