* превращаем адрес(иерархию) объекта в имя переменной
   lcFilterVar = "gc"+CHRTRAN(SYS( 1272 ,loWordsList),".","")
   * объявляем глобальную переменную для фильтра
   IF VARTYPE(&lcFilterVar) = "U"
      PUBLIC &lcFilterVar
      * в пропертя объекта схороним имя переменной-фильтра
      this.WordsFilterVar = m.lcFilterVar
   ENDIF
   * запоминаем значение для фильтра в глобальной переменной
   &lcFilterVar = LOWER(ALLTRIM(this.Value))
   * Выбираем область и ставим фильтр
   lcWordsTable = this.WordsTable
   lcWordsField = this.WordsField
   * устанавливаем фильтр по глобальной переменной
   SET FILTER TO LOWER(&lcWordsField) = &lcFilterVar IN (lcWordsTable)

IF NOT EMPTY(this.WordsFilterVar)
      lcFilterVar = this.WordsFilterVar
      IF VARTYPE(&lcFilterVar)#"U"
         RELEASE &lcFilterVar
      ENDIF   
   ENDIF

   SELECT (this.WordsTable)
   SET FILTER TO
   * убираем из памяти глобальную переменную фильтра
   IF NOT EMPTY(this.WordsFilterVar)
      lcFilterVar = this.WordsFilterVar
      IF VARTYPE(&lcFilterVar)#"U"
         RELEASE &lcFilterVar
      ENDIF   
   ENDIF

local lcFilter
lcFilter = 'lower(' + this.WordsField + ') = "' + chrtran(LOWER(ALLTRIM(this.Value)), '"', '') + '"'
SET FILTER TO &lcFilter IN (this.WordsTable)

ТОВ "Колхоз им. Жанны Д'Арк" 

   LOCAL lcFilterStr
   lcFilterStr = "LOWER(CHRTRAN("+this.WordsField+"," +'""'+ ",'')) = LOWER(CHRTRAN('"+ALLTRIM(this.LastWord)+"'," +'""'+ ",''))"
   * ставим фильтр
   SET FILTER TO &lcFilterStr IN (this.WordsTable)

   * строим значение для фильтра в локальной переменной
   lcFilterStr = 'LowerAndNoQuotes('+this.WordsTable +'.'+ this.WordsField+') = "'+LowerAndNoQuotes(ALLTRIM(this.Value))+'" IN ' +this.WordsTable

   * устанавливаем фильтр по локальной переменной
   SET FILTER TO &lcFilterStr

* функция перевода в нижний регистр + замена всех кавычек на апостроф
FUNCTION LowerAndNoQuotes
LPARAMETERS tcText
RETURN CHRTRAN(LOWER(m.tcText), ["], ['])
ENDFUNC

func DoloyKavichki
lpara tcText

func DoloyKavichki(tcText)

      lnFCount = AFIELDS(arrFields)
      IF ASCAN(arrFields,"G", 1 ,m.lnFCount, 2 )# 0 
         *MESSAGEBOX("Achtung! General Fields!")
         *SUSPEND 
         lsSQLConvStr="SELECT"
         FOR lnF =  1  TO lnFCount
             field_name = arrFields(m.lnF, 1 )
             field_type = arrFields(m.lnF, 2 )
             DO CASE
                CASE field_type = "G"
                lsSQLConvStr = m.lsSQLConvStr +" "+ "CAST(CAST("+LEFT(m.field_name, 10 )+" AS W) AS M) AS "+m.field_name

                CASE field_type = "C"
                lsSQLConvStr = m.lsSQLConvStr +" "+ "RTRIM("+LEFT(m.field_name, 10 )+") AS "+m.field_name
                
                OTHERWISE
                lsSQLConvStr = m.lsSQLConvStr +" "+LEFT(m.field_name, 10 ) + " AS "+m.field_name
             ENDCASE
             IF lnF # lnFCount
                lsSQLConvStr = m.lsSQLConvStr +","
             ENDIF
         ENDFOR
         *SUSPEND 
         lcTempName = "tmp"+SYS( 3 )
         lcTempDBF = SYS( 2023 ) + "\" + m.lcTempName +".dbf"
         lsSQLConvStr = lsSQLConvStr + " FROM " + m.lcTempName + " INTO CURSOR " + m.lcCursor + " READWRITE"
         ERASE (lcTempDBF)
         COPY TO (lcTempDBF)
         *USE IN (m.lcCursor)
         USE (lcTempDBF) &&IN  0  &&ALIAS m.lcTempName
         &lsSQLConvStr 
         USE IN (m.lcTempName)
         ERASE (lcTempDBF)
         *MESSAGEBOX(lsSQLConvStr )
      ENDIF
      
      SELECT (lcCursor)
      * Реплюсинх NULL во всех полях по соотв.
      lnFCount = FCOUNT()
      FOR lnF =  1  TO m.lnFCount
          lcFName = FIELD(m.lnF)
          lcFType = TYPE(m.lcFName)
          DO CASE
             CASE m.lcFType = "D" OR m.lcFType = "T" 
                REPLACE ALL &lcFName WITH NVL(&lcFName,{..})
             CASE m.lcFType = "N"
                REPLACE ALL &lcFName WITH NVL(&lcFName, 0 )
             CASE m.lcFType = "C"
                REPLACE ALL &lcFName WITH NVL(&lcFName,'')
             CASE m.lcFType = "M"
                REPLACE ALL &lcFName WITH NVL(&lcFName,'')
          ENDCASE
      ENDFOR

lnFCount = FCOUNT()
      FOR lnF =  1  TO m.lnFCount
          lcFName = FIELD(m.lnF)
          lcFType = TYPE(m.lcFName)
          DO CASE
             CASE m.lcFType = "D" OR m.lcFType = "T" 
                REPLACE ALL &lcFName WITH NVL(EVALUATE(lcFName),{..}) &&lcFName,{..})
             CASE m.lcFType = "N"
                REPLACE ALL &lcFName WITH NVL(EVALUATE(lcFName), 0 ) &&lcFName, 0 )
             CASE m.lcFType = "C"
                REPLACE ALL &lcFName WITH NVL(EVALUATE(lcFName),'') &&lcFName,'')
             CASE m.lcFType = "M"
                REPLACE ALL &lcFName WITH NVL(EVALUATE(lcFName),'') &&lcFName,'')
          ENDCASE
      ENDFOR

   lnBarId = CNTBAR(lcParentName) + 1 
   lcAction = RTRIM(curMenuBars.Command)
   DEFINE BAR lnBarId OF (lcParentName) PROMPT RTRIM(curMenuBars.Prompt) PICTURE RTRIM(curMenuBars.Icon) MESSAGE RTRIM(curMenuBars.Message)
   ON SELECTION BAR lnBarId OF (lcParentName) &lcAction

FUNCTION OOoIsInstalled()
	LOCAL oServiceManager
	oServiceManager = .NULL.
	LOCAL cOldErrHandler
	cOldErrHandler = ON( "ERROR" )
	ON ERROR = DoNothing__ErrorHandler( ERROR(), MESSAGE(), LINENO(), SYS( 16 ), PROGRAM(), SYS( 2018 ) )
		oServiceManager = OOoGetServiceManager()
	ON ERROR &cOldErrHandler
	* If we could create a Service Manager,
	*  then OpenOffice.org must be installed.
	
	RETURN NOT ISNULL(oServiceManager)
ENDFUNC