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

	*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder 
	*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="cboCont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblCont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="lblAcont" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Optiongroup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label9" 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.Height = 32
		Shape1.Left = 0
		Shape1.Name = "Shape1"
		Shape1.Top = 0
		Shape1.Width = 138
		Shape1.ZOrderSet = 1
		Terminat1.Command1.Name = "Command1"
		Terminat1.Enabled = .F.
		Terminat1.Imbuton1.Height = 29
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 27
		Terminat1.Left = 171
		Terminat1.Name = "Terminat1"
		Terminat1.Top = 1
		Terminat1.ZOrderSet = 2
		Titlufrumos1.Height = 31
		Titlufrumos1.Left = 7
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.Top = 7
		Titlufrumos1.Width = 118
		Titlufrumos1.ZOrderSet = 3
	*</PropValue>

	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 'Renunt1' AS renunt WITH ;
		Left = 139, ;
		Name = "Renunt1", ;
		Top = 1, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="container" />

	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.InteractiveChange
		If Type('eactiv') # 'U'
			If This.Value = 2
				eActiv = .F.
			Else
				eActiv = .T.
			Endif
		Endif
		
	ENDPROC

	PROCEDURE Optiongroup1.ProgrammaticChange
		This.InteractiveChange()
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_cere_cont_titlu AS formtermin OF "..\..\comun\clase\baza.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="Shape4" 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="Renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_an_luna1" UniqueID="" Timestamp="" />

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

	*<PropValue>
		BorderStyle = 1
		calias = 
		DoCreate = .T.
		Height = 201
		Name = "frm_cere_cont_titlu"
		ocont = .NULL.
		ScrollBars = 0
		Width = 335
		Shape1.Height = 32
		Shape1.Left = 0
		Shape1.Name = "Shape1"
		Shape1.Top = 0
		Shape1.Width = 335
		Shape1.ZOrderSet = 1
		Terminat1.Command1.Name = "Command1"
		Terminat1.Enabled = .F.
		Terminat1.Imbuton1.Height = 29
		Terminat1.Imbuton1.Name = "Imbuton1"
		Terminat1.Imbuton1.Width = 27
		Terminat1.Left = 304
		Terminat1.Name = "Terminat1"
		Terminat1.TabIndex = 3
		Terminat1.Top = 1
		Terminat1.ZOrderSet = 2
		Titlufrumos1.Height = 31
		Titlufrumos1.Left = 7
		Titlufrumos1.Name = "Titlufrumos1"
		Titlufrumos1.TabIndex = 6
		Titlufrumos1.Top = 7
		Titlufrumos1.Width = 118
		Titlufrumos1.ZOrderSet = 3
	*</PropValue>

	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 'Clb_an_luna1' AS clb_an_luna WITH ;
		Height = 29, ;
		Left = 20, ;
		Name = "Clb_an_luna1", ;
		Top = 129, ;
		Width = 290, ;
		Lb_simplu1.FontSize = 10, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		cb1.Left = 149, ;
		cb1.Name = "cb1", ;
		cb1.Top = 2, ;
		cb2.Left = 210, ;
		cb2.Name = "cb2", ;
		cb2.Top = 2
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 20, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 2, ;
		Top = 157, ;
		Text_simplu1.ControlSource = "tcTitlu", ;
		Text_simplu1.Name = "Text_simplu1", ;
		Lb_simplu1.Caption = "Titlu", ;
		Lb_simplu1.FontSize = 10, ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Label9' AS label WITH ;
		AutoSize = .T., ;
		BackStyle = 0, ;
		Caption = "Contul este considerat de:", ;
		FontBold = .F., ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 168, ;
		Name = "Label9", ;
		TabIndex = 9, ;
		Top = 48, ;
		Width = 154, ;
		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 = 98, ;
		Name = "lblAcont", ;
		TabIndex = 8, ;
		Top = 63, ;
		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 = 7, ;
		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 = 186, ;
		Name = "Optiongroup1", ;
		TabIndex = 5, ;
		Top = 80, ;
		Value = 1, ;
		Width = 114, ;
		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 'Renunt1' AS renunt WITH ;
		Left = 272, ;
		Name = "Renunt1", ;
		TabIndex = 4, ;
		Top = 1, ;
		Imbuton1.Height = 27, ;
		Imbuton1.Name = "Imbuton1", ;
		Imbuton1.Width = 30, ;
		Command1.Name = "Command1"
		*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />

	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 = 153, ;
		ZOrderSet = 0
		*< END OBJECT: BaseClass="shape" />

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

	ADD OBJECT 'Shape4' AS shape WITH ;
		BackColor = 236,233,216, ;
		BackStyle = 0, ;
		BorderColor = 181,210,225, ;
		Height = 80, ;
		Left = 6, ;
		Name = "Shape4", ;
		Top = 115, ;
		Width = 318, ;
		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 Clb_an_luna1.Init
		this.cb1.Value=ALLTRIM(STR(gnLuna))
		this.cb2.Value=ALLTRIM(STR(gnAn))
		this.Enabled = .F.
		this.lb_simplu1.ForeColor = RGB(128,128,128)
		this.cb1.ForeColor = RGB(128,128,128)
		this.cb2.ForeColor = RGB(128,128,128)
	ENDPROC

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

ENDDEFINE

DEFINE CLASS frm_cere_titlu 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="Clb_tx_simplu1" UniqueID="" Timestamp="" />

	*<PropValue>
		BorderStyle = 1
		DoCreate = .T.
		Height = 95
		Name = "frm_cere_titlu"
		Width = 375
		_SHAPE1.Name = "_SHAPE1"
		_SHAPE2.Name = "_SHAPE2"
		LB_TITLU_ALB_B121.Caption = ""
		LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
		LB_TITLU_ALB_B121.TabIndex = 3
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 2
		Gridsort1.Left = 9
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 38
	*</PropValue>

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Height = 29, ;
		Left = 13, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		Top = 49, ;
		Width = 346, ;
		TEXT_SIMPLU1.Left = 154, ;
		TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
		TEXT_SIMPLU1.Top = 3, ;
		LB_SIMPLU1.Caption = "Titlu", ;
		LB_SIMPLU1.FontSize = 12, ;
		LB_SIMPLU1.Name = "LB_SIMPLU1"
		*< END OBJECT: ClassLib="..\..\comun\clase\lb_tx.vcx" BaseClass="container" />

ENDDEFINE

DEFINE CLASS frm_lans_sit_op 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="_shape5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_shape3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_shape4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_tx_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_an_luna1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Clb_luna_intre1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_sterge2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_optiongrup1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Lb_simplu2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="_optiongrup2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_renunt1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="chkDefalcatDocumentePereche" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Analitic" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: do_lanscont
		*m: do_lanspartener
		*p: lccont
		*p: lcluna_sau_perioada
		*p: llactiv
		*p: llcauta_alfa_cu_toti
		*p: lljustselpart
		*p: llperioada_blocata
		*p: lnfelraport
		*p: lnid_part
		*p: lnperioada
		*p: option1lock
		*p: option2lock
	*</DefinedPropArrayMethod>

	*<PropValue>
		DoCreate = .T.
		Enabled = .T.
		Height = 250
		lccont = 
		lcluna_sau_perioada = ""
		llcauta_alfa_cu_toti = .T.
		lnfelraport = 0
		lnid_part = 0
		lnperioada = 0
		Name = "frm_lans_sit_op"
		Width = 374
		_shape1.Name = "_shape1"
		_shape1.ZOrderSet = 2
		_shape2.Height = 29
		_shape2.Left = 310
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 64
		_shape2.ZOrderSet = 3
		Lb_titlu_alb_b121.Caption = "Situatii Operative"
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 12
		Lb_titlu_alb_b121.ZOrderSet = 4
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 9
		BUT_TERMIN1.ZOrderSet = 5
		Gridsort1.Left = 16
		Gridsort1.Name = "Gridsort1"
		Gridsort1.Top = 35
	*</PropValue>

	ADD OBJECT '_optiongrup1' AS _optiongrup WITH ;
		AutoSize = .F., ;
		BackColor = 255,0,0, ;
		BorderStyle = 0, ;
		Height = 24, ;
		Left = 120, ;
		Name = "_optiongrup1", ;
		TabIndex = 5, ;
		Top = 131, ;
		Value = 1, ;
		Width = 163, ;
		ZOrderSet = 13, ;
		Option1.BackColor = 255,0,0, ;
		Option1.Caption = "lunara", ;
		Option1.ForeColor = 0,0,0, ;
		Option1.Left = 12, ;
		Option1.Name = "Option1", ;
		Option1.Top = 0, ;
		Option1.Value = 1, ;
		Option2.BackColor = 255,0,0, ;
		Option2.Caption = "perioada", ;
		Option2.ForeColor = 0,0,0, ;
		Option2.Height = 17, ;
		Option2.Left = 84, ;
		Option2.Name = "Option2", ;
		Option2.Top = 0, ;
		Option2.Value = 0, ;
		Option2.Width = 80
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT '_optiongrup2' AS _optiongrup WITH ;
		AutoSize = .F., ;
		BackColor = 255,0,0, ;
		BorderStyle = 0, ;
		Height = 27, ;
		Left = 126, ;
		Name = "_optiongrup2", ;
		TabIndex = 8, ;
		Top = 211, ;
		Width = 204, ;
		ZOrderSet = 15, ;
		Option1.BackColor = 255,0,0, ;
		Option1.Caption = "simplu", ;
		Option1.ForeColor = 0,0,0, ;
		Option1.Left = 5, ;
		Option1.Name = "Option1", ;
		Option1.Top = 5, ;
		Option2.AutoSize = .T., ;
		Option2.BackColor = 255,0,0, ;
		Option2.Caption = "grupat pe entitati", ;
		Option2.ForeColor = 0,0,0, ;
		Option2.Height = 17, ;
		Option2.Left = 77, ;
		Option2.Name = "Option2", ;
		Option2.Top = 5, ;
		Option2.Width = 109
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" />

	ADD OBJECT '_shape3' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 29, ;
		Left = 32, ;
		Name = "_shape3", ;
		Top = 209, ;
		Visible = .T., ;
		Width = 290, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT '_shape4' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 29, ;
		Left = 32, ;
		Name = "_shape4", ;
		Top = 125, ;
		Width = 290, ;
		ZOrderSet = 1
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT '_shape5' AS _shape WITH ;
		BackStyle = 0, ;
		Height = 29, ;
		Left = 32, ;
		Name = "_shape5", ;
		Top = 181, ;
		Visible = .T., ;
		Width = 290, ;
		ZOrderSet = 0
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="shape" />

	ADD OBJECT 'Analitic' AS textbox WITH ;
		Height = 24, ;
		Left = 133, ;
		Name = "Analitic", ;
		Top = 72, ;
		Width = 184
		*< END OBJECT: BaseClass="textbox" />

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

	ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
		caction = do_lansCont, ;
		cpicturedown = find.bmp, ;
		cpictureup = find.bmp, ;
		DisabledPicture = ..\comun\grafice\sterg2_sus_dis.bmp, ;
		Left = 326, ;
		Name = "But_sterge1", ;
		SpecialEffect = 0, ;
		TabIndex = 2, ;
		ToolTipText = "Alege...", ;
		Top = 41, ;
		ZOrderSet = 11
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_sterge2' AS but_sterge WITH ;
		caction = do_lansPartener, ;
		cpicturedown = find.bmp, ;
		cpictureup = find.bmp, ;
		Left = 326, ;
		Name = "But_sterge2", ;
		SpecialEffect = 0, ;
		TabIndex = 4, ;
		ToolTipText = "Alege ...", ;
		Top = 97, ;
		ZOrderSet = 12
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'chkDefalcatDocumentePereche' AS _checkbox WITH ;
		Alignment = 0, ;
		Caption = "Defalcat dupa documente pereche", ;
		Left = 41, ;
		Name = "chkDefalcatDocumentePereche", ;
		TabIndex = 7, ;
		Top = 187, ;
		Value = 1
		*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />

	ADD OBJECT 'Clb_an_luna1' AS clb_an_luna WITH ;
		Height = 29, ;
		Left = 32, ;
		Name = "Clb_an_luna1", ;
		TabIndex = 11, ;
		Top = 153, ;
		Visible = .T., ;
		Width = 290, ;
		ZOrderSet = 8, ;
		Lb_simplu1.FontSize = 12, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		cb1.Left = 143, ;
		cb1.Name = "cb1", ;
		cb1.RowSource = "01,02,03,04,05,06,07,08,09,10,11,12", ;
		cb1.Top = 2, ;
		cb2.Left = 208, ;
		cb2.Name = "cb2", ;
		cb2.Top = 2
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_luna_intre1' AS clb_luna_intre WITH ;
		Height = 29, ;
		Left = 32, ;
		Name = "Clb_luna_intre1", ;
		TabIndex = 6, ;
		Top = 153, ;
		Visible = .F., ;
		Width = 290, ;
		ZOrderSet = 9, ;
		tx_n1.Name = "tx_n1", ;
		Lb_simplu1.Caption = "Intervalul", ;
		Lb_simplu1.FontSize = 12, ;
		Lb_simplu1.Left = 8, ;
		Lb_simplu1.Name = "Lb_simplu1", ;
		Lb_simplu1.Top = 6, ;
		tx_n2.Name = "tx_n2"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Clb_tx_simplu1' AS clb_tx_simplu WITH ;
		Left = 32, ;
		Name = "Clb_tx_simplu1", ;
		TabIndex = 1, ;
		TabStop = .F., ;
		Top = 41, ;
		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.ForeColor = 0,0,0, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "Cont", ;
		Lb_simplu1.FontSize = 12, ;
		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 = 32, ;
		Name = "Clb_tx_simplu2", ;
		TabIndex = 3, ;
		TabStop = .F., ;
		Top = 97, ;
		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.ForeColor = 0,0,0, ;
		Text_simplu1.Name = "Text_simplu1", ;
		Text_simplu1.ReadOnly = .T., ;
		Lb_simplu1.Caption = "Entitate", ;
		Lb_simplu1.FontSize = 12, ;
		Lb_simplu1.Name = "Lb_simplu1"
		*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />

	ADD OBJECT 'Label1' AS label WITH ;
		BackStyle = 0, ;
		Caption = "Analitic :", ;
		FontSize = 11, ;
		Height = 17, ;
		Left = 34, ;
		Name = "Label1", ;
		Top = 76, ;
		Width = 57
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Lb_simplu1' AS lb_simplu WITH ;
		Caption = "Perioada:", ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Left = 39, ;
		Name = "Lb_simplu1", ;
		TabIndex = 13, ;
		Top = 132, ;
		ZOrderSet = 10
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />

	ADD OBJECT 'Lb_simplu2' AS lb_simplu WITH ;
		Caption = "Fel raport:", ;
		FontSize = 12, ;
		ForeColor = 0,0,0, ;
		Left = 39, ;
		Name = "Lb_simplu2", ;
		TabIndex = 14, ;
		Top = 215, ;
		Visible = .T., ;
		ZOrderSet = 14
		*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
	
	PROCEDURE Click
					this._optiongrup1.ProgrammaticChange
	ENDPROC

	PROCEDURE do_lanscont
		Private pcContAles,pnEActiv
		Store "" To pcContAles
		Store .F. To pnEActiv
		Do Alege_Cont With pcContAles,pnEActiv
		pcContAles = ALLTRIM(pcContAles)
		If !Empty(pcContAles)
			This.clb_tx_simplu1.text_simplu1.Value = pcContAles
			This.lcCont = pcContAles
			This.llactiv = pnEActiv
		Endif
		Release pcContAles,pnEActiv
	ENDPROC

	PROCEDURE do_lanspartener
		PRIVATE pcval,pnbuton,pcselect,pcfiltru,oRetObj
		STORE "" TO oRetObj
		pnbuton=1
		*!*	pcselect=["select nume,id_part from ]+gcS+[.vparteneri_extins where cont=']+ALLTRIM(this.lccont)+['"]
		*!*	pcfiltru=[1=2]
		*!*	oRetObj=cauta_alfa(pcselect,pcfiltru,[''],[],[nume],[Alegeti partener coresp. cont ]+IIF(EMPTY(this.lccont),[nespecificat],ALLTRIM(this.lccont)),[Entitate],[],this.llcauta_alfa_cu_toti)
		llToateIreg = this.llcauta_alfa_cu_toti 
		llNou = .F.
		oRetObj=caut_parteneri(this.lccont, [Alegeti partenerul], llToateIreg, llNou)
		
		IF !EMPTY(oRetObj.denumire)
			this.clb_tx_simplu2.text_simplu1.Value = oRetObj.denumire  &&oRetObj.id_part
			this.lnid_part = oRetObj.id_part
			IF (this.lljustselpart) AND (this.llperioada_blocata)
					** do nada! fereastra ramane la this stadiu!
					this.clb_an_luna1.cb1.Value = ALLTRIM(STR(gnluna))
					this.clb_an_luna1.cb2.Value = ALLTRIM(STR(gnAn))
					this.clb_an_luna1.Enabled  = .F.
			ELSE 
				IF oRetObj.id_part = 0 && totzi partenerii
					this._optiongrup1.option1.Value = 1
					this._optiongrup1.option2.Value = 0			
					this._optiongrup1.Enabled = .F.
					this._optiongrup1.Option1.ForeColor = RGB(128,128,128)		
					this._optiongrup1.Option2.ForeColor = RGB(128,128,128)
					this._optiongrup2.Enabled = .T.
					this._optiongrup2.Option1.ForeColor = RGB(0,0,0)		
					this._optiongrup2.Option2.ForeColor = RGB(0,0,0)
					**this._optiongrup1.tabindex = 10  &&away, ca n-are tabstop
					this.clb_an_luna1.cb1.Value = ALLTRIM(STR(gnluna))
					this.clb_an_luna1.cb2.Value = ALLTRIM(STR(gnAn))
					this.clb_an_luna1.Enabled  = .F.
					this.clb_an_luna1.Visible = .T.
					this.clb_luna_intre1.Visible = .F.	
				ELSE && un singur partener
					this._optiongrup2.option1.Value = 1
					this._optiongrup2.option2.Value = 0			
					this._optiongrup2.Enabled = .F.
					this._optiongrup2.Option1.ForeColor = RGB(128,128,128)
					this._optiongrup2.Option2.ForeColor = RGB(128,128,128)		
					this._optiongrup1.Enabled = .T.  		
					this._optiongrup1.Option1.ForeColor = RGB(0,0,0)		
					this._optiongrup1.Option2.ForeColor = RGB(0,0,0) 
					this.clb_an_luna1.Enabled  = .T.			
					IF (this.lcluna_sau_perioada != "perioada")
						this.clb_an_luna1.Visible = .T.		
						this.clb_luna_intre1.Visible = .F.
					ELSE 
						this._optiongrup1.option1.Value = 0
						this._optiongrup1.option2.Value = 1			
						this._optiongrup1.InteractiveChange
						this.clb_an_luna1.Visible = .F.		
						this.clb_luna_intre1.Visible = .T.
					ENDIF 
				ENDIF 
			ENDIF && select just part sau select all
			
		ENDIF 
		
		
	ENDPROC

	PROCEDURE inainte_de_do_renunt
		plreturn=.F. 
	ENDPROC

	PROCEDURE inainte_de_do_termin
		STORE "" TO perioada
		*!* 04.08.2011
		IF THISFORM._optiongrup2.VALUE<>2 AND EMPTY(THIS.clb_tx_simplu2.text_simplu1.VALUE)
			thisform.do_lanspartener() 
		ENDIF 
		*!* 04.08.2011 ^		
		DO CASE
			CASE EMPTY(THIS.clb_tx_simplu1.text_simplu1.VALUE)
				aMessagebox('Nu ati ales contul!',0+48,"Atentie")
				THIS.but_sterge1.SETFOCUS
				plreturn=.F.
		
			CASE THISFORM._optiongrup2.VALUE<>2 AND EMPTY(THIS.clb_tx_simplu2.text_simplu1.VALUE)
				aMessagebox('Nu ati ales partenerul/partenerii!',0+48,"Atentie")
				THIS.but_sterge2.SETFOCUS
				plreturn=.F.
		
			OTHERWISE
				plreturn=.T.
				** prepare params ...
				IF THIS.lnperioada = 0
					perioada = THIS.clb_an_luna1.cb1.VALUE+"/"+THIS.clb_an_luna1.cb2.VALUE
				ELSE
					perioada = SUBSTR(THIS.clb_luna_intre1.tx_n1.VALUE,1,2)+"/"+SUBSTR(THIS.clb_luna_intre1.tx_n1.VALUE,3)+"-"+SUBSTR(THIS.clb_luna_intre1.tx_n2.VALUE,1,2)+"/"+SUBSTR(THIS.clb_luna_intre1.tx_n2.VALUE,3)
				ENDIF
		
				***
				llFormRelease = .T.
		
				IF lcTitlu == ""
					lcTitlu = IIF(THIS.lnid_part>0,THIS.clb_tx_simplu2.text_simplu1.VALUE+THIS.lccont,"Entitati "+THIS.lccont)
				ENDIF
				pcCont = THIS.lccont
				plActiv = THIS.llActiv
				IF THISFORM._optiongrup2.VALUE<>2
					lnid_part = THIS.lnid_part
				ELSE
					lnid_part = 0
				ENDIF
				lnFel_raport = THIS.lnfelraport
				lcPerioada = perioada
				lcEntitateAleasa = THIS.clb_tx_simplu2.text_simplu1.VALUE
				plDefalcatDocumentPereche = Iif(this.chkDefalcatDocumentePereche.Value = 1, .T., .F.)
				pcAnalitic=thisform.analitic.Value
				
				***
		ENDCASE
		
		RETURN plreturn
		
	ENDPROC

	PROCEDURE Init
		LPARAMETERS tcCont,tlActiv,tlCauta_alfa_Cu_Toti,tlPerioada_Blocata,tcLuna_sau_Perioada
		**parametrii sunt explicati in osituatii_operative.prg, in procedura PrepareRptSitOp
		
		IF !EMPTY(tcCont)
			this.lccont = tcCont
			this.llactiv = tlActiv
			**blokare alegere cont:
			this.clb_tx_simplu1.TEXT_SIMPLU1.Value = tcCont 
			this.but_sterge1.Visible = .F.
			this.clb_tx_simplu1.tEXT_SIMPLU1.ForeColor = RGB(128,128,128)
			**setare pe selectie doar de partener(i): (init e pe .F.)
			this.lljustselpart = .T.
			this.llcauta_alfa_cu_toti = tlCauta_alfa_Cu_Toti
			this.llperioada_blocata = tlPerioada_Blocata
		ENDIF 
		
		**cu ce sa intre daca perioada nu-i blocata:
		IF !EMPTY(tcLuna_sau_Perioada)
			this.lcluna_sau_perioada = tcLuna_sau_Perioada
		ELSE
			this.lcluna_sau_perioada = "luna"
		ENDIF 
		
		**this.Height = 125
		this.clb_an_luna1.cb1.Value = PADL(ALLTRIM(STR(gnLuna)),2,'0')
		this.clb_an_luna1.cb2.Value = ALLTRIM(STR(gnAn))
		
		IF tlPerioada_Blocata
			this._optiongrup1.Enabled = .F.
		ELSE 
			this._optiongrup1.Enabled = .T.
		ENDIF 
		IF this.lcluna_sau_perioada = "luna"
			this._optiongrup1.Value = 1
		ELSE 
			this._optiongrup1.Value = 2
		ENDIF 
		this._optiongrup1.InteractiveChange 
			
		this._optiongrup1.Option1.ForeColor = RGB(128,128,128)		
		this._optiongrup1.Option2.ForeColor = RGB(128,128,128)
		*this._optiongrup2.Enabled = .F.
		this._optiongrup2.Option1.ForeColor = RGB(128,128,128)		
		this._optiongrup2.Option2.ForeColor = RGB(128,128,128)
		
		DODEFAULT() 
	ENDPROC

	PROCEDURE Clb_luna_intre1.tx_n1.Valid
		
		IF VAL(SUBSTR(this.Value,3,4))>=gnan AND VAL(SUBSTR(this.Value,1,2))>gnluna
		  aMESSAGEBOX("Data este prea mare!",0+48,"Atentie")
		RETURN 0
		ENDIF 
	ENDPROC

	PROCEDURE Clb_luna_intre1.tx_n2.Valid
		
		IF VAL(SUBSTR(this.Value,3,4))>=gnan AND VAL(SUBSTR(this.Value,1,2))>gnluna
		  aMESSAGEBOX("Data este prea mare!",0+48,"Atentie")
		RETURN 0
		ENDIF 
	ENDPROC

	PROCEDURE Clb_tx_simplu1.Text_simplu1.GotFocus
		IF this.ForeColor != RGB(128,128,128)
			thisform.do_lanscont 
		ENDIF 
	ENDPROC

	PROCEDURE Clb_tx_simplu2.Text_simplu1.GotFocus
		thisform.do_lanspartener 
	ENDPROC

	PROCEDURE Lb_titlu_alb_b121.MouseDown
		Lparameters nButton, nShift, nXCoord, nYCoord
		If nButton = 1
			thisform.MouseIcon='HMOVE.CUR'
			thisform.MousePointer= 99
			ReleaseCapture()
			SendMessage(Thisform.nHWND, 0x112, 0xF012, 0x0)
			thisform.MousePointer= 0
			SendMessage(Thisform.nHWND, 0x202, 0x0, 0x0)	
		Endif
	ENDPROC

	PROCEDURE _optiongrup1.InteractiveChange
		IF this.Value = 1
			thisform.lnperioada = 0
			thisform.clb_an_luna1.Visible = .T.
			thisform.clb_luna_intre1.Visible = .F.
			thisform.clb_an_luna1.SetFocus		
		ELSE
			thisform.lnperioada = 1	
			thisform.clb_an_luna1.Visible = .F.
			thisform.clb_luna_intre1.Visible = .T.
			thisform.clb_luna_intre1.tx_n1.Value = PADL(thisform.clb_an_luna1.cb1.Value,2,'0') + thisform.clb_an_luna1.cb2.Value
			thisform.clb_luna_intre1.tx_n2.Value = PADL(thisform.clb_an_luna1.cb1.Value,2,'0') + thisform.clb_an_luna1.cb2.Value
			thisform.clb_luna_intre1.SetFocus 
		ENDIF
		
	ENDPROC

	PROCEDURE _optiongrup2.InteractiveChange
			IF this.option1.Value = 1
				thisform.lnfelraport = 0
			ELSE
				thisform.lnfelraport = 1
			ENDIF
		
	ENDPROC

ENDDEFINE

DEFINE CLASS frm_viz_sit_op 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="Shape2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column2.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column3.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column4.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column5.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column6.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column7.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column10.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column11.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column8.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column9.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column12.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column13.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column14.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Grid1.Column15.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: afisactual
		*m: calcul
		*p: laid_part
		*p: nsumac
		*p: nsumad
		*p: nsumasold
	*</DefinedPropArrayMethod>

	*<PropValue>
		AlwaysOnTop = .T.
		AutoCenter = .T.
		BackColor = 255,255,255
		cbuton1 = but_excel1
		cbuton2 = but_listare1
		cgridsortlist = grid1
		DoCreate = .T.
		Height = 452
		lactiv1 = .F.
		lactiv2 = .F.
		lactiv3 = .F.
		lactiv4 = .F.
		laid_part = 
		MaxButton = .F.
		MinButton = .F.
		Name = "frm_viz_sit_op"
		nsumac = 0
		nsumad = 0
		nsumasold = 0
		TitleBar = 0
		Width = 789
		WindowState = 2
		WindowType = 1
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 792
		_shape1.ZOrderSet = 0
		_shape2.Anchor = 8
		_shape2.Height = 29
		_shape2.Left = 690
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 99
		_shape2.ZOrderSet = 1
		Lb_titlu_alb_b121.Caption = "Situatie operativa lunara "
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		Lb_titlu_alb_b121.TabIndex = 19
		Lb_titlu_alb_b121.ZOrderSet = 2
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 756
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.TabIndex = 16
		BUT_TERMIN1.Top = 1
		BUT_TERMIN1.ZOrderSet = 21
		GRIDSORT1.Name = "GRIDSORT1"
	*</PropValue>

	ADD OBJECT 'But_excel1' AS but_excel WITH ;
		Anchor = 8, ;
		Left = 694, ;
		Name = "But_excel1", ;
		TabIndex = 18, ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'But_listare1' AS but_listare WITH ;
		Anchor = 8, ;
		Left = 725, ;
		Name = "But_listare1", ;
		TabIndex = 17, ;
		Top = 1
		*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />

	ADD OBJECT 'Grid1' AS grid WITH ;
		Anchor = 15, ;
		BackColor = 255,255,255, ;
		ColumnCount = 15, ;
		DeleteMark = .F., ;
		FontSize = 10, ;
		GridLineColor = 128,128,128, ;
		Height = 365, ;
		Left = 3, ;
		Name = "Grid1", ;
		Panel = 1, ;
		ReadOnly = .T., ;
		RecordSource = "cursor_raport", ;
		RowHeight = 19, ;
		TabIndex = 15, ;
		Top = 84, ;
		Width = 778, ;
		ZOrderSet = 6, ;
		Column1.Alignment = 1, ;
		Column1.BackColor = 255,255,255, ;
		Column1.ColumnOrder = 2, ;
		Column1.ControlSource = "dataireg", ;
		Column1.FontName = "Arial", ;
		Column1.FontSize = 10, ;
		Column1.Name = "Column2", ;
		Column1.ReadOnly = .T., ;
		Column1.Width = 64, ;
		Column2.Alignment = 0, ;
		Column2.BackColor = 255,255,255, ;
		Column2.ColumnOrder = 1, ;
		Column2.ControlSource = "FEL_DOCument", ;
		Column2.FontName = "Arial", ;
		Column2.FontSize = 10, ;
		Column2.Name = "Column3", ;
		Column2.ReadOnly = .T., ;
		Column2.Width = 68, ;
		Column3.Alignment = 1, ;
		Column3.BackColor = 255,255,255, ;
		Column3.ColumnOrder = 3, ;
		Column3.ControlSource = "dataact", ;
		Column3.FontName = "Arial", ;
		Column3.FontSize = 10, ;
		Column3.Name = "Column4", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 62, ;
		Column4.Alignment = 1, ;
		Column4.BackColor = 255,255,255, ;
		Column4.ColumnOrder = 4, ;
		Column4.ControlSource = "nract", ;
		Column4.FontName = "Arial", ;
		Column4.FontSize = 10, ;
		Column4.Name = "Column5", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 58, ;
		Column5.Alignment = 0, ;
		Column5.BackColor = 255,255,255, ;
		Column5.ColumnOrder = 6, ;
		Column5.ControlSource = "nrord", ;
		Column5.FontName = "Arial", ;
		Column5.FontSize = 10, ;
		Column5.Name = "Column6", ;
		Column5.ReadOnly = .T., ;
		Column5.Width = 102, ;
		Column6.Alignment = 1, ;
		Column6.BackColor = 255,255,255, ;
		Column6.ColumnOrder = 11, ;
		Column6.ControlSource = "", ;
		Column6.DynamicForeColor = "rgb(0,0,128)", ;
		Column6.FontBold = .F., ;
		Column6.FontName = "Arial", ;
		Column6.FontSize = 10, ;
		Column6.ForeColor = 0,0,128, ;
		Column6.Name = "Column7", ;
		Column6.ReadOnly = .T., ;
		Column6.Visible = .F., ;
		Column6.Width = 46, ;
		Column7.Alignment = 3, ;
		Column7.BackColor = 255,255,255, ;
		Column7.ColumnOrder = 8, ;
		Column7.ControlSource = "debit", ;
		Column7.FontName = "Arial", ;
		Column7.FontSize = 10, ;
		Column7.Format = "R", ;
		Column7.InputMask = "99 999 999 999.99", ;
		Column7.Name = "Column10", ;
		Column7.ReadOnly = .T., ;
		Column7.Width = 87, ;
		Column8.Alignment = 3, ;
		Column8.BackColor = 255,255,255, ;
		Column8.ColumnOrder = 9, ;
		Column8.ControlSource = "credit", ;
		Column8.FontName = "Arial", ;
		Column8.FontSize = 10, ;
		Column8.Format = "R", ;
		Column8.InputMask = "99 999 999 999.99", ;
		Column8.Name = "Column11", ;
		Column8.ReadOnly = .T., ;
		Column8.Width = 90, ;
		Column9.BackColor = 255,255,255, ;
		Column9.ColumnOrder = 5, ;
		Column9.ControlSource = "part", ;
		Column9.FontName = "Arial", ;
		Column9.FontSize = 10, ;
		Column9.Name = "Column1", ;
		Column9.ReadOnly = .T., ;
		Column9.Width = 131, ;
		Column10.BackColor = 255,255,255, ;
		Column10.ColumnOrder = 10, ;
		Column10.ControlSource = "soldf", ;
		Column10.FontName = "Arial", ;
		Column10.FontSize = 10, ;
		Column10.Format = "R", ;
		Column10.InputMask = "99 999 999 999.99", ;
		Column10.Name = "Column8", ;
		Column10.ReadOnly = .T., ;
		Column11.BackColor = 255,255,255, ;
		Column11.ColumnOrder = 12, ;
		Column11.ControlSource = "perecheX", ;
		Column11.FontName = "Arial", ;
		Column11.FontSize = 10, ;
		Column11.Name = "Column9", ;
		Column11.ReadOnly = .T., ;
		Column11.Width = 77, ;
		Column12.BackColor = 255,255,255, ;
		Column12.ColumnOrder = 13, ;
		Column12.ControlSource = "partx", ;
		Column12.FontName = "Arial", ;
		Column12.FontSize = 10, ;
		Column12.Name = "Column12", ;
		Column12.ReadOnly = .T., ;
		Column12.Width = 120, ;
		Column13.BackColor = 255,255,255, ;
		Column13.ColumnOrder = 14, ;
		Column13.ControlSource = "contX", ;
		Column13.FontName = "Arial", ;
		Column13.FontSize = 10, ;
		Column13.Name = "Column13", ;
		Column13.ReadOnly = .T., ;
		Column13.Width = 74, ;
		Column14.BackColor = 255,255,255, ;
		Column14.ColumnOrder = 7, ;
		Column14.ControlSource = "contract", ;
		Column14.FontName = "Arial", ;
		Column14.FontSize = 10, ;
		Column14.Name = "Column14", ;
		Column14.ReadOnly = .T., ;
		Column15.BackColor = 255,255,255, ;
		Column15.ControlSource = "datascad", ;
		Column15.FontName = "Arial", ;
		Column15.FontSize = 10, ;
		Column15.Name = "Column15", ;
		Column15.ReadOnly = .T., ;
		Column15.Width = 88
		*< END OBJECT: BaseClass="grid" />

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

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

	ADD OBJECT 'Grid1.Column10.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Debit", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column10.Text1' AS textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column11.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Credit", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column11.Text1' AS textbox WITH ;
		Alignment = 3, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column12.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Partener ", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column12.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column13.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont coresp", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column13.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column14.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Contract", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column14.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column15.Header1' AS header WITH ;
		Caption = "Data scadenta", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column2.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data Inreg.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column2.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column3.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Fel Doc.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column3.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column4.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Data Act", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column4.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column5.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Nr.Doc.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column5.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column6.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Lucrare", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column6.Text1' AS textbox WITH ;
		Alignment = 0, ;
		BackColor = 255,255,255, ;
		BorderColor = 0,0,0, ;
		BorderStyle = 0, ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column7.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Cont", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'Grid1.Column7.Text1' AS textbox WITH ;
		Alignment = 1, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		FontBold = .F., ;
		FontName = "Arial", ;
		FontSize = 10, ;
		ForeColor = 0,0,128, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Visible = .F.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Grid1.Column8.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Sold", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Grid1.Column9.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Doc. coresp.", ;
		FontName = "Arial", ;
		FontSize = 10, ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'Gridextra1' AS gridextra WITH ;
		Left = 45, ;
		Name = "Gridextra1", ;
		Top = 63
		*< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" />

	ADD OBJECT 'Label4' AS label WITH ;
		Anchor = 8, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Credit", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 596, ;
		Name = "Label4", ;
		TabIndex = 23, ;
		Top = 35, ;
		Width = 36, ;
		ZOrderSet = 13
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label5' AS label WITH ;
		Anchor = 8, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Debit", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 469, ;
		Name = "Label5", ;
		TabIndex = 24, ;
		Top = 35, ;
		Width = 32, ;
		ZOrderSet = 14
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Label6' AS label WITH ;
		Anchor = 8, ;
		AutoSize = .T., ;
		BackColor = 255,255,255, ;
		Caption = "Sold", ;
		FontSize = 10, ;
		Height = 18, ;
		Left = 734, ;
		Name = "Label6", ;
		TabIndex = 25, ;
		Top = 35, ;
		Width = 28, ;
		ZOrderSet = 16
		*< END OBJECT: BaseClass="label" />

	ADD OBJECT 'Shape2' AS shape WITH ;
		Anchor = 8, ;
		BackStyle = 0, ;
		Height = 40, ;
		Left = 372, ;
		Name = "Shape2", ;
		SpecialEffect = 0, ;
		Top = 43, ;
		Width = 407, ;
		ZOrderSet = 5
		*< END OBJECT: BaseClass="shape" />

	ADD OBJECT 'Text2' AS textbox WITH ;
		Anchor = 8, ;
		ControlSource = "thisform.nSumaC", ;
		FontSize = 10, ;
		Format = "", ;
		Height = 25, ;
		InputMask = (get_mask(14,gnPa)), ;
		Left = 510, ;
		Name = "Text2", ;
		ReadOnly = .T., ;
		TabIndex = 21, ;
		Top = 53, ;
		Width = 126, ;
		ZOrderSet = 8
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text3' AS textbox WITH ;
		Anchor = 8, ;
		ControlSource = "thisform.nSumaD", ;
		FontSize = 10, ;
		Format = "", ;
		Height = 25, ;
		InputMask = (get_mask(14,gnPa)), ;
		Left = 380, ;
		Name = "Text3", ;
		ReadOnly = .T., ;
		TabIndex = 20, ;
		Top = 53, ;
		Width = 126, ;
		ZOrderSet = 10
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'Text4' AS textbox WITH ;
		Anchor = 8, ;
		ControlSource = "thisform.nSumaSold", ;
		FontSize = 10, ;
		Format = "", ;
		Height = 25, ;
		InputMask = (get_mask(14,gnPa)), ;
		Left = 640, ;
		Name = "Text4", ;
		ReadOnly = .T., ;
		TabIndex = 22, ;
		Top = 53, ;
		Width = 126, ;
		ZOrderSet = 15
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE actualizeaza_grid1
		LPARAMETERS tcFiltru,tcFiltru2
		
		LOCAL lnSoldi, lnSoldf
		
		THISFORM.MOUSEPOINTER= 11
		THISFORM.LOCKSCREEN = .T.
		
		
		IF lcFiltre != ".t."
			save_grid_tag(Thisform.grid1)
			SELECT * from cursor_raport WHERE &lcFiltre INTO CURSOR cursor_temporar READWRITE 
			SELECT * from cursor_temporar INTO CURSOR cursor_raport READWRITE
			thisform.grid1.RecordSource = "cursor_raport"
		
			** calculare si inserare sold initial,sold final/fiece partener:
			STORE 0 TO lnSold_Initial_Total
			STORE 0 TO lnSold_Final_Total
			STORE 1 TO j
			STORE 0 TO sold_final	
			STORE 0 TO lnId_part_curent	
			SELECT cursor_raport
			GO TOP 
				lnId_part_curent = id_part
				SCAN			
					*** sold final calculat: e sold final deabia pe ultima linie corespunzatoare fiecarui partener, in rest (pana acolo) e sold_cumulat
					IF (id_part != lnId_part_curent)
						lnId_part_curent = id_part
						lnSold_Initial_Total = lnSold_Initial_Total + soldi
						lnSold_Final_Total = lnSold_Final_Total + sold_final && intai iau sold_final=soldu de la ultimul, si pe urma bag in variabila: sold_final soldu init al next part 
						sold_final = soldi			
						j = j + 1 && next sold init din vectorul de solduri initiale/parteneri
					ENDIF 			
						*sold_final = IIF(llActiv,sold_final + debit - credit,sold_final - debit + credit)
						sold_final = sold_final + IIF(debit>0,1,-1)*(debit-credit)	
						replace soldf WITH sold_final	
						replace soldi WITH laId_part[j,1]					 
				ENDSCAN 
		
		restore_grid_tag(Thisform.grid1)
		ELSE
			SELECT * from cursor_raport INTO CURSOR cursor_raport_full READWRITE
		ENDIF 
		
		save_grid_tag(THISFORM.grid1)
		pobancasa.ca_baza1.cfiltru=tcFiltru
		pobancasa.ca_baza1.afisare()
		restore_grid_tag(THISFORM.grid1)
		
		
		THISFORM.LOCKSCREEN=.F.
		THISFORM.MOUSEPOINTER= 0
	ENDPROC

	PROCEDURE afisactual
		*!*	EXTERNAL ARRAY laId_part
		
		*!*	LOCAL lcFiltre
		*!*	lcFiltre = ".t."
		
		*!*	IF this.Ck_fel_doc.value = 1 
		*!*		lcFiltre = lcFiltre + this.ck_fel_doc.filtru + " "   &&" AND " + 
		*!*	ENDIF 
		
		*!*	IF this.Ck_contract.value = 1 
		*!*		lcFiltre = lcFiltre + this.Ck_contract.filtru + " " &&+ " AND " 
		*!*	ENDIF 
		
		*!*	IF this.ck_nume.value = 1
		*!*		lcFiltre = lcFiltre + this.ck_nume.filtru + " "  &&+ " AND " 
		*!*	ENDIF 
		
		*!*	IF this.ck_dataact.value = 1
		*!*		lcFiltre = lcFiltre + this.ck_dataact.filtru + " "  &&+ " AND " 
		*!*	ENDIF 
		
		*!*	SELECT cursor_raport
		*!*	**SET FILTER TO &lcFiltre
		
		
		*!*	IF lcFiltre != ".t."
		*!*	save_grid_tag(Thisform.grid1)
		*!*		SELECT * from cursor_raport WHERE &lcFiltre INTO CURSOR cursor_temporar READWRITE 
		*!*		SELECT * from cursor_temporar INTO CURSOR cursor_raport READWRITE
		*!*		thisform.grid1.RecordSource = "cursor_raport"
		
		*!*		** calculare si inserare sold initial,sold final/fiece partener:
		*!*		STORE 0 TO lnSold_Initial_Total
		*!*		STORE 0 TO lnSold_Final_Total
		*!*		STORE 1 TO j
		*!*		STORE 0 TO sold_final	
		*!*		STORE 0 TO lnId_part_curent	
		*!*		SELECT cursor_raport
		*!*		GO TOP 
		*!*			lnId_part_curent = id_part
		*!*			SCAN			
		*!*				*** sold final calculat: e sold final deabia pe ultima linie corespunzatoare fiecarui partener, in rest (pana acolo) e sold_cumulat
		*!*				IF (id_part != lnId_part_curent)
		*!*					lnId_part_curent = id_part
		*!*					lnSold_Initial_Total = lnSold_Initial_Total + soldi
		*!*					lnSold_Final_Total = lnSold_Final_Total + sold_final && intai iau sold_final=soldu de la ultimul, si pe urma bag in variabila: sold_final soldu init al next part 
		*!*					sold_final = soldi			
		*!*					j = j + 1 && next sold init din vectorul de solduri initiale/parteneri
		*!*				ENDIF 			
		*!*					*sold_final = IIF(llActiv,sold_final + debit - credit,sold_final - debit + credit)
		*!*					sold_final = sold_final + IIF(debit>0,1,-1)*(debit-credit)	
		*!*					replace soldf WITH sold_final	
		*!*					replace soldi WITH laId_part[j,1]					 
		*!*			ENDSCAN 
		
		*!*	restore_grid_tag(Thisform.grid1)
		*!*	ELSE
		*!*		SELECT * from cursor_raport INTO CURSOR cursor_raport_full READWRITE
		*!*	ENDIF 
		
		
		
		
		
		
		*!*	SELE cursor_raport
		*!*	sum credit to m.suma 
		*!*	SUM DEBIT TO M.SUMA1
		
		*!*	m.suma2= pnSemn*(m.suma1-m.suma)
		
		*!*	thisform.calcul 
		*!*	THISFORM.GRID1.REFRESH
		*!*	thisform.text2.REFRESH
		*!*	thisform.text3.REFRESH
		*!*	thisform.text4.REFRESH
		
		
	ENDPROC

	PROCEDURE calcul
		LOCAL s1
		s1=0
		
		SELECT cursor_raport
		GO TOP
		SCAN
			s1=s1 + pnSemn*(debit-credit)
			REPLACE soldf WITH s1
		ENDSCAN
		
		SELE cursor_raport
		SUM credit to thisform.nSumaC
		SUM DEBIT TO thisform.nSumaD
		LOCATE 
		thisform.nSumaSold= pnSemn*(thisform.nSumaD-thisform.nSumaC)
		
		thisform.text2.REFRESH
		thisform.text3.REFRESH
		thisform.text4.REFRESH
	ENDPROC

	PROCEDURE do_cauta
		EXTERNAL ARRAY laId_part
		
		LOCAL lcFiltre, lcFiltru
		lcFiltre = [1=1]
		
		IF this.Ck_fel_doc.value = 1 
			lcFiltre = lcFiltre + this.ck_fel_doc.filtru_vfp 
		ENDIF 
		
		IF this.Ck_nract.value = 1 
			lcFiltre = lcFiltre + this.ck_nract.filtru_vfp 
		ENDIF 
		
		IF this.Ck_contract.value = 1 
			lcFiltre = lcFiltre + this.Ck_contract.filtru_vfp 
		ENDIF 
		
		IF this.ck_nume.value = 1
			lcFiltre = lcFiltre + this.ck_nume.filtru_vfp 
		ENDIF 
		
		IF this.Ck_dataact.value = 1
			lcFiltre = lcFiltre + this.Ck_dataact.filtru_vfp 
		ENDIF 
		
		IF this.ck_dataireg.value = 1
			lcFiltre = lcFiltre + this.ck_dataireg.filtru_vfp 
		ENDIF 
		
		IF this.ck_debit.value = 1
			lcFiltre = lcFiltre + this.ck_debit.filtru_vfp 
		ENDIF 
		
		IF this.ck_credit.value = 1
			lcFiltre = lcFiltre + this.ck_credit.filtru_vfp 
		ENDIF 
		
		IF this.ck_soldf.value = 1
			lcFiltre = lcFiltre + this.ck_soldf.filtru_vfp 
		ENDIF 
		
		IF this.ck_perecheX.value = 1
			lcFiltre = lcFiltre + this.ck_perecheX.filtru_vfp 
		ENDIF 
		SET STEP ON 
		IF this.ck_docperecheX.value = 1
			lcFiltru = ALLTRIM(SUBSTR(this.ck_docperecheX.filtru_vfp, 6))
			lcFiltru = " and (" + lcFiltru + " or " + STRTRAN(m.lcFiltru, 'perechex', 'nract',1,5,1) + ")"
		
			lcFiltre = lcFiltre + m.lcFiltru
		ENDIF 
		
		IF this.ck_partX.value = 1
			lcFiltre = lcFiltre + this.ck_partX.filtru_vfp 
		ENDIF 
		
		IF this.ck_contX.value = 1
			lcFiltre = lcFiltre + this.ck_contX.filtru_vfp 
		ENDIF 
		
		IF this.ck_doar_cu_rulaje.value = 1
			lcFiltre = lcFiltre + [ and !(debit=0 and credit=0)]
		ENDIF 
		
		SELECT cursor_raport
		SET FILTER TO &lcFiltre
		
		thisform.calcul 
		
		THISFORM.GRID1.SetFocus 
		
		
	ENDPROC

	PROCEDURE do_excel
		If !Thisform.lactiv1
			Return
		Endif
		
		LOCAL lcsel
		lcsel = thisform.grid1.RecordSource 
		lcFiltru = FILTER(lcSel)
		IF EMPTY(lcFiltru)
			lcFiltru = [1=1]
		ENDIF 
		
		
		lcSelect = [SELECT FEL_DOCUMENT,DATAIREG as DATA_INREG,DATAACT AS DATA_ACT,DATASCAD AS DATA_SCAD,NRACT AS NR_ACT,PART AS PARTENER,NRORD AS LUCRARE,CONTRACT,DEBIT, CREDIT,SOLDF AS SOLD,PERECHEX AS DOC_PERECHE ] +;
					[FROM ] + LCSEL + [ WHERE ] + lcFiltru + [ INTO CURSOR TEXCEL ]
		&lcSelect
		
		lcExcel = gcTempPath + [Situatia_operativa_]+SYS(2)+[.xlsx]
		
		*!*	modificare v 2.0.85
		goExport.export2xlsx([texcel],lcExcel)
		
	ENDPROC

	PROCEDURE do_listare
		Local lcFiltru, lcNumeRpt
		*:Global pcTitlu, pcdataora
		If !Thisform.lactiv2
			Return
		Endif
		
		** construct report:
		pcTitlu = "Titlu"
		
		**cerere titlu:
		Do ceretitlu_raport_v2 With 'Titlul Raportului', 'lcTitlu'
		
		pcdataora = Get_Ora(2)
		**setare wich raport to do: ( singur sau multiplu partener) 
		
		*!*	SELECT cursor_raport
		*!*	IF RECCOUNT()>1
		*!*		GOTO 2  && prima linie contine soldu init; caut sa vad daca e acelasi id_part in toate inreg.
		*!*		lnIdFound = id_part
		*!*		SCAN FOR id_part>0
		*!*			IF id_part != lnIdFound
		*!*				lcNumeRpt = "multi_NEgr"
		*!*			ELSE 
		*!*				lcNumeRpt = "sing"	
		*!*			ENDIF  
		*!*		ENDSCAN 	
		*!*		lcNumeRpt = "sit_oper_" + lcNumeRpt + "_rpt1"
		*!*		SELECT cursor_raport
		*!*		thisform.AlwaysOnTop = .F.
		*!*		Report Format &lcNumeRpt To Printer Prompt Noconsole Preview
		*!*		thisform.AlwaysOnTop = .T.
		*!*	ENDIF 
		pcTitlu = lcTitlu
		lcNumeRpt = "sing"
		lcNumeRpt = "sit_oper_" + lcNumeRpt + "_rpt1"
		*sit_oper_multi_NEgr_rpt1
		lcNumeRpt = "sit_oper_multi_NEgr_rpt1"
		Private pnSoldPrec
		Select cursor_raport
		lcFiltru = Filter('cursor_raport')
		*Set Filter To id_part <> 0
		pnSoldPrec = Iif(pnSemn = 1, debit, credit)
		Thisform.AlwaysOnTop = .F.
		*!* 09.08.2011
		*!*	Report Format &lcNumeRpt To Printer Prompt Noconsole Preview
		goExport.export2frx([cursor_raport], lcNumeRpt, , , , , , .T.)
		*!* 09.08.2011 ^
		Thisform.AlwaysOnTop = .T.
		*Set Filter To (lcFiltru)
		
		
	ENDPROC

	PROCEDURE Init
		Parameters laId_part
		
		DODEFAULT()
		
		*!*	Public s1
		*!*	Store "" To M.NUME,M.NUME_2,M.SCD,M.SCC
		*!*	Store Date() To M.DATAact1,M.DATAact2
		*!*	Store 0 To M.SUMA,M.SUMA1,m.suma2,s1
		*!*	*STORE .F. TO bnume,bnume_2,bscd,BSCC
		*!*	Store .T. To TNUME,TNUME_2,TSCD,TSCC,t16
		
		*!*	If !Empty(gcAcces)
		*!*	&&	format gcAcces = [optiune1];[optiune2];...;[optiuneN]; &&
		*!*		Local lcAcces,lnPozitieS,lnPozitieF,N
		*!*		lnPozitieS=1
		*!*		For i=1 To Occurs([;],gcAcces)
		*!*			lnPozitieF=At([;],gcAcces,i)
		*!*			lcAcces=Substr(gcAcces,lnPozitieS,lnPozitieF-lnPozitieS)
		*!*			lcProp='thisform.lactiv'+Alltrim(lcAcces)
		*!*			If Type(lcProp)<>'U'
		*!*				&lcProp=.T.
		*!*	*!*				lcProp='thisform.cbuton'+Alltrim(lcAcces)
		*!*	*!*				If Type(lcProp)<>'U' And !Empty(&lcProp)
		*!*	*!*	&&	format lcButoane = [nume_buton1];[nume_buton2];...;[nume_butonN]; &&
		*!*	*!*					lcButoane=&lcProp
		*!*	*!*					lnPS=1
		*!*	*!*					lcButoane=Iif(Substr(lcButoane,Len(lcButoane)-1)=[;],lcButoane,lcButoane+[;])
		*!*	*!*					For j=1 To Occurs([;],lcButoane)
		*!*	*!*						lnPF=At([;],lcButoane,j)
		*!*	*!*						lcButon=Substr(lcButoane,lnPS,lnPF-lnPS)
		*!*	*!*						lcProp='thisform.blocbuton1.'+Alltrim(lcButon)+'.visible'
		*!*	*!*						&lcProp=.T.
		*!*	*!*						lnPS=lnPF+1
		*!*	*!*					Endfor
		*!*	*!*				Endif
		*!*			Endif
		*!*			lnPozitieS=lnPozitieF+1
		*!*		Endfor
		*!*	Endif
		
		*!*	With Thisform.blocbuton1
		*!*		If Thisform.lactiv2
		*!*			.list1.Visible=.T.
		*!*		Endif
		*!*	Endwith
		*!*	If Thisform.lactiv1
		*!*		Thisform.excel1.Visible=.T.
		*!*	Endif
		
		Thisform.laId_part = laId_part
		
		Thisform.calcul 
		
		This.Gridextra1.setup()
	ENDPROC

	PROCEDURE Grid1.Column10.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column11.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column2.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column3.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column4.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column5.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column6.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Column7.Text1.RightClick
		do editscurt.mpr
	ENDPROC

	PROCEDURE Grid1.Init
		SELECT cursor_raport
		GO top
	ENDPROC

	PROCEDURE Gridextra1.applyfilter
		DODEFAULT()
		thisform.calcul()
	ENDPROC

	PROCEDURE Gridextra1.clearfilter
		DODEFAULT()
		thisform.calcul()
	ENDPROC

	PROCEDURE Text2.Init
		THIS.FORECOLOR=IIF(this.Value >=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE Text3.Init
		THIS.FORECOLOR=IIF(this.Value >=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

	PROCEDURE Text4.Init
		THIS.FORECOLOR=IIF(this.Value >=0, RGB(0,0,0), RGB(255,0,0))
	ENDPROC

ENDDEFINE
