Delete all from list in UD form

Yahoo Archive
1
Have not tested these calls, but perhaps otrans.refresh() or
otrans.clear()



--- In vantage@yahoogroups.com, Steven Gotschall <sgotschall@...>
wrote:
>
> That worked great. Thanks. You saved me a lot of work. One last
question and I'll stop bugging you. My code deletes all data
displayed in the EpiView List tab on the UD form. After the data has
been deleted, how can I clear the list/tree view? In other words,
the data has been deleted from the UD table but is still being
displayed on the form, I want to clear the form after the data has
been deleted.
>
>
>
>
> ________________________________
> From: bw2868bond <bwalker@...>
> To: vantage@yahoogroups.com
> Sent: Thursday, December 11, 2008 3:23:58 PM
> Subject: [Vantage] Re: Delete all from list in UD form
>
>
> With the Customization Tools Dialog Window open, Click on Tools -
> Assembly Reference Manager. When that window opens, click on the
add
> assembly button. Browse and add The ...AD.UD02.. .
and ...IF.IUD02. ..
> assembly dll files.
>
> Save and reopen, try again
>
> --- In vantage@yahoogroups .com, Steven Gotschall <sgotschall@ ...>
> wrote:
> >
> > I'm having a little problem with the code. I get
> > Error: BC30002 - line 146 (232) - Type 'UD02Adapter' is not
defined.
> > I'm working on the UD02 table of course
> >
> > Â
> >
> > ____________ _________ _________ __
> > From: bw2868bond <bwalker@ >
> > To: vantage@yahoogroups .com
> > Sent: Thursday, December 11, 2008 10:16:11 AM
> > Subject: [Vantage] Re: Delete all from list in UD form
> >
> >
> > Well, if you have your list data in a dataset then this would
work:
> >
> > This is for UD20, but just change to whatever table you need
> > call the sub and pass it the dataset or incorporate into a button
> click
> > or whatever - this is merely for concept :o)
> >
> > Private Sub deleteUD20Records( dsUD20 As DataSet)
> > Dim adUD20 As UD20Adapter = New UD20Adapter( UD20Form)
> > adUD20.BOConnect( )
> > For Each dr As DataRow In dsUD20.Tables( 0).Rows
> > Dim deleted As Boolean = adUD20.DeleteByID( dr("Key1" ),dr
> > ("Key2"),dr( "Key3"),dr( "Key4"),dr( "Key5"))
> > Next
> > adUD20.Dispose( )
> > End Sub
> >
> > --- In vantage@yahoogroups .com, "sgotschall" <sgotschall@ ...>
> wrote:
> > >
> > > Vantage 8.03.406A
> > >
> > > Does anyone have some customization code to delete items from
the
> > list
> > > view on a UD table? We have some special pricing information in
> UD
> > > tables, and I would like to be able to call up a list of
records
> from
> > > the table, export them to Excel, then delete the entire list
from
> the
> > > UD table. After making updates to the information in Excel, I
can
> > then
> > > do a paste insert to put them back into the table. Otherwise, I
> have
> > > to delete them one at a time or use a paste update which
presents
> its
> > > own list of problems.
> > >
> >
> >
> >
> >
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
2
Vantage 8.03.406A

Does anyone have some customization code to delete items from the list
view on a UD table? We have some special pricing information in UD
tables, and I would like to be able to call up a list of records from
the table, export them to Excel, then delete the entire list from the
UD table. After making updates to the information in Excel, I can then
do a paste insert to put them back into the table. Otherwise, I have
to delete them one at a time or use a paste update which presents its
own list of problems.
3
I am looking for a table that has a field showing the first Labor
transaction on a Job. I have searched the Data Dictionary and I see some
tables that have the Last Labor Date, but not the First. Does anyone know
how to tell when a Job was started?

Thank you

Jeff



[Non-text portions of this message have been removed]
4
Well, if you have your list data in a dataset then this would work:

This is for UD20, but just change to whatever table you need
call the sub and pass it the dataset or incorporate into a button click
or whatever - this is merely for concept :o)

Private Sub deleteUD20Records(dsUD20 As DataSet)
Dim adUD20 As UD20Adapter = New UD20Adapter(UD20Form)
adUD20.BOConnect()
For Each dr As DataRow In dsUD20.Tables(0).Rows
Dim deleted As Boolean = adUD20.DeleteByID(dr("Key1"),dr
("Key2"),dr("Key3"),dr("Key4"),dr("Key5"))
Next
adUD20.Dispose()
End Sub


--- In vantage@yahoogroups.com, "sgotschall" <sgotschall@...> wrote:
>
> Vantage 8.03.406A
>
> Does anyone have some customization code to delete items from the
list
> view on a UD table? We have some special pricing information in UD
> tables, and I would like to be able to call up a list of records from
> the table, export them to Excel, then delete the entire list from the
> UD table. After making updates to the information in Excel, I can
then
> do a paste insert to put them back into the table. Otherwise, I have
> to delete them one at a time or use a paste update which presents its
> own list of problems.
>
5
I've always looked up the minimum clock-in date on the LaborDtl table for a specific job number. But this is with Report Builder in 6.10 using the aggregate functions. Hopefully a BAQ could do the same.
-Todd C.

________________________________
From: vantage@yahoogroups.com [mailto:vantage@yahoogroups.com] On Behalf Of Jeff Stockard
Sent: Thursday, December 11, 2008 9:09 AM
To: vantage@yahoogroups.com
Subject: [Vantage] Job Start date


I am looking for a table that has a field showing the first Labor
transaction on a Job. I have searched the Data Dictionary and I see some
tables that have the Last Labor Date, but not the First. Does anyone know
how to tell when a Job was started?

Thank you

Jeff

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





[Non-text portions of this message have been removed]
6
LaborDtl.ClockinDate shows the time a particular labor transaction was
started for a given LaborDtl.JobNum. For a given JobNum you¹ll get all of
the LaborDtl records, but I¹d assume that they¹ll sort in table order, so
you may be able to get away in a BAQ with returning the first record via the
relationship definition.

-bws


On 12/11/08 7:08 AM, "Jeff Stockard" <jeff.stockard@...> wrote:

> I am looking for a table that has a field showing the first Labor
> transaction on a Job. I have searched the Data Dictionary and I see some
> tables that have the Last Labor Date, but not the First. Does anyone know
> how to tell when a Job was started?
>
> Thank you
>
> Jeff



[Non-text portions of this message have been removed]
7
Thanks, this looks like exactly what I was searching for. I'll let you know how it works.




________________________________
From: bw2868bond <bwalker@...>
To: vantage@yahoogroups.com
Sent: Thursday, December 11, 2008 10:16:11 AM
Subject: [Vantage] Re: Delete all from list in UD form


Well, if you have your list data in a dataset then this would work:

This is for UD20, but just change to whatever table you need
call the sub and pass it the dataset or incorporate into a button click
or whatever - this is merely for concept :o)

Private Sub deleteUD20Records( dsUD20 As DataSet)
Dim adUD20 As UD20Adapter = New UD20Adapter( UD20Form)
adUD20.BOConnect( )
For Each dr As DataRow In dsUD20.Tables( 0).Rows
Dim deleted As Boolean = adUD20.DeleteByID( dr("Key1" ),dr
("Key2"),dr( "Key3"),dr( "Key4"),dr( "Key5"))
Next
adUD20.Dispose( )
End Sub

--- In vantage@yahoogroups .com, "sgotschall" <sgotschall@ ...> wrote:
>
> Vantage 8.03.406A
>
> Does anyone have some customization code to delete items from the
list
> view on a UD table? We have some special pricing information in UD
> tables, and I would like to be able to call up a list of records from
> the table, export them to Excel, then delete the entire list from the
> UD table. After making updates to the information in Excel, I can
then
> do a paste insert to put them back into the table. Otherwise, I have
> to delete them one at a time or use a paste update which presents its
> own list of problems.
>






[Non-text portions of this message have been removed]
8
I'm having a little problem with the code. I get
Error: BC30002 - line 146 (232) - Type 'UD02Adapter' is not defined.
I'm working on the UD02 table of course

Â

________________________________
From: bw2868bond <bwalker@...>
To: vantage@yahoogroups.com
Sent: Thursday, December 11, 2008 10:16:11 AM
Subject: [Vantage] Re: Delete all from list in UD form


Well, if you have your list data in a dataset then this would work:

This is for UD20, but just change to whatever table you need
call the sub and pass it the dataset or incorporate into a button click
or whatever - this is merely for concept :o)

Private Sub deleteUD20Records( dsUD20 As DataSet)
Dim adUD20 As UD20Adapter = New UD20Adapter( UD20Form)
adUD20.BOConnect( )
For Each dr As DataRow In dsUD20.Tables( 0).Rows
Dim deleted As Boolean = adUD20.DeleteByID( dr("Key1" ),dr
("Key2"),dr( "Key3"),dr( "Key4"),dr( "Key5"))
Next
adUD20.Dispose( )
End Sub

--- In vantage@yahoogroups .com, "sgotschall" <sgotschall@ ...> wrote:
>
> Vantage 8.03.406A
>
> Does anyone have some customization code to delete items from the
list
> view on a UD table? We have some special pricing information in UD
> tables, and I would like to be able to call up a list of records from
> the table, export them to Excel, then delete the entire list from the
> UD table. After making updates to the information in Excel, I can
then
> do a paste insert to put them back into the table. Otherwise, I have
> to delete them one at a time or use a paste update which presents its
> own list of problems.
>






[Non-text portions of this message have been removed]
9
With the Customization Tools Dialog Window open, Click on Tools -
Assembly Reference Manager. When that window opens, click on the add
assembly button. Browse and add The ...AD.UD02... and ...IF.IUD02...
assembly dll files.

Save and reopen, try again

--- In vantage@yahoogroups.com, Steven Gotschall <sgotschall@...>
wrote:
>
> I'm having a little problem with the code. I get
> Error: BC30002 - line 146 (232) - Type 'UD02Adapter' is not defined.
> I'm working on the UD02 table of course
>
> Â
>
> ________________________________
> From: bw2868bond <bwalker@...>
> To: vantage@yahoogroups.com
> Sent: Thursday, December 11, 2008 10:16:11 AM
> Subject: [Vantage] Re: Delete all from list in UD form
>
>
> Well, if you have your list data in a dataset then this would work:
>
> This is for UD20, but just change to whatever table you need
> call the sub and pass it the dataset or incorporate into a button
click
> or whatever - this is merely for concept :o)
>
> Private Sub deleteUD20Records( dsUD20 As DataSet)
> Dim adUD20 As UD20Adapter = New UD20Adapter( UD20Form)
> adUD20.BOConnect( )
> For Each dr As DataRow In dsUD20.Tables( 0).Rows
> Dim deleted As Boolean = adUD20.DeleteByID( dr("Key1" ),dr
> ("Key2"),dr( "Key3"),dr( "Key4"),dr( "Key5"))
> Next
> adUD20.Dispose( )
> End Sub
>
> --- In vantage@yahoogroups .com, "sgotschall" <sgotschall@ ...>
wrote:
> >
> > Vantage 8.03.406A
> >
> > Does anyone have some customization code to delete items from the
> list
> > view on a UD table? We have some special pricing information in
UD
> > tables, and I would like to be able to call up a list of records
from
> > the table, export them to Excel, then delete the entire list from
the
> > UD table. After making updates to the information in Excel, I can
> then
> > do a paste insert to put them back into the table. Otherwise, I
have
> > to delete them one at a time or use a paste update which presents
its
> > own list of problems.
> >
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>
10
That worked great. Thanks. You saved me a lot of work. One last question and I'll stop bugging you. My code deletes all data displayed in the EpiView List tab on the UD form. After the data has been deleted, how can I clear the list/tree view? In other words, the data has been deleted from the UD table but is still being displayed on the form, I want to clear the form after the data has been deleted.




________________________________
From: bw2868bond <bwalker@...>
To: vantage@yahoogroups.com
Sent: Thursday, December 11, 2008 3:23:58 PM
Subject: [Vantage] Re: Delete all from list in UD form


With the Customization Tools Dialog Window open, Click on Tools -
Assembly Reference Manager. When that window opens, click on the add
assembly button. Browse and add The ...AD.UD02.. . and ...IF.IUD02. ..
assembly dll files.

Save and reopen, try again

--- In vantage@yahoogroups .com, Steven Gotschall <sgotschall@ ...>
wrote:
>
> I'm having a little problem with the code. I get
> Error: BC30002 - line 146 (232) - Type 'UD02Adapter' is not defined.
> I'm working on the UD02 table of course
>
> Â
>
> ____________ _________ _________ __
> From: bw2868bond <bwalker@... >
> To: vantage@yahoogroups .com
> Sent: Thursday, December 11, 2008 10:16:11 AM
> Subject: [Vantage] Re: Delete all from list in UD form
>
>
> Well, if you have your list data in a dataset then this would work:
>
> This is for UD20, but just change to whatever table you need
> call the sub and pass it the dataset or incorporate into a button
click
> or whatever - this is merely for concept :o)
>
> Private Sub deleteUD20Records( dsUD20 As DataSet)
> Dim adUD20 As UD20Adapter = New UD20Adapter( UD20Form)
> adUD20.BOConnect( )
> For Each dr As DataRow In dsUD20.Tables( 0).Rows
> Dim deleted As Boolean = adUD20.DeleteByID( dr("Key1" ),dr
> ("Key2"),dr( "Key3"),dr( "Key4"),dr( "Key5"))
> Next
> adUD20.Dispose( )
> End Sub
>
> --- In vantage@yahoogroups .com, "sgotschall" <sgotschall@ ...>
wrote:
> >
> > Vantage 8.03.406A
> >
> > Does anyone have some customization code to delete items from the
> list
> > view on a UD table? We have some special pricing information in
UD
> > tables, and I would like to be able to call up a list of records
from
> > the table, export them to Excel, then delete the entire list from
the
> > UD table. After making updates to the information in Excel, I can
> then
> > do a paste insert to put them back into the table. Otherwise, I
have
> > to delete them one at a time or use a paste update which presents
its
> > own list of problems.
> >
>
>
>
>
>
>
> [Non-text portions of this message have been removed]
>






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