lnFCount = AFIELDS(arrFields)
      IF ASCAN(arrFields,"G", 1 ,m.lnFCount, 2 )# 0 
         *MESSAGEBOX("Achtung! General Fields!")
         lsSQLConvStr="SELECT" && в сию переменную соберем конвертационную команду SELECT
         FOR lnF =  1  TO m.lnFCount
             field_name = arrFields(m.lnF, 1 )
             field_type = arrFields(m.lnF, 2 )
             IF field_type = "G"
                lsSQLConvStr = lsSQLConvStr +" "+"CAST(CAST(field_name AS W) AS M) AS "+field_name
             ELSE
                lsSQLConvStr = lsSQLConvStr +" "+field_name
             ENDIF
             IF lnF # lnFCount
                lsSQLConvStr = lsSQLConvStr +","
             ENDIF
         ENDFOR
         lcTempName = "tmp"+SYS( 3 )
         lcTempDBF = SYS( 2023 ) + "\" + m.lcTempName +".dbf"
         lcTempFPT = SYS( 2023 ) + "\" + m.lcTempName +".fpt"
         lsSQLConvStr = lsSQLConvStr + " FROM " + m.lcTempName + " INTO CURSOR " + m.lcCursor + " READWRITE"
         * полученный от SQL-сервера курсор радостно сливаем в загашнег
         COPY TO (lcTempDBF)
         * и теперь его копию оттедова подымаем
         USE (lcTempDBF)
         * исполняем конвертационный SELECT
         &lsSQLConvStr 
         * закрываем конвертированный курсор
         USE IN (m.lcTempName)
         * убиваем его DBF
         ERASE (lcTempDBF)
         * ну и FPT
         ERASE (lcTempFPT)
      ENDIF