Igor Korolyov

ptaxa888
1. Формирование запроса по всем полям (вывод всех полей но с фильтром по одному из полей) поиск организован через LOCATE

Locate не делает фильтрации - он лишь перемещает указатель на первую подходящую запись - в гриде/бровзе/при экспорте всё равно будут все записи. Фильтр можно сделать по старому, через SET FILTER или опции FOR в соответствующих командах вывода (BROWSE/EXPORT/COPY TO), но лучше запросом с WHERE - потом такой отфильтрованный курсор уже можно показывать/экспортировать - всё что угодно делать.

ptaxa888
Как построить условие &lcWhere когда оно имеет следующий вид:
Условие: lcWhere=[ where a+c+b]

Так и построить.

fieldName = "tbl1.someString"
operator = ">="
filterValue = "Иванов"
lcWhere = m.fieldName + m.operator + "m.filterValue"
*для проверки что получилось "tbl1.someString>=m.filterValue"
? m.lcWhere
* потом в запросе
SELECT ... FROM ... WHERE &lcWhere INTO CURSOR ...

Можно и без переменных, сразу из элементов управления брать значения. Вот только для собственно искомого значения лучше всё-таки переменную сделать, куда и поместить значение, преобразовав его к тому же типу, что и поле - если поле строковое, то в переменной должна быть строка, если числовое - то число.
В принципе, конечно, можно и в строку запроса вместо + "m.filterValue" написать + "ThisForm.txtFilter.Value" - если в Value этого элемента будет обеспечен надлежащий тип данных. Но лучше всё же через промежуточную переменную работать. Главное обеспечить её видимость в строке с командой SELECT - это если вдруг строка условия, переменная со значением и сам SELECT находятся в разных методах.

local cText1, cCombo2, cRekviz
cText1=Upper(alltrim(thisform.text1.value))
cCombo2=Alltrim(thisform.combo2.value)
Select Fields && курсор в котором лежит поле сравнения Fields.tblfld
Set filter to
Scan for lcheck=1
cRekviz=alltrim(Fields.tblfld)
Endscan 
Set filter to lcheck=0
cWhere=[where cRekviz+combo2+text1] &&только включить преобразование всех переменных в один тип данных
cRekviz=[select «нужные поля» from «таблица» left join .... on ....] +;
&cWhere + [into cursor cZapros readwrite]
&cRekviz
Select cZapros
Browse

AndyNigmatec
мне вот интерестно, ну ладно, опустим жуткое нагромождение при поиске фамилии... но сама логика то какая?
когда уже выбрали конкретное ФИО - нафига там "=" и выполнить запрос? в комбо то уже конкретное значение выбрано. И еще более не понятен тогда смыл "!=" ... загадки пряма )))

а по поводу кавычек = так чего сложного то

Text1=[']+thisform.text1.value+[']

ptaxa888
Все эти нагромождения с IF чисто для пользователя, чтобы выскакивали Сообщения по которым можно понять где ошибка.
Супееер, спасибо))
Я все переорганизовал, без использования созданных queries.
Вечером скину как все изменилось. Все же такой избыточный бред был написан у меня до этого. Спасибо большое)
Вот только сейчас станет вопрос с как применить CTOD когда в text1 попадёт дата(D).

Text1=[CTOD]+[(]+[‘]+thisform.text1.value+[‘]+[)]

Igor Korolyov
Не надо никаких кавычек. Просто сделай переменную со ЗНАЧЕНИЕМ из поля

lcFilterField = ThisForm.comboField.Value &&предполагая что там ИМЯ ПОЛЯ С АЛИАСОМ - если нет, то ищи по таблице полей соответствие и бери оттуда имя таблицы и имя поля.
lcFilterCondition = ThisForm.comboOperator.Value && предполагая что в комбо в виде строк находятся =, >, <, # и т.п.
luFilterValue = ThisForm.txtSearchText.Value
И пропиши в текст запроса, раз уж целиком весь SELECT там держишь,
lcScript = ... + " WHERE " + m.lcFilterField + m.lcFilterCondition + "m.luFilterValue " + ...

Для чисел просто проинициализируй текстбокс числом (.Value = 0), для дат - датой (.Value = {} - это пустая дата). И всё, никаких кавычек и тем более никакого г*на с CTOD не нужно

LOCAL lcScript, cWhere, text1, text2, comb1
lcScript=''
cWhere=''
text1=[']+UPPER(ALLTRIM(thisform.text1.value))+[']
text2=[CTOD]+[(]+[']+UPPER(ALLTRIM(thisform.text1.value))+[']+[)]
uslovie=thisform.combo2.Value
comb1=ALLTRIM(thisform.combo1.value)
IF comb1=="4. Дата приказа" OR comb1=="12. Дата присвоения звания" OR comb1=="14. Дата приказа (присв. звания)";
 OR comb1=="15. Присвоение очередного звания" OR comb1=="17. Дата рождения" OR comb1=="18. Дата поступления в органы";
 OR comb1=="19. Hачало работы в службе" OR comb1=="20. Hазначение на должность" OR comb1=="27.2. Дата рождения (1)";
 OR comb1=="27.4. Дата рождения (2)" OR comb1=="27.6. Дата рождения (3)" OR comb1=="30. Дата приказа (квалиф.зв.)";
 OR comb1=="32. Дата увольнения/перемещения/" OR comb1=="35. Дата приказа (уволн./перемещ.)" OR comb1=="40. Дата выдачи паспорта";
 OR comb1=="53. Дата действия ВУ" && Вот эта штукенция не нравится оч
    SELECT Fields
    SET FILTER TO 
    SCAN FOR lcheck=1
    lcScript=lcScript+', '+ALLTRIM(Fields.tblfld)+' as '+ALLTRIM(Fields.falias)
    ENDSCAN 
    SET FILTER TO lcheck=0
    SELECT cChoice2
    SCAN FOR lcheck=1
    cWhere=[ WHERE ]+ALLTRIM(cChoice2.tblfld)+uslovie+(text2)
    ENDSCAN 
    *MESSAGEBOX(cWhere)
ELSE
    SELECT Fields
    SET FILTER TO 
    SCAN FOR lcheck=1
    lcScript=lcScript+', '+ALLTRIM(Fields.tblfld)+' as '+ALLTRIM(Fields.falias)
    ENDSCAN 
    SET FILTER TO lcheck=0
    SELECT cChoice2
    SCAN FOR lcheck=1
    cWhere=[ WHERE ]+ALLTRIM(cChoice2.tblfld)+uslovie+(text1)
    ENDSCAN 
    *MESSAGEBOX(cWhere)
ENDIF


lcScript=[SELECT ic.id ]+lcScript+[ FROM ic LEFT JOIN fio ON ic.id=fio.id]+;
    [ LEFT JOIN doljnost ON ic.a02=doljnost.a02]+;
    [ LEFT JOIN ic!sprav sprav ON ic.a05=sprav.kod]+;
    [ LEFT JOIN ic!sprav sprav_a ON ic.a06=sprav_a.kod]+;
    [ LEFT JOIN ic!sprav sprav_b ON ic.a07=sprav_b.kod]+;
    [ LEFT JOIN ic!sprav sprav_c ON ic.a11=sprav_c.kod]+;
    [ LEFT JOIN ic!sprav sprav_d ON ic.a16=sprav_d.kod]+;
    [ LEFT JOIN obraz ON ic.id=obraz.id]+;
    [ LEFT JOIN deti ON ic.id=deti.id]+;
    [ LEFT JOIN ic!sprav sprav_g ON ic.a26=sprav_g.kod]+;
    [ LEFT JOIN ic!sprav sprav_h ON ic.a29=sprav_h.kod]+;
    [ LEFT JOIN ic!sprav sprav_e ON ic.a31=sprav_e.kod]+;
    [ LEFT JOIN passport ON ic.id=passport.id]+;
    [ LEFT JOIN phone ON ic.id=phone.id]+;
    [ LEFT JOIN avto ON ic.id=avto.id]+;
    [ LEFT JOIN prava ON ic.id=prava.id]+;
    [ LEFT JOIN ic!sprav sprav_f ON ic.a37=sprav_f.kod]+;
    [ LEFT JOIN ic!sprav sprav_k ON ic.a39=sprav_k.kod]+;
    cWhere+[ INTO CURSOR cOut READWRITE]
*MESSAGEBOX(lcScript)
&lcScript
SELECT cOut
BROWSE 

text1=UPPER(ALLTRIM(thisform.text1.value))
cWhere=[ WHERE ]+ALLTRIM(cChoice2.tblfld)+uslovie+"m.text1"

IF fields.tip==C
...
else
....
endif

of63
Ты вобще не спишь )
Посмотри как выглядят даты в фоксе
? DTOC(DATE()) && вот так и выглядит дата-строка, зависит от SET DATE, как и все нижележащее
? DATE() && такой вида значения "дата" по человечески. Ее вид на твоем экране может отличаться от моего вида этой даты, это просто следствия твоих установок SET DATE и подобных. Ты можешь получить эту же строку "изображение даты" из ф-ии TRANSFORM(), она все возвращает в C-виде, как CSTR() ...вроде в VBA... забыл)

ptaxa888
Была бы такая функция которая переводила Char в Char т.е. не ломала символьный тип. и в тоже время тип Data переводила в Char

FUNCTION MyConvert
LPARAMETRS lcValue
local lcRetValue
lcRetValue=''
DO CASE
CASE TYPE('lcValue')='D'
  lcRetValue = ... делаем одно ...
CASE TYPE('lcValue')='T'
  lcRetValue = ... делаем другое ...
CASE TYPE('lcValue')='С'
  lcRetValue = ... делаем третье ...
и .т.д.
OTHERWISE
ENDCASE
RETURN lcRetValue

AndyNigmatec

ptaxa888
Была бы такая функция которая переводила Char в Char т.е. не ломала символьный тип. и в тоже время тип Data переводила в Char

- так напиши свою )))) ... типа (тупо смысл):

FUNCTION MyConvert
LPARAMETRS lcValue
local lcRetValue
lcRetValue=''
DO CASE
CASE TYPE('lcValue')='D'
  lcRetValue = ... делаем одно ...
CASE TYPE('lcValue')='T'
  lcRetValue = ... делаем другое ...
CASE TYPE('lcValue')='С'
  lcRetValue = ... делаем третье ...
и .т.д.
OTHERWISE
ENDCASE
RETURN lcRetValue

ptaxa888
Это хорошее решение т.к. оно поможет мне уйти от IF и его длинного хвоста. IF применил т.к. пришлось поделить пути следования от выбранного типа переменной text1. Нужно переработать свою избыточность.

ptaxa888
Может добавить дополнительное поле в курсор с указанием типа данный C или D!?

Igor Korolyov
По тупому - через свойство MultiSelect. Но это для пользователя (для 90% типичных) весьма недружественно - надо всякие Crtl зажимать чтобы прокликать нужные элементы, слетает выбор если чуть не туда кликнул...
А по хорошему - классом листбокса который картинки показывает перед каждым элементом, и ловит нажатия мышкой на них - ну плюс к тому контекстное меню для "выбрать всё, снять выбор со всего, инвертировать выбор"... Выглядит он примерно так:
[attachment 29137 checklist.png]
Исходник я приложу, только он писался больше 15 лет назад и ещё под 7 фокс
Он точно некорректно работает будучи размещён внутри контейнера (координаты клика мышки неверно считаются - надо было на OBJTOCLIENT переделать).
[attachment 29139 CheckList.zip]

LOCAL cWhere, tipC2, comb3
cWhere=''
uslovie=thisform.combo2.Value
tipC2=ALLTRIM(cChoice2.tip)
comb3=ALLTRIM(thisform.combo3.value)
*.....бла бла бла
CASE tipC2=('S')
    *построение условия WHERE если переменная из словаря
    SELECT cChoice2
    SCAN FOR lcheck=1
    cWhere=[ WHERE ]+ALLTRIM(cChoice2.tblfld)+uslovie+"m.comb3"
    ENDSCAN 
*.....бла бла бла

cWhere=[ WHERE ]+ALLTRIM(cChoice2.tblfld)+uslovie+"m.list(i)"+' OR '+ALLTRIM(cChoice2.tblfld)+uslovie+"m.list(i)"+;
' OR '+ALLTRIM(cChoice2.tblfld)+uslovie+"m.list(i)"