I have an invoice database that has a variety of different Error Checkers. 

//CASH RECEIPTS CHECK

HST1 = @ROUND(HST,2)
CHARGE1 = @ROUND(CHARGE,2)
CASHREC1 = @ROUND(CASHREC,2)
vCASHRECEIPTS = CASHREC
vCR = @ROUND(CASHRECEIPTS,2)
vSales = Sub1
vHST = HST1
vPOA = POA0
vCharge = CHARGE
CRCMP = vSales + vHST + vPOA - vCharge
CRCMP1 = @ROUND(CRCMP,2)
WriteLn("CASH RECEIPTS : " + vCR)
WriteLn("CASH RECEIPTS CHK : " + CRCMP1)
IF CRCMP1 <> vCR AND TCD <> "COD" Then {
@MSGBOX("*******  ERROR ********","******* CASH RECEIPTS DO NOT MATCH *********"  + "CASH RECEIPTS = " + vCR + " <> " + "CR CHECK =" + CRCMP1 ,"*******  ERROR ********")
                             
                             @Play("BEEP")
                             Message = "ERROR"
                             ThrowFocus(Comment)}
//CASH RECEIPTS CHECK END

If the Cash Receipts value is different from the Cash Receipts Checker, it will beep.  The odd time it will say there's an Error but the amounts are the same.  I have attached a picture of the error when it happened today.  Any ideas?

Hi Ray,

Here are the items that are declared.

Var vTPRICEALL1 as Double
Var vDifference as Double
Var vMyTotal as Double
Var vcnt as Int
Var vLoop as Int
Var vsubttl as Double
Var HST1 as Double
Var charge1 as Double
Var cashrec1 as Double
Var cashrec as Double
Var vcashreceipts as Double
Var vcr as Double
Var vsales as Double
Var vhst as Double
Var vpoa as Double
Var vcharge as Double
Var crcmp as Double
Var crcmp1 as Double