*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oavize.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_date_aviz 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_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_serie_act" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Ct_clb_cautare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_cauta_altele
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Height = 146
		Name = "frm_date_aviz"
		Width = 375
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 312
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 65
		Lb_titlu_alb_b121.Caption = "Date aviz"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 344
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 132
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 12
		But_renunt1.Left = 315
		But_renunt1.Name = "But_renunt1"
		But_renunt1.Top = 1
	*</PropValue>

	ADD OBJECT 'Clb_serie_act' AS clb_serie_act WITH ;
		cvariabila = serie_act, ;
		cvariabiladoc = nract, ;
		Left = 12, ;
		Name = "Clb_serie_act", ;
		nid_tipdoc = 6, ;
		pcobj = poDate, ;
		Top = 41, ;
		Width = 314, ;
		Text_simplu1.Name = "Text_simplu1", ;
		_cbbase1.Name = "_cbbase1", ;
		_lbbase1.Name = "_lbbase1"
		*< END OBJECT: ClassLib="..\comun\clase\serii_numere.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 12, ;
		Name = "Clb_tx_simplu2", ;
		Top = 69, ;
		Width = 314, ;
		Text_simplu1.ControlSource = "poDate.nract", ;
		Text_simplu1.InputMask = (get_mask(14,0)), ;
		Text_simplu1.Left = 125, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.Top = 3, ;
		Lb_simplu1.Caption = "Numarul avizului", ;
		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(poDate.listaid,'')), ;
		cprocedura = thisform.do_cauta_altele, ;
		cvar_afisata = poDate.descriere, ;
		Left = 12, ;
		Name = "Ct_clb_cautare1", ;
		Top = 103, ;
		img_cautare.Name = "img_cautare", ;
		clb_tx_cautare.Lb_simplu1.Caption = "Gestiune destinatie", ;
		clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
		clb_tx_cautare.Name = "clb_tx_cautare", ;
		clb_tx_cautare.Text_simplu1.Name = "Text_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
	
	PROCEDURE do_cauta_altele
		Local loCauta
		loCauta = caut_gestiune_dest(poDate.id_client)
		If !Isnull(loCauta) And !Empty(Nvl(loCauta.id_gestiune,0))
			poDate.listaid = loCauta.id_gestiune
			poDate.descriere = loCauta.nume_gestiune
		
			poDateGestiuneDest.id_gestiune = loCauta.id_gestiune
			poDateGestiuneDest.id_tipgest = loCauta.id_tipgest
			poDateGestiuneDest.Cont = Nvl(loCauta.Cont,[XXXX])
			poDateGestiuneDest.acont = Nvl(loCauta.acont,[XXXX])
		
			This.ct_clb_cautare1.Refresh()
		Endif
		
	ENDPROC

	PROCEDURE inainte_de_do_termin
		Local llReturn
		Store .T. To llReturn
		Do Case
		Case Empty(Nvl(poDate.nract,0))
			amessagebox("Numarul avizului trebuie sa fie diferit de 0!",48,"Atentie")
			llReturn = .F.
			Thisform.clb_tx_simplu2.SetFocus()
		Case Empty(Nvl(poDate.listaid,''))
			amessagebox("Nu ati ales gestiunea destinatie!",48,"Atentie")
			llReturn = .F.
			Thisform.ct_clb_cautare1.SetFocus()
		Otherwise
			llReturn = .T.
		Endcase
		Return llReturn
		
	ENDPROC

	PROCEDURE Init
		DoDefault()
		With Thisform
			If Inlist(poDate.rezultat_serii,1,3)
				Thisform.clb_serie_act.do_initializeaza(poDate.rezultat_serii)
				Thisform.clb_serie_act.SetFocus()
			Else
				lnHeight = lnHeight - Thisform.clb_serie_act.Height
				laPozitii(Thisform.clb_serie_act.TabIndex,2)=1
				Thisform.RemoveObject('clb_serie_act')
				Thisform.clb_nract.SetFocus()
			Endif
		Endwith
	ENDPROC

ENDDEFINE