Project Tracker - POs - Grid View

Vic,



Someone else posted this and I grabbed it thinking I had a need at the
time.. I think it was bw2868bond.. should get you started..





> Module Script
>
> '// ** Wizard Insert Location - Do Not Remove 'Begin/End Wizard Added
Module
Level Variables' Comments! **
> '// Begin Wizard Added Module Level Variables **
>
> Private WithEvents edvTimePhas 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
>
> edvTimePhas = CType(oTrans.EpiDataViews("TimePhas"), EpiDataView)
> '// End Wizard Added Variable Intialization
> '// Begin Custom Method Calls
>
> If Not (edvTimePhas.dataView.Table.Columns.Contains("ParentPart"))
Then
> edvTimePhas.dataView.Table.Columns.Add(new DataColumn("ParentPart"))
> End If
> '// 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
>
> '// End Wizard Added Object Disposal
> '// Begin Custom Code Disposal
>
> '// End Custom Code Disposal
> End Sub
>
> Private Sub edvTimePhas_EpiViewNotification(view As EpiDataView, args
As
EpiNotifyArgs) Handles edvTimePhas.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.Initialize) Then
> If (args.Row > -1) Then
> AddParentPart()
> End If
> End If
> End Sub
>
> Private Sub AddParentPart()
> For Each dr As DataRow In edvTimePhas.dataView.Table.Rows
> If Not IsDBNull(dr("JobNum")) Then
> dr("ParentPart") = getParentPart(dr("JobNum"))
> End If
> Next
> End Sub
>
> Private Function getParentPart(ByVal job As String) As String
> Dim parentPart As String
> Dim recordSelected As Boolean
> Dim showSearch As Boolean = False
> Dim whereClause As String = "JobNum = '" + job + "'"
> Dim dsJobInfo As DataSet = SearchFunctions.listLookup(TimePhasForm,
"JobAsmSearchAdapter", recordSelected, showSearch, whereClause)
> If recordSelected Then
> parentPart = dsJobInfo.Tables(0).Rows(0)("PartNum").ToString()
> Else
> parentPart = ""
> End If
>
> Return parentPart
> End Function
>
> End Module

Rob Bucek

Production Control Manager

PH: (715) 284-5376 ext 311

Mobile: (715)896-0590

FAX: (715)284-4084

<http://www.dsmfg.com/>

(Click the logo to view our site) <http://www.dsmfg.com/>





From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf
Of Vic Drecchio
Sent: Thursday, July 14, 2011 2:06 PM
To: vantage@yahoogroups.com
Subject: [Vantage] Project Tracker - POs - Grid View





Is there an obvious way I'm missing to add the Release Qty on this grid
view?

I checked in Customization mode and it is NOT one of the hidden fields.
I'm not certain why it wouldn't be included. It has everything else and
it's querying the same data set.

Is there any trick out there that would allow me to get that field on
this grid view if not on that grid view's column properties?

Thank you in advance.

Vic

[Non-text portions of this message have been removed]





[Non-text portions of this message have been removed]
Is there an obvious way I'm missing to add the Release Qty on this grid
view?



I checked in Customization mode and it is NOT one of the hidden fields.
I'm not certain why it wouldn't be included. It has everything else and
it's querying the same data set.



Is there any trick out there that would allow me to get that field on
this grid view if not on that grid view's column properties?



Thank you in advance.





Vic





[Non-text portions of this message have been removed]