*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="oblocare.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS frm_viz_blocate AS formtermin 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="grdPrograme" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdPrograme.Column1.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdPrograme.Column1.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdLuni" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdLuni.cLunaAn.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdLuni.cLunaAn.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdLuni.cBlocat.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdLuni.cBlocat.Check1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdLuni.cUtilizator.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdLuni.cUtilizator.Text1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdLuni.cDataOra.Header1" UniqueID="" Timestamp="" />
	*< OBJECTDATA: ObjPath="grdLuni.cDataOra.Text1" UniqueID="" Timestamp="" />

	*<DefinedPropArrayMethod>
		*m: istoricblocare
		*m: refresh_luni
		*m: update_luni
		*p: nide_program
	*</DefinedPropArrayMethod>

	*<PropValue>
		BorderStyle = 3
		DoCreate = .T.
		Height = 408
		Name = "frm_viz_blocate"
		nide_program = 0
		Width = 788
		_memberdata = <VFPData>
			<memberdata name="istoricblocare" display="IstoricBlocare"/>
		</VFPData>
		_shape1.Anchor = 10
		_shape1.Height = 29
		_shape1.Left = 0
		_shape1.Name = "_shape1"
		_shape1.Top = 0
		_shape1.Width = 792
		_shape2.Anchor = 8
		_shape2.Height = 29
		_shape2.Left = 750
		_shape2.Name = "_shape2"
		_shape2.Top = 0
		_shape2.Width = 39
		Lb_titlu_alb_b121.Caption = "Luni blocate "
		Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
		BUT_TERMIN1.Anchor = 8
		BUT_TERMIN1.Left = 755
		BUT_TERMIN1.Name = "BUT_TERMIN1"
		BUT_TERMIN1.Top = 0
		Gridsort1.Name = "Gridsort1"
	*</PropValue>

	ADD OBJECT 'grdLuni' AS _grdbase WITH ;
		Anchor = 15, ;
		ColumnCount = 4, ;
		DeleteMark = .F., ;
		Height = 360, ;
		HighlightStyle = 2, ;
		Left = 344, ;
		Name = "grdLuni", ;
		Panel = 1, ;
		ReadOnly = .F., ;
		RecordSource = "crslunian", ;
		ScrollBars = 2, ;
		ToolTipText = "Click pe o linie pentru afisare istoric blocari/deblocari", ;
		Top = 36, ;
		Width = 443, ;
		Column1.Alignment = 2, ;
		Column1.ControlSource = "padl(alltrim(str(luna)),2,'0') + '/' + alltrim(str(an))", ;
		Column1.Name = "cLunaAn", ;
		Column1.ReadOnly = .T., ;
		Column1.Visible = .T., ;
		Column1.Width = 91, ;
		Column2.Alignment = 2, ;
		Column2.ControlSource = "blocat", ;
		Column2.Name = "cBlocat", ;
		Column2.ReadOnly = .F., ;
		Column2.Sparse = .F., ;
		Column2.Visible = .T., ;
		Column2.Width = 67, ;
		Column3.ControlSource = "utilizator", ;
		Column3.Name = "cUtilizator", ;
		Column3.ReadOnly = .T., ;
		Column3.Width = 136, ;
		Column4.ControlSource = "dataora", ;
		Column4.Name = "cDataOra", ;
		Column4.ReadOnly = .T., ;
		Column4.Width = 112
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'grdLuni.cBlocat.Check1' AS checkbox WITH ;
		Alignment = 0, ;
		Caption = "", ;
		Centered = .T., ;
		Height = 17, ;
		Left = 30, ;
		Name = "Check1", ;
		ReadOnly = .F., ;
		Top = 71, ;
		Visible = .T., ;
		Width = 60
		*< END OBJECT: BaseClass="checkbox" />

	ADD OBJECT 'grdLuni.cBlocat.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Blocat", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdLuni.cDataOra.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Dataora", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdLuni.cLunaAn.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Luna/an", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdLuni.cLunaAn.Text1' AS textbox WITH ;
		Alignment = 2, ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1", ;
		ReadOnly = .T., ;
		Visible = .T.
		*< END OBJECT: BaseClass="textbox" />

	ADD OBJECT 'grdLuni.cUtilizator.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Utilizator", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

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

	ADD OBJECT 'grdPrograme' AS _grdbase WITH ;
		Anchor = 5, ;
		ColumnCount = 1, ;
		DeleteMark = .F., ;
		Height = 360, ;
		HighlightStyle = 2, ;
		Left = 12, ;
		Name = "grdPrograme", ;
		Panel = 1, ;
		RecordSource = "crsprograme", ;
		ScrollBars = 2, ;
		Top = 36, ;
		Width = 312, ;
		Column1.ControlSource = "denumire", ;
		Column1.Name = "Column1", ;
		Column1.Width = 279
		*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />

	ADD OBJECT 'grdPrograme.Column1.Header1' AS header WITH ;
		Alignment = 2, ;
		Caption = "Programe", ;
		Name = "Header1"
		*< END OBJECT: BaseClass="header" />

	ADD OBJECT 'grdPrograme.Column1.Text1' AS textbox WITH ;
		BackColor = 255,255,255, ;
		BorderStyle = 0, ;
		ForeColor = 0,0,0, ;
		Margin = 0, ;
		Name = "Text1"
		*< END OBJECT: BaseClass="textbox" />
	
	PROCEDURE Init
		DODEFAULT()
		this.update_luni()
		this.refresh_luni()
		This.grdLuni.SetAll('DynamicForeColor','IIF(blocat = 1, RGB(0,0,0),RGB(0,0,255))','Column')
		
	ENDPROC

	PROCEDURE istoricblocare
		PARAMETERS pnIdeProgram, pnAn, pnLuna
		
		Local lcSql, lcText, llSucces, lcSelect
		lcText = ''
		lcSelect = SELECT()
		TEXT TO lcSql NOSHOW 
		select b.blocat,
		       l1.id_program,
		       l1.an,
		       l1.luna,
		       l1.id_util,
		       u.utilizator,
		       l1.stare,
		       l1.dataora
		  from blocatprogramluni b
		  join (select l.id_log,
		               to_number(substr(l.id_tabel, 1, 1)) as id_program,
		               to_number(substr(l.id_tabel, 2, 4)) as an,
		               to_number(substr(l.id_tabel, 6, 2)) as luna,
		               l.tabel,
		               l.id_tabel,
		               l.camp,
		               l.ID_UTIL,
		               DECODE(VALOAREN, 1, 'BLOCAT', 'DEBLOCAT') AS STARE,
		               l.dataora
		          from LOG l) l1
		    on l1.ID_TABEL = b.ide_program || b.an || lpad(b.luna, 2, '0')
		   and l1.tabel = 'BLOCATPROGRAMLUNI'
		   and l1.camp = 'BLOCAT'
		  join syn_utilizatori u
		    on l1.id_util = u.id_util
		 where b.an = ?pnAn
		   and b.luna = ?pnLuna
		   and b.ide_program = ?pnIdeProgram
		   and u.utilizator not in ('SUPERVIZOR', 'ELI')
		 ORDER BY l1.dataora;
		ENDTEXT 
		
		llSucces = goexecutor.oExecuta(lcSql, 'crsIstoricBlocare')
		IF llSucces
			SELECT crsIstoricBlocare
			SCAN
				lcText = lcText + PADR(ALLTRIM(utilizator), 30, ' ') + ' ' + stare + ' ' + TTOC(dataora) + IIF(RECNO() <> RECCOUNT(), CHR(13) + CHR(10) + CHR(13) + CHR(10), '')
			ENDSCAN
			IF !EMPTY(lcText)
				lctext = 'ISTORIC LUNA ' + PADL(m.pnLuna, 2, '0') +'/' + ALLTRIM(STR(m.pnAn)) + CHR(13) + CHR(10) + CHR(13) + CHR(10) + m.lcText
			ENDIF 
			USE IN (SELECT('crsIstoricBlocare'))
		ENDIF
		
		SELECT(m.lcSelect)
		RETURN m.lcText
	ENDPROC

	PROCEDURE refresh_luni
		thisform.LockScreen = .T.
		PRIVATE pnIde_Program
		pnIde_Program = crsPrograme.ide_program
		
		lcFiltru = "ide_program = ?pnIde_Program"
		save_grid_comment(this.grdLuni)
		
		poBlocat.ca_baza1.cFiltru = lcFiltru
		
		restore_grid_comment(this.grdLuni)
		
		this.grdluni.Refresh 
		thisform.LockScreen = .F.
	ENDPROC

	PROCEDURE update_luni
		LOCAL lcSql, lnSucces
		
		lcsql = "BEGIN PACK_FIRMA.INSERT_IN_LUNI_BLOCATE(?gcS); END;"
		lnSucces = goExecutor.oExecute(lcSql)
		IF lnSucces < 0
			aMESSAGEBOX(goExecutor.cEroare, 0+16, 'Eroare')
		ENDIF 
	ENDPROC

	PROCEDURE grdLuni.AfterRowColChange
		LPARAMETERS nColIndex
		IF INLIST(nColIndex,1,3) 
			this.ToolTipText = Thisform.IstoricBlocare(crslunian.ide_program, crslunian.an, crslunian.luna)
		ENDIF 	
	ENDPROC

	PROCEDURE grdLuni.cBlocat.Check1.InteractiveChange
		
		
		
	ENDPROC

	PROCEDURE grdLuni.cBlocat.Check1.Valid
		PRIVATE pnAn, pnLuna, pnBlocat
		pnAn = crsLuniAn.an
		pnLuna = crsLuniAn.luna
		pnIde_Program = crsPrograme.Ide_program
		pnBlocat = crsLuniAn.blocat
		lcSql = "BEGIN PACK_FIRMA.UPDATE_LUNI_BLOCATE(?gcS, ?pnIde_Program, ?pnAn, ?pnLuna, ?pnBlocat); END;"
		lnSucces=goExecutor.oExecute(lcSql)
		IF lnSucces < 0
			aMESSAGEBOX(goExecutor.cEroare,0+16,'Eroare')
		ENDIF 
	ENDPROC

	PROCEDURE grdPrograme.AfterRowColChange
		LPARAMETERS nColIndex
		
		IF INLIST(THIS.ROWCOLCHANGE, 1, 3)
			thisform.refresh_luni()
		ENDIF
		
		
		
	ENDPROC

ENDDEFINE