romfast/roadef
2
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 Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_015husoVS24ewJZr21ZoVR3v
This commit is contained in:
Marius Mutu
2026-08-23 18:00:57 +03:00
commit 77e98d73e9
94 changed files with 62872 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

377
Ferestre/fundal.sc2 Normal file
View File

@@ -0,0 +1,377 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="Imagine01" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: jurnal
*</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
HalfHeightCaption = .F.
Height = 429
MaxButton = .F.
MinButton = .F.
Movable = .F.
Name = "FORM1"
Picture = ..\comun\drepturi utilizatori\roadef\
ShowTips = .T.
Width = 797
WindowState = 2
*</PropValue>
ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
ErasePage = .T., ;
Height = 457, ;
Left = -2, ;
Name = "_pgfrmbase1", ;
Top = 60, ;
Page1.CW1.LABEL_ITEM1.Name = "LABEL_ITEM1", ;
Page1.CW1.Name = "CW1", ;
Page1.Cw11.Label_item1.Name = "Label_item1", ;
Page1.Cw11.Name = "Cw11", ;
Page1.Cw12.Label_item1.Name = "Label_item1", ;
Page1.Cw12.Name = "Cw12", ;
Page1.Cw13.Label_item1.Name = "Label_item1", ;
Page1.Cw13.Name = "Cw13", ;
Page1.Cw5.Label_item1.Name = "Label_item1", ;
Page1.Cw5.Name = "Cw5", ;
Page1.Cw6.Label_item1.Name = "Label_item1", ;
Page1.Cw6.Name = "Cw6", ;
Page1.Cw8.Label_item1.Name = "Label_item1", ;
Page1.Cw8.Name = "Cw8", ;
Page1.Name = "Page1", ;
Page1.PageOrder = 1, ;
Page1.Pict_meniu1.Name = "Pict_meniu1", ;
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.Cw7.Label_item1.Name = "Label_item1", ;
Page2.Cw7.Name = "Cw7", ;
Page2.Cw9.Label_item1.Name = "Label_item1", ;
Page2.Cw9.Name = "Cw9", ;
Page2.Name = "Page2", ;
Page2.PageOrder = 3, ;
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.Cw4.Label_item1.Name = "Label_item1", ;
PAGE3.Cw4.Name = "Cw4", ;
PAGE3.Cw9.Label_item1.Name = "Label_item1", ;
PAGE3.Cw9.Name = "Cw9", ;
PAGE3.Name = "PAGE3", ;
PAGE3.PageOrder = 2, ;
PAGE3.PICT_MENIU1.Name = "PICT_MENIU1", ;
Page4.Cw1.Label_item1.Name = "Label_item1", ;
Page4.Cw1.Name = "Cw1", ;
Page4.Cw10.Label_item1.Name = "Label_item1", ;
Page4.Cw10.Name = "Cw10", ;
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.Cw5.Label_item1.Name = "Label_item1", ;
Page4.Cw5.Name = "Cw5", ;
Page4.Name = "Page4", ;
Page4.PageOrder = 4, ;
Page4.Pict_meniu1.Name = "Pict_meniu1"
*< END OBJECT: ClassLib="..\clase\ofundal_sal.vcx" BaseClass="pageframe" />
ADD OBJECT 'Image1' AS image WITH ;
BackStyle = 0, ;
Height = 220, ;
Left = 228, ;
Name = "Image1", ;
Picture = ..\grafice\roadef.bmp, ;
Stretch = 0, ;
Top = 205, ;
Width = 556
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Image2' AS image WITH ;
Height = 63, ;
Left = -11, ;
Name = "Image2", ;
Picture = ..\comun\grafice\f1.jpg, ;
Stretch = 2, ;
Top = -1, ;
Width = 851
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Imagine01' AS imagine WITH ;
Height = 55, ;
Left = 9, ;
Name = "Imagine01", ;
nid_img = 1, ;
picturedown = entitati2.bmp, ;
pictureup = entitati1.bmp, ;
ToolTipText = "Entitati", ;
Top = 1, ;
Width = 45
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Imagine02' AS imagine WITH ;
Height = 55, ;
Left = 67, ;
Name = "Imagine02", ;
picturedown = plcont2.bmp, ;
pictureup = plcont1.bmp, ;
ToolTipText = "Plan conturi si politici contabile", ;
Top = 1, ;
Width = 45
*< 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 = 498, ;
Name = "lb_utilizator", ;
Top = 9
*< 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 = 552, ;
Name = "lb_utilizator1", ;
Top = 9, ;
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
*!* 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
*!* IF primadata
*!*
*!* DO start_firma IN ostartfirma.prg
*!* primadata = .F.
*!*
*!* verifica_drepturi2('gofundal','_pgfrmbase1')
*!* *!* *!* OSETINSTRUM = createobject('SETINSTRUM')
*!* *!* OSETVIZ = createobject('SETRAPID')
*!* *!* OSETVIZ.tbrprim.buton1.ENABLED=.T.
*!* *!* OSETVIZ.tbrprim.buton2.ENABLED=.T.
*!* *!* OSETVIZ.tbrprim.buton3.ENABLED=.T.
*!* *!* OSETVIZ.tbrprim.buton6.ENABLED=.T.
*!* *!* OSETVIZ.tbrprim.command1.ENABLED=.T.
*!* *!* OSETVIZ.tbrprim.command2.ENABLED=.T.
*!* *!* OSETVIZ.tbrprim.command3.ENABLED=.T.
*!* *!* OSETVIZ.tbrprim.command4.ENABLED=.T.
*!* *!* OSETVIZ.tbrprim.command5.ENABLED=.T.
*!* *!* osetviz.show
*!* *!* *!* this.meniu1.Visible = .t.
*!* ENDIF
*!* DO lansare_toolbar IN oproceduri_comune.prg
ENDPROC
PROCEDURE Init
*!* THISFORM.AUTOCENTER=.T.
ENDPROC
PROCEDURE jurnal
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode==-1 &&F2
DO IESIRE
endif
ENDPROC
PROCEDURE RightClick
*!* set safety off
DO start_firma IN ostartfirma.prg
verifica_drepturi('gofundal','_pgfrmbase1')
*!* ostart.show(1)
*!* do totv
ENDPROC
PROCEDURE Show
Lparameters nStyle
DoDefault(nStyle)
Do start_firma In ostartfirma.prg
primadata = .F.
verifica_drepturi('gofundal','_pgfrmbase1')
*!* verifica_drepturi('gofundal','_pgfrmbase1')
Do lansare_toolbar In oproceduri_comune.prg
DO lansare_help IN oproceduri_comune.prg
gofundal.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
gofundal.lb_utilizator1.Visible=.T.
ENDPROC
PROCEDURE Image1.RightClick
thisform.rightclick
ENDPROC
PROCEDURE Imagine01.do_actiune
DO viz_parteneri IN onomenclatoare.prg
ENDPROC
PROCEDURE Imagine02.do_actiune
DO viz_plcont IN onomenclatoare.prg
ENDPROC
PROCEDURE _pgfrmbase1.Page1.RightClick
DO start_firma IN ostartfirma.prg
verifica_drepturi('gofundal','_pgfrmbase1')
ENDPROC
PROCEDURE _pgfrmbase1.Page2.RightClick
DO start_firma IN ostartfirma.prg
verifica_drepturi('gofundal','_pgfrmbase1')
ENDPROC
PROCEDURE _pgfrmbase1.PAGE3.RightClick
DO start_firma IN ostartfirma.prg
verifica_drepturi('gofundal','_pgfrmbase1')
ENDPROC
PROCEDURE _pgfrmbase1.Page4.RightClick
DO start_firma IN ostartfirma.prg
verifica_drepturi('gofundal','_pgfrmbase1')
ENDPROC
ENDDEFINE