*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oconfigurare_seturi.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_categorii AS frm_gol OF "..\comun\clase\_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		DoCreate = .T.
		Height = 319
		Name = "frm_categorii"
		Width = 500
		_shape1.Name = "_shape1"
		_shape2.Name = "_shape2"
		Lb_titlu_alb_b121.Caption = "Editare categorii seturi"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		Gridsort1.Name = "Gridsort1"
		Clb_tx_simplu1.Lb_simplu1.Caption = "Categorie"
		Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1"
		Clb_tx_simplu1.Name = "Clb_tx_simplu1"
		Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1"
		But_nou1.Name = "But_nou1"
		But_sterge1.Name = "But_sterge1"
		But_modifica1.Name = "But_modifica1"
		But_cautare1.Anchor = 8
		But_cautare1.Name = "But_cautare1"
		Gridb1.COLUMN1.ControlSource = "categorie"
		Gridb1.COLUMN1.Header1.Caption = "Categorie"
		Gridb1.COLUMN1.Header1.Name = "Header1"
		Gridb1.COLUMN1.Name = "COLUMN1"
		Gridb1.COLUMN1.Text1.Name = "Text1"
		Gridb1.COLUMN1.Width = 422
		Gridb1.Height = 236
		Gridb1.Left = 24
		Gridb1.Name = "Gridb1"
		Gridb1.Panel = 1
		Gridb1.SplitBar = .F.
		Gridb1.Top = 72
		Gridb1.Width = 461
	*</PropValue>
	
	PROCEDURE Init
		DoDefault()
		
	ENDPROC

	PROCEDURE Load
		This.cselect = [select categorie, id_categorie from xsetscategorii order by 2]
		This.ccursor = [crsCategorii]
		this.cprimarykey = [id_categorie]
		this.ccriteriu = [categorie]
		this.cform = [categorii]
		this.ctabela = [xsetscategorii]
		
		DoDefault()
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_categorii_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />

	*<PropValue>
		DoCreate = .T.
		Height = 94
		Name = "frm_categorii_nou"
		Width = 333
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 353
		_shape2.Left = 280
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "Editare categorie"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 303
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 12
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 36
	*</PropValue>

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Left = 274, ;
		Name = "But_renunt1", ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 24, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 48, ;
		Width = 290, ;
		Text_simplu1.ControlSource = "porec.categorie", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 84, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 201, ;
		Lb_simplu1.Caption = "Categorie", ;
		Lb_simplu1.Height = 17, ;
		Lb_simplu1.Left = 8, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.Top = 6, ;
		Lb_simplu1.Width = 56
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
	
	PROCEDURE inainte_de_do_termin
		Local lcSql, lnSucces, lcCategorie
		
		lcCategorie = Alltrim(This.clb_tx_simplu1.text_simplu1.Value)
		
		If Empty(porec.id_categorie)
			lcSql = [insert into xsetscategorii(categorie) values('] + lcCategorie+ [')]
		Else
			lcSql = [update xsetscategorii set categorie = '] + lcCategorie + ['] + ;
				[ where id_categorie = ?porec.id_categorie]
		Endif
		lnSucces = goExecutor.oExecute(lcSql)
		If lnSucces < 0
			Messagebox(goExecutor.cEroare,0 + 48,[Eroare])
		Endif
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		DODEFAULT()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_configurare AS _frmbase OF "..\comun\clase\_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_cautare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_copiaza1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboCategorii" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_cautare2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridsort2" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: actualizare
		*m: aleg_document_pereche
		*m: calcul_data
		*m: calcul_suma
		*m: dblclickgrid
		*m: do_caut_nomenclator
		*m: do_copiaza
		*m: intainte_de_do_modifica
		*m: refresh_inregistrari
		*m: verificare
		*m: verific_analitic
		*p: ccriteriu
		*p: ccursor
		*p: comanda
		*p: cprimarykey
		*p: cselect
		*p: introducere_libera
		*p: lnuverificcont
		*p: lverificareanalitic
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		ccriteriu = .F.
		ccursor = .F.
		cgridsortlist = gridb1
		comanda = .F.
		cprimarykey = .F.
		cselect = .F.
		DoCreate = .T.
		Height = 397
		introducere_libera = .F.
		lnuverificcont = .F.
		lverificareanalitic = .T.
		Name = "frm_configurare"
		Width = 767
		_SHAPE1.Anchor = 11
		_SHAPE1.Height = 29
		_SHAPE1.Left = 0
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Top = 0
		_SHAPE1.Width = 770
		_shape2.Height = 29
		_shape2.Left = 613
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 122
		Lb_titlu_alb_b121.Caption = "Seturi"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 12
		BUT_TERMIN1.Anchor = 9
		BUT_TERMIN1.Left = 732
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 0
		Gridsort1.Left = 12
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 372
	*</PropValue>

	ADD OBJECT 'But_cautare1' AS but_cautare WITH ;
		Left = 284, ;
		Name = "But_cautare1", ;
		TabIndex = 2, ;
		Top = 37
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_cautare2' AS but_cautare WITH ;
		Height = 28, ;
		Left = 284, ;
		Name = "But_cautare2", ;
		TabIndex = 5, ;
		Top = 65, ;
		Width = 31
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_copiaza1' AS but_copiaza WITH ;
		Anchor = 9, ;
		Left = 704, ;
		Name = "But_copiaza1", ;
		TabIndex = 10, ;
		Top = 0
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
		Anchor = 9, ;
		Left = 644, ;
		Name = "But_modifica1", ;
		TabIndex = 8, ;
		Top = 0
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_nou1' AS but_nou WITH ;
		Anchor = 9, ;
		Left = 614, ;
		Name = "But_nou1", ;
		TabIndex = 7, ;
		Top = 0
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		Anchor = 9, ;
		Left = 674, ;
		Name = "But_sterge1", ;
		TabIndex = 9, ;
		Top = 0
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'cboCategorii' AS combogrid WITH ;
		BorderColor = 200,200,200, ;
		BorderStyle = 1, ;
		ControlSource = "categorie", ;
		Height = 24, ;
		Left = 336, ;
		Name = "cboCategorii", ;
		RowSource = "crsCategorii", ;
		RowSourceType = 2, ;
		TabIndex = 3, ;
		Top = 39, ;
		Width = 228
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="combobox" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 16, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 36, ;
		Width = 262, ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 27, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 230, ;
		Lb_simplu1.Caption = "Set", ;
		Lb_simplu1.Height = 17, ;
		Lb_simplu1.Left = 4, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.Top = 6, ;
		Lb_simplu1.Width = 20
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 16, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 4, ;
		Top = 64, ;
		Width = 173, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.Format = "!", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = "9999999", ;
		Text_simplu1.Left = 26, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = 0, ;
		Text_simplu1.Width = 139, ;
		Lb_simplu1.Caption = "Id", ;
		Lb_simplu1.Height = 17, ;
		Lb_simplu1.Left = 4, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.Top = 6, ;
		Lb_simplu1.Width = 12
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Gridb1' AS gridb WITH ;
		Anchor = 15, ;
		ColumnCount = 4, ;
		FontName = "Arial Narrow", ;
		GridLineColor = 150,150,150, ;
		Height = 286, ;
		Left = 16, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "crsXSets", ;
		SplitBar = .F., ;
		TabIndex = 11, ;
		Top = 96, ;
		Width = 737, ;
		COLUMN1.ControlSource = "id_set", ;
		COLUMN1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Caption = "Id set", ;
		COLUMN1.Header1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.ReadOnly = .T., ;
		COLUMN1.Text1.FontName = "Arial Narrow", ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Text1.ReadOnly = .T., ;
		COLUMN1.Width = 47, ;
		Column2.ControlSource = "nume_set", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 222, ;
		Column3.ControlSource = "lista_note", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 234, ;
		Column4.ControlSource = "categorie", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 159
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Gridb1.Column2.Header1' AS header WITH ;
		Caption = "Nume set", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Gridb1.Column2.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Gridb1.Column3.Header1' AS header WITH ;
		Caption = "Lista note", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Gridb1.Column3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Gridb1.Column4.Header1' AS header WITH ;
		Caption = "Categorie", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Gridb1.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Gridsort2' AS gridsort WITH ;
		Left = 360, ;
		Name = "Gridsort2", ;
		Top = 72
		*< END OBJECT: ClassLib="..\comun\clase\gridsort.vcx" BaseClass="custom" />
	
	PROCEDURE actualizare
		save_grid(Thisform.gridb1)
		goExecutor.oExecute(Thisform.cselect,Thisform.ccursor)
		restore_grid(Thisform.gridb1)
		this.refresh_inregistrari()
		
	ENDPROC

	PROCEDURE aleg_document_pereche
		PARAMETERS tcFel,toAct
		LOCAL lcSel,lcSelAct
		lcSelAct = this.pageframe1.paGE2.gridb1.RecordSource
		pnFelCont = tcFel
		
		IF pnFelCont = 0                  && ACTIV
			pcContul = ALLTRIM(NVL(toAct.scc,[]))
			pcACont = ALLTRIM(NVL(toAct.ascc,[NULL]))
			pnIdPart = NVL(toAct.Id_partc,0)
			pcNume = ALLTRIM(NVL(toAct.partc,[]))
			pnPereche = [perecheC]
			pnIdPereche = [id_factC]
		ELSE                               && PASIV
			pcContul = ALLTRIM(NVL(toAct.scd,[]))
			pcACont = ALLTRIM(NVL(toAct.ascd,[NULL]))
			pnIdPart = NVL(toAct.Id_partd,0)
			pcNume = ALLTRIM(NVL(toAct.partd,[]))
			pnPereche = [perecheD]
			pnIdPereche = [id_factD]
		ENDIF 
		
		lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ]
		lcCursor = [crsTest]
		lnSucces = goexecutor.oExecute(lcSelect,lcCursor)
		IF lnSucces < 0
			aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare")
			SELECT (lcSelAct)
			this.pageframe1.paGE2.gridb1.SetFocus 
			RETURN 
		ENDIF 
		
		SELECT crsTest
		LOCATE 
		IF ePereche = 0
			USE IN crsTest
			SELECT (lcSelAct)
			this.pageframe1.paGE2.gridb1.SetFocus 
			RETURN
		ENDIF 
		
		
		IF !EMPTY(toAct.Suma_val)
			llval = .t.
			pnSuma = toAct.Suma_val
			lcFormular = [ocompensari_val]
		ELSE 
			llval = .f.
			pnSuma = toAct.Suma
			lcFormular = [ocompensari]
		ENDIF 
		pnIdValuta = toAct.Id_Valuta
		pcDenumire = [Partener ] + pcContul 
		
		pcCond = [ an = ?gnAn and luna = ?gnluna]
		
		IF llval
			pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ]
		ELSE
			pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
		ENDIF
		
		pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
		IF ALLTRIM(pcACont) # [NULL]
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
		ELSE
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond
		ENDIF 
		pcschema = ['']
		pcorder = ['']
		
		PRIVATE podateintrod
		STORE '' TO podateintrod
		
		gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
		
		lcFis = 'actcv' + ALLTRIM(pcContul)
		
		IF USED(lcFis)
			USE IN &lcFis
		ENDIF
		
		IF pnFelCont = 0
			lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
				[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
				[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ELSE
			lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
				[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
				[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ENDIF
		&lcsel
		
		USE IN crs_actcv
		SELECT (lcFis)
		
		OPLATA=CREATEOBJECT(lcFormular)
		OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
		OPLATA.pcFis = lcFis
		OPLATA.SUMA = pnSuma
		OPLATA.pnFelCont = pnFelCont
		OPLATA.SHOW(1)
		
		IF gnButon = 1
			SELECT (lcSelAct)
			DELETE 
			SELECT (lcFis)
			SCAN FOR ales
				SCATTER NAME oper
				SELECT (lcSelAct)
				APPEND BLANK 
				GATHER NAME toAct
				REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2
				SELECT (lcFis)
			ENDSCAN 
		ELSE 
			SELECT (lcSelAct)
			REPLACE &pnPereche WITH toact.&pnPereche 
		ENDIF 
		
		IF USED(lcFis)
			USE IN (lcFis)
		ENDIF 
		SELECT (lcSelAct)
		DO nrord WITH lcSelAct
		this.pageframe1.paGE2.gridb1.SetFocus 
	ENDPROC

	PROCEDURE calcul_data
		Parameters tcControl
		Local ll_verif
		Store .F. To ll_verif
		lcControl = Alltrim(tcControl)
		
		Do Case
		Case Upper(Alltrim(lcControl))='ACTACTAN.DATASCAD'
			ld_DataScad = Gomonth(dataact,1)
			Select ACTACTAN
			Replace DATASCAD With ld_DataScad
		
		Case Upper(Alltrim(lcControl))='ACTACTAN.DATAIREG'
			If !(Month(dataireg)= gnLuna And Year(dataireg) = gnAn)
		*!*			Do mesaj With 'Data trebuie sa fie din luna',Alltrim(pcNl)+' '+Alltrim(pcAn)
				amessagebox("Data trebuie sa fie din luna " + Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
				ll_verif=.T.
			Else
				ll_verif=.F.
				Select ACTACTAN
				Replace dataact With dataireg
			Endif
		
		Case Upper(Alltrim(lcControl))='ACTACTAN.DATAACT'
			If !((Month(dataact)<= gnLuna And Year(dataact)=gnAn) Or Year(dataact)<gnAn)
		*!*			Do mesaj With 'Data trebuie sa fie inainte sau in luna',Alltrim(pcnl)+' '+Alltrim(pcan)
				amessagebox("Data trebuie sa fie inainte sau in luna "+Alltrim(pcNl)+"/"+Alltrim(pcAn)+" !",0+48,"Atentie")
				ll_verif=.T.
			Else
				ll_verif=.F.
			Endif
		
			ld_DataScad=Gomonth(dataact,1)
			Select ACTACTAN
			Replace DATASCAD With ld_DataScad
		Endcase
		
		Return ll_verif
	ENDPROC

	PROCEDURE calcul_suma
	ENDPROC

	PROCEDURE dblclickgrid
		this.do_modifica()
	ENDPROC

	PROCEDURE Destroy
		USE IN (SELECT("crsXSets"))
		USE IN (SELECT("lorec"))
		USE IN (SELECT("crsCategorii"))
	ENDPROC

	PROCEDURE do_adauga
		Private pniesire
		pniesire = 0
		Select crsXSets
		Scatter Name loRec Blank
		lcActiune = "INSERT"
		
		Do Adauga_Modifica_Inregistrare With "configurare",loRec,,lcActiune
		
		If pniesire = 1
			This.actualizare()
			Select crsXSets
			Go Bottom
		Endif
		
		Select crsXSets
		Locate For id_set = loRec.id_set
		If !Found()
			Go Top
		Endif
		Thisform.gridb1.SetFocus()
	ENDPROC

	PROCEDURE do_cauta
		Local lcTextCautat, lcCriteriu, lcAux
		
		Select (Thisform.gridb1.RecordSource)
		lcTextCautat = Upper(Alltrim(Thisform.clb_tx_simplu1.text_simplu1.Value))
		lcCriteriu = Thisform.ccriteriu
		lcaux = Left(Upper(Alltrim(&lcCriteriu)),Len(lcTextCautat))
		
		Locate For Left(Upper(Alltrim(&lcCriteriu)),Len(lcTextCautat)) = lcTextCautat
		If !Found()
			Go Top
		ENDIF
		thisform.gridb1.SetFocus()
	ENDPROC

	PROCEDURE do_caut_nomenclator
		PARAMETERS tcFis, tcNume, tcId, tcTitlu
		
		pcselect = [select ] + tcNume + [,] + tcId + [ from ] + tcFis
		pcfiltru = [1=2]
		pcschema = []
		pcorder = tcNume
		pccoloane = tcNume
		llAllInList = .F.
		lcFiltruOriginal = "inactiv=0"
		*!* 24.03.2008
		If Upper(tcFis) = 'VNOM_SECTII'
			lcFiltruOriginal = lcFiltruOriginal + gcCondSucursala
		EndIf 
		*!* 24.03.2008 ^
		pcTitlu = tcTitlu 
		
		locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, pcTitlu, tcFis, llAllInList, lcFiltruOriginal) && 11.07.2007
		
		RETURN locauta
		&& tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal,tcPrimaColoana, tnPornire, tnTipReturn, tcIdColumn, tlDesktop, tcGroup, tcGridDynamicBackColor, tcGridToolTip, tlModParam
	ENDPROC

	PROCEDURE do_copiaza
		If Empty(Nvl(crsXSets.id_set,0))
			Return
		Endif
		
		Private pnIdSetNou
		Local lnIdSet, lcSql, lnSucces
		
		If Messagebox([Doriti sa copiata aceasta inregistrare?], 4 + 32) = 7
			Return
		Endif
		
		pnIdSetNou = 0
		lcSql = [begin pack_seturi.copie_set(?crsXSets.id_set, ?@pnIdSetNou); end; ]
		
		lnSucces = goExecutor.oExecute(lcSql)
		
		
		If lnSucces < 0
			Messagebox(goExecutor.cEroare, 0 + 16)
			Return
		Endif
		
		*!*	save_grid(Thisform.gridb1)
		*!*	goExecutor.oExecute(Thisform.cselect,Thisform.ccursor)
		*!*	restore_grid(Thisform.gridb1)
		this.actualizare()
		
		
		Thisform.gridb1.Refresh()
		Select crsXSets
		Locate For id_set = pnIdSetNou
		If !Found()
			Go Top
		Endif
		Thisform.gridb1.SetFocus()
		
		
		
	ENDPROC

	PROCEDURE do_modifica
		If Empty(Nvl(crsXSets.id_set,0))
			Return
		Endif
		Private pniesire
		Local lnRec
		pniesire = 0
		
		Select crsXSets
		lnRec = Recno()
		
		lcActiune = "UPDATE"
		Scatter Name loRec
		
		Do Adauga_Modifica_Inregistrare With "configurare", loRec, loRec.id_set, lcActiune
		If pniesire = 1
		
			*!*			save_grid(Thisform.gridb1)
			*!*			goExecutor.oExecute(Thisform.cselect,Thisform.ccursor)
			*!*			restore_grid(Thisform.gridb1)
			This.actualizare()
		
			Select crsXSets
			Go lnRec
		Endif
		
		
		Select crsXSets
		Locate For id_set = loRec.id_set
		If !Found()
			Go Top
		Endif
		
		Thisform.gridb1.SetFocus()
	ENDPROC

	PROCEDURE do_sterge
		If Empty(Nvl(crsXSets.id_set,0))
			Return
		Endif
		
		Local lcSql, lnSucces
		
		
		If Messagebox([Doriti sa stergeti inregistrarea?],4 + 32) = 6
			SQLSETPROP(gnhandle,"Transactions",2)	&& tranzactie manuala
		
			
			LcSql = [delete from xnote where id_set = ?crsXSets.id_set]		&& sterg nota
			lnSucces = goExecutor.oExecute(LcSql)
			If lnSucces < 0
				Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie])
			ENDIF
			
			IF lnSucces > 0
			LcSql = [delete from xrequest where id_set = ?crsXSets.id_set]		&& sterg cererea
			lnSucces = goExecutor.oExecute(LcSql)
			If lnSucces < 0
				Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie])
			ENDIF
			ENDIF 
			IF lnSucces > 0
			lcsql = [delete from xsets_utilizatori where id_set = ?crsXSets.id_set]		&& sterg utilizatorii cu drepturi
			lnSucces = goExecutor.oExecute(LcSql)
			If lnSucces < 0
				Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie])
			ENDIF
			ENDIF 
		
			IF lnSucces > 0
			LcSql = [delete from xsets where id_set = ?crsXsets.id_set]		&&sterg setul
			lnSucces = goExecutor.oExecute(LcSql)
			If lnSucces < 0
				Messagebox(goExecutor.cEroare, 0 + 48 ,[Atentie])
			ENDIF
			ENDIF 
			
			IF lnSucces < 0
				lnSucces2 = goExecutor.oExecute("ROLLBACK")
			ELSE
				lnSucces2 = goExecutor.oExecute("COMMIT")
				this.actualizare
			endif
			SQLSETPROP(gnhandle,"Transactions",1)		&& tranzactie automata		
		Endif
		
		Thisform.gridb1.SetFocus()
	ENDPROC

	PROCEDURE Init
		DoDefault()
		
		Local i, loGrid, loColumnTexti
		This.WindowState = 2
		
		Thisform.grIDB1.SetAll("dynamicbackcolor",'IIF(crsXSets.id_set >= 1000000,RGB(212,212,212),RGB(255,255,255))',"column")
		
		loGrid = Thisform.grIDB1
		For i = 1 To loGrid.ColumnCount
			loColumnTexti = loGrid.Columns(i).text1
			Bindevent(loColumnTexti,"dblClick",This,"dblClickGrid")		&& do_modifica
		Endfor
		
	ENDPROC

	PROCEDURE intainte_de_do_modifica
	ENDPROC

	PROCEDURE KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		
		If nKeyCode = 13 And nShiftAltCtrl = 2
			This.introducere_libera  = !This.introducere_libera
			*	this.shape2.Visible = !this.shape2.Visible
			this.do_modifica()
		Endif
		
	ENDPROC

	PROCEDURE Load
		Local lnSucces, lcSql
		
		
		Thisform.cselect = [select t.*, sc.categorie ] + ;
			[ from xsets t ] + ;
			[ left join xSetsCategorii sc on sc.id_categorie = t.id_categorie ] + ;
			[ order by nume_set]
		*Thisform.cselect = [select id_set, nr_set, nume_set, fix, lista_note, explicatia, model, formgest, ] + ;
		[nu_sterg, param1, listare, param2, frm_date, discount, adaos, factura,  ] + ;
		[nvl(id_selst,0) as id_selst, nvl(id_seldr,0) as id_seldr, tip_doc, tip_ctr,  ] + ;
		[expl_fixa, aleg_cont, frm_plata, valuta, compens, nvl(id_tip_rul,0) as id_tip_rul, ] + ;
		[nvl(id_jnetax,0) as id_jnetax, nvl(id_jtax,0) as id_jtax, tipjurnal,  ] + ;
		[nvl(id_jtaxn,0) as id_jtaxn,  productie, formproduc, cursval,  ] + ;
		[nvl(t.id_categorie,0) as id_categorie, procedura_lans,  ] + ;
		[nvl(id_sucursala,0) as id_sucursala, ] + ;
		[sc.categorie, ] + ;
		[case when upper(tipjurnal) = 'JC' then 1  ] + ;
		[     when  upper(tipjurnal) = 'JV' then 2  ] + ;
		[     else 3 end as id_tip_jurnal ] + ;
		[from xsets t ] + ;
		[left join xSetsCategorii sc on sc.id_categorie = t.id_categorie  ] + ;
		[order by t.nume_set]
		
		Thisform.ccursor = [crsXSets]
		Thisform.cprimarykey = [id_set]
		Thisform.ccriteriu = [nume_set]
		
		lnSucces = goExecutor.oExecute(Thisform.cselect , Thisform.ccursor)
		If lnSucces < 0
			Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
		Endif
		
		lcSql = [select categorie, id_categorie from xSetsCategorii ] + ;
			[union ] + ;
			[select '<TOATE CATEGORIILE>' as categorie, CAST(null as number(5)) as id_categorie from xSetsCategorii ] + ;
			[order by categorie]
		lnSucces = goExecutor.oExecute(lcSql , "crsCategorii")
		If lnSucces < 0
			Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
		Endif
		
		Select crsCategorii
		Locate For categorie = '<TOATE CATEGORIILE>'
		
	ENDPROC

	PROCEDURE refresh_inregistrari
		If !Empty(Nvl(crsCategorii.id_categorie,0))
			Set Filter To id_categorie = crsCategorii.id_categorie IN crsXsets
		Else
			Set Filter TO IN crsXsets
		ENDIF
	ENDPROC

	PROCEDURE verificare
		*!*	LOCAL COMPL,TE
		*!*	TE=''
		*!*	COMPL=.T.
		
		*!*	SELECT ACTACTAN
		*!*	ii=1
		*!*	SCAN
		*!*		lcScd = scd
		*!*		lcScc = scc
		*!*		IF EMPTY(suma)
		*!*			COMPL=.F.
		*!*			TE=TE+','+'suma'
		*!*		ENDIF
		*!*		*!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat
		*!*		IF EMPTY(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9')
		*!*			COMPL=.F.
		*!*			TE=TE+','+'contul debitor'
		*!*		ENDIF
		*!*		IF EMPTY(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9')
		*!*			COMPL=.F.
		*!*			TE=TE+','+'contul creditor'
		*!*		ENDIF
		*!*		IF EMPTY(nract)
		*!*			COMPL=.F.
		*!*			TE=TE+','+'nr.document'
		*!*		ENDIF
		*!*		IF (!EMPTY(suma_val) OR !EMPTY(CURS)) AND EMPTY(id_valuta)
		*!*			COMPL=.F.
		*!*			TE=TE+','+'nume valuta'
		*!*		ENDIF
		*!*		IF cu_tva = 1 AND EMPTY(NVL(id_jtva_coloana,0))
		*!*			COMPL = .F.
		*!*			TE=TE+','+'explicatie TVA'
		*!*		ENDIF
		*!*		IF !COMPL
		*!*			*!*			DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...'
		*!*			amessagebox("La nota nr. "+ALLTRIM(STR(ii))+" nu ati completat campurile:"+SUBSTR(TE,2,60)+"...",0+48,"Atentie")
		*!*			RETURN COMPL
		*!*		ENDIF
		*!*		ii=ii+1
		*!*	ENDSCAN
		
		
		*!*	RETURN COMPL
		*!*	modificare 21.02.2008
		lVerificAnalitic = .T.
		lCompletezPartener = .F.
		llRet = verificare_note_contabile('ACTACTAN',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune
		RETURN llRet
		*!*	modificare 21.02.2008	^
	ENDPROC

	PROCEDURE verific_analitic
	ENDPROC

	PROCEDURE But_cautare2.Click
		Select crsXSets
		Locate For id_set = Thisform.clb_tx_simplu2.text_simplu1.Value
		If !Found()
			Go Top
		Endif
		
		Thisform.gridb1.SetFocus()
		
	ENDPROC

	PROCEDURE cboCategorii.Valid
		thisform.refresh_inregistrari()
		GO TOP IN crsXsets
		thisform.gridb1.Refresh()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_configurare_nou AS _frmbase OF "..\comun\clase\_frm_base.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Cb_jnetax" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_id_set" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.chkValuta" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.clb_numeset" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_jtax" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_tipjurnal" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_jtaxn" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.EdtListaNote" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.Clb_procedura" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.chkAlegCont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_sucursala" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page1.cb_categorie" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.COLUMN1.Combo1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page4.Gridb1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page4.But_precedent1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page4.But_urmator1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Pageframe1.Page4.Gridb2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: aleg_document_pereche
		*m: calcul_data
		*m: calcul_suma
		*m: do_caut_nomenclator
		*m: verificare
		*m: verific_analitic
		*p: clistainitialautiliz		&& In se memoreaza lista initiala de utilizatori. Se foloseste la salvare, pentru a nu adauga inca o data utilizatorii.
		*p: introducere_libera
		*p: lnuverificcont
		*p: lverificareanalitic
		*p: nid_set
		*p: nreqnrmax		&& numarul de cereri, se foloseste la nrcrt in grid-ul de cereri
	*</DefinedPropArrayMethod>

	*<PropValue>
		clistainitialautiliz = []
		DoCreate = .T.
		Height = 377
		introducere_libera = .F.
		lnuverificcont = .F.
		lverificareanalitic = .T.
		Name = "frm_configurare_nou"
		nid_set = .F.
		nreqnrmax = 0
		Width = 792
		WindowState = 2
		_SHAPE1.Anchor = 10
		_SHAPE1.Height = 29
		_SHAPE1.Left = 0
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Top = 0
		_SHAPE1.Width = 794
		_shape2.Height = 29
		_shape2.Left = 726
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		Lb_titlu_alb_b121.Caption = "Note, seturi"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 2
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Height = 27
		BUT_TERMIN1.Left = 757
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 3
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.Width = 30
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
		Anchor = 8, ;
		Left = 727, ;
		Name = "But_renunt1", ;
		TabIndex = 4, ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Pageframe1' AS pageframe WITH ;
		Anchor = 15, ;
		ErasePage = .T., ;
		Height = 322, ;
		Left = 4, ;
		Name = "Pageframe1", ;
		PageCount = 4, ;
		TabIndex = 1, ;
		TabStyle = 1, ;
		Top = 37, ;
		Width = 785, ;
		Page1.Caption = "Seturi", ;
		Page1.Enabled = .F., ;
		Page1.Name = "Page1", ;
		Page2.Caption = "Cereri", ;
		Page2.Enabled = .F., ;
		Page2.Name = "Page2", ;
		Page3.Caption = "Note", ;
		Page3.Enabled = .F., ;
		Page3.Name = "Page3", ;
		Page4.Caption = "Drepturi utilizatori", ;
		Page4.Name = "Page4"
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'Pageframe1.Page1.cb_categorie' AS cb_tx_simplu WITH ;
		Anchor = 40, ;
		Height = 29, ;
		Left = 403, ;
		Name = "cb_categorie", ;
		TabIndex = 8, ;
		Top = 156, ;
		Width = 362, ;
		_cbbase1.Anchor = 40, ;
		_cbbase1.BoundColumn = 2, ;
		_cbbase1.BoundTo = .T., ;
		_cbbase1.ControlSource = "porec.id_categorie", ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 120, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsCateg.categorie,id_categorie", ;
		_cbbase1.RowSourceType = 6, ;
		_cbbase1.TabIndex = 1, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 236, ;
		_lbbase1.Caption = "Categorie", ;
		_lbbase1.Name = "_lbbase1", ;
		_lbbase1.TabIndex = 2
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.Cb_jnetax' AS cb_tx_simplu WITH ;
		Anchor = 40, ;
		Height = 29, ;
		Left = 403, ;
		Name = "Cb_jnetax", ;
		TabIndex = 4, ;
		Top = 7, ;
		Width = 362, ;
		_cbbase1.Anchor = 40, ;
		_cbbase1.BoundColumn = 2, ;
		_cbbase1.ControlSource = "porec.id_jnetax", ;
		_cbbase1.FirstElement = 1, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 120, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsJNetax.denumire,id_jtva_coloana", ;
		_cbbase1.RowSourceType = 6, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 236, ;
		_lbbase1.Caption = "Operatii netaxabile", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.cb_jtax' AS cb_tx_simplu WITH ;
		Anchor = 40, ;
		Height = 29, ;
		Left = 403, ;
		Name = "cb_jtax", ;
		TabIndex = 5, ;
		Top = 43, ;
		Width = 362, ;
		_cbbase1.Anchor = 40, ;
		_cbbase1.BoundColumn = 2, ;
		_cbbase1.ControlSource = "porec.id_jtax", ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 120, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsJTax.denumire,id_jtva_coloana", ;
		_cbbase1.RowSourceType = 6, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 236, ;
		_lbbase1.Caption = "Operatii taxabile", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.cb_jtaxn' AS cb_tx_simplu WITH ;
		Anchor = 40, ;
		Height = 33, ;
		Left = 403, ;
		Name = "cb_jtaxn", ;
		TabIndex = 7, ;
		Top = 115, ;
		Width = 362, ;
		_cbbase1.Anchor = 40, ;
		_cbbase1.BoundColumn = 2, ;
		_cbbase1.ControlSource = "porec.id_jtaxn", ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 120, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsJtaxn.denumire,id_jtva_coloana", ;
		_cbbase1.RowSourceType = 6, ;
		_cbbase1.Top = 5, ;
		_cbbase1.Width = 236, ;
		_lbbase1.Caption = "Operatii taxabile (neplatitor TVA)", ;
		_lbbase1.Height = 32, ;
		_lbbase1.Left = 5, ;
		_lbbase1.Name = "_lbbase1", ;
		_lbbase1.Top = 1, ;
		_lbbase1.Width = 90, ;
		_lbbase1.WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.cb_sucursala' AS cb_tx_simplu WITH ;
		Anchor = 40, ;
		Height = 33, ;
		Left = 403, ;
		Name = "cb_sucursala", ;
		TabIndex = 9, ;
		Top = 193, ;
		Width = 362, ;
		_CBBASE1.Anchor = 40, ;
		_CBBASE1.BoundColumn = 2, ;
		_CBBASE1.BoundTo = .T., ;
		_CBBASE1.ControlSource = "porec.id_sucursala", ;
		_CBBASE1.FirstElement = 1, ;
		_CBBASE1.Height = 23, ;
		_CBBASE1.Left = 120, ;
		_CBBASE1.Name = "_CBBASE1", ;
		_CBBASE1.RowSource = "crsSucursale.sucursala,id_sucursala", ;
		_CBBASE1.RowSourceType = 6, ;
		_CBBASE1.Top = 5, ;
		_CBBASE1.Width = 236, ;
		_LBBASE1.Caption = "Sucursala", ;
		_LBBASE1.Height = 17, ;
		_LBBASE1.Left = 5, ;
		_LBBASE1.Name = "_LBBASE1", ;
		_LBBASE1.Top = 8, ;
		_LBBASE1.Width = 56, ;
		_LBBASE1.WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.cb_tipjurnal' AS cb_tx_simplu WITH ;
		Anchor = 40, ;
		Height = 29, ;
		Left = 403, ;
		Name = "cb_tipjurnal", ;
		TabIndex = 6, ;
		Top = 79, ;
		Width = 362, ;
		_cbbase1.Anchor = 40, ;
		_cbbase1.BoundColumn = 2, ;
		_cbbase1.BoundTo = .T., ;
		_cbbase1.ControlSource = "porec.tipjurnal", ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 120, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "crsJurnal.name,tipjurnal", ;
		_cbbase1.RowSourceType = 6, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 236, ;
		_lbbase1.Caption = "Tip jurnal", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.chkAlegCont' AS _checkbox WITH ;
		Alignment = 0, ;
		Anchor = 40, ;
		Caption = "Cont", ;
		ControlSource = "porec.aleg_cont", ;
		Left = 403, ;
		Name = "chkAlegCont", ;
		TabIndex = 11, ;
		Top = 256
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page1.chkValuta' AS _checkbox WITH ;
		Alignment = 0, ;
		Anchor = 40, ;
		Caption = "Valuta", ;
		ControlSource = "porec.valuta", ;
		Left = 403, ;
		Name = "chkValuta", ;
		TabIndex = 10, ;
		Top = 235
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page1.Clb_id_set' AS clb_tx_simplu WITH ;
		Anchor = 130, ;
		Height = 29, ;
		Left = 19, ;
		Name = "Clb_id_set", ;
		TabIndex = 12, ;
		Top = 7, ;
		Width = 362, ;
		Text_simplu1.Alignment = 3, ;
		Text_simplu1.Anchor = 130, ;
		Text_simplu1.ControlSource = "thisform.nId_set", ;
		Text_simplu1.Enabled = .F., ;
		Text_simplu1.Format = "R", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.InputMask = "9999999", ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = 0, ;
		Text_simplu1.Width = 255, ;
		Lb_simplu1.Caption = "Id set", ;
		Lb_simplu1.Height = 17, ;
		Lb_simplu1.Left = 8, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.Top = 6, ;
		Lb_simplu1.Width = 32
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.clb_numeset' AS clb_tx_simplu WITH ;
		Anchor = 130, ;
		Height = 29, ;
		Left = 19, ;
		Name = "clb_numeset", ;
		TabIndex = 1, ;
		Top = 41, ;
		Width = 362, ;
		Text_simplu1.Anchor = 130, ;
		Text_simplu1.ControlSource = "porec.nume_set", ;
		Text_simplu1.Format = "", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 254, ;
		Lb_simplu1.Caption = "Nume set", ;
		Lb_simplu1.Height = 17, ;
		Lb_simplu1.Left = 8, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.Top = 6, ;
		Lb_simplu1.Width = 56
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.Clb_procedura' AS clb_tx_simplu WITH ;
		Anchor = 130, ;
		Height = 29, ;
		Left = 19, ;
		Name = "Clb_procedura", ;
		TabIndex = 3, ;
		Top = 178, ;
		Width = 362, ;
		Text_simplu1.Anchor = 130, ;
		Text_simplu1.ControlSource = "porec.procedura_lans", ;
		Text_simplu1.Format = "", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 254, ;
		Lb_simplu1.Caption = "Procedura", ;
		Lb_simplu1.Height = 17, ;
		Lb_simplu1.Left = 8, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.Top = 6, ;
		Lb_simplu1.Width = 59
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page1.EdtListaNote' AS ed_tx_simplu WITH ;
		Anchor = 130, ;
		Height = 98, ;
		Left = 19, ;
		Name = "EdtListaNote", ;
		TabIndex = 2, ;
		Top = 75, ;
		Width = 362, ;
		_edbase1.Anchor = 130, ;
		_edbase1.ControlSource = "porec.lista_note", ;
		_edbase1.Height = 90, ;
		_edbase1.Left = 72, ;
		_edbase1.Name = "_edbase1", ;
		_edbase1.Top = 4, ;
		_edbase1.Width = 280, ;
		_lbbase1.Caption = "Lista note", ;
		_lbbase1.Name = "_lbbase1", ;
		_lbbase1.WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page2.Gridb1' AS gridb WITH ;
		Anchor = 15, ;
		BackColor = 255,255,255, ;
		ColumnCount = 3, ;
		GridLineColor = 255,255,255, ;
		Height = 240, ;
		Left = 9, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		RecordSource = "crsReq", ;
		RowHeight = 22, ;
		SplitBar = .F., ;
		Top = 7, ;
		Width = 766, ;
		COLUMN1.BackColor = 226,226,226, ;
		COLUMN1.ColumnOrder = 2, ;
		COLUMN1.ControlSource = "label_item", ;
		COLUMN1.CurrentControl = "Combo1", ;
		COLUMN1.Header1.Caption = "Element", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.ReadOnly = .F., ;
		COLUMN1.Text1.BackColor = 226,226,226, ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Text1.ReadOnly = .F., ;
		COLUMN1.Text1.Visible = .T., ;
		COLUMN1.Visible = .T., ;
		COLUMN1.Width = 245, ;
		Column2.BackColor = 247,245,238, ;
		Column2.ColumnOrder = 1, ;
		Column2.ControlSource = "id_item", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Visible = .T., ;
		Column2.Width = 66, ;
		Column3.BackColor = 226,226,226, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "valoare_default_text", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Visible = .T., ;
		Column3.Width = 404
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page2.Gridb1.COLUMN1.Combo1' AS combobox WITH ;
		BackColor = 226,226,226, ;
		BorderStyle = 0, ;
		ColumnLines = .F., ;
		ControlSource = "crsreq.id_item", ;
		FontName = "Arial Narrow", ;
		Height = 24, ;
		Left = 50, ;
		Name = "Combo1", ;
		RowSource = "crsItems.label_item,id_item", ;
		RowSourceType = 2, ;
		SpecialEffect = 1, ;
		Style = 2, ;
		Top = 47, ;
		Visible = .T., ;
		Width = 100
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ;
		Caption = "Id element", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ;
		Caption = "Valoare implicita", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ;
		BackColor = 226,226,226, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page2.Nou1' AS nou WITH ;
		Anchor = 6, ;
		Left = 13, ;
		Name = "Nou1", ;
		Top = 251, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page2.Sterge1' AS sterge WITH ;
		Anchor = 6, ;
		Left = 49, ;
		Name = "Sterge1", ;
		Top = 251, ;
		Imbuton1.Height = 26, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 26, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1' AS pageframe WITH ;
		Anchor = 15, ;
		ErasePage = .T., ;
		Height = 293, ;
		Left = 0, ;
		Name = "Pageframe1", ;
		PageCount = 6, ;
		TabStyle = 1, ;
		Top = 1, ;
		Width = 784, ;
		ZOrderSet = 2, ;
		Page1.BackColor = 255,255,255, ;
		Page1.Caption = "Note-Sume", ;
		Page1.Name = "Page1", ;
		Page2.BackColor = 240,240,240, ;
		Page2.Caption = "Date", ;
		Page2.Name = "Page2", ;
		Page3.BackColor = 228,228,228, ;
		Page3.Caption = "Explicatii", ;
		Page3.Name = "Page3", ;
		Page4.Caption = "Xnote 1-12", ;
		Page4.Name = "Page4", ;
		Page5.Caption = "Xnote 13-24", ;
		Page5.Name = "Page5", ;
		Page6.Caption = "Xnote 25-35", ;
		Page6.Name = "Page6"
		*< END OBJECT: BaseClass="pageframe" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1' AS gridb WITH ;
		Anchor = 15, ;
		ColumnCount = 15, ;
		FontName = "Arial Narrow", ;
		GridLineColor = 255,255,255, ;
		GridLines = 3, ;
		HeaderHeight = 25, ;
		Height = 212, ;
		Left = 5, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordMark = .T., ;
		RecordSource = "crsNote", ;
		RowHeight = 22, ;
		SplitBar = .F., ;
		Top = 6, ;
		Width = 762, ;
		COLUMN1.Alignment = 2, ;
		COLUMN1.BackColor = 245,245,245, ;
		COLUMN1.ControlSource = "nr_nota", ;
		COLUMN1.DynamicBackColor = "RGB(245,245,245)", ;
		COLUMN1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Caption = "Nr.", ;
		COLUMN1.Header1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.ReadOnly = .F., ;
		COLUMN1.Text1.Alignment = 2, ;
		COLUMN1.Text1.BackColor = 245,245,245, ;
		COLUMN1.Text1.FontName = "Arial Narrow", ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Text1.ReadOnly = .F., ;
		COLUMN1.Text1.Visible = .T., ;
		COLUMN1.Visible = .T., ;
		COLUMN1.Width = 26, ;
		Column2.Alignment = 1, ;
		Column2.BackColor = 247,245,238, ;
		Column2.ControlSource = "xscd", ;
		Column2.DynamicBackColor = "RGB(247,245,238)", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Format = "XXXX.", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .F., ;
		Column2.Visible = .T., ;
		Column2.Width = 59, ;
		Column3.Alignment = 0, ;
		Column3.BackColor = 247,245,238, ;
		Column3.ControlSource = "xascd", ;
		Column3.DynamicBackColor = "RGB(247,245,238)", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .F., ;
		Column3.Visible = .T., ;
		Column3.Width = 53, ;
		Column4.Alignment = 1, ;
		Column4.BackColor = 226,226,226, ;
		Column4.ControlSource = "xscc", ;
		Column4.DynamicBackColor = "RGB(226,226,226)", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Format = "XXXX.", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .F., ;
		Column4.Visible = .T., ;
		Column4.Width = 63, ;
		Column5.Alignment = 0, ;
		Column5.BackColor = 226,226,226, ;
		Column5.ControlSource = "xascc", ;
		Column5.DynamicBackColor = "RGB(226,226,226)", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .F., ;
		Column5.Visible = .T., ;
		Column5.Width = 49, ;
		Column6.BackColor = 214,214,214, ;
		Column6.ControlSource = "suma", ;
		Column6.DynamicBackColor = "rgb(214,214,214)", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.InputMask = (get_mask(12,gnPa)), ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .F., ;
		Column6.Visible = .T., ;
		Column6.Width = 114, ;
		Column7.BackColor = 214,214,214, ;
		Column7.ColumnOrder = 7, ;
		Column7.ControlSource = "suma_val", ;
		Column7.DynamicBackColor = "rgb(214,214,214)", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.InputMask = (get_mask(12,gnPval)), ;
		Column7.Name = "Column8", ;
		Column7.ReadOnly = .F., ;
		Column7.Visible = .T., ;
		Column7.Width = 87, ;
		Column8.BackColor = 214,214,214, ;
		Column8.ColumnOrder = 8, ;
		Column8.ControlSource = "curs", ;
		Column8.DynamicBackColor = "rgb(214,214,214)", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.InputMask = (get_mask(12,gnPcurs)), ;
		Column8.Name = "Column9", ;
		Column8.ReadOnly = .F., ;
		Column8.Visible = .T., ;
		Column8.Width = 76, ;
		Column9.BackColor = 214,214,214, ;
		Column9.ColumnOrder = 9, ;
		Column9.ControlSource = "nume_val", ;
		Column9.CurrentControl = "Text1", ;
		Column9.DynamicBackColor = "rgb(214,214,214)", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column10", ;
		Column9.ReadOnly = .F., ;
		Column9.Visible = .T., ;
		Column9.Width = 112, ;
		Column10.Alignment = 0, ;
		Column10.BackColor = 214,214,214, ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "explicatie_tva", ;
		Column10.CurrentControl = "Combo1", ;
		Column10.DynamicBackColor = "rgb(214,214,214)", ;
		Column10.DynamicCurrentControl = "IIF(actactan.cu_tva=0,'Text1','Combo1')", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column11", ;
		Column10.ReadOnly = .F., ;
		Column10.Sparse = .F., ;
		Column10.Visible = .T., ;
		Column10.Width = 72, ;
		Column11.BackColor = 214,214,214, ;
		Column11.ColumnOrder = 11, ;
		Column11.ControlSource = "proc_tva", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.InputMask = "99.99", ;
		Column11.Name = "Column7", ;
		Column11.ReadOnly = .T., ;
		Column11.Visible = .T., ;
		Column11.Width = 65, ;
		Column12.BackColor = 214,214,214, ;
		Column12.ColumnOrder = 10, ;
		Column12.ControlSource = "cu_tva", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .F., ;
		Column12.Sparse = .F., ;
		Column12.Visible = .T., ;
		Column12.Width = 42, ;
		Column13.BackColor = 214,214,214, ;
		Column13.ControlSource = "id_fact", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 63, ;
		Column14.BackColor = 214,214,214, ;
		Column14.ControlSource = "id_factd", ;
		Column14.FontName = "Arial Narrow", ;
		Column14.Name = "Column14", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 69, ;
		Column15.BackColor = 214,214,214, ;
		Column15.ControlSource = "id_factc", ;
		Column15.FontName = "Arial Narrow", ;
		Column15.Name = "Column15", ;
		Column15.ReadOnly = .T., ;
		Column15.Width = 68
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume valuta", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1' AS textbox WITH ;
		BackColor = 214,214,214, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1' AS combobox WITH ;
		Alignment = 0, ;
		BorderStyle = 0, ;
		BoundColumn = 1, ;
		ColumnCount = 3, ;
		ColumnLines = .F., ;
		ColumnWidths = "250,0,0", ;
		Enabled = .T., ;
		FontName = "Arial Narrow", ;
		Height = 24, ;
		Left = 32, ;
		Name = "Combo1", ;
		ReadOnly = .F., ;
		RowSource = "jtva_coloane.denumire,cota_tva,id_jtva_coloana", ;
		RowSourceType = 6, ;
		SpecialEffect = 1, ;
		Style = 2, ;
		Top = 44, ;
		Visible = .T., ;
		Width = 100
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie TVA", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Text1' AS _textbox WITH ;
		FontName = "Arial Narrow", ;
		Left = 44, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Top = 32
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1' AS _checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .F., ;
		Caption = "", ;
		Centered = .T., ;
		ControlSource = "cu_tva", ;
		FontName = "Arial Narrow", ;
		Left = 27, ;
		Name = "_CHECKBOX1", ;
		ReadOnly = .F., ;
		Top = 32, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cu TVA", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Factura", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column13.Text1' AS textbox WITH ;
		BackColor = 214,214,214, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Factura d", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column14.Text1' AS textbox WITH ;
		BackColor = 214,214,214, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "ID Factura c", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1' AS textbox WITH ;
		BackColor = 214,214,214, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont debitor", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic D", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont creditor ", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 226,226,226, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Analitic C", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 226,226,226, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1' AS textbox WITH ;
		BackColor = 214,214,214, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Procent TVA", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column7.Text1' AS textbox WITH ;
		BackColor = 214,214,214, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Suma in valuta", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1' AS textbox WITH ;
		BackColor = 214,214,214, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Curs valutar", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1' AS textbox WITH ;
		BackColor = 214,214,214, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Nou1' AS nou WITH ;
		Anchor = 6, ;
		Left = 8, ;
		Name = "Nou1", ;
		Top = 222, ;
		Imbuton1.Height = 29, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 27, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page1.Sterge1' AS sterge WITH ;
		Anchor = 6, ;
		Left = 44, ;
		Name = "Sterge1", ;
		Top = 222, ;
		Imbuton1.Height = 26, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 26, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1' AS gridb WITH ;
		Anchor = 15, ;
		BackColor = 240,240,240, ;
		ColumnCount = 10, ;
		FontName = "Arial Narrow", ;
		GridLineColor = 255,255,255, ;
		HeaderHeight = 26, ;
		Height = 248, ;
		Left = 5, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordMark = .T., ;
		RecordSource = "crsNote", ;
		RowHeight = 23, ;
		SplitBar = .F., ;
		Top = 6, ;
		Width = 762, ;
		COLUMN1.BackColor = 240,240,240, ;
		COLUMN1.ControlSource = "nr_nota", ;
		COLUMN1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Caption = "Nr.", ;
		COLUMN1.Header1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.ReadOnly = .F., ;
		COLUMN1.Text1.BackColor = 240,240,240, ;
		COLUMN1.Text1.FontName = "Arial Narrow", ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Text1.ReadOnly = .F., ;
		COLUMN1.Width = 19, ;
		Column2.BackColor = 240,240,240, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "fdoc", ;
		Column2.CurrentControl = "Text1", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .F., ;
		Column2.Width = 105, ;
		Column3.BackColor = 240,240,240, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "dataireg", ;
		Column3.CurrentControl = "Text1", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .F., ;
		Column3.Sparse = .F., ;
		Column3.Width = 83, ;
		Column4.BackColor = 240,240,240, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "dataact", ;
		Column4.CurrentControl = "Text1", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .F., ;
		Column4.Sparse = .F., ;
		Column4.Width = 87, ;
		Column5.BackColor = 240,240,240, ;
		Column5.ColumnOrder = 5, ;
		Column5.ControlSource = "datascad", ;
		Column5.CurrentControl = "Text1", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .F., ;
		Column5.Sparse = .F., ;
		Column5.Width = 83, ;
		Column6.BackColor = 240,240,240, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "nract", ;
		Column6.CurrentControl = "Text1", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .F., ;
		Column6.Sparse = .F., ;
		Column7.BackColor = 240,240,240, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "pereched", ;
		Column7.CurrentControl = "Text1", ;
		Column7.DynamicBackColor = "", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .F., ;
		Column7.Sparse = .F., ;
		Column7.Width = 68, ;
		Column8.BackColor = 240,240,240, ;
		Column8.ColumnOrder = 10, ;
		Column8.ControlSource = "nnir", ;
		Column8.CurrentControl = "Text1", ;
		Column8.DynamicBackColor = "", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "Column8", ;
		Column8.ReadOnly = .F., ;
		Column8.Sparse = .F., ;
		Column9.BackColor = 240,240,240, ;
		Column9.ColumnOrder = 9, ;
		Column9.ControlSource = "perechec", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column9", ;
		Column9.ReadOnly = .F., ;
		Column9.Width = 71, ;
		Column10.BackColor = 240,240,240, ;
		Column10.ColumnOrder = 6, ;
		Column10.ControlSource = "serie_act", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Format = "!", ;
		Column10.Name = "Column10", ;
		Column10.ReadOnly = .F., ;
		Column10.Width = 52
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Serie doc.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column10.Text1' AS textbox WITH ;
		BackColor = 240,240,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel document", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1' AS textbox WITH ;
		BackColor = 240,240,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data inregistrarii", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column3.Text1' AS textbox WITH ;
		BackColor = 240,240,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data document", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column4.Text1' AS textbox WITH ;
		BackColor = 240,240,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data scadenta", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column5.Text1' AS textbox WITH ;
		BackColor = 240,240,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. document", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column6.Text1' AS textbox WITH ;
		BackColor = 240,240,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pereche Debit", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1' AS textbox WITH ;
		BackColor = 240,240,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. NIR/BON", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1' AS textbox WITH ;
		BackColor = 240,240,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Pereche Credit", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1' AS textbox WITH ;
		BackColor = 240,240,240, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1' AS gridb WITH ;
		Anchor = 15, ;
		BackColor = 228,228,228, ;
		ColumnCount = 10, ;
		FontName = "Arial Narrow", ;
		GridLineColor = 255,255,255, ;
		HeaderHeight = 25, ;
		Height = 248, ;
		Left = 5, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordMark = .T., ;
		RecordSource = "crsNote", ;
		RowHeight = 23, ;
		SplitBar = .F., ;
		Top = 6, ;
		Width = 762, ;
		COLUMN1.BackColor = 228,228,228, ;
		COLUMN1.ColumnOrder = 1, ;
		COLUMN1.ControlSource = "nr_nota", ;
		COLUMN1.DynamicBackColor = "rgb(228,228,228)", ;
		COLUMN1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.BackColor = 228,228,228, ;
		COLUMN1.Header1.Caption = "Nr.", ;
		COLUMN1.Header1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.ReadOnly = .F., ;
		COLUMN1.Text1.BackColor = 228,228,228, ;
		COLUMN1.Text1.FontName = "Arial Narrow", ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Text1.ReadOnly = .F., ;
		COLUMN1.Text1.Visible = .T., ;
		COLUMN1.Visible = .T., ;
		COLUMN1.Width = 21, ;
		Column2.BackColor = 228,228,228, ;
		Column2.ColumnOrder = 7, ;
		Column2.ControlSource = "nrord", ;
		Column2.CurrentControl = "Text1", ;
		Column2.DynamicBackColor = "rgb(228,228,228)", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column7", ;
		Column2.ReadOnly = .F., ;
		Column2.Visible = .T., ;
		Column2.Width = 95, ;
		Column3.BackColor = 228,228,228, ;
		Column3.ColumnOrder = 8, ;
		Column3.ControlSource = "nresp", ;
		Column3.CurrentControl = "Text1", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column8", ;
		Column3.ReadOnly = .F., ;
		Column3.Visible = .T., ;
		Column3.Width = 110, ;
		Column4.BackColor = 228,228,228, ;
		Column4.ColumnOrder = 9, ;
		Column4.ControlSource = "dst_chlt", ;
		Column4.CurrentControl = "Text1", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column9", ;
		Column4.ReadOnly = .F., ;
		Column4.Sparse = .F., ;
		Column4.Visible = .T., ;
		Column4.Width = 108, ;
		Column5.BackColor = 228,228,228, ;
		Column5.ColumnOrder = 10, ;
		Column5.ControlSource = "sectie", ;
		Column5.CurrentControl = "Text1", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column10", ;
		Column5.ReadOnly = .F., ;
		Column5.Visible = .T., ;
		Column5.Width = 96, ;
		Column6.BackColor = 228,228,228, ;
		Column6.ColumnOrder = 6, ;
		Column6.ControlSource = "explicatia", ;
		Column6.DynamicBackColor = "rgb(226,226,226)", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Format = "k!", ;
		Column6.Name = "Column14", ;
		Column6.ReadOnly = .F., ;
		Column6.Visible = .T., ;
		Column6.Width = 110, ;
		Column7.BackColor = 228,228,228, ;
		Column7.ColumnOrder = 3, ;
		Column7.ControlSource = "partd", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column17", ;
		Column7.ReadOnly = .F., ;
		Column7.Visible = .T., ;
		Column7.Width = 105, ;
		Column8.BackColor = 228,228,228, ;
		Column8.ColumnOrder = 5, ;
		Column8.ControlSource = "partc", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "Column18", ;
		Column8.ReadOnly = .F., ;
		Column8.Visible = .T., ;
		Column8.Width = 105, ;
		Column9.BackColor = 228,228,228, ;
		Column9.ColumnOrder = 4, ;
		Column9.ControlSource = "scc_fara_part", ;
		Column9.CurrentControl = "Check1", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column2", ;
		Column9.ReadOnly = .F., ;
		Column9.Sparse = .F., ;
		Column9.Visible = .T., ;
		Column9.Width = 84, ;
		Column10.BackColor = 228,228,228, ;
		Column10.ColumnOrder = 2, ;
		Column10.ControlSource = "scd_fara_part", ;
		Column10.CurrentControl = "Check1", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column3", ;
		Column10.ReadOnly = .F., ;
		Column10.Sparse = .F., ;
		Column10.Visible = .T., ;
		Column10.Width = 81
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 228,228,228, ;
		Caption = "Sectia", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1' AS textbox WITH ;
		BackColor = 228,228,228, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 226,226,226, ;
		Caption = "Explicatia", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column14.Text1' AS textbox WITH ;
		BackColor = 228,228,228, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 226,226,226, ;
		Caption = "Partener Debit", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1' AS textbox WITH ;
		BackColor = 228,228,228, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 226,226,226, ;
		Caption = "Partener Credit", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1' AS textbox WITH ;
		BackColor = 228,228,228, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "", ;
		Centered = .T., ;
		Height = 17, ;
		Left = 40, ;
		Name = "Check1", ;
		Top = 90, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Header1' AS header WITH ;
		Caption = "Fara partener credit", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Text1' AS textbox WITH ;
		BackColor = 228,228,228, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		BackStyle = 0, ;
		Caption = "", ;
		Centered = .T., ;
		Height = 17, ;
		Left = 24, ;
		Name = "Check1", ;
		Top = 54, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Header1' AS header WITH ;
		Caption = "Fara partener debit", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Text1' AS textbox WITH ;
		BackColor = 228,228,228, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 228,228,228, ;
		Caption = "Contract/Lucrare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1' AS textbox WITH ;
		BackColor = 228,228,228, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 228,228,228, ;
		Caption = "Responsabil", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1' AS textbox WITH ;
		BackColor = 228,228,228, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		BackColor = 228,228,228, ;
		Caption = "Cheltuiala/Venit", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1' AS textbox WITH ;
		BackColor = 228,228,228, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .F., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1' AS gridb WITH ;
		Anchor = 15, ;
		BackColor = 247,245,238, ;
		ColumnCount = 13, ;
		FontName = "Arial Narrow", ;
		GridLineColor = 255,255,255, ;
		Height = 247, ;
		Left = 5, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		RecordSource = "crsnote", ;
		RowHeight = 22, ;
		SplitBar = .F., ;
		Top = 6, ;
		Width = 762, ;
		COLUMN1.BackColor = 247,245,238, ;
		COLUMN1.ColumnOrder = 2, ;
		COLUMN1.ControlSource = "x1", ;
		COLUMN1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Caption = " X1", ;
		COLUMN1.Header1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.Text1.BackColor = 247,245,238, ;
		COLUMN1.Text1.FontName = "Arial Narrow", ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Width = 81, ;
		Column2.BackColor = 247,245,238, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "x2", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column3.BackColor = 247,245,238, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "x3", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column4.BackColor = 247,245,238, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "x4", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column5.BackColor = 247,245,238, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "x5", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column6.BackColor = 247,245,238, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "x6", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column6", ;
		Column7.BackColor = 247,245,238, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "x7", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column7", ;
		Column8.BackColor = 247,245,238, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "x8", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "Column8", ;
		Column9.BackColor = 247,245,238, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "x9", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column9", ;
		Column10.BackColor = 247,245,238, ;
		Column10.ColumnOrder = 11, ;
		Column10.ControlSource = "x10", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column10", ;
		Column11.BackColor = 247,245,238, ;
		Column11.ColumnOrder = 12, ;
		Column11.ControlSource = "x11", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "Column11", ;
		Column12.BackColor = 247,245,238, ;
		Column12.ColumnOrder = 13, ;
		Column12.ControlSource = "x12", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column12", ;
		Column13.BackColor = 247,245,238, ;
		Column13.ColumnOrder = 1, ;
		Column13.ControlSource = "nr_nota", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.Name = "Column13", ;
		Column13.Width = 24
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Header1' AS header WITH ;
		Caption = " X10", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column10.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Header1' AS header WITH ;
		Caption = " X11", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column11.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Header1' AS header WITH ;
		Caption = " X12", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column12.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Header1' AS header WITH ;
		Caption = " Nr.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column13.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Header1' AS header WITH ;
		Caption = " X2", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column2.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Header1' AS header WITH ;
		Caption = " X3", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column3.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Header1' AS header WITH ;
		Caption = " X4", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column4.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Header1' AS header WITH ;
		Caption = " X5", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column5.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Header1' AS header WITH ;
		Caption = " X6", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column6.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Header1' AS header WITH ;
		Caption = " X7", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column7.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Header1' AS header WITH ;
		Caption = " X8", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column8.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Header1' AS header WITH ;
		Caption = " X9", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page4.Gridb1.Column9.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1' AS gridb WITH ;
		Anchor = 15, ;
		BackColor = 247,245,238, ;
		ColumnCount = 13, ;
		FontName = "Arial Narrow", ;
		GridLineColor = 255,255,255, ;
		Height = 247, ;
		Left = 5, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		RecordSource = "crsNote", ;
		RowHeight = 22, ;
		SplitBar = .F., ;
		Top = 6, ;
		Width = 762, ;
		COLUMN1.BackColor = 247,245,238, ;
		COLUMN1.ColumnOrder = 2, ;
		COLUMN1.ControlSource = " X13", ;
		COLUMN1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Caption = " X13", ;
		COLUMN1.Header1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.Text1.BackColor = 247,245,238, ;
		COLUMN1.Text1.FontName = "Arial Narrow", ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Width = 71, ;
		Column2.BackColor = 247,245,238, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = " X14", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column3.BackColor = 247,245,238, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = " X15", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column4.BackColor = 247,245,238, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = " X16", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column5.BackColor = 247,245,238, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = " X17", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column6.BackColor = 247,245,238, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = " X18", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column6", ;
		Column7.BackColor = 247,245,238, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = " X19", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column7", ;
		Column8.BackColor = 247,245,238, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = " X20", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "Column8", ;
		Column9.BackColor = 247,245,238, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = " X21", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column9", ;
		Column10.BackColor = 247,245,238, ;
		Column10.ColumnOrder = 11, ;
		Column10.ControlSource = " X22", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column10", ;
		Column11.BackColor = 247,245,238, ;
		Column11.ColumnOrder = 12, ;
		Column11.ControlSource = " X23", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "Column11", ;
		Column12.BackColor = 247,245,238, ;
		Column12.ColumnOrder = 13, ;
		Column12.ControlSource = " X24", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column12", ;
		Column13.BackColor = 247,245,238, ;
		Column13.ColumnOrder = 1, ;
		Column13.ControlSource = "nr_nota", ;
		Column13.FontName = "Arial Narrow", ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 25
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Header1' AS header WITH ;
		Caption = " X22", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column10.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Header1' AS header WITH ;
		Caption = " X23", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column11.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Header1' AS header WITH ;
		Caption = " X24", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column12.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Header1' AS header WITH ;
		Caption = " Nr.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column13.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Header1' AS header WITH ;
		Caption = " X14", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column2.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Header1' AS header WITH ;
		Caption = " X15", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column3.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Header1' AS header WITH ;
		Caption = " X16", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column4.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Header1' AS header WITH ;
		Caption = " X17", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column5.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Header1' AS header WITH ;
		Caption = " X18", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column6.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Header1' AS header WITH ;
		Caption = " X19", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column7.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Header1' AS header WITH ;
		Caption = " X20", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column8.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Header1' AS header WITH ;
		Caption = " X21", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page5.Gridb1.Column9.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1' AS gridb WITH ;
		Anchor = 15, ;
		BackColor = 247,245,238, ;
		ColumnCount = 12, ;
		FontName = "Arial Narrow", ;
		GridLineColor = 255,255,255, ;
		Height = 247, ;
		Left = 5, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		RecordSource = "crsNote", ;
		RowHeight = 22, ;
		SplitBar = .F., ;
		Top = 6, ;
		Width = 762, ;
		COLUMN1.BackColor = 247,245,238, ;
		COLUMN1.ColumnOrder = 2, ;
		COLUMN1.ControlSource = "x25", ;
		COLUMN1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Caption = " X25", ;
		COLUMN1.Header1.FontName = "Arial Narrow", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.Text1.BackColor = 247,245,238, ;
		COLUMN1.Text1.FontName = "Arial Narrow", ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Width = 79, ;
		Column2.BackColor = 247,245,238, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "x26", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "Column2", ;
		Column3.BackColor = 247,245,238, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "x27", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "Column3", ;
		Column4.BackColor = 247,245,238, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "x28", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "Column4", ;
		Column5.BackColor = 247,245,238, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "x29", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "Column5", ;
		Column6.BackColor = 247,245,238, ;
		Column6.ColumnOrder = 7, ;
		Column6.ControlSource = "x30", ;
		Column6.FontName = "Arial Narrow", ;
		Column6.Name = "Column6", ;
		Column7.BackColor = 247,245,238, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "x31", ;
		Column7.FontName = "Arial Narrow", ;
		Column7.Name = "Column7", ;
		Column8.BackColor = 247,245,238, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "x32", ;
		Column8.FontName = "Arial Narrow", ;
		Column8.Name = "Column8", ;
		Column9.BackColor = 247,245,238, ;
		Column9.ColumnOrder = 10, ;
		Column9.ControlSource = "x33", ;
		Column9.FontName = "Arial Narrow", ;
		Column9.Name = "Column9", ;
		Column10.BackColor = 247,245,238, ;
		Column10.ColumnOrder = 11, ;
		Column10.ControlSource = "x34", ;
		Column10.FontName = "Arial Narrow", ;
		Column10.Name = "Column10", ;
		Column11.BackColor = 247,245,238, ;
		Column11.ColumnOrder = 12, ;
		Column11.ControlSource = "x35", ;
		Column11.FontName = "Arial Narrow", ;
		Column11.Name = "Column11", ;
		Column12.BackColor = 247,245,238, ;
		Column12.ColumnOrder = 1, ;
		Column12.ControlSource = "nr_nota", ;
		Column12.FontName = "Arial Narrow", ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 26
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Header1' AS header WITH ;
		Caption = " X34", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column10.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Header1' AS header WITH ;
		Caption = " X35", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column11.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Header1' AS header WITH ;
		Caption = " Nr.", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column12.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Header1' AS header WITH ;
		Caption = " X26", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column2.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Header1' AS header WITH ;
		Caption = " X27", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column3.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Header1' AS header WITH ;
		Caption = " X28", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column4.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Header1' AS header WITH ;
		Caption = " X29", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column5.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Header1' AS header WITH ;
		Caption = " X30", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column6.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Header1' AS header WITH ;
		Caption = " X31", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column7.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Header1' AS header WITH ;
		Caption = " X32", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column8.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Header1' AS header WITH ;
		Caption = " X33", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Pageframe1.Page3.Pageframe1.Page6.Gridb1.Column9.Text1' AS textbox WITH ;
		BackColor = 247,245,238, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Pageframe1.Page4.But_precedent1' AS but_precedent WITH ;
		Anchor = 0, ;
		Left = 380, ;
		Name = "But_precedent1", ;
		Top = 138
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Pageframe1.Page4.But_urmator1' AS but_urmator WITH ;
		Anchor = 0, ;
		Left = 380, ;
		Name = "But_urmator1", ;
		Top = 105
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Pageframe1.Page4.Gridb1' AS gridb WITH ;
		Anchor = 5, ;
		GridLineColor = 255,255,255, ;
		HeaderHeight = 22, ;
		Height = 268, ;
		HighlightStyle = 2, ;
		Left = 29, ;
		Name = "Gridb1", ;
		Panel = 1, ;
		RecordMark = .F., ;
		RecordSource = "crsUtilizatori", ;
		ScrollBars = 2, ;
		Top = 7, ;
		Width = 317, ;
		COLUMN1.ControlSource = "utilizator", ;
		COLUMN1.Header1.Alignment = 2, ;
		COLUMN1.Header1.Caption = " Utilizatori", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Width = 297
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />

	ADD OBJECT 'Pageframe1.Page4.Gridb2' AS gridb WITH ;
		Anchor = 5, ;
		ColumnCount = 1, ;
		GridLineColor = 255,255,255, ;
		HeaderHeight = 22, ;
		Height = 268, ;
		HighlightStyle = 1, ;
		Left = 437, ;
		Name = "Gridb2", ;
		Panel = 1, ;
		RecordMark = .F., ;
		RecordSource = "crsDrepturi_utilizatori", ;
		ScrollBars = 2, ;
		SelectedItemForeColor = 255,255,255, ;
		Top = 7, ;
		Width = 317, ;
		COLUMN1.ControlSource = "utilizator", ;
		COLUMN1.Header1.Alignment = 2, ;
		COLUMN1.Header1.Caption = "Utilizatorii cu drepturi asupra seturilor", ;
		COLUMN1.Header1.Name = "Header1", ;
		COLUMN1.Name = "COLUMN1", ;
		COLUMN1.Text1.BackColor = 255,255,255, ;
		COLUMN1.Text1.Name = "Text1", ;
		COLUMN1.Text1.SelectedForeColor = 255,255,255, ;
		COLUMN1.Text1.Visible = .T., ;
		COLUMN1.Visible = .T., ;
		COLUMN1.Width = 297
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="grid" />
	
	PROCEDURE aleg_document_pereche
		PARAMETERS tcFel,toAct
		LOCAL lcSel,lcSelAct
		lcSelAct = this.pageframe1.paGE2.gridb1.RecordSource
		pnFelCont = tcFel
		
		IF pnFelCont = 0                  && ACTIV
			pcContul = ALLTRIM(NVL(toAct.scc,[]))
			pcACont = ALLTRIM(NVL(toAct.ascc,[NULL]))
			pnIdPart = NVL(toAct.Id_partc,0)
			pcNume = ALLTRIM(NVL(toAct.partc,[]))
			pnPereche = [perecheC]
			pnIdPereche = [id_factC]
		ELSE                               && PASIV
			pcContul = ALLTRIM(NVL(toAct.scd,[]))
			pcACont = ALLTRIM(NVL(toAct.ascd,[NULL]))
			pnIdPart = NVL(toAct.Id_partd,0)
			pcNume = ALLTRIM(NVL(toAct.partd,[]))
			pnPereche = [perecheD]
			pnIdPereche = [id_factD]
		ENDIF 
		
		lcSelect = [select count(*) as ePereche from ] + gcs + [.vcoresp_tip_cont where cont = ?pcContul and fel_cont = ?pnFelCont and cu_inregistrari = 1 ]
		lcCursor = [crsTest]
		lnSucces = goexecutor.oExecute(lcSelect,lcCursor)
		IF lnSucces < 0
			aMESSAGEBOX('Modificare:Verific existenta pereche ' +goExecutor.cEroare,0+16,"Eroare")
			SELECT (lcSelAct)
			this.pageframe1.paGE2.gridb1.SetFocus 
			RETURN 
		ENDIF 
		
		SELECT crsTest
		LOCATE 
		IF ePereche = 0
			USE IN crsTest
			SELECT (lcSelAct)
			this.pageframe1.paGE2.gridb1.SetFocus 
			RETURN
		ENDIF 
		
		
		IF !EMPTY(toAct.Suma_val)
			llval = .t.
			pnSuma = toAct.Suma_val
			lcFormular = [ocompensari_val]
		ELSE 
			llval = .f.
			pnSuma = toAct.Suma
			lcFormular = [ocompensari]
		ENDIF 
		pnIdValuta = toAct.Id_Valuta
		pcDenumire = [Partener ] + pcContul 
		
		pcCond = [ an = ?gnAn and luna = ?gnluna]
		
		IF llval
			pccond= pccond + [ and ABS(i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit)>0 and i.id_valuta = ?pnIdValuta ]
		ELSE
			pccond= pccond + [ and (i.precvaldeb + i.valdebit - i.precvalcred - i.valcredit = 0) ]
		ENDIF
		
		pcselect = ['select i.* FROM ] + gcs + [.Vireg_parteneri i where 2=2 ']
		IF ALLTRIM(pcACont) # [NULL]
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and ] + pcCond
		ELSE
			pcfiltru = [ i.id_part = ?pnIdPart AND ABS(i.precdeb + i.debit - i.preccred - i.credit)<>0 AND i.cont = ?pcContul and acont is null and ] + pcCond
		ENDIF 
		pcschema = ['']
		pcorder = ['']
		
		PRIVATE podateintrod
		STORE '' TO podateintrod
		
		gencursor('podateintrod','crs_actcv',pcselect,pcfiltru,[''],'')
		
		lcFis = 'actcv' + ALLTRIM(pcContul)
		
		IF USED(lcFis)
			USE IN &lcFis
		ENDIF
		
		IF pnFelCont = 0
			lcsel = [SELECT *, ACONT AS ASCC, nume_val as numeval, curs as cursschimb, precdeb + debit as totctva, preccred+credit as achitat, ] +;
				[precvaldeb + valdebit AS sumaval, precVALcred+VALcredit as achitatval, ] +;
				[.f. as ales, 00000000000000.0000 as sumaachi, 000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] +;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ELSE
			lcsel = [SELECT *, ACONT AS ASCD, nume_val as numeval, curs as cursschimb, preccred + credit as totctva, precdeb+debit as achitat, ] + ;
				[precvalcred + valcredit as sumaval, precVALdeb+VALdebit as achitatval, ] + ;
				[.f. as ales, 00000000000000.0000 as sumaachi, 00000000000000.0000 as sumaachi2, 00000000000000.0000 as achilei, 00000000000000.0000 as difplus, 00000000000000.0000 as difminus, 000000.0000 as cursval, 000000.0000 as cursdif ] + ;
				[FROM crs_actcv INTO CURSOR ] + lcFis + [ READWRITE ]
		ENDIF
		&lcsel
		
		USE IN crs_actcv
		SELECT (lcFis)
		
		OPLATA=CREATEOBJECT(lcFormular)
		OPLATA.titlufrumos1.CAPTION = pcDenumire + [: ] + pcNume
		OPLATA.pcFis = lcFis
		OPLATA.SUMA = pnSuma
		OPLATA.pnFelCont = pnFelCont
		OPLATA.SHOW(1)
		
		IF gnButon = 1
			SELECT (lcSelAct)
			DELETE 
			SELECT (lcFis)
			SCAN FOR ales
				SCATTER NAME oper
				SELECT (lcSelAct)
				APPEND BLANK 
				GATHER NAME toAct
				REPLACE &pnIdPereche WITH oper.id_fact, &pnPereche WITH oper.nract, suma WITH oper.sumaachi, suma_val WITH oper.sumaachi2
				SELECT (lcFis)
			ENDSCAN 
		ELSE 
			SELECT (lcSelAct)
			REPLACE &pnPereche WITH toact.&pnPereche 
		ENDIF 
		
		IF USED(lcFis)
			USE IN (lcFis)
		ENDIF 
		SELECT (lcSelAct)
		DO nrord WITH lcSelAct
		this.pageframe1.paGE2.gridb1.SetFocus 
	ENDPROC

	PROCEDURE calcul_data
	ENDPROC

	PROCEDURE calcul_suma
	ENDPROC

	PROCEDURE Destroy
		Use In (Select("crsReq"))
		Use In (Select("crsItems"))
		Use In (Select("crsJNetax"))
		Use In (Select("crsJTax"))
		Use In (Select("crsJtaxN"))
		Use In (Select("crsJurnal"))
		Use In (Select("crsNewId"))
		Use In (Select("crsNote"))
		Use In (Select("crsDrepturi_utilizatori"))
		Use In (Select("crsUtilizatori"))
		Use In (Select("crsCateg"))
		Use In (Select("crsSucursale"))
		
	ENDPROC

	PROCEDURE do_caut_nomenclator
		PARAMETERS tcFis, tcNume, tcId, tcTitlu
		
		pcselect = [select ] + tcNume + [,] + tcId + [ from ] + tcFis
		pcfiltru = [1=2]
		pcschema = []
		pcorder = tcNume
		pccoloane = tcNume
		llAllInList = .F.
		lcFiltruOriginal = "inactiv=0"
		*!* 24.03.2008
		If Upper(tcFis) = 'VNOM_SECTII'
			lcFiltruOriginal = lcFiltruOriginal + gcCondSucursala
		EndIf
		*!* 24.03.2008 ^
		pcTitlu = tcTitlu
		
		locauta = cauta_alfa(pcselect, pcfiltru, pcschema, pcorder, pccoloane, pcTitlu, ;
			pcTitlu, tcFis, llAllInList, lcFiltruOriginal) && 11.07.2007
		
		RETURN locauta
		* tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,;
			tl_AllInList,tcFiltruOriginal,tcPrimaColoana, tnPornire, tnTipReturn, tcIdColumn, ;
			tlDesktop, tcGroup, tcGridDynamicBackColor, tcGridToolTip, tlModParam
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local lcSqlSeturi, lcSqlNote, lcSqlCereri, lnSucces, lnEroare, lcLista, lcActiune, lnSucces2
		*lcSqlNote = []
		*lcSqlSeturi = []
		lnEroare = 0
		lnSucces = 1
		*lcLista = []
		Private pnIdSet
		pnIdSet	= poRec.id_set
		Store '' To lcSqlNote, lcSqlSeturi, lcLista, lcActiune
		
		
		SQLSetprop(gnhandle,"Transactions",2)		&& tranzactie manuala
		*!*	 insertul se face si pentru modificare , si pt update ;
		*!*	dar in cazul update-ului se sterg inainte inregistrarile
		
		lcSqlNote = [insert into xnote(id_set,nr_nota, xscd, xscc, xascd, xascc, ] + ;
			[x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,x15,x16,x17,x18,x19,x20, ] + ;
			[x21,x22,x23,x24,x25,x26,x27,x28,x29,x30,x31,x32,x33,x34,x35, ] + ;
			[suma, suma_val, ] + ;
			[curs, id_valuta, proc_tva, id_jtva_coloana, id_fact, id_factd, id_factc, ] + ;
			[id_fdoc, dataireg, dataact, datascad, serie_act, nract, pereched, perechec,] + ;
			[nnir, id_partd, id_partc, explicatia, id_lucrare, id_responsabil, id_venchelt, id_sectie] + ;
			[,scd_fara_part, scc_fara_part ] + ;
			[) values(] + ;
			[?poRec.id_set,?crsNote.nr_nota, ] + ;
			[?ALLTRIM(crsNote.xscd), ?ALLTRIM(crsNote.xscc),?ALLTRIM(crsNote.xascd),?ALLTRIM(crsNote.xascc),] + ;
			[?crsNote.x1,?crsNote.x2,?crsNote.x3,?crsNote.x4,?crsNote.x5,?crsNote.x6,?crsNote.x7,?crsNote.x8, ] + ;
			[?crsNote.x9,?crsNote.x10,?crsNote.x11,?crsNote.x12,?crsNote.x13,?crsNote.x14,?crsNote.x15, ] + ;
			[?crsNote.x16,?crsNote.x17,?crsNote.x18,?crsNote.x19,?crsNote.x20,?crsNote.x21,?crsNote.x22, ] + ;
			[?crsNote.x23,?crsNote.x24,?crsNote.x25,?crsNote.x26,?crsNote.x27,?crsNote.x28,?crsNote.x29,] + ;
			[?crsNote.x30,?crsNote.x31,?crsNote.x32,?crsNote.x33,?crsNote.x34,?crsNote.x35, ] + ;
			[?crsNote.suma,?crsNote.suma_val, ] + ;
			[?crsNote.curs, ?crsNote.id_valuta, ?crsNote.proc_tva, ?crsNote.id_jtva_coloana,?crsNote.id_fact, ] + ;
			[?crsNote.id_factd,?crsNote.id_factc, ?crsNote.id_fdoc,?crsNote.dataireg,?crsNote.dataact, ] + ;
			[?crsNote.datascad,?crsNote.serie_act,?crsNote.nract,?crsNote.pereched,?crsNote.perechec,] + ;
			[?crsNote.nnir, ?crsNote.id_partd, ?crsNote.id_partc, ?crsNote.explicatia, ?crsNote.id_lucrare, ] + ;
			[?crsNote.id_responsabil,?crsNote.id_venchelt,?crsNote.id_sectie,] + ;
			[?crsNote.scd_fara_part, ?crsNote.scc_fara_part] + [)]
		
		lcSqlCereri = [insert into xrequest(id_set, nr_item, id_item, valoare_default) ] + ;
			[values(?porec.id_set, ?crsReq.nr_item, ?crsReq.id_item, ] + ;
			[?IIF(!EMPTY(NVL(ALLTRIM(crsReq.valoare_default),'')),crsReq.valoare_default,crsReq.valoare_default_text))]
		*	[values(?crsReq.id_set, ?crsReq.nr_item, ?crsReq.id_item, ?ALLTRIM(crsReq.valoare_default))]
		
		
		If Empty(poRec.id_set)	&& insert
			lcSqlSeturi = [insert into xsets(nume_set, lista_note, id_jnetax, id_jtax, tipjurnal, ] + ;
				[id_jtaxn, valuta, id_categorie, procedura_lans, aleg_cont, id_sucursala) ]+ ;
				[values(?ALLTRIM(porec.nume_set), ] + ;
				[?ALLTRIM(porec.lista_note), ?porec.id_jnetax, ?porec.id_jtax,?ALLTRIM(poRec.tipjurnal),] + ;
				[?porec.id_jtaxn,?porec.valuta,?porec.id_categorie, ] + ;
				[?porec.aleg_cont, ?ALLTRIM(porec.procedura_lans), ?porec.id_sucursala) returning id_set into ?@pnIdSet]
		
		Else					&& update, pt note se sterge inregistrarea curenta si se adauga
			If poRec.id_set >= 1000000
				lnSucces = goExecutor.oExecute([delete from xnote where id_set = ] + Alltrim(Str(poRec.id_set))  + [;])
				If lnSucces < 0
					Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
				Else
					lnSucces = goExecutor.oExecute([delete from xrequest where id_set = ] + Alltrim(Str(poRec.id_set))  + [;])
					If lnSucces < 0
						Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
					Endif
		
					lcSqlSeturi = [update xsets set nume_set = ?ALLTRIM(porec.nume_set), ] + ;
						[lista_note = ?ALLTRIM(porec.lista_note), id_jnetax = ?porec.id_jnetax, ] + ;
						[id_jtax = ?porec.id_jtax, tipjurnal = ?ALLTRIM(poRec.tipjurnal),] + ;
						[id_jtaxn = ?porec.id_jtaxn, valuta = ?porec.valuta, ] + ;
						[id_categorie = ] + Iif(Empty(Nvl(poRec.id_categorie,0)), 'NULL', Alltrim(Transform(poRec.id_categorie))) + [, ] + ;
						[procedura_lans = ?ALLTRIM(porec.procedura_lans), aleg_cont = ?porec.aleg_cont, ] + ;
						[id_sucursala = ?porec.id_sucursala ] + ;
						[where id_set = ?porec.id_set]
				Endif
			Endif
		Endif
		
		*!*	 seturile standard au id_set < 1000000, seturile utilizatori au id_set >= 1000000,
		*!*	utilizatorii nu au dreptul de a modifica seturile standard
		If lnSucces > 0 And !Empty(lcSqlSeturi)
			lnSucces = goExecutor.oExecute(lcSqlSeturi)
			If lnSucces < 0
				Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
			Endif
		Endif
		
		If lnSucces > 0 And poRec.id_set >= 1000000
			Select crsNote
			Scan		&& pt fiecare inregistare din xnote
				lnSucces = goExecutor.oExecute(lcSqlNote)
				If lnSucces < 0
					Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
					Exit
				Endif
			Endscan
		
			If lnSucces > 0
				Select crsReq
				Scan		&& pt fiecare inregistare din xnote
					lnSucces = goExecutor.oExecute(lcSqlCereri)
					If lnSucces < 0
						Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
						Exit
					Endif
				Endscan
			Endif
		
		Endif && porec.id_set >= 1000000
		
		If lnSucces > 0
		**	utilizatori cu drepturi pe set
			lnSucces = goExecutor.oExecute([delete from xsets_utilizatori where id_set = ?porec.id_set])
			If lnSucces < 0
				Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
			Else
				Select crsdrepturi_utilizatori						&& salvare
				Scan
					lnSucces = goExecutor.oExecute([insert into xsets_utilizatori(id_set, id_utilizator) ] + ;
					[values(?porec.id_set, ?crsdrepturi_utilizatori.id_util)])
					If lnSucces < 0
						Exit
						Messagebox(goExecutor.cEroare,0 + 48, [Atentie])
					Endif
				Endscan
			Endif
		Endif
		**	utilizatori cu drepturi pe set^^
		
		
		
		
		If lnSucces  < 0
			lnSucces2 = goExecutor.oExecute("ROLLBACK")
		Else
			lnSucces2 = goExecutor.oExecute("COMMIT")
		Endif
		lnSucces2 = SQLSetprop(gnhandle,"Transactions",1)		&& tranzactie automata
		
		Return lnSucces > 0
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		*LPARAMETERS tlVerificareAnalitic, tlNuVerificCont
		
		*!* 19.02.2008
		*!* pot sa apelez nota fara predefinire cu sau fara verificare analitice
		*!* 11.03.2008
		*!* nota fara predefinire cu/fara verificare conturi completate
		
		*IF PCOUNT() > 0
		*	this.lVerificareAnalitic = tlVerificareAnalitic
		*	this.lNuVerificCont = tlNuVerificCont
		*ELSE
		This.lVerificareAnalitic = .T.
		This.lNuVerificCont = .F.
		*ENDIF
		*!* 19.02.2008 ^
		
		
		*!*	Select crsNote
		*!*	Scan For scc_fara_part = 1 Or scd_fara_part = 1
		*!*		Thisform.pageframe1.page3.pageframe1.page3.gridb1.column2.check1.Click
		*!*		Thisform.pageframe1.page3.pageframe1.page3.gridb1.column3.check1.Click
		*!*	Endscan
		
		*!* paginile sunt active pentru seturile noi si pentru modificarea seturilor utilizator
		If EMPTY(NVL(porec.id_set,0)) OR porec.id_set >= 1000000
			Thisform.pageframe1.page1.Enabled = .T.
			Thisform.pageframe1.page2.Enabled = .T.
			Thisform.pageframe1.page3.Enabled = .T.
		*	Thisform.pageframe1.page4.Enabled = .T.
			this.pageframe1.ActivePage = 1
			this.pageframe1.page1.clb_numeset.SetFocus()
		ELSE 
			this.pageframe1.ActivePage = 4 && drepturi utilizatori	
		ENDIF
		this.WindowState = 2
		this.pageframe1.page1.Cb_categorie._cbbase1.Value = poRec.categorie
		
		
		DoDefault()
		
	ENDPROC

	PROCEDURE KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF nKeyCode = 13 AND nShiftAltCtrl = 2
			this.introducere_libera  = !this.introducere_libera
		*	this.shape2.Visible = !this.shape2.Visible
		ENDIF 
		
	ENDPROC

	PROCEDURE Load
		Local lnSucces, lcSql
		lnSucces = 0
		
		lnSucces = goExecutor.oExecute([select nvl(n.scc_fara_part,0) as scc_fara_part, ] + ;
			[ nvl(n.scd_fara_part,0) as scd_fara_part, n.*, ] + ;
			[ p1.denumire as partd, p2.denumire as partc, ] + ;
			[ f.fel_document as fdoc, nv.nume_val, 0 as cu_tva, nl.nrord,np.denumire as nresp, ] + ;
			[ nvc.explicatie as dst_chlt, ns.sectie, jc.denumire as explicatie_tva  ] + ;
			[  from xnote n ] + ;
			[  left join nom_parteneri p1 on p1.id_part = n.id_partd ] + ;
			[  left join nom_parteneri p2 on p2.id_part = n.id_partc ] + ;
			[  left join nom_parteneri np on np.id_part = n.id_responsabil ] + ;
			[  left join nom_fdoc f on f.id_fdoc = n.id_fdoc ] + ;
			[  left join nom_valute nv on nv.id_valuta = n.id_valuta ] + ;
			[  left join nom_lucrari nl on nl.id_lucrare = n.id_lucrare ] + ;
			[  left join nom_venit_cheltuieli nvc on nvc.id_venchelt = n.id_venchelt ] + ;
			[  left join nom_sectii ns on ns.id_sectie = n.id_sectie ] + ;
			[ left join jtva_coloane jc on jc.id_jtva_coloana = n.id_jtva_coloana ] + ;
			[ where id_set = ] + Alltrim(Str(porec.id_set)) + [ order by n.nr_nota],[crsNote])
		
		&&		[  left join nom_parteneri np on np.id_part = n.id_partd or np.id_part = n.id_partc ]
		If lnSucces < 0
			Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
		Endif
		Update crsNote Set cu_tva = Iif(Empty(Nvl(proc_tva,[])),0,1)
		
		*!*	Do nrord With "crsNote"
		
		lcSql = [select i.label_item, s.nume_set, r.valoare_default, r.nr_item, r.id_item, r.id_set, ] + ;
			[     i.fis_lista, i.id_fisier, i.camp_lista, ] + ;
			[     rpad(case ] + ;									&& inceput valoare_default
		[       when i.fis_lista is not null then ] + ;
			[        pack_util.GetText(i.fis_lista, ] + ;
			[                          i.id_fisier, ] + ;
			[                          to_number(r.valoare_default), ] + ;
			[                          replace(i.camp_lista,  ','  ,  ' || '' '' || '))  ] + ;
			[       ELSE r.valoare_default ] + ;
			[     end,100,' ') as valoare_default_text ] + ;		&& valoare_default ^^
		[ from xrequest r ] + ;
			[join xsets s on s.id_set = r.id_set ] + ;
			[join xitems i on i.id_item = r.id_item ] + ;
			[where r.id_set = ?porec.id_set order by r.nr_item ]
		
		lnSucces = goExecutor.oExecute(lcSql,[crsReq])
		If lnSucces < 0
			Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
		Endif
		Do nrord With "crsReq"
		Go Top
		
		Select Max(nr_item) As nr From crsreq Into Cursor crsnritem
		This.nreqnrmax = Nvl(crsnritem.nr,0)
		Use In (Select("crsnritem"))
		
		goExecutor.oExecute([select label_item, id_item, id_fisier, fis_lista, camp_lista from xitems], [crsItems])
		lnSucces = goExecutor.oExecute([select '' as denumire, CAST(null as number(5)) ] + ;
			[as id_jtva_coloana	from jtva_coloane union ] + ;
			[select denumire , id_jtva_coloana from jtva_coloane], [crsJNetax])
		If lnSucces > 0
			Select * From crsJNetax Into Cursor crsJTax
			Select * From crsJNetax Into Cursor crsJTaxN
		Else
			Messagebox(goExecutor.cEroare, 0 + 48, [Atentie])
		Endif
		
		Select [Jurnal cumparari] As Name, 'JC' As TIPJURNAL From dual Union ;
			SELECT [Jurnal vanzari] As Name, 'JV' As TIPJURNAL From dual Union ;
			select '' As Name, '' As TIPJURNAL From dual ;
			INTO Cursor crsJurnal
		
		Thisform.nid_set = porec.id_set
		
		
		
		Local cLista
		cLista = []
		lcSql = [select s.id_set_utilizator, s.id_utilizator as id_util, u.utilizator ] + ;
			[from xsets_utilizatori s ] + ;
			[join syn_vutilizatori u on u.id_util = s.id_utilizator ] + ;
			[where s.id_set = ?porec.id_set order by u.utilizator]
		lnSucces = goExecutor.oExecute(lcSql,[crsDrepturi_utilizatori])
		If lnSucces < 0
			Messagebox(goExecutor.cEroare,0 + 48,[Atentie])
			Return
		Endif
		Select crsDrepturi_utilizatori
		Scan
			cLista = cLista + Alltrim(Str(id_util)) + [,]
		Endscan
		Go Top
		This.clistainitialautiliz = Left(cLista,Len(cLista) - 1)
		
		lcSql = [select u.utilizator, u.id_util ] + ;
			[  from syn_vutilizatori u ] + ;
			[ where u.INACTIV = 0 ] + ;
			[   AND ID_UTIL not in ] + ;
			[       (select s.id_utilizator as id_util ] + ;
			[          from xsets_utilizatori s ] + ;
			[          join syn_vutilizatori u on u.id_util = s.id_utilizator ] + ;
			[         where s.id_set = ?porec.id_set) order by u.utilizator]		&& utilizatorii care nu au deja drepturi pe xsets
		lnSucces = goExecutor.oExecute(lcSql,[crsUtilizatori])
		If lnSucces < 0
			Messagebox(goExecutor.cEroare,0 + 48,[Atentie])
			Return
		Endif
		
		lcSql = [select categorie, id_categorie from xSetsCategorii ] + ;
			[union ] + ;
			[select '<FARA CATEGORIE>' as categorie, CAST(null as number(5)) as id_categorie from xSetsCategorii ] + ;
			[order by categorie]
		
		*!*	lcSql = [select categorie, id_categorie from xSetsCategorii ] + ;
		*!*		[order by categorie]	
		lnSucces = goExecutor.oExecute(lcSql,[crsCateg])
		If lnSucces < 0
			Messagebox(goExecutor.cEroare,0 + 48,[Atentie])
			Return
		Endif
		
		SELECT crscateg
		LOCATE FOR id_categorie = porec.id_categorie
		
		
		lcSql = [select sucursala, id_sucursala from vnom_sucursale where sters = 0 and inactiv = 0 order by 1]
		lnSucces = goExecutor.oExecute(lcSql,[crsSucursale])
		If lnSucces < 0
			Messagebox(goExecutor.cEroare,0 + 48,[Atentie])
			Return
		Endif
		Select crsNote
		Go Top
		
	ENDPROC

	PROCEDURE verificare
		*!*	LOCAL COMPL,TE
		*!*	TE=''
		*!*	COMPL=.T.
		
		*!*	SELECT crsNote
		*!*	ii=1
		*!*	SCAN
		*!*		lcScd = scd
		*!*		lcScc = scc
		*!*		IF EMPTY(suma)
		*!*			COMPL=.F.
		*!*			TE=TE+','+'suma'
		*!*		ENDIF
		*!*		*!* la clasele 8 si 9 se poate sa nu fie contul corespondent completat
		*!*		IF EMPTY(scd) AND !INLIST(LEFT(NVL(scc,''),1),'8','9')
		*!*			COMPL=.F.
		*!*			TE=TE+','+'contul debitor'
		*!*		ENDIF
		*!*		IF EMPTY(scc) AND !INLIST(LEFT(NVL(scd,''),1),'8','9')
		*!*			COMPL=.F.
		*!*			TE=TE+','+'contul creditor'
		*!*		ENDIF
		*!*		IF EMPTY(nract)
		*!*			COMPL=.F.
		*!*			TE=TE+','+'nr.document'
		*!*		ENDIF
		*!*		IF (!EMPTY(suma_val) OR !EMPTY(CURS)) AND EMPTY(id_valuta)
		*!*			COMPL=.F.
		*!*			TE=TE+','+'nume valuta'
		*!*		ENDIF
		*!*		IF cu_tva = 1 AND EMPTY(NVL(id_jtva_coloana,0))
		*!*			COMPL = .F.
		*!*			TE=TE+','+'explicatie TVA'
		*!*		ENDIF
		*!*		IF !COMPL
		*!*			*!*			DO mesaj WITH 'La nota nr. '+ALLTRIM(STR(ii))+' nu ati completat campurile:',LEFT(te,60)+'...'
		*!*			amessagebox("La nota nr. "+ALLTRIM(STR(ii))+" nu ati completat campurile:"+SUBSTR(TE,2,60)+"...",0+48,"Atentie")
		*!*			RETURN COMPL
		*!*		ENDIF
		*!*		ii=ii+1
		*!*	ENDSCAN
		
		
		*!*	RETURN COMPL
		*!*	modificare 21.02.2008
		lVerificAnalitic = .T.
		lCompletezPartener = .F.
		llRet = verificare_note_contabile('crsNote',lVerificAnalitic,lCompletezPartener) && in oOperatii_comune
		Return llRet
		*!*	modificare 21.02.2008	^
		
		
	ENDPROC

	PROCEDURE verific_analitic
	ENDPROC

	PROCEDURE Pageframe1.Page2.Gridb1.COLUMN1.Combo1.Valid
		Replace id_item With crsItems.id_item , camp_lista With crsItems.camp_lista ;
			valoare_default_text With crsItems.camp_lista In crsReq		&&
		
		Select crsItems
		Locate For id_item = crsReq.id_item
		
		This.Parent.Parent.Refresh()
		
		
		
	ENDPROC

	PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.LostFocus
		*!*	SELECT crsReq
		*!*	replace valoare_default_text With lcValoareText
		
		thisform.pageframe1.page2.gridb1.column3.ReadOnly = .t.
		
	ENDPROC

	PROCEDURE Pageframe1.Page2.Gridb1.Column3.Text1.When
		Local lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcNumeProc, lcFiltruOriginal, ;
			loCauta, lcColoanaText, lcValoareText, lcColoanaId, lcValoareId, liat, lcValoareIdOld, lcValoareTextOld
		
		*!*	If Empty(Nvl(crsReq.fis_lista,[]))
		*!*		Return
		*!*	Endif
		
		*!*	lcSelect = [select ] + Alltrim(crsReq.camp_lista) + [,] + Alltrim(crsReq.id_fisier) + ;
		*!*		[ from ] +  Alltrim(crsReq.fis_lista)		&&
		*!*	lcFiltru = [1=2]
		*!*	lcSchema = []
		*!*	lcOrder = Alltrim(crsReq.camp_lista)
		*!*	lcColoane = Alltrim(crsReq.camp_lista) + [,] + Alltrim(crsReq.id_fisier)
		*!*	lcTitlu = Alltrim(crsReq.label_item)
		*!*	lcFiltruOriginal = [inactiv = 0]
		
		*!*	lcNumeProc = ""
		*!*	locauta = cauta_alfa(lcSelect,lcFiltru,lcSchema,lcOrder,lcColoane,lcTitlu, ;
		*!*		lcTitlu,lcNumeProc,.F.,lcFiltruOriginal)
		*!*
		*!*	lcColoanaText = [locauta.] + Alltrim(crsReq.camp_lista)		&&
		*!*	lcValoareText = Evaluate(lcColoanaText)
		*!*	lcColoanaId = [locauta.] + Alltrim(crsReq.id_fisier)
		*!*	lcValoareId = ALLTRIM(STR(Evaluate(lcColoanaId)))
		
		*!*	SELECT crsReq
		*!*	Replace valoare_default With lcvaloareid, valoare_default_text WITH lcValoareText
		*!*	this.Parent.Refresh()
		
		Select crsItems
		Locate For crsItems.id_item = crsReq.id_item
		If Empty(Nvl(crsItems.fis_lista,[]))
			Thisform.pageframe1.page2.gridb1.column3.ReadOnly = .F.
			Return
		Endif
		
		lcValoareTextOld = Alltrim(crsReq.valoare_default_text)
		lcValoareIdOld = Alltrim(crsReq.valoare_default)
		
		lcSelect = [select ] + Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier) + ;
			[ from ] + Alltrim(crsItems.fis_lista)
		lcFiltru = [1=2]
		lcSchema = []
		lcOrder = Alltrim(crsItems.camp_lista)
		lcColoane = Alltrim(crsItems.camp_lista) + [,] + Alltrim(crsItems.id_fisier)
		lcTitlu = Alltrim(crsItems.label_item)
		lcFiltruOriginal = [inactiv = 0]
		lcNumeProc = []
		loCauta = cauta_alfa(lcSelect,lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, ;
			lcTitlu, lcNumeProc, .F., lcFiltruOriginal)
		
		
		*lcColoanaText = [loCauta.] + Alltrim(crsItems.camp_lista)
		*lcValoareText = Evaluate(lcColoanaText)
		
		*!*	cand camp_lista retine doua valori(ex:nume,cod_fiscal) se pastreaza doar prima valoare
		liat = Rat(',',Alltrim(crsItems.camp_lista))
		*lccoloanatext = [loCauta.] + LEFT(ALLTRIM(crsitems.camp_lista),liat - 1)
		lcColoanaText = [loCauta.] + Left(Alltrim(crsItems.camp_lista), ;
			Iif(liat!=0,liat - 1,Len(Alltrim(crsItems.camp_lista))))
		lcValoareText = Evaluate(lcColoanaText)
		
		lcColoanaId = [loCauta.] + Alltrim(crsItems.id_fisier)
		lcValoareId = Alltrim(Str(Evaluate(lcColoanaId)))
		
		*!*	daca locauta nu intoarce nimic, se memoreaza valorile vechi
		If pniesire = 2
			lcValoareText = lcValoareTextOld
			lcValoareId = lcValoareIdOld
		Endif
		*!* ^^
		
		Select crsReq
		Replace valoare_default With lcValoareId, valoare_default_text With lcValoareText
		This.Parent.Refresh()
		
	ENDPROC

	PROCEDURE Pageframe1.Page2.Nou1.Command1.Click
		Select crsReq
		Scatter Name oReq	
		Append Blank
		Gather Name oReq
		Thisform.nreqnrmax = Thisform.nreqnrmax + 1
			Replace nr_item With Thisform.nreqnrmax, nume_set With crsReq.nume_set , label_item With ''
		Do nrord With "crsReq"
		This.Parent.Parent.GRIDB1.Refresh
		
		
		
	ENDPROC

	PROCEDURE Pageframe1.Page2.Sterge1.Command1.Click
		SELECT crsReq
		IF crsreq.nr_item = thisform.nreqnrmax
			thisform.nreqnrmax = thisform.nreqnrmax - 1
		endif
		
		DELETE
		DO nrord WITH 'crsReq'
		THIS.PARENT.parent.GRIDB1.REFRESH
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Activate
		this.gridb1.Refresh
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1.Click
		this.InteractiveChange 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column10.Text1.InteractiveChange
		*tcFis, tcNume, tcId, tcTitlu
		locauta = thisform.do_caut_nomenclator('Vnom_valute','nume_val','id_valuta','Numele Valutei')
		SELECT crsNote
		REPLACE nume_val WITH locauta.nume_val, id_valuta WITH locauta.id_valuta
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column11.Combo1.InteractiveChange
		Local lnRec, lnnrcrt
		
		Select crsNote
		*!*	lnRec = Recno()
		*!*	lnnrcrt = nrcrt()
			
		Replace proc_tva With (jtva_coloane.cota_tva+100)/100, ;
			id_jtva_coloana With jtva_coloane.id_jtva_coloana, ;
			explicatie_tva with jtva_coloane.denumire IN crsNote
		
		Thisform.pageframe1.page3.pageframe1.page1.gridb1.Refresh()
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column12._CHECKBOX1.Click
		This.Parent.Parent.Refresh()
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column15.Text1.KeyPress
		Lparameters nKeyCode, nShiftAltCtrl
		If nKeyCode=13 Or nKeyCode=9
			Thisform.pageframe1.ActivePage=2
			Thisform.pageframe1.page2.gridb1.SetFocus
		Else
			DoDefault()
		Endif
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1.InteractiveChange
		Replace id_partd With 0, partd With ''
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column2.Text1.LostFocus
		lcCont = crsNote.xscd
		If !Empty(lcCont)
			llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg
			If !llReturn
				Replace crsNote.xscd With ''
			Endif
		Endif
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1.Click
		this.LostFocus(.t.)
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column3.Text1.LostFocus
		Parameters PlClick
		*!*	 11.03.2008
		*!*	 nu verific analiticul
		
		If !thisform.lVerificareAnalitic
			Return
		EndIf 
		*!*	 11.03.2008 ^
		Select crsNote
		lcCont = xscd
		lcAcont = xascd
		If !Empty(lcCont)
			llReturn = verific_analitic(PlClick, lcCont, lcAcont,'xascd','crsNote') && in oOperatii_comune.prg
		Endif
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1.InteractiveChange
		REPLACE id_partc WITH 0, partc WITH ''
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column4.Text1.LostFocus
		lcCont = crsNote.xscc
		If !Empty(lcCont)
			llReturn = exista_cont_in_plan_conturi(lcCont) && in oOperatii_comune.prg
			If !llReturn
				Replace crsNote.xscc With ''
			Endif
		Endif
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1.Click
		this.LostFocus(.t.)
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column5.Text1.LostFocus
		Parameters PlClick
		*!* 11.03.2008
		*!* nu verific analiticul
		If !thisform.lVerificareAnalitic
			Return
		EndIf 
		*!* 11.03.2008 ^
		Select crsNote
		lcCont = xscc
		lcAcont = xascc
		If !Empty(lcCont)
			llReturn = verific_analitic(PlClick, lcCont, lcAcont,'xascc','crsNote') && in oOperatii_comune.prg
		Endif
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column6.Text1.LostFocus
		*!*	PlClick = .f.
		
		*!*	SELECT crsNote
		*!*	lcContD = scd
		*!*	lcAcontD = ascd
		*!*	lcContC = scc
		*!*	lcAcontC = ascc
		
		*!*	IF EMPTY(ascc) 
		*!*		ll_l=THISFORM.verific_analitic(plClick, lcContC, lcAcontC,'ascc')
		*!*	*!*		IF ll_l
		*!*	*!*			REPLACE crsNote.ASCC WITH ''
		*!*	*!*			RETURN 0
		*!*	*!*		ENDIF 
		*!*	ENDIF 
		
		*!*	IF EMPTY(ascd) 
		*!*		ll_l=THISFORM.verific_analitic(plClick, lcContD, lcAcontD,'ascd')
		*!*	*!*		IF ll_l
		*!*	*!*			REPLACE crsNote.ASCD WITH ''
		*!*	*!*			RETURN 0
		*!*	*!*		ENDIF 
		*!*	ENDIF 
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column8.Text1.LostFocus
		IF !thisform.introducere_libera 
			IF !EMPTY(suma_val) OR !EMPTY(curs)
				REPLACE suma WITH ROUND(suma_val * curs,gnPc)
			ENDIF 
		ENDIF 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Gridb1.Column9.Text1.LostFocus
		IF !thisform.introducere_libera 
			IF !EMPTY(curs) OR !EMPTY(suma_val)
				REPLACE suma WITH ROUND(curs*suma_val, gnPc)
			ENDIF 
		ENDIF 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Nou1.Command1.Click
		Select crsNote				&& 	append crsNote
		Scatter Name oact
		Append Blank
		GATHER NAME oact 
		
		
		This.Parent.Parent.GRIDB1.Refresh
		*thisform.pageframe1.page4.pageframe1.Refresh()
		
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page1.Sterge1.Command1.Click
		Select crsNote
		Delete
		*This.Parent.Parent.GRIDB1.Refresh
		Go Top
		Thisform.pageframe1.page3.pageframe1.page1.gridb1.Refresh()
		Thisform.pageframe1.page3.pageframe1.page2.gridb1.Refresh()
		Thisform.pageframe1.page3.pageframe1.page3.gridb1.Refresh()
		
		
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Activate
		this.gridb1.Refresh
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1.Click
		this.InteractiveChange 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column2.Text1.InteractiveChange
		locauta = thisform.do_caut_nomenclator('Vnom_fdoc','fel_document','id_fdoc','Felul Documentului')
		SELECT crsNote
		REPLACE fdoc WITH locauta.fel_document, id_fdoc WITH locauta.id_fdoc
		RELEASE locauta
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column7.Text1.InteractiveChange
		IF !thisform.introducere_libera 
			lcSel = this.Parent.Parent.RecordSource
			SELECT (lcSel)
			SCATTER NAME odoc
			&& 0 = ACTIV
			&& 1 = PASIV
			*thisform.aleg_document_pereche(1,odoc)
			DO aleg_document_pereche WITH 1,odoc,lcSel IN oOperatii_comune.prg
			this.Parent.Parent.SetFocus 
			RELEASE odoc 
		ENDIF 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column8.Text1.KeyPress
		LPARAMETERS nKeyCode, nShiftAltCtrl
		IF nKeyCode=13 OR nKeyCode=9
			thisform.pageframe1.ActivePage=3
			thisform.pageframe1.page3.gridb1.SetFocus 
		ELSE 
			DODEFAULT()
		ENDIF 
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page2.Gridb1.Column9.Text1.InteractiveChange
		IF !thisform.introducere_libera 
			lcSel = this.Parent.Parent.RecordSource
			SELECT (lcSel)
			SCATTER NAME odoc
			&& 0 = ACTIV
			&& 1 = PASIV
			*thisform.aleg_document_pereche(0,odoc)
			DO aleg_document_pereche WITH 0,odoc,lcSel IN oOperatii_comune.prg
			this.Parent.Parent.SetFocus 
			RELEASE odoc 
		ENDIF 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Activate
		this.gridb1.Refresh
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1.Click
		this.InteractiveChange 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column10.Text1.InteractiveChange
		locauta = thisform.do_caut_nomenclator('Vnom_sectii','sectie','id_sectie','Sectia')
		SELECT crsNote
		REPLACE id_sectie WITH locauta.id_sectie, sectie WITH locauta.sectie 
		RELEASE locauta
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1.Click
		this.InteractiveChange 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column17.Text1.InteractiveChange
		If scd_fara_part = 1
			return
		ENDIF
		
		Local lcCont, lnIdPartd, lnRezultat, lnSucces, lcSql
		Local loCauta
		Select crsNote
		Private pcCont
		pcCont = Alltrim(Nvl(xscd,''))
		lnIdPartd = id_partd
		If Empty(pcCont)
			Return
		ENDIF
		
		Local lnrezultat, lnsucces
		lnrezultat = 0
		lnsucces = 0
		lcSql = "select count(*) from config_cont_ireg where cont = ?pcCont"
		lnsucces = goExecutor.oSelect2Value(lcSql, @lnrezultat)
		
		If lnsucces = 1
			If lnrezultat > 0
				loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + ;
					[??lAdaugCorespondente=>1??cCont=>] + pcCont))
				Select crsNote
				Replace id_partd With loCauta.id_part, partd With loCauta.nume
				If lnIdPartd <> loCauta.id_part
					Select crsNote
					Replace pereched With 0, id_factd With 0
				Endif
			Else
				AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
			Endif
		Else
			AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare")
		Endif
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1.Click
		this.InteractiveChange 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column18.Text1.InteractiveChange
		If scc_fara_part = 1
			Return
		Endif
		
		Local lcCont, lnIdPartc, lnRezultat, lnSucces, lcSql, lnIdPartc
		Local loCauta
		Select crsNote
		Private pcCont
		pcCont = Alltrim(Nvl(xscc,''))
		lnIdPartc = id_partc
		
		If Empty(pcCont)
			Return
		Endif
		Local lnRezultat,lnSucces
		lnRezultat=0
		lnSucces=0
		lcSql="select count(*) from config_cont_ireg where cont = ?pcCont"
		lnSucces=goExecutor.oSelect2Value(lcSql,@lnRezultat)
		
		If lnSucces = 1
			If lnRezultat > 0
				loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Alegeti partenerul ] + pcCont + ;
					[??lAdaugCorespondente=>1??cCont=>] + pcCont))
				Select crsNote
				Replace id_partc With loCauta.id_part, partc With loCauta.nume
				If lnIdPartc <> loCauta.id_part
					Select crsNote
					Replace perechec With 0, id_factc With 0
				Endif
			Else
				AMESSAGEBOX("Contul " + pcCont + " nu este configurat cu parteneri", 0 + 16 ,"Eroare")
			Endif
		Else
			AMESSAGEBOX(goExecutor.oPrelucrareEroare, 0 + 16 ,"Eroare")
		Endif
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column2.Check1.Click
		If scc_fara_part = 1
			replace partc WITH '', id_partc WITH 0
			this.Parent.Parent.column18.Refresh()
		endif
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column3.Check1.Click
		If scd_fara_part = 1
			replace partd WITH '', id_partd WITH 0
			this.Parent.Parent.column17.Refresh()
		endif
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1.Click
		this.InteractiveChange 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column7.Text1.InteractiveChange
		locauta = thisform.do_caut_nomenclator('Vnom_lucrari','nrord','id_lucrare','Lucrarea / Contractul')
		SELECT crsNote
		REPLACE nrord WITH locauta.nrord, id_lucrare WITH locauta.id_lucrare
		RELEASE locauta
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1.Click
		this.InteractiveChange 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column8.Text1.InteractiveChange
		*!*	locauta = thisform.do_caut_nomenclator('Vnom_responsabili','nume','id_responsabil','Nume responsabil')
		loCauta = CautPartenerContabilitate(GetHash([cTitlu=>Responsabili??cTipuriParteneri=>] + ;
			ALLTRIM(Str(gnIdTipResponsabili)) + [??lAdaugCorespondente=>1]))
		Select crsNote
		Replace nresp With loCauta.denumire, id_responsabil With loCauta.id_part
		Release loCauta
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1.Click
		this.InteractiveChange 
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Column9.Text1.InteractiveChange
		locauta = thisform.do_caut_nomenclator('Vnom_venchel','explicatie','id_venchelt','Cheltuiala / Venit')
		SELECT crsNote
		REPLACE dst_chlt WITH locauta.explicatie, id_venchelt WITH locauta.id_venchelt
		RELEASE locauta
		
	ENDPROC

	PROCEDURE Pageframe1.Page3.Pageframe1.Page3.Gridb1.Init
		*!*	this.column1.header1.BackColor=this.column1.dynamicBackColor
		
		
		*!*	FOR i=1 TO this.ColumnCount 
		*!*		t='this.column'+ALLTRIM(STR(i))+'.header1.backcolor=this.column'+ALLTRIM(STR(i))+'.backcolor'
		*!*		&t
		*!*	ENDFOR
		*!*	this.Refresh 
	ENDPROC

	PROCEDURE Pageframe1.Page4.But_precedent1.Click
		Local lcOnError, llErr, lnIdUtil, lnNrRec
		
		lnIdUtil = crsDrepturi_utilizatori.id_util
		llErr = .F.
		lcOnError = [ErrorHandler(Error(),Program(),Lineno())]
		On Error llErr = .T.
		
		Select Count(*) As nr From crsDrepturi_utilizatori Into Cursor crsUtilizRamasi
		If nr = 0
			Return
		Endif
		Use In (Select("crsUtilizRamasi"))
		
		lnNrRec = Recno()
		Begin Transaction
		Insert Into crsUtilizatori(id_util, utilizator) ;
			values(crsDrepturi_utilizatori.id_util,crsDrepturi_utilizatori.utilizator)
		Delete From crsDrepturi_utilizatori Where id_util = lnIdUtil
		If llErr
			Rollback
			&lcOnError
			llErr = .F.
		ELSE
			End Transaction
		Endif
		
		On Error &lcOnError
		
		Select crsUtilizatori
		Locate For id_util = lnIdUtil
		Select crsDrepturi_utilizatori
		Go Top
		*Go Iif(lnNrRec <> 1, lnNrRec - 1, 1)
		
		*!*	Thisform.pageframe1.page5.gridb1.Refresh()
		*!*	Thisform.pageframe1.page5.gridb2.Refresh()
		Thisform.pageframe1.page4.gridb1.Refresh()
		Thisform.pageframe1.page4.gridb2.Refresh()
		
	ENDPROC

	PROCEDURE Pageframe1.Page4.But_urmator1.Click
		Local lcOnError, llErr, lnIdUtil, lnNrRec
		
		lnIdUtil = crsutilizatori.id_util
		llErr = .F.
		lcOnError = On("error")
		*lcOnError = [ErrorHandler(Error(),Program(),Lineno())]
		On Error llErr = .T.
		
		Select Count(*) As nr From crsutilizatori Into Cursor crsUtilizRamasi
		If nr = 0
			Return
		Endif
		Use In (Select("crsUtilizRamasi"))
		
		lnNrRec = Recno()
		Begin Transaction
		Insert Into crsDrepturi_utilizatori(id_util, utilizator) ;
			VALUES(crsutilizatori.id_util,crsutilizatori.utilizator)
		Delete From crsutilizatori Where id_util = lnIdUtil
		If llErr
			Rollback
			&lcOnError
			llErr = .F.
		Else
			End Transaction
		Endif
		
		On Error &lcOnError
		
		Select crsDrepturi_utilizatori
		Locate For id_util = lnIdUtil
		Select crsutilizatori
		Go Top
		*!*	lnGoInreg = Iif(lnNrRec <> 1, lnNrRec - 1, 1) 
		*!*	Go lnGoInreg 
		
		
		Thisform.pageframe1.page4.gridb1.Refresh()
		Thisform.pageframe1.page4.gridb2.Refresh()
		
	ENDPROC

	PROCEDURE Pageframe1.Page4.Gridb1.COLUMN1.Text1.DblClick
		this.Parent.Parent.Parent.but_urmator1.Click()
	ENDPROC

	PROCEDURE Pageframe1.Page4.Gridb2.COLUMN1.Text1.DblClick
		this.Parent.Parent.Parent.but_precedent1.Click()
	ENDPROC

ENDDEFINE