I have amended the code for the AllocationByLotBinForm and it creates a
column but doesn't put anything in the column - tried to keep it simple by
just filling it with 'found' or 'null' but I'm just getting a blank. What am
I missing? My aim is to populate it with PartLot.CheckBox01
Public Class Script
' ** Wizard Insert Location - Do Not Remove 'Begin/End
Wizard Added Module Level Variables' Comments! **
' Begin Wizard Added Module Level Variables **
Private WithEvents edvAllocByLot As EpiDataView
' End Wizard Added Module Level Variables **
' Add Custom Module Level Variables Here **
Public Sub InitializeCustomCode()
' ** Wizard Insert Location - Do not delete
'Begin/End Wizard Added Variable Initialization' lines **
' Begin Wizard Added Variable Initialization
edvAllocByLot =
CType(oTrans.EpiDataViews("PartAllocLot"), EpiDataView)
' End Wizard Added Variable Initialization
' Begin Wizard Added Custom Method Calls
If Not
(edvAllocByLot.dataView.Table.Columns.Contains("LotStatus"))Then
edvAllocByLot.dataView.Table.Columns.Add(new DataColumn("LotStatus"))
End If
' End Wizard Added Custom Method Calls
End Sub
Public 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 edvAllocByLot_EpiViewNotification(view As EpiDataView, args As
EpiNotifyArgs) Handles edvAllocByLot.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
AddLotStatus()
End If
End If
End Sub
Private Sub AddLotStatus()
For Each dr As DataRow In edvAllocByLot.dataView.Table.Rows
If Not IsDBNull(dr("LotNum")) Then
dr("LotStatus") = getLotStatus(dr("LotNum"))
End If
Next
End Sub
Private Function getLotStatus(ByVal Lot As String) As String
Dim LotStatus As String
Dim recordSelected As Boolean
Dim showSearch As Boolean = False
Dim whereClause As String = "LotNum = '" + Lot + "'"
Dim dsLotInfo As DataSet =
SearchFunctions.listLookup(AllocationByLotBinForm,"PartLotSearchAdapter",
recordSelected, showSearch, whereClause)
If recordSelected Then
LotStatus = "Found"
'LotStatus =
dsLotInfo.Tables(0).Rows(0)("LotNum").ToString()
Else
LotStatus = "Null"
End If
Return LotStatus
End Function
End Class
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
b_ordway
Sent: 03 April 2012 17:35
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Grid Collection - E9
I used it to add a field to a grid based on a collection.
http://tech.groups.yahoo.com/group/vantage/message/107748
But I wonder if you might be able to use a sheet wizard/dashboard instead?
BTW...
In a Sales Order grid, adding one new column resulted in grid population
time going from 5 seconds to 2 minutes.
The data for the extra column was being added into the grid one row at a
time. It didn't show up until I tested on a system with a lot of sales
orders.
--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"adrian.lauchlan" <adrianlauchlan@...> wrote:
PartAllocLot so that it displays alongside the lots that are available
column but doesn't put anything in the column - tried to keep it simple by
just filling it with 'found' or 'null' but I'm just getting a blank. What am
I missing? My aim is to populate it with PartLot.CheckBox01
Public Class Script
' ** Wizard Insert Location - Do Not Remove 'Begin/End
Wizard Added Module Level Variables' Comments! **
' Begin Wizard Added Module Level Variables **
Private WithEvents edvAllocByLot As EpiDataView
' End Wizard Added Module Level Variables **
' Add Custom Module Level Variables Here **
Public Sub InitializeCustomCode()
' ** Wizard Insert Location - Do not delete
'Begin/End Wizard Added Variable Initialization' lines **
' Begin Wizard Added Variable Initialization
edvAllocByLot =
CType(oTrans.EpiDataViews("PartAllocLot"), EpiDataView)
' End Wizard Added Variable Initialization
' Begin Wizard Added Custom Method Calls
If Not
(edvAllocByLot.dataView.Table.Columns.Contains("LotStatus"))Then
edvAllocByLot.dataView.Table.Columns.Add(new DataColumn("LotStatus"))
End If
' End Wizard Added Custom Method Calls
End Sub
Public 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 edvAllocByLot_EpiViewNotification(view As EpiDataView, args As
EpiNotifyArgs) Handles edvAllocByLot.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
AddLotStatus()
End If
End If
End Sub
Private Sub AddLotStatus()
For Each dr As DataRow In edvAllocByLot.dataView.Table.Rows
If Not IsDBNull(dr("LotNum")) Then
dr("LotStatus") = getLotStatus(dr("LotNum"))
End If
Next
End Sub
Private Function getLotStatus(ByVal Lot As String) As String
Dim LotStatus As String
Dim recordSelected As Boolean
Dim showSearch As Boolean = False
Dim whereClause As String = "LotNum = '" + Lot + "'"
Dim dsLotInfo As DataSet =
SearchFunctions.listLookup(AllocationByLotBinForm,"PartLotSearchAdapter",
recordSelected, showSearch, whereClause)
If recordSelected Then
LotStatus = "Found"
'LotStatus =
dsLotInfo.Tables(0).Rows(0)("LotNum").ToString()
Else
LotStatus = "Null"
End If
Return LotStatus
End Function
End Class
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of
b_ordway
Sent: 03 April 2012 17:35
To: vantage@yahoogroups.com
Subject: [Vantage] Re: Grid Collection - E9
> Also is it possible to show UD Fields in a collection?Here is example from bw2868bond.
I used it to add a field to a grid based on a collection.
http://tech.groups.yahoo.com/group/vantage/message/107748
> Or to have two grids on the same tab and be able to sync them?I've not tried either of these.
> Is it possible to have two 'collections' visible in one Grid.
But I wonder if you might be able to use a sheet wizard/dashboard instead?
BTW...
In a Sales Order grid, adding one new column resulted in grid population
time going from 5 seconds to 2 minutes.
The data for the extra column was being added into the grid one row at a
time. It didn't show up until I tested on a system with a lot of sales
orders.
--- In vantage@yahoogroups.com <mailto:vantage%40yahoogroups.com> ,
"adrian.lauchlan" <adrianlauchlan@...> wrote:
>two grids on the same tab and be able to sync them?
> Is it possible to have two 'collections' visible in one Grid. Or to have
>Fulfilment Workbench - Allocate By Lot/Bin grid which has an EpiBinding of
>
> I am trying to link a field in the PartLot table to the Grid View in
PartAllocLot so that it displays alongside the lots that are available
>[Non-text portions of this message have been removed]
> Adrian
>