romfast/roaauto
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:30:39 +03:00
commit 1fb478ae81
152 changed files with 129219 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1380
Ferestre/frm_autopass.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1339
Ferestre/frm_date_comenzi.sc2 Normal file
View File

File diff suppressed because it is too large Load Diff

477
Ferestre/fundal.sc2 Normal file
View File

@@ -0,0 +1,477 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="Imagine01" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine02" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine03" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine04" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine05" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: arata_meniu_fluna
*m: statusbarclick
*p: ostatusbar
*</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"
ostatusbar =
Picture = ..\..\
ShowTips = .T.
Themes = .F.
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.Cw10.Label_item1.Name = "Label_item1", ;
Page1.Cw10.Name = "Cw10", ;
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.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.Cw7.Label_item1.Name = "Label_item1", ;
Page1.Cw7.Name = "Cw7", ;
Page1.Cw8.Label_item1.Name = "Label_item1", ;
Page1.Cw8.Name = "Cw8", ;
Page1.Cw9.Label_item1.Name = "Label_item1", ;
Page1.Cw9.Name = "Cw9", ;
Page1.Name = "Page1", ;
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.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.Cw8.Label_item1.Name = "Label_item1", ;
Page2.Cw8.Name = "Cw8", ;
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.Cw6.Label_item1.Name = "Label_item1", ;
Page3.Cw6.Name = "Cw6", ;
Page3.Cw7.Label_item1.Name = "Label_item1", ;
Page3.Cw7.Name = "Cw7", ;
Page3.Cw8.Label_item1.Name = "Label_item1", ;
Page3.Cw8.Name = "Cw8", ;
Page3.Cw9.Label_item1.Name = "Label_item1", ;
Page3.Cw9.Name = "Cw9", ;
Page3.Name = "Page3", ;
Page3.Pict_liniuta1.Name = "Pict_liniuta1", ;
Page3.Pict_liniuta2.Name = "Pict_liniuta2", ;
Page3.Pict_liniuta3.Name = "Pict_liniuta3", ;
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.Name = "Page4", ;
Page4.Pict_liniuta1.Name = "Pict_liniuta1", ;
Page4.Pict_meniu1.Name = "Pict_meniu1", ;
Page5.Cw1.Label_item1.Name = "Label_item1", ;
Page5.Cw1.Name = "Cw1", ;
Page5.Cw2.Label_item1.Name = "Label_item1", ;
Page5.Cw2.Name = "Cw2", ;
Page5.Cw3.Label_item1.Name = "Label_item1", ;
Page5.Cw3.Name = "Cw3", ;
Page5.Name = "Page5", ;
Page5.Pict_meniu1.Name = "Pict_meniu1"
*< END OBJECT: ClassLib="..\clase\ofundal_dev.vcx" BaseClass="pageframe" />
ADD OBJECT 'Image1' AS image WITH ;
Height = 220, ;
Left = 228, ;
Name = "Image1", ;
Picture = ..\grafice\roaauto.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 ;
ccod = A01, ;
Height = 48, ;
Left = 13, ;
Name = "Imagine01", ;
nid_img = 1, ;
ntip = 0, ;
picturedown = clie2.bmp, ;
pictureup = clie1.bmp, ;
ToolTipText = "Clienti", ;
Top = 7, ;
Width = 60
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Imagine02' AS imagine WITH ;
ccod = B01, ;
Height = 48, ;
Left = 74, ;
Name = "Imagine02", ;
nid_img = 2, ;
ntip = 0, ;
picturedown = gene2.bmp, ;
pictureup = gene1.bmp, ;
ToolTipText = "Generare (F5)", ;
Top = 7, ;
Width = 60
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Imagine03' AS imagine WITH ;
ccod = B02, ;
Height = 48, ;
Left = 136, ;
Name = "Imagine03", ;
nid_img = 3, ;
ntip = 0, ;
picturedown = norm2.bmp, ;
pictureup = norm1.bmp, ;
ToolTipText = "Normare (F6)", ;
Top = 7, ;
Width = 60
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Imagine04' AS imagine WITH ;
ccod = B03, ;
Height = 48, ;
Left = 198, ;
Name = "Imagine04", ;
nid_img = 4, ;
ntip = 0, ;
picturedown = valid2.bmp, ;
pictureup = valid1.bmp, ;
ToolTipText = "Validare (F7)", ;
Top = 7, ;
Width = 60
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Imagine05' AS imagine WITH ;
ccod = C01, ;
Height = 48, ;
Left = 260, ;
Name = "Imagine05", ;
nid_img = 5, ;
ntip = 0, ;
picturedown = fact2.bmp, ;
pictureup = fact1.bmp, ;
ToolTipText = "Emitere facturi (F8)", ;
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 = 4, ;
Caption = "Operator:", ;
FontItalic = .T., ;
ForeColor = 0,0,128, ;
Left = 142, ;
Name = "lb_utilizator", ;
Top = 379
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
Anchor = 4, ;
Caption = "nume_utilizator", ;
FontBold = .T., ;
FontItalic = .T., ;
ForeColor = 0,0,128, ;
Left = 196, ;
Name = "lb_utilizator1", ;
Top = 379, ;
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
Thisform._pgfrmbase1.page5.Pict_meniu1.Height = Thisform._pgfrmbase1.Height
ENDPROC
PROCEDURE arata_meniu_fluna
Do start_firma In ostartfirma.prg
verifica_drepturi('gofundal','_pgfrmbase1')
ENDPROC
PROCEDURE KeyPress
Lparameters nKeyCode, nShiftAltCtrl
Do Case
Case nKeyCode==-1 &&F2
Do IESIRE
Case nKeyCode = -4 && F5
&& am apelat click pentru ca utilizatorul s-ar putea sa nu aiba drepturi pe optiunea respectiva,
&& iar daca nu are, atunci nu poate sa faca click
Thisform._pgfrmbase1.ActivePage = 2
Thisform._pgfrmbase1.page2.cw1.Click()
Case nKeyCode = -5 && F6
Thisform._pgfrmbase1.ActivePage = 2
Thisform._pgfrmbase1.page2.cw2.Click()
Case nKeyCode = -6 && F7
Thisform._pgfrmbase1.ActivePage = 2
Thisform._pgfrmbase1.page2.cw3.Click()
Case nKeyCode = -7 && F8
Thisform._pgfrmbase1.ActivePage = 3
Thisform._pgfrmbase1.page3.cw1.Click()
Otherwise
DoDefault(nKeyCode, nShiftAltCtrl)
Endcase
ENDPROC
PROCEDURE RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Show
Lparameters nStyle
DoDefault(nStyle)
This.AlwaysOnBottom = .T.
*!* modificare v 2.0.5
If Not Pemstatus(_Screen,"StatusBar", 5) Then
_Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar_fals.vcx", Null, 2)
Endif
Thisform.oStatusBar = _Screen.StatusBar
Thisform.oStatusBar.ctlIcon="roaautomic.ico"
Thisform.oStatusBar.ctlMessage = _Screen.Caption
Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
*!* modificare v 2.0.5 ^
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
ENDPROC
PROCEDURE statusbarclick
Thisform.oStatusBar.newtooltip()
ENDPROC
PROCEDURE Image1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Imagine01.do_actiune
DO viz_clienti IN onom_devize.prg
ENDPROC
PROCEDURE Imagine02.do_actiune
DO generare_com IN oproceduri_devize.prg
ENDPROC
PROCEDURE Imagine03.do_actiune
DO normare_comanda IN oproceduri_devize.prg
ENDPROC
PROCEDURE Imagine04.do_actiune
DO validare_comenzi IN oproceduri_vizualizare.prg
ENDPROC
PROCEDURE Imagine05.do_actiune
DO emitere_facturi IN oproceduri_vizualizare.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
PROCEDURE _pgfrmbase1.Page5.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
ENDDEFINE