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

	*<PropValue>
		Name = "cus_odata_masini"
	*</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))
		*!*		lcnom = gcS + ".dev_masiniclienti"
		*!*		lcamp = "id_masiniclient"
		*!*		lclook = gcS + ".dev_vordl"
		*!*		lclookid = "id_masiniclient"
		Endif
		
		If Inlist(lcActiune, "UPDATE",'INSERT')
			lcId_partener = Nvl(Alltrim(Str(toRec.id_part)),"")
			lcId_model_masina = Iif(Empty(Nvl(toRec.id_model_masina,0)) and Empty(Nvl(toRec.model_masina,[])),[NULL],;
				Nvl(Alltrim(Str(toRec.id_model_masina)),""))
			lcnrinmat = Nvl(Strtran(Alltrim(Upper(toRec.nrinmat)),['],['']),"")
			lcculoare = Nvl(Strtran(Alltrim(Upper(toRec.culoare)),['],['']),"")
			lcseries = Nvl(Strtran(Alltrim(Upper(toRec.series)),['],['']),"")
			lcseriem = Nvl(Strtran(Alltrim(Upper(toRec.seriem)),['],['']),"")
			lckmint = Nvl(Alltrim(Str(toRec.kmint)),"")
			lcdataachi = Nvl(Alltrim(Dtos(toRec.dataachi)),"")
			lcserief = Nvl(Strtran(Alltrim(Upper(toRec.serief)),['],['']),"")
			lcId_furnizor = Nvl(Alltrim(Str(toRec.id_furnizor)),"")
			lcinactiv = Nvl(Alltrim(Str(toRec.inactiv)),"")
		Endif
		
		
		Do Case
		Case lcActiune = "INSERT"
			lcSql = [begin pack_comenzi.adauga_masina(] + ;
				lcId_model_masina + [,'] + lcnrinmat +[',']+lcculoare + [',]+ALLTRIM(STR(gnIdUtil))+[); end;]
		
		Case lcActiune = "UPDATE"
			lcSql = [begin pack_comenzi.modifica_masina(]+lcId+[,] + lcId_model_masina +;
				[,']+ lcnrinmat + [','] + lcculoare + [',]+ALLTRIM(STR(gnIdUtil))+[); end;]
		
		Case lcActiune = "DELETE"
			lcSql = [begin pack_comenzi.sterge_masina(]+lcId+[,]+ALLTRIM(STR(gnIdUtil))+[); end;]
		*!*		lcSql = [begin nomdelproc('] + lcnom + [','] + lcamp + [',] + lcId + [,'] + lclook + [','] + lclookid + ['); end;]
		Endcase
		This.csql = lcSql
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_masini AS _frmbase OF "_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_nou1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cMarca.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cMarca.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cModel.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cModel.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cNrinmat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cNrinmat.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cCuloare.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cCuloare.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cInactiv.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="gmasini.cInactiv.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_marca" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_model" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ck_nrinmat" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_cauta1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cmd_reset1" UniqueID="" Timestamp="" />

	*<PropValue>
		cgridsortlist = gmasini
		DoCreate = .T.
		Height = 590
		Name = "frm_masini"
		Width = 472
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 470
		_shape1.ZOrderSet = 2
		_shape2.Anchor = 8
		_shape2.Height = 29
		_shape2.Left = 342
		_shape2.Name = "_shape2"
		_shape2.Top = -1
		_shape2.Width = 129
		_shape2.ZOrderSet = 3
		Lb_titlu_alb_b121.Caption = "Mașini"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 18
		Lb_titlu_alb_b121.ZOrderSet = 4
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 439
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 16
		BUT_TERMIN1.Top = 0
		BUT_TERMIN1.ZOrderSet = 8
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

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

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

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

	ADD OBJECT 'Ck_marca' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		camp_nume = marca_masina, ;
		Caption = "Marca mașinii", ;
		Left = 24, ;
		Name = "Ck_marca", ;
		TabIndex = 8, ;
		Top = 36, ;
		Width = 77, ;
		ZOrderSet = 9
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_model' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		camp_nume = model_masina, ;
		Caption = "Model", ;
		Left = 24, ;
		Name = "Ck_model", ;
		TabIndex = 9, ;
		Top = 51, ;
		Width = 44, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Ck_nrinmat' AS ck_filtru_text WITH ;
		Alignment = 0, ;
		camp_nume = nrinmat, ;
		Caption = "Nr. înmatriculare", ;
		Left = 24, ;
		Name = "Ck_nrinmat", ;
		TabIndex = 10, ;
		Top = 65, ;
		Width = 87, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Cmd_cauta1' AS cmd_cauta WITH ;
		Anchor = 8, ;
		Left = 252, ;
		Name = "Cmd_cauta1", ;
		TabIndex = 2, ;
		Top = 45, ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Cmd_reset1' AS cmd_reset WITH ;
		Anchor = 8, ;
		Left = 364, ;
		Name = "Cmd_reset1", ;
		TabIndex = 17, ;
		Top = 45, ;
		ZOrderSet = 15
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'gmasini' AS _grdrow WITH ;
		Anchor = 15, ;
		ColumnCount = 5, ;
		DeleteMark = .F., ;
		FontName = "Arial Narrow", ;
		Height = 480, ;
		Left = 15, ;
		Name = "gmasini", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "crsmasini", ;
		TabIndex = 4, ;
		Top = 96, ;
		Width = 441, ;
		ZOrderSet = 7, ;
		Column1.ControlSource = "marca_masina", ;
		Column1.FontName = "Arial Narrow", ;
		Column1.Name = "cMarca", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 119, ;
		Column2.ControlSource = "model_masina", ;
		Column2.FontName = "Arial Narrow", ;
		Column2.Name = "cModel", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 93, ;
		Column3.ControlSource = "nrinmat", ;
		Column3.FontName = "Arial Narrow", ;
		Column3.Name = "cNrinmat", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 76, ;
		Column4.ControlSource = "culoare", ;
		Column4.FontName = "Arial Narrow", ;
		Column4.Name = "cCuloare", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 73, ;
		Column5.ControlSource = "inactiv", ;
		Column5.FontName = "Arial Narrow", ;
		Column5.Name = "cInactiv", ;
		Column5.ReadOnly = .T., ;
		Column5.Sparse = .F., ;
		Column5.Visible = .T., ;
		Column5.Width = 36
		*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'gmasini.cCuloare.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Culoare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'gmasini.cInactiv.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		FontName = "Arial Narrow", ;
		Height = 17, ;
		Left = 30, ;
		Name = "Check1", ;
		ReadOnly = .T., ;
		Top = 40, ;
		Visible = .T., ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

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

	ADD OBJECT 'gmasini.cMarca.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Marca masinii", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'gmasini.cModel.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Model", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'gmasini.cNrinmat.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr. inmatriculare", ;
		FontName = "Arial Narrow", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'gmasini.cNrinmat.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial Narrow", ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE actualizeaza_grid1
		Lparameters tcFiltru
		Local lcFiltru
		lcFiltru = tcFiltru
		If Empty(lcFiltru)
			lcFiltru = pomasini.ca_baza1.cfiltru
		Endif
		save_grid_comment(This.gmasini)
		pomasini.ca_baza1.cfiltru = lcFiltru
		pomasini.ca_baza1.afisare()
		restore_grid_comment(This.gmasini)
	ENDPROC

	PROCEDURE do_adauga
		Private pniesire
		pniesire=0
		
		Select crsmasini
		Scatter Name loRec Blank
		loRec.dataachi={}
		Do Adauga_Modifica_Inregistrare With "masini",loRec,,"INSERT",,"addmasclie"
		If pniesire=1
			This.actualizeaza_grid1()
		Endif
		Thisform.gmasini.SetFocus()
	ENDPROC

	PROCEDURE do_cauta
		Local lcFiltru
		Store [] To lcFiltru
		
		If Thisform.ck_marca.Value = 1
			lcFiltru = lcFiltru + Thisform.ck_marca.filtru
		Endif
		
		If Thisform.ck_model.Value = 1
			lcFiltru = lcFiltru + Thisform.ck_model.filtru
		Endif
		
		If Thisform.ck_nrinmat.Value = 1
			lcFiltru = lcFiltru + Thisform.ck_nrinmat.filtru
		Endif
		
		If !Empty(lcFiltru)
			lcFiltru=Substr(lcFiltru,6)
		Else
			lcFiltru=[2=2]
		Endif
		
		Thisform.actualizeaza_grid1(lcFiltru)
		
		If Reccount('crsmasini')=0
			amessagebox("Cautarea nu a intors rezultate!",64,"Info cautare")
			Thisform.ck_marca.SetFocus()
		Else
			Thisform.gmasini.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_modifica
		If Reccount('crsmasini')>0
			Private pniesire
			pniesire=0
		
			Select crsmasini
			Scatter Name loRec
			Do Adauga_Modifica_Inregistrare With "masini",loRec,loRec.id_masina,"UPDATE",,"modmasclie"
			If pniesire=1
				This.actualizeaza_grid1()
			Endif
			Thisform.gmasini.SetFocus()
		Else
			amessagebox("Nu puteti face modificari,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie")
			Thisform.ck_marca.SetFocus()
		Endif
		
	ENDPROC

	PROCEDURE do_reset
		Thisform.ck_marca.Value = 0
		Thisform.ck_model.Value = 0
		Thisform.ck_nrinmat.Value = 0
		*!*	modificare ROAFACTURARE v 2.0.71
		*!*	Thisform.ck_seriem.Value = 0
		*!*	Thisform.ck_series.Value = 0
		*!*	modificare ROAFACTURARE v 2.0.71	^
		Thisform.Refresh
	ENDPROC

	PROCEDURE do_sterge
		If Reccount('crsmasini')>0
			Select crsmasini
			Scatter Name loRec
			Do STERGE_INREGISTRARE With "masini",loRec.id_masina
			This.actualizeaza_grid1()
		Else
			amessagebox("Nu puteti sterge,deoarece in aceasta selectie nu exista inregistrari!",0+48,"Atentie")
		Endif
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_masini_nou AS _frmbase OF "_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="clb_nrinmat" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cb_model" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="clb_culoare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_checkbox1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Cus_odata_masini1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_marca" UniqueID="" Timestamp="" />

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

	*<PropValue>
		DoCreate = .T.
		Height = 193
		Name = "frm_masini_nou"
		Width = 374
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 312
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 64
		Lb_titlu_alb_b121.Caption = "MAȘINA"
		Lb_titlu_alb_b121.FontBold = .T.
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 8
		BUT_TERMIN1.Left = 344
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 6
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

	ADD OBJECT '_checkbox1' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Inactiv", ;
		ControlSource = "porec.inactiv", ;
		Left = 36, ;
		Name = "_checkbox1", ;
		TabIndex = 5, ;
		Top = 168
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />

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

	ADD OBJECT 'cb_model' AS cb_tx_simplu WITH ;
		Left = 29, ;
		Name = "cb_model", ;
		TabIndex = 2, ;
		Top = 70, ;
		_cbbase1.ControlSource = "porec.model_masina", ;
		_cbbase1.Name = "_cbbase1", ;
		_lbbase1.Caption = "Model:", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'clb_culoare' AS clb_tx_simplu WITH ;
		Left = 29, ;
		Name = "clb_culoare", ;
		TabIndex = 4, ;
		Top = 126, ;
		Text_simplu1.ControlSource = "porec.culoare", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Culoare:", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'clb_nrinmat' AS clb_tx_simplu WITH ;
		Left = 29, ;
		Name = "clb_nrinmat", ;
		TabIndex = 3, ;
		Top = 98, ;
		Text_simplu1.ControlSource = "porec.nrinmat", ;
		Text_simplu1.MaxLength = 25, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Nr. înmatriculare:", ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Ct_clb_marca' AS ct_clb_cautare WITH ;
		cconditie = Empty(NVL(porec.id_marca_masina,0)), ;
		cprocedura = Thisform.do_cauta_marca, ;
		cvar_afisata = porec.marca_masina, ;
		Height = 31, ;
		Left = 28, ;
		Name = "Ct_clb_marca", ;
		TabIndex = 1, ;
		Top = 41, ;
		Width = 331, ;
		IMG_CAUTARE.Left = 309, ;
		IMG_CAUTARE.Name = "IMG_CAUTARE", ;
		IMG_CAUTARE.Top = 5, ;
		CLB_TX_CAUTARE.Height = 29, ;
		CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Marca", ;
		CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ;
		CLB_TX_CAUTARE.Left = 1, ;
		CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ;
		CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 102, ;
		CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ;
		CLB_TX_CAUTARE.Top = 1, ;
		CLB_TX_CAUTARE.Width = 290
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Cus_odata_masini1' AS cus_odata_masini WITH ;
		Left = 6, ;
		Name = "Cus_odata_masini1", ;
		Top = 148
		*< END OBJECT: ClassLib="onomenclatoare2.vcx" BaseClass="custom" />
	
	PROCEDURE do_cauta_marca
		locauta=caut_marca_masina()
		If !Isnull(locauta)
			porec.marca_masina = locauta.marca_masina
			porec.id_marca_masina = locauta.id_marca_masina
		
			update_modele_masini(porec.id_marca_masina)
			Thisform.cb_model._CBBASE1.RowSource=[crsmodelemasini.model_masina,id_model_masina]
			Thisform.cb_model._CBBASE1.RowSourceType= 6
		
			Thisform.ct_clb_marca.Refresh()
			Thisform.cb_model._CBBASE1.Requery
			Thisform.cb_model._CBBASE1.Refresh()
		Endif
		
		*!*		Select v_masini
		*!*		Set Filter To id_marca = porec.id_marca
		*!*		Locate For Alltrim(masina)=pcmasina
		*!*		porec.id_masina=id_masina
		*!*		Thisform.cb_tx_simplu2._CBBASE1.SetFocus()
		*!*		Thisform.clb_tx_simplu1.SetFocus()
		
	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
		*!*	modificare	ROAFACTURARE v 2.0.3
		*!*	Case Empty(porec.marca_masina)
		*!*		amessagebox('Nu ati completat marca masinii!',0+48,"Atentie")
		*!*		Thisform.ct_clb_marca.SetFocus()
		*!*		PLRETURN=.F.
		*!*	Case Empty(porec.model_masina)
		*!*		amessagebox('Nu ati completat modelul masinii!',0+48,"Atentie")
		*!*		Thisform.cb_model.SetFocus()
		*!*		PLRETURN=.F.
		*!*	modificare	ROAFACTURARE v 2.0.3	^
		Case Empty(porec.nrinmat)
			amessagebox('Nu ati completat numarul de inmatriculare al masinii!',0+48,"Atentie")
			Thisform.clb_nrinmat.SetFocus()
			PLRETURN=.F.
		
		Otherwise
			PLRETURN=This.cus_odata_masini1.salvare(This.OREC,This.NID)
			If !PLRETURN
				Thisform.clb_nrinmat.SetFocus()
			Endif
		Endcase
		Return PLRETURN
	ENDPROC

	PROCEDURE Init
		Lparameters toRec, tnId, tcActiune
		
		DoDefault()
		
		This.orec= toRec
		This.nid = tnId
		This.cus_odata_masini1.cactiune = tcActiune
		If tcActiune='UPDATE'
			update_modele_masini(porec.id_marca_masina)
			Thisform.cb_model._CBBASE1.RowSource=[crsmodelemasini.model_masina,id_model_masina]
			Thisform.cb_model._CBBASE1.RowSourceType= 6
			Select crsmodelemasini
			Locate For model_masina=porec.model_masina
			Thisform.cb_model._CBBASE1.Requery
			Thisform.cb_model._CBBASE1.Refresh()
		Endif
	ENDPROC

	PROCEDURE cb_model._cbbase1.InteractiveChange
		porec.id_model_masina = crsmodelemasini.id_model_masina
	ENDPROC

ENDDEFINE