Module gFormatNumbers.pkg

     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
    48