Line 69 has an extra ")" at the end. Remove it.
You also need to add the needed assembly files. Please go through these steps,
Go to customization
Tools
Assembly Reference Manager
Add Custom Reference
You need to add three .dll files
Epicor.Mfg.AD.LotSelectUpdate.dll
Epicor.Mfg.BO.LotSelectUpdate.dll
Epicor.Mfg.IF.ILotSelectUpdate.dll
Notice the last one has an extra "I". this is Microsoft's naming convention. After this, the second should go away.
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Rupert
Sent: Wednesday, July 18, 2012 5:35 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: VB Help required. need to change checkbox 01 to false.
Cheers for that :
almost there!!! Just got errors
Compiling Custom Code ...
----------errors------------
Error: BC30205 - line 69 (106) - End of statement expected.
Error: BC30002 - line 73 (110) - Type 'VarAdpt.LotSelectUpdatedata' is not defined.
** Compile Failed. **
69 Dim Var As Boolean = VarAdpt.GetByID(dr("PartNum").Tostring,dr("LotNum").tostring))
70If Var then
71Dim TempDataSet as LotSelectUpdateDataset = New VarAdpt.LotSelectUpdatedata
You also need to add the needed assembly files. Please go through these steps,
Go to customization
Tools
Assembly Reference Manager
Add Custom Reference
You need to add three .dll files
Epicor.Mfg.AD.LotSelectUpdate.dll
Epicor.Mfg.BO.LotSelectUpdate.dll
Epicor.Mfg.IF.ILotSelectUpdate.dll
Notice the last one has an extra "I". this is Microsoft's naming convention. After this, the second should go away.
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Rupert
Sent: Wednesday, July 18, 2012 5:35 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Re: VB Help required. need to change checkbox 01 to false.
Cheers for that :
almost there!!! Just got errors
Compiling Custom Code ...
----------errors------------
Error: BC30205 - line 69 (106) - End of statement expected.
Error: BC30002 - line 73 (110) - Type 'VarAdpt.LotSelectUpdatedata' is not defined.
** Compile Failed. **
69 Dim Var As Boolean = VarAdpt.GetByID(dr("PartNum").Tostring,dr("LotNum").tostring))
70If Var then
71Dim TempDataSet as LotSelectUpdateDataset = New VarAdpt.LotSelectUpdatedata
--- In vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>, Bill Wu <billw@...<mailto:billw@...>> wrote:
>
> Try This, our company is not using Lot, so my code may not work. you may have to debug a little bit.
>
>
> for each dr As DataRow in dbtvp.DBView.dataView.table.Rows
> Dim VarAdpt As LotSelectUpdateAdapter = New LotSelectUpdateAdapter(dbtvp)
> VarAdpt.BOConnect()
>
> Dim Var As Boolean = VarAdpt.GetByID(dr("PartNum").Tostring, dr("LotNum").tostring ) )
> if Var then
> Dim TempDataSet as LotSelectUpdateDataset = New VarAdpt.LotSelectUpdateData
> TempDataSet.Tables(0).Rows(0)("CheckBox01") = False
> VarAdpt.Update()
> end if
> VarAdpt.Dispose()
> next
>
>
> From: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com> [mailto:vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>] On Behalf Of Rupert
> Sent: Tuesday, July 17, 2012 7:40 AM
> To: vantage@yahoogroups.com<mailto:vantage%40yahoogroups.com>
> Subject: [Vantage] VB Help required. need to change checkbox 01 to false.
>
>
>
> Hi all.
>
> 803.409
>
> I have a dashboard that pulls in Lots that have checkbox01 set to true. what I am trying to do is to change all in the dashboard to false when a button is pressed. I have done this before, but have lost my code :(
>
> Below is what I have done - What I am trying to figure out is the command to then change each row of the dashboard to false:
>
> '//**************************************************
> '// Custom VB.NET code for 10928bb0-42f0-4ae1-9df5-54f5b68f6db2
> '// Created: 16/07/2012 14:55:05
> '//**************************************************
> 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 **
>
> '// End Wizard Added Module Level Variables **
> dim dbtvp as object
>
> '// 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
>
> '// End Wizard Added Variable Intialization
> '// Begin Custom Method Calls
> dbtvp = "DBTVP_10928bb0-42f0-4ae1-9df5-54f5b68f6db2"
>
> '// 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 btnEpiCustom1_Click(ByVal Sender As Object, ByVal Args As System.EventArgs) Handles btnEpiCustom1.Click
> '// ** Place Event Handling Code Here **
>
> ' Imports Epicor.Mfg.UI.Adapters
>
> '//Get the dashboard dataview
> MessageBox.Show("count of records " +dbtvp.DBView.dataView.table.Rows.Count.ToString())
> '//For each row, mark the checkbox01 as false.
> for each dr As DataRow in dbtvp.DBView.dataView.table.Rows
>
>
> Dim VarAdpt As LotSelectUpdateAdapter = New LotSelectUpdateAdapter(dbtvp)
> VarAdpt.BOConnect()
>
> Dim Var As Boolean = VarAdpt.Update()
>
>
> This is where I need some help - please :)
>
>
> VarAdpt.Dispose()
> next
>
> End Sub
>
> End Module
>
>
>
> [Non-text portions of this message have been removed]
>
[Non-text portions of this message have been removed]