Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
This commit is contained in:
324
Clase/oblocare.vc2
Normal file
324
Clase/oblocare.vc2
Normal file
@@ -0,0 +1,324 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (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
|
||||
Reference in New Issue
Block a user