romfast/roaacnpro
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:43:11 +03:00
commit 430d2c6000
72 changed files with 44452 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

358
Ferestre/fundal.sc2 Normal file
View File

@@ -0,0 +1,358 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="Imagine4" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: arata_meniu_fluna
*m: jurnal
*m: statusbarclick
*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
HalfHeightCaption = .F.
Height = 429
MaxButton = .F.
MinButton = .F.
Movable = .F.
Name = "Form1"
Picture = ..\..\
ShowTips = .T.
Width = 797
WindowState = 2
_memberdata = <VFPData>
<memberdata name="statusbarclick" display="StatusbarClick"/>
</VFPData>
*</PropValue>
ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
Anchor = 15, ;
ErasePage = .T., ;
Height = 457, ;
Left = -2, ;
Name = "_pgfrmbase1", ;
Top = 60, ;
Width = 794, ;
Page1.Cw1.Label_item1.Name = "Label_item1", ;
Page1.Cw1.Name = "Cw1", ;
Page1.Cw10.Label_item1.Name = "Label_item1", ;
Page1.Cw10.Name = "Cw10", ;
Page1.Cw10.Visible = .F., ;
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.Cw6.Label_item1.Name = "Label_item1", ;
Page1.Cw6.Name = "Cw6", ;
Page1.Cw7.Label_item1.Name = "Label_item1", ;
Page1.Cw7.Name = "Cw7", ;
Page1.Cw8.Label_item1.Name = "Label_item1", ;
Page1.Cw8.Name = "Cw8", ;
Page1.Cw8.Visible = .F., ;
Page1.Cw9.Label_item1.Name = "Label_item1", ;
Page1.Cw9.Name = "Cw9", ;
Page1.Cw9.Visible = .T., ;
Page1.Name = "Page1", ;
Page1.PageOrder = 1, ;
Page1.Pict_liniuta1.Name = "Pict_liniuta1", ;
Page1.Pict_liniuta2.Name = "Pict_liniuta2", ;
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.Cw8.Label_item1.Name = "Label_item1", ;
Page2.Cw8.Name = "Cw8", ;
Page2.Cw9.Label_item1.Name = "Label_item1", ;
Page2.Cw9.Name = "Cw9", ;
Page2.Name = "Page2", ;
Page2.PageOrder = 2, ;
Page2.Pict_liniuta2.Name = "Pict_liniuta2", ;
Page2.Pict_meniu1.Name = "Pict_meniu1", ;
Page3.Name = "Page3", ;
Page3.PageOrder = 3, ;
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.Cw5.Label_item1.Name = "Label_item1", ;
Page4.Cw5.Name = "Cw5", ;
Page4.Cw6.Label_item1.Name = "Label_item1", ;
Page4.Cw6.Name = "Cw6", ;
Page4.Cw7.Label_item1.Name = "Label_item1", ;
Page4.Cw7.Name = "Cw7", ;
Page4.Name = "Page4", ;
Page4.PageOrder = 4, ;
Page4.Pict_liniuta1.Name = "Pict_liniuta1", ;
Page4.Pict_liniuta2.Name = "Pict_liniuta2", ;
Page4.Pict_meniu1.Name = "Pict_meniu1"
*< END OBJECT: ClassLib="..\clase\ofundal_facturare.vcx" BaseClass="pageframe" />
ADD OBJECT 'Image1' AS image WITH ;
Anchor = 12, ;
Height = 220, ;
Left = 228, ;
Name = "Image1", ;
Picture = ..\grafice\roafacturare.jpg, ;
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 'Imagine4' AS imagine WITH ;
Height = 52, ;
Left = 0, ;
Name = "Imagine4", ;
Picture = ..\grafice\icon_registru2.png, ;
picturedown = icon_registru1.png, ;
pictureup = icon_registru2.png, ;
ToolTipText = "Lista facturi", ;
Top = 0, ;
Width = 72
*< 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 = 486, ;
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 = 540, ;
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
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
With Thisform._pgfrmbase1
.Width = lnScrW
.Height = Thisform.Height-Thisform.image2.Height
.page1.Pict_meniu1.Height = .Height
.page2.Pict_meniu1.Height = .Height
.page3.Pict_meniu1.Height = .Height
.page4.Pict_meniu1.Height = .Height
Endwith
*!* If primadata
*!* primadata = .F.
*!* Do start_firma In ostartfirma.prg
*!* verifica_drepturi2('gofundal','_pgfrmbase1')
*!* Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
*!* Thisform.lb_utilizator1.Visible=.T.
*!* Endif
ENDPROC
PROCEDURE arata_meniu_fluna
Do start_firma In ostartfirma.prg
verifica_drepturi2('gofundal','_pgfrmbase1')
ENDPROC
PROCEDURE jurnal
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
If nKeyCode==-1 &&F2
Quit
Endif
ENDPROC
PROCEDURE RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Show
Lparameters nStyle
DoDefault(nStyle)
Thisform.arata_meniu_fluna()
primadata = .F.
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
* Do verifica_setari In oproceduri_facturare.prg - nu verific drepturi pe politici de preturi, gestiuni, curs valutar
Thisform._pgfrmbase1.ActivePage = 2
ENDPROC
PROCEDURE statusbarclick
Thisform.oStatusBar.newtooltip()
ENDPROC
PROCEDURE Image1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Imagine4.do_actiune
DO vizualizare_facturi2 WITH .T. IN oproceduri_facturare.prg
ENDPROC
PROCEDURE lb_utilizator.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE lb_utilizator1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE _pgfrmbase1.Page2.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE _pgfrmbase1.Page3.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE _pgfrmbase1.Page4.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
ENDDEFINE