Reverse auction software
Charles Purchasing Certification Blog: Reverse Auctions on the Cheap Yesterday, a guest blogger on Spend Matters posted a step-by-step method for conducting a electronic reverse auction – actually, I would consider it more of an online negotiation – without buying any new software. A Big Ten University Saves $675000 Using Reverse Auction to The savings were realized using eDynaQuotes (www.
edynaquote. com) proprietary reverse auction software which enabled this university to procure a coal contract from energy suppliers in a highly competitive process.
The Optimum: Pursuing Software Excellence as a Strategy For example, there was FreeMarkets which tried to move from a strategic sourcing consulting company powered by new reverse auction technology to a software company with the launch of FreeMarkets ES. There was also ATKearney which set up
Private Sub cmdCalculate_Click() If IsNull(Me.txtQtyPiza) Or Me.txtQtyPiza = "" Then Me.txtQtyPiza = 0 End If If IsNull(Me.txtQtyFry) Or Me.txtQtyFry = "" Then Me.txtQtyFry = 0 End If If IsNull(Me.txtQtySoft) Or Me.txtQtySoft = "" Then Me.txtQtySoft = 0 End If If Me.txtQtyPiza = 0 And Me.txtQtyFry = 0 And Me.txtQtySoft = 0 Then MsgBox "No Bill for 0 Purchase Value" Me.txtQtyPiza.SetFocus Me.txtQtyPiza = Empty Me.txtQtyFry = Empty Me.txtQtySoft = Empty Exit Sub End If If (Me.txtQtyPiza - Int(Me.txtQtyPiza) > 0) Or (Me.txtQtyFry - Int(Me.txtQtyFry) > 0) _ Or (Me.txtQtySoft - Int(Me.txtQtySoft) > 0) Then If (Me.txtQtyPiza - Int(Me.txtQtyPiza) > 0) Then Me.txtQtyPiza = Empty Me.txtQtyPiza.SetFocus Exit Sub End If If (Me.txtQtyFry - Int(Me.txtQtyFry) > 0) Then Me.txtQtyFry = Empty Me.txtQtyFry.SetFocus Exit Sub End If If (Me.txtQtySoft - Int(Me.txtQtySoft) > 0) Then Me.txtQtySoft = Empty Me.txtQtySoft.SetFocus Exit Sub End If End If Me.txtTotPiza = Me.txtQtyPiza * Me.txtRatePiza Me.txtTotFries = Me.txtQtyFry * Me.txtRateFry Me.txtTotSoft = Me.txtQtySoft * Me.txtRateSoft Me.txtTotalBill = Val(Me.txtTotPiza) + Val(Me.txtTotFries) + Val(Me.txtTotSoft) End Sub Private Sub cmdCalculate_GotFocus() If IsNull(Me.txtQtyPiza) Or Me.txtQtyPiza = "" Then Me.txtQtyPiza = 0 End If If IsNull(Me.txtQtyFry) Or Me.txtQtyFry = "" Then Me.txtQtyFry = 0 End If If IsNull(Me.txtQtySoft) Or Me.txtQtySoft = "" Then Me.txtQtySoft = 0 End If If Me.txtQtyPiza = 0 And Me.txtQtyFry = 0 And Me.txtQtySoft = 0 Then MsgBox "No Bill for 0 Purchase Value" Me.txtQtyPiza.SetFocus Me.txtQtyPiza = Empty Me.txtQtyFry = Empty Me.txtQtySoft = Empty Exit Sub End If If (Me.txtQtyPiza - Int(Me.txtQtyPiza) > 0) Or (Me.txtQtyFry - Int(Me.txtQtyFry) > 0) _ Or (Me.txtQtySoft - Int(Me.txtQtySoft) > 0) Then If (Me.txtQtyPiza - Int(Me.txtQtyPiza) > 0) Then Me.txtQtyPiza = Empty Me.txtQtyPiza.SetFocus Exit Sub End If If (Me.txtQtyFry - Int(Me.txtQtyFry) > 0) Then Me.txtQtyFry = Empty Me.txtQtyFry.SetFocus Exit Sub End If If (Me.txtQtySoft - Int(Me.txtQtySoft) > 0) Then Me.txtQtySoft = Empty Me.txtQtySoft.SetFocus Exit Sub End If End If End Sub Private Sub txtQtyFry_GotFocus() If IsNull(Me.txtQtyPiza) Or Me.txtQtyPiza = "" Then Me.txtQtyPiza = 0 ElseIf Me.txtQtyPiza - Int(Me.txtQtyPiza) > 0 Then Me.txtQtyPiza = Empty Me.txtQtyPiza.SetFocus Exit Sub End If Me.txtTotPiza = Me.txtQtyPiza * Me.txtRatePiza End Sub Private Sub txtQtyPiza_GotFocus() Me.txtRatePiza = 1.75 Me.txtRateFry = 2# Me.txtRateSoft = 1.25 End Sub Private Sub txtQtySoft_GotFocus() If IsNull(Me.txtQtyPiza) Or Me.txtQtyPiza = "" Then Me.txtQtyPiza = 0 ElseIf IsNull(Me.txtQtyFry) Or Me.txtQtyFry = "" Then Me.txtQtyFry = 0 ElseIf (Me.txtQtyPiza - Int(Me.txtQtyPiza) > 0) Or (Me.txtQtyFry - Int(Me.txtQtyFry) > 0) Then If (Me.txtQtyPiza - Int(Me.txtQtyPiza) > 0) Then Me.txtQtyPiza = Empty Me.txtQtyPiza.SetFocus Exit Sub End If If (Me.txtQtyFry - Int(Me.txtQtyFry) > 0) Then Me.txtQtyFry = Empty Me.txtQtyFry.SetFocus Exit Sub End If End If Me.txtTotPiza = Me.txtQtyPiza * Me.txtRatePiza Me.txtTotFries = Me.txtQtyFry * Me.txtRateFry End Sub Private Sub txtQtySoft_LostFocus() Me.txtRateSoft = 1.25 End Sub you can download the sample file from : http://rapidshare.com/files/328863200/YahooAnsVB.zip.html
Pages: 1 2