Sub UpdateRDCOnHandArea(area As String, barcode As String, onhandprev As String, sales As String, sealedunits As String, onhandnow As String,date As String)
' ProgressDialogShow("SYNCHRONISING DATABASE")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "update_onhandarea1" & area
cmd.Parameters = Array As Object(onhandprev,sales,sealedunits,onhandnow,date,barcode)
reqManager.ExecuteQuery(cmd, 0, "onhandarea1" & area)
End Sub