No Process Is On The Other End Of The Pipe
Apr 9, 2007Hello all, I have question regarding the error message that I'm getting above. I have a program written in .NET that is suppose to traverse through a database and retrieve various records and then write a summary record. The code worked without issue. The database the used to hold the data was a SQL 7.0. However, recently I moved the server over to SQL 2005. Since that time I have been getting the following error:
Description: [Microsoft][SQL Native Client]Named Pipes Provider: No process is on the other end of the pipe.
ramdomly throughout the execution of the program. It doesn't happen on record and is intermittent when it occurs.
Here is the code that is having issues any help would be appreciated.
Thanks
Mike Gisonda
Dim mreleaseqty As Double
Dim mmakeqty As Double
Dim k As Integer
Dim mbackorderqty As Double
Dim mOnOrder As Double
Dim mOnHand As Double
Dim mMaximumqty As Double
Dim mMinimumQty As Double
Dim muomfactor As Double
Dim mSafetyStockQty As Double
Dim mQtyInTransit As Double
Dim mQtyAllocatedWip As Double
Dim mQtyAllocated As Double
Dim cnLean As New ADODB.Connection
Dim cnSyspro As New ADODB.Connection
Dim cnLean2 As New ADODB.Connection
Dim cmdPullItems As New ADODB.Command 'command to retrieve pull items
Dim cmdWHTotals As New ADODB.Command 'command to get combined warehouse totals
Dim cmdUpdatePull As New ADODB.Command
Dim cmdBkOrd As New ADODB.Command
Dim cmdInvMst As New ADODB.Command
Dim cmdInitPull As New ADODB.Command 'command to clean our old pull data
Dim prmStockCode As New ADODB.Parameter 'parameter to supply stockcode.
Dim rsPullItems As New ADODB.Recordset 'recordset to hold pull items.
Dim rsWHTotals As New ADODB.Recordset 'recordset to hold warehouse records
Dim rsBkOrd As New ADODB.Recordset
Dim rsInvMst As New ADODB.Recordset
Dim rsSalesOrders As New ADODB.Recordset
Dim rsWipMaster As New ADODB.Recordset
Dim mPullSQL As String
Dim mWHSql As String
Dim mBackOrderStr As String
Dim mInvSQL As String
Dim mStockCode As String
Dim mSalesSQL As String
Dim aBackOrderRec As Array
Dim mReqDate
Dim mShipDate As Date
Dim mcol As Integer
Dim mNewVal As Double
Dim mWipSql As String
Dim mAdjAmt As Double
Dim mStockStatus As Integer
Dim mBackOrder As Double
Dim mBackLate1 As Double
Dim mBackLate2 As Double
Dim mBackLate3 As Double
Dim mBackLate4 As Double
Dim mWeeklyStDev As Double
Dim mWeeklyUsage As Double
Dim mBackLog1 As Double
Dim mBackLog2 As Double
Dim mBackLog3 As Double
Dim mBackLog4 As Double
Dim mBackLog5 As Double
Dim mBackLog6 As Double
Dim mBackLog7 As Double
Dim mBackLog8 As Double
Dim mBackLog9 As Double
Dim mBackLog10 As Double
Dim mBackLog11 As Double
Dim mBackLog12 As Double
Dim mLEAN_BACKORDER_BFLAG As Integer
Dim mLEAN_LATE1_BFLAG As Integer
Dim mLEAN_LATE2_BFLAG As Integer
Dim mLEAN_LATE3_BFLAG As Integer
Dim mLEAN_LATE4_BFLAG As Integer
Dim mLEAN_BACKLOG1_BFLAG As Integer
Dim mLEAN_BACKLOG2_BFLAG As Integer
Dim mLEAN_BACKLOG3_BFLAG As Integer
Dim mLEAN_BACKLOG4_BFLAG As Integer
Dim mLEAN_BACKLOG5_BFLAG As Integer
Dim mLEAN_BACKLOG6_BFLAG As Integer
Dim mLEAN_BACKLOG7_BFLAG As Integer
Dim mLEAN_BACKLOG8_BFLAG As Integer
Dim mLEAN_BACKLOG9_BFLAG As Integer
Dim mLEAN_BACKLOG10_BFLAG As Integer
Dim mLEAN_BACKLOG11_BFLAG As Integer
Dim mLEAN_BACKLOG12_BFLAG As Integer
Dim mBFlagValue As Integer
Dim mFileNum As Integer
Dim mTrnFileNum As Integer
Dim mtest As String
Dim mCountOfRecords As Long
Dim mPullCount As String
Dim rsPullcount As ADODB.Recordset
Dim mCurRecordCount As Long
Dim mWipAllSQL As String
Dim rsWipAll As New ADODB.Recordset
'On Error GoTo ehbtnUpdateLean_Click
'open connection to springdesign
With cnLean
.ConnectionString = "DSN=SPRINGDESIGN;UID=sa;PWD="
.Open()
End With
With cnLean2
.ConnectionString = "DSN=SPRINGDESIGN;UID=sa;PWD="
.Open()
End With
'open connection to syspro
With cnSyspro
.ConnectionString = "DSN=COMPANYM;UID=sa;pwd="
.CommandTimeout = 300
.Open()
End With
btnUpdateLean.Enabled = False
Me.Cursor = Cursors.WaitCursor
**
Bunch of code to set up commands and select statements
**
'Initial command that will update the pull records as they are being processed.
With cmdUpdatePull
.let_ActiveConnection(cnLean)
.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
.CommandText = "sp_MX_Daily_UpdateMRPData"
.CommandTimeout = 300
.Parameters.Refresh()
End With
**
More Code
**
Try
rsPullItems.CursorLocation = ADODB.CursorLocationEnum.adUseClient
'Get all the pull items.
'rsPullItems = cmdPullItems.Execute
rsPullItems.Open(mPullSQL, cnLean2)
rsPullItems.ActiveConnection = Nothing
Catch ex As Exception
mtest = "Exception Message: " & ex.Message & vbCrLf & "SQLStatement: " & cmdPullItems.CommandText
LogError("", mtest)
rsPullItems = Nothing
End Try
Try
'Initialize debugging and transaction files.
mFileNum = FreeFile()
FileOpen(mFileNum, "MXtestdebug.txt", OpenMode.Output, OpenAccess.Default, OpenShare.Shared)
PrintLine(mFileNum, "Start " + Format(Now, "hh:mms"))
mTrnFileNum = FreeFile()
FileOpen(mTrnFileNum, "MXTrndebug.txt", OpenMode.Output, OpenAccess.Default, OpenShare.Shared)
Catch ex As Exception
End Try
mCurRecordCount = 0
'Start working.
If IsNothing(rsPullItems) = False Then
Do While rsPullItems.EOF = False
mCurRecordCount += 1
'Initialize parameter values
cmdUpdatePull.Parameters("@stock_code").Value = mStockCode
cmdUpdatePull.Parameters("@MINIMUM_QTY").Value = 0
cmdUpdatePull.Parameters("@MAXIMUM_QTY").Value = 0
cmdUpdatePull.Parameters("@SAFETYSTOCKQTY").Value = 0
cmdUpdatePull.Parameters("@ON_HAND").Value = 0
cmdUpdatePull.Parameters("@ON_ORDER").Value = 0
cmdUpdatePull.Parameters("@BACKORDER_QTY").Value = 0
cmdUpdatePull.Parameters("@MAKE_QTY").Value = 0
cmdUpdatePull.Parameters("@RELEASE_QTY").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKORDER").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_LATE1").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_LATE2").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_LATE3").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_LATE4").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG1").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG2").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG3").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG4").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG5").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG6").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG7").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG8").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG9").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG10").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG11").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG12").Value = 0.0
'Initial flags used to determine if the individual sales order dates are
'before or after the request date.
cmdUpdatePull.Parameters("@LEAN_BACKORDER_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_LATE1_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_LATE2_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_LATE3_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_LATE4_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG1_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG2_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG3_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG4_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG5_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG6_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG7_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG8_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG9_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG10_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG11_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG12_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEANMFG_STOCKSTATUS").Value = 0
**
**
Try
'Get warehouse totals
rsWHTotals = New ADODB.Recordset
rsWHTotals = cmdWHTotals.Execute
Catch ex As Exception
mtest = "Exception Message: " & ex.Message & vbCrLf & "SQLStatement: " & cmdWHTotals.CommandText
LogError(mStockCode, mtest)
rsWHTotals = Nothing
End Try
**
**
If IsNothing(rsWHTotals) = False Then
If rsWHTotals.EOF = False Then 'If there are values in the warehouse query.
**
BUNCH MORE CODE
**
cmdUpdatePull.Parameters("@stock_code").Value = mStockCode
cmdUpdatePull.Parameters("@MINIMUM_QTY").Value = mMinimumQty
cmdUpdatePull.Parameters("@MAXIMUM_QTY").Value = mMaximumqty
cmdUpdatePull.Parameters("@SAFETYSTOCKQTY").Value = mSafetyStockQty
cmdUpdatePull.Parameters("@ON_HAND").Value = mOnHand
cmdUpdatePull.Parameters("@ON_ORDER").Value = mOnOrder
**
cmdUpdatePull.Parameters("@BACKORDER_QTY").Value = mbackorderqty
mmakeqty = (mMaximumqty - mOnHand)
If mmakeqty > 0 Then
cmdUpdatePull.Parameters("@MAKE_QTY").Value = mmakeqty
Else
cmdUpdatePull.Parameters("@MAKE_QTY").Value = 0
End If
'init varables.
cmdUpdatePull.Parameters("@LEAN_BACKORDER").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_LATE1").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_LATE2").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_LATE3").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_LATE4").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG1").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG2").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG3").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG4").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG5").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG6").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG7").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG8").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG9").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG10").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG11").Value = 0.0
cmdUpdatePull.Parameters("@LEAN_BACKLOG12").Value = 0.0
mBackOrder = 0.0
mBackLate1 = 0.0
mBackLate2 = 0.0
mBackLate3 = 0.0
mBackLate4 = 0.0
mBackLog1 = 0.0
mBackLog2 = 0.0
mBackLog3 = 0.0
mBackLog4 = 0.0
mBackLog5 = 0.0
mBackLog6 = 0.0
mBackLog7 = 0.0
mBackLog8 = 0.0
mBackLog9 = 0.0
mBackLog10 = 0.0
mBackLog11 = 0.0
mBackLog12 = 0.0
'Initiale Binary flags that represent if the ship date is
'before or after the request date.
cmdUpdatePull.Parameters("@LEAN_BACKORDER_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_LATE1_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_LATE2_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_LATE3_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_LATE4_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG1_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG2_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG3_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG4_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG5_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG6_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG7_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG8_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG9_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG10_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG11_BFLAG").Value = 0
cmdUpdatePull.Parameters("@LEAN_BACKLOG12_BFLAG").Value = 0
mBackOrder = 0.0
mBackLate1 = 0.0
mBackLate2 = 0.0
mBackLate3 = 0.0
mBackLate4 = 0.0
mBackLog1 = 0.0
mBackLog2 = 0.0
mBackLog3 = 0.0
mBackLog4 = 0.0
mBackLog5 = 0.0
mBackLog6 = 0.0
mBackLog7 = 0.0
mBackLog8 = 0.0
mBackLog9 = 0.0
mBackLog10 = 0.0
mBackLog11 = 0.0
mBackLog12 = 0.0
mLEAN_BACKORDER_BFLAG = 0
mLEAN_LATE1_BFLAG = 0
mLEAN_LATE2_BFLAG = 0
mLEAN_LATE3_BFLAG = 0
mLEAN_LATE4_BFLAG = 0
mLEAN_BACKLOG1_BFLAG = 0
mLEAN_BACKLOG2_BFLAG = 0
mLEAN_BACKLOG3_BFLAG = 0
mLEAN_BACKLOG4_BFLAG = 0
mLEAN_BACKLOG5_BFLAG = 0
mLEAN_BACKLOG6_BFLAG = 0
mLEAN_BACKLOG7_BFLAG = 0
mLEAN_BACKLOG8_BFLAG = 0
mLEAN_BACKLOG9_BFLAG = 0
mLEAN_BACKLOG10_BFLAG = 0
mLEAN_BACKLOG11_BFLAG = 0
mLEAN_BACKLOG12_BFLAG = 0
mBFlagValue = 0
**
more Code
**
Try
rsSalesOrders = New ADODB.Recordset
rsSalesOrders.Open(mSalesSQL, cnSyspro)
Catch ex As Exception
mtest = "Exception Message: " & ex.Message & vbCrLf & "SQLStatement: " & mSalesSQL
LogError(mStockCode, mtest)
rsSalesOrders = Nothing
End Try
If IsNothing(rsSalesOrders) = False Then
Do While rsSalesOrders.EOF = False
**
More Code
**
Select Case mcol
Case Is <= -5
cmdUpdatePull.Parameters("@LEAN_BACKORDER").Value = cmdUpdatePull.Parameters("@LEAN_BACKORDER").Value + mNewVal
'Check to see if the bit is marked. If not then mark it.
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKORDER_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKORDER_BFLAG").Value = cmdUpdatePull.Parameters("@LEAN_BACKORDER_BFLAG").Value + mBFlagValue
End If
mBackOrder = mBackOrder + mNewVal
Case Is = -4
cmdUpdatePull.Parameters("@LEAN_LATE4").Value = cmdUpdatePull.Parameters("@LEAN_LATE4").Value + mNewVal
'Check to see if the bit is marked. If not then mark it.
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_LATE4_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_LATE4_BFLAG").Value = cmdUpdatePull.Parameters("@LEAN_LATE4_BFLAG").Value + mBFlagValue
End If
mBackLate4 = mBackLate4 + mNewVal
Case Is = -3
cmdUpdatePull.Parameters("@LEAN_LATE3").Value = cmdUpdatePull.Parameters("@LEAN_LATE3").Value + mNewVal
'Check to see if the bit is marked. If not then mark it.
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_LATE3_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_LATE3_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_LATE3_BFLAG").Value + mBFlagValue)
End If
mBackLate3 = mBackLate3 + mNewVal
Case Is = -2
cmdUpdatePull.Parameters("@LEAN_LATE2").Value = cmdUpdatePull.Parameters("@LEAN_LATE2").Value + mNewVal
'Check to see if the bit is marked. If not then mark it.
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_LATE2_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_LATE2_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_LATE2_BFLAG").Value + mBFlagValue)
End If
mBackLate2 = mBackLate2 + mNewVal
Case -1 To 0
cmdUpdatePull.Parameters("@LEAN_LATE1").Value = cmdUpdatePull.Parameters("@LEAN_LATE1").Value + mNewVal
'Check to see if the bit is marked. If not then mark it.
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_LATE1_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_LATE1_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_LATE1_BFLAG").Value + mBFlagValue)
End If
mBackLate1 = mBackLate1 + mNewVal
Case Is = 1
cmdUpdatePull.Parameters("@LEAN_BACKLOG1").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG1").Value + mNewVal
'Check to see if the bit is marked. If not then mark it.
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG1_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG1_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG1_BFLAG").Value + mBFlagValue)
End If
mBackLog1 = mBackLog1 + mNewVal
Case Is = 2
cmdUpdatePull.Parameters("@LEAN_BACKLOG2").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG2").Value + mNewVal
'Check to see if the bit is marked. If not then mark it.
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG2_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG2_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG2_BFLAG").Value + mBFlagValue)
End If
mBackLog2 = mBackLog2 + mNewVal
Case Is = 3
cmdUpdatePull.Parameters("@LEAN_BACKLOG3").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG3").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG3_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG3_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG3_BFLAG").Value + mBFlagValue)
End If
mBackLog3 = mBackLog3 + mNewVal
Case Is = 4
cmdUpdatePull.Parameters("@LEAN_BACKLOG4").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG4").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG4_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG4_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG4_BFLAG").Value + mBFlagValue)
End If
mBackLog4 = mBackLog4 + mNewVal
Case Is = 5
cmdUpdatePull.Parameters("@LEAN_BACKLOG5").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG5").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG5_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG5_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG5_BFLAG").Value + mBFlagValue)
End If
mBackLog5 = mBackLog5 + mNewVal
Case Is = 6
cmdUpdatePull.Parameters("@LEAN_BACKLOG6").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG6").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG6_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG6_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG6_BFLAG").Value + mBFlagValue)
End If
mBackLog6 = mBackLog6 + mNewVal
Case Is = 7
cmdUpdatePull.Parameters("@LEAN_BACKLOG7").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG7").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG7_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG7_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG7_BFLAG").Value + mBFlagValue)
End If
mBackLog7 = mBackLog7 + mNewVal
Case Is = 8
cmdUpdatePull.Parameters("@LEAN_BACKLOG8").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG8").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG8_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG8_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG8_BFLAG").Value + mBFlagValue)
End If
mBackLog8 = mBackLog8 + mNewVal
Case Is = 9
cmdUpdatePull.Parameters("@LEAN_BACKLOG9").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG9").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG9_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG9_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG9_BFLAG").Value + mBFlagValue)
End If
mBackLog9 = mBackLog9 + mNewVal
Case Is = 10
cmdUpdatePull.Parameters("@LEAN_BACKLOG10").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG10").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG10_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG10_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG10_BFLAG").Value + mBFlagValue)
End If
mBackLog10 = mBackLog10 + mNewVal
Case Is = 11
cmdUpdatePull.Parameters("@LEAN_BACKLOG11").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG11").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG11_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG11_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG11_BFLAG").Value + mBFlagValue)
End If
mBackLog11 = mBackLog11 + mNewVal
Case Is = 12
cmdUpdatePull.Parameters("@LEAN_BACKLOG12").Value = cmdUpdatePull.Parameters("@LEAN_BACKLOG12").Value + mNewVal
If mBFlagValue <> (cmdUpdatePull.Parameters("@LEAN_BACKLOG12_BFLAG").Value And mBFlagValue) Then
cmdUpdatePull.Parameters("@LEAN_BACKLOG12_BFLAG").Value = (cmdUpdatePull.Parameters("@LEAN_BACKLOG12_BFLAG").Value + mBFlagValue)
End If
mBackLog12 = mBackLog12 + mNewVal
End Select
End If
rsSalesOrders.MoveNext()
Loop
rsSalesOrders.Close()
rsSalesOrders = Nothing
End If
**
More Code
**
cmdUpdatePull.Parameters("@LEANMFG_STOCKSTATUS").Value = mStockStatus
**
More Code
**
Else
cmdUpdatePull.Parameters("@stock_code").Value = mStockCode
End If
rsWHTotals.Close()
rsWHTotals = Nothing
Else 'rswhtotal is nothing
cmdUpdatePull.Parameters("@stock_code").Value = mStockCode
End If 'rswhtotal is nothing
'Update the record in DesignLean
Try
*********
This is where it fails
*********
cmdUpdatePull.Execute()
Catch ex As Exception
mtest = "ERROR executing cmdupdatepull" & vbCrLf & "Exception Message: " & ex.Message & vbCrLf
LogError(mStockCode, mtest)
PrintLine(mTrnFileNum, mtest)
End Try
PrintLine(mTrnFileNum, "Finished to update cmdUpdatePull")
'Move to next record
rsPullItems.MoveNext()
PrintLine(mTrnFileNum, "Moving to next rsPullItems")
Loop
rsPullItems.Close()
rsPullItems = Nothing
cmdUpdatePull = Nothing
rsSalesOrders = Nothing
rsWipMaster = Nothing
End If
PrintLine(mTrnFileNum, "End of Pull Items LOOP")
FileClose(mTrnFileNum)
PrintLine(mFileNum, "ending" + Format(Now, "hh:mms"))
FileClose(mFileNum)
ProgressBar1.Value = mCountOfRecords + 100
btnUpdateLean.Enabled = True
Me.Cursor = Cursors.Default
MsgBox("done", MsgBoxStyle.OKOnly, "MXLean Calculation Status")
End
Exit Sub