*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_sal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" 		&& Application class.
 	*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		clastcaption = Microsoft Visual FoxPro
		clasticon = 
		Name = "capplication"
		nformcount = 0
	*</PropValue>
	
	PROCEDURE doform
		LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
		LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
		LOCAL lcFormName,lnFormCount
		
		_screen.visible=.t.
		
		lcFileName=UPPER(ALLTRIM(tcFileName))
		IF EMPTY(lcFileName)
			RETURN .F.
		ENDIF
		lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
		lcFileName=LOWER(FULLPATH(lcFileName))
		IF NOT "."$lcFileName
			lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
		ENDIF
		IF NOT FILE(lcFileName)
			this.FileNotFoundMsgBox(lcFileName)
			RETURN .F.
		ENDIF
		lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
		IF tlNoMultipleInstances
			FOR lnCount = 1 TO this.nFormCount
				IF this.aFormNames[lnCount]==lcFormName AND ;
						TYPE("this.aForms[lnCount]")=="O" AND ;
						NOT ISNULL(this.aForms[lnCount])
					this.aForms[lnCount].Show
					RETURN .F.
				ENDIF
			ENDFOR
		ENDIF
		this.RefreshFormsCollection
		this.nFormCount=this.nFormCount+1
		DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
		this.aFormNames[this.nFormCount]=lcFormName
		IF NOT EMPTY(lcClass)
			SET CLASSLIB TO (lcFileName) ADDITIVE
			this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
			IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
					NOT ISNULL(this.aForms[this.nFormCount])
				this.aForms[this.nFormCount].Show
			ENDIF
		ELSE
			DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
		ENDIF
		lnFormCount=this.nFormCount
		this.RefreshFormsCollection
		IF this.lCascadeForms AND this.nFormCount>=lnFormCount
			oForm=this.aForms[this.nFormCount]
			lnTop=oForm.Top
			lnLeft=oForm.Left
			lcName=oForm.Name
			IF WEXIST(lcName) AND oForm.WindowState#2
				FOR lnCount = 1 TO (this.nFormCount-1)
					oForm2=this.aForms[lnCount]
					IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
						LOOP
					ENDIF
					IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
							WLCOL(lcName)=WLCOL(oForm2.Name)
						lnTop=lnTop+this.nPixelOffset
						lnLeft=lnLeft+this.nPixelOffset
					ENDIF
				ENDFOR
				IF oForm.Top#lnTop
					oForm.Top=lnTop
				ENDIF
				IF oForm.Left#lnLeft
					oForm.Left=lnLeft
				ENDIF
			ENDIF
		ENDIF
		
		*!* modificat 14.12.2004
		*!* liana
		IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
			this.aForms[this.nFormCount].Show 
		ENDIF
		
	ENDPROC

	PROCEDURE onshutdown
		If glQuit
			Do INCHIDPROG
			Quit
		Endif
		
		
		OA=Createobject('frm_mesaj','ROA Definirea companiei','intreb.ico','INTREBARE','Doriți să ieșiți din program?')
		OA.lbl_mesaj1.FontBold=.T.
		OA.lbl_mesaj1.FontSize=12
		OA.lbl_mesaj1.Top=55
		OA.Show(1)
		If buton=1
			ON SHUTDOWN 
			ON ERROR 
			CLEAR EVENTS 
			IF _VFP.StartMode <> 0	 
				QUIT
			ENDIF 	
		Endif
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_calc AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_calc"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcid_sucursala = Nvl(ALLTRIM(STR(toRec.id_sucursala)),"")
			lcCalc = Nvl(STRTRAN(Alltrim(Upper(toRec.denumire)),['],['']),"")
			lcDescriere = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"")
			lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0")	
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO ] + gcS + [.calculatoare (denumire,id_sucursala,inactiv,descriere) VALUES ('] + lcCalc + [',] + lcid_sucursala +[,]+lcInactiv+ [,']+lcDescriere+[')]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE ] + gcS + [.calculatoare SET denumire = '] + lcCalc+[', id_sucursala = ]+lcId_sucursala + [,inactiv = ] + lcinactiv + [,descriere = ']+lcDescriere+[' where id_calc = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [update calculatoare set sters=1 where id_calc=]+lcid
		*!*			lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
		Endcase
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_calcsetari AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_calcsetari"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcid_calc = Nvl(ALLTRIM(STR(toRec.id_calc)),"")
			lcExplicatia = Nvl(STRTRAN(Alltrim(Upper(toRec.explicatia)),['],['']),"")
			lcValoare = Nvl(STRTRAN(Alltrim(Upper(toRec.valoare)),['],['']),"")
			lcSetare = Nvl(ALLTRIM(toRec.setare),"")	
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO ] + gcS + [.calculatoare_setari (explicatia,id_calc,valoare, setare) VALUES ('] +;
				 lcExplicatia + [',] + lcid_calc + [,'] + lcValoare+ [','] + lcSetare + [')]
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE ] + gcS + [.calculatoare_setari SET explicatia = '] + lcExplicatia+[', id_calc = ]+lcId_calc +;
				 [,setare = '] + lcSetare + [',valoare = ']+lcValoare+[' where id_calcsetare = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [update calculatoare_setari set sters=1 where id_calcsetare=]+lcid
		*!*			lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
		Endcase
		*!*	STRTOFILE(LCSQL,'C:\DELETE.SQL')
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_gruputil AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_gruputil"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcid_tata = Nvl(ALLTRIM(STR(toRec.id_tata)),"NULL")
			IF EMPTY(toRec.id_tata) OR ISNULL(toRec.id_tata)
				lcid_tata = "NULL"
			ELSE 
				lcid_tata = Nvl(ALLTRIM(STR(toRec.id_tata)),"NULL")	
			ENDIF 	
					
			lcGrup = Nvl(STRTRAN(Alltrim(Upper(toRec.denumire_grup)),['],['']),"")
			lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0")	
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO ] + gcS + [.grupuri_utilizatori (denumire_grup,id_tata,inactiv) VALUES ('] + lcGrup + [',] + lcid_tata +[,]+lcInactiv+ [)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE ] + gcS + [.grupuri_utilizatori SET denumire_grup = '] + lcGrup+[', id_tata = ]+lcId_tata + [,inactiv = ] + lcinactiv + [ where id_grup = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [update grupuri_utilizatori set sters=1 where id_grup=]+lcid
		*!*			lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
		Endcase
		*!*	STRTOFILE(LCSQL,'C:\DELETE.SQL')
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS cus_odata_utilizatori AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx" 
 	*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />

	*<PropValue>
		Name = "cus_odata_utilizatori"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		
		If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
			Return .F.
		Endif
		
		If Inlist(lcActiune, "UPDATE",'DELETE')
			lcId = Alltrim(Str(tnId))
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcid_util = IIF(EMPTY(toRec.id_util),'null',Nvl(ALLTRIM(STR(toRec.id_util)),"null"))
			lcid_partener = IIF(EMPTY(toRec.id_partener),'null',Nvl(ALLTRIM(STR(toRec.id_partener)),"null"))
			lcid_contact = IIF(EMPTY(toRec.id_contact),'null',Nvl(ALLTRIM(STR(toRec.id_contact)),"null"))	
			lcid_grup = IIF(EMPTY(toRec.id_grup),'null',Nvl(ALLTRIM(STR(toRec.id_grup)),"null"))
			lcid_sucursala = IIF(EMPTY(toRec.id_sucursala) and EMPTY(toRec.sucursala),'null',Nvl(ALLTRIM(STR(toRec.id_sucursala)),"null"))
			lcinactiv = Nvl(ALLTRIM(STR(toRec.inactiv)),"0")	
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO ] + gcS + [.Utilizatori_rol_intern (id_util,id_partener,id_contact,id_grup,id_sucursala,inactiv) VALUES (] +;
				 lcid_util + [,] + lcid_partener + [,]+lcid_contact +[,] +lcid_grup +[,]+ lcid_sucursala +[,]+lcInactiv+ [)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE ] + gcS + [.Utilizatori_rol_intern SET id_util = ] + lcid_util +[, id_partener= ]+lcid_partener +;
				 [,id_contact= ] + lcid_contact +[,id_grup=]+lcid_grup +[,id_sucursala = ]+lcid_sucursala +[,Inactiv=]+lcInactiv+ [ where id_util = ] + lcId
		
			Case lcActiune = "DELETE"
			
				lcSql = [update Utilizatori_rol_intern set sters=1 where id_util=]+lcid
		*!*			lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcid + [,'] + lclook + [','] + lclookid + ['); end;]
		Endcase
		*!*	STRTOFILE(LCSQL,'C:\DELETE.SQL')
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_calc AS frm_termin OF "..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="lb_nom_calc" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 393
		Name = "frm_calc"
		Width = 404
		_SHAPE1.Height = 29
		_SHAPE1.Left = 0
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Top = 0
		_SHAPE1.Width = 408
		_SHAPE2.Height = 29
		_SHAPE2.Left = 300
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 104
		LB_TITLU_ALB_B121.Caption = "Calculatoare"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		BUT_TERMIN1.Left = 372
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		Height = 310, ;
		Left = 11, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "crsCalc", ;
		ScrollBars = 2, ;
		Top = 77, ;
		Width = 384, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "denumire", ;
		Column1.Name = "Column1", ;
		Column1.Width = 111, ;
		Column2.ColumnOrder = 1, ;
		Column2.ControlSource = "sucursala", ;
		Column2.Name = "Column2", ;
		Column2.Width = 132, ;
		Column3.ControlSource = "descriere", ;
		Column3.Name = "Column3", ;
		Column3.Width = 105
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Calculator", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Descriere", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

	ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
		Left = 312, ;
		Name = "CMD_CAUTA1", ;
		Top = 36
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'lb_nom_calc' AS clb_tx_simplu WITH ;
		Left = 12, ;
		Name = "lb_nom_calc", ;
		Top = 36, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Calculator", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=pocalc.ca_baza1.cfiltru
		ENDIF
		save_grid_tag(thisform._grdrow1)
		pocalc.ca_baza1.cfiltru=lcFiltru
		pocalc.ca_baza1.afisare()
		restore_grid_tag(thisform._grdrow1)
		IF RECCOUNT('crsCalc')>0
			thisform._grdrow1.SetFocus()
		ELSE
			thisform.Lb_nom_calc.SetFocus()
		ENDIF
		
	ENDPROC

	PROCEDURE do_adauga
		DO nom_calculatoare_nou IN onomenclatoare.prg
		IF gnButon = 1
			THISFORM.actualizeaza_grid1()
		ENDI
	ENDPROC

	PROCEDURE do_cauta
		Local lcFiltru
		lcFiltru=[]
		lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_calc.text_simplu1.value)),['],[''])
		
		If !Empty(lcNume)
			lcFiltru=[denumire like ']+lcNume+[%']
		ELSE 
			lcFiltru = [2=2]	
		Endif
		This.MousePointer= 11
		This.LockScreen=.T.
		Thisform.actualizeaza_grid1(lcFiltru)
		IF RECCOUNT()=0
			aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
		ENDIF
		This.LockScreen=.F.
		This.MousePointer= 0
	ENDPROC

	PROCEDURE do_excel
		lcTabel = This._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Do export_excel_grid With This._grdrow1, "sucursala,denumire"
		Else
			amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie")
		Endif
		
	ENDPROC

	PROCEDURE do_modifica
		Local loRec, lnIdCalculator
		
		If Reccount('crsCalc')>0
			Select crsCalc
			lnIdCalculator = id_calc
			Scatter Name loRec
		
			loRec = nom_calculatoare_modifica(lnIdCalculator)
		
			If !Isnull(loRec)
				Thisform.MousePointer= 11
				Thisform.LockScreen=.T.
				Thisform.actualizeaza_grid1()
				Select crsCalc
				Locate For id_calc = loRec.id_calc
				If !Found()
					Go Top
				Endif
				Thisform._grdrow1.SetFocus()
				Thisform.LockScreen=.F.
				Thisform.MousePointer= 0
			Endif
		Else
			amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE do_sterge
		If Reccount('crsCalc')>0
			Select crsCalc
			Scatter Name lorec
			Do STERGE_INREGISTRARE With "calc",lorec.id_calc
		
			This.actualizeaza_grid1()
		Else
			amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie")
		Endif
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_calc_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

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

	*<DefinedPropArrayMethod>
		*m: do_alege_sucursala
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 193
		Name = "frm_calc_nou"
		nid = 
		orec = 
		Width = 332
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE2.Left = 258
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		LB_TITLU_ALB_B121.Caption = "Calculator"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 7
		BUT_TERMIN1.Left = 300
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
		BUT_RENUNT1.Left = 271
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 5
		BUT_RENUNT1.Top = 1
	*</PropValue>

	ADD OBJECT '_checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Inactiv", ;
		ControlSource = "porec.inactiv", ;
		Left = 24, ;
		Name = "_checkbox1", ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 160
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Cb_sucursala' AS cb_tx_simplu WITH ;
		Left = 17, ;
		Name = "Cb_sucursala", ;
		TabIndex = 3, ;
		Top = 108, ;
		_cbbase1.ControlSource = "porec.sucursala", ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "vnom_sucursale.sucursala", ;
		_cbbase1.RowSourceType = 2, ;
		_lbbase1.Caption = "Sucursala", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 17, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 52, ;
		Width = 290, ;
		TEXT_SIMPLU1.ControlSource = "porec.denumire", ;
		TEXT_SIMPLU1.Format = "!K", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Calculator", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Left = 17, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 2, ;
		Top = 80, ;
		Width = 290, ;
		Text_simplu1.ControlSource = "porec.descriere", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Descriere", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'CUS_ODATA_CALC1' AS cus_odata_calc WITH ;
		Left = 288, ;
		Name = "CUS_ODATA_CALC1", ;
		Top = 156
		*< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" />
	
	PROCEDURE do_alege_sucursala
	ENDPROC

	PROCEDURE inainte_de_do_termin
		LOCAL PLRETURN
		
		lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS )
		IF   INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
			lcval=THIS.ACTIVECONTROL.CONTROLSOURCE
			&lcval=THISFORM.ACTIVECONTROL.VALUE
		ENDIF
		
		
		DO CASE
			CASE EMPTY(porec.denumire)
				aMESSAGEBOX('Nu ati completat denumirea calculatorului!',0+48,"Atentie")
				THIS.clb_tx_simplu1.SETFOCUS()
				PLRETURN=.F.
			CASE EMPTY(porec.sucursala)
				aMESSAGEBOX('Nu ati completat sucursala!',0+48,"Atentie")
				THIS.cb_sucursala._cbbase1.SETFOCUS()
				PLRETURN=.F.
		
		
			OTHERWISE
				PLRETURN=THIS.cus_odata_calc1.salvare(THIS.OREC,THIS.NID)
		ENDCASE
		
		RETURN PLRETURN
		
	ENDPROC

	PROCEDURE Init
		LPARAMETERS toRec, tnId, tcActiune
		
		DODEFAULT()
		
		this.orec= toRec
		this.nid = tnId
		this.cus_odata_calc1.cactiune = tcActiune
	ENDPROC

	PROCEDURE Cb_sucursala._cbbase1.Valid
		porec.id_sucursala = vnom_sucursale.id_sucursala
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_calcsetari AS frm_termin OF "..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="clb_calculator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="clb_sucursala" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		cgridsortlist = _grdrow1
		DoCreate = .T.
		Height = 465
		Name = "frm_calcsetari"
		Width = 596
		_SHAPE1.Height = 29
		_SHAPE1.Left = 0
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Top = 0
		_SHAPE1.Width = 636
		_SHAPE2.Height = 29
		_SHAPE2.Left = 473
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 251
		LB_TITLU_ALB_B121.Caption = "Setari calculatoare"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 9
		BUT_TERMIN1.Left = 565
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 0
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		Height = 364, ;
		Left = 8, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "crsCalcsetari", ;
		TabIndex = 4, ;
		Top = 98, ;
		Width = 578, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "calculator", ;
		Column1.Name = "Column1", ;
		Column1.Width = 115, ;
		Column2.ColumnOrder = 5, ;
		Column2.ControlSource = "explicatia", ;
		Column2.Name = "Column2", ;
		Column2.Width = 101, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "valoare_text", ;
		Column3.Name = "Column3", ;
		Column3.Width = 127, ;
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "setare", ;
		Column4.Name = "Column4", ;
		Column4.Width = 113, ;
		Column5.ColumnOrder = 1, ;
		Column5.ControlSource = "sucursala", ;
		Column5.Name = "Column5", ;
		Column5.Width = 86
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Calculator", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatia", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Valoare", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Setare", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.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 '_grdrow1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

	ADD OBJECT 'clb_calculator' AS clb_tx_simplu WITH ;
		Left = 8, ;
		Name = "clb_calculator", ;
		TabIndex = 1, ;
		Top = 38, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Calculator", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'clb_sucursala' AS clb_tx_simplu WITH ;
		Left = 8, ;
		Name = "clb_sucursala", ;
		TabIndex = 2, ;
		Top = 66, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Sucursala", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
		Left = 308, ;
		Name = "CMD_CAUTA1", ;
		TabIndex = 3, ;
		Top = 38
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters pcFiltru
		Local lcFiltru
		lcFiltru=pcFiltru
		If Empty(lcFiltru)
			lcFiltru=pocalc.ca_baza1.cfiltru
		Endif
		save_grid_tag(Thisform._grdrow1)
		pocalc.ca_baza1.cfiltru=lcFiltru
		pocalc.ca_baza1.afisare()
		restore_grid_tag(Thisform._grdrow1)
		If Reccount('crsCalcsetari')>0
			Thisform._grdrow1.SetFocus()
		Else
			Thisform.clb_calculator.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_adauga
		DO calcsetare_nou IN onomenclatoare.prg
		IF gnButon = 1
			THISFORM.actualizeaza_grid1()
		ENDI
	ENDPROC

	PROCEDURE do_cauta
		LOCAL lcFiltru, lcCalculator, lcSucursala
		
		lcFiltru=[]
		lcCalculator = STRTRAN(UPPER(ALLTRIM(THIS.clb_calculator.text_simplu1.VALUE)),['],[''])
		lcSucursala = STRTRAN(UPPER(ALLTRIM(THIS.clb_sucursala.text_simplu1.VALUE)),['],[''])
		
		IF !EMPTY(lcCalculator)
			lcFiltru = lcFiltru + [ and calculator like '%] + lcCalculator + [%']
		ENDIF 
		IF !EMPTY(lcSucursala)
			lcFiltru = lcFiltru + [ and sucursala like '%] + lcSucursala + [%']
		ENDIF 
		IF !EMPTY(lcFiltru)
			lcFiltru = SUBSTR(lcFiltru,6)
		ELSE
			lcFiltru = "2=2"
		ENDIF
		
		THIS.MOUSEPOINTER= 11
		THIS.LOCKSCREEN=.T.
		THISFORM.actualizeaza_grid1(lcFiltru)
		IF RECCOUNT()=0
			aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
		ENDIF
		THIS.LOCKSCREEN=.F.
		THIS.MOUSEPOINTER= 0
		
	ENDPROC

	PROCEDURE do_modifica
		LOCAL loRec, lnIdUtil
		
		If Reccount('crsCalcSetari')>0
			Select crsCalcSetari
			lnId = id_calcsetare
			Scatter Name loRec
		
			loRec = calcsetare_modifica(lnId)
				
			IF !ISNULL(loRec)
				Thisform.MousePointer= 11
				Thisform.LockScreen=.T.
				Thisform.actualizeaza_grid1()
				SELECT crsCalcSetari
				LOCATE FOR id_calcsetare = lorec.id_calcsetare
				IF !FOUND()
					GO top
				ENDIF 	
				thisform._grdrow1.SetFocus()		
				Thisform.LockScreen=.F.
				Thisform.MousePointer= 0
			Endif
		Else
			amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE do_sterge
		If Reccount('crsCalcSetari')>0
			Select crsCalcSetari
			Scatter Name lorec
			Do STERGE_INREGISTRARE With "calcsetari",lorec.id_calcsetare
		
			This.actualizeaza_grid1()
		Else
			amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie")
		Endif
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_calcsetari_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_explicatia" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CUS_ODATA_CALCSETARI1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_calculator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_setare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_valoare" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_alege_valoare
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 169
		Name = "frm_calcsetari_nou"
		nid = .F.
		orec = 
		Width = 381
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE2.Left = 320
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		LB_TITLU_ALB_B121.Caption = "Setare calculator"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 7
		BUT_TERMIN1.Left = 350
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Left = 11
		GRIDSORT1.Name = "GRIDSORT1"
		GRIDSORT1.Top = 42
		BUT_RENUNT1.Left = 321
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 6
		BUT_RENUNT1.Top = 1
	*</PropValue>

	ADD OBJECT 'Cb_calculator' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 23, ;
		Name = "Cb_calculator", ;
		TabIndex = 1, ;
		Top = 48, ;
		Width = 326, ;
		_cbbase1.ControlSource = "porec.calculator", ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 96, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "vcalculatoare.denumire", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 225, ;
		_lbbase1.Caption = "Calculator", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_setare' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 23, ;
		Name = "Cb_setare", ;
		TabIndex = 2, ;
		Top = 76, ;
		Width = 326, ;
		_cbbase1.ControlSource = "porec.setare", ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 96, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "vsetari.setare", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 224, ;
		_lbbase1.Caption = "Setare", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\..\roacomenzi\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_explicatia' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 23, ;
		Name = "Clb_explicatia", ;
		TabIndex = 3, ;
		Top = 104, ;
		Width = 326, ;
		TEXT_SIMPLU1.ControlSource = "porec.explicatia", ;
		TEXT_SIMPLU1.Format = "!K", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 97, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 221, ;
		LB_SIMPLU1.Caption = "Explicatie", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_valoare' AS ct_clb_cautare WITH ;
		cconditie = Empty(NVL(porec.valoare,'')), ;
		cprocedura = thisform.do_alege_valoare, ;
		cvar_afisata = porec.valoare_text, ;
		Height = 31, ;
		Left = 22, ;
		Name = "Clb_valoare", ;
		TabIndex = 4, ;
		Top = 131, ;
		Width = 331, ;
		img_cautare.Left = 308, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		clb_tx_cautare.Lb_simplu1.Caption = "Valoare", ;
		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
		clb_tx_cautare.Name = "clb_tx_cautare", ;
		clb_tx_cautare.Text_simplu1.ControlSource = "poRec.valoare", ;
		clb_tx_cautare.Text_simplu1.Height = 23, ;
		clb_tx_cautare.Text_simplu1.Left = 97, ;
		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
		clb_tx_cautare.Text_simplu1.Top = 3, ;
		clb_tx_cautare.Text_simplu1.Width = 195, ;
		clb_tx_cautare.Width = 300
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'CUS_ODATA_CALCSETARI1' AS cus_odata_calcsetari WITH ;
		Left = 9, ;
		Name = "CUS_ODATA_CALCSETARI1", ;
		Top = 108
		*< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" />
	
	PROCEDURE do_alege_valoare
		LOCAL loHash, lcVarResult, lcVarValoare
		
		DO CASE
			CASE vsetari.tip = 'L' AND !EMPTY(NVL(vsetari.tabel,'')) && L = LISTA; T = TEXT
				loHash = GetHash()
				WITH loHash
					.SetValue("cSelect", "select " + ALLTRIM(NVL(vsetari.coloane,'')) + " from " + ALLTRIM(NVL(vsetari.tabel,'')))
					.SetValue("cSchema", ALLTRIM(NVL(vsetari.Schema,'')))
					.SetValue("cFiltru", ALLTRIM(NVL(vsetari.Filtru,'')))
					.SetValue("cOrder", ALLTRIM(NVL(vsetari.Ordine,'')))
					.SetValue("cColoana", ALLTRIM(NVL(vsetari.Coloane,'')))
					.SetValue("cTitlu", ALLTRIM(NVL(vsetari.Titlu,'')))
					.SetValue("cTitluColoana", ALLTRIM(NVL(vsetari.TitluColoane,'')))
					.SetValue("cFiltruOriginal", ALLTRIM(NVL(vsetari.FiltruOriginal,'')))
					.SetValue("cPrimaColoana", ALLTRIM(NVL(vsetari.ResultColoana,'')))
					.SetValue("cEnums",ALLTRIM(NVL(vsetari.Enums,'')))
					
					IF '2=2'$ALLTRIM(NVL(vsetari.Filtru,''))
						.SetValue("nPornire", 6)
					ENDIF 
				ENDWITH
		
				loCauta = cauta_alfa_hash(loHash) && cauta_alfa.prg
				lcVarResult = "loCauta." + ALLTRIM(vsetari.resultcoloana)
				lcVarValoare = "loCauta." +  ALLTRIM(vsetari.idcoloana)
				IF !ISNULL(loCauta) 
					IF !EMPTY(&lcVarResult)
						poRec.valoare_text = ALLTRIM(TRANSFORM(EVALUATE(lcVarResult)))
						poRec.valoare = ALLTRIM(TRANSFORM(EVALUATE(lcVarValoare)))
					ENDIF 
				ENDIF 			
			
			OTHERWISE 
				lcTip = IIF(vsetari.tip = 'L' and !EMPTY(NVL(vsetari.enums,'')), 'COMBO','EDIT') 
				lcEnums = ALLTRIM(NVL(vsetari.enums,''))
				poRec.valoare = GetText(GetHash("cTitlu=>" + ALLTRIM(vsetari.setare) + "??cText=>" + ALLTRIM(poRec.valoare)+"??cTip=>" + lcTip + "??cEnums=>" + lcEnums)) && ocautare.prg
				poRec.valoare_text = poRec.valoare
		ENDCASE
		
		thisform.Refresh 
		
		
	ENDPROC

	PROCEDURE inainte_de_do_termin
		LOCAL PLRETURN
		
		lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS )
		IF   INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
			lcval=THIS.ACTIVECONTROL.CONTROLSOURCE
			&lcval=THISFORM.ACTIVECONTROL.VALUE
		ENDIF
		
		
		DO CASE
			CASE EMPTY(porec.calculator)
				aMESSAGEBOX('Nu ati completat denumirea calculatorului!',0+48,"Atentie")
				THIS.cb_calculator.SETFOCUS()
				PLRETURN=.F.
			CASE EMPTY(porec.setare)
				aMESSAGEBOX('Nu ati completat setarea!',0+48,"Atentie")
				THIS.cb_setare.SETFOCUS()
				PLRETURN=.F.
			CASE EMPTY(porec.valoare_text)
				aMESSAGEBOX('Nu ati completat valoarea!',0+48,"Atentie")
				THIS.clb_valoare.SETFOCUS()
				PLRETURN=.F.		
		
		
			OTHERWISE
				PLRETURN=THIS.cus_odata_calcsetari1.salvare(THIS.OREC,THIS.NID)
		ENDCASE
		
		RETURN PLRETURN
		
	ENDPROC

	PROCEDURE Init
		LPARAMETERS toRec, tnId, tcActiune
		
		DODEFAULT()
		
		this.orec= toRec
		this.nid = tnId
		this.cus_odata_calcsetari1.cactiune = tcActiune
		
		IF UPPER(tcActiune) = 'UPDATE'
			this.cb_calculator._cbbase1.Enabled = .F.
			this.cb_setare._cbbase1.Enabled = .F.
			this.clb_explicatia.SetFocus()
		ENDIF 
	ENDPROC

	PROCEDURE Cb_calculator._cbbase1.Valid
		porec.id_calc = vcalculatoare.id_calc
		
	ENDPROC

	PROCEDURE Cb_setare._cbbase1.Valid
		poRec.explicatia = ALLTRIM(vsetari.setare)
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_entitati_conturi_o 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._grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1._grdrow2.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_reset1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Lb_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_filtru_nume" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_filtru_cont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.ck_tip_entitate" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Cmd_executa1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_cod_fiscal" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE1.Ck_reg_comert" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow3.Column3._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2._grdrow4.Column5._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_nou2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_modifica2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_sterge2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_nou3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_modifica3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.But_sterge3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.PAGE2.Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column5._checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column1.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3._grdrow4.Column6.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.But_nou3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.But_modifica3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.But_sterge3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.Ck_filtru_cont2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_pageframe1.Page3.Cmd_reset1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: actualizeaza_grid3
		*m: actualizeaza_grid4
		*m: actualizeaza_grid5
		*m: adauga_cont
		*m: do_adauga_coresp_tc
		*m: do_adauga_tipuri
		*m: do_cauta2
		*m: do_modifica_coresp_tc
		*m: do_modifica_tipuri
		*m: do_reset2
		*m: do_sterge_coresp_tc
		*m: do_sterge_tipuri
		*m: modifica_cont
		*m: sterge_cont
		*p: cul_activ
		*p: temporar_id_tip_part
		*p: temporar_tip_partener
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		cgridsortlist = _pageframe1.page1._grdrow1;_pageframe1.page3._grdrow4
		DoCreate = .T.
		Height = 420
		Name = "frm_entitati_conturi_o"
		temporar_id_tip_part = 0
		temporar_tip_partener = 
		Width = 697
		WindowState = 0
		WindowType = 1
		_shape1.Anchor = 10
		_shape1.Comment = "*:OnResize=sR"
		_shape1.Height = 30
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Tag = "W"
		_shape1.Top = 0
		_shape1.Width = 698
		_shape2.Anchor = 8
		_shape2.Comment = "*:OnResize=RT"
		_shape2.Height = 29
		_shape2.Left = 665
		_shape2.Name = "_shape2"
		_shape2.Tag = "L"
		_shape2.Top = 1
		_shape2.Width = 32
		Lb_titlu_alb_b121.Caption = "Configurare Entitati"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 19
		Lb_titlu_alb_b121.Tag = ""
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Comment = "*:OnResize=RT"
		BUT_TERMIN1.Height = 27
		BUT_TERMIN1.Left = 666
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 18
		BUT_TERMIN1.Tag = "L"
		BUT_TERMIN1.Top = 2
		BUT_TERMIN1.Width = 30
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT '_pageframe1' AS _pageframe WITH ;
		Anchor = 15, ;
		Comment = "*:OnResize=sS", ;
		ErasePage = .T., ;
		Height = 391, ;
		Left = 0, ;
		Name = "_pageframe1", ;
		PageCount = 3, ;
		Tag = "WH", ;
		Top = 29, ;
		Width = 698, ;
		PAGE1.BackColor = 255,255,255, ;
		PAGE1.Caption = "Entitati", ;
		PAGE1.Comment = "", ;
		PAGE1.Name = "PAGE1", ;
		PAGE1.Tag = "HW", ;
		PAGE2.BackColor = 255,255,255, ;
		PAGE2.Caption = "Tipuri Entitati - Conturi", ;
		PAGE2.Comment = "", ;
		PAGE2.Name = "PAGE2", ;
		PAGE2.Tag = "HW", ;
		Page3.BackColor = 255,255,255, ;
		Page3.Caption = "Conturi", ;
		Page3.Name = "Page3", ;
		Page3.Tag = "HW"
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="pageframe" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 14, ;
		Comment = "*:OnResize=SS", ;
		DeleteMark = .F., ;
		Height = 296, ;
		HighlightStyle = 1, ;
		Left = 4, ;
		Name = "_grdrow1", ;
		nrgbrow = 0, ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordMark = .F., ;
		RecordSource = "crsparteneri", ;
		TabIndex = 14, ;
		Tag = "HW", ;
		Top = 65, ;
		Width = 551, ;
		Column1.ControlSource = "crsparteneri.id_part", ;
		Column1.Name = "Column1", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 65, ;
		Column2.ControlSource = "crsparteneri.nume", ;
		Column2.Name = "Column2", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 174, ;
		Column3.ControlSource = "crsparteneri.cod_fiscal", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column4.ControlSource = "crsparteneri.reg_comert", ;
		Column4.Name = "Column4", ;
		Column4.ReadOnly = .T., ;
		Column5.ControlSource = "crsparteneri.adresa", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column6.ControlSource = "crsparteneri.localitate", ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .T., ;
		Column7.ControlSource = "crsparteneri.telefon", ;
		Column7.Name = "Column7", ;
		Column7.ReadOnly = .T., ;
		Column8.ControlSource = "crsparteneri.banca", ;
		Column8.Name = "Column8", ;
		Column8.ReadOnly = .T., ;
		Column9.ControlSource = "crsparteneri.cont_banca", ;
		Column9.Name = "Column9", ;
		Column9.ReadOnly = .T., ;
		Column10.ControlSource = "crsparteneri.zona", ;
		Column10.Name = "Column10", ;
		Column10.ReadOnly = .T., ;
		Column11.ControlSource = "crsparteneri.bloc", ;
		Column11.Name = "Column11", ;
		Column11.ReadOnly = .T., ;
		Column12.ControlSource = "crsparteneri.scara", ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .T., ;
		Column13.ControlSource = "crsparteneri.apartament", ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .T., ;
		Column14.ControlSource = "crsparteneri.inactiv", ;
		Column14.Name = "Column14", ;
		Column14.ReadOnly = .T., ;
		Column14.Width = 49
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Zona", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column10.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Bloc", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column11.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Scara", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column13.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Apartament", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column13.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Inactiv", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column14.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Denumire", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod Fiscal / CNP", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Reg. Comert", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Adresa", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Localitate", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column6.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Telefon", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column7.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Banca", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column8.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont Banca", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow1.Column9.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow2' AS _grdrow WITH ;
		Anchor = 13, ;
		ColumnCount = 1, ;
		crgb_row = 255,255,255, ;
		DeleteMark = .F., ;
		Height = 296, ;
		Left = 554, ;
		Name = "_grdrow2", ;
		Panel = 1, ;
		RecordMark = .F., ;
		RecordSource = "crscoresp_tip_parteneri", ;
		TabIndex = 15, ;
		Tag = "HL", ;
		Top = 65, ;
		Width = 131, ;
		Column1.ControlSource = "crscoresp_tip_parteneri.tip_partener", ;
		Column1.Name = "Column1", ;
		Column1.Width = 121
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.PAGE1._grdrow2.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.PAGE1.But_modifica1' AS but_modifica WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 491, ;
		Name = "But_modifica1", ;
		TabIndex = 10, ;
		Tag = "L", ;
		Top = 34, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE1.But_nou1' AS but_nou WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 460, ;
		Name = "But_nou1", ;
		TabIndex = 5, ;
		Tag = "L", ;
		Top = 34
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE1.But_sterge1' AS but_sterge WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 520, ;
		Name = "But_sterge1", ;
		TabIndex = 12, ;
		Tag = "L", ;
		Top = 34, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE1.Ck_cod_fiscal' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		camp_nume = cod_fiscal, ;
		Caption = "Cod Fiscal", ;
		criteriu = 4, ;
		criteriu2 = 4, ;
		Left = 4, ;
		Name = "Ck_cod_fiscal", ;
		Top = 27
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.PAGE1.Ck_filtru_cont' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		camp_nume = cont, ;
		Caption = "Cont", ;
		Left = 167, ;
		Name = "Ck_filtru_cont", ;
		Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.PAGE1.Ck_filtru_nume' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		camp_nume = nume, ;
		Caption = "Denumire", ;
		Left = 4, ;
		Name = "Ck_filtru_nume", ;
		Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.PAGE1.Ck_reg_comert' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		camp_nume = reg_comert, ;
		Caption = "Reg. Comert", ;
		criteriu = 4, ;
		criteriu2 = 4, ;
		Left = 84, ;
		Name = "Ck_reg_comert", ;
		Top = 27
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.PAGE1.ck_tip_entitate' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Tip Entitate", ;
		FontName = "Arial Narrow", ;
		Left = 84, ;
		Name = "ck_tip_entitate", ;
		Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.PAGE1.Cmd_cauta1' AS cmd_cauta WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 219, ;
		Name = "Cmd_cauta1", ;
		TabIndex = 4, ;
		Tag = "L", ;
		Top = 5
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE1.Cmd_executa1' AS cmd_executa WITH ;
		Anchor = 8, ;
		Caption = "\<Modicare Id Partener", ;
		Height = 46, ;
		Left = 347, ;
		Name = "Cmd_executa1", ;
		Top = 15, ;
		Visible = .F., ;
		Width = 99, ;
		WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE1.Cmd_reset1' AS cmd_reset WITH ;
		Anchor = 8, ;
		Comment = "*:OnResize=RT", ;
		Left = 219, ;
		Name = "Cmd_reset1", ;
		Tag = "L", ;
		Top = 34
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE1.Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Entitati", ;
		FontSize = 10, ;
		Left = 4, ;
		Name = "Lb_simplu1", ;
		Top = 50
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.PAGE1.Lb_simplu2' AS lb_simplu WITH ;
		Anchor = 8, ;
		Caption = "Tip/Tipuri ", ;
		Comment = "*:OnResize=RT", ;
		FontSize = 10, ;
		Left = 554, ;
		Name = "Lb_simplu2", ;
		Tag = "L", ;
		Top = 33
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.PAGE1.Lb_simplu3' AS lb_simplu WITH ;
		Anchor = 8, ;
		Caption = "Entitate Selectata", ;
		Comment = "*:OnResize=RT", ;
		FontSize = 10, ;
		Left = 554, ;
		Name = "Lb_simplu3", ;
		Tag = "L", ;
		Top = 50
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.PAGE2._grdrow3' AS _grdrow WITH ;
		Anchor = 5, ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		Height = 296, ;
		HighlightStyle = 1, ;
		Left = 8, ;
		Name = "_grdrow3", ;
		nrgbrow = 0, ;
		Panel = 1, ;
		RecordMark = .F., ;
		RecordSource = "crstipuriparteneri", ;
		ScrollBars = 2, ;
		TabIndex = 16, ;
		Tag = "H", ;
		Top = 65, ;
		Width = 238, ;
		Column1.ControlSource = "crstipuriparteneri.id_tip_part", ;
		Column1.Name = "Column1", ;
		Column1.Width = 47, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "crstipuriparteneri.tip_partener", ;
		Column2.Name = "Column2", ;
		Column2.Width = 125, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "crstipuriparteneri.inactiv", ;
		Column3.Name = "Column3", ;
		Column3.ReadOnly = .T., ;
		Column3.Sparse = .F., ;
		Column3.Width = 43
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip ", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column3._checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		Left = 38, ;
		Name = "_checkbox1", ;
		ReadOnly = .T., ;
		Top = 93
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.PAGE2._grdrow3.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Inactiv", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE2._grdrow4' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		Height = 296, ;
		Left = 248, ;
		Name = "_grdrow4", ;
		nrgbrow = 0, ;
		Panel = 1, ;
		RecordMark = .F., ;
		RecordSource = "crstipuriconturi", ;
		ScrollBars = 2, ;
		TabIndex = 17, ;
		Tag = "HW", ;
		Top = 65, ;
		Width = 442, ;
		Column1.ControlSource = "crstipuriconturi.tip_partener", ;
		Column1.Name = "Column1", ;
		Column1.Tag = "W", ;
		Column1.Width = 68, ;
		Column2.ControlSource = "crstipuriconturi.cont", ;
		Column2.Name = "Column2", ;
		Column2.Width = 72, ;
		Column3.ControlSource = "crstipuriconturi.explicatie", ;
		Column3.Name = "Column3", ;
		Column3.Width = 122, ;
		Column4.ControlSource = 'iif(crstipuriconturi.fel_cont<=0,"Activ","Pasiv")', ;
		Column4.Name = "Column4", ;
		Column4.Width = 71, ;
		Column5.ControlSource = "crstipuriconturi.cu_inregistrari", ;
		Column5.Name = "Column5", ;
		Column5.ReadOnly = .T., ;
		Column5.Sparse = .F., ;
		Column5.Width = 83
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Tip", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel Cont", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ControlSource = "crstipuriconturi.fel_cont", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column5._checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		Left = 28, ;
		Name = "_checkbox1", ;
		Top = 45
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.PAGE2._grdrow4.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cu Inregistrari", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.PAGE2.But_modifica2' AS but_modifica WITH ;
		caction = do_modifica_tipuri, ;
		Comment = "*:OnResize=RT", ;
		Left = 186, ;
		Name = "But_modifica2", ;
		TabIndex = 8, ;
		Top = 35, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE2.But_modifica3' AS but_modifica WITH ;
		Anchor = 8, ;
		caction = do_modifica_coresp_tc, ;
		Comment = "*:OnResize=RT", ;
		Left = 633, ;
		Name = "But_modifica3", ;
		TabIndex = 9, ;
		Tag = "L", ;
		Top = 35, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE2.But_nou2' AS but_nou WITH ;
		caction = do_adauga_tipuri, ;
		Comment = "*:OnResize=RT", ;
		Left = 155, ;
		Name = "But_nou2", ;
		TabIndex = 6, ;
		Top = 35
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE2.But_nou3' AS but_nou WITH ;
		Anchor = 8, ;
		caction = do_adauga_coresp_tc, ;
		Comment = "*:OnResize=RT", ;
		Left = 602, ;
		Name = "But_nou3", ;
		TabIndex = 7, ;
		Tag = "L", ;
		Top = 35
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE2.But_sterge2' AS but_sterge WITH ;
		caction = do_sterge_tipuri, ;
		Comment = "*:OnResize=RT", ;
		Left = 215, ;
		Name = "But_sterge2", ;
		TabIndex = 11, ;
		Top = 35, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE2.But_sterge3' AS but_sterge WITH ;
		Anchor = 8, ;
		caction = do_sterge_coresp_tc, ;
		Comment = "*:OnResize=RT", ;
		Left = 662, ;
		Name = "But_sterge3", ;
		TabIndex = 13, ;
		Tag = "L", ;
		Top = 35, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.PAGE2.Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Tipuri Entitati", ;
		FontSize = 10, ;
		Left = 8, ;
		Name = "Lb_simplu1", ;
		Top = 48
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.PAGE2.Lb_simplu2' AS lb_simplu WITH ;
		Caption = "Conturi", ;
		Comment = "*:OnResize=RT", ;
		FontSize = 10, ;
		Left = 249, ;
		Name = "Lb_simplu2", ;
		Top = 48
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT '_pageframe1.Page3._grdrow4' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		Height = 297, ;
		HighlightStyle = 1, ;
		Left = 7, ;
		Name = "_grdrow4", ;
		nrgbrow = 0, ;
		Panel = 1, ;
		RecordMark = .F., ;
		RecordSource = "crsconturi", ;
		TabIndex = 17, ;
		Tag = "HW", ;
		Top = 62, ;
		Width = 682, ;
		Column1.ControlSource = "cont", ;
		Column1.Name = "Column2", ;
		Column1.Width = 72, ;
		Column2.ControlSource = "explicatie", ;
		Column2.Name = "Column3", ;
		Column2.Width = 328, ;
		Column3.ControlSource = "fel_cont", ;
		Column3.Name = "Column4", ;
		Column3.Width = 89, ;
		Column4.ControlSource = "cu_inregistrari", ;
		Column4.Name = "Column5", ;
		Column4.ReadOnly = .T., ;
		Column4.Sparse = .F., ;
		Column4.Width = 83, ;
		Column5.ControlSource = "cu_venchelt", ;
		Column5.Name = "Column1", ;
		Column5.ReadOnly = .T., ;
		Column5.Sparse = .F., ;
		Column5.Width = 97, ;
		Column6.ControlSource = "cu_proc_tva", ;
		Column6.Name = "Column6", ;
		Column6.ReadOnly = .T., ;
		Column6.Sparse = .F., ;
		Column6.Width = 70
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column1.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Height = 17, ;
		Left = 36, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 24, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Venituri/cheltuieli", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Explicatie", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel Cont", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column4.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ControlSource = "crstipuriconturi.fel_cont", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column5._checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		Left = 28, ;
		Name = "_checkbox1", ;
		Top = 45
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cu Inregistrari", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column6.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Height = 17, ;
		Left = 22, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 24, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page3._grdrow4.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Procent TVA", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_pageframe1.Page3.But_modifica3' AS but_modifica WITH ;
		Anchor = 8, ;
		caction = modifica_cont, ;
		Comment = "*:OnResize=RT", ;
		Left = 628, ;
		Name = "But_modifica3", ;
		TabIndex = 9, ;
		Tag = "L", ;
		Top = 15, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page3.But_nou3' AS but_nou WITH ;
		Anchor = 8, ;
		caction = adauga_cont, ;
		Comment = "*:OnResize=RT", ;
		Left = 598, ;
		Name = "But_nou3", ;
		TabIndex = 7, ;
		Tag = "L", ;
		Top = 15
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page3.But_sterge3' AS but_sterge WITH ;
		Anchor = 8, ;
		caction = sterge_cont, ;
		Comment = "*:OnResize=RT", ;
		Left = 657, ;
		Name = "But_sterge3", ;
		TabIndex = 13, ;
		Tag = "L", ;
		Top = 15, ;
		Visible = .T.
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page3.Ck_filtru_cont2' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		camp_nume = cont, ;
		Caption = "Cont", ;
		Left = 4, ;
		Name = "Ck_filtru_cont2", ;
		Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT '_pageframe1.Page3.Cmd_cauta1' AS cmd_cauta WITH ;
		caction = do_cauta2, ;
		Comment = "*:OnResize=RT", ;
		Left = 119, ;
		Name = "Cmd_cauta1", ;
		TabIndex = 4, ;
		Tag = "L", ;
		Top = 3
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT '_pageframe1.Page3.Cmd_reset1' AS cmd_reset WITH ;
		caction = do_reset2, ;
		Comment = "*:OnResize=RT", ;
		Left = 119, ;
		Name = "Cmd_reset1", ;
		Tag = "L", ;
		Top = 32
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
	
	PROCEDURE Activate
		thisform.WindowState = 2
		THIS.Refresh 
	ENDPROC

	PROCEDURE actualizeaza_grid1
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=poparteneri.ca_baza1.cfiltru
		ENDIF
		save_grid_comment(This._pageframe1.pAGE1._grdrow1)
		poparteneri.ca_baza1.cfiltru=lcfiltru
		poparteneri.ca_baza1.afisare()
		restore_grid_comment(This._pageframe1.pAGE1._grdrow1)
		Select CRSPARTENERI
		IF (RECCOUNT()=0)
			aMESSAGEBOX("Nu exista rezultate.",0+48,"Atentie")		
		ENDIF
		
	ENDPROC

	PROCEDURE actualizeaza_grid2
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=poparteneri.ca_baza1.cfiltru
			MESSAGE("filtru gol")
		ENDIF
		save_grid_comment(This._pageframe1.pAGE1._grdrow2)
		pocoresp_tip_parteneri.ca_baza1.cfiltru=lcfiltru
		pocoresp_tip_parteneri.ca_baza1.afisare()
		restore_grid_comment(This._pageframe1.pAGE1._grdrow2)
		Select crscoresp_tip_parteneri
		Go Top
		IF (RECCOUNT()=0)
		*	WAIT "Acest partener nu are setat tipul." WINDOW NOWAIT 
		ELSE  
		**	thisform._grdrow1.SetFocus()
		ENDIF
	ENDPROC

	PROCEDURE actualizeaza_grid3
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=potipuri_parteneri.ca_baza1.cfiltru
		ENDIF
		save_grid_comment(This._pageframe1.pAGE2._grdrow3)
		potipuri_parteneri.ca_baza1.cfiltru=lcfiltru
		potipuri_parteneri.ca_baza1.afisare()
		restore_grid_comment(This._pageframe1.pAGE2._grdrow3)
		*!*	Select crstipuriparteneri
		*!*	Go Top
		
	ENDPROC

	PROCEDURE actualizeaza_grid4
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=potipuri_conturi.ca_baza1.cfiltru
		ENDIF
		save_grid_comment(THIS._pageframe1.pAGE2._grdrow4)
		potipuri_conturi.ca_baza1.cfiltru=lcFiltru
		potipuri_conturi.ca_baza1.afisare()
		restore_grid_comment(THIS._pageframe1.pAGE2._grdrow4)
		*!*	SELECT crstipuriconturi
		*!*	GO TOP
		*!*	IF (RECCOUNT()=0)
		*!*	*	WAIT "Acest tip nu are setate conturi." WINDOW NOWAIT
		*!*	ELSE
		*!*	**	thisform._grdrow1.SetFocus()
		*!*	ENDIF
		
	ENDPROC

	PROCEDURE actualizeaza_grid5
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=poconturi.ca_baza1.cfiltru
		ENDIF
		save_grid_comment(This._pageframe1.page3._grdrow4)
		poconturi.ca_baza1.cfiltru=lcfiltru
		poconturi.ca_baza1.afisare()
		restore_grid_comment(This._pageframe1.page3._grdrow4)
		*!*	Select crsconturi
		*!*	Go Top
		
	ENDPROC

	PROCEDURE adauga_cont
		SELECT crsconturi
		SCATTER NAME loRecI BLANK
		
		lorecI.Fel_cont = 0
		loRecI.cu_inregistrari = 0
		loRecI.cu_venchelt = 0
		loRecI.cu_proc_tva = 0
		
		config_ireg()
		lnSucces = Adauga_Modifica_Inregistrare("config_cont_ireg",loRecI,,"INSERT",.f.,'oAddConfig')
		
		IF lnSucces > 0
				Thisform.MousePointer= 11
				Thisform.LockScreen=.T.
				Thisform.actualizeaza_grid5()
				Thisform.LockScreen=.F.
				Thisform.MousePointer= 0
		ENDIF 
		
		close_config_ireg()
		
		
	ENDPROC

	PROCEDURE do_adauga
		
		SELECT crsparteneri
		SCATTER NAME loRec BLANK
		pccontinua=.F.
		ADDPROPERTY(lorec,"id_tip_part",0)
		ADDPROPERTY(lorec,"tip_partener",0)
		lorec.adresa=""
		
		=cclocalitati()
		=cctipuri()
		=cctipuri_selectate(loRec.id_tip_part)
		DO Adauga_Modifica_Inregistrare WITH "parteneri",loRec,,"INSERT" IN oproceduri_ams.prg
		=close_cclocalitati()
		=close_cctipuri()
		=close_cctipuri_selectate()
		
		IF pccontinua=.T.
			thisform.actualizeaza_grid1()
		ENDIF
		
		If Used('localitati')
			Use In localitati
		Endif
	ENDPROC

	PROCEDURE do_adauga_coresp_tc
		
		SELECT crstipuriconturi
		SCATTER NAME loRec BLANK
		
		lorec.Fel_cont = 0
		loRec.tip_partener = thisform.temporar_tip_partener 
		
		pncontinua = 0
		*!*	ADDPROPERTY(lorec,"id_tip_part",0)
		
		lnSucces = cctipuri()
		IF lnSucces < 0 
			RETURN 
		ENDIF 
		lnSucces = config_ireg()
		IF lnSucces < 0 
			RETURN 
		ENDIF 
		
		pnContinua = Adauga_Modifica_Inregistrare("coresp_tipuri_conturi",loRec,,"INSERT")
		
		=close_cctipuri()
		=close_config_ireg()
		
		IF pncontinua = 1
			thisform.actualizeaza_grid4()
		ENDIF
		
		
	ENDPROC

	PROCEDURE do_adauga_tipuri
		SELECT crstipuriparteneri
		SCATTER NAME loRec BLANK
		pccontinua=.F.
		
		DO Adauga_Modifica_Inregistrare WITH "tipuri_parteneri",loRec,,"INSERT" IN oproceduri_ams.prg
		
		IF pccontinua=.T.
			thisform.actualizeaza_grid3()
		ENDIF
		
		
	ENDPROC

	PROCEDURE do_cauta
		Private lcfiltru,lcval1
		lcfiltru=''
		
		*!*	If !Empty(ThisForm._pageframe1.pAGE1.clb_tx_simplu1.Text_simplu1.Value)
		*!*		lcval1=STRTRAN(Alltrim(Upper(ThisForm._pageframe1.pAGE1.clb_tx_simplu1.Text_simplu1.Value)),['],[''])
		*!*		lcfiltru=lcfiltru+[ and nume like ']+Iif(lcval1='%',[%'],lcval1+[%'])
		*!*	Endif
		
		If ThisForm._pageframe1.pAGE1.Ck_filtru_nume.Value = 1	
			lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_filtru_nume.filtru
		Endif
		
		*!*	**If !Empty(ThisForm._pageframe1.pAGE1.cb_tip_partener._CBBASE1.Value)
		*!*	If (ThisForm._pageframe1.pAGE1.cb_tip_partener._CBBASE1.Value <> "<Toate>")
		*!*		lcfiltru=lcfiltru+[ and id_tip_part = ]+ ALLTRIM(STR(thisform.temporar_id_tip_part))
		*!*	ENDIF
		
		If ThisForm._pageframe1.pAGE1.Ck_tip_entitate.Value = 1	
			If !empty(ThisForm.temporar_id_tip_part)
				lcfiltru=lcfiltru+[ and id_tip_part = ]+ ALLTRIM(STR(thisform.temporar_id_tip_part))
			ENDIF
		ENDIF	
		
		*!*	If !Empty(ThisForm._pageframe1.pAGE1.clb_tx_simplu3.Text_simplu1.Value)
		*!*		lcval1=STRTRAN(Alltrim(Upper(ThisForm._pageframe1.pAGE1.clb_tx_simplu3.Text_simplu1.Value)),['],[''])
		*!*		lcfiltru=lcfiltru+[ and cont like ']+Iif(lcval1='%',[%'],lcval1+[%'])
		*!*	Endif
		
		If ThisForm._pageframe1.pAGE1.Ck_filtru_cont.Value = 1	
			lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_filtru_cont.filtru
		ENDIF
		
		If ThisForm._pageframe1.pAGE1.Ck_cod_fiscal.Value = 1	
			lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_cod_fiscal.filtru
		ENDIF
		
		If ThisForm._pageframe1.pAGE1.Ck_reg_comert.Value = 1	
			lcfiltru=lcfiltru + thisform._pageframe1.page1.ck_reg_comert.filtru
		ENDIF
		
		If ThisForm._pageframe1.pAGE3.Ck_filtru_cont2.Value = 1	
			lcfiltru=lcfiltru + thisform._pageframe1.page3.ck_filtru_cont2.filtru
		Endif
		
		
		If !Empty(lcfiltru)
			lcfiltru=Substr(lcfiltru,5)
		Else
		*!*		MESSAGEBOX("Alegeti un criteriu!",0+48,"Atentie")
		*!*		ThisForm._pageframe1.pAGE1._grdrow1.setfocus()
		*!*		RETURN
			lcfiltru = [1=1]
		ENDIF
		
		
		thisform.actualizeaza_grid1(lcFiltru)
	ENDPROC

	PROCEDURE do_cauta2
		Private lcfiltru,lcval1
		lcfiltru=''
		
		
		
		If ThisForm._pageframe1.pAGE3.Ck_filtru_cont2.Value = 1	
			lcfiltru=lcfiltru + thisform._pageframe1.page3.ck_filtru_cont2.filtru
		Endif
		
		
		If !Empty(lcfiltru)
			lcfiltru=Substr(lcfiltru,5)
		Else
		
			lcfiltru = [1=1]
		ENDIF
		
		
		thisform.actualizeaza_grid5(lcFiltru)
	ENDPROC

	PROCEDURE do_executa
		LOCAL loPart, loCauta, lnIdPartProst,  lnIdPartBun, lnAn1, lnAn2, lnLuna1, lnLuna2, lnInit, lnFinal,  lcMesaj
		LOCAL lcSelect, lcFiltru, lcSchema, lcOrder, lcColoane, lcTitlu, lcFiltruOriginal, lcNumeProc, llAllInlist
		
		SELECT crsParteneri
		SCATTER NAME loPart
		IF loPart.id_part = 0
			RETURN
		ENDIF 
		
		lcParola = INPUTBOX('Parola','Parola','')
		IF lcParola # TRANSFORM(YEAR(DATE())) + PADL(TRANSFORM(MONTH(DATE())),2,'0') + PADL(TRANSFORM(DAY(DATE())),2,'0')
			RETURN
		ENDIF 	
		
		
		
		lcselect = [select p.nume, p.cod_fiscal, p.id_part,p.inactiv FROM ] + gcs + [.Vnom_parteneri p where]
		lcfiltru = []
		lcschema = []
		lcorder = [P.NUME]
		lccoloane = [nume,cod_fiscal,id_part,inactiv]
		lcTitlu = [Alegeti parterul cu Id Partener corect]
		lcTitluColoane = [Nume,Cod fiscal,Id Partener, Inactiv]
		lcFiltruOriginal = [p.inactiv = 0 and id_part <> ] + TRANSFORM(loPart.id_part)
		lcNumeProc = ""
		llAllInlist = .F.
		locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llAllInlist, lcFiltruOriginal)
		
		
		IF locauta.id_part = 0
			RETURN
		ENDIF
		
		pcondper=""
		ofrmperioada=CREATEOBJECT('frm_perioada_luni')
		ofrmperioada.SHOW(1)
		IF gnButon=2
			RETURN
		ENDIF
		
		plPerioada=.F.
		lnPoz=AT('_',pcondper)
		IF lnPoz>0
			plPerioada=.T.
		ENDIF
		
		
		IF plPerioada
			lnAn1 = VAL(SUBSTR(pcondper,3,4))
			lnLuna1 = VAL(SUBSTR(pcondper,1,2))
			lnAn2 = VAL(SUBSTR(pcondper,10,4))
			lnLuna2 = VAL(SUBSTR(pcondper,8,2))
			
			lnInit = lnAn1 * 12 + lnLuna1
			lnFinal = lnAn2 * 12 + lnLuna2
			lcPerioada = SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,8,2)+'/'+SUBSTR(pcondper,10,4)
		ELSE
			lnAn1 = VAL(SUBSTR(pcondper,3,4))
			lnLuna1 = VAL(SUBSTR(pcondper,1,2))
			lnAn2 = VAL(SUBSTR(pcondper,3,4))
			lnLuna2 = VAL(SUBSTR(pcondper,1,2))
			
			lnInit = lnAn1 * 12 + lnLuna1
			lnFinal = lnAn2 * 12 + lnLuna2
			lcPerioada = SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4) + ' - ' + SUBSTR(pcondper,1,2)+'/'+SUBSTR(pcondper,3,4)
		ENDIF
		
		lnRaspuns = aMESSAGEBOX('Doriti sa inlocuiti in registrul jurnal, balanta verificare, balanta partener si inregistrari partener ' + CHR(13) + ;
			lcPerioada + CHR(13) + ;	
			ALLTRIM(loPart.Nume) + '(' + TRANSFORM(loPart.id_part)	+')' + CHR(13) + ;
			'cu ' + ALLTRIM(locauta.Nume) + '(' + TRANSFORM(locauta.id_part)	+')?',4+32,'Inlocuire ID Partener')
		IF lnRaspuns # 6
			RETURN
		ENDIF
		
		
		lnIdPartProst = loPart.id_part
		lnIdPartBun = locauta.id_part
		
		lcEroare = ''
		lcEroare = modifica_id_partener(lnIdPartProst, lnIdPartBun, lnAn1, lnLuna1, lnAn2, lnLuna2) 
		IF !EMPTY(lcEroare)
			lcMesaj = lcEroare
		ELSE
			lcMesaj = 'S-au terminat modificarile.'
		ENDIF 	
		
		aMESSAGEBOX(lcMesaj,0+48,"Atentie")
		
		
		
	ENDPROC

	PROCEDURE do_modifica
		LOCAL lnRecno
		
		If Reccount('crsparteneri')>0
			Private pccod_fiscal
			Select crsparteneri
			Scatter Name loRec
			lnRecno = RECNO()
			
			SELECT crscoresp_tip_parteneri
			GO TOP 
			
			lnid_tip_part = crscoresp_tip_parteneri.id_tip_part 
			lctip_part = crscoresp_tip_parteneri.tip_partener
			**BROWSE
		**!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!	
			ADDPROPERTY(lorec,"id_tip_part",lnid_tip_part)
			ADDPROPERTY(lorec,"tip_partener",lctip_part)	
			pccod_fiscal=loRec.cod_fiscal
			pccontinua=.F.
			=cclocalitati()
			=cctipuri()
		*	INSERT INTO v_nom_tip_parteneri(tip_partener) VALUES ('<Toate>')
			=cctipuri_selectate(loRec.id_part)	
			Do Adauga_Modifica_Inregistrare With "parteneri",loRec,loRec.ID_part,"UPDATE" IN oproceduri_ams.prg
			
			=close_cclocalitati()
			=close_cctipuri()
			=close_cctipuri_selectate()
			If pccontinua=.T.
				Thisform.MousePointer= 11
				Thisform.LockScreen=.T.
				Thisform.actualizeaza_grid1()
				SELECT crsParteneri
				LOCATE FOR id_part = lorec.id_part
				IF !FOUND()
					GO top
				ENDIF 	
				thisform._pageframe1.pAGE1._grdrow1.SetFocus()		
				Thisform.LockScreen=.F.
				Thisform.MousePointer= 0
			Endif
		Endif
	ENDPROC

	PROCEDURE do_modifica_coresp_tc
		If Reccount('crstipuriconturi')>0
		
			Select crstipuriconturi
			Scatter Name loRec
		
			loRec.tip_partener = thisform.temporar_tip_partener
		
			pncontinua = 0
		
		    lnSucces = cctipuri()
			IF lnSucces < 0 
				RETURN 
			ENDIF 
			lnSucces = config_ireg()
			IF lnSucces < 0 
				RETURN 
			ENDIF 
		
			pnContinua = Adauga_Modifica_Inregistrare("coresp_tipuri_conturi",loRec,loRec.ID_coresp_tip_cont,"UPDATE") && IN oproceduri_ams.prg
			=close_cctipuri()
			=close_config_ireg()
		
			IF pncontinua = 1
				Thisform.MousePointer= 11
				Thisform.LockScreen=.T.
				Thisform.actualizeaza_grid4()
				
				Select crstipuriconturi
				LOCATE FOR ID_coresp_tip_cont = loRec.ID_coresp_tip_cont
				IF !FOUND()
					GO top
				ENDIF 
						
				Thisform.LockScreen=.F.
				Thisform.MousePointer= 0
			Endif
		ENDIF
		
		
	ENDPROC

	PROCEDURE do_modifica_tipuri
		If Reccount('crstipuriparteneri')>0
		
			Select crstipuriparteneri
			Scatter Name loRec
		
			pctip_partener = loRec.tip_partener
		
			pccontinua=.F.
		
			Do Adauga_Modifica_Inregistrare With "tipuri_parteneri",loRec,loRec.ID_tip_part,"UPDATE" IN oproceduri_ams.prg
			If pccontinua=.T.
				Thisform.MousePointer= 11
				Thisform.LockScreen=.T.
				Thisform.actualizeaza_grid3()
				
				Select crstipuriparteneri
				LOCATE FOR id_tip_part = loRec.ID_tip_part
				IF !FOUND()
					GO top
				ENDIF 
				this._pageframe1.page2._grdrow3.Refresh()
				
				Thisform.LockScreen=.F.
				Thisform.MousePointer= 0
			Endif
		Endif
	ENDPROC

	PROCEDURE do_reset
		this._pageframe1.page1.clb_tx_simplu1.text_simplu1.Value = ""
		this._pageframe1.page1.clb_tx_simplu3.text_simplu1.Value = ""
		this._pageframe1.page1.cb_tip_partener._cbbase1.Value = "<Toate>"
	ENDPROC

	PROCEDURE do_reset2
		this._pageframe1.page3.ck_filtru_cont2.Value=0
		this._pageframe1.page3.cmd_cauta1.Click 
	ENDPROC

	PROCEDURE do_sterge
		
		
		SELECT crsparteneri
		SCATTER NAME loRec
		SQLSETPROP(gnHandle,"Transactions",2) && tranzactie manuala
		llSucces = .F.
		lnSucces = -1
		
		**llSucces = sterge_inregistrare("parteneri",loRec,loRec.id_part,"DELETE")
		llSucces = sterge_inregistrare("parteneri",loRec.id_part)
		IF llSucces
			lcSql = [DELETE FROM ] + gcS + [.CORESP_TIP_PART WHERE ID_PART = ] + ALLTRIM(STR(loRec.id_part))
			lnSucces = goExecutor.oExecute(lcSql)
		ENDIF
		IF lnSucces > 0
			SQLCOMMIT(gnHandle)
		ELSE
			SQLROLLBACK(gnHandle)
		ENDIF
		SQLSETPROP(gnHandle,"Transactions",1) && tranzactie automata
		
		IF lnSucces > 0
			SELECT crsParteneri
		*!*		DELETE
		*!*		thisform._pageframe1.page1._grdrow1.SetFocus()
		*!*		thisform._pageframe1.page1._grdrow1.Refresh()
			THISFORM.actualizeaza_grid1()
		ENDIF
		
	ENDPROC

	PROCEDURE do_sterge_coresp_tc
			Select crstipuriconturi
			Scatter Name loRec
				Do sterge_inregistrare With "coresp_tipuri_conturi",lorec.id_coresp_tip_cont IN oproceduri_ams.prg
				Thisform.actualizeaza_grid4()
	ENDPROC

	PROCEDURE do_sterge_tipuri
			Select crstipuriparteneri
			Scatter Name loRec
				Do sterge_inregistrare With "tipuri_parteneri",lorec.id_tip_part IN oproceduri_ams.prg
				Thisform.actualizeaza_grid3()
				Thisform.actualizeaza_grid4()		
	ENDPROC

	PROCEDURE Init
		DODEFAULT() 
		
		thisform.WindowState = 2
		THIS.Refresh 
		SELECT crstipuriparteneri
		GO TOP 
		this.temporar_tip_partener = crstipuriparteneri.tip_partener
		THIS._pageframe1.PAGE1._grdrow1.SetFocus 
		
		**INSERT INTO v_nom_tip_parteneri(tip_partener) VALUES ('<Toate>')
		
	ENDPROC

	PROCEDURE Load
		
		
		
	ENDPROC

	PROCEDURE modifica_cont
		SELECT crsconturi
		SCATTER NAME loRec 
		
		config_ireg()
		lnsucces = Adauga_Modifica_Inregistrare("config_cont_ireg",loRec,loRec.ID_cont_ireg,"UPDATE",.f.)
		
		
		IF lnSucces > 0
				Thisform.MousePointer= 11
				Thisform.LockScreen=.T.
				Thisform.actualizeaza_grid5()
				Select crsconturi
				LOCATE FOR ID_cont_ireg = loRec.ID_cont_ireg
				IF !FOUND()
					GO top
				ENDIF 
				this._pageframe1.page3._grdrow4.Refresh 		
				Thisform.LockScreen=.F.
				Thisform.MousePointer= 0
		ENDIF 
		
		close_config_ireg()
		
		
		
		
	ENDPROC

	PROCEDURE Resize
		THISFORM.Refresh()
		*this.resizer1.onresize
	ENDPROC

	PROCEDURE sterge_cont
			Select crsconturi
			Scatter Name loRec
				lnsucces =  sterge_inregistrare("config_cont_ireg",lorec.id_cont_ireg)
			
					Thisform.actualizeaza_grid5()
		
	ENDPROC

	PROCEDURE _pageframe1.PAGE1.ck_tip_entitate.Valid
		IF this.Value = 1
			pcselect = [select tip_partener,id_tip_part from ] + gcs + [.VNOM_TIP_PARTENERI]
			pcfiltru = []
			pcschema = []
			pcorder = [tip_partener]
			pccoloane = [tip_partener]
			pcTitlu = [Tip partener]
			pcTitluColoane = [Tip partener]	
			pcFiltruOriginal = [inactiv = 0]
			locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,"",.f.,pcFiltruOriginal)	
		
			thisform.temporar_id_tip_part = locauta.id_tip_part
		ENDIF 
	ENDPROC

	PROCEDURE _pageframe1.PAGE1.DblClick
		THIS.CMD_executa1.Visible = .T.
	ENDPROC

	PROCEDURE _pageframe1.PAGE1._grdrow1.AfterRowColChange
		LPARAMETERS nColIndex
		DODEFAULT()     
		
		SELECT crsparteneri
		lcFiltru2 = [ID_PART=]+ALLTRIM(STR(crsparteneri.id_part))
		thisform.actualizeaza_grid2(lcFiltru2)
		
	ENDPROC

	PROCEDURE _pageframe1.PAGE1._grdrow1.Column1.Text1.Click
		
		
		
	ENDPROC

	PROCEDURE _pageframe1.PAGE1._grdrow1.Init
		this.SetAll("DynamicBackColor","iif(inactiv = 1, RGB(200,200,200), RGB(255,255,255))","Column")
	ENDPROC

	PROCEDURE _pageframe1.PAGE1._grdrow1.Valid
		**thisform._grdrow2.Left=thisform._grdrow2.Left+30
	ENDPROC

	PROCEDURE _pageframe1.PAGE1._grdrow1.When
		**thisform._grdrow2.Left=thisform._grdrow2.Left-30
	ENDPROC

	PROCEDURE _pageframe1.PAGE2._grdrow3.AfterRowColChange
		LPARAMETERS nColIndex
		DODEFAULT()     
		
		SELECT crstipuriparteneri
		lcFiltru4 = [ID_TIP_PART=]+ALLTRIM(STR(crstipuriparteneri.id_tip_part))
		thisform.actualizeaza_grid4(lcFiltru4)
		
		thisform.temporar_tip_partener=crstipuriparteneri.tip_partener
	ENDPROC

	PROCEDURE _shape1.DblClick
		IF thisform.WindowState = 2
			thisform.WindowState = 0
		ELSE 
			thisform.WindowState = 2 
		ENDIF 
		THISFORM.Refresh 
		THISFORM._pageframe1.Page1._grdrow1.SetFocus()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_gruputil AS frm_termin OF "..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="lb_nom_grup" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 381
		Name = "frm_gruputil"
		Width = 401
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE2.Height = 29
		_SHAPE2.Left = 276
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 132
		LB_TITLU_ALB_B121.Caption = "Grupuri utilizatori"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		BUT_TERMIN1.Left = 369
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 0
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		ColumnCount = 3, ;
		DeleteMark = .F., ;
		Height = 292, ;
		Left = 8, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "crsGrup", ;
		ScrollBars = 2, ;
		Top = 78, ;
		Width = 384, ;
		Column1.ControlSource = "id_grup", ;
		Column1.Name = "Column1", ;
		Column1.Width = 58, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "nume_parinte", ;
		Column2.Name = "Column2", ;
		Column2.Width = 123, ;
		Column3.ColumnOrder = 2, ;
		Column3.ControlSource = "denumire_grup", ;
		Column3.Name = "Column3", ;
		Column3.Width = 168
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Id Grup", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Grup parinte", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Grup utilizatori", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

	ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
		Left = 309, ;
		Name = "CMD_CAUTA1", ;
		Top = 37
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'lb_nom_grup' AS clb_tx_simplu WITH ;
		Left = 9, ;
		Name = "lb_nom_grup", ;
		Top = 37, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Grup", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=pogrup.ca_baza1.cfiltru
		ENDIF
		save_grid_tag(thisform._grdrow1)
		pogrup.ca_baza1.cfiltru=lcFiltru
		pogrup.ca_baza1.afisare()
		restore_grid_tag(thisform._grdrow1)
		IF RECCOUNT('crsGrup')>0
			thisform._grdrow1.SetFocus()
		ELSE
			thisform.Lb_nom_grup.SetFocus()
		ENDIF
		
	ENDPROC

	PROCEDURE do_adauga
		SELECT crsGrup
		SCATTER NAME loRec blank
		DO Adauga_Modifica_Inregistrare WITH "gruputil",loRec,,"INSERT"
		this.actualizeaza_grid1()
	ENDPROC

	PROCEDURE do_cauta
		Local lcFiltru
		lcFiltru=[]
		lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_grup.text_simplu1.value)),['],[''])
		
		If !Empty(lcNume)
			lcFiltru=[denumire_grup like ']+lcNume+[%']
		ELSE 
			lcFiltru = [2=2]	
		Endif
		This.MousePointer= 11
		This.LockScreen=.T.
		Thisform.actualizeaza_grid1(lcFiltru)
		IF RECCOUNT()=0
			aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
		ENDIF
		This.LockScreen=.F.
		This.MousePointer= 0
	ENDPROC

	PROCEDURE do_excel
		lcTabel = This._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Do export_excel_grid With This._grdrow1, "denumire_grup"
		Else
			amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE do_modifica
		If Reccount('crsGrup')>0
			Select crsGrup
			Scatter Name loRec
			Do Adauga_Modifica_Inregistrare With "gruputil",loRec,loRec.id_grup,"UPDATE"
			Thisform.actualizeaza_grid1()
		Else
			amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE do_sterge
		If Reccount('crsGrup')>0
			Select crsGrup
			Scatter Name lorec
			Do STERGE_INREGISTRARE With "gruputil",lorec.id_grup
		
			This.actualizeaza_grid1()
		Else
			amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie")
		Endif
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_gruputil_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Clb_grup" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CUS_ODATA_GRUPUTIL1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="img_parinte" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="clb_parinte" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_alege_parinte
		*m: do_alege_tata
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 135
		Name = "frm_gruputil_nou"
		nid = 
		orec = 
		Width = 375
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE2.Name = "_SHAPE2"
		LB_TITLU_ALB_B121.Caption = "Grup utilizator"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 5
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 2
		GRIDSORT1.Name = "GRIDSORT1"
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 3
	*</PropValue>

	ADD OBJECT '_checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Inactiv", ;
		ControlSource = "porec.inactiv", ;
		Left = 32, ;
		Name = "_checkbox1", ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 113
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Clb_grup' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 25, ;
		Name = "Clb_grup", ;
		TabIndex = 1, ;
		Top = 71, ;
		Width = 313, ;
		TEXT_SIMPLU1.ControlSource = "porec.denumire_grup", ;
		TEXT_SIMPLU1.Format = "!K", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 101, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 206, ;
		LB_SIMPLU1.Caption = "Grup", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'clb_parinte' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 25, ;
		Name = "clb_parinte", ;
		TabIndex = 4, ;
		TabStop = .F., ;
		ToolTipText = "Pentru modificare, faceti dublu-click!", ;
		Top = 43, ;
		Width = 313, ;
		Text_simplu1.ControlSource = "porec.nume_parinte", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Value = , ;
		Text_simplu1.Width = 206, ;
		Lb_simplu1.Caption = "Grup parinte", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\..\roaauto\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'CUS_ODATA_GRUPUTIL1' AS cus_odata_gruputil WITH ;
		Left = 336, ;
		Name = "CUS_ODATA_GRUPUTIL1", ;
		Top = 48
		*< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" />

	ADD OBJECT 'img_parinte' AS _image WITH ;
		Height = 24, ;
		Left = 344, ;
		Name = "img_parinte", ;
		Picture = ..\comun\grafice\alege.bmp, ;
		Stretch = 2, ;
		ToolTipText = "Alegeti valuta", ;
		Top = 45, ;
		Width = 24
		*< END OBJECT: ClassLib="..\..\roaauto\comun\clase\_baza.vcx" BaseClass="image" />
	
	PROCEDURE do_alege_parinte
		Local loCauta
		loCauta = caut_gruputilizatori()
		IF ISNULL(loCauta)
			RETURN
		ENDIF 
		
		IF !EMPTY(loCauta.id_grup)
			poRec.id_tata = loCauta.id_grup
			poRec.nume_parinte = loCauta.denumire_grup
		ELSE
			poRec.id_tata = NULL
			poRec.nume_parinte = ""	
		ENDIF
		
		this.clb_parinte.text_simplu1.Refresh()
			
	ENDPROC

	PROCEDURE do_alege_tata
	ENDPROC

	PROCEDURE inainte_de_do_termin
		LOCAL PLRETURN
		
		lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS )
		IF   INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
			lcval=THIS.ACTIVECONTROL.CONTROLSOURCE
			&lcval=THISFORM.ACTIVECONTROL.VALUE
		ENDIF
		
		
		DO CASE
			CASE EMPTY(porec.denumire_grup)
				aMESSAGEBOX('Nu ati completat denumirea grupului!',0+48,"Atentie")
				THIS.clb_grup.text_simplu1.SETFOCUS()
				PLRETURN=.F.
		
			OTHERWISE
				PLRETURN=THIS.cus_odata_gruputil1.salvare(THIS.OREC,THIS.NID)
		ENDCASE
		
		RETURN PLRETURN
		
	ENDPROC

	PROCEDURE Init
		LPARAMETERS toRec, tnId, tcActiune
		
		DODEFAULT()
		
		this.orec= toRec
		this.nid = tnId
		this.cus_odata_gruputil1.cactiune = tcActiune
	ENDPROC

	PROCEDURE clb_parinte.Text_simplu1.DblClick
		Thisform.do_alege_parinte()
	ENDPROC

	PROCEDURE img_parinte.Click
		Thisform.do_alege_parinte()
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_listutil AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_optiongrup2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtSucursala" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_cautareSucursala" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtGrupUtil" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_cautareGrupUtil" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_cauta_grup
		*m: do_cauta_sucursala
		*p: nidgest
		*p: nvalgrup
		*p: nvalselectie
		*p: ogruputil
		*p: orezult
		*p: osucursala
		*p: pcnumegest
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 259
		Name = "frm_listutil"
		nidgest = .F.
		nvalgrup = 1
		nvalselectie = 1
		ogruputil = .NULL.
		orezult = .F.
		osucursala = .NULL.
		pcnumegest = 
		Width = 375
		_memberdata = <VFPData>
			<memberdata name="osucursala" display="oSucursala"/>
			<memberdata name="ogruputil" display="oGrupUtil"/>
		</VFPData>
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 312
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 63
		Lb_titlu_alb_b121.Caption = "Listare utilizatori"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		BUT_TERMIN1.Left = 343
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Left = 360
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 6
		But_renunt1.Top = 36
		But_renunt1.Visible = .F.
	*</PropValue>

	ADD OBJECT '_label1' AS _label WITH ;
		BackColor = 255,255,255, ;
		Caption = "Grupare", ;
		Left = 22, ;
		Name = "_label1", ;
		TabIndex = 8, ;
		Top = 48
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label2' AS _label WITH ;
		BackColor = 255,255,255, ;
		Caption = "Selectie", ;
		Left = 23, ;
		Name = "_label2", ;
		TabIndex = 9, ;
		Top = 114
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label3' AS _label WITH ;
		BackStyle = 0, ;
		Caption = "Sucursala", ;
		Left = 23, ;
		Name = "_label3", ;
		TabIndex = 11, ;
		Top = 181
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_label4' AS _label WITH ;
		BackStyle = 0, ;
		Caption = "Grup utilizatori", ;
		Left = 23, ;
		Name = "_label4", ;
		TabIndex = 13, ;
		Top = 213
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" />

	ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
		AutoSize = .F., ;
		ControlSource = "thisform.nvalgrup", ;
		Height = 46, ;
		Left = 13, ;
		Name = "_optiongrup1", ;
		TabIndex = 1, ;
		Top = 60, ;
		Width = 305, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Puncte de lucru (sucursale)", ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Grupuri de utilizatori", ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT '_optiongrup2' AS _optiongrup WITH ;
		AutoSize = .F., ;
		ControlSource = "thisform.nvalselectie", ;
		Height = 124, ;
		Left = 13, ;
		Name = "_optiongrup2", ;
		TabIndex = 2, ;
		Top = 126, ;
		Width = 324, ;
		Option1.AutoSize = .T., ;
		Option1.Caption = "Angajati (asociere utilizator - partener)", ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.Caption = "Colaboratori (asociere utilizator - contact)", ;
		Option2.Left = 5, ;
		Option2.Name = "Option2", ;
		Option2.Top = 24
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT 'But_cautareGrupUtil' AS but_cautare WITH ;
		caction = do_cauta_grup, ;
		Left = 292, ;
		Name = "But_cautareGrupUtil", ;
		TabIndex = 4, ;
		Top = 207
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_cautareSucursala' AS but_cautare WITH ;
		caction = do_cauta_sucursala, ;
		Left = 292, ;
		Name = "But_cautareSucursala", ;
		TabIndex = 3, ;
		Top = 175
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

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

	ADD OBJECT 'txtGrupUtil' AS _textbox WITH ;
		FontItalic = .T., ;
		Height = 23, ;
		Left = 107, ;
		Name = "txtGrupUtil", ;
		ReadOnly = .T., ;
		TabIndex = 12, ;
		TabStop = .F., ;
		Top = 210, ;
		Width = 180
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />

	ADD OBJECT 'txtSucursala' AS _textbox WITH ;
		FontItalic = .T., ;
		Height = 23, ;
		Left = 107, ;
		Name = "txtSucursala", ;
		ReadOnly = .T., ;
		TabIndex = 10, ;
		TabStop = .F., ;
		Top = 178, ;
		Width = 180
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" />
	
	PROCEDURE do_cauta
		LPARAMETERS tnTip
		&& tnTip: 1 = sucursala; 2 = grup
		
		IF tnTip = 1
			This.oSucursala = caut_sucursala() && ocautare.prg
			IF !ISNULL(This.oSucursala)
				this.txtSucursala.Value = this.oSucursala.sucursala
			ENDIF 
		ELSE
			This.oGrupUtil = caut_gruputilizatori() && ocautare.prg
			IF !ISNULL(This.oGrupUtil)
				this.txtGrupUtil.Value = This.oGrupUtil.denumire_grup
			ENDIF 
		ENDIF 
	ENDPROC

	PROCEDURE do_cauta_grup
		this.do_cauta(2)
	ENDPROC

	PROCEDURE do_cauta_sucursala
		this.do_cauta(1)
	ENDPROC

	PROCEDURE do_listare
		*!*	DEBUG
		*!*	SUSPEND
		Private pcPartener,pcPctlucru
		Local lcCursor, lcMenu, lcOrdine, lcRaport, lcSelect, lcWhere, lnMenu, lnSucces
		pcPartener = 'EOF()'
		pcPctlucru = 'EOF()'
		lcWhere = ""
		
		lcMenu = [Listare]
		IF this.lactiv7 && listare parole cod de bare
			lcMenu = m.lcMenu + [;Listare etichete parole cod de bare]
		ENDIF 
		lnMenu = xmenu(m.lcMenu)
		IF !INLIST(lnMenu,1,2)
			RETURN
		ENDIF 
		lcRaport = [utilizatori.frx]
		IF lnMenu = 2
			lcRaport = [utilizatori_parole.lbx]
		ENDIF 
			
		If Thisform.nvalgrup = 1
		*!*		lcWhere1 = [where id_partener is not null]
			pcPctlucru = 'sucursala'
			lcOrdine = [ order by sucursala]
		*!*		pcPartener = 'nume'
		Else
			pcPctlucru = 'denumire_grup'
			lcOrdine = [ order by denumire_grup]
		Endif
		
		If Thisform.nvalselectie = 1
			lcWhere = [where id_partener is not null]
			lcOrdine = lcOrdine + [,partener]
		Else
			lcWhere = [where id_contact is not null]
			lcOrdine = lcOrdine + [,contact]
			If Thisform.nvalgrup = 1
				pcPctlucru = 'partener'
			Endif
		ENDIF
		IF !ISNULL(This.oSucursala) AND !EMPTY(NVL(This.oSucursala.id_sucursala,0))
			lcWhere = lcWhere + [ and id_sucursala = ] + ALLTRIM(STR(This.oSucursala.id_sucursala))
		ENDIF 
		
		IF !ISNULL(This.oGrupUtil) AND !EMPTY(NVL(This.oGrupUtil.id_grup,0))
			lcWhere = lcWhere + [ and id_grup = ] + ALLTRIM(STR(This.oGrupUtil.id_grup))
		ENDIF 
		
		lcSelect = [select * from vutilizatori_rol_intern ] + lcWhere + lcOrdine
		lcCursor = [crsUtilizatori]
		lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
		If lnSucces < 0
			aMessagebox(goExecutor.cEroare,0+64,"Eroare")
			Exit
		Endif
		If Reccount('crsUtilizatori')>0
			Thisform.AlwaysOnTop = .F.
			Select crsUtilizatori
			Report Form &lcRaport To Printer Prompt Preview
			USE IN (SELECT('crsUtilizatori'))
			Thisform.AlwaysOnTop = .F.
		Else
			aMessagebox("Nu exista inregistrari pentru listare!",0+48,"Atentie")
		Endif
		Return .F.
		  
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_utilizatori AS frm_termin OF "..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="lb_nom_calc" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="CMD_CAUTA1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cPartener.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cPartener.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDenumire_grup.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cDenumire_grup.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cInactiv.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cInactiv.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cUtilizator.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cUtilizator.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cContact.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_grdrow1.cContact.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 414
		Name = "frm_utilizatori"
		Width = 598
		_SHAPE1.Height = 29
		_SHAPE1.Left = -2
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE1.Top = 0
		_SHAPE1.Width = 615
		_SHAPE2.Height = 29
		_SHAPE2.Left = 446
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 152
		LB_TITLU_ALB_B121.Caption = "Utilizatorii companiei"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		BUT_TERMIN1.Left = 567
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

	ADD OBJECT '_grdrow1' AS _grdrow WITH ;
		ColumnCount = 6, ;
		DeleteMark = .F., ;
		Height = 326, ;
		Left = 16, ;
		Name = "_grdrow1", ;
		Panel = 1, ;
		RecordSource = "crsUtil", ;
		Top = 80, ;
		Width = 572, ;
		Column1.ColumnOrder = 4, ;
		Column1.ControlSource = "partener", ;
		Column1.Name = "cPartener", ;
		Column1.Width = 113, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "denumire_grup", ;
		Column2.Name = "cDenumire_grup", ;
		Column2.Width = 94, ;
		Column3.ColumnOrder = 6, ;
		Column3.ControlSource = "inactiv", ;
		Column3.CurrentControl = "Check1", ;
		Column3.Name = "cInactiv", ;
		Column3.Sparse = .F., ;
		Column3.Width = 43, ;
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "utilizator", ;
		Column4.Name = "cUtilizator", ;
		Column4.Width = 126, ;
		Column5.ColumnOrder = 1, ;
		Column5.ControlSource = "sucursala", ;
		Column5.Name = "cSucursala", ;
		Column5.Width = 112, ;
		Column6.ColumnOrder = 5, ;
		Column6.ControlSource = "contact", ;
		Column6.Name = "cContact", ;
		Column6.Width = 108
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT '_grdrow1.cContact.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Contact", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.cDenumire_grup.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Grup", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.cInactiv.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Check1", ;
		Top = 51, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT '_grdrow1.cInactiv.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Inactiv", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT '_grdrow1.cPartener.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Partener", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.cSucursala.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sucursala", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT '_grdrow1.cUtilizator.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Utilizator", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

	ADD OBJECT 'CMD_CAUTA1' AS cmd_cauta WITH ;
		Left = 318, ;
		Name = "CMD_CAUTA1", ;
		Top = 39
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'lb_nom_calc' AS clb_tx_simplu WITH ;
		Left = 18, ;
		Name = "lb_nom_calc", ;
		Top = 39, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		LB_SIMPLU1.Caption = "Utilizator", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		IF EMPTY(lcFiltru)
			lcFiltru=poutil.ca_baza1.cfiltru
		ENDIF
		save_grid_tag(thisform._grdrow1)
		poutil.ca_baza1.cfiltru=lcFiltru
		poutil.ca_baza1.afisare()
		restore_grid_tag(thisform._grdrow1)
		IF RECCOUNT('crsUtil')>0
			thisform._grdrow1.SetFocus()
		ELSE
			thisform.Lb_nom_calc.SetFocus()
		ENDIF
		
	ENDPROC

	PROCEDURE do_adauga
		DO utilizatorintern_nou IN onomenclatoare.prg
		IF gnButon = 1
			THISFORM.actualizeaza_grid1()
		ENDI
	ENDPROC

	PROCEDURE do_cauta
		Local lcFiltru
		lcFiltru=[]
		lcNume = STRTRAN(Upper(Alltrim(This.lb_nom_calc.text_simplu1.value)),['],[''])
		
		If !Empty(lcNume)
			lcFiltru=[utilizator like ']+lcNume+[%']
		ELSE 
			lcFiltru = [2=2]	
		Endif
		This.MousePointer= 11
		This.LockScreen=.T.
		Thisform.actualizeaza_grid1(lcFiltru)
		IF RECCOUNT()=0
			aMESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
		ENDIF
		This.LockScreen=.F.
		This.MousePointer= 0
	ENDPROC

	PROCEDURE do_excel
		lcTabel = This._grdrow1.RecordSource
		If Reccount(lcTabel)>0
			Do export_excel_grid With This._grdrow1, "sucursala,utilizator"
		Else
			amessagebox("Nu exista inregistrari pentru export in Excel!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE do_modifica
		LOCAL loRec, lnIdUtil
		
		If Reccount('crsUtil')>0
			Select crsUtil
			lnIdUtil = id_util
			Scatter Name loRec
		
			loRec = utilizatorintern_modifica(lnIdUtil)
				
			IF !ISNULL(loRec)
				Thisform.MousePointer= 11
				Thisform.LockScreen=.T.
				Thisform.actualizeaza_grid1()
				SELECT crsUtil
				LOCATE FOR id_util = lorec.id_util
				IF !FOUND()
					GO top
				ENDIF 	
				thisform._grdrow1.SetFocus()		
				Thisform.LockScreen=.F.
				Thisform.MousePointer= 0
			Endif
		Else
			amessagebox("Nu exista inregistrari pentru modificare!",48,"Atentie")
		Endif
	ENDPROC

	PROCEDURE do_sterge
		If Reccount('crsUtil')>0
			Select crsUtil
			Scatter Name lorec
			Do STERGE_INREGISTRARE With "utilizatori",lorec.id_util
		
			This.actualizeaza_grid1()
		Else
			amessagebox("Nu exista inregistrari pentru stergere!",48,"Atentie")
		Endif
		
	ENDPROC

	PROCEDURE Init
		DODEFAULT()
		Thisform._grdrow1.SetAll("DynamicBackColor","IIF(inactiv=1,RGB(128,128,128),RGB(255,255,255))","Column")
		Thisform._grdrow1.cPartener.DynamicBackColor = [IIF(inactiv = 1 or part_inactiv = 1,RGB(128,128,128),RGB(255,255,255))]
		Thisform._grdrow1.cUtilizator.DynamicBackColor = [IIF(inactiv = 1 or util_inactiv = 1,RGB(128,128,128),RGB(255,255,255))]
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_utilizatori_nou AS frm_termin_renunt OF "..\comun\clase\_frm_child.vcx" 
 	*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_contact" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_utilizatori1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_sucursala" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_grup" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_utilizator" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_partener" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_alege_grup
		*m: do_alege_sucursala
		*m: do_alege_utilizator
		*m: do_aleg_persoana
		*m: schimb_tip_utilizator
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 221
		Name = "frm_utilizatori_nou"
		nid = .F.
		orec = .F.
		Width = 351
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE2.Height = 29
		_SHAPE2.Left = 287
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 65
		LB_TITLU_ALB_B121.Caption = "Utilizator"
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 9
		BUT_TERMIN1.Left = 320
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
		BUT_RENUNT1.Left = 291
		BUT_RENUNT1.Name = "BUT_RENUNT1"
		BUT_RENUNT1.TabIndex = 7
		BUT_RENUNT1.Top = 1
	*</PropValue>

	ADD OBJECT '_checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Inactiv", ;
		ControlSource = "porec.inactiv", ;
		Left = 19, ;
		Name = "_checkbox1", ;
		TabIndex = 8, ;
		TabStop = .F., ;
		Top = 198
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Cb_grup' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Cb_grup", ;
		TabIndex = 4, ;
		Top = 129, ;
		Width = 326, ;
		_cbbase1.ControlSource = "porec.denumire_grup", ;
		_cbbase1.Left = 138, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "vgrupuri_utilizatori.denumire_grup", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_lbbase1.Caption = "Grup", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_sucursala' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Cb_sucursala", ;
		TabIndex = 5, ;
		Top = 157, ;
		Width = 326, ;
		_cbbase1.ControlSource = "porec.sucursala", ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 138, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "vnom_sucursale.sucursala", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 184, ;
		_lbbase1.Caption = "Sucursala", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_utilizator' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Cb_utilizator", ;
		TabIndex = 1, ;
		Top = 45, ;
		Width = 326, ;
		_cbbase1.ControlSource = "porec.utilizator", ;
		_cbbase1.Left = 137, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "vutilizatori.utilizator", ;
		_cbbase1.RowSourceType = 2, ;
		_cbbase1.Top = 3, ;
		_lbbase1.Caption = "Utilizator", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_contact' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_contact", ;
		TabIndex = 3, ;
		ToolTipText = "Pentru modificare, faceti dublu-click!", ;
		Top = 101, ;
		Width = 326, ;
		TEXT_SIMPLU1.ControlSource = "porec.contact", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 138, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 183, ;
		LB_SIMPLU1.Caption = "Persoana contact", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_partener' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_partener", ;
		TabIndex = 2, ;
		ToolTipText = "Pentru modificare, faceti dublu-click!", ;
		Top = 73, ;
		Width = 326, ;
		Text_simplu1.ControlSource = "porec.partener", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 138, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 183, ;
		Lb_simplu1.Caption = "Partener", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_utilizatori1' AS cus_odata_utilizatori WITH ;
		Height = 18, ;
		Left = 312, ;
		Name = "Cus_odata_utilizatori1", ;
		Top = 24, ;
		Width = 56
		*< END OBJECT: ClassLib="ofundal_sal.vcx" BaseClass="custom" />
	
	PROCEDURE do_alege_grup
	ENDPROC

	PROCEDURE do_alege_sucursala
	ENDPROC

	PROCEDURE do_alege_utilizator
	ENDPROC

	PROCEDURE do_aleg_persoana
		LPARAMETERS nTipPersoana
		&& 1 pentru partener, 2 pentru persoana contact
		IF nTipPersoana = 1
			LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
			lcselect = [select * FROM ] + gcs + [.vnom_parteneri]
			lcfiltru = [1=2]
			lcschema = []
			lcorder = [denumire]
			lccoloane = [denumire]
			lcTitlu = [Alegeti partenerul]
			lcTitluColoane = [Denumire]
			lcFiltruOriginal = [inactiv=0]
			lcNumeProc = ""
			lnPornire = 1
			llDesktop = .F.
			locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop)
			IF buton=2
				RETURN
			ENDIF
		
			porec.id_partener = locauta.id_part
			porec.partener = locauta.denumire
			THISFORM.clb_partener.teXT_SIMPLU1.REFRESH
		ENDIF
		IF nTipPersoana = 2
		
			LOCAL lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcFiltruOriginal, lcNumeProc
			lcselect = [select * FROM ] + gcs + [.vpers_contact]
			lcfiltru = [1=2]
			lcschema = []
			lcorder = [denumire]
			lccoloane = [denumire]
			lcTitlu = [Alegeti persoana de contact]
			lcTitluColoane = [Nume, Prenume]
			lcFiltruOriginal = [inactiv=0]
			lcNumeProc = ""
			lnPornire = 6
			llDesktop = .F.
			locauta = cauta_alfa(lcselect, lcfiltru, lcschema, lcorder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, .F., lcFiltruOriginal,,lnPornire,,,llDesktop)
			IF buton=2
				RETURN
			ENDIF
		
			porec.id_contact = locauta.id_pers
			porec.contact = ALLTRIM(locauta.denumire)
			THISFORM.clb_contact.teXT_SIMPLU1.REFRESH
		ENDIF
		
	ENDPROC

	PROCEDURE inainte_de_do_termin
		LOCAL PLRETURN
		
		lccontrol = UPPER(THIS.ACTIVECONTROL.BASECLASS )
		IF   INLIST(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX")
			lcval=THIS.ACTIVECONTROL.CONTROLSOURCE
			&lcval=THISFORM.ACTIVECONTROL.VALUE
		ENDIF
		DO CASE
			CASE  EMPTY(poRec.partener)
				AMESSAGEBOX('Completati partenerul!',0+48,'Atentie')
				THIS.clb_partener.text_simplu1.SETFOCUS()
				PLRETURN = .F.
		
			OTHERWISE
				PLRETURN=THIS.cus_odata_utilizatori1.salvare(THIS.OREC,THIS.NID)
		ENDCASE
		
		RETURN PLRETURN
		
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_utilizatori1.cactiune = tcActiune
		
		*!*	modificare v 2.0.11
		If Reccount('vnom_sucursale') = 1
			Select vnom_sucursale
			If e_mama = 0
				poRec.id_sucursala = Null
				poRec.sucursala = []
				Thisform.RemoveObject('cb_sucursala')
			Endif
		Else
			If !Isnull(gnIdSucursala)
				Select vnom_sucursale
				Locate For id_sucursala = gnIdSucursala
				If Found()
					poRec.id_sucursala = id_sucursala
					poRec.sucursala = Alltrim(sucursala)
					Thisform.RemoveObject('cb_sucursala')
				Else
					Go Top
				Endif
			Endif
		Endif
		*!*	modificare v 2.0.11	^
		
	ENDPROC

	PROCEDURE schimb_tip_utilizator
		LPARAMETERS tnTip
		
		THISFORM.do_aleg_persoana(tnTip) && 1 pentru partener, 2 pentru persoana contact
		
	ENDPROC

	PROCEDURE Cb_grup._cbbase1.Valid
		porec.id_grup = vgrupuri_utilizatori.id_grup
		
	ENDPROC

	PROCEDURE Cb_sucursala._cbbase1.Valid
		porec.id_sucursala = vnom_sucursale.id_sucursala
		
	ENDPROC

	PROCEDURE Cb_utilizator._cbbase1.Valid
		porec.id_util = vutilizatori.id_util
		
	ENDPROC

	PROCEDURE Clb_contact.TEXT_SIMPLU1.DblClick
		thisform.schimb_tip_utilizator(2)
		
		
	ENDPROC

	PROCEDURE Clb_contact.TEXT_SIMPLU1.GotFocus
		IF EMPTY(poRec.contact)
			thisform.schimb_tip_utilizator(2)
		ENDIF 	
		
	ENDPROC

	PROCEDURE Clb_partener.Text_simplu1.DblClick
		thisform.schimb_tip_utilizator(1)
	ENDPROC

	PROCEDURE Clb_partener.Text_simplu1.GotFocus
		IF EMPTY(poRec.partener)
			thisform.schimb_tip_utilizator(1)
		ENDIF 	
		
	ENDPROC

ENDDEFINE

DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx" 
 	*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Cw5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Cw6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Cw8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Cw11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Cw12" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page1.Cw13" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page2.Cw7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page3.Pict_meniu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page3.Cw9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page3.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page3.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page3.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page4.Pict_meniu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page4.Cw2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page4.Cw3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page4.Cw10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page4.Cw4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page4.Cw1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Page4.Cw5" UniqueID="" Timestamp="" />

	*<PropValue>
		ActivePage = 1
		ErasePage = .T.
		Height = 422
		Name = "pg_meniu_princ"
		PageCount = 4
		Width = 456
		Page1.Caption = "Organizarea companiei"
		Page1.Name = "Page1"
		Page1.PageOrder = 1
		Page2.Caption = "Liste nomenclatoare"
		Page2.Name = "Page2"
		Page2.PageOrder = 3
		Page3.BackColor = 255,255,255
		Page3.Caption = "Entități"
		Page3.FontCharSet = 238
		Page3.FontSize = 10
		Page3.Name = "Page3"
		Page3.PageOrder = 2
		Page4.BackColor = 255,255,255
		Page4.Caption = "Utilități"
		Page4.FontCharSet = 238
		Page4.FontSize = 10
		Page4.Name = "Page4"
		Page4.PageOrder = 4
	*</PropValue>

	ADD OBJECT 'Page1.Cw1' AS cw WITH ;
		Left = 5, ;
		Name = "Cw1", ;
		nid_cw = 1, ;
		TabIndex = 1, ;
		Top = 20, ;
		Label_item1.Caption = "Datele firmei", ;
		Label_item1.Enabled = .T., ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page1.Cw11' AS cw WITH ;
		Left = 5, ;
		Name = "Cw11", ;
		nid_cw = 5, ;
		ntip = 2, ;
		TabIndex = 5, ;
		Top = 116, ;
		Label_item1.Caption = "Calculatoare", ;
		Label_item1.Enabled = .T., ;
		Label_item1.FontName = "Arial", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page1.Cw12' AS cw WITH ;
		Left = 5, ;
		Name = "Cw12", ;
		nid_cw = 6, ;
		ntip = 2, ;
		TabIndex = 6, ;
		Top = 140, ;
		Label_item1.Caption = "Utilizatori", ;
		Label_item1.Enabled = .T., ;
		Label_item1.FontName = "Arial", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page1.Cw13' AS cw WITH ;
		Left = 5, ;
		Name = "Cw13", ;
		nid_cw = 7, ;
		ntip = 0, ;
		TabIndex = 7, ;
		Top = 164, ;
		Label_item1.Caption = "Rapoarte", ;
		Label_item1.Enabled = .T., ;
		Label_item1.FontName = "Arial", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page1.Cw5' AS cw WITH ;
		Left = 5, ;
		Name = "Cw5", ;
		nid_cw = 2, ;
		ntip = 0, ;
		TabIndex = 2, ;
		Top = 44, ;
		Label_item1.Caption = "Sucursale/puncte de lucru", ;
		Label_item1.Enabled = .T., ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page1.Cw6' AS cw WITH ;
		Left = 5, ;
		Name = "Cw6", ;
		nid_cw = 3, ;
		ntip = 2, ;
		TabIndex = 3, ;
		Top = 68, ;
		Label_item1.Caption = "Departamente/ Secții", ;
		Label_item1.Enabled = .T., ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page1.Cw8' AS cw WITH ;
		Left = 5, ;
		Name = "Cw8", ;
		nid_cw = 4, ;
		ntip = 2, ;
		TabIndex = 4, ;
		Top = 92, ;
		Label_item1.Caption = "Gestiuni", ;
		Label_item1.Enabled = .T., ;
		Label_item1.FontName = "Arial", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ;
		Left = 2, ;
		Name = "Pict_meniu1", ;
		Picture = ..\comun\grafice\f2.jpg, ;
		Top = 8
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Page2.Cw1' AS cw WITH ;
		Left = 6, ;
		Name = "Cw1", ;
		nid_cw = 8, ;
		ntip = 2, ;
		TabIndex = 7, ;
		Top = 187, ;
		Label_item1.Caption = "Categorii de entități", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Cw2' AS cw WITH ;
		Left = 6, ;
		Name = "Cw2", ;
		nid_cw = 3, ;
		ntip = 2, ;
		TabIndex = 3, ;
		Top = 67, ;
		Label_item1.Caption = "Tipuri de documente", ;
		Label_item1.Enabled = .T., ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Cw3' AS cw WITH ;
		Left = 6, ;
		Name = "Cw3", ;
		nid_cw = 5, ;
		ntip = 2, ;
		TabIndex = 4, ;
		Top = 115, ;
		Label_item1.Caption = "Județe", ;
		Label_item1.Enabled = .T., ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Cw4' AS cw WITH ;
		Left = 6, ;
		Name = "Cw4", ;
		nid_cw = 2, ;
		ntip = 2, ;
		TabIndex = 2, ;
		Top = 43, ;
		Label_item1.Caption = "Lucrări", ;
		Label_item1.Enabled = .T., ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Cw5' AS cw WITH ;
		Left = 6, ;
		Name = "Cw5", ;
		nid_cw = 6, ;
		ntip = 2, ;
		TabIndex = 5, ;
		Top = 139, ;
		Label_item1.Caption = "Localități", ;
		Label_item1.Enabled = .T., ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Cw6' AS cw WITH ;
		Left = 6, ;
		Name = "Cw6", ;
		nid_cw = 7, ;
		ntip = 2, ;
		TabIndex = 6, ;
		Top = 163, ;
		Label_item1.Caption = "Valute", ;
		Label_item1.Enabled = .T., ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Cw7' AS cw WITH ;
		Left = 6, ;
		Name = "Cw7", ;
		nid_cw = 4, ;
		ntip = 2, ;
		TabIndex = 3, ;
		Top = 91, ;
		Label_item1.Caption = "Medii de transmisie", ;
		Label_item1.Enabled = .T., ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Cw9' AS cw WITH ;
		Left = 6, ;
		Name = "Cw9", ;
		nid_cw = 1, ;
		ntip = 2, ;
		TabIndex = 1, ;
		Top = 19, ;
		Width = 180, ;
		Label_item1.AutoSize = .F., ;
		Label_item1.Caption = "Tipuri de venituri și cheltuieli", ;
		Label_item1.Height = 18, ;
		Label_item1.Left = 5, ;
		Label_item1.Name = "Label_item1", ;
		Label_item1.Top = 1, ;
		Label_item1.Width = 162, ;
		Label_item1.WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ;
		Left = 2, ;
		Name = "Pict_meniu1", ;
		Picture = ..\comun\grafice\f2.jpg, ;
		Top = 8
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Page3.Cw1' AS cw WITH ;
		Left = 7, ;
		linactiv = .T., ;
		Name = "Cw1", ;
		nid_cw = 4, ;
		ntip = 2, ;
		TabIndex = 2, ;
		Top = 104, ;
		Visible = .F., ;
		Label_item1.Caption = "Angajați", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page3.Cw2' AS cw WITH ;
		Left = 7, ;
		Name = "Cw2", ;
		nid_cw = 2, ;
		ntip = 2, ;
		TabIndex = 3, ;
		Top = 42, ;
		Label_item1.Caption = "Responsabili", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page3.Cw4' AS cw WITH ;
		Height = 38, ;
		Left = 7, ;
		Name = "Cw4", ;
		nid_cw = 3, ;
		ntip = 2, ;
		TabIndex = 4, ;
		Top = 64, ;
		Label_item1.Caption = "Asociere entități-secții/gestiuni", ;
		Label_item1.Height = 34, ;
		Label_item1.Left = 5, ;
		Label_item1.Name = "Label_item1", ;
		Label_item1.Top = 3, ;
		Label_item1.Width = 125, ;
		Label_item1.WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page3.Cw9' AS cw WITH ;
		Left = 7, ;
		Name = "Cw9", ;
		nid_cw = 1, ;
		ntip = 2, ;
		TabIndex = 1, ;
		Top = 20, ;
		Label_item1.Caption = "Entități", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page3.Pict_meniu1' AS pict_meniu WITH ;
		Left = 2, ;
		Name = "Pict_meniu1", ;
		Picture = ..\comun\grafice\f2.jpg, ;
		Top = 8
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />

	ADD OBJECT 'Page4.Cw1' AS cw WITH ;
		Left = 5, ;
		Name = "Cw1", ;
		nid_cw = 6, ;
		Top = 148, ;
		LABEL_ITEM1.Caption = "Configurare seturi", ;
		LABEL_ITEM1.Name = "LABEL_ITEM1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page4.Cw10' AS cw WITH ;
		Left = 6, ;
		Name = "Cw10", ;
		nid_cw = 4, ;
		TabIndex = 4, ;
		Top = 100, ;
		Label_item1.Caption = "Opțiuni", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page4.Cw2' AS cw WITH ;
		Left = 6, ;
		Name = "Cw2", ;
		nid_cw = 1, ;
		ntip = 2, ;
		TabIndex = 2, ;
		Top = 14, ;
		Label_item1.Caption = "Deschidere de lună", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page4.Cw3' AS cw WITH ;
		Enabled = .F., ;
		Left = 6, ;
		Name = "Cw3", ;
		nid_cw = 3, ;
		TabIndex = 3, ;
		Top = 76, ;
		Label_item1.Caption = "Blocare de lună", ;
		Label_item1.Name = "Label_item1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page4.Cw4' AS cw WITH ;
		Height = 34, ;
		Left = 6, ;
		Name = "Cw4", ;
		nid_cw = 2, ;
		TabIndex = 2, ;
		Top = 38, ;
		Label_item1.AutoSize = .F., ;
		Label_item1.Caption = "Vizualizare istoric (re)deschideri luna", ;
		Label_item1.Height = 50, ;
		Label_item1.Left = 5, ;
		Label_item1.Name = "Label_item1", ;
		Label_item1.Top = 0, ;
		Label_item1.Width = 172, ;
		Label_item1.WordWrap = .T.
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page4.Cw5' AS cw WITH ;
		Left = 5, ;
		Name = "Cw5", ;
		nid_cw = 5, ;
		ntip = 2, ;
		Top = 124, ;
		LABEL_ITEM1.Caption = "Categorii seturi", ;
		LABEL_ITEM1.Name = "LABEL_ITEM1"
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />

	ADD OBJECT 'Page4.Pict_meniu1' AS pict_meniu WITH ;
		Left = 2, ;
		Name = "Pict_meniu1", ;
		Picture = ..\comun\grafice\f2.jpg, ;
		Top = 8
		*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
	
	PROCEDURE Page1.Cw1.do_actiune
		DO viz_firme
	ENDPROC

	PROCEDURE Page1.Cw11.do_actiune
		DO calculatoare.mpr
	ENDPROC

	PROCEDURE Page1.Cw12.do_actiune
		DO utilizatori.mpr
	ENDPROC

	PROCEDURE Page1.Cw13.do_actiune
		DO rapoarte.mpr
	ENDPROC

	PROCEDURE Page1.Cw5.do_actiune
		DO viz_sucursale IN ONOMENCLATOARE.PRG
	ENDPROC

	PROCEDURE Page1.Cw6.do_actiune
		DO viz_sectii IN ONOMENCLATOARE.PRG
	ENDPROC

	PROCEDURE Page1.Cw8.do_actiune
		DO VIZ_GESTIUNI IN ONOMENCLATOARE.PRG
	ENDPROC

	PROCEDURE Page2.Cw1.do_actiune
		Do viz_categorii_entitati In oproceduri_roadef.prg
		
	ENDPROC

	PROCEDURE Page2.Cw2.do_actiune
		DO VIZ_FDOC IN ONOMENCLATOARE.PRG
	ENDPROC

	PROCEDURE Page2.Cw3.do_actiune
		DO VIZ_JUDETE IN ONOMENCLATOARE.PRG
	ENDPROC

	PROCEDURE Page2.Cw4.do_actiune
		DO viz_lucrari IN onomenclatoare.prg
	ENDPROC

	PROCEDURE Page2.Cw5.do_actiune
		DO VIZ_LOCALITATI IN ONOMENCLATOARE.PRG
	ENDPROC

	PROCEDURE Page2.Cw6.do_actiune
		DO viz_valute IN onomenclatoare.prg
	ENDPROC

	PROCEDURE Page2.Cw7.do_actiune
		DO viz_medii_transmisie IN ONOMENCLATOARE.PRG
	ENDPROC

	PROCEDURE Page2.Cw9.do_actiune
		DO viz_venchel IN onomenclatoare.prg
	ENDPROC

	PROCEDURE Page3.Cw1.do_actiune
		DO viz_pers IN osalarii_comun.prg
	ENDPROC

	PROCEDURE Page3.Cw2.Click
		DO VIZ_RESPONSABILI IN ONOMENCLATOARE.PRG
	ENDPROC

	PROCEDURE Page3.Cw4.do_actiune
		Local  loCauta, lcSelect, lcTitlu, lcFiltru, lcFiltruOriginal, lcSchema, lcOrder, lcNumeProc, lcTitluColoane
		store Null To loCauta
		
		lcSelect = [select denumire, id_tip, tip from tipuri_asocieri]
		lcFiltru = [2=2]
		lcSchema = []
		lcOrder = [id_tip]
		lccoloane = [denumire, id_tip]
		lcFiltruOriginal = []
		
		
		lcTitlu = "Alegeti tipul de asociere"
		lcNumeProc = []
		llToateIreg = .F.
		
		lcTitluColoane = [Tip asociere,Id]
		loCauta = cauta_alfa(lcSelect, lcFiltru, lcSchema, lcOrder, lccoloane, lcTitlu, lcTitluColoane, lcNumeProc, llToateIreg, lcFiltruOriginal)
		
		Do CASE 
			Case Upper(Alltrim(loCauta.tip)) = 'SECTIE'
				DO asociere_parteneri_sectii WITH loCauta.id_tip IN oproceduri_roadef.prg
			Case Upper(Alltrim(loCauta.tip)) = 'GESTIUNE'
				DO asociere_parteneri_gestiuni WITH loCauta.id_tip IN oproceduri_roadef.prg		
		EndCase 		
	ENDPROC

	PROCEDURE Page3.Cw9.do_actiune
		DO entitati.mpr
		
	ENDPROC

	PROCEDURE Page4.Cw1.do_actiune
		Local lcSql, lnSucces
		If !glLunaInchisa
		
			lcSql = [select a.*, 1 as cu_tva from Vact a where 1 = 2]
			lcCursor = [actactan]
		
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
			goExecutor.oReset()
		
			If lnSucces >0
		
				Select actactan
				Scatter Name oAct
		
				Do update_coresp_tip_part
				Do update_coresp_tip_cont
		
		
				Do update_jtva_coloane With [],[],1
				ooo = Createobject('frm_configurare')
				ooo.Show(1)
		
				If Used('coresp_tip_part')
					Use In coresp_tip_part
				Endif
				If Used('coresp_tip_cont')
					Use In coresp_tip_cont
				Endif
				If Used('actactan')
					Use In actactan
				Endif
				If Used('jtva_coloane')
					Use In jtva_coloane
				Endif
			Endif
		Else
			amessagebox("Aceasta luna este blocata si nu puteti face introduceri!",0+48,"Atentie")
		Endif
		
	ENDPROC

	PROCEDURE Page4.Cw10.do_actiune
		DO optiuni.mpr
	ENDPROC

	PROCEDURE Page4.Cw2.do_actiune
		DO deschidluna WITH .T. IN oredeschid.prg 
	ENDPROC

	PROCEDURE Page4.Cw3.do_actiune
		DO VIZ_LUNI_BLOCATE IN oproceduri_roadef.prg
	ENDPROC

	PROCEDURE Page4.Cw4.do_actiune
		DO viz_log_redeschid IN oproceduri_roadef.prg
	ENDPROC

	PROCEDURE Page4.Cw5.do_actiune
		LOCAL lcForm
		lcform = CREATEOBJECT("frm_categorii")
		lcform.show(1)
	ENDPROC

ENDDEFINE