*************************************************************
*** prSQLEXEC процедура обертка на SQLEXEC
*************************************************************
PROCEDURE prSQLEXEC
PARAMETERS pnhConnect,pcSQL,pcCursor
*тут поставив PARAMETERS бо в низу є виклик  prg_connect а в ній використовую m.pnhConnect
*LPARAMETERS pnhConnect,pcSQL,pcCursor
*назад возвращаю lnresult, если он <0 то ошибка
*якщо выдбувся реконнект то мыняэться hConnect, бо передаю як адрес параметра
LOCAL lnresult
*	if _VFP.StartMode=0
IF PARAMETERS()=2
	m.pcCursor=''
ENDIF

*1-проверка связи, если нет то переподключаемся
IF m.pnhConnect>0
	m.lnresult=SQLEXEC(m.pnhConnect,"")
	IF m.lnresult<0
		*дістаємо стірчку підключення
		LOCAL lcConnStr
		m.lcConnStr=SQLGETPROP(m.pnhConnect,'ConnectString')
*!*			IF EMPTY(m.lcConnStr)
*!*					on shut
*!*					quit
*!*				RETURN -1
*!*			ENDIF
		m.pnhConnect=SQLSTRINGCONNECT(m.lcConnStr)
		IF m.pnhConnect < 0
			*не зміг підключитися викликаю вікно і чекаю 10секунд або якщо не натиснули так 
			*і повторно пробую підключитися, якщо праціник натиснув ні то вихід з програми
			LOCAL lcstr,lbok,lncmd
			m.lcstr="Не можу підключитись до сервера!"+CHR(13)+;
				"Автоматичне перепідключення відбудеться"+CHR(13)+;
				"через 10 секунд."+CHR(13)+;
				"Для перепідключення натисніть Да."+CHR(13)+;
				"Для виходу з программи натисніть Нет."
			m.lbok=.t.	
			DO WHILE m.lbok
				m.lncmd=MESSAGEBOX(m.lcstr,"Помилка зв'язку з сервером PostgreSQL!",68,10000)
				IF m.lncmd=-1 OR m.lncmd=6
					*перепідключення
					m.pnhConnect=SQLSTRINGCONNECT(m.lcConnStr)
					IF m.pnhConnect>=0
						m.lbok=.f.
					endif
				ELSE
					*lncmd=7 вихід
					on shut
					quit
				ENDIF
			ENDDO
	*		DO FORM mymessagebox WITH 'Помилка',m.lcTextLog,1
			*тут потрібно вияснити чому немає звязку и запропонувати Повтор, Вихід з Программи
	*		= MESSAGEBOX('Не можу підключитися до сервера, перевірте чи є у Вас мережа!', 16, 'Сервер')
	*		on shut
	*		quit
	*		return m.lnresult
		ENDIF
	ENDIF
	*звязок є, або відновлено
	m.lnresult=SQLEXEC(m.pnhConnect,m.pcSQL,m.pcCursor)
	=prg_connect(m.lnresult)
	*if (prg_connect(m.lnresult))
	*	return .f.
	*ENDIF
ELSE
	m.lnresult=-1
ENDIF
RETURN m.lnresult
ENDPROC