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:
BIN
Clase/cont2000COPY.vcx
Normal file
BIN
Clase/cont2000COPY.vcx
Normal file
Binary file not shown.
229
Clase/ferestre_roadef.vc2
Normal file
229
Clase/ferestre_roadef.vc2
Normal file
@@ -0,0 +1,229 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="ferestre_roadef.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS frm_log_redeschid 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="grid_log_redeschid" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column1.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column1.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column2.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column2.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column3.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column3.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column4.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column4.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column5.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column5.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column6.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_log_redeschid.Column6.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="_COMBOBOX1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 3
|
||||
DoCreate = .T.
|
||||
Height = 386
|
||||
Name = "frm_log_redeschid"
|
||||
Width = 489
|
||||
_shape1.Anchor = 11
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 600
|
||||
_shape2.Anchor = 9
|
||||
_shape2.Left = 438
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Top = 0
|
||||
Lb_titlu_alb_b121.Caption = "Istoric deschideri/redeschideri de luna"
|
||||
Lb_titlu_alb_b121.Left = 6
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Anchor = 9
|
||||
BUT_TERMIN1.Left = 458
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.Top = 1
|
||||
Gridsort1.Left = 264
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
Gridsort1.Top = 12
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT '_COMBOBOX1' AS _combobox WITH ;
|
||||
Height = 24, ;
|
||||
Left = 6, ;
|
||||
Name = "_COMBOBOX1", ;
|
||||
RowSource = "crsLog_luni", ;
|
||||
RowSourceType = 2, ;
|
||||
Top = 36, ;
|
||||
Width = 138
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="combobox" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid' AS _grdrow WITH ;
|
||||
Anchor = 15, ;
|
||||
ColumnCount = 6, ;
|
||||
DeleteMark = .F., ;
|
||||
Height = 312, ;
|
||||
Left = 6, ;
|
||||
Name = "grid_log_redeschid", ;
|
||||
Panel = 1, ;
|
||||
RecordSource = "crsLog_redeschid", ;
|
||||
Top = 66, ;
|
||||
Width = 474, ;
|
||||
Column1.ControlSource = "anul", ;
|
||||
Column1.Name = "Column1", ;
|
||||
Column1.Width = 39, ;
|
||||
Column2.ControlSource = "luna", ;
|
||||
Column2.Name = "Column2", ;
|
||||
Column2.Width = 37, ;
|
||||
Column3.ColumnOrder = 5, ;
|
||||
Column3.ControlSource = "utilizator", ;
|
||||
Column3.Name = "Column3", ;
|
||||
Column3.Width = 96, ;
|
||||
Column4.ColumnOrder = 3, ;
|
||||
Column4.ControlSource = "dataora", ;
|
||||
Column4.Name = "Column4", ;
|
||||
Column4.Width = 96, ;
|
||||
Column5.ColumnOrder = 6, ;
|
||||
Column5.ControlSource = "program", ;
|
||||
Column5.Name = "Column5", ;
|
||||
Column5.Width = 74, ;
|
||||
Column6.ColumnOrder = 4, ;
|
||||
Column6.ControlSource = 'iif(crsLog_redeschid.deschid=1,"Deschidere luna","Redeschidere luna")', ;
|
||||
Column6.Name = "Column6", ;
|
||||
Column6.Width = 91
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column1.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Anul", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column1.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column2.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Luna", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column2.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column3.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Utilizator", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column3.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column4.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Dataora", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column4.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column5.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Program", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column5.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column6.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Operatie", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_log_redeschid.Column6.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE actualizeaza_grid1
|
||||
LPARAMETERS pcFiltru
|
||||
|
||||
LOCAL lcFiltru
|
||||
lcFiltru = pcFiltru
|
||||
|
||||
*!* IF EMPTY(lcFiltru)
|
||||
*!* lcFiltru = poLog_redeschid.ca_baza1.cfiltru
|
||||
*!* ENDIF
|
||||
|
||||
save_grid_tag(THIS.grid_log_redeschid)
|
||||
poLog_redeschid.ca_baza1.cfiltru = lcFiltru
|
||||
poLog_redeschid.ca_baza1.afisare()
|
||||
restore_grid_tag(THIS.grid_log_redeschid)
|
||||
|
||||
This.grid_log_redeschid.Refresh
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_cauta
|
||||
Local lcFiltru
|
||||
lcFiltru = ""
|
||||
|
||||
lcAliasPerioada = This._cOMBOBOX1.RowSource
|
||||
Select (lcAliasPerioada)
|
||||
If !Empty(anul) And !Empty(luna)
|
||||
lcFiltru = lcFiltru + [ anul = ] + Alltrim(Str(anul)) + [ and luna = ] + Alltrim(Str(luna))
|
||||
ENDIF
|
||||
|
||||
This.actualizeaza_grid1(lcFiltru)
|
||||
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Show
|
||||
LPARAMETERS nStyle
|
||||
|
||||
this._cOMBOBOX1.Value="<Toate inregistrarile>"
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE _COMBOBOX1.Valid
|
||||
thisform.do_cauta()
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
3939
Clase/oOptiuni.vc2
Normal file
3939
Clase/oOptiuni.vc2
Normal file
File diff suppressed because it is too large
Load Diff
915
Clase/oasociere.vc2
Normal file
915
Clase/oasociere.vc2
Normal file
@@ -0,0 +1,915 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="oasociere.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS cus_odata_parteneri_gestiuni AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
|
||||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
#INCLUDE "..\program files\microsoft visual foxpro 8\foxpro.h"
|
||||
*<PropValue>
|
||||
Name = "cus_odata_parteneri_gestiuni"
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE make_sql
|
||||
Lparameters toRec,tnId
|
||||
lcActiune = Alltrim(This.cActiune)
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||||
Return .F.
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||||
Return .F.
|
||||
Endif
|
||||
|
||||
lcId = Iif(InList(lcActiune, 'UPDATE', 'DELETE'), Alltrim(Str(tnId)), 'NULL')
|
||||
If InList(lcActiune, 'INSERT', 'UPDATE')
|
||||
lcId_part = Iif(Nvl(toRec.id_part,0) = 0, 'NULL',Alltrim(Str(toRec.id_part)))
|
||||
lcId_gestiune = Iif(Nvl(toRec.id_gestiune,0) = 0, 'NULL',Alltrim(Str(toRec.id_gestiune)))
|
||||
lcCont = Iif(IsNull(toRec.cont), '',Alltrim(toRec.cont))
|
||||
EndIf
|
||||
|
||||
|
||||
Do Case
|
||||
Case InList(lcActiune, "INSERT", 'UPDATE')
|
||||
lcSql = [begin pack_def.asociere_part_gest(]+lcId+[,]+lcId_part+[,]+lcId_gestiune+[,'] + lcCont + [',] + ALLTRIM(Str(gnIdUtil))+[,]+ALLTRIM(STR(pnTip_asociere))+[); end;]
|
||||
Case lcActiune = "DELETE"
|
||||
lcSql = [begin pack_def.sterge_asociere_part_gest(]+lcId+[); end;]
|
||||
Endcase
|
||||
|
||||
This.csql = lcSql
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS cus_odata_parteneri_sectii AS _cusodatabase OF "..\comun\clase\_cus_odata_base.vcx"
|
||||
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
#INCLUDE "..\program files\microsoft visual foxpro 8\foxpro.h"
|
||||
*<PropValue>
|
||||
Name = "cus_odata_parteneri_sectii"
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE make_sql
|
||||
Lparameters toRec,tnId
|
||||
lcActiune = Alltrim(This.cActiune)
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'INSERT') And Type('toRec') != "O"
|
||||
Return .F.
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'DELETE') And Type('tnId') != "N"
|
||||
Return .F.
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'DELETE')
|
||||
lcId = Alltrim(Str(tnId))
|
||||
*!* lcnom = gcS + ".nom_valute"
|
||||
*!* lcamp = "nom_valute.id_valuta"
|
||||
*!* lclook = gcS + ".act"
|
||||
*!* lclookid = "act.id_valuta"
|
||||
Endif
|
||||
|
||||
If Inlist(lcActiune, "UPDATE",'INSERT')
|
||||
lcId_part = Nvl(Alltrim(Str(toRec.id_part)),"")
|
||||
lcId_sectie = Nvl(Alltrim(Str(toRec.id_sectie)),"")
|
||||
Endif
|
||||
|
||||
|
||||
Do Case
|
||||
Case lcActiune = "INSERT"
|
||||
lcSql = [begin pack_def.adauga_asociere_part_sect(]+lcId_part+[,]+lcId_sectie+[,]+ALLTRIM(Str(gnIdUtil))+[,]+ALLTRIM(STR(pnTip_asociere))+[); end;]
|
||||
Case lcActiune = "UPDATE"
|
||||
lcSql = [begin pack_def.modifica_asociere_part_sect(]+lcId+[,]+lcId_part+[,]+lcId_sectie+[,]+ALLTRIM(Str(gnIdUtil))+[); end;]
|
||||
Case lcActiune = "DELETE"
|
||||
lcSql = [begin pack_def.sterge_asociere_part_sect(]+lcId+[); end;]
|
||||
Endcase
|
||||
|
||||
This.csql = lcSql
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_parteneri_gestiuni 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="grid_asociere" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.cPartener.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.cPartener.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.cGestiune.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.cGestiune.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.cCont.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.cCont.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
cgridsortlist = grid_asociere
|
||||
DoCreate = .T.
|
||||
Height = 391
|
||||
Name = "frm_parteneri_gestiuni"
|
||||
Width = 429
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 444
|
||||
_shape2.Height = 29
|
||||
_shape2.Left = 247
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Top = 0
|
||||
_shape2.Width = 182
|
||||
Lb_titlu_alb_b121.Caption = "Asociere entit<69><74>i - gestiuni"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Left = 399
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.Top = 1
|
||||
Gridsort1.Left = 12
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
Gridsort1.Top = 12
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
||||
Left = 368, ;
|
||||
Name = "But_excel1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_listare1' AS but_listare WITH ;
|
||||
Left = 339, ;
|
||||
Name = "But_listare1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||||
Left = 279, ;
|
||||
Name = "But_modifica1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||||
Left = 249, ;
|
||||
Name = "But_nou1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||||
Left = 309, ;
|
||||
Name = "But_sterge1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'grid_asociere' AS _grdrow WITH ;
|
||||
ColumnCount = 3, ;
|
||||
DeleteMark = .F., ;
|
||||
Height = 336, ;
|
||||
Left = 12, ;
|
||||
Name = "grid_asociere", ;
|
||||
Panel = 1, ;
|
||||
RecordSource = "crsAsociere", ;
|
||||
Top = 41, ;
|
||||
Width = 408, ;
|
||||
Column1.ColumnOrder = 2, ;
|
||||
Column1.ControlSource = "denumire", ;
|
||||
Column1.Name = "cPartener", ;
|
||||
Column1.Width = 155, ;
|
||||
Column2.ColumnOrder = 3, ;
|
||||
Column2.ControlSource = "nume_gestiune", ;
|
||||
Column2.Name = "cGestiune", ;
|
||||
Column2.Width = 165, ;
|
||||
Column3.ColumnOrder = 1, ;
|
||||
Column3.ControlSource = "cont", ;
|
||||
Column3.Name = "cCont", ;
|
||||
Column3.Width = 52
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.cCont.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Cont", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.cCont.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.cGestiune.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Gestiune", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.cGestiune.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.cPartener.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Entitate", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.cPartener.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE actualizeaza_grid1
|
||||
LPARAMETERS pcFiltru
|
||||
LOCAL lcFiltru
|
||||
lcFiltru=pcFiltru
|
||||
IF EMPTY(lcFiltru)
|
||||
lcFiltru=poAsociere.ca_baza1.cfiltru
|
||||
ENDIF
|
||||
save_grid_tag(thisform.grid_asociere)
|
||||
poAsociere.ca_baza1.cfiltru=lcFiltru
|
||||
poAsociere.ca_baza1.afisare()
|
||||
restore_grid_tag(thisform.grid_asociere)
|
||||
|
||||
*!* IF RECCOUNT('v_sucursale')>0
|
||||
*!* thisform._gnom_sucursale.SetFocus()
|
||||
*!* ELSE
|
||||
*!* thisform.lb_nom_sucursale.SetFocus()
|
||||
*!* ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_adauga
|
||||
SELECT crsAsociere
|
||||
SCATTER NAME loRec blank
|
||||
DO Adauga_Modifica_Inregistrare WITH "parteneri_gestiuni",loRec,,"INSERT"
|
||||
this.actualizeaza_grid1()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_modifica
|
||||
Select crsAsociere
|
||||
Scatter Name loRec
|
||||
Do Adauga_Modifica_Inregistrare With "parteneri_gestiuni",loRec,loRec.id_asociere,"UPDATE"
|
||||
thisform.actualizeaza_grid1()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_sterge
|
||||
SELECT crsAsociere
|
||||
SCATTER NAME lorec
|
||||
llSucces = STERGE_INREGISTRARE("parteneri_gestiuni",loRec.id_asociere)
|
||||
If llSucces
|
||||
this.actualizeaza_grid1()
|
||||
EndIf
|
||||
this.grid_asociere.SetFocus()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_excel
|
||||
DO export_excel_grid WITH thisform.grid_asociere
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_listare
|
||||
thisform.AlwaysOnTop = .F.
|
||||
|
||||
PRIVATE pcDataOra, pcTitlu
|
||||
pcDataOra = get_ora(2)
|
||||
pcTitlu = "Asociere entitati - gestiuni"
|
||||
|
||||
LOCAL lcTabel
|
||||
lcTabel = this.grid_asociere.RecordSource
|
||||
|
||||
SELECT (lcTabel)
|
||||
REPORT FORM rAsociere_part_gest.frx TO PRINTER PROMPT PREVIEW
|
||||
thisform.AlwaysOnTop = .T.
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_parteneri_gestiuni_nou 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="Ct_clb_partener" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Ct_clb_gestiune" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Clb_cont" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Cus_odata_parteneri_gestiuni1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: do_cauta_gestiune
|
||||
*m: do_cauta_partener
|
||||
*p: nid
|
||||
*p: orec
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 1
|
||||
DoCreate = .T.
|
||||
Height = 137
|
||||
Name = "frm_parteneri_gestiuni_nou"
|
||||
nid = .F.
|
||||
orec = .F.
|
||||
Width = 290
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 684
|
||||
_shape2.Height = 29
|
||||
_shape2.Left = 533
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Top = -1
|
||||
_shape2.Width = 66
|
||||
Lb_titlu_alb_b121.Caption = "Partener - gestiune"
|
||||
Lb_titlu_alb_b121.Left = 6
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
Lb_titlu_alb_b121.TabIndex = 5
|
||||
BUT_TERMIN1.Left = 260
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.TabIndex = 3
|
||||
BUT_TERMIN1.Top = 0
|
||||
Gridsort1.Left = 156
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
Gridsort1.Top = 0
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
|
||||
Left = 229, ;
|
||||
Name = "BUT_RENUNT1", ;
|
||||
TabIndex = 4, ;
|
||||
Top = 0
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Clb_cont' AS clb_tx_simplu WITH ;
|
||||
Height = 29, ;
|
||||
Left = 7, ;
|
||||
Name = "Clb_cont", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 42, ;
|
||||
Width = 125, ;
|
||||
Text_simplu1.ControlSource = "porec.cont", ;
|
||||
Text_simplu1.Format = "!K", ;
|
||||
Text_simplu1.Height = 23, ;
|
||||
Text_simplu1.Left = 64, ;
|
||||
Text_simplu1.Name = "Text_simplu1", ;
|
||||
Text_simplu1.Top = 3, ;
|
||||
Text_simplu1.Width = 57, ;
|
||||
Lb_simplu1.Caption = "Cont", ;
|
||||
Lb_simplu1.Name = "Lb_simplu1"
|
||||
*< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Ct_clb_gestiune' AS ct_clb_cautare WITH ;
|
||||
cconditie = empty(nvl(poRec.id_gestiune,0)), ;
|
||||
cprocedura = thisform.do_cauta_gestiune, ;
|
||||
cvar_afisata = poRec.nume_gestiune, ;
|
||||
Height = 31, ;
|
||||
Left = 6, ;
|
||||
Name = "Ct_clb_gestiune", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 97, ;
|
||||
Width = 281, ;
|
||||
IMG_CAUTARE.Left = 259, ;
|
||||
IMG_CAUTARE.Name = "IMG_CAUTARE", ;
|
||||
IMG_CAUTARE.Top = 5, ;
|
||||
CLB_TX_CAUTARE.Height = 29, ;
|
||||
CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Gestiune", ;
|
||||
CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||||
CLB_TX_CAUTARE.Left = 1, ;
|
||||
CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ;
|
||||
CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 63, ;
|
||||
CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||||
CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ;
|
||||
CLB_TX_CAUTARE.Top = 1, ;
|
||||
CLB_TX_CAUTARE.Width = 252
|
||||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Ct_clb_partener' AS ct_clb_cautare WITH ;
|
||||
cconditie = empty(nvl(poRec.id_part,0)), ;
|
||||
cprocedura = thisform.do_cauta_partener, ;
|
||||
cvar_afisata = poRec.denumire, ;
|
||||
Height = 31, ;
|
||||
Left = 6, ;
|
||||
Name = "Ct_clb_partener", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 69, ;
|
||||
Width = 281, ;
|
||||
img_cautare.Left = 259, ;
|
||||
img_cautare.Name = "img_cautare", ;
|
||||
img_cautare.Top = 5, ;
|
||||
clb_tx_cautare.Height = 29, ;
|
||||
clb_tx_cautare.Lb_simplu1.Caption = "Partener", ;
|
||||
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
|
||||
clb_tx_cautare.Left = 1, ;
|
||||
clb_tx_cautare.Name = "clb_tx_cautare", ;
|
||||
clb_tx_cautare.Text_simplu1.Left = 62, ;
|
||||
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
|
||||
clb_tx_cautare.Text_simplu1.Top = 3, ;
|
||||
clb_tx_cautare.Top = 1, ;
|
||||
clb_tx_cautare.Width = 251
|
||||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Cus_odata_parteneri_gestiuni1' AS cus_odata_parteneri_gestiuni WITH ;
|
||||
Left = 180, ;
|
||||
Name = "Cus_odata_parteneri_gestiuni1", ;
|
||||
Top = 0
|
||||
*< END OBJECT: ClassLib="oasociere.vcx" BaseClass="custom" />
|
||||
|
||||
PROCEDURE do_cauta_gestiune
|
||||
Local loCauta
|
||||
loCauta = caut_gestiune()
|
||||
If !Empty(Nvl(loCauta.id_gestiune,0))
|
||||
poRec.id_gestiune = loCauta.id_gestiune
|
||||
poRec.nume_gestiune = Alltrim(loCauta.nume_gestiune)
|
||||
Thisform.ct_clb_gestiune.Refresh()
|
||||
Else
|
||||
poRec.id_gestiune = Null
|
||||
poRec.nume_gestiune = []
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_cauta_partener
|
||||
Local loCauta
|
||||
loCauta=caut_partener()
|
||||
If !Empty(Nvl(loCauta.id_part,0))
|
||||
poRec.id_part = loCauta.id_part
|
||||
poRec.denumire = Alltrim(loCauta.denumire)
|
||||
Thisform.ct_clb_partener.Refresh()
|
||||
Else
|
||||
poRec.id_part = Null
|
||||
poRec.denumire = []
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_termin
|
||||
Private pnExistaGestiune, pnExistaPartener
|
||||
Local PLRETURN
|
||||
|
||||
Do Case
|
||||
Case Empty(porec.id_part) Or Isnull(porec.id_part)
|
||||
amessagebox('Nu ati completat partenerul!',0+48,"Atentie")
|
||||
Thisform.ct_clb_partener.SetFocus()
|
||||
PLRETURN=.F.
|
||||
Case Empty(porec.id_gestiune) Or Isnull(porec.id_gestiune)
|
||||
amessagebox('Nu ati completat gestiunea!',0+48,"Atentie")
|
||||
Thisform.ct_clb_sectie.SetFocus()
|
||||
PLRETURN=.F.
|
||||
Otherwise
|
||||
If Alltrim(Upper(This.cus_odata_parteneri_gestiuni1.cactiune))="INSERT" ;
|
||||
Or (Alltrim(Upper(This.cus_odata_parteneri_gestiuni1.cactiune))="UPDATE")
|
||||
|
||||
pnExistaGestiune = 0
|
||||
*!* pnExistaPartener = 0
|
||||
*!* lcSql = [select Count(*) from asociere_parteneri_gestiuni where cont = '] + Alltrim(porec.Cont) + [' and id_part = ] + Alltrim(Str(porec.id_part))
|
||||
*!* lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaPartener)
|
||||
|
||||
lcSql = [select Count(*) from asociere_parteneri_gestiuni where id_gestiune = ] + Alltrim(Str(porec.id_gestiune))
|
||||
lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaGestiune)
|
||||
|
||||
|
||||
If pnExistaGestiune <> 0
|
||||
|
||||
*!* If pnExistaGestiune <> 0
|
||||
amessagebox('Mai exista aceasta gestiune inregistrata!',0+48,"Atentie")
|
||||
Thisform.ct_clb_gestiune.SetFocus()
|
||||
PLRETURN=.F.
|
||||
*!* Else
|
||||
*!* If pnExistaPartener <> 0
|
||||
*!* amessagebox('Mai exista acest partener inregistrat!',0+48,"Atentie")
|
||||
*!* Thisform.ct_clb_partener.SetFocus()
|
||||
*!* PLRETURN=.F.
|
||||
*!* Endif
|
||||
*!* Endif
|
||||
Else
|
||||
PLRETURN=This.cus_odata_parteneri_gestiuni1.salvare(This.OREC,This.NID)
|
||||
Endif
|
||||
Endif
|
||||
|
||||
Endcase
|
||||
|
||||
Return PLRETURN
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
LPARAMETERS toRec, tnId, tcActiune
|
||||
|
||||
DODEFAULT()
|
||||
|
||||
this.orec= toRec
|
||||
this.nid = tnId
|
||||
this.cus_odata_parteneri_gestiuni1.cactiune = tcActiune
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_parteneri_sectii 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="grid_asociere" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.Column1.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.Column1.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.Column2.Header1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="grid_asociere.Column2.Text1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_nou1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_modifica1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_sterge1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="But_excel1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<PropValue>
|
||||
BorderStyle = 3
|
||||
DoCreate = .T.
|
||||
Height = 391
|
||||
Name = "frm_parteneri_sectii"
|
||||
Width = 400
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 410
|
||||
_shape2.Height = 29
|
||||
_shape2.Left = 216
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Top = 0
|
||||
_shape2.Width = 182
|
||||
Lb_titlu_alb_b121.Caption = "Asociere entit<69><74>i - sec<65>ii"
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
BUT_TERMIN1.Left = 369
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.Top = 1
|
||||
Gridsort1.Left = 12
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
Gridsort1.Top = 12
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'But_excel1' AS but_excel WITH ;
|
||||
Left = 338, ;
|
||||
Name = "But_excel1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_listare1' AS but_listare WITH ;
|
||||
Left = 309, ;
|
||||
Name = "But_listare1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||||
Left = 249, ;
|
||||
Name = "But_modifica1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_nou1' AS but_nou WITH ;
|
||||
Left = 219, ;
|
||||
Name = "But_nou1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'But_sterge1' AS but_sterge WITH ;
|
||||
Left = 279, ;
|
||||
Name = "But_sterge1", ;
|
||||
Top = 1
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'grid_asociere' AS _grdrow WITH ;
|
||||
ColumnCount = 2, ;
|
||||
DeleteMark = .F., ;
|
||||
Height = 336, ;
|
||||
Left = 12, ;
|
||||
Name = "grid_asociere", ;
|
||||
Panel = 1, ;
|
||||
RecordSource = "crsAsociere", ;
|
||||
Top = 41, ;
|
||||
Width = 375, ;
|
||||
Column1.ColumnOrder = 1, ;
|
||||
Column1.ControlSource = "denumire", ;
|
||||
Column1.Name = "Column1", ;
|
||||
Column1.Width = 155, ;
|
||||
Column2.ColumnOrder = 2, ;
|
||||
Column2.ControlSource = "sectie", ;
|
||||
Column2.Name = "Column2", ;
|
||||
Column2.Width = 182
|
||||
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.Column1.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Entitate", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.Column1.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.Column2.Header1' AS header WITH ;
|
||||
Alignment = 2, ;
|
||||
Caption = "Sectie", ;
|
||||
Name = "Header1"
|
||||
*< END OBJECT: BaseClass="header" />
|
||||
|
||||
ADD OBJECT 'grid_asociere.Column2.Text1' AS textbox WITH ;
|
||||
BackColor = 255,255,255, ;
|
||||
BorderStyle = 0, ;
|
||||
ForeColor = 0,0,0, ;
|
||||
Margin = 0, ;
|
||||
Name = "Text1"
|
||||
*< END OBJECT: BaseClass="textbox" />
|
||||
|
||||
PROCEDURE actualizeaza_grid1
|
||||
LPARAMETERS pcFiltru
|
||||
LOCAL lcFiltru
|
||||
lcFiltru=pcFiltru
|
||||
IF EMPTY(lcFiltru)
|
||||
lcFiltru=poAsociere.ca_baza1.cfiltru
|
||||
ENDIF
|
||||
save_grid_tag(thisform.grid_asociere)
|
||||
poAsociere.ca_baza1.cfiltru=lcFiltru
|
||||
poAsociere.ca_baza1.afisare()
|
||||
restore_grid_tag(thisform.grid_asociere)
|
||||
|
||||
*!* IF RECCOUNT('v_sucursale')>0
|
||||
*!* thisform._gnom_sucursale.SetFocus()
|
||||
*!* ELSE
|
||||
*!* thisform.lb_nom_sucursale.SetFocus()
|
||||
*!* ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_adauga
|
||||
SELECT crsAsociere
|
||||
SCATTER NAME loRec blank
|
||||
DO Adauga_Modifica_Inregistrare WITH "parteneri_sectii",loRec,,"INSERT"
|
||||
this.actualizeaza_grid1()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_modifica
|
||||
Select crsAsociere
|
||||
Scatter Name loRec
|
||||
Do Adauga_Modifica_Inregistrare With "parteneri_sectii",loRec,loRec.id_asociere,"UPDATE"
|
||||
thisform.actualizeaza_grid1()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_sterge
|
||||
SELECT crsAsociere
|
||||
SCATTER NAME lorec
|
||||
Do STERGE_INREGISTRARE With "parteneri_sectii",loRec.id_asociere
|
||||
|
||||
this.actualizeaza_grid1()
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_excel
|
||||
DO export_excel_grid WITH thisform.grid_asociere
|
||||
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_listare
|
||||
thisform.AlwaysOnTop = .F.
|
||||
|
||||
PRIVATE pcDataOra, pcTitlu
|
||||
pcDataOra = get_ora(2)
|
||||
pcTitlu = "Asociere entitati - sectii"
|
||||
|
||||
LOCAL lcTabel
|
||||
lcTabel = this.grid_asociere.RecordSource
|
||||
|
||||
SELECT (lcTabel)
|
||||
REPORT FORM rAsociere_part_sect.frx TO PRINTER PROMPT PREVIEW
|
||||
thisform.AlwaysOnTop = .T.
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
DoDefault()
|
||||
Thisform.grid_asociere.colUMN1.DynamicBackColor = [IIF(part_inactiv = 1,RGB(128,128,128),RGB(255,255,255))]
|
||||
Thisform.grid_asociere.coluMN2.DynamicBackColor = [IIF(sectie_inactiva = 1,RGB(128,128,128),RGB(255,255,255))]
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
|
||||
DEFINE CLASS frm_parteneri_sectii_nou 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="Cus_odata_parteneri_sectii1" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Ct_clb_partener" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="Ct_clb_sectie" UniqueID="" Timestamp="" />
|
||||
*< OBJECTDATA: ObjPath="BUT_RENUNT1" UniqueID="" Timestamp="" />
|
||||
|
||||
*<DefinedPropArrayMethod>
|
||||
*m: do_cauta_partener
|
||||
*m: do_cauta_sectie
|
||||
*p: nid
|
||||
*p: orec
|
||||
*</DefinedPropArrayMethod>
|
||||
|
||||
*<PropValue>
|
||||
DoCreate = .T.
|
||||
Height = 98
|
||||
Name = "frm_parteneri_sectii_nou"
|
||||
nid = .F.
|
||||
orec = .F.
|
||||
Width = 598
|
||||
_shape1.Height = 29
|
||||
_shape1.Left = 0
|
||||
_shape1.Name = "_shape1"
|
||||
_shape1.Top = 0
|
||||
_shape1.Width = 684
|
||||
_shape2.Height = 29
|
||||
_shape2.Left = 533
|
||||
_shape2.Name = "_shape2"
|
||||
_shape2.Top = -1
|
||||
_shape2.Width = 66
|
||||
Lb_titlu_alb_b121.Caption = "Partener - sec<65>ie"
|
||||
Lb_titlu_alb_b121.Left = 6
|
||||
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||
Lb_titlu_alb_b121.TabIndex = 5
|
||||
BUT_TERMIN1.Left = 567
|
||||
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||
BUT_TERMIN1.TabIndex = 3
|
||||
BUT_TERMIN1.Top = 0
|
||||
Gridsort1.Left = 228
|
||||
Gridsort1.Name = "Gridsort1"
|
||||
Gridsort1.Top = 5
|
||||
*</PropValue>
|
||||
|
||||
ADD OBJECT 'BUT_RENUNT1' AS but_renunt WITH ;
|
||||
Left = 536, ;
|
||||
Name = "BUT_RENUNT1", ;
|
||||
TabIndex = 4, ;
|
||||
Top = 0
|
||||
*< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||
|
||||
ADD OBJECT 'Ct_clb_partener' AS ct_clb_cautare WITH ;
|
||||
cconditie = ISNULL(poRec.id_part), ;
|
||||
cprocedura = thisform.do_cauta_partener, ;
|
||||
cvar_afisata = poRec.denumire, ;
|
||||
Height = 31, ;
|
||||
Left = 6, ;
|
||||
Name = "Ct_clb_partener", ;
|
||||
TabIndex = 1, ;
|
||||
Top = 48, ;
|
||||
Width = 280, ;
|
||||
img_cautare.Left = 259, ;
|
||||
img_cautare.Name = "img_cautare", ;
|
||||
img_cautare.Top = 5, ;
|
||||
clb_tx_cautare.Height = 29, ;
|
||||
clb_tx_cautare.Lb_simplu1.Caption = "Partener", ;
|
||||
clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ;
|
||||
clb_tx_cautare.Left = 1, ;
|
||||
clb_tx_cautare.Name = "clb_tx_cautare", ;
|
||||
clb_tx_cautare.Text_simplu1.Left = 62, ;
|
||||
clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ;
|
||||
clb_tx_cautare.Text_simplu1.Top = 3, ;
|
||||
clb_tx_cautare.Top = 1, ;
|
||||
clb_tx_cautare.Width = 251
|
||||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Ct_clb_sectie' AS ct_clb_cautare WITH ;
|
||||
cconditie = ISNULL(poRec.id_sectie), ;
|
||||
cprocedura = thisform.do_cauta_sectie, ;
|
||||
cvar_afisata = poRec.sectie, ;
|
||||
Height = 31, ;
|
||||
Left = 312, ;
|
||||
Name = "Ct_clb_sectie", ;
|
||||
TabIndex = 2, ;
|
||||
Top = 48, ;
|
||||
Width = 281, ;
|
||||
IMG_CAUTARE.Left = 259, ;
|
||||
IMG_CAUTARE.Name = "IMG_CAUTARE", ;
|
||||
IMG_CAUTARE.Top = 5, ;
|
||||
CLB_TX_CAUTARE.Height = 29, ;
|
||||
CLB_TX_CAUTARE.LB_SIMPLU1.Caption = "Sec<65>ie", ;
|
||||
CLB_TX_CAUTARE.LB_SIMPLU1.Name = "LB_SIMPLU1", ;
|
||||
CLB_TX_CAUTARE.Left = 1, ;
|
||||
CLB_TX_CAUTARE.Name = "CLB_TX_CAUTARE", ;
|
||||
CLB_TX_CAUTARE.TEXT_SIMPLU1.Left = 63, ;
|
||||
CLB_TX_CAUTARE.TEXT_SIMPLU1.Name = "TEXT_SIMPLU1", ;
|
||||
CLB_TX_CAUTARE.TEXT_SIMPLU1.Top = 3, ;
|
||||
CLB_TX_CAUTARE.Top = 1, ;
|
||||
CLB_TX_CAUTARE.Width = 252
|
||||
*< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" />
|
||||
|
||||
ADD OBJECT 'Cus_odata_parteneri_sectii1' AS cus_odata_parteneri_sectii WITH ;
|
||||
Left = 156, ;
|
||||
Name = "Cus_odata_parteneri_sectii1", ;
|
||||
Top = 12
|
||||
*< END OBJECT: ClassLib="oasociere.vcx" BaseClass="custom" />
|
||||
|
||||
PROCEDURE do_cauta_partener
|
||||
Local loCauta
|
||||
loCauta=caut_partener()
|
||||
If !Empty(Nvl(loCauta.id_part,0))
|
||||
poRec.id_part = loCauta.id_part
|
||||
poRec.denumire = Alltrim(loCauta.denumire)
|
||||
Thisform.ct_clb_partener.Refresh()
|
||||
Else
|
||||
poRec.id_part = Null
|
||||
poRec.denumire = []
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE do_cauta_sectie
|
||||
Local loCauta
|
||||
loCauta = caut_sectie()
|
||||
If !Empty(Nvl(loCauta.id_sectie,0))
|
||||
poRec.id_sectie = loCauta.id_sectie
|
||||
poRec.sectie = Alltrim(loCauta.sectie)
|
||||
Thisform.ct_clb_sectie.Refresh()
|
||||
Else
|
||||
poRec.id_sectie = Null
|
||||
poRec.sectie = []
|
||||
Endif
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE inainte_de_do_termin
|
||||
Private pnExistaPartener, pnExistaSectie
|
||||
Local PLRETURN
|
||||
|
||||
Do Case
|
||||
Case Empty(porec.id_part) Or Isnull(porec.id_part)
|
||||
amessagebox('Nu ati completat partenerul!',0+48,"Atentie")
|
||||
Thisform.ct_clb_partener.SetFocus()
|
||||
PLRETURN=.F.
|
||||
Case Empty(porec.id_sectie) Or Isnull(porec.id_sectie)
|
||||
amessagebox('Nu ati completat sectia!',0+48,"Atentie")
|
||||
Thisform.ct_clb_sectie.SetFocus()
|
||||
PLRETURN=.F.
|
||||
Otherwise
|
||||
If Alltrim(Upper(This.cus_odata_parteneri_sectii1.cactiune))="INSERT" ;
|
||||
Or (Alltrim(Upper(This.cus_odata_parteneri_sectii1.cactiune))="UPDATE")
|
||||
|
||||
pnExistaPartener = 0
|
||||
lcSql = [select Count(*) from asociere_parteneri_sectii where id_part=]+Alltrim(Str(porec.id_part))
|
||||
lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaPartener)
|
||||
|
||||
pnExistaSectie = 0
|
||||
lcSql = [select Count(*) from asociere_parteneri_sectii where id_sectie=]+Alltrim(Str(porec.id_sectie))
|
||||
lnSucces = goExecutor.oSelect2Value(lcSql, @pnExistaPartener)
|
||||
|
||||
|
||||
|
||||
If pnTip_asociere = 1 && inchidere cu K
|
||||
If pnExistaPartener > 0
|
||||
amessagebox('Mai exista acest partener inregistrat!',0+48,"Atentie")
|
||||
Thisform.ct_clb_partener.SetFocus()
|
||||
PLRETURN=.F.
|
||||
Else
|
||||
If pnExistaSectie > 0
|
||||
amessagebox('Mai exista aceasta sectie inregistrata!',0+48,"Atentie")
|
||||
Thisform.ct_clb_sectie.SetFocus()
|
||||
PLRETURN=.F.
|
||||
Else
|
||||
PLRETURN=This.cus_odata_parteneri_sectii1.salvare(This.OREC,This.NID)
|
||||
Endif
|
||||
Endif
|
||||
|
||||
Else
|
||||
PLRETURN=This.cus_odata_parteneri_sectii1.salvare(This.OREC,This.NID)
|
||||
Endif
|
||||
Else
|
||||
PLRETURN=This.cus_odata_parteneri_sectii1.salvare(This.OREC,This.NID)
|
||||
Endif
|
||||
|
||||
Endcase
|
||||
|
||||
Return PLRETURN
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Init
|
||||
LPARAMETERS toRec, tnId, tcActiune
|
||||
|
||||
DODEFAULT()
|
||||
|
||||
this.orec= toRec
|
||||
this.nid = tnId
|
||||
this.cus_odata_parteneri_sectii1.cactiune = tcActiune
|
||||
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Ct_clb_sectie.IMG_CAUTARE.Click
|
||||
thisform.do_cauta_sectie()
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
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
|
||||
4718
Clase/oconfigurare_seturi.vc2
Normal file
4718
Clase/oconfigurare_seturi.vc2
Normal file
File diff suppressed because it is too large
Load Diff
4931
Clase/ofundal_sal.vc2
Normal file
4931
Clase/ofundal_sal.vc2
Normal file
File diff suppressed because it is too large
Load Diff
BIN
Clase/oparteneri.VCT
Normal file
BIN
Clase/oparteneri.VCT
Normal file
Binary file not shown.
BIN
Clase/oparteneri.vcx
Normal file
BIN
Clase/oparteneri.vcx
Normal file
Binary file not shown.
1693
Clase/oteste.vc2
Normal file
1693
Clase/oteste.vc2
Normal file
File diff suppressed because it is too large
Load Diff
3509
Clase/ovanzcump.vc2
Normal file
3509
Clase/ovanzcump.vc2
Normal file
File diff suppressed because it is too large
Load Diff
65
Clase/solution.vc2
Normal file
65
Clase/solution.vc2
Normal file
@@ -0,0 +1,65 @@
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
*< FOXBIN2PRG: Version="1.21" SourceFile="solution.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||
*
|
||||
*
|
||||
DEFINE CLASS cmdclose AS commandbutton && Close button
|
||||
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
|
||||
|
||||
*<PropValue>
|
||||
Cancel = .T.
|
||||
Caption = "Close"
|
||||
FontBold = .F.
|
||||
FontName = "MS Sans Serif"
|
||||
FontSize = 8
|
||||
Height = 23
|
||||
Name = "cmdclose"
|
||||
Width = 72
|
||||
*</PropValue>
|
||||
|
||||
PROCEDURE Click
|
||||
IF TYPE("THISFORM.Parent") = "O"
|
||||
THISFORMSET.Release
|
||||
ELSE
|
||||
THISFORM.Release
|
||||
ENDIF
|
||||
ENDPROC
|
||||
|
||||
PROCEDURE Error
|
||||
LPARAMETERS nError, cMethod, nLine
|
||||
LOCAL lnChoice
|
||||
#DEFINE CR CHR(13)
|
||||
DO CASE
|
||||
CASE nError = 1545 && Uncommitted changes
|
||||
*------------------------------------
|
||||
#DEFINE MSG1_LOC "Do you want to save your changes?"
|
||||
#DEFINE MSG2_LOC "Uncommitted Changes"
|
||||
lnChoice = MESSAGEBOX(MSG1_LOC, 4+48+0, MSG2_LOC)
|
||||
DO CASE
|
||||
CASE lnChoice = 6 && yes
|
||||
=TABLEUPDATE(.T., .T.)
|
||||
CASE lnChoice = 7 && no
|
||||
=TABLEREVERT(.T.)
|
||||
ENDCASE
|
||||
OTHERWISE && Unanticipated error
|
||||
*--------------------------------------
|
||||
#DEFINE NUM_LOC "Error Number: "
|
||||
#DEFINE PROG_LOC "Program: "
|
||||
#DEFINE CAP_LOC "ERROR"
|
||||
lcMsg = NUM_LOC + ALLTRIM(STR(nError)) + CR + CR + ;
|
||||
MESSAGE()+ CR + CR + PROG_LOC + PROGRAM(1)
|
||||
lnChoice = MESSAGEBOX(lcMsg, 2+48+512, CAP_LOC)
|
||||
DO CASE
|
||||
CASE lnChoice = 3 &&Abort
|
||||
CANCEL
|
||||
CASE lnChoice = 4 &&Retry
|
||||
RETRY
|
||||
CASE lnChoice = 5 &&Ignore
|
||||
RETURN
|
||||
ENDCASE
|
||||
ENDCASE
|
||||
|
||||
ENDPROC
|
||||
|
||||
ENDDEFINE
|
||||
Reference in New Issue
Block a user