if eventInfo.id() = DataUnlockRecord or
     eventInfo.id() = DataPostRecord then
     if Customer_No = blank() then
          counter = counter + 1
          soundArray[counter] = "custno.wav"
     endIf
     if Sale_Date = blank() then
          counter = counter + 1
          soundArray[counter] = "saledate.wav"
     endIf
     if Total_Invoice = blank() then
          counter = counter + 1
          soundArray[counter] = "totinv.wav"
     endIf
     if Amount_Paid = blank() then
          counter = counter + 1
          soundArray[counter] = "amntpaid.wav"
     endIf
     if Payment_Method = blank() then
          counter = counter + 1
          soundArray[counter] = "paymeth.wav"
     endIf
     if counter = 0 then
          doDefault
     else
          eventInfo.setErrorCode(UserError)
          switch
               case counter = 1 :
                    sndPlaySound("value.wav", 2)
                    sndPlaySound(soundArray[1], 1)
               case counter > 1 :
                    sndPlaySound("values.wav", 2)
                    for n from 1 to (counter - 1)
                         sndPlaySound(soundArray[n], 2)
                    endFor
                    sndPlaySound("and.wav", 2)
                    sndPlaySound(soundArray[counter], 1)
          endSwitch
     endIf
endIf