*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="orapoarte_parametri.vcx" CPID="1250" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_compar_stoc_bal 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_luna_intre1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="txtCont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_image1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*p: ccont
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		ccont = 
		DoCreate = .T.
		Height = 110
		Name = "frm_compar_stoc_bal"
		Width = 345
		_shape1.Name = "_shape1"
		_shape2.Height = 29
		_shape2.Left = 283
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 62
		Lb_titlu_alb_b121.Caption = "Borderou de verificare valorica"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 5
		BUT_TERMIN1.Left = 315
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 4
		BUT_TERMIN1.Top = 1
		Gridsort1.Left = 168
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 6
	*</PropValue>

	ADD OBJECT '_image1' AS _image WITH ;
		Anchor = 9, ;
		Height = 20, ;
		Left = 313, ;
		Name = "_image1", ;
		Picture = ..\..\roaproductie\comun\grafice\alege.bmp, ;
		Stretch = 1, ;
		Top = 79, ;
		Width = 20
		*< END OBJECT: ClassLib="_baza.vcx" BaseClass="image" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Left = 285, ;
		Name = "But_listare1", ;
		TabIndex = 3, ;
		Top = 1
		*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
		Left = 8, ;
		Name = "Clb_luna_intre1", ;
		TabIndex = 1, ;
		Top = 43, ;
		tx_n1.ControlSource = "pcLunaI", ;
		tx_n1.Name = "tx_n1", ;
		Lb_simplu1.Caption = "Perioada", ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		tx_n2.ControlSource = "pcLunaF", ;
		tx_n2.Name = "tx_n2"
		*< END OBJECT: ClassLib="lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		BackStyle = 0, ;
		Caption = "Cont", ;
		Height = 17, ;
		Left = 17, ;
		Name = "Label1", ;
		TabIndex = 6, ;
		Top = 82, ;
		Width = 28
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'txtCont' AS textbox WITH ;
		Anchor = 11, ;
		Format = "k", ;
		Height = 23, ;
		Left = 138, ;
		Name = "txtCont", ;
		ReadOnly = .T., ;
		TabIndex = 2, ;
		Top = 78, ;
		Value = <Toate inregistrarile>, ;
		Width = 168
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE inainte_de_do_listare
		Thisform.AlwaysOnTop= .F.
		
		
		Private pcDataora, pcTitlu, pnAnI, pnLunaI, pnAnF, pnLunaF, pcCont, plConturiLuna
		
		pnLunaI  = Val(Substr(pcLunaI,1,2))
		pnAnI = Val(Substr(pcLunaI,3,4))
		
		pnLunaF = Val(Substr(pcLunaF,1,2))
		pnAnF = Val(Substr(pcLunaF,3,4))
		pcCont = Thisform.cCont
		Store .F. To plConturiLuna  && listez totalurile doar pt. mai multe conturi - o singura luna
		lcSel = [{call pack_gest_rapoarte.borderou_verificare(?pnAnI, ?pnLunaI, ?pnAnF, ?pnLunaF, ?pcCont, ?gnIdSucursala)}]
		
		lcCursor = 'crsBorderou'
		lnSucces = goExecutor.oExecute(lcSel, lcCursor)
		If lnSucces < 0
			AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
			Return
		Endif
		
		*!*	lcTitlu = [Borderou de verificare valorica]
		*!*	pcTitlu = ceretitlu_rap([Titlul raportului],lcTitlu)
		pcTitlu = [Borderou de verificare valorica]
		pcDataora = get_Ora(2)
		
		If (pnAnF*12+pnLunaF)-(pnAnI*12+pnLunaI)+1 = 1
			Select Distinct Count(Cont) As nr_cont From crsBorderou Into Cursor crsConturi
			Select crsConturi
			lnNr_conturi = nr_cont
			If lnNr_conturi > 1
				plConturiLuna = .T.
			Endif
		Endif
		
		Select crsBorderou
		*Report Form rap_stoc_borderou.frx To Printer Prompt Preview
		goExport.export2frx([crsBorderou],[rap_stoc_borderou],.T., , , , , .T.)
		Thisform.AlwaysOnTop= .T.
		
	ENDPROC

	PROCEDURE _image1.Click
		LOCAL locauta 
		locauta = caut_cont()
		
		thisform.cCont = ALLTRIM(locauta.cont)
		
		IF EMPTY(locauta.cont)
			thisform.txtCont.Value= '<Toate inregistrarile>'
		ELSE
			thisform.txtCont.Value = thisform.cCont
		ENDIF 
		thisform.txtCont.Refresh
		
	ENDPROC

ENDDEFINE