powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / И снова ГРИД. Передача даты.
10 сообщений из 10, страница 1 из 1
И снова ГРИД. Передача даты.
    #33884880
Scorpio_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите кто нибудь. Буру данные с оракловского сервера, толкаю их в курсор, затем курсор в грид. Вопрос, там есть поле даты, как мне сделать так, чтобы отображалась в гриде только дата без времени, а то как то некрасиво получается.
...
Рейтинг: 0 / 0
И снова ГРИД. Передача даты.
    #33884922
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
поищи поиском
было уже

есть несколько решений

самый простой
ширину колонки выставить до размера, чтобы
видна была только дата
и дергаться
затем с методами вен и валид
текстбокса в колонке (менять вальюе)
...
Рейтинг: 0 / 0
И снова ГРИД. Передача даты.
    #33885017
гена_2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Scorpio_mdПодскажите кто нибудь. Буру данные с оракловского сервера, толкаю их в курсор, затем курсор в грид. Вопрос, там есть поле даты, как мне сделать так, чтобы отображалась в гриде только дата без времени, а то как то некрасиво получается.

Это делается вот так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
cSP = "SELECT Code_p, N_PUTEV, TIMEOUT FROM fin.tfv_pass" + ;
		" WHERE CODE_SAN = " + THISFORM.nsanator + " AND " + ; 
		"TIMEOUT >= TO_DATE('" + THISFORM.dChosendata + "', 'dd/mm/yyyy')" + ;
		" AND " + "TIMEOUT <= TO_DATE('" + THISFORM.nchosenprimaryid + "', 'dd/mm/yyyy') ORDER BY N_PUTEV"

k = SQLExec(gnConnHandle, cSP, 'PList')

	with ThisForm.PLGrid1
		.ColumnCount =  2 
		.RecordSourceType =  1 
		.RecordSource = "Plist"
	
		.Column1.ControlSource = "Plist.n_putev"
		.Column1.ReadOnly = .T.
		.Column1.Header1.Caption = "Номер"

		.Column2.ControlSource = "TTOD(Plist.Timeout)"
		.Column2.ReadOnly = .T.	
		.Column2.Header1.Caption = "Дата"
	
	ENDWITH

	ENDIF


...
Рейтинг: 0 / 0
И снова ГРИД. Передача даты.
    #33885071
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да,
если бы еще грид затем позволил
редактировать "TTOD(Plist.Timeout)"

то, а так ...
...
Рейтинг: 0 / 0
И снова ГРИД. Передача даты.
    #33885368
Гена_2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
раз уж так...

я же не навязываю, я делюсь тем как делаю...
В гриде НИЧЕГО не редактирую!!!!
Слтал на грид в нужную строку
нажал кнопку - редактировать
вызвалась форма редактирования (читал, что Вы не любите ду форм )

DO FORM ... WITH TTOD(Plist.Timeout)

на форме TTOD(Plist.Timeout) передалось в текстбокс с дата тайп = Date

кнопка сохранить:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
InDay = DTOC(Thisform.Dat1.Value)

cSP = "{call MySchema.MyStoredProcedure(1, '0', ?InDay)}"  

InDay = DTOC(Thisform.Dat1.Value)
-------------------------------------
CREATE OR REPLACE PROCEDURE MyStoredProcedure
(nToDo IN NUMBER, cRecordid IN VARCHAR2, StartDay IN VARCHAR2
)
IS

BEGIN


.................................

IF nToDo =  2  THEN

	UPDATE MyTable
	SET 
.......................
		dStartDate = TO_DATE(StartDay, 'dd/mm/yyyy'),
	WHERE Code = cRecordid ;
END IF ;
..................

COMMIT ;
END ;
/


странно?
непривычно???

Тем не менее на 100% работает и никаких проблем....

да, конечно я переворотами дат в стригн и обратно я сознаюсь перемутил, надо было быстро сделать и я подсмотрел, что наш столичный разработчик почему-то постоянно использует TO_DATE(...., 'dd/mm/yyyy'), ну и подумал "зачем изобретать велосипед..."

Если не нравится такой метод, что ж у каждого есть свой
...
Рейтинг: 0 / 0
И снова ГРИД. Передача даты.
    #33885404
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Гена, я ж тебя не ругаю
сам через это прошел

вот когда апдейтить нужно, тады вот проблемы,
а так конечно

Владимир Журавлев показывал когда-то как рулить через курсорсхему,
но там свои проблемы
...
Рейтинг: 0 / 0
И снова ГРИД. Передача даты.
    #33885432
Scorpio_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А теперь еще такой вопрос. Как мне выбрав запись по нажатию на клавишу ENTER, произошло событие:

if nKeyCode=23
ThisForm.celi_vizita_.SetFocus
thisform.grid1.SetFocus
ENDIF

Пробовал в GRID.KEYPRESS, она только по полям бегает
...
Рейтинг: 0 / 0
И снова ГРИД. Передача даты.
    #33885528
Гена_2006
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
alex11100Гена, я ж тебя не ругаю
сам через это прошел

вот когда апдейтить нужно, тады вот проблемы,
а так конечно

Владимир Журавлев показывал когда-то как рулить через курсорсхему,
но там свои проблемы


да я нормально воспринял твои слова
не было и намека на ругань... нормальное общение....

Апдейтит в указанном случае вроде нормально... глюков не наблюдал... если дата как строка передалась в ХП - остальное фыоксе по боку...

а курсор-схема может и круче, но что-то лень вникать...
...
Рейтинг: 0 / 0
И снова ГРИД. Передача даты.
    #33892365
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 alex11100

Что за курсорсхема?
...
Рейтинг: 0 / 0
И снова ГРИД. Передача даты.
    #33892422
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
у КА ест свойство - курсорсхема

field type, field2 type, ....


CursorAdapter.CursorSchema = ;
"col1 I, col2 Character(25), col3 M, col4 Currency, col5 n(12,3)"
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / И снова ГРИД. Передача даты.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]