Yes, I have done.
I ended up declaring a hash table, using that to store whatever temporary variables I need and calling them when necessary and that seems to have fixed it.
I'm thinking its a memory problem ?
B
I ended up declaring a hash table, using that to store whatever temporary variables I need and calling them when necessary and that seems to have fixed it.
I'm thinking its a memory problem ?
B
--- In vantage@yahoogroups.com, "jckinneman" <jckinneman@...> wrote:
>
> Brute force debugging but have you tried putting some MessageBox.Show in to see what is in the various fields and to see what lines get run?
>
> Jim K.
>
> En>compass Solutions Inc.
> Tel 336.207.7166
> Fax 336.217.7983
> E-mail jimki@...
> www.encompass-inc.com
>
>
> --- In vantage@yahoogroups.com, "wamitch1012" <wmitchell@> wrote:
> >
> > I wonder if someone can tell me where I'm going wrong with the following.
> > I have a sub, called ProcessLaunchFormOptions, which in turn is lauched from the UD100Form_Load event. In that sub I have the following code which is intended to pick up certain field values from the Sales Order:
> >
> > Dim soAD As SalesOrderAdapter = New SalesOrderAdapter(oTrans.EpiBaseForm)
> > Try
> > If soAD.BOConnect() Then
> > If soAD.GetByID(_currentOrder) Then
> > _custNum = soAD.SalesOrderData.OrderHed.Rows(0)("CustNum")
> > _PONumber = soAD.SalesOrderData.OrderHed.Rows(0)("PONum")
> > _shipByDate = soAD.SalesOrderData.OrderHed.Rows(0)("RequestDate")
> > _needByDate = soAD.SalesOrderData.OrderHed.Rows(0)("NeedByDate")
> > _counterSale = soAD.SalesOrderData.OrderHed.Rows(0)("CounterSale")
> > _currency = soAD.SalesOrderData.OrderHed.Rows(0)("CurrencyCode")
> > _shipVia = soAD.SalesOrderData.OrderHed.Rows(0)("ShipViaCode")
> > _terms = soAD.SalesOrderData.OrderHed.Rows(0)("TermsCode")
> > _quoteNumber = soAD.SalesOrderData.OrderDtl.Rows(0)("QuoteNum")
> > _quoteLine = soAD.SalesOrderData.OrderDtl.Rows(0)("QuoteLine")
> > _priceList = soAD.SalesOrderData.OrderDtl.Rows(0)("PriceListCode")
> > _price = soAD.SalesOrderData.OrderDtl.Rows(0)("UnitPrice")
> > _totalWidth = soAD.SalesOrderData.OrderDtl.Rows(0)("Number10")
> > _originalRollWidth = soAD.SalesOrderData.OrderDtl.Rows(0)("Number11")
> > _originalLocation = soAD.SalesOrderData.OrderDtl.Rows(0)("ShortChar05")
> > _rollsNeeded = soAD.SalesOrderData.OrderDtl.Rows(0)("Number12")
> > _length = soAD.SalesOrderData.OrderDtl.Rows(0)("Number13")
> > _orderLength = soAD.SalesOrderData.OrderDtl.Rows(0)("OrderQty")
> > _orderDate = soAD.SalesOrderData.OrderHed.Rows(0)("OrderDate")
> > End If
> > End If
> > Catch soex As Exception
> > DebugMessage(soex.Message)
> > Finally
> > If Not soAD Is Nothing Then soAD.Dispose()
> > soAD = Nothing
> > End Try
> >
> > This code compiles without an error and there are no run-time exceptions. I have debugged it and I know its establishing the connection and its connected OK.
> > The problem is, it only seems to want to process the first few lines of code, it totally ignores everything else, even though there is without a doubt a value to return. I have tried altering the order of those lines and it continues to execute the first two or three lines only.
> >
> > Can someone explain where I'm going wrong here ?
> >
> > Many thanks
> >
> > W
> >
>