romfast/roaimob
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
This commit is contained in:
Marius Mutu
2026-07-16 11:37:36 +03:00
commit 34aed0c4d7
236 changed files with 145556 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

560
Ferestre/fundal.sc2 Normal file
View File

@@ -0,0 +1,560 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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