Quoted Unit Price in Estimating goes way beyond 2 decimal places.

unknown

Hello,

Is it possible to reduce the Quoted Unit Price field to round down to 2 decimal places? If so, how?

Find more posts tagged with

VISUAL - Enterprise General Discussions

Comments

unknown

I made a macro that updated the QUOTE_PRICE table in the database. This is part of the OnSave macro.

If you would like a copy let me know.

rohit-tuljapurkar

I would like a copy of this macro. We have been dealing with same issue here internally.

unknown

Macro Code

Option Explicit

'****************************

' Establish Login Credentials

'****************************

Dim strServer, strVMdb, strUser, strPass, strCnnVM

Dim stSQL, udrs

Dim wshShell

strServer = "DE-SQL-01"

strVMdb = DATABASE

strUser = "MACRO"

strPass = "MACRO"

strCnnVM = "Provider=SQLOLEDB;Data Source='" & strServer & "';User ID='" & strUser & "';Password='" & strPass & "';Initial Catalog ='" & strVMdb & "'"

' Check if Status is Inhouse. If so round price.

If READY = True Or PRINTED = True Or WON = True Or LOST = True Or CANCELLED = True Then

MsgBox "The Status of this quote isn't Inhouse." & vbCrlf &_

"If this quote hasn't been sent then select Inhouse.",vbOKOnly+vbExclamation+vbSystemModal,"Round Price."

Else

stSQL=" UPDATE QUOTE_PRICE " & _

" SET UNIT_PRICE = ROUND(UNIT_PRICE, 2)" & _

" WHERE QUOTE_ID = '" & QUOTE_ID & "'"

set udrs = CreateObject("ADODB.Connection")

udrs.open strCnnVM

udrs.Execute stSQL

udrs.close

'Save

Set wshShell = CreateObject("WScript.Shell")

wshShell.AppActivate("Estimating Window")

wshShell.Sendkeys "%Fs"

End If

mseppanen

If you'd rather not go all into SQL and run SQL statements on the back end you can use this.

'***************************************************************************************************************

' Section 1

'Update Pricing to 2 Decimal PLaces

'2016-08-27 added (Mat Seppanen)

'***************************************************************************************************************

Set COLINES = LINES.Value

Lcnt = COLINES.Count ' Counts number of Lines

For i = 0 To (Lcnt - 1)

Set COLINE = COLINES(i)

Price = COLINE("PRICES")

COLINE("PRICES") = ROUND(Price,2)

Next

'***************************************************************************************************************

Copyright © 2025 Infor. All rights reserved.