:: Visual Foxpro, Foxpro for DOS
Вставка условия
sonik
Автор

Сообщений: 31
Дата регистрации: 28.06.2016
Есть метод:
If Used('nlssaldo')
Use In nlssaldo
Endif
IF TYPE('_screen.fd')=='L' AND _screen.fd
=zexec([exec saldovka1 ]+Str(Thisform.nls,6),'nlssaldo')
ELSE
=zexec([exec saldovka ]+Str(Thisform.nls,6),'nlssaldo')
ENDIF
*Browse
With Thisform.grid1
If Used([nlssaldo])
=CursorSetProp("SendUpdates",.F.,'nlssaldo')
.RecordSource=''
.ColumnCount = 6
.RecordSource='nlssaldo'
With .Column1
.ControlSource = 'nlssaldo.Nm_usl'
.Width = 120
.ReadOnly = .T.
.Alignment=0
.header1.Caption ='Óñëóãà'
.header1.WordWrap=.T.
.header1.Alignment=2
.header1.FontBold = .T.
Endwith
With .Column2
.ControlSource = 'nlssaldo.sm_in'
.Width = 90
.header1.Caption ='Âõîäÿùåå ñàëüäî'
.header1.WordWrap=.T.
.header1.Alignment=2
.header1.FontBold = .T.
Endwith
With .Column3
.ControlSource = 'nlssaldo.sm_n'
.Width = 90
.header1.Caption ='Íà÷èñëåíî'
.header1.WordWrap=.T.
.header1.Alignment=2
.header1.FontBold = .T.
Endwith
With .Column4
.ControlSource = 'nlssaldo.sm_k'
.Width = 90
.header1.Caption ='Êîððåêòèðîâêà'
.header1.WordWrap=.T.
.header1.Alignment=2
.header1.FontBold = .T.
Endwith
With .Column5
.ControlSource = 'nlssaldo.sm_o'
.Width = 90
.header1.Caption ='Îïëà÷åíî'
.header1.WordWrap=.T.
.header1.Alignment=2
.header1.FontBold = .T.
Endwith
With .Column6
.ControlSource = 'nlssaldo.sm_out'
.Width = 90
.header1.Caption ='Èñõîäÿùåå ñàëüäî'
.header1.WordWrap=.T.
.header1.Alignment=2
.header1.FontBold = .T.
Endwith
.SetAll("DynamicBackColor","IIF(nls =-1, RGB(255,245,215) , RGB(255,255,255))", "Column")
.SetAll("DynamicFontBold" ,"IIF(nls =-1, .t. , .f.)", "Column")
If Type('thisform.row')=='L'
Go Bott
Else
Go Thisform.Row
Endif
*ENDIF
Endif
* Thisform.grid1.ActivateCell(Thisform.Row,Thisform.Col)
.Refresh()
Endwith
Как выводить .ControlSource = 'nlssaldo.Nm_usl'(наименования услуг) не все, а например не равные "Мойка окон"?
Ratings: 0 negative/0 positive
Re: Вставка условия
PaulWist

Сообщений: 14601
Дата регистрации: 01.04.2004
1. Или в процедуры saldovka/saldovka1 передать условие отбора:
'nlssaldo.Nm_usl' <> "Мойка окон"?

2. Либо на клиенте наложить фильтр на курсор 'nlssaldo.Nm_usl' <> "Мойка окон"


------------------
Есть многое на свете, друг Горацио...
Что и не снилось нашим мудрецам.
(В.Шекспир Гамлет)
Ratings: 0 negative/0 positive
Re: Вставка условия
sonik
Автор

Сообщений: 31
Дата регистрации: 28.06.2016
а можно поподробней,как наложить фильтр на курсор?
CursorSetProp("SendUpdates",.F.,'nlssaldo', 'nlssaldo.Nm_usl' <> "Мойка окон") так что ли?
Ratings: 0 negative/0 positive
Re: Вставка условия
Аспид

Сообщений: 3475
Откуда: Москва
Дата регистрации: 01.04.2005
sonik
CursorSetProp("SendUpdates",.F.,'nlssaldo', 'nlssaldo.Nm_usl' <> "Мойка окон") так что ли?
Нет.
Вам о 2х вариантах.
1й - у вас видимо есть процедуры на сервере saldovka иsaldovka1
Они возвращают курсор. Вот на сервере и сформировать курсор с заданными условиями.

2й Не очень, но работать будет. Просто осторожнее с ним.
Прямо на клиенте пишете.
set filter to nlssaldo.Nm_usl <> "Мойка окон"


------------------
Ratings: 0 negative/1 positive
Re: Вставка условия
of63

Сообщений: 25161
Откуда: Н.Новгород
Дата регистрации: 13.02.2008
(а SET COLLATE, SET EXACT, SET ANSI - это разве не важно, когда пишут nlssaldo.Nm_usl <> "Мойка окон" ? )
Ratings: 0 negative/1 positive
Re: Вставка условия
Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002
of63
(а SET COLLATE, SET EXACT, SET ANSI - это разве не важно, когда пишут nlssaldo.Nm_usl <> "Мойка окон" ? )
Для того кто пишет
sonik
CursorSetProp("SendUpdates",.F.,'nlssaldo', 'nlssaldo.Nm_usl' <> "Мойка окон")
абсолютно неважно
Не владея инструментом ни на грамм лезть чего-то менять в ПО... Печально, очень печально...


------------------
WBR, Igor
Ratings: 1 negative/0 positive
Re: Вставка условия
sonik
Автор

Сообщений: 31
Дата регистрации: 28.06.2016
Спасибо все получилось
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 33 dafni_2004  (Гостей: 32)

© 2000-2024 Fox Club 
Яндекс.Метрика