1//****************************************************************************// 2// // 3// $File name : gFormatNumbers.pkg // 4// $File title : Globals for formating numbers and currency // 5// Notice : // 6// $Author(s) : John Tuohy // 7// // 8// Confidential Trade Secret. // 9// Copyright 1999 Data Access Corporation, Miami FL, USA // 10// All Rights reserved // 11// DataFlex is a registered trademark of Data Access Corporation. // 12// $Rev History // 13// // 14// 25.08.99 Created // 15//****************************************************************************// 16 17Use cFormatter.pkg 18 19// for now, this object is private. All access is through the following 20// global functions 21 22//Object oFmt is a cFormatter 23//end_object 24 25Global_variable handle ghoFormatter 26Get Create of desktop U_cFormatter to ghoFormatter 27 28Function FormatNumber Global number nNum integer iPoints returns string 29 Function_return (FormatNum(ghoFormatter, nNum,iPoints)) 30end_function 31 32Function FormatCurrency Global number nNum integer iPoints returns string 33 Function_return (FormatCur(ghoFormatter, nNum,iPoints)) 34end_function 35 36Function FormatValue Global number nNum string sFmt returns string 37 Function_return (FormatVal(ghoFormatter, nNum,sFmt)) 38end_function 39 40Procedure SetCurrencyFormat Global string sFmt 41 Send SetFormat of ghoFormatter sFmt True 42end_function 43 44Procedure SetNumberFormat Global string sFmt 45 Send SetFormat of ghoFormatter sFmt False 46end_function 47