561 lines
17 KiB
Plaintext
561 lines
17 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
|
*
|
|
*
|
|
DEFINE CLASS dataenvironment AS dataenvironment
|
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
|
|
|
*<PropValue>
|
|
DataSource = .NULL.
|
|
Height = 200
|
|
Left = 1
|
|
Name = "Dataenvironment"
|
|
Top = 220
|
|
Width = 520
|
|
*</PropValue>
|
|
|
|
ENDDEFINE
|
|
|
|
DEFINE CLASS form1 AS form
|
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
|
|
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Imagine1" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Imagine2" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="Imagine3" UniqueID="" Timestamp="" />
|
|
*< OBJECTDATA: ObjPath="chkExperimental" UniqueID="" Timestamp="" />
|
|
|
|
*<DefinedPropArrayMethod>
|
|
*m: jurnal
|
|
*m: nexperimental_assign
|
|
*p: nexperimental && Mod experimental. se citeste optiunea din optiuni_utilizator
|
|
*p: nlb_activ
|
|
*p: npagina
|
|
*p: _memberdata && XML Metadata for customizable properties
|
|
*</DefinedPropArrayMethod>
|
|
|
|
*<PropValue>
|
|
AlwaysOnBottom = .T.
|
|
AutoCenter = .T.
|
|
BackColor = 255,255,255
|
|
BorderStyle = 0
|
|
Caption = ""
|
|
Closable = .F.
|
|
ControlBox = .F.
|
|
DoCreate = .T.
|
|
Enabled = .T.
|
|
FillColor = 0,0,0
|
|
FontCharSet = 238
|
|
HalfHeightCaption = .F.
|
|
Height = 429
|
|
MaxButton = .F.
|
|
MinButton = .F.
|
|
Movable = .F.
|
|
Name = "FORM1"
|
|
nexperimental = 0
|
|
nlb_activ = 0
|
|
npagina = 0
|
|
Picture = ..\..\
|
|
ShowTips = .T.
|
|
Width = 797
|
|
WindowState = 2
|
|
_memberdata = <VFPData>
|
|
<memberdata name="nexperimental" display="nExperimental"/>
|
|
<memberdata name="nexperimental_assign" display="nExperimental_Assign"/>
|
|
</VFPData>
|
|
*</PropValue>
|
|
|
|
ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
|
|
ErasePage = .T., ;
|
|
Height = 457, ;
|
|
Left = -2, ;
|
|
Name = "_pgfrmbase1", ;
|
|
Top = 60, ;
|
|
Page1.Cw2.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw2.Name = "Cw2", ;
|
|
Page1.Cw3.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw3.Name = "Cw3", ;
|
|
Page1.Cw4.Label_item1.Name = "Label_item1", ;
|
|
Page1.Cw4.Name = "Cw4", ;
|
|
Page1.CW5.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
|
Page1.CW5.Name = "CW5", ;
|
|
Page1.Name = "Page1", ;
|
|
Page1.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
|
Page1.Pict_liniuta1.Picture = ..\grafice\f3.jpg, ;
|
|
Page1.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
|
Page1.Pict_liniuta2.Picture = ..\grafice\f3.jpg, ;
|
|
Page1.Pict_liniuta3.Name = "Pict_liniuta3", ;
|
|
Page1.Pict_meniu1.Name = "Pict_meniu1", ;
|
|
Page1.Pict_meniu1.Picture = ..\grafice\f2.jpg, ;
|
|
Page2.Cw1.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw1.Name = "Cw1", ;
|
|
Page2.Cw2.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw2.Name = "Cw2", ;
|
|
Page2.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
|
Page2.CW3.Name = "CW3", ;
|
|
Page2.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
|
Page2.CW4.Name = "CW4", ;
|
|
Page2.Cw5.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw5.Name = "Cw5", ;
|
|
Page2.Cw6.Label_item1.Name = "Label_item1", ;
|
|
Page2.Cw6.Name = "Cw6", ;
|
|
Page2.Name = "Page2", ;
|
|
Page2.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
|
Page2.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
|
Page2.Pict_liniuta3.Name = "Pict_liniuta3", ;
|
|
Page2.Pict_liniuta4.Name = "Pict_liniuta4", ;
|
|
Page2.Pict_meniu1.Name = "Pict_meniu1", ;
|
|
Page3.Cw1.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw1.Name = "Cw1", ;
|
|
Page3.Cw2.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw2.Name = "Cw2", ;
|
|
Page3.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
|
Page3.CW3.Name = "CW3", ;
|
|
Page3.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
|
Page3.CW4.Name = "CW4", ;
|
|
Page3.Cw5.Label_item1.Name = "Label_item1", ;
|
|
Page3.Cw5.Name = "Cw5", ;
|
|
Page3.Name = "Page3", ;
|
|
Page3.Pict_liniuta1.Name = "Pict_liniuta1", ;
|
|
Page3.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
|
Page3.Pict_liniuta4.Name = "Pict_liniuta4", ;
|
|
Page3.Pict_meniu1.Name = "Pict_meniu1", ;
|
|
Page4.CW1.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
|
Page4.CW1.Name = "CW1", ;
|
|
Page4.CW2.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
|
Page4.CW2.Name = "CW2", ;
|
|
Page4.CW3.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
|
Page4.CW3.Name = "CW3", ;
|
|
Page4.CW4.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
|
|
Page4.CW4.Name = "CW4", ;
|
|
Page4.Name = "Page4", ;
|
|
Page4.Pict_liniuta2.Name = "Pict_liniuta2", ;
|
|
Page4.Pict_liniuta3.Name = "Pict_liniuta3", ;
|
|
Page4.Pict_meniu1.Name = "Pict_meniu1"
|
|
*< END OBJECT: ClassLib="..\clase\ofundal_imob.vcx" BaseClass="pageframe" />
|
|
|
|
ADD OBJECT 'chkExperimental' AS _checkbox WITH ;
|
|
Alignment = 0, ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Experimental", ;
|
|
ControlSource = "thisform.nExperimental", ;
|
|
ForeColor = 255,255,255, ;
|
|
Height = 18, ;
|
|
Left = 204, ;
|
|
Name = "chkExperimental", ;
|
|
ReadOnly = .T., ;
|
|
ToolTipText = "Un mod mai rapid de calcul amortizari (10.06.2020). Se foloseste la vizualizare amortizare si la rapoarte.", ;
|
|
Top = 31, ;
|
|
Value = 0, ;
|
|
Visible = .F., ;
|
|
Width = 95
|
|
*< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
|
|
|
ADD OBJECT 'Image1' AS image WITH ;
|
|
BackStyle = 0, ;
|
|
Height = 220, ;
|
|
Left = 228, ;
|
|
Name = "Image1", ;
|
|
Picture = ..\grafice\roaimob.bmp, ;
|
|
Stretch = 0, ;
|
|
Top = 180, ;
|
|
Width = 556
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Image2' AS image WITH ;
|
|
Height = 63, ;
|
|
Left = 0, ;
|
|
Name = "Image2", ;
|
|
Picture = ..\grafice\f1.jpg, ;
|
|
Stretch = 2, ;
|
|
Top = 0, ;
|
|
Width = 851
|
|
*< END OBJECT: BaseClass="image" />
|
|
|
|
ADD OBJECT 'Imagine1' AS imagine WITH ;
|
|
ccod = B01;C01;D01, ;
|
|
Height = 48, ;
|
|
Left = 7, ;
|
|
Name = "Imagine1", ;
|
|
nid_img = 1, ;
|
|
Picture = ..\grafice\gene1.bmp, ;
|
|
picturedown = d:\contafin_oracle\roaimob\grafice\gene2.bmp, ;
|
|
pictureup = d:\contafin_oracle\roaimob\grafice\gene1.bmp, ;
|
|
ToolTipText = "Introducere", ;
|
|
Top = 7, ;
|
|
Width = 60
|
|
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'Imagine2' AS imagine WITH ;
|
|
ccod = B02;C02;D02, ;
|
|
Height = 48, ;
|
|
Left = 76, ;
|
|
Name = "Imagine2", ;
|
|
Picture = ..\grafice\fact1.bmp, ;
|
|
picturedown = d:\contafin_oracle\roaimob\grafice\fact2.bmp, ;
|
|
pictureup = d:\contafin_oracle\roaimob\grafice\fact1.bmp, ;
|
|
ToolTipText = "Preluare din contabilitate", ;
|
|
Top = 7, ;
|
|
Width = 60
|
|
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'Imagine3' AS imagine WITH ;
|
|
ccod = B03;B04;C03;C04;D03, ;
|
|
Height = 48, ;
|
|
Left = 141, ;
|
|
Name = "Imagine3", ;
|
|
Picture = ..\grafice\viz1.bmp, ;
|
|
picturedown = d:\contafin_oracle\roaimob\grafice\viz2.bmp, ;
|
|
pictureup = d:\contafin_oracle\roaimob\grafice\viz1.bmp, ;
|
|
ToolTipText = "Vizualizare", ;
|
|
Top = 7, ;
|
|
Width = 60
|
|
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
|
|
|
ADD OBJECT 'Label1' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Operator:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 7, ;
|
|
Name = "Label1", ;
|
|
Top = 381, ;
|
|
Width = 53
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'Label2' AS label WITH ;
|
|
AutoSize = .T., ;
|
|
BackStyle = 0, ;
|
|
Caption = "Nivel de acces:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 17, ;
|
|
Left = 7, ;
|
|
Name = "Label2", ;
|
|
Top = 401, ;
|
|
Width = 85
|
|
*< END OBJECT: BaseClass="label" />
|
|
|
|
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
|
|
Anchor = 9, ;
|
|
Caption = "Operator:", ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 255,255,255, ;
|
|
Left = 482, ;
|
|
Name = "lb_utilizator", ;
|
|
Top = 8
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
|
|
Anchor = 9, ;
|
|
Caption = "nume_utilizator", ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 255,255,255, ;
|
|
Left = 536, ;
|
|
Name = "lb_utilizator1", ;
|
|
Top = 8, ;
|
|
Visible = .F.
|
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
|
|
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "utilizator", ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 62, ;
|
|
Name = "Text1", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 380, ;
|
|
Width = 147
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
|
BackStyle = 0, ;
|
|
BorderStyle = 0, ;
|
|
ControlSource = "m.nivel", ;
|
|
FontBold = .T., ;
|
|
FontItalic = .T., ;
|
|
ForeColor = 0,0,128, ;
|
|
Height = 23, ;
|
|
Left = 93, ;
|
|
Name = "Text2", ;
|
|
ReadOnly = .T., ;
|
|
TabStop = .F., ;
|
|
Top = 400, ;
|
|
Width = 28
|
|
*< END OBJECT: BaseClass="textbox" />
|
|
|
|
PROCEDURE Activate
|
|
*!* 10.06.2020
|
|
*!* initializez variabila gnExperimental pentru calcul experimental
|
|
|
|
*!* THISFORM.AUTOCENTER=.T.
|
|
|
|
LOCAL lnScrH,lnScrW
|
|
lnScrW = _screen.Width
|
|
lnScrH = _screen.Height
|
|
|
|
thisform.image1.Top = lnScrH - thisform.image1.Height - 50
|
|
thisform.image1.Left = lnScrW - thisform.image1.Width - 30
|
|
thisform.image2.Width = lnScrW + 30
|
|
thisform._pgfrmbase1.Width = lnScrW
|
|
thisform._pgfrmbase1.Height = thisform.Height-thisform.image2.Height
|
|
thisform._pgfrmbase1.page1.Pict_meniu1.Height = thisform._pgfrmbase1.Height
|
|
thisform._pgfrmbase1.page2.Pict_meniu1.Height = thisform._pgfrmbase1.Height
|
|
thisform._pgfrmbase1.page3.Pict_meniu1.Height = thisform._pgfrmbase1.Height
|
|
thisform._pgfrmbase1.page4.Pict_meniu1.Height = thisform._pgfrmbase1.Height
|
|
|
|
|
|
* Experimental
|
|
lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
|
|
Thisform.nExperimental = INT(VAL(m.lcValoare))
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Init
|
|
*!* THISFORM.AUTOCENTER=.T.
|
|
*!* Locale
|
|
IF TYPE('goLocale') = 'O'AND TYPE('glTraducere') = 'L'
|
|
IF glTraducere
|
|
golocale.SetLocale( thisform )
|
|
EndIf
|
|
ENDIF
|
|
*!* Locale ^
|
|
|
|
Local lcValoare
|
|
Thisform.chkExperimental.ToolTipText = '* 10.06.2020 un mod rapid de calcul situatie lunara amortizari. Se foloseste la vizualizare amortizari si rapoarte.'
|
|
|
|
lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
|
|
Thisform.nExperimental = Int(Val(m.lcValoare))
|
|
* 25.11.2021
|
|
Thisform.nExperimental = 1
|
|
ENDPROC
|
|
|
|
PROCEDURE jurnal
|
|
ENDPROC
|
|
|
|
PROCEDURE KeyPress
|
|
Lparameters nKeyCode, nShiftAltCtrl
|
|
If nKeyCode==-1 &&F2
|
|
Quit
|
|
Endif
|
|
*!* lnLbActiv=Thisform.nlb_activ
|
|
*!* Thisform.npagina=Thisform._pgfrmbase1.ActivePage
|
|
*!* lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
|
|
*!* Do Case
|
|
*!* Case nKeyCode==-1 && F2
|
|
*!* Quit
|
|
*!* Case nKeyCode=5 And lnLbActiv>0 && sageata sus
|
|
*!* Thisform.nlb_activ=Thisform.nlb_activ-1
|
|
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
|
|
*!* lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
|
|
*!* &lcEventLeave
|
|
*!* &lcEventEnter
|
|
*!* Case nKeyCode=24 And lnLbActiv>0 && sageata jos
|
|
*!* Thisform.nlb_activ=Thisform.nlb_activ+1
|
|
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
|
|
*!* lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
|
|
*!* &lcEventLeave
|
|
*!* &lcEventEnter
|
|
*!* Case nKeyCode=24 And lnLbActiv=0 && sageata jos
|
|
*!* Thisform.nlb_activ=1
|
|
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseEnter"
|
|
*!* &lcEventEnter
|
|
*!* Case nKeyCode=13 And lnLbActiv>0 && enter
|
|
*!* lcEventClick=lcLabel+Alltrim(Str(lnLbActiv))+".Click"
|
|
*!* &lcEventClick
|
|
*!* lcEventLeave=lcLabel+Alltrim(Str(lnLbActiv))+".MouseLeave"
|
|
*!* &lcEventLeave
|
|
*!* Thisform.nlb_activ=0
|
|
*!* Endcase
|
|
ENDPROC
|
|
|
|
PROCEDURE nexperimental_assign
|
|
lparameters tnExperimental
|
|
* 25.11.2021
|
|
tnExperimental = 1
|
|
|
|
This.nExperimental = tnExperimental
|
|
|
|
IF tnExperimental = 1
|
|
this.chkExperimental.Value = 1
|
|
this.chkExperimental.BackStyle = 1 && OPAC
|
|
this.chkExperimental.BackColor = RGB(255,0,0) && ROSU
|
|
ELSE
|
|
this.chkExperimental.Value = 0
|
|
this.chkExperimental.BackStyle = 0 && TRANSPARENT
|
|
this.chkExperimental.BackColor = RGB(240,240,240)
|
|
ENDIF
|
|
|
|
|
|
goApp.nExperimental = m.tnExperimental
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE RightClick
|
|
Do start_firma In ostartfirma.prg
|
|
verifica_drepturi('gofundal','_pgfrmbase1')
|
|
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS nStyle
|
|
DODEFAULT(nStyle)
|
|
*!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
|
|
*!* Trebuie adaugata o proprietate OstatusBar la forma
|
|
*!* si o metoda statusbarclik care sa contina comanda
|
|
*!* Thisform.oStatusBar.newtooltip()
|
|
*!*
|
|
If Not Pemstatus(_Screen,"StatusBar", 5) Then
|
|
*!* 31.01.2008 TEST FARA STATUSBAR
|
|
*!* _Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3)
|
|
_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", null, 3)
|
|
*!* 31.01.2008 TEST FARA STATUSBAR ^
|
|
EndIf
|
|
|
|
DO start_firma IN ostartfirma.prg
|
|
primadata = .F.
|
|
verifica_drepturi('gofundal','_pgfrmbase1')
|
|
Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
|
|
Thisform.lb_utilizator1.Visible=.T.
|
|
DO lansare_toolbar IN oproceduri_comune.prg
|
|
DO lansare_help IN oproceduri_comune.prg
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE chkExperimental.Valid
|
|
Local lcValoare
|
|
lcValoare = Alltrim(Str(Thisform.nExperimental))
|
|
lnSucces = scrie_optiune_utilizator('IMOB_EXPERIMENTAL', m.lcValoare, '1 = MOD EXPERIMENTAL IMOBILIZARI, 0 = STANDARD')
|
|
IF m.lnSucces <= 0
|
|
lcValoare = citeste_optiune_utilizator('IMOB_EXPERIMENTAL')
|
|
Thisform.nExperimental = Int(Val(m.lcValoare))
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
PROCEDURE Image1.RightClick
|
|
thisform.rightclick
|
|
ENDPROC
|
|
|
|
PROCEDURE Imagine1.do_actiune
|
|
lnActivePg = thisform._pgfrmbase1.ActivePage
|
|
DO CASE
|
|
CASE lnActivePg = 2 OR lnActivePg = 3
|
|
DO introducere_imob WITH lnActivePg-1 IN oproceduri_imob.prg
|
|
CASE lnActivePg = 4
|
|
DO introducere_imob_in_curs
|
|
OTHERWISE
|
|
*
|
|
ENDCASE
|
|
ENDPROC
|
|
|
|
PROCEDURE Imagine2.do_actiune
|
|
lnActivePg = thisform._pgfrmbase1.ActivePage
|
|
DO CASE
|
|
CASE lnActivePg = 2
|
|
*DO preluare_corporale IN oproceduri_imob.prg
|
|
CASE lnActivePg = 3
|
|
*DO preluare_necorporale IN oproceduri_imob.prg
|
|
CASE lnActivePg = 4
|
|
*DO preluare_incurs
|
|
OTHERWISE
|
|
*
|
|
ENDCASE
|
|
ENDPROC
|
|
|
|
PROCEDURE Imagine3.do_actiune
|
|
lnActivePg = thisform._pgfrmbase1.ActivePage
|
|
DO CASE
|
|
CASE lnActivePg = 2 OR lnActivePg = 3
|
|
DO vizualizare_lista_imob WITH lnActivePg-1 IN oproceduri_imob.prg
|
|
CASE lnActivePg = 4
|
|
DO vizualizare_lista_imob_in_curs
|
|
OTHERWISE
|
|
*
|
|
ENDCASE
|
|
ENDPROC
|
|
|
|
PROCEDURE lb_utilizator.RightClick
|
|
Thisform.RightClick
|
|
ENDPROC
|
|
|
|
PROCEDURE lb_utilizator1.RightClick
|
|
thisform.rightclick
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page1.Activate
|
|
*!* If Thisform.npagina!=0 And Thisform.nlb_activ!=0
|
|
*!* lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
|
|
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
|
|
*!* &lcEventLeave
|
|
*!* Endif
|
|
*!* Thisform.nlb_activ=0
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page1.RightClick
|
|
DO start_firma IN ostartfirma.prg
|
|
verifica_drepturi('gofundal','_pgfrmbase1')
|
|
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page2.RightClick
|
|
DO start_firma IN ostartfirma.prg
|
|
verifica_drepturi('gofundal','_pgfrmbase1')
|
|
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page3.Activate
|
|
*!* If Thisform.npagina!=0 And Thisform.nlb_activ!=0
|
|
*!* lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
|
|
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
|
|
*!* &lcEventLeave
|
|
*!* Endif
|
|
*!* Thisform.nlb_activ=0
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page3.RightClick
|
|
DO start_firma IN ostartfirma.prg
|
|
verifica_drepturi('gofundal','_pgfrmbase1')
|
|
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page4.Activate
|
|
*!* If Thisform.npagina!=0 And Thisform.nlb_activ!=0
|
|
*!* lcLabel="thisform._pgfrmbase1.Pages[thisform.npagina].cw"
|
|
*!* lcEventEnter=lcLabel+Alltrim(Str(Thisform.nlb_activ))+".MouseLeave"
|
|
*!* &lcEventLeave
|
|
*!* Endif
|
|
*!* Thisform.nlb_activ=0
|
|
ENDPROC
|
|
|
|
PROCEDURE _pgfrmbase1.Page4.RightClick
|
|
DO start_firma IN ostartfirma.prg
|
|
verifica_drepturi('gofundal','_pgfrmbase1')
|
|
*!* Thisform.lb_nivel1.Caption=Alltrim(Str(gnNivelUtilizator))
|
|
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|