/**********
*  StrZero( <nNumber>, <nLength>, <nDecimals> ) --> cNumber
*  Преобразование числа к строке фиксированной длины с ведущими нулями
***/
FUNCTION StrZero( n, nLength, nDecimals )
   LOCAL cNumber

   IF PCOUNT() = 3
      cNumber = STR(n, nLength, nDecimals)
   ELSEIF PCOUNT() = 2
      cNumber = STR(n, nLength)
   ELSE
      cNumber = STR(n)
   ENDIF

   IF "-" $ cNumber
      // Отрицательное число - минус перед нулями
      RETURN "-" + REPLICATE("0", LEN(cNumber) - LEN(LTRIM(cNumber))) +;
            SUBSTR(cNumber, AT("-", cNumber) + 1)
   ENDIF
   // Положительное число
   RETURN REPLICATE("0", LEN(cNumber) - LEN(LTRIM(cNumber))) + LTRIM(cNumber)
*** EOF ***
