Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / gljuk / 7 сообщений из 7, страница 1 из 1
08.06.2006, 17:40
    #33781513
dj_raven
dj_raven
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gljuk
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, 20:15
    #33781907
Hel!Riser
Hel!Riser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gljuk
скорей фсего после каких-то манипуляций слетает из SET PROCEDURE твоя мулька, кот хранит класс контрола с этой формы. В frm.Load() попробуй сделать SET PROCEDURE TO ind_dep.app.PRG ADDITIVE
либа как вариант теряеца SET PATH и соотв Фокс не может найти твою мульку. А путь может теряца например после пользования MAPI
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2006, 10:53
    #33782592
dj_raven
dj_raven
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gljuk
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, 11:25
    #33782713
dj_raven
dj_raven
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gljuk
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, 12:14
    #33782916
dj_raven
dj_raven
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gljuk
Da, i vot esche odin variant oshibki chto on vidajet.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2006, 13:26
    #33783187
Sergey Ch
Sergey Ch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gljuk
Посмотрите форум - решение проблемы много раз описано.

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

Good luck!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2006, 13:33
    #33783213
dj_raven
dj_raven
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
gljuk
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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / gljuk / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 542ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1591441]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 190ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 246ms
total:  542ms
x
x
Закрыть


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