StrataFrame Forum » StrataFrame Application Framework - V1 » Business Objects and Data Access (How do I?) » Seting Default Values

Seting Default Values

Bradley Marston — Tue, 20 Mar 2007 09:18:52 GMT

I have a BO with a lot of fields that need to set with defaults, I also have a datatable with the field name and value. Is there a way to set these defaults looping thru the data table without having to use a select case where i must type Case datatable.fieldname = me.fieldname. For example in vfp one could use macro

substitution , but not in vb.net or c sharp.net

RE: Seting Default Values

StrataFrame Team — Tue, 20 Mar 2007 09:18:52 GMT

Yes, the constructor for the BrokenRule class is internal (Friend in VB), to prevent broken rules from being added outside of the business objects themselves. If you want to be able to add a broken rule from outside of a business object, then you'll need to create a public method that will turn around and call the BusinessLayer.AddBrokenRule method internally.

RE: Seting Default Values

Bradley Marston — Tue, 20 Mar 2007 09:02:45 GMT

For one last question on the subject , how do I add a broken rule to a created business object. for example

BOCustomers.BrokenRules.Add() takes a parameter of type MicroFour.StrataFrame.Business.BrokenRule

When I try to create an object of MicroFour.StrataFrame.Business.BrokenRule I cannot use the new keyword, and all the relevent properties seem to be Read Only.

RE: Seting Default Values

StrataFrame Team — Wed, 14 Mar 2007 08:41:23 GMT

Yes, there is an overload to accept the field name as a string. The overload to accept the parameter as an enum (which is defined within the partial class of the business object) just .ToString()s the enum value and calls the other overload. So, you can certainly make it dynamic, and also add broken rules for custom properties that do not have a value in the enum.

RE: Seting Default Values

Bradley Marston — Wed, 14 Mar 2007 08:32:20 GMT

On a related note is there a way to similarly add BrokenRules without having to hardcode the first parameter and make

it dynamic?

Me.AddBrokenRule(MyBusinessObjectFieldNames.cust_lname, "Last name must be at least two characters.")

becomes

dim myvalue as string = "cust_lname"

Me.AddBrokenRule(myvalue , "Last name must be at least two characters.")

RE: Seting Default Values

Bradley Marston — Fri, 02 Mar 2007 07:53:13 GMT

After I posted the question I thought there would be a way to do it using current row, but did not have the time to investigate it. Your reponse is very much apprecited and will save me a lot of time.

RE: Seting Default Values

Trent L. Taylor — Thu, 01 Mar 2007 11:36:35 GMT

Yeah...as you already know, macros were a very dangerous thing since it was not strong-typed, but also a useful tool when you just want to "strong-arm" something. In .NET, you will use reflection. However, in this example you can just use the CurrentRow exposed on the BO.

[codesnippet]Dim loRow As DataRow

For Each loRow IN MyTempDataTable.Rows
MyBO.CurrentRow.Item(loRow.Item("FieldName")) = loRow.Item("FieldValue")
Next[/codesnippet]