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

	#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
	*<DefinedPropArrayMethod>
		*p: cschema
	*</DefinedPropArrayMethod>

	*<PropValue>
		cschema = 
		Name = "cus_odata_cote"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		lcs = this.cschema 
		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')
			lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.descriere)),['],['']),"")
			lcLuna = ALLTRIM(STR(toRec.luna))
			lcAn = ALLTRIM(STR(toRec.an))
			lcProcent = ALLTRIM(STR(toRec.procent))
			lcproc = ALLTRIM(STR(toRec.proc_tva,5,2))
			
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +;
						lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE ] + lcS + [.cote_tva SET descriere = '] + lcnume + ;
						[', procent = ] + lcprocent + [,proc_tva = ] + lcproc + [, an = ] + lcan + [, luna = ] + lcluna +;
						[ where id_proc_tva = ] + lcId 
		
		
			Case lcActiune = "DELETE"
			
				lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId
			
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

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

	#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
	*<DefinedPropArrayMethod>
		*p: cschema
	*</DefinedPropArrayMethod>

	*<PropValue>
		cschema = 
		Name = "cus_odata_exceptii"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		lcs = this.cschema 
		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')
			lcCont = Nvl(STRTRAN(Alltrim(Upper(toRec.cont)),['],['']),"")
			lcContC = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_c)),['],['']),"")
			lcDebit = ALLTRIM(STR(toRec.debit))
			lcInvers = '1'
			
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO ] + lcS + [.exceptii_ireg (cont,cont_c,debit,invers) VALUES ('] +;
						lcCont + [','] + lcContC + [',] + lcDebit + [,] + lcInvers + [)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE ] + lcS + [.exceptii_ireg SET cont = '] + lccont + ;
						[', cont_c = '] + lcContC + [',debit = ] + lcDebit + [, invers = ] + lcInvers +;
						[ where id_exceptii = ] + lcId 
		
		
			Case lcActiune = "DELETE"
			
				lcSql = [delete from ] + lcS + [.exceptii_ireg where id_exceptii = ] + lcId
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

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

	*<PropValue>
		Name = "cus_odata_firme"
	*</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')
			lnid_formaj = NVL(ALLTRIM(STR(toRec.id_forma_juridica)),"0")
			lnid_formao = NVL(ALLTRIM(STR(toRec.id_forma_organizare)),"0")
			lnid_formap = NVL(ALLTRIM(STR(toRec.id_forma_prop)),"0")
			lnid_tip_soc = NVL(ALLTRIM(STR(toRec.id_tip_soc)),"0")
		
			lcindicativ = Nvl(STRTRAN(Alltrim(Upper(toRec.indicativ)),['],['']),"")
			
			lcfirma = Nvl(STRTRAN(Alltrim(Upper(toRec.firma)),['],['']),"")
			lcantet = Nvl(STRTRAN(Alltrim(Upper(toRec.antet)),['],['']),"")
			lcCodF = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_fiscal)),['],['']),"")
			lcregc = Nvl(STRTRAN(Alltrim(Upper(toRec.reg_comert)),['],['']),"")
			lcbanca1 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca1)),['],['']),"")
			lccontb1 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca1)),['],['']),"")
			lcbanca2 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca2)),['],['']),"")
			lccontb2 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca2)),['],['']),"")
			lcBanca3 = Nvl(STRTRAN(Alltrim(Upper(toRec.banca3)),['],['']),"")
			lccontb3 = Nvl(STRTRAN(Alltrim(Upper(toRec.cont_banca3)),['],['']),"")
			lcadresa = Nvl(STRTRAN(Alltrim(Upper(toRec.adresa)),['],['']),"")
			lcCodFirma = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_firma)),['],['']),"")
			lnpersj = NVL(ALLTRIM(STR(toRec.persoana_juridica)),"0")
			lncodang = NVL(ALLTRIM(STR(toRec.codang)),"0")
			lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.nume)),['],['']),"")
			lcprenume = Nvl(STRTRAN(Alltrim(Upper(toRec.prenume)),['],['']),"")
			lctel = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon)),['],['']),"")
			lctel2 = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon2)),['],['']),"")
			lctel3 = Nvl(STRTRAN(Alltrim(Upper(toRec.telefon3)),['],['']),"")
			lcfax = Nvl(STRTRAN(Alltrim(Upper(toRec.fax)),['],['']),"")
			lcemail = Nvl(STRTRAN(Alltrim(Upper(toRec.email)),['],['']),"")
			lcoasp = Nvl(STRTRAN(Alltrim(Upper(toRec.oasp)),['],['']),"")
			lncapsv =NVL(ALLTRIM(STR(toRec.capital_soc_var,16,2)),"0")
			lncapss =NVL(ALLTRIM(STR(toRec.capital_soc_sub,16,2)),"0")
			lcpctl = Nvl(STRTRAN(Alltrim(Upper(toRec.punct_luc)),['],['']),"")
			lccaen = Nvl(STRTRAN(Alltrim(Upper(toRec.caen)),['],['']),"")
			lcschema = Nvl(STRTRAN(Alltrim(Upper(toRec.schema)),['],['']),"")	
		*!*		lnidm = NVL(ALLTRIM(STR(toRec.id_mama)),"0")
		*!*		lnmama = NVL(ALLTRIM(STR(toRec.mama)),"0")
			lcsucursala = Nvl(STRTRAN(Alltrim(Upper(toRec.sucursala)),['],['']),"")	
		*!*		lnidl = NVL(ALLTRIM(STR(toRec.id_loc)),"0")
			lcjudet = Nvl(STRTRAN(Alltrim(Upper(toRec.judet)),['],['']),"")	
			lclocalitate = Nvl(STRTRAN(Alltrim(Upper(toRec.localitate)),['],['']),"")	
			lcstrada = Nvl(STRTRAN(Alltrim(Upper(toRec.strada)),['],['']),"")	
			lcnumar = Nvl(STRTRAN(Alltrim(Upper(toRec.numar)),['],['']),"")	
			lcbloc = Nvl(STRTRAN(Alltrim(Upper(toRec.bloc)),['],['']),"")	
			lcscara = Nvl(STRTRAN(Alltrim(Upper(toRec.scara)),['],['']),"")	
			lccod_postal = Nvl(STRTRAN(Alltrim(Upper(toRec.cod_postal)),['],['']),"")		
			lnapart = NVL(ALLTRIM(STR(toRec.apart)),"0")	
			lnidm="0"
			lnmama="0"
			lnidl=NVL(ALLTRIM(STR(toRec.id_loc)),"0")	
		Endif
		
		Do Case
			Case lcActiune = "INSERT"
				lcSql = [begin contafin_oracle.pack_drepturi.firmeinsproc('] + lcfirma + [','] + lcantet + [','] + ;
				lcCodF + [','] + lcregc + [','] + lcbanca1 + [','] + lccontb1 + ;
				[','] + lcbanca2 + [','] + lccontb2 + [','] + lcbanca3 + ;
				[','] + lccontb3 + [','] + lcadresa + [','] + lcCodFirma + ;
				[',] + lnpersj + [,] + lncodang + [,'] + lcnume + ;
				[','] + lcprenume + [','] + lctel + [','] + lctel2 + [','] + lctel3 + [','] + lcfax + ;
				[','] + lcemail + [','] + lcoasp + [',] + lncapsv + ;
				[,] + lncapss + [,'] + lcpctl + [','] + lccaen + [','] + lcSchema + ;
				[',] + lnidm + [,] + lnmama + [,'] + lcsucursala + [',] + lnidl + [,]+ ALLTRIM(STR(gnIdUtil))+;
				[,] + lnid_formaj + [,] + lnid_formao + [,] + lnid_formap + [,] + lnid_tip_soc + ;
				[,'] + lcindicativ + ['); end;]
		
			Case lcActiune = "UPDATE"
				lcSql = [begin contafin_oracle.pack_drepturi.deffirmemodproc(]+lcId+[,'] + lcfirma + [','] + lcantet + [','] + ;
				lcCodF + [','] + lcregc + [','] + lcbanca1 + [','] + lccontb1 + ;
				[','] + lcbanca2 + [','] + lccontb2 + [','] + lcbanca3 + ;
				[','] + lccontb3 + [','] + lcadresa + [','] + lcCodFirma + ;
				[',] + lnpersj + [,] + lncodang + [,'] + lcnume + ;
				[','] + lcprenume + [','] + lctel + [','] + lctel2 + [','] + lctel3 + [','] + lcfax + ;
				[','] + lcemail + [','] + lcoasp + [',] + lncapsv + ;
				[,] + lncapss + [,'] + lcpctl + [','] + lccaen + [','] + lcSchema + ;
				[','] + lcjudet + [','] + lclocalitate +[','] + lcstrada + [','] + lcnumar + ;
				[','] + lcbloc + [','] + lcscara + [',] + lnapart + [,'] + lccod_postal + ;
				[',] + lnidm + [,] + lnmama + [,'] + lcsucursala + [',] + lnidl + [,]+ ALLTRIM(STR(gnIdUtil))+;
				[,] + lnid_formaj + [,] + lnid_formao + [,] + lnid_formap + [,] + lnid_tip_soc + ;
				[,'] + lcindicativ + ['); end;]
				STRTOFILE(lcsql,'c:\jurnal.txt')
		*!*			RETURN 
			Case lcActiune = "DELETE"
				lcSql = [begin contafin_oracle.pack_drepturi.firmedelproc(] + lcId + [,] + ALLTRIM(STR(gnIdUtil)) + [); end;]
		Endcase
		This.csql = lcSql
	ENDPROC

ENDDEFINE

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

	#INCLUDE "..\..\program files\microsoft visual foxpro 8\foxpro.h"
	*<DefinedPropArrayMethod>
		*p: cschema
	*</DefinedPropArrayMethod>

	*<PropValue>
		cschema = 
		Name = "cus_odata_optiuni"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		lcActiune = Alltrim(This.cActiune)
		lcs = this.cschema 
		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",'DELETE')
			lcId = Alltrim(Str(tnId))
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcnume = Nvl(STRTRAN(Alltrim(Upper(toRec.varname)),['],['']),"")
			lctip = Nvl(STRTRAN(Alltrim(Upper(toRec.vartype)),['],['']),"")
			lcval = Nvl(STRTRAN(Alltrim(Upper(toRec.varvalue)),['],['']),"")
			lcdesc = Nvl(STRTRAN(Alltrim(Upper(toRec.vardesc)),['],['']),"")
		
			
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
				lcSql = [INSERT INTO ] + lcS + [.optiuni (varname,vartype,varvalue,vardesc) VALUES ('] +;
						lcnume + [','] + lctip + [','] + lcval + [','] + lcdesc + [')]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE ] + lcS + [.optiuni SET varname = '] + lcnume + ;
						[', vartype = '] + lctip + [',varvalue = '] + lcval + [', vardesc = '] + lcdesc + ;
						[' where id_optiuni = ] + lcId 
		
			Case lcActiune = "DELETE"
			
				lcSql = [delete from ] + lcS + [.optiuni where id_optiuni=] + lcId
			
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

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

	*<DefinedPropArrayMethod>
		*p: cschema
	*</DefinedPropArrayMethod>

	*<PropValue>
		cschema = 
		Name = "cus_odata_plafon_casa"
	*</PropValue>
	
	PROCEDURE make_sql
		Lparameters toRec,tnId
		
		LOCAL lcActiune, lcs 
		PRIVATE pnId,pnPlCasa,pnPlPlati,pnPlFurn
		
		lcActiune = Alltrim(This.cActiune)
		*lcs = this.cschema 
		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')
			pcId = ALLTRIM(STR(tnId))
		ENDIF 
		
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			pcPlCasa = ALLTRIM(STR(toRec.plafon_casa,16,gnPa))
			pcPlPlati = ALLTRIM(STR(toRec.plafon_plati,16,gnPa))
			pcPlFurn = ALLTRIM(STR(toRec.plafon_furnizori,16,gnPa))
		Endif
		
		
		Do Case
			Case lcActiune = "INSERT"
		
		*!*			lcSql = [INSERT INTO ] + lcS + [.cote_tva (descriere,procent,proc_tva,an,luna) VALUES ('] +;
		*!*					lcnume + [',] + lcProcent + [,] + lcproc + [,] + lcan + [,] + lcluna + [)]
		
			Case lcActiune = "UPDATE"
		
				lcSql = [UPDATE calendar SET ] + ;
						[ plafon_casa = ] + pcPlCasa + [, plafon_plati = ] + pcPlPlati + [, plafon_furnizori = ] + pcPlFurn  + ;
						[ where id_calendar = ] + pcId
		
		
			Case lcActiune = "DELETE"
			
		*!*			lcSql = [delete from ] + lcS + [.cote_tva where id_proc_tva=] + lcId
			
		Endcase
		
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

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

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

	*<DefinedPropArrayMethod>
		*p: cschema
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 165
		Name = "frm_cote_nou"
		Width = 314
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 252
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 76
		Lb_titlu_alb_b121.Caption = "Cote tva"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		BUT_TERMIN1.Left = 283
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

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

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 15, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 44, ;
		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 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Left = 15, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 2, ;
		Top = 72, ;
		Text_simplu1.ControlSource = "porec.procent", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Procent", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
		Left = 15, ;
		Name = "Clb_tx_simplu3", ;
		TabIndex = 3, ;
		Top = 100, ;
		Text_simplu1.ControlSource = "porec.luna", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Luna", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
		Left = 15, ;
		Name = "Clb_tx_simplu6", ;
		TabIndex = 4, ;
		Top = 128, ;
		Text_simplu1.ControlSource = "porec.an", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "An", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_cote1' AS cus_odata_cote WITH ;
		Left = 119, ;
		Name = "Cus_odata_cote1", ;
		Top = 28
		*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />
	
	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.descriere)
			Messagebox('Nu ati completat descrierea cotei de tva!',0+48,"Atentie")
			This.clb_tx_simplu1.SetFocus()
			plreturn=.F.
		
		*!*	Case Empty(porec.procent)
		*!*		Messagebox('Nu ati completat procentul de tva!',0+48,"Atentie")
		*!*		This.clb_tx_simplu2.SetFocus()
		*!*		plreturn=.F.
		
		Case Empty(porec.luna)
			Messagebox('Nu ati completat luna!',0+48,"Atentie")
			This.clb_tx_simplu3.SetFocus()
			plreturn=.F.
		
		Case Empty(porec.an)
			Messagebox('Nu ati completat anul!',0+48,"Atentie")
			This.clb_tx_simplu6.SetFocus()
			plreturn=.F.
			
		OTHERWISE
			this.cus_odata_cote1.cschema=this.cschema 
			PLRETURN=This.cus_odata_cote1.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_cote1.cactiune = tcActiune
	ENDPROC

	PROCEDURE Clb_tx_simplu2.Text_simplu1.Valid
		
		porec.proc_tva = (100+this.value)/100
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_cote_tva 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="grid_cot" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_cot.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_cot.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_cot.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_cot.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_cot.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_cot.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_cot.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_cot.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_nom_cot" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: cschema
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		cgridsortlist = grid_cot
		cschema = CONTAFIN_ORACLE
		DoCreate = .T.
		Height = 351
		Name = "frm_cote_tva"
		Width = 524
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 522
		_shape2.Height = 29
		_shape2.Left = 402
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 120
		Lb_titlu_alb_b121.Caption = "COTE TVA"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 494
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

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

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

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

	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
		Left = 299, ;
		Name = "Cmd_cauta1", ;
		TabIndex = 2, ;
		Top = 52
		*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'grid_cot' AS _grid WITH ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		Height = 264, ;
		Left = 5, ;
		Name = "grid_cot", ;
		Panel = 1, ;
		RecordSource = "v_cote_tva", ;
		RowHeight = 23, ;
		Top = 84, ;
		Width = 513, ;
		Column1.ControlSource = "descriere", ;
		Column1.Name = "Column1", ;
		Column1.Width = 305, ;
		Column2.ControlSource = "procent", ;
		Column2.Name = "Column2", ;
		Column2.Width = 66, ;
		Column3.ControlSource = "luna", ;
		Column3.Name = "Column3", ;
		Column3.Width = 43, ;
		Column4.ControlSource = "an", ;
		Column4.Name = "Column4", ;
		Column4.Width = 64
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" />

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

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

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

	ADD OBJECT 'grid_cot.Column3.Text1' AS textbox WITH ;
		Height = 23, ;
		Left = 31, ;
		Name = "Text1", ;
		Top = 35, ;
		Width = 100
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'grid_cot.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 'lb_nom_cot' AS clb_tx_simplu WITH ;
		Left = 8, ;
		Name = "lb_nom_cot", ;
		TabIndex = 1, ;
		Top = 52, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Nume", ;
		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=pcot.ca_baza1.cfiltru
		ENDIF
		save_grid_tag(thisform.grid_cot)
		pcot.ca_baza1.cfiltru=lcFiltru
		pcot.ca_baza1.afisare()
		restore_grid_tag(thisform.grid_cot)
		IF RECCOUNT('v_cote_tva')>0
			thisform.grid_cot.SetFocus()
		ELSE
			thisform.lb_nom_cot.SetFocus()
		ENDIF
		
	ENDPROC

	PROCEDURE do_adauga
		SELECT v_cote_tva
		SCATTER NAME loRec BLANK 
		PRIVATE lcot,poRec
		lcot=''
		poRec = loRec
		DO Adauga_Modifica_Inregistrare WITH "cote",loRec,,"INSERT",.t.,'lcot'
		lcot.cschema = this.cschema 
		lcot.show(1)
		RELEASE lcot,poRec
		this.actualizeaza_grid1()
	ENDPROC

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

	PROCEDURE do_modifica
		Select v_cote_tva
		Scatter Name loRec
		PRIVATE lcot,poRec
		lcot = ''
		poRec = loRec
		Do Adauga_Modifica_Inregistrare With "cote",loRec,loRec.Id_proc_tva,"UPDATE",.t.,'lcot'
		lcot.cschema = this.cschema 
		lcot.show(1)
		RELEASE lcot,poRec
		thisform.actualizeaza_grid1()
	ENDPROC

	PROCEDURE do_sterge
		SELECT v_cote_tva
		SCATTER NAME lorec MEMO 
		PRIVATE lcot 
		lcot = ''
		Do STERGE_INREGISTRARE With "cote",loRec.id_proc_tva,.t.,'lcot'
		lcot.cschema = this.cschema 
		lcot.salvare(,loRec.id_proc_tva)
		RELEASE lcot
		
		this.actualizeaza_grid1()
		
		
	ENDPROC

	PROCEDURE Unload
		IF USED('v_cote_tva')
			USE IN v_cote_tva
		ENDIF
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_exceptii_ireg 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="grid_ex" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_ex.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_nom_ex" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: cschema
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		cgridsortlist = grid_ex
		cschema = CONTAFIN_ORACLE
		DoCreate = .T.
		Height = 351
		Name = "frm_exceptii_ireg"
		Width = 463
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 466
		_shape2.Height = 29
		_shape2.Left = 346
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 120
		Lb_titlu_alb_b121.Caption = "EXCEPTII"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 433
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

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

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

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

	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
		Left = 299, ;
		Name = "Cmd_cauta1", ;
		TabIndex = 2, ;
		Top = 52
		*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'grid_ex' AS _grid WITH ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		Height = 264, ;
		Left = 4, ;
		Name = "grid_ex", ;
		Panel = 1, ;
		RecordSource = "v_exceptii_ireg", ;
		RowHeight = 23, ;
		Top = 84, ;
		Width = 456, ;
		Column1.ControlSource = "cont", ;
		Column1.Name = "Column1", ;
		Column1.Width = 124, ;
		Column2.ControlSource = "cont_c", ;
		Column2.Name = "Column2", ;
		Column2.Width = 119, ;
		Column3.ControlSource = "iif(debit=0,'DEBIT','CREDIT')", ;
		Column3.Name = "Column3", ;
		Column3.Width = 179, ;
		Column4.ControlSource = "invers", ;
		Column4.Name = "Column4", ;
		Column4.Visible = .F., ;
		Column4.Width = 59, ;
		Column5.ControlSource = "id_set", ;
		Column5.Name = "Column5", ;
		Column5.Visible = .F., ;
		Column5.Width = 70
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" />

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

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

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

	ADD OBJECT 'grid_ex.Column3.Text1' AS textbox WITH ;
		Height = 23, ;
		Left = 31, ;
		Name = "Text1", ;
		Top = 35, ;
		Width = 100
		*< END OBJECT: BaseClass="textbox" />

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

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

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

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

	ADD OBJECT 'lb_nom_ex' AS clb_tx_simplu WITH ;
		Left = 8, ;
		Name = "lb_nom_ex", ;
		TabIndex = 1, ;
		Top = 52, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Cont", ;
		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=pex.ca_baza1.cfiltru
		ENDIF
		save_grid_tag(thisform.grid_ex)
		pex.ca_baza1.cfiltru=lcFiltru
		pex.ca_baza1.afisare()
		restore_grid_tag(thisform.grid_ex)
		IF RECCOUNT('v_exceptii_ireg')>0
			thisform.grid_ex.SetFocus()
		ELSE
			thisform.lb_nom_ex.SetFocus()
		ENDIF
		
	ENDPROC

	PROCEDURE do_adauga
		SELECT v_exceptii_ireg
		SCATTER NAME loRec BLANK 
		PRIVATE lex,poRec
		
		lex=''
		poRec = loRec
		DO Adauga_Modifica_Inregistrare WITH "exceptii",loRec,,"INSERT",.t.,'lex'
		lex.cschema = this.cschema 
		lex.show(1)
		RELEASE lex,poRec
		this.actualizeaza_grid1()
	ENDPROC

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

	PROCEDURE do_modifica
		Select v_exceptii_ireg
		Scatter Name loRec
		PRIVATE lex,poRec
		lex = ''
		poRec = loRec
		Do Adauga_Modifica_Inregistrare With "exceptii",loRec,loRec.Id_exceptii,"UPDATE",.t.,'lex'
		lex.cschema = this.cschema 
		lex.show(1)
		RELEASE lex,poRec
		thisform.actualizeaza_grid1()
	ENDPROC

	PROCEDURE do_sterge
		SELECT v_exceptii_ireg
		SCATTER NAME lorec MEMO 
		PRIVATE lex 
		lex = ''
		Do STERGE_INREGISTRARE With "exceptii",loRec.id_exceptii,.t.,'lex'
		lex.cschema = this.cschema 
		lex.salvare(,loRec.id_exceptii)
		RELEASE lex
		
		this.actualizeaza_grid1()
		
		
	ENDPROC

	PROCEDURE Unload
		IF USED('v_exceptii_ireg')
			USE IN v_exceptii_ireg
		ENDIF
	ENDPROC

ENDDEFINE

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

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

	*<DefinedPropArrayMethod>
		*p: cschema
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 133
		Name = "frm_exceptii_nou"
		Width = 314
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 252
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 76
		Lb_titlu_alb_b121.Caption = "Exceptii"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 6
		BUT_TERMIN1.Left = 283
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 1
	*</PropValue>

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

	ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 15, ;
		Name = "Cb_tx_simplu1", ;
		TabIndex = 3, ;
		Top = 102, ;
		Width = 290, ;
		_cbbase1.BoundTo = .T., ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "DEBIT,CREDIT", ;
		_cbbase1.RowSourceType = 1, ;
		_lbbase1.Caption = "Pozitie", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 15, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 44, ;
		Text_simplu1.ControlSource = "porec.cont", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Cont", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Left = 15, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 2, ;
		Top = 72, ;
		Text_simplu1.ControlSource = "porec.cont_c", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Corespondent", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\libs\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_exceptii1' AS cus_odata_exceptii WITH ;
		Left = 168, ;
		Name = "Cus_odata_exceptii1", ;
		Top = 33
		*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />
	
	PROCEDURE inainte_de_do_termin
		LOCAL PLRETURN
		
		porec.debit = IIF(this.cb_tx_simplu1._CBBASE1.Value="DEBIT",0,1)
		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.cont)
			Messagebox('Nu ati completat contul!',0+48,"Atentie")
			This.clb_tx_simplu1.SetFocus()
			plreturn=.F.
		
		Case Empty(porec.cont_c)
			Messagebox('Nu ati completat contul corespondent!',0+48,"Atentie")
			This.clb_tx_simplu2.SetFocus()
			plreturn=.F.
		
		*!*	Case Empty(porec.debit)
		*!*		Messagebox('Nu ati completat pozitia contului!',0+48,"Atentie")
		*!*		This.clb_tx_simplu3.SetFocus()
		*!*		plreturn=.F.
			
		OTHERWISE
		
			lcCont = ALLTRIM(porec.cont)
			lcContC = ALLTRIM(porec.cont_c)
			lcSql = [select * from ] + gcS + [.plcont where cont=]+lcCont
			lcCursor = [cur_cont]
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
			goExecutor.oReset()															&&Verific contu in plcont
			
			IF RECCOUNT('cur_cont')=0
				MESSAGEBOX('Contul '+lcCont+' nu este definit in planul de conturi!',0,'Eroare')
				PLRETURN=.f.
				USE IN cur_cont
				RETURN PLRETURN
			ENDIF 
			IF USED('cur_cont')
				USE IN cur_cont
			ENDIF 
			
			lcSql = [select * from ] + gcS + [.plcont where cont=]+lcContC
			lcCursor = [cur_cont_c]
			lnSucces = goExecutor.oExecute(lcSql,lcCursor)
			goExecutor.oReset()															&&Verific contul corespondent
			IF RECCOUNT('cur_cont_c')=0
				MESSAGEBOX('Contul '+lcContC+' nu este definit in planul de conturi!',0,'Eroare')
				PLRETURN=.f.
				USE IN cur_cont_c
				RETURN PLRETURN
			ENDIF 	
			IF USED('cur_cont_c')
				USE IN cur_cont_c
			ENDIF 
			this.cus_odata_exceptii1.cschema=this.cschema 
			PLRETURN=This.cus_odata_exceptii1.salvare(This.OREC,This.NID)
		ENDCASE 
		
		Return PLRETURN
		
	ENDPROC

	PROCEDURE Init
		LPARAMETERS toRec, tnId, tcActiune
		
		DODEFAULT()
		IF porec.debit=0
			this.cb_tx_simplu1._cBBASE1.DisplayValue='DEBIT'
		ELSE 
			this.cb_tx_simplu1._cBBASE1.DisplayValue='CREDIT'
		ENDIF 		
		this.orec= toRec
		this.nid = tnId
		this.cus_odata_exceptii1.cactiune = tcActiune
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cFirma.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cFirma.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cSchema.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cSchema.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCod_Fiscal.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCod_Fiscal.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cBanca1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cBanca1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cBanca2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cBanca2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cBanca3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cBanca3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCont_Banca3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cAdresa.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cAdresa.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCod_Firma.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCod_Firma.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cPersoanaJuridica.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cPersoanaJuridica.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCodAng.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCodAng.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cNume.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cNume.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cPrenume.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cPrenume.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_sub.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_sub.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_var.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCapital_soc_var.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCaen.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cCaen.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cPunctLucru.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cPunctLucru.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cOasp.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cOasp.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cTelefon.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cTelefon.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cTelefon2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cTelefon2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cTelefon3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cTelefon3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cFax.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cFax.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cEmail.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cEmail.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cReg_Comert.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cReg_Comert.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cSucursala.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grd_firme.cSucursala.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_cod_fiscal" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_reg_comert" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_banca1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_cont_banca1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_cod_firma" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_fax" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_email" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_telefon" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_telefon3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ed_adresa" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_refresh_date
	*</DefinedPropArrayMethod>

	*<PropValue>
		cbuton3 = but_modifica1
		cbuton4 = but_sterge1
		cgridsortlist = grd_firme
		Desktop = .T.
		DoCreate = .T.
		Height = 515
		lactiv3 = .T.
		lactiv4 = .T.
		Name = "frm_firme"
		Width = 791
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 792
		_SHAPE2.Height = 29
		_SHAPE2.Left = 648
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 144
		LB_TITLU_ALB_B121.Caption = "FIRME"
		LB_TITLU_ALB_B121.FontBold = .T.
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 9
		BUT_TERMIN1.Left = 756
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 2
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

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

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

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

	ADD OBJECT 'Clb_banca1' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_banca1", ;
		TabIndex = 10, ;
		TabStop = .F., ;
		Top = 244, ;
		TEXT_SIMPLU1.ControlSource = "porec.banca1", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Banca 1", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_cod_firma' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_cod_firma", ;
		TabIndex = 12, ;
		TabStop = .F., ;
		Top = 300, ;
		TEXT_SIMPLU1.ControlSource = "porec.cod_firma", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Cod firma", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_cod_fiscal' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_cod_fiscal", ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 188, ;
		Width = 290, ;
		TEXT_SIMPLU1.ControlSource = "porec.cod_fiscal", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Cod fiscal", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_cont_banca1' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_cont_banca1", ;
		TabIndex = 11, ;
		TabStop = .F., ;
		Top = 272, ;
		TEXT_SIMPLU1.ControlSource = "porec.cont_banca1", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Cont banca 1", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_email' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_email", ;
		TabIndex = 17, ;
		TabStop = .F., ;
		Top = 440, ;
		TEXT_SIMPLU1.ControlSource = "porec.email", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "E-mail", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_fax' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_fax", ;
		TabIndex = 16, ;
		TabStop = .F., ;
		Top = 412, ;
		TEXT_SIMPLU1.ControlSource = "porec.fax", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Fax", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_reg_comert' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_reg_comert", ;
		TabIndex = 8, ;
		TabStop = .F., ;
		Top = 216, ;
		TEXT_SIMPLU1.ControlSource = "porec.reg_comert", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Reg. comert", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_telefon' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_telefon", ;
		TabIndex = 13, ;
		TabStop = .F., ;
		Top = 328, ;
		TEXT_SIMPLU1.ControlSource = "porec.telefon", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Telefon", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_telefon2", ;
		TabIndex = 14, ;
		TabStop = .F., ;
		Top = 356, ;
		TEXT_SIMPLU1.ControlSource = "porec.telefon2", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Telefon 2", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_telefon3' AS clb_tx_simplu WITH ;
		Left = 466, ;
		Name = "Clb_telefon3", ;
		TabIndex = 15, ;
		TabStop = .F., ;
		Top = 384, ;
		TEXT_SIMPLU1.ControlSource = "porec.telefon3", ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.ReadOnly = .T., ;
		LB_SIMPLU1.Caption = "Telefon 3", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Ed_adresa' AS ed_tx_simplu WITH ;
		Height = 124, ;
		Left = 466, ;
		Name = "Ed_adresa", ;
		TabIndex = 6, ;
		TabStop = .F., ;
		Top = 65, ;
		Width = 290, ;
		_edbase1.ControlSource = "porec.adresa", ;
		_edbase1.Height = 118, ;
		_edbase1.Left = 58, ;
		_edbase1.Name = "_edbase1", ;
		_edbase1.ReadOnly = .T., ;
		_edbase1.Top = 2, ;
		_edbase1.Width = 228, ;
		_LBBASE1.Caption = "Adresa", ;
		_LBBASE1.Name = "_LBBASE1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'grd_firme' AS _grdrow WITH ;
		ColumnCount = 27, ;
		DeleteMark = .F., ;
		Height = 444, ;
		Left = 36, ;
		Name = "grd_firme", ;
		Panel = 1, ;
		RecordSource = "v_firme", ;
		TabIndex = 1, ;
		Top = 48, ;
		Width = 396, ;
		Column1.ControlSource = "firma", ;
		Column1.Name = "cFirma", ;
		Column1.Width = 155, ;
		Column2.ColumnOrder = 2, ;
		Column2.ControlSource = "schema", ;
		Column2.Name = "cSchema", ;
		Column2.Width = 120, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "cod_fiscal", ;
		Column3.Name = "cCod_Fiscal", ;
		Column3.Width = 120, ;
		Column4.ColumnOrder = 7, ;
		Column4.ControlSource = "cont_banca1", ;
		Column4.Name = "cCont_Banca1", ;
		Column4.Width = 161, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "banca1", ;
		Column5.Name = "cBanca1", ;
		Column5.Width = 121, ;
		Column6.ColumnOrder = 8, ;
		Column6.ControlSource = "banca2", ;
		Column6.Name = "cBanca2", ;
		Column6.Width = 131, ;
		Column7.ColumnOrder = 9, ;
		Column7.ControlSource = "cont_banca2", ;
		Column7.Name = "cCont_Banca2", ;
		Column7.Width = 149, ;
		Column8.ColumnOrder = 10, ;
		Column8.ControlSource = "banca3", ;
		Column8.Name = "cBanca3", ;
		Column8.Width = 148, ;
		Column9.ColumnOrder = 11, ;
		Column9.ControlSource = "cont_banca3", ;
		Column9.Name = "cCont_Banca3", ;
		Column9.Width = 141, ;
		Column10.ColumnOrder = 12, ;
		Column10.ControlSource = "adresa", ;
		Column10.Name = "cAdresa", ;
		Column10.Width = 174, ;
		Column11.ColumnOrder = 13, ;
		Column11.ControlSource = "cod_firma", ;
		Column11.Name = "cCod_Firma", ;
		Column11.Width = 98, ;
		Column12.ColumnOrder = 19, ;
		Column12.ControlSource = "persoana_juridica", ;
		Column12.Name = "cPersoanaJuridica", ;
		Column12.Sparse = .F., ;
		Column12.Width = 99, ;
		Column13.ColumnOrder = 20, ;
		Column13.ControlSource = "codang", ;
		Column13.Name = "cCodAng", ;
		Column13.Width = 130, ;
		Column14.ColumnOrder = 21, ;
		Column14.ControlSource = "nume", ;
		Column14.Name = "cNume", ;
		Column14.Width = 119, ;
		Column15.ColumnOrder = 22, ;
		Column15.ControlSource = "prenume", ;
		Column15.Name = "cPrenume", ;
		Column15.Width = 132, ;
		Column16.ColumnOrder = 24, ;
		Column16.ControlSource = "capital_soc_sub", ;
		Column16.Name = "cCapital_soc_sub", ;
		Column16.Width = 134, ;
		Column17.ColumnOrder = 25, ;
		Column17.ControlSource = "capital_soc_var", ;
		Column17.Name = "cCapital_soc_var", ;
		Column17.Width = 116, ;
		Column18.ColumnOrder = 27, ;
		Column18.ControlSource = "caen", ;
		Column18.Name = "cCaen", ;
		Column18.Width = 129, ;
		Column19.ColumnOrder = 26, ;
		Column19.ControlSource = "punct_luc", ;
		Column19.Name = "cPunctLucru", ;
		Column19.Width = 107, ;
		Column20.ColumnOrder = 23, ;
		Column20.ControlSource = "oasp", ;
		Column20.Name = "cOasp", ;
		Column20.Width = 112, ;
		Column21.ColumnOrder = 14, ;
		Column21.ControlSource = "telefon", ;
		Column21.Name = "cTelefon", ;
		Column21.Width = 103, ;
		Column22.ColumnOrder = 15, ;
		Column22.ControlSource = "telefon2", ;
		Column22.Name = "cTelefon2", ;
		Column22.Width = 115, ;
		Column23.ColumnOrder = 16, ;
		Column23.ControlSource = "telefon3", ;
		Column23.Name = "cTelefon3", ;
		Column23.Width = 125, ;
		Column24.ColumnOrder = 17, ;
		Column24.ControlSource = "fax", ;
		Column24.Name = "cFax", ;
		Column24.Width = 118, ;
		Column25.ColumnOrder = 18, ;
		Column25.ControlSource = "email", ;
		Column25.Name = "cEmail", ;
		Column25.Width = 122, ;
		Column26.ColumnOrder = 4, ;
		Column26.ControlSource = "reg_comert", ;
		Column26.Name = "cReg_Comert", ;
		Column26.Width = 147, ;
		Column27.ColumnOrder = 5, ;
		Column27.ControlSource = "sucursala", ;
		Column27.Name = "cSucursala", ;
		Column27.Width = 122
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

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

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

	ADD OBJECT 'grd_firme.cBanca1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Banca 1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

	ADD OBJECT 'grd_firme.cBanca3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Banca 3", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cCaen.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "CAEN", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cCapital_soc_sub.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Capital social subscris", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cCapital_soc_var.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Capital social varsat", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cCod_Firma.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod firma", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cCod_Fiscal.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod fiscal", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cCodAng.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cod ang.", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cCont_Banca1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont banca 1", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cCont_Banca2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont banca 2", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cCont_Banca3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont banca 3", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cEmail.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "E-mail", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cFax.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fax", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cFirma.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Firma", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cNume.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cOasp.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Oasp", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cPersoanaJuridica.Check1' AS checkbox WITH ;
		Alignment = 2, ;
		BackStyle = 0, ;
		Caption = "", ;
		Centered = .T., ;
		Height = 17, ;
		Left = 47, ;
		Name = "Check1", ;
		Top = 35, ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'grd_firme.cPersoanaJuridica.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Persoana juridica", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_firme.cPrenume.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Prenume", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cPunctLucru.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Punct de lucru", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cReg_Comert.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Reg. comert", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grd_firme.cSchema.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Schema", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

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

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

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

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

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

	ADD OBJECT 'grd_firme.cTelefon3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Telefon 3", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grd_firme.cTelefon3.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters pcFiltru
		Local lcFiltru
		lcFiltru=pcFiltru
		If Empty(lcFiltru)
			lcFiltru=pofirme.ca_baza1.cfiltru
		Endif
		save_grid_tag(Thisform.grd_firme)
		pofirme.ca_baza1.cfiltru=lcFiltru
		pofirme.ca_baza1.afisare()
		restore_grid_tag(Thisform.grd_firme)
		Thisform.grd_firme.SetFocus()
		
	ENDPROC

	PROCEDURE Destroy
		If Used('v_firme')
			Use In v_firme
		Endif
	ENDPROC

	PROCEDURE do_adauga
		gnButon=1
		Select v_firme
		Scatter Name loRec Blank
		Do Adauga_Modifica_Inregistrare With "firme",loRec,,"INSERT"
		If gnButon=1
			This.actualizeaza_grid1()
		Endif
	ENDPROC

	PROCEDURE do_modifica
		If Reccount('v_firme')>0
			gnButon=1
			Select v_firme
			Scatter Name loRec
			Do Adauga_Modifica_Inregistrare With "firme",loRec,loRec.Id_firma,"UPDATE"
			If gnButon=1
				This.actualizeaza_grid1()
			Endif
		Endif
	ENDPROC

	PROCEDURE do_refresh_date
		Thisform.ed_adresa.Refresh()
		Thisform.clb_banca1.Refresh()
		Thisform.clb_cod_firma.Refresh()
		Thisform.clb_cod_fiscal.Refresh()
		Thisform.clb_cont_banca1.Refresh()
		Thisform.clb_email.Refresh()
		Thisform.clb_fax.Refresh()
		Thisform.clb_reg_comert.Refresh()
		Thisform.clb_telefon.Refresh()
		Thisform.clb_telefon2.Refresh()
		Thisform.clb_telefon3.Refresh()
	ENDPROC

	PROCEDURE do_sterge
		If Reccount('v_firme')>0
			gnButon=1
			Select v_firme
			Scatter Name loRec
			Do STERGE_INREGISTRARE With "firme",loRec.Id_firma
			If gnButon=1
				This.actualizeaza_grid1()
			Endif
		Endif
	ENDPROC

	PROCEDURE grd_firme.AfterRowColChange
		Lparameters nColIndex
		If Inlist(This.RowColChange,0,1,3)
			Select v_firme
			Scatter Name poRec
			Thisform.do_refresh_date()
		Endif
		
	ENDPROC

ENDDEFINE

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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_cod_fiscal" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_reg_comert" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_banca1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_cont_banca1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_banca2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_cont_banca2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_banca3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_cont_banca3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_cod_firma" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_capsocvar" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_fax" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_email" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_caen" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_codang" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_nume" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_prenume" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_telefon" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_telefon2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_telefon3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_capsocsub" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_oasp" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ed_adresa" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_firme1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ed_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu7" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu8" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu10" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu11" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="tx_parinte" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="tx_cod_fiscal_p" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_schema" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_cautare2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_cautare3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_cautare4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_itm" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_localitate1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: alege_fj
		*m: alege_judet
		*m: alege_localitate
		*m: alege_nivel
		*m: alege_organizare
		*m: alege_proprietate
		*m: sucursala
		*p: id_judet
		*p: jcategorie
		*p: nid
		*p: orec
		*p: parenta
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		Desktop = .F.
		DoCreate = .T.
		Height = 689
		id_judet = 0
		jcategorie = 1
		Name = "frm_firme_nou"
		nid = 
		orec = 
		parenta = 0
		ScrollBars = 2
		Width = 701
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 702
		_SHAPE2.Height = 29
		_SHAPE2.Left = 630
		_SHAPE2.Name = "_SHAPE2"
		_SHAPE2.Top = 0
		_SHAPE2.Width = 72
		LB_TITLU_ALB_B121.Caption = "FIRMA"
		LB_TITLU_ALB_B121.FontBold = .T.
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 44
		BUT_TERMIN1.Left = 669
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 42
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 9
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 214
	*</PropValue>

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

	ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 6, ;
		Name = "Cb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 36, ;
		Width = 314, ;
		_cbbase1.BoundColumn = 2, ;
		_cbbase1.BoundTo = .T., ;
		_cbbase1.ColumnCount = 2, ;
		_cbbase1.ControlSource = "thisform.jcategorie", ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 78, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "Persoana juridica,1,Persoana fizica,2", ;
		_cbbase1.RowSourceType = 1, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 232, ;
		_lbbase1.Caption = "Categorie", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cb_tx_simplu2' AS cb_tx_simplu WITH ;
		Height = 29, ;
		Left = 353, ;
		Name = "Cb_tx_simplu2", ;
		TabIndex = 40, ;
		Top = 717, ;
		Width = 314, ;
		_cbbase1.BoundColumn = 2, ;
		_cbbase1.BoundTo = .T., ;
		_cbbase1.ColumnCount = 2, ;
		_cbbase1.Height = 23, ;
		_cbbase1.Left = 75, ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "Adaugare,1,Modificare,2,Corectie,3", ;
		_cbbase1.RowSourceType = 1, ;
		_cbbase1.Top = 3, ;
		_cbbase1.Width = 232, ;
		_lbbase1.Caption = "Operație", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_banca1' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_banca1", ;
		TabIndex = 17, ;
		Top = 484, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.banca1", ;
		TEXT_SIMPLU1.Left = 78, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 232, ;
		LB_SIMPLU1.Caption = "Banca 1", ;
		LB_SIMPLU1.Left = 5, ;
		LB_SIMPLU1.Name = "LB_SIMPLU1", ;
		LB_SIMPLU1.Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_banca2' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_banca2", ;
		TabIndex = 19, ;
		Top = 540, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.banca2", ;
		TEXT_SIMPLU1.Left = 78, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 232, ;
		LB_SIMPLU1.Caption = "Banca 2", ;
		LB_SIMPLU1.Left = 5, ;
		LB_SIMPLU1.Name = "LB_SIMPLU1", ;
		LB_SIMPLU1.Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_banca3' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_banca3", ;
		TabIndex = 21, ;
		Top = 596, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.banca3", ;
		TEXT_SIMPLU1.Left = 78, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 232, ;
		LB_SIMPLU1.Caption = "Banca 3", ;
		LB_SIMPLU1.Left = 5, ;
		LB_SIMPLU1.Name = "LB_SIMPLU1", ;
		LB_SIMPLU1.Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_caen' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_caen", ;
		TabIndex = 5, ;
		Top = 150, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.caen", ;
		TEXT_SIMPLU1.Left = 78, ;
		TEXT_SIMPLU1.MaxLength = 4, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 232, ;
		LB_SIMPLU1.Caption = "CAEN", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_capsocsub' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_capsocsub", ;
		TabIndex = 25, ;
		Top = 708, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.capital_soc_sub", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 103, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 207, ;
		LB_SIMPLU1.Caption = "Capital soc. sub.", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_capsocvar' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_capsocvar", ;
		TabIndex = 24, ;
		Top = 680, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.capital_soc_var", ;
		TEXT_SIMPLU1.Height = 23, ;
		TEXT_SIMPLU1.Left = 103, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		TEXT_SIMPLU1.Width = 207, ;
		LB_SIMPLU1.Caption = "Capital soc. văr.", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_cod_firma' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_cod_firma", ;
		TabIndex = 23, ;
		Top = 652, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.cod_firma", ;
		TEXT_SIMPLU1.Left = 78, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 232, ;
		LB_SIMPLU1.Caption = "Cod firmă", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_cod_fiscal' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 6, ;
		Name = "Clb_cod_fiscal", ;
		TabIndex = 4, ;
		Top = 120, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.cod_fiscal", ;
		Text_simplu1.Left = 78, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 232, ;
		Lb_simplu1.Caption = "Cod fiscal", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_codang' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_codang", ;
		TabIndex = 31, ;
		Top = 457, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.codang", ;
		TEXT_SIMPLU1.Left = 90, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 220, ;
		LB_SIMPLU1.Caption = "Cod angajat", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_cont_banca1' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_cont_banca1", ;
		TabIndex = 18, ;
		Top = 512, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.cont_banca1", ;
		TEXT_SIMPLU1.Left = 78, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 232, ;
		LB_SIMPLU1.Caption = "Cont banca 1", ;
		LB_SIMPLU1.Left = 4, ;
		LB_SIMPLU1.Name = "LB_SIMPLU1", ;
		LB_SIMPLU1.Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_cont_banca2' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_cont_banca2", ;
		TabIndex = 20, ;
		Top = 568, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.cont_banca2", ;
		TEXT_SIMPLU1.Left = 78, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 232, ;
		LB_SIMPLU1.Caption = "Cont banca 2", ;
		LB_SIMPLU1.Left = 5, ;
		LB_SIMPLU1.Name = "LB_SIMPLU1", ;
		LB_SIMPLU1.Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_cont_banca3' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_cont_banca3", ;
		TabIndex = 22, ;
		Top = 624, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.cont_banca3", ;
		TEXT_SIMPLU1.Left = 78, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 232, ;
		LB_SIMPLU1.Caption = "Cont banca 3", ;
		LB_SIMPLU1.Left = 5, ;
		LB_SIMPLU1.Name = "LB_SIMPLU1", ;
		LB_SIMPLU1.Top = 6
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_email' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_email", ;
		TabIndex = 38, ;
		Top = 653, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.email", ;
		TEXT_SIMPLU1.Left = 90, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 220, ;
		LB_SIMPLU1.Caption = "E-mail", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_fax' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_fax", ;
		TabIndex = 37, ;
		Top = 625, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.fax", ;
		TEXT_SIMPLU1.Left = 90, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 220, ;
		LB_SIMPLU1.Caption = "Fax", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_itm' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_itm", ;
		TabIndex = 26, ;
		Top = 310, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.indicativ", ;
		Text_simplu1.Left = 90, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "ITM", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_nume' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_nume", ;
		TabIndex = 32, ;
		Top = 485, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.nume", ;
		TEXT_SIMPLU1.Left = 90, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 220, ;
		LB_SIMPLU1.Caption = "Nume", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_oasp' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_oasp", ;
		TabIndex = 39, ;
		Top = 683, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.oasp", ;
		TEXT_SIMPLU1.Left = 90, ;
		TEXT_SIMPLU1.MaxLength = 3, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 220, ;
		LB_SIMPLU1.Caption = "OASP", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_prenume' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_prenume", ;
		TabIndex = 33, ;
		Top = 513, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.prenume", ;
		TEXT_SIMPLU1.Left = 90, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 220, ;
		LB_SIMPLU1.Caption = "Prenume", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_reg_comert' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_reg_comert", ;
		TabIndex = 16, ;
		Top = 456, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.reg_comert", ;
		TEXT_SIMPLU1.Left = 78, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 232, ;
		LB_SIMPLU1.Caption = "Reg. comerț", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_schema' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 6, ;
		Name = "Clb_schema", ;
		TabIndex = 41, ;
		Top = 747, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.schema", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 78, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 232, ;
		Lb_simplu1.Caption = "Schemă", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_telefon' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_telefon", ;
		TabIndex = 34, ;
		Top = 541, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.telefon", ;
		TEXT_SIMPLU1.Left = 90, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 220, ;
		LB_SIMPLU1.Caption = "Telefon", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_telefon2' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_telefon2", ;
		TabIndex = 35, ;
		Top = 569, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.telefon2", ;
		TEXT_SIMPLU1.Left = 90, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 220, ;
		LB_SIMPLU1.Caption = "Telefon 2", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_telefon3' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_telefon3", ;
		TabIndex = 36, ;
		Top = 597, ;
		Width = 314, ;
		TEXT_SIMPLU1.ControlSource = "porec.telefon3", ;
		TEXT_SIMPLU1.Left = 90, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Width = 220, ;
		LB_SIMPLU1.Caption = "Telefon 3", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 6, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 3, ;
		Top = 92, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.firma", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 78, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 232, ;
		Lb_simplu1.Caption = "Firma", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu10' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_tx_simplu10", ;
		TabIndex = 29, ;
		Top = 396, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.apart", ;
		Text_simplu1.Left = 90, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "Apartament", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu11' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_tx_simplu11", ;
		TabIndex = 30, ;
		Top = 429, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.cod_postal", ;
		Text_simplu1.Left = 90, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "Cod poștal", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_tx_simplu6", ;
		TabIndex = 14, ;
		Top = 394, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.strada", ;
		Text_simplu1.Left = 78, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 232, ;
		Lb_simplu1.Caption = "Stradă", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu7' AS clb_tx_simplu WITH ;
		Left = 6, ;
		Name = "Clb_tx_simplu7", ;
		TabIndex = 15, ;
		Top = 422, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.numar", ;
		Text_simplu1.Left = 78, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 232, ;
		Lb_simplu1.Caption = "Număr", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu8' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_tx_simplu8", ;
		TabIndex = 27, ;
		Top = 340, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.bloc", ;
		Text_simplu1.Left = 90, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "Bloc", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu9' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "Clb_tx_simplu9", ;
		TabIndex = 28, ;
		Top = 368, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.scara", ;
		Text_simplu1.Left = 90, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "Scară", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_cautare1' AS ct_clb_cautare WITH ;
		cconditie = empty(nvl(porec.forma_juridica,''))=.t., ;
		cprocedura = thisform.alege_fj, ;
		cvar_afisata = porec.forma_juridica, ;
		Left = 352, ;
		Name = "Ct_clb_cautare1", ;
		TabIndex = 6, ;
		Top = 35, ;
		img_cautare.Name = "img_cautare", ;
		clb_tx_cautare.Lb_simplu1.Caption = "Forma juridică", ;
		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
		clb_tx_cautare.Name = "clb_tx_cautare", ;
		clb_tx_cautare.Text_simplu1.Left = 90, ;
		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
		clb_tx_cautare.Text_simplu1.Width = 220
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_cautare2' AS ct_clb_cautare WITH ;
		cconditie = empty(nvl(porec.tip_societate,''))=.t., ;
		cprocedura = thisform.alege_nivel, ;
		cvar_afisata = porec.tip_societate, ;
		Left = 352, ;
		Name = "Ct_clb_cautare2", ;
		TabIndex = 7, ;
		Top = 63, ;
		img_cautare.Name = "img_cautare", ;
		clb_tx_cautare.Lb_simplu1.Caption = "Nivel", ;
		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
		clb_tx_cautare.Name = "clb_tx_cautare", ;
		clb_tx_cautare.Text_simplu1.Left = 90, ;
		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
		clb_tx_cautare.Text_simplu1.Width = 220
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_cautare3' AS ct_clb_cautare WITH ;
		cconditie = empty(nvl(porec.forma_organizare,''))=.t., ;
		cprocedura = thisform.alege_organizare, ;
		cvar_afisata = porec.forma_organizare, ;
		Height = 31, ;
		Left = 5, ;
		Name = "Ct_clb_cautare3", ;
		TabIndex = 2, ;
		Top = 63, ;
		Width = 343, ;
		img_cautare.Left = 319, ;
		img_cautare.Name = "img_cautare", ;
		img_cautare.Top = 5, ;
		clb_tx_cautare.Lb_simplu1.Caption = "Organizare", ;
		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
		clb_tx_cautare.Name = "clb_tx_cautare", ;
		clb_tx_cautare.Text_simplu1.Height = 23, ;
		clb_tx_cautare.Text_simplu1.Left = 78, ;
		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
		clb_tx_cautare.Text_simplu1.Top = 3, ;
		clb_tx_cautare.Text_simplu1.Width = 232
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_cautare4' AS ct_clb_cautare WITH ;
		cconditie = empty(nvl(porec.forma_proprietate,''))=.t., ;
		cprocedura = thisform.alege_proprietate, ;
		cvar_afisata = porec.forma_proprietate, ;
		Left = 352, ;
		Name = "Ct_clb_cautare4", ;
		TabIndex = 10, ;
		Top = 147, ;
		img_cautare.Name = "img_cautare", ;
		clb_tx_cautare.Lb_simplu1.Caption = "Proprietate", ;
		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
		clb_tx_cautare.Name = "clb_tx_cautare", ;
		clb_tx_cautare.Text_simplu1.Left = 90, ;
		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
		clb_tx_cautare.Text_simplu1.Width = 220
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_localitate1' AS ct_localitate WITH ;
		cdate = poRec, ;
		Left = 6, ;
		Name = "Ct_localitate1", ;
		TabIndex = 13, ;
		Top = 310, ;
		Cb_localitate_af.img_atentie.Name = "img_atentie", ;
		Cb_localitate_af.Name = "Cb_localitate_af", ;
		Cb_localitate_af._cbautofill1.Name = "_cbautofill1", ;
		Cb_localitate_af._lbbase1.Name = "_lbbase1", ;
		Cb_tara.Name = "Cb_tara", ;
		Cb_tara._cbbase1.Name = "_cbbase1", ;
		Cb_tara._lbbase1.Name = "_lbbase1", ;
		Cb_judet.Name = "Cb_judet", ;
		Cb_judet._cbbase1.Name = "_cbbase1", ;
		Cb_judet._lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\onomenclatoare.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_firme1' AS cus_odata_firme WITH ;
		Left = 311, ;
		Name = "Cus_odata_firme1", ;
		Top = 692
		*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />

	ADD OBJECT 'Ed_adresa' AS ed_tx_simplu WITH ;
		Height = 72, ;
		Left = 6, ;
		Name = "Ed_adresa", ;
		TabIndex = 12, ;
		Top = 225, ;
		Width = 605, ;
		_edbase1.ControlSource = "porec.adresa", ;
		_edbase1.Height = 66, ;
		_edbase1.Left = 102, ;
		_edbase1.Name = "_edbase1", ;
		_edbase1.Top = 2, ;
		_edbase1.Width = 499, ;
		_LBBASE1.Caption = "Adresă", ;
		_LBBASE1.Name = "_LBBASE1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Ed_tx_simplu1' AS ed_tx_simplu WITH ;
		Height = 40, ;
		Left = 6, ;
		Name = "Ed_tx_simplu1", ;
		TabIndex = 11, ;
		Top = 186, ;
		Width = 605, ;
		_EDBASE1.ControlSource = "porec.antet", ;
		_EDBASE1.Height = 36, ;
		_EDBASE1.Left = 102, ;
		_EDBASE1.Name = "_EDBASE1", ;
		_EDBASE1.Top = 2, ;
		_EDBASE1.Width = 500, ;
		_LBBASE1.Caption = "Antet", ;
		_LBBASE1.Name = "_LBBASE1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'tx_cod_fiscal_p' AS clb_tx_simplu WITH ;
		Left = 353, ;
		Name = "tx_cod_fiscal_p", ;
		TabIndex = 9, ;
		Top = 120, ;
		Visible = .F., ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.cod_fiscal_p", ;
		Text_simplu1.Left = 90, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "Cod fiscal", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'tx_parinte' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 353, ;
		Name = "tx_parinte", ;
		TabIndex = 8, ;
		Top = 92, ;
		Visible = .F., ;
		Width = 314, ;
		Text_simplu1.ControlSource = "porec.parinte", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 90, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "Părinte", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
	
	PROCEDURE alege_fj
		buton=2 
		lnidstaresoc = thisform.jcategorie 
		pcselect = [select id_forma_juridica,denumire from syn_nom_forme_juridice]
		pcFiltru = []
		pcFiltruOrig = [id_staresoc=?lnidstaresoc]
		pcschema = ['']
		pcorder = [ordine]
		pccoloane = [denumire]
		pcTitlu = [Categorie]
		pcTitluColoane = [Categorie]
		locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOrig)
		
		*!*		Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
		
		IF buton # 2
			porec.forma_juridica = locauta.denumire
			porec.id_forma_juridica = locauta.id_forma_juridica
		ENDIF
		
		
	ENDPROC

	PROCEDURE alege_judet
		buton=2
		pcselect = [select id_judet,judet,indicativ from syn_vnom_judete]
		pcfiltru = [inactiv=0]
		pcFiltruOriginal = [inactiv=0]
		pcschema = ['']
		pcorder = [judet]
		pccoloane = [judet,indicativ]
		pcTitlu = [Judete]
		pcTitluColoane = [Judet,Indicativ]
		locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOriginal)
		
		*!*		Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
		
		IF buton # 2
			porec.judet = locauta.judet
			thisform.id_judet = locauta.id_judet
			porec.indicativ=locauta.indicativ
			thisform.clb_itm.Refresh 
		ENDIF
		
		
		
		
	ENDPROC

	PROCEDURE alege_localitate
		IF EMPTY(thisform.id_judet)
			aMESSAGEBOX('Alegeti judetul!',48,"Atentie")
			porec.id_localitate=0
			RETURN 
		ENDIF 	
		lnid_jud = thisform.id_judet 	
		pcselect = [select id_loc,localitate from syn_vnom_localitati]
		pcFiltru = [inactiv = 0 and id_judet=?lnid_jud]
		pcFiltruOrig = pcFiltru
		pcschema = ['']
		pcorder = [localitate]
		pccoloane = [localitate]
		pcTitlu = [Localitate]
		pcTitluColoane = [Localitate]
		locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOrig)
		
		*!*		Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
		
		IF buton # 2
			porec.localitate = locauta.localitate
			porec.id_loc = locauta.id_loc
		ENDIF
		
		
		
		
	ENDPROC

	PROCEDURE alege_nivel
		buton=2 
		pcselect = [select id_tip_soc,denumire,parent from syn_nom_tip_societate]
		pcfiltru = [2=2]
		pcschema = ['']
		pcorder = [denumire]
		pccoloane = [denumire]
		pcTitlu = [Nivel infiintare]
		pcTitluColoane = [Nivel]
		locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane)
		
		*!*		Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
		
		IF buton # 2
			porec.tip_societate = locauta.denumire
			porec.id_tip_soc = locauta.id_tip_soc 
			thisform.ParentA = locauta.parent
			thisform.sucursala()
		ENDIF
		
		
	ENDPROC

	PROCEDURE alege_organizare
		IF EMPTY(NVL(porec.id_forma_juridica,''))
			aMESSAGEBOX("Completati forma juridica!",0+48,"Atentie")
			porec.id_forma_organizare=0
			RETURN 
		ENDIF 	
			
		buton=2	
		pcselect = [select id_forma_organizare,abreviere,denumire from syn_nom_forme_organizare]
		pcFiltru = [id_forma_juridica=?porec.id_forma_juridica]
		pcFiltruOriginal = pcFiltru
		pcschema = ['']
		pcorder = [denumire]
		pccoloane = [denumire,abreviere]
		pcTitlu = [Forma Organizare]
		pcTitluColoane = [Forma organizare,Abreviere]
		locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,[],.F.,pcFiltruOriginal)
		
		*!*		Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
		
		IF buton # 2
			porec.forma_organizare = locauta.denumire
			porec.id_forma_organizare = locauta.id_forma_organizare
		ENDIF
		
		
	ENDPROC

	PROCEDURE alege_proprietate
		buton=2 
		pcselect = [select id_forma_prop,forma_proprietate from syn_nom_forme_proprietate]
		pcfiltru = [2=2]
		pcschema = ['']
		pcorder = [forma_proprietate]
		pccoloane = [forma_proprietate]
		pcTitlu = [Forma proprietate]
		pcTitluColoane = [Forma proprietate]
		locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane)
		
		*!*		Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoana,tcNume_Proc,tl_AllInList,tcFiltruOriginal
		
		IF buton # 2
			porec.forma_proprietate = locauta.forma_proprietate 
			porec.id_forma_prop= locauta.id_forma_prop
		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.firma)
			Messagebox('Nu ati completat numele firmei!',0+48,"Atentie")
			Thisform.clb_firma.text_simplu1.SetFocus()
			PLRETURN=.F.
		Case Empty(porec.schema)
			Messagebox('Nu ati completat numele schemei!',0+48,"Atentie")
			Thisform.clb_schema.text_simplu1.SetFocus()
			PLRETURN=.F.
		OTHERWISE
		
			PLRETURN=Thisform.cus_odata_firme1.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_firme1.cactiune = tcActiune
		Do Case
		Case tcActiune="INSERT"
			Thisform.lb_titlu_alb_b121.Caption="ADAUGARE FIRMĂ"
		Case tcActiune="UPDATE"
			If Type("toRec.modificare_schema")<>"U"
				Thisform.clb_schema.text_simplu1.Enabled=Iif(toRec.modificare_schema==0,.F.,.T.)
			Endif
			Thisform.lb_titlu_alb_b121.Caption="MODIFICARE FIRMĂ"
			thisform.jcategorie=porec.persoana_juridica
		*!*	modificare	ROADEF v 2.1.2	
		*!*	lcSelect = [select id_judet,indicativ from vnom_localitati where id_loc=?porec.id_loc]
		*!*	lcCursor = [crsId_jud]
		*!*	lnSucces = goExecutor.oExecute(lcSelect,lcCursor)
		*!*	IF lnSucces < 0
		*!*		MESSAGEBOX(goExecutor.cEroare)
		*!*	ELSE 
		*!*		SELECT crsId_jud
		*!*		thisform.id_judet = id_judet
		*!*		USE IN crsId_jud
		*!*	ENDIF		
			Thisform.id_judet = toRec.id_judet
		*!*	modificare	ROADEF v 2.1.2	^
		ENDCASE
		*!*	modificare	ROADEF v 2.1.2
		This.ct_localitate1.initializeaza()
		*!*	modificare	ROADEF v 2.1.2	^
	ENDPROC

	PROCEDURE sucursala
		LOCAL lnP
		lnP=thisform.parenta
		thisform.tx_parinte.Visible=IIF(lnP=0,.f.,.t.)
		thisform.tx_cod_fiscal_p.Visible=IIF(lnP=0,.f.,.t.)
		thisform.tx_cod_fiscal_p.Refresh 
		thisform.tx_parinte.Refresh 
	ENDPROC

	PROCEDURE Cb_tx_simplu1._cbbase1.InteractiveChange
		porec.persoana_juridica=this.value
		thisform.jcategorie=this.Value
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_optiuni 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="grid_opt" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_opt.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_opt.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_opt.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_opt.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_opt.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_opt.Column3.Edit1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_opt.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_opt.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lb_nom_opt" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: cschema
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		cschema = CONTAFIN_ORACLE
		DoCreate = .T.
		Height = 351
		Name = "frm_optiuni"
		Width = 524
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 522
		_shape2.Height = 29
		_shape2.Left = 402
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 120
		Lb_titlu_alb_b121.Caption = "OPTIUNI"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 494
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

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

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

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

	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
		Left = 431, ;
		Name = "Cmd_cauta1", ;
		TabIndex = 2, ;
		Top = 52
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'grid_opt' AS _grid WITH ;
		Anchor = 15, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		Height = 264, ;
		Left = 5, ;
		Name = "grid_opt", ;
		Panel = 1, ;
		RecordSource = "v_optiuni", ;
		RowHeight = 23, ;
		Top = 84, ;
		Width = 513, ;
		Column1.ControlSource = "varname", ;
		Column1.Name = "Column1", ;
		Column1.Width = 241, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "vartype", ;
		Column2.Name = "Column2", ;
		Column2.Width = 70, ;
		Column3.ColumnOrder = 2, ;
		Column3.ControlSource = "varvalue", ;
		Column3.Name = "Column3", ;
		Column3.Sparse = .F., ;
		Column3.Width = 226, ;
		Column4.ControlSource = "vardesc", ;
		Column4.Name = "Column4", ;
		Column4.Width = 145
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="grid" />

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

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

	ADD OBJECT 'grid_opt.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 'grid_opt.Column3.Edit1' AS editbox WITH ;
		Height = 53, ;
		Left = 94, ;
		Name = "Edit1", ;
		Top = 23, ;
		Width = 100
		*< END OBJECT: BaseClass="editbox" />

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

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

	ADD OBJECT 'grid_opt.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 'lb_nom_opt' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 8, ;
		Name = "lb_nom_opt", ;
		TabIndex = 1, ;
		Top = 52, ;
		Width = 376, ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 57, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 313, ;
		Lb_simplu1.Caption = "Nume", ;
		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=popt.ca_baza1.cfiltru
		ENDIF
		save_grid_tag(thisform.grid_opt)
		popt.ca_baza1.cfiltru=lcFiltru
		popt.ca_baza1.afisare()
		restore_grid_tag(thisform.grid_opt)
		IF RECCOUNT('v_optiuni')>0
			thisform.grid_opt.SetFocus()
		ELSE
			thisform.lb_nom_opt.SetFocus()
		ENDIF
		
	ENDPROC

	PROCEDURE do_adauga
		SELECT v_optiuni
		SCATTER NAME loRec MEMO BLANK 
		PRIVATE lopt,poRec
		lopt=''
		poRec = loRec
		DO Adauga_Modifica_Inregistrare WITH "optiuni",loRec,,"INSERT",.t.,'lopt'
		lopt.cschema = this.cschema 
		lopt.show(1)
		RELEASE lopt,poRec
		this.actualizeaza_grid1()
	ENDPROC

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

	PROCEDURE do_modifica
		Select v_optiuni
		Scatter Name loRec MEMO 
		PRIVATE lopt,poRec
		lopt = ''
		poRec = loRec
		Do Adauga_Modifica_Inregistrare With "optiuni",loRec,loRec.Id_optiuni,"UPDATE",.t.,'lopt'
		lopt.cschema = this.cschema 
		lopt.show(1)
		RELEASE lopt,poRec
		thisform.actualizeaza_grid1()
	ENDPROC

	PROCEDURE do_sterge
		SELECT v_optiuni
		SCATTER NAME lorec MEMO 
		PRIVATE lopt 
		lopt = ''
		Do STERGE_INREGISTRARE With "optiuni",loRec.id_optiuni,.t.,'lopt'
		lopt.cschema = this.cschema 
		lopt.salvare(,loRec.id_optiuni)
		RELEASE lopt
		
		this.actualizeaza_grid1()
		
		
	ENDPROC

	PROCEDURE Init
		DODEFAULT()
		THIS.WindowState = 2 
	ENDPROC

	PROCEDURE Unload
		IF USED('v_optiuni')
			USE IN v_optiuni
		ENDIF
	ENDPROC

ENDDEFINE

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

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

	*<DefinedPropArrayMethod>
		*p: cschema
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 165
		Name = "frm_optiuni_nou"
		Width = 492
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 492
		_shape2.Height = 29
		_shape2.Left = 416
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 76
		Lb_titlu_alb_b121.Caption = "Optiuni"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 7
		BUT_TERMIN1.Left = 459
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 5
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

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

	ADD OBJECT 'Cb_tx_simplu1' AS cb_tx_simplu WITH ;
		Left = 15, ;
		Name = "Cb_tx_simplu1", ;
		TabIndex = 2, ;
		Top = 72, ;
		_cbbase1.ControlSource = "porec.vartype", ;
		_cbbase1.Name = "_cbbase1", ;
		_cbbase1.RowSource = "CHARACTER,CURRENCY,NUMERIC,DATETIME,DATE,LOGICAL", ;
		_cbbase1.RowSourceType = 1, ;
		_lbbase1.Caption = "Tip data", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 15, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 44, ;
		Text_simplu1.ControlSource = "porec.varname", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Nume", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 15, ;
		Name = "Clb_tx_simplu3", ;
		TabIndex = 3, ;
		Top = 100, ;
		Width = 465, ;
		Text_simplu1.ControlSource = "porec.varvalue", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 101, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 360, ;
		Lb_simplu1.Caption = "Valoare", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
		Left = 15, ;
		Name = "Clb_tx_simplu6", ;
		TabIndex = 4, ;
		Top = 128, ;
		Width = 465, ;
		Text_simplu1.ControlSource = "porec.vardesc", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Width = 360, ;
		Lb_simplu1.Caption = "Descriere", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_optiuni1' AS cus_odata_optiuni WITH ;
		Left = 144, ;
		Name = "Cus_odata_optiuni1", ;
		Top = 24
		*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />
	
	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.varname)
			Messagebox('Nu ati completat denumirea variabilei!',0+48,"Atentie")
			This.clb_tx_simplu1.SetFocus()
			plreturn=.F.
		
		Case Empty(porec.vartype)
			Messagebox('Nu ati completat tipul de data!',0+48,"Atentie")
			This.CB_tx_simplu1.SetFocus()
			plreturn=.F.
		
		*!*	Case Empty(porec.varvalue)
		*!*		Messagebox('Nu ati completat valoarea variabilei!',0+48,"Atentie")
		*!*		This.clb_tx_simplu3.SetFocus()
		*!*		plreturn=.F.
		
		OTHERWISE
			this.cus_odata_optiuni1.cschema=this.cschema 
			PLRETURN=This.cus_odata_optiuni1.salvare(This.OREC,This.NID)
		ENDCASE 
		
		Return PLRETURN
		
	ENDPROC

	PROCEDURE Init
		LPARAMETERS toRec, tnId, tcActiune
		
		DODEFAULT()
		toRec.varvalue = NVL(toRec.varvalue, '')
		poRec.varvalue = NVL(toRec.varvalue, '')
		
		toRec.vardesc = NVL(toRec.vardesc, '')
		poRec.vardesc = NVL(toRec.vardesc, '')
		
		this.orec= toRec
		this.nid = tnId
		this.cus_odata_optiuni1.cactiune = tcActiune
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_plafon_casa 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="grid_plafoane" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grid_plafoane.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ctabel
		*p: ogencursor
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 2
		cgridsortlist = grid_plafoane
		ctabel = 
		DoCreate = .T.
		Height = 340
		Name = "frm_plafon_casa"
		ogencursor = 
		Width = 492
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 504
		_shape2.Height = 29
		_shape2.Left = 428
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 63
		Lb_titlu_alb_b121.Caption = "Plafon casa"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 461
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 452
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 42
	*</PropValue>

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

	ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_luna_intre1", ;
		Top = 39, ;
		Width = 229, ;
		tx_n1.Left = 68, ;
		tx_n1.Name = "tx_n1", ;
		tx_n1.Top = 3, ;
		LB_SIMPLU1.Caption = "Perioada", ;
		LB_SIMPLU1.Name = "LB_SIMPLU1", ;
		tx_n2.Left = 148, ;
		tx_n2.Name = "tx_n2", ;
		tx_n2.Top = 3
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
		Height = 27, ;
		Left = 244, ;
		Name = "Cmd_cauta1", ;
		TabIndex = 2, ;
		Top = 40, ;
		Width = 80
		*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'grid_plafoane' AS _grid WITH ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		HeaderHeight = 23, ;
		Height = 258, ;
		Left = 6, ;
		Name = "grid_plafoane", ;
		Panel = 1, ;
		RecordSource = "v_plafon", ;
		RowHeight = 20, ;
		Top = 74, ;
		Width = 479, ;
		Column1.ControlSource = "plafon_casa", ;
		Column1.InputMask = (get_mask(12,gnPa)), ;
		Column1.Name = "Column1", ;
		Column1.Width = 114, ;
		Column2.ColumnOrder = 3, ;
		Column2.ControlSource = "plafon_furnizori", ;
		Column2.InputMask = (get_mask(12,gnPa)), ;
		Column2.Name = "Column2", ;
		Column2.Width = 110, ;
		Column3.ColumnOrder = 4, ;
		Column3.ControlSource = "luna", ;
		Column3.Name = "Column3", ;
		Column3.Width = 43, ;
		Column4.ColumnOrder = 5, ;
		Column4.ControlSource = "anul", ;
		Column4.Name = "Column4", ;
		Column4.Width = 64, ;
		Column5.ColumnOrder = 2, ;
		Column5.ControlSource = "plafon_plati", ;
		Column5.InputMask = (get_mask(12,gnPa)), ;
		Column5.Name = "Column5", ;
		Column5.Width = 112
		*< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="grid" />

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

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

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

	ADD OBJECT 'grid_plafoane.Column3.Text1' AS textbox WITH ;
		Height = 23, ;
		Left = 31, ;
		Name = "Text1", ;
		Top = 35, ;
		Width = 100
		*< END OBJECT: BaseClass="textbox" />

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

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

	ADD OBJECT 'grid_plafoane.Column5.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS pcFiltru
		LOCAL lcFiltru
		lcFiltru=pcFiltru
		pobj = this.ogencursor 
		IF EMPTY(lcFiltru)
			lcFiltru=pobj.ca_baza1.cfiltru
		ENDIF
		save_grid_tag(thisform.grid_plafoane)
		pobj.ca_baza1.cfiltru=lcFiltru
		pobj.ca_baza1.afisare()
		restore_grid_tag(thisform.grid_plafoane)
		thisform.grid_plafoane.SetFocus 
		
	ENDPROC

	PROCEDURE do_cauta
		Local lcFiltru
		lcFiltru=[]
		
		lcLunaMin =SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),1,2)
		lcAnMin = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n1.Value),3)
		
		lcLunaMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),1,2)
		lcAnMax = SUBSTR(ALLTRIM(this.clb_luna_intre1.tx_n2.Value),3)
		
		IF EMPTY(lcLunaMin)
			lcLunaMin = '1'
		ENDIF 
		IF EMPTY(lcAnMin)
			lcAnMin = STR(gnAn)
		ENDIF 
		IF EMPTY(lcLunaMax)
			lcLunaMax = STR(gnLuna)
		ENDIF 
		IF EMPTY(lcAnMax)
			lcAnMax = STR(gnAn)
		ENDIF 
		
		lcfiltru = [luna + 12*anul between ] + lcLunaMin + [ + 12*] + lcAnMin + [ and ] + lcLunaMax + [ + 12*] + lcAnMax
		
		This.MousePointer= 11
		This.LockScreen=.T.
		Thisform.actualizeaza_grid1(lcFiltru)
		IF RECCOUNT()=0
			MESSAGEBOX("Cautarea nu a intors rezultate!",0+64,"Info cautare")
		ENDIF
		This.LockScreen=.F.
		This.MousePointer= 0
	ENDPROC

	PROCEDURE do_modifica
		lcCrs = this.ctabel 
		
		SELECT (lcCrs)
		Scatter Name loRec
		PRIVATE lcot,poRec
		lcot = ''
		poRec = loRec
		Do Adauga_Modifica_Inregistrare With "plafon",loRec,loRec.Id_calendar,"UPDATE",.t.,'lcot'
		*lcot.cschema = this.cschema 
		lcot.show(1)
		RELEASE lcot,poRec
		thisform.actualizeaza_grid1()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_plafon_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="Clb_tx_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_plafon_casa1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: cschema
		*p: nid
		*p: orec
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 2
		cschema = 
		DoCreate = .T.
		Height = 198
		Name = "frm_plafon_nou"
		nid = 
		orec = 
		Width = 316
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 320
		_shape2.Left = 242
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		Lb_titlu_alb_b121.Caption = "Plafoane casa"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 6
		BUT_TERMIN1.Left = 284
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
		But_renunt1.Left = 255
		But_renunt1.Name = "But_renunt1"
		But_renunt1.TabIndex = 5
		But_renunt1.Top = 1
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 13, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 49, ;
		Text_simplu1.ControlSource = "porec.plafon_casa", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.InputMask = (get_mask(12,gnPa)), ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Plafon casa", ;
		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 = 13, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 2, ;
		Top = 77, ;
		Text_simplu1.ControlSource = "porec.plafon_plati", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.InputMask = (get_mask(12,gnPa)), ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Plafon plati", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
		Left = 13, ;
		Name = "Clb_tx_simplu3", ;
		TabIndex = 7, ;
		TabStop = .F., ;
		Top = 133, ;
		Text_simplu1.ControlSource = "porec.luna", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "Luna", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu4' AS clb_tx_simplu WITH ;
		Left = 13, ;
		Name = "Clb_tx_simplu4", ;
		TabIndex = 3, ;
		Top = 105, ;
		Text_simplu1.ControlSource = "porec.plafon_furnizori", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.InputMask = (get_mask(12,gnPa)), ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Plafon furnizori", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
		Left = 13, ;
		Name = "Clb_tx_simplu6", ;
		TabIndex = 8, ;
		TabStop = .F., ;
		Top = 161, ;
		Text_simplu1.ControlSource = "porec.anul", ;
		Text_simplu1.Format = "!K", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "An", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_plafon_casa1' AS cus_odata_plafon_casa WITH ;
		Left = 65, ;
		Name = "Cus_odata_plafon_casa1", ;
		Top = 33
		*< END OBJECT: ClassLib="ooptiuni.vcx" BaseClass="custom" />
	
	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 	
		
		this.cus_odata_plafon_casa1.cschema=this.cschema 
		PLRETURN=This.cus_odata_plafon_casa1.salvare(This.OREC,This.NID)
		
		Return PLRETURN
		
	ENDPROC

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

ENDDEFINE