**************************************************
*-- Class:        cad_zam (d:\bred\adapter\zam_cadapters.vcx)
*-- ParentClass:  dataenvironment
*-- BaseClass:    dataenvironment
*-- Time Stamp:   07/08/09 10:08:14 AM
*
DEFINE CLASS cad_zam AS dataenvironment


	Tag = "E:\00\BASES_ND\ZAM.DBF"
	DataSource = .NULL.
	DataSourceType = "Native"
	Name = "cad_zam"


	ADD OBJECT ca_zam AS cursoradapter WITH ;
		Height =  22 , ;
		Width =  23 , ;
		UseDeDataSource = .T., ;
		SelectCmd = "select * from ZAM", ;
		CursorSchema = "KOD_ZAM N(6, 0), NAZVA_ZAM C(150), KOGO_ZAM C(150), ADRESA C(150), PASPORT C(50), KOMU_ZAM C(150), ZAM C(150), TIP_ZAM N(1, 0), NOM_DOG C(20), DATE_DOG D, STATUT M, RAH C(25), MFO C(6), BANK C(150), IPN C(12), POD_SVID C(9), TEL C(50), KRATKO C(50), BUH C(50), PLATNIKPDV N(1, 0), DOG_E N(1, 0), AVTOR C(50), KOGDA T", ;
		Alias = "a_ca_zam", ;
		Flags =  0 , ;
		KeyFieldList = "KOD_ZAM", ;
		Tables = "ZAM", ;
		UpdatableFieldList = "KOD_ZAM, NAZVA_ZAM, KOGO_ZAM, ADRESA, PASPORT, KOMU_ZAM, ZAM, TIP_ZAM, NOM_DOG, DATE_DOG, STATUT, RAH, MFO, BANK, IPN, POD_SVID, TEL, KRATKO, BUH, PLATNIKPDV, DOG_E, AVTOR, KOGDA", ;
		UpdateNameList = "KOD_ZAM ZAM.KOD_ZAM, NAZVA_ZAM ZAM.NAZVA_ZAM, KOGO_ZAM ZAM.KOGO_ZAM, ADRESA ZAM.ADRESA, PASPORT ZAM.PASPORT, KOMU_ZAM ZAM.KOMU_ZAM, ZAM ZAM.ZAM, TIP_ZAM ZAM.TIP_ZAM, NOM_DOG ZAM.NOM_DOG, DATE_DOG ZAM.DATE_DOG, STATUT ZAM.STATUT, RAH ZAM.RAH, MFO ZAM.MFO, BANK ZAM.BANK, IPN ZAM.IPN, POD_SVID ZAM.POD_SVID, TEL ZAM.TEL, KRATKO ZAM.KRATKO, BUH ZAM.BUH, PLATNIKPDV ZAM.PLATNIKPDV, DOG_E ZAM.DOG_E, AVTOR ZAM.AVTOR, KOGDA ZAM.KOGDA", ;
		Name = "ca_zam"


	PROCEDURE BeforeOpenTables
		*** Select connection code: DO NOT REMOVE

		local lcDBC
		lcDBC = 'zam'
		if used(lcDBC)
			SELECT(lcDBC)
		else
			USE 'E:\00\BASES_ND\ZAM.DBF' IN  0  ALIAS zam SHARED 
		endif
		*** End of Select connection code: DO NOT REMOVE
	ENDPROC


	PROCEDURE ca_zam.BeforeCursorUpdate
		LPARAMETERS nRows, lForce
		IF lForce = .T.
			IF DATETIME()>update_table.upd_time
				this.CursorRefresh()
			ENDIF 
		ENDIF 
	ENDPROC


	PROCEDURE ca_zam.AfterCursorUpdate
		LPARAMETERS nRows, lTableUpdateResult, cErrorArray
		IF lTableUpdateResult = .T.
			REPLACE upd_time WITH DATETIME() IN update_table
		ENDIF 
	ENDPROC


	PROCEDURE ca_zam.AfterUpdate
		LPARAMETERS cFldState, lForce, nUpdateType, cUpdateInsertCmd, cDeleteCmd, lResult
	ENDPROC


	PROCEDURE ca_zam.Init
		*** Setup code: DO NOT REMOVE
		local llReturn
		do case
			case not pemstatus(This, '__VFPSetup',  5 )
				This.AddProperty('__VFPSetup',  0 )
			case This.__VFPSetup =  1 
				This.__VFPSetup =  2 
			case This.__VFPSetup =  2 
				This.__VFPSetup =  0 
				return
		endcase
		set multilocks on
		llReturn = dodefault()
		*** End of Setup code: DO NOT REMOVE

		*** Setup code: DO NOT REMOVE
		if This.__VFPSetup =  1 
			This.__VFPSetup =  2 
		endif
		return llReturn
		*** End of Setup code: DO NOT REMOVE
	ENDPROC


	PROCEDURE ca_zam.AutoOpen
		*** Setup code: DO NOT REMOVE
		if not pemstatus(This, '__VFPSetup',  5 )
			This.AddProperty('__VFPSetup',  1 )
			This.Init()
		endif
		*** End of Setup code: DO NOT REMOVE
	ENDPROC


ENDDEFINE
*
*-- EndDefine: cad_zam
**************************************************