ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / gljuk
7 сообщений из 7, страница 1 из 1
gljuk
    #33781513
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dj_raven
Гость
Ljudi, Pri zapuske formi s parametrami vikidivajetsja takaja oshibka (oshibka prilozhena graficheskim fajlom). Posle chego delajesh jej cancel, esche raz zapuskajesh i vsje rabotajet dalshe kak chasi (vo vsjakom sluchaje v samom VFP). Mozh kto znajet chto eto za gljuk, oshibka vikidivajetsja ne postojanno, a epizodicheski. Ili hotjabi mozhet podskazatj kak najti prichinu etoj oshibki?
...
Рейтинг: 0 / 0
08.06.2006, 17:40
| Ответить | Цитировать | Написать  
gljuk
    #33781907
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel!Riser
Участник
скорей фсего после каких-то манипуляций слетает из SET PROCEDURE твоя мулька, кот хранит класс контрола с этой формы. В frm.Load() попробуй сделать SET PROCEDURE TO ind_dep.app.PRG ADDITIVE
либа как вариант теряеца SET PATH и соотв Фокс не может найти твою мульку. А путь может теряца например после пользования MAPI
...
Рейтинг: 0 / 0
08.06.2006, 20:15
| Ответить | Цитировать | Написать  
gljuk
    #33782592
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dj_raven
Гость
A v frm.Load kakoj formi eto delatj nado? Vnizu kod, s pomoschju kotorogo ja vizivaju etu formu. Pervij variant rabochij, vtoroj variant, v kotorom i voznikajet oshibka. Do moih procedur dazhe ne dohodit, vo vsjakom sluchaje, v init stavil breakpoint, no do nego ne dohodilo vikidivalo v tom kode chto budet nizhe.
Rabochij variant (dobavlenije zapisej v bazu dannih)
Код: plaintext
1.
2.
3.
IF THISFORM.addmode= 1 
	DO FORM ind_dep_add_edit.scx WITH  1 , thisform, recnum
ENDIF
nerabochij variant(rezhim formi izmenenija zapisej)
Код: plaintext
1.
2.
3.
4.
	IF THISFORM.addmode= 1 
		DO FORM ind_dep_add_edit.scx WITH  2 , thisform
		THISFORM.Hide
	ENDIF
...
Рейтинг: 0 / 0
09.06.2006, 10:53
| Ответить | Цитировать | Написать  
gljuk
    #33782713
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dj_raven
Гость
da, i esche, ind_dep_arr javljajetsja massivom, opredeljennim kak public. ind_dep_arr.prg ne suschestvujet v prirode i obraschenije k nemu netu nigde u menja Jesli tolko sam FOX ne postavil. Chto-to pohozheje bilo uzhe, tam ja spravilsja, perestaiv opredeleinje iz Form->Edit property/method v metod init, oshibka ischezla, zdesj eto ne pomogajet
...
Рейтинг: 0 / 0
09.06.2006, 11:25
| Ответить | Цитировать | Написать  
gljuk
    #33782916
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dj_raven
Гость
Da, i vot esche odin variant oshibki chto on vidajet.
...
Рейтинг: 0 / 0
09.06.2006, 12:14
| Ответить | Цитировать | Написать  
gljuk
    #33783187
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Ch
Участник
Посмотрите форум - решение проблемы много раз описано.

Открываете Вашу форму как обычную таблицу и ищите вхождение по ind_dep_add_edit . Где-то в Memo поле будет корень этой проблемы, далее поступаете соотетсвенно обстоятельствам...

Good luck!
...
Рейтинг: 0 / 0
09.06.2006, 13:26
| Ответить | Цитировать | Написать  
gljuk
    #33783213
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dj_raven
Гость
Vsje, razobralsja. Vot tolko problemmu to reshitj reshil, no pochemu tak ne pojmu. Mozh kto-nitj objaznitj smozhet. Itak, polnij kod vizova formi po scheslchku knopkiL
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
LOCAL stats
LOCAL ARRAY config_arr[ 4 ]
SELECT config
LOCATE FOR ALLTRIM(Entry_name)=ALLTRIM("Add_Edit_mode")
SCATTER TO config_arr
THISFORM.addmode=config_arr[ 2 ]

SET PROCEDURE TO multiuser.prg ADDITIVE 
	stats=ind_dep_LockRec()
RELEASE PROCEDURE multiuser.prg
IF stats

	IF THISFORM.addmode= 1 
		DO FORM ind_dep_add_edit.scx WITH  2 , thisform &&mesto, gde viletala oshibka
		THISFORM.Hide
	ENDIF 
	IF THISFORM.addmode= 2 
		DO FORM ind_dep_add_edit_main.scx WITH  2 , thisform
		THISFORM.Hide
	ENDIF
ELSE 
	MESSAGEBOX("Ýòà çàïèñü óæå îòêðûòà äðóãèì ïîëüçîâàòåëåì, ïîïðîáóéòå îòêðûòü ïîïîçæå")
ENDIF

Kod proceduri iz multiuser.prg iz-za chego viletala oshibka
Код: 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.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
FUNCTION ind_dep_LockRec
	LOCAL stats
	PUBLIC ARRAY ind_dep_arr1( 15 ) &&sobsno, iz-za etoj peremennoj i viletala oshibka
	LOCAL ARRAY recnum[ 2 ]
	SELECT industrial_department
	SCATTER TO ind_dep_arr1
	recnum[ 1 ]=RECNO("industrial_department")
	stats=LockRec(@recnum,  1 , "industrial_department")
	IF stats
		RETURN .F.
	ENDIF 

	SELECT ind_dep_incomes
	SET FILTER TO ind_dep_incomes.main_id=ind_dep_arr1[ 2 ]
	recnum[ 1 ]=RECNO("ind_dep_incomes")
	SKIP 
	recnum[ 2 ]=RECNO("ind_dep_incomes")
	stats=LockRec(@recnum,  2 , "ind_dep_incomes")
	IF stats
		RETURN .F.
	ENDIF 

	SELECT ind_dep_charges_on_manufacture
	SET FILTER TO ind_dep_charges_on_manufacture.main_id=ind_dep_arr1[ 3 ]
	recnum[ 1 ]=RECNO("ind_dep_charges_on_manufacture")
	SKIP 
	recnum[ 2 ]=RECNO("ind_dep_charges_on_manufacture")
	stats=LockRec(@recnum,  2 , "ind_dep_charges_on_manufacture")
	IF stats
		RETURN .F.
	ENDIF 

	SELECT ind_dep_invested_means
	SET FILTER TO ind_dep_invested_means.main_id=ind_dep_arr1[ 4 ]
	recnum[ 1 ]=RECNO("ind_dep_invested_means")
	SKIP 
	recnum[ 2 ]=RECNO("ind_dep_invested_means")
	stats=LockRec(@recnum,  2 , "ind_dep_invested_means")
	IF stats
		RETURN .F.
	ENDIF 

	SELECT ind_dep_firm_charges
	SET FILTER TO ind_dep_firm_charges.main_id=ind_dep_arr1[ 5 ]
	recnum[ 1 ]=RECNO("ind_dep_firm_charges")
	SKIP 
	recnum[ 2 ]=RECNO("ind_dep_firm_charges")
	stats=LockRec(@recnum,  2 , "ind_dep_firm_charges")
	IF stats
		RETURN .F.
	ENDIF 
	IF !stats
		RETURN .T.
	ENDIF 
ENDFUNC
oshibka viletala iz-za ind_dep_arr1 massiva. Kogda on bil opredeljen kak Local. Postavil Public, oshibka ischezla. V chjem delo? Ne hochu ja jego v Public ostavljatj!!!
...
Рейтинг: 0 / 0
09.06.2006, 13:33
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / gljuk
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=252&tid=1591441]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 56ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 231ms
total:  366ms
созд. / загр.: 366ms
x
x
Закрыть


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