This.nHandle = SQLSTRINGCONNECT(lcConnString, .T.)

DEFINE CLASS test1 AS Dataenvironment
	Name = "test1"
	Width =  155 
	Height =  84 
	*InitialSelectedAlias = "curkam"
	DataSourceType = "ODBC"

	ADD OBJECT cashem AS _cashem
	ADD OBJECT casprkam AS _casprkam

	PROCEDURE BeforeOpenTables
		*** Select connection code: DO NOT REMOVE
		***<DataSource>
		This.DataSource = goApp.nHandle
		***</DataSource>
		*** End of Select connection code: DO NOT REMOVE
	ENDPROC
ENDDEFINE

**************************************************
DEFINE CLASS _casprkam AS cursoradapter

  Name = "_casprkam"
	UseDeDataSource = .T.
	AllowSimultaneousFetch = .T.
	SelectCmd = "select FLAGPROV, OBJID, NKAM, RN, MAG, KW,  DATE_P, DATE_R from SPR_KAM"
	CursorSchema = "FLAGPROV N(1, 0), OBJID N(9, 0), NKAM V(50), RN N(2, 0), MAG V(4), KW V(4), DATE_P D, DATE_R D"
	Alias = "curkam"
	BufferModeOverride =  5 
	Flags =  0 
	FetchAsNeeded = .T.
	FetchMemo = .F.
	FetchSize =  30 
	KeyFieldList = "OBJID"
	Tables = "SPR_KAM"
	UpdatableFieldList = "FLAGPROV, OBJID, NKAM, RN, MAG, KW, DATE_P, DATE_R"
	UpdateNameList = "FLAGPROV SPR_KAM.FLAGPROV, OBJID SPR_KAM.OBJID, NKAM SPR_KAM.NKAM, RN SPR_KAM.RN, MAG SPR_KAM.MAG, KW SPR_KAM.KW, DATE_P SPR_KAM.DATE_P, DATE_R SPR_KAM.DATE_R"
	MapVarchar = .T.
	MapBinary = .T.
	UseCursorSchema = .T.
	AllowSimultaneousFetch = .T.
	NoData = .F.
	
ENDDEFINE

**************************************************
DEFINE CLASS _cashem AS cursoradapter
	
	nObjID =  0 
	Name = "_cashem"
	
	UseDeDataSource = .T.
	AllowSimultaneousFetch = .T.
	CursorSchema = "OBJID N(9, 0), TKSHEM W"
	SelectCmd = "select OBJID, TKSHEM from SPR_KAM where objid=?This.nObjID"
	Alias = "curshem"
	Flags =  0 
	KeyFieldList = "OBJID"
	Tables = "SPR_KAM"
	UpdatableFieldList = "TKSHEM"
	UpdateNameList = "OBJID SPR_KAM.OBJID, TKSHEM SPR_KAM.TKSHEM"
	UseCursorSchema = .T.
	MapVarchar = .T.
	MapBinary = .T.
	NoData = .T.
	
ENDDEFINE

#DEFINE CR CHR( 13 )
LOCAL loObj as Object
LOCAL lcOldRecordSource as String 
LOCAL lnCounter, lnColumnCount, lnOrderByPos
This.objid = curkam.objid
lcOldRecordSource = "curshem"
loObj = GETCURSORADAPTER( UPPER(lcOldRecordSource) )

IF TYPE("loObj")=="O" AND UPPER(ALLTRIM(loObj.BaseClass)) = "CURSORADAPTER" AND UPPER(ALLTRIM(loObj.Alias)) = UPPER(lcOldRecordSource)
	loObj.nObjID = This.objid
	IF loObj.CursorFill(.T., .F.)
		This.Pageframe1.Page2.Image1.PictureVal = curshem.tkshem
	ELSE 
		= AERROR(laErrorArray)  && Data from most recent error
		MESSAGEBOX("Ошибка при получении данных."+CR+laErrorArray[ 2 ])
	ENDIF 
ENDIF