*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_comun.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_cere_cont AS formtermin 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="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboCont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblAcont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: go
		*p: calias
		*p: ocont
	*</DefinedPropArrayMethod>

	*<PropValue>
		calias = 
		DoCreate = .T.
		Height = 122
		Name = "frm_cere_cont"
		ocont = .NULL.
		ScrollBars = 0
		Width = 205
		_shape1.Name = "_shape1"
		_shape2.Name = "_shape2"
		Lb_titlu_alb_b121.Caption = "Selectati contul"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 174
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

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

	ADD OBJECT 'cboCont' AS combobox WITH ;
		ColumnCount = 2, ;
		ColumnLines = .F., ;
		ColumnWidths = "40,40", ;
		Height = 24, ;
		Left = 12, ;
		Name = "cboCont", ;
		RowSourceType = 6, ;
		Style = 2, ;
		TabIndex = 1, ;
		Top = 60, ;
		Width = 84, ;
		ZOrderSet = 4
		*< END OBJECT: BaseClass="combobox" />

	ADD OBJECT 'Label9' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Contul este considerat de:", ;
		FontBold = .F., ;
		Height = 17, ;
		Left = 10, ;
		Name = "Label9", ;
		TabIndex = 14, ;
		Top = 129, ;
		Width = 146, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblAcont' AS label WITH ;
		BackStyle = 0, ;
		Caption = " ", ;
		FontItalic = .T., ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Height = 18, ;
		Left = 146, ;
		Name = "lblAcont", ;
		TabIndex = 5, ;
		Top = 65, ;
		Width = 40, ;
		ZOrderSet = 6
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'lblCont' AS label WITH ;
		BackStyle = 0, ;
		Caption = " ", ;
		FontItalic = .T., ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Height = 18, ;
		Left = 111, ;
		Name = "lblCont", ;
		TabIndex = 4, ;
		Top = 65, ;
		Width = 30, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Optiongroup1' AS optiongroup WITH ;
		BackStyle = 0, ;
		ButtonCount = 2, ;
		ControlSource = "pnTipCont", ;
		Height = 26, ;
		Left = 35, ;
		Name = "Optiongroup1", ;
		TabIndex = 8, ;
		Top = 152, ;
		Value = 1, ;
		Width = 120, ;
		ZOrderSet = 8, ;
		Option1.AutoSize = .T., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "Activ", ;
		Option1.Height = 17, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.TabStop = .F., ;
		Option1.Top = 5, ;
		Option1.Value = 1, ;
		Option1.Width = 42, ;
		Option2.AutoSize = .T., ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "Pasiv", ;
		Option2.Height = 17, ;
		Option2.Left = 60, ;
		Option2.Name = "Option2", ;
		Option2.TabStop = .F., ;
		Option2.Top = 5, ;
		Option2.Width = 48
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		BackColor = 236,233,216, ;
		BackStyle = 0, ;
		BorderColor = 181,210,225, ;
		Height = 80, ;
		Left = 6, ;
		Name = "Shape2", ;
		Top = 36, ;
		Width = 191, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		BackColor = 236,233,216, ;
		BackStyle = 0, ;
		BorderColor = 181,210,225, ;
		Height = 60, ;
		Left = 6, ;
		Name = "Shape3", ;
		Top = 124, ;
		Width = 191, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />
	
	PROCEDURE go
		Select(Thisform.calias)
		With Thisform.ocont
			.cont=cont
			.acont=acont
		
			Thisform.lblCont.Caption=.cont
			Thisform.lblAcont.Caption=.acont
			If !Empty(.cont) 
				Thisform.terminat1.Enabled= .T.
			ELSE 
				Thisform.terminat1.Enabled=.F.	
			Endif
		Endwith
		pcexec = [select fel_cont from ] + gcs + [.vcoresp_tip_cont where cont='] + ALLTRIM((thisform.ocont.cont)) + [']
		pcCursor = [felCont_cursor]
		pnsucces = goExecutor.oExecute(pcexec,pcCursor)
		IF (pnsucces != 0)
			SELECT felCont_cursor
			IF (felCont_cursor.fel_cont = 0)
				thisform.optiongroup1.option1.Value = 1 
				thisform.optiongroup1.option2.Value = 0
			ELSE 
				thisform.optiongroup1.option1.Value = 0 
				thisform.optiongroup1.option2.Value = 1
			ENDIF 	
			USE IN felCont_cursor 
		ENDIF  
	ENDPROC

	PROCEDURE cboCont.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		thisform.go()
	ENDPROC

	PROCEDURE cboCont.Valid
		thisform.Go()
	ENDPROC

	PROCEDURE Optiongroup1.Valid
		IF TYPE('eactiv') # 'U'
			IF this.Value = 2
				eActiv = .f.
			ELSE 
				eActiv = .t.
			ENDIF 
		ENDIF 
			
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_rap_facturi 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="Shape1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_cautare" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Line1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Caut_anluna1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Caut_anluna2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="opt_perioada" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_cautare_cont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Txt_valuta" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Txt_analitic" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Check3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Container1.Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="ckContract" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_cautare_ctr" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_cautare		&& face cautarea corespunzatoare butonului de cautare de tip but_cautare
		*m: do_lansanalitic
		*m: do_lanscont
		*m: do_lansctr
		*m: do_lanspartener
		*m: do_lansvaluta
		*p: data_vechime
		*p: lcacont
		*p: lccont
		*p: lcperioada
		*p: llactiv
		*p: lnidctr
		*p: lnidpart
		*p: lnidvaluta
		*p: ncu_analitic
		*p: ncu_contract
		*p: ncu_valuta
		*p: ncu_vechime
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 2
		data_vechime = 
		DoCreate = .T.
		Height = 429
		lcacont = 
		lccont = 
		lcperioada = 
		llactiv = 
		lnidctr = 0
		lnidpart = 0
		lnidvaluta = 0
		Name = "frm_rap_facturi"
		ncu_analitic = 0
		ncu_contract = 0
		ncu_valuta = 0
		ncu_vechime = 0
		Width = 375
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 315
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 61
		Lb_titlu_alb_b121.Caption = "Facturi "
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Left = 345
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 1
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'But_cautare' AS but_cautare WITH ;
		caction = do_lansPartener, ;
		Left = 307, ;
		Name = "But_cautare", ;
		Top = 76
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_cautare_cont' AS but_cautare WITH ;
		caction = do_lansCont, ;
		Left = 307, ;
		Name = "But_cautare_cont", ;
		Top = 46
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_cautare_ctr' AS but_cautare WITH ;
		caction = do_lansCtr, ;
		Left = 312, ;
		Name = "But_cautare_ctr", ;
		Top = 387
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

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

	ADD OBJECT 'Caut_anluna1' AS caut_anluna WITH ;
		Left = 24, ;
		Name = "Caut_anluna1", ;
		Top = 185, ;
		cboan.Name = "cboan", ;
		cboluna.Name = "cboluna"
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Caut_anluna2' AS caut_anluna WITH ;
		Left = 198, ;
		Name = "Caut_anluna2", ;
		Top = 185, ;
		cboan.Name = "cboan", ;
		cboluna.Name = "cboluna"
		*< END OBJECT: ClassLib="caut_ora.vcx" BaseClass="container" />

	ADD OBJECT 'Check1' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Sumele pe analitice", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 26, ;
		Name = "Check1", ;
		Top = 244, ;
		Width = 108
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check2' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Suma in valuta", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 26, ;
		Name = "Check2", ;
		Top = 270, ;
		Width = 87
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Check3' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Soldurile facturilor pe vechimi", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 34, ;
		Left = 26, ;
		Name = "Check3", ;
		Top = 304, ;
		Width = 103, ;
		WordWrap = .T.
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'ckContract' AS checkbox WITH ;
		Alignment = 0, ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Grupare dupa contract", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 24, ;
		Name = "ckContract", ;
		Top = 366, ;
		Width = 124
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 14, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 10, ;
		TabStop = .F., ;
		Top = 47, ;
		ZOrderSet = 6, ;
		Text_simplu1.BackColor = 255,255,255, ;
		Text_simplu1.BackStyle = 0, ;
		Text_simplu1.BorderColor = 0,0,0, ;
		Text_simplu1.DisabledBackColor = 255,255,255, ;
		Text_simplu1.DisabledForeColor = 255,255,255, ;
		Text_simplu1.FontItalic = .T., ;
		Text_simplu1.ForeColor = 0,0,0, ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 65, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "Cont", ;
		Lb_simplu1.FontSize = 10, ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu2' AS clb_tx_simplu WITH ;
		Left = 14, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 11, ;
		TabStop = .F., ;
		Top = 75, ;
		ZOrderSet = 7, ;
		Text_simplu1.BackColor = 255,255,255, ;
		Text_simplu1.BackStyle = 0, ;
		Text_simplu1.DisabledBackColor = 255,255,255, ;
		Text_simplu1.DisabledForeColor = 255,255,255, ;
		Text_simplu1.FontItalic = .T., ;
		Text_simplu1.ForeColor = 0,0,0, ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 65, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "Entitate", ;
		Lb_simplu1.FontSize = 10, ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu3' AS clb_tx_simplu WITH ;
		Left = 19, ;
		Name = "Clb_tx_simplu3", ;
		TabIndex = 11, ;
		TabStop = .F., ;
		Top = 386, ;
		ZOrderSet = 7, ;
		Text_simplu1.BackColor = 255,255,255, ;
		Text_simplu1.BackStyle = 0, ;
		Text_simplu1.DisabledBackColor = 255,255,255, ;
		Text_simplu1.DisabledForeColor = 255,255,255, ;
		Text_simplu1.FontItalic = .T., ;
		Text_simplu1.ForeColor = 0,0,0, ;
		Text_simplu1.Height = 23, ;
		Text_simplu1.Left = 65, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Text_simplu1.Top = 3, ;
		Text_simplu1.Width = 220, ;
		Lb_simplu1.Caption = "Contract", ;
		Lb_simplu1.FontSize = 10, ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Container1' AS container WITH ;
		BackStyle = 0, ;
		BorderColor = 128,128,128, ;
		BorderWidth = 0, ;
		Height = 53, ;
		Left = 137, ;
		Name = "Container1", ;
		Top = 296, ;
		Visible = .F., ;
		Width = 211
		*< END OBJECT: BaseClass="container" />

	ADD OBJECT 'Container1.Label1' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Fata de data de:", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 10, ;
		Name = "Label1", ;
		Top = 5, ;
		Visible = .F., ;
		Width = 79
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Container1.Text1' AS textbox WITH ;
		ControlSource = "thisform.data_vechime", ;
		FontItalic = .T., ;
		Height = 20, ;
		Left = 105, ;
		Name = "Text1", ;
		Top = 3, ;
		Visible = .F., ;
		Width = 99
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Label1' AS label WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		Caption = "Se evidentiaza", ;
		Comment = "*:OnResize=LT", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 22, ;
		Left = 20, ;
		Name = "Label1", ;
		TabIndex = 8, ;
		Top = 221, ;
		Width = 85, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		Caption = "Afiseaza facturi", ;
		Comment = "*:OnResize=LT", ;
		FontName = "Arial Narrow", ;
		FontSize = 10, ;
		Height = 22, ;
		Left = 20, ;
		Name = "Label5", ;
		TabIndex = 8, ;
		Top = 110, ;
		Width = 85, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Line1' AS line WITH ;
		Height = 0, ;
		Left = 180, ;
		Name = "Line1", ;
		Top = 198, ;
		Width = 12
		*< END OBJECT: BaseClass="line" />

	ADD OBJECT 'opt_perioada' AS optiongroup WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		BorderStyle = 0, ;
		ButtonCount = 2, ;
		Height = 53, ;
		Left = 18, ;
		Name = "opt_perioada", ;
		SpecialEffect = 1, ;
		TabIndex = 11, ;
		Top = 130, ;
		Value = , ;
		Width = 132, ;
		ZOrderSet = 16, ;
		Option1.AutoSize = .T., ;
		Option1.BackStyle = 0, ;
		Option1.Caption = "Cu sold in perioada ...", ;
		Option1.FontName = "Arial Narrow", ;
		Option1.FontSize = 10, ;
		Option1.Height = 18, ;
		Option1.Left = 5, ;
		Option1.Name = "Option2", ;
		Option1.Top = 5, ;
		Option1.Value = 0, ;
		Option1.Width = 122, ;
		Option2.AutoSize = .T., ;
		Option2.BackStyle = 0, ;
		Option2.Caption = "Emise in perioada ...", ;
		Option2.FontName = "Arial Narrow", ;
		Option2.FontSize = 10, ;
		Option2.Height = 18, ;
		Option2.Left = 5, ;
		Option2.Name = "Option3", ;
		Option2.Top = 30, ;
		Option2.Value = 0, ;
		Option2.Width = 114
		*< END OBJECT: BaseClass="optiongroup" />

	ADD OBJECT 'Shape1' AS shape WITH ;
		BackStyle = 0, ;
		Height = 126, ;
		Left = 12, ;
		Name = "Shape1", ;
		Top = 232, ;
		Width = 350, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Shape3' AS shape WITH ;
		BackStyle = 0, ;
		Height = 97, ;
		Left = 12, ;
		Name = "Shape3", ;
		Top = 120, ;
		Width = 350, ;
		ZOrderSet = 1
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Txt_analitic' AS textbox WITH ;
		FontItalic = .T., ;
		Height = 21, ;
		Left = 137, ;
		Name = "Txt_analitic", ;
		ReadOnly = .T., ;
		Top = 243, ;
		Width = 86
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Txt_valuta' AS textbox WITH ;
		FontItalic = .T., ;
		Height = 21, ;
		Left = 137, ;
		Name = "Txt_valuta", ;
		ReadOnly = .T., ;
		Top = 269, ;
		Width = 86
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE do_cauta
		&& cautare partener (furnizor/client)
		
		LOCAL lccont
		lccont  = ALLTRIM(pccont)
		IF lccont = [401] && furnizori
			lctitlu = 'Alegeti numele furnizorului'
		ELSE && clienti
			lctitlu = 'Alegeti numele clientului'	
		ENDIF
		
		pocauta=caut_parteneri(lccont,lctitlu,.t.)
		
		IF !EMPTY(pocauta.nume)
			thisform._txtpartener.value = pocauta.nume
		ENDIF
		
		thisform.refresh
			
		
	ENDPROC

	PROCEDURE do_cautare		&& face cautarea corespunzatoare butonului de cautare de tip but_cautare
	ENDPROC

	PROCEDURE do_lansanalitic
		pcContIreg = this.lccont 
		lcSql = [select explicatie,cont, acont from VPLCONT_USED_ANALITIC] 
		pcfiltru = [cont = ?pcContIreg]
		pcschema = []
		pcorder = [acont]
		pccoloane = [acont,explicatie]
		pcTitlu = [Alegeti Contul Analitic] 
		pcTitluColoane = [Cont Analitic,Explicatie cont]
		locauta = cauta_alfa(lcSql,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'',.t.)
		this.txt_analitic.Value = locauta.acont
		IF UPPER(ALLTRIM(locauta.acont))  = [<TOATE INREGISTRARILE>]
			this.lcacont = []
		ELSE 
			this.lcAcont = locauta.acont
		ENDIF 
		 
	ENDPROC

	PROCEDURE do_lanscont
		private lcCont,lnEActiv 
		STORE "" TO lcCont
		STORE .F. TO lnEActiv
		DO Alege_Cont WITH lcCont,lnEActiv 
		
		IF !EMPTY(lcCont)
			this.clb_tx_simplu1.text_simplu1.Value = lcCont
			this.lccont = lcCont
			this.llactiv = lnEActiv
		ENDIF 
	ENDPROC

	PROCEDURE do_lansctr
		pcselect = [select id_ctr, contract from vcontracte]
		pcfiltru = [1=2]
		pcschema = []
		pcorder = [contract]
		pccoloane = [contract]
		pcTitlu = [Alegeti contractul]
		IF TYPE('GNPARAMETRU_PROG') = 'U'
			gnParametru_prog = 0
		ENDIF 
		
		DO CASE
			CASE gnParametru_prog = 1
				pcFiltruOriginal = [substr(tata,2,6)='CLIENT' ]
			CASE  gnParametru_prog = 2
				pcFiltruOriginal = [substr(tata,2,6)='FURNIZ' ]
			OTHERWISE
				pcFiltruOriginal = []
		ENDCASE
		locauta = cauta_alfa(pcselect,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitlu,[],.T.,pcFiltruOriginal)
		
		this.clb_tx_simplu3.text_simplu1.Value = locauta.contract 
		
		IF UPPER(ALLTRIM(locauta.contract))  = [<TOATE INREGISTRARILE>]
			THIS.lnidctr = 0
		ELSE
			THIS.lnidctr = locauta.id_ctr
		ENDIF
		
		
		
	ENDPROC

	PROCEDURE do_lanspartener
		PRIVATE pcval,pnbuton,pcselect,pcfiltru,oRetObj
		STORE "" TO oRetObj
		pnbuton=1
		llToateIreg = .T.
		llNou = .F.
		oRetObj=caut_parteneri(this.lccont, [Alegeti partenerul], llToateIreg, llNou)
		this.clb_tx_simplu2.text_simplu1.Value = oRetObj.nume  &&oRetObj.id_part
		IF UPPER(ALLTRIM(oRetObj.nume))  = [<TOATE INREGISTRARILE>]
			oRetObj.id_part = 0
		ENDIF 
		this.lnidpart = oRetObj.id_part
		 
		
		
	ENDPROC

	PROCEDURE do_lansvaluta
		lcSql = [select id_valuta, nume_val from vnom_valute] 
		pcfiltru = [1=2]
		pcschema = []
		pcorder = [nume_val]
		pccoloane = [nume_val]
		pcTitlu = [Alegeti Valuta] 
		pcTitluColoane = [Valuta]
		locauta = cauta_alfa(lcSql,pcfiltru,pcschema,pcorder,pccoloane,pcTitlu,pcTitluColoane,'',.f.)
		this.txt_valuta.Value = locauta.nume_val
		IF UPPER(ALLTRIM(locauta.nume_val))  = [<TOATE INREGISTRARILE>]
			this.lnidvaluta = 0
		ELSE 
			this.lnidvaluta = locauta.id_valuta
		ENDIF 
	ENDPROC

	PROCEDURE inainte_de_do_termin
		&& se verifica corectitudinea datelor si completitudinea datelor
		
		pnani = thisform.Caut_anluna1.nan
		pnanf = thisform.Caut_anluna2.nan
		pnlunai = thisform.Caut_anluna1.nluna
		pnlunaf = thisform.Caut_anluna2.nluna
		pcPerioada = PADL(pnLunaI,2,'0') + [/] + STR(pnAnI,4) + [-] + PADL(pnLunaF,2,'0') + [/] + STR(pnAnF,4)
		this.lcperioada = pcPerioada
		
		DO CASE 
			CASE EMPTY(this.clb_tx_simplu1.text_simplu1.Value)
				AMessagebox('Nu ati ales contul!',0+48,"Atentie")
				this.but_cautare_cont.SetFocus 
				plreturn=.F. 
				
		*!*		CASE EMPTY(this.clb_tx_simplu2.text_simplu1.Value)
		*!*			AMessagebox('Nu ati ales partenerul/partenerii!',0+48,"Atentie")
		*!*			this.but_cautare.SetFocus 
		*!*		    plreturn=.F.
			CASE pnani > pnanf OR (pnani = pnanf AND pnlunai > pnlunaf)
				amessagebox("Data initiala este mai mare decat data finala!"+;
					CRLF+"Introduceti date corecte!",0+48,"Atentie")
		*!*		    ostop=CREATEOBJECT('stop')
		*!*		    ostop.image1.Picture = ADDBS(gcAppPath) + 'grafice\exclam.ico'
		*!*		    ostop.label2.caption = 'Data initiala este mai mare decat data finala.'
		*!*		    ostop.label2.FontName = 'Arial Narrow'
		*!*		    ostop.label3.caption = 'Introduceti date corecte.'
		*!*		    ostop.label3.FontName = 'Arial Narrow'
		*!*		    ostop.show(1)
				plreturn=.F.
			OTHERWISE 
			    plreturn=.T.
		ENDCASE 
		
		RETURN plReturn
		
		
		
	ENDPROC

	PROCEDURE Show
		LPARAMETERS nStyle
		IF !EMPTY(this.lccont)
			this.but_cautare_cont.Visible = .F.
		ENDIF 
	ENDPROC

	PROCEDURE Check1.InteractiveChange
		IF this.Value = 1
			thisform.do_lansanalitic 
			thisform.ncu_analitic = 1
		ELSE 
			thisform.lcacont = []
			thisform.txt_analitic.Value = []
			thisform.ncu_analitic = 0
		ENDIF 
		thisform.txt_analitic.SetFocus 
	ENDPROC

	PROCEDURE Check2.InteractiveChange
		IF this.Value = 1
			thisform.do_lansvaluta 
			thisform.ncu_valuta = 1
		ELSE 
			thisform.lnidvaluta = 0
			thisform.txt_valuta.Value = []
			thisform.ncu_valuta = 0
		ENDIF 
		thisform.txt_valuta.SetFocus 
	ENDPROC

	PROCEDURE Check3.InteractiveChange
		IF this.Value = 1
			thisform.container1.Visible = .t.
			thisform.ncu_vechime = 1
		ELSE 
			thisform.container1.Visible = .f.
			thisform.ncu_vechime = 0
		ENDIF 
	ENDPROC

	PROCEDURE ckContract.InteractiveChange
		IF this.Value = 1
			thisform.ncu_contract = 1
		ELSE 
			thisform.ncu_contract = 0
		ENDIF 
		
	ENDPROC

	PROCEDURE opt_perioada.InteractiveChange
		
		WITH thisform
		*!*		IF this.Value = 1
		*!*			.Caut_anluna1.initializare_anluna
		*!*			.Caut_anluna2.initializare_anluna
		*!*		ENDIF
		*!*		.Caut_anluna1.ENABLED = IIF(this.Value = 1,.f.,.t.)
		*!*		.Caut_anluna2.ENABLED =	IIF(this.Value = 1,.f.,.t.)
			plemise = IIF(this.Value = 2,.t.,.f.)	
			.refresh
		ENDWITH
		
		
	ENDPROC

ENDDEFINE
