Marius Mutu
77e98d73e9
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
325 lines
9.6 KiB
Plaintext
325 lines
9.6 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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
|