romfast/roagest
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:22:03 +03:00
commit 7ae0c39d5e
204 changed files with 66147 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

172
Ferestre/accesindivid.sc2 Normal file
View File

@@ -0,0 +1,172 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="accesindivid.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 = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS formtermin1 AS formtermin OF "..\comun\clase\baza.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="TEXT_ITEM1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label_item1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label_item2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Label_item3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="List1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="List2" UniqueID="" Timestamp="" />
*<PropValue>
BorderStyle = 3
DoCreate = .T.
Height = 318
Name = "Formtermin1"
Width = 456
Shape1.Height = 32
Shape1.Left = 0
Shape1.Name = "Shape1"
Shape1.Top = 0
Shape1.Width = 455
TERMINAT1.COMMAND1.Name = "COMMAND1"
TERMINAT1.IMBUTON1.Height = 27
TERMINAT1.IMBUTON1.Name = "IMBUTON1"
TERMINAT1.IMBUTON1.Width = 30
TERMINAT1.Left = 424
TERMINAT1.Name = "TERMINAT1"
TERMINAT1.Top = 1
TITLUFRUMOS1.Caption = "Grupe de acces"
TITLUFRUMOS1.Height = 25
TITLUFRUMOS1.Left = 8
TITLUFRUMOS1.Name = "TITLUFRUMOS1"
TITLUFRUMOS1.Top = 4
TITLUFRUMOS1.Width = 364
*</PropValue>
ADD OBJECT 'Label_item1' AS label_item WITH ;
AutoSize = .F., ;
Caption = "Are drepturi de acces asupra grupelor de gestiuni :", ;
Height = 32, ;
Left = 14, ;
Name = "Label_item1", ;
Top = 106, ;
Width = 198, ;
WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" />
ADD OBJECT 'Label_item2' AS label_item WITH ;
AutoSize = .F., ;
Caption = "Gestiunile:", ;
Height = 32, ;
Left = 242, ;
Name = "Label_item2", ;
Top = 106, ;
Width = 198, ;
WordWrap = .T.
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" />
ADD OBJECT 'Label_item3' AS label_item WITH ;
Caption = "Are drepturi de acces asupra tuturor gestiunilor.", ;
Left = 12, ;
Name = "Label_item3", ;
Top = 72, ;
Visible = .F.
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="label" />
ADD OBJECT 'List1' AS listbox WITH ;
BorderColor = 0,64,128, ;
FontName = "Arial Narrow", ;
Height = 157, ;
ItemBackColor = 217,241,255, ;
Left = 12, ;
Name = "List1", ;
RowSourceType = 1, ;
SpecialEffect = 1, ;
Top = 144, ;
Width = 205
*< END OBJECT: BaseClass="listbox" />
ADD OBJECT 'List2' AS listbox WITH ;
BorderColor = 0,64,128, ;
FontName = "Arial Narrow", ;
Height = 157, ;
ItemBackColor = 217,241,255, ;
Left = 240, ;
Name = "List2", ;
RowSourceType = 1, ;
SpecialEffect = 1, ;
Top = 144, ;
Width = 205
*< END OBJECT: BaseClass="listbox" />
ADD OBJECT 'TEXT_ITEM1' AS text_item WITH ;
ControlSource = "", ;
FontBold = .T., ;
FontUnderline = .T., ;
Height = 20, ;
Left = 12, ;
Name = "TEXT_ITEM1", ;
Top = 48, ;
Width = 240
*< END OBJECT: ClassLib="..\comun\clase\baza.vcx" BaseClass="textbox" />
PROCEDURE Init
PRIVATE pcutil
STORE '' TO pcutil
*Are drepturi de acces asupra grupelor de gestiuni cu numerele:
*Are drepturi de acces asupra tuturor gestiunilor.
*Gestiuni cu indicativele:
lcSql = [select utilizator from utilizatori where id_util = ] + ALLTRIM(STR(gnidutil))
lcCursor = [crsUtil]
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
IF lnSucces < 0
lcMesaj = goExecutor.cEroare
ofrm_eroare =CREATEOBJECT('frm_mesaj',[Eroare],[exclam.ico],[Avertizare],lcMesaj)
ofrm_eroare.show()
RELEASE ofrm_eroare
return
ENDIF
pcutil = &lcCursor..utilizator
this.text_item1.ControlSource = [pcutil]
IF '-1'$gcGrupePermis
this.label_item1.Visible=.f.
this.label_item2.Visible=.f.
this.list1.Visible=.f.
this.list2.Visible=.f.
this.label_item3.Visible=.t.
ENDIF
IF EMPTY(gcGrupePermis_nume)
this.label_item1.Caption = [Nu are drepturi pe grupe de gestiuni!]
this.list1.Visible=.f.
ENDIF
IF EMPTY(gcGestPermis_nume)
this.label_item2.Caption = [Nu are drepturi pe gestiuni!]
this.list2.Visible=.f.
ENDIF
this.list1.RowSource = (gcGrupePermis_nume)
this.list2.RowSource = (gcGestPermis_nume)
ENDPROC
ENDDEFINE

206
Ferestre/frm_conversii.sc2 Normal file
View File

@@ -0,0 +1,206 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_conversii.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>
Name = "Dataenvironment"
*</PropValue>
ENDDEFINE
DEFINE CLASS formtermin12 AS formtermin OF "..\..\comun\clase\baza.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Pageframe1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Item1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Item2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Item3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pageframe1.Page1.Item4" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: calcul_suprafata
*</DefinedPropArrayMethod>
*<PropValue>
BorderStyle = 3
DataSession = 1
DoCreate = .T.
Height = 221
Name = "FormTERMIN12"
Width = 477
Shape1.Name = "Shape1"
Terminat1.Command1.Name = "Command1"
Terminat1.Imbuton1.Height = 27
Terminat1.Imbuton1.Name = "Imbuton1"
Terminat1.Imbuton1.Width = 30
Terminat1.Left = 444
Terminat1.Name = "Terminat1"
Terminat1.Top = 3
Titlufrumos1.Caption = "CONVERSII"
Titlufrumos1.Left = 9
Titlufrumos1.Name = "Titlufrumos1"
Titlufrumos1.Top = 3
*</PropValue>
ADD OBJECT 'Pageframe1' AS pageframe WITH ;
ErasePage = .T., ;
Height = 156, ;
Left = 13, ;
Name = "Pageframe1", ;
PageCount = 1, ;
TabStyle = 1, ;
Top = 48, ;
Width = 456, ;
Page1.BackColor = 247,245,238, ;
Page1.Caption = "Lungime, Suprafata", ;
Page1.FontName = "Courier New", ;
Page1.ForeColor = 0,0,128, ;
Page1.Name = "Page1"
*< END OBJECT: BaseClass="pageframe" />
ADD OBJECT 'Pageframe1.Page1.Item1' AS item WITH ;
Left = 11, ;
Name = "Item1", ;
TabIndex = 1, ;
Top = 20, ;
Label_item1.Caption = "Lungimea ", ;
Label_item1.Name = "Label_item1", ;
Text_item1.ControlSource = "pnLungime", ;
Text_item1.Format = "kR", ;
Text_item1.InputMask = "9 999 999 999.9999", ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
ADD OBJECT 'Pageframe1.Page1.Item2' AS item WITH ;
Left = 11, ;
Name = "Item2", ;
TabIndex = 2, ;
Top = 44, ;
Label_item1.Caption = "Latimea ", ;
Label_item1.Name = "Label_item1", ;
Text_item1.ControlSource = "pnLatime", ;
Text_item1.Format = "kR", ;
Text_item1.InputMask = "9 999 999 999.9999", ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
ADD OBJECT 'Pageframe1.Page1.Item3' AS item WITH ;
Left = 11, ;
Name = "Item3", ;
TabIndex = 3, ;
Top = 68, ;
Label_item1.Caption = "Pret unitar placa", ;
Label_item1.Name = "Label_item1", ;
Text_item1.ControlSource = "pnPret", ;
Text_item1.Format = "kR", ;
Text_item1.InputMask = "9 999 999 999.9999", ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
ADD OBJECT 'Pageframe1.Page1.Item4' AS item WITH ;
Left = 11, ;
Name = "Item4", ;
TabIndex = 4, ;
Top = 92, ;
Label_item1.Caption = "Cantitatea", ;
Label_item1.Name = "Label_item1", ;
Text_item1.ControlSource = "PnCant", ;
Text_item1.Format = "kR", ;
Text_item1.InputMask = "9 999 999 999.9999", ;
Text_item1.Name = "Text_item1", ;
Lineo1.Name = "Lineo1", ;
Lineo3.Name = "Lineo3", ;
Lineo4.Name = "Lineo4", ;
Lineo5.Name = "Lineo5", ;
Lineo2.Name = "Lineo2"
*< END OBJECT: ClassLib="..\..\comun\clase\baza.vcx" BaseClass="container" />
PROCEDURE calcul_suprafata
IF pnLungime#0 AND pnLatime#0 AND pnCANT#0 AND pnPRET#0
pn_valoare=pnCant*pnPret
*pn_cantitate=(pn_valoare/pnPret)*pnLungime*pnLatime
pn_cantitate=ROUND(pnCant*pnLungime*pnLatime,3)
*pn_PretUnit=(pn_valoare/pnCant)/(pnLungime*pnLatime)
pn_PretUnit=ROUND(pn_valoare/pn_cantitate,3)
ELSE
pn_cantitate=0
pn_PretUnit=0
ENDIF
*!* WAIT WINDOW STR(pn_pretUnit)
*!* WAIT WINDOW STR(pn_cantitate)
ENDPROC
PROCEDURE Show
LPARAMETERS nStyle
this.pageframe1.page1.item1.SetFocus
ENDPROC
PROCEDURE Pageframe1.Page1.Item1.Text_item1.GotFocus
*
ENDPROC
PROCEDURE Pageframe1.Page1.Item1.Text_item1.Valid
*
ENDPROC
PROCEDURE Pageframe1.Page1.Item1.Text_item1.When
*
ENDPROC
PROCEDURE Pageframe1.Page1.Item2.Text_item1.GotFocus
*
ENDPROC
PROCEDURE Pageframe1.Page1.Item2.Text_item1.Valid
*
ENDPROC
PROCEDURE Pageframe1.Page1.Item2.Text_item1.When
*
ENDPROC
PROCEDURE Pageframe1.Page1.Item3.Text_item1.GotFocus
*
ENDPROC
PROCEDURE Pageframe1.Page1.Item3.Text_item1.When
*
ENDPROC
PROCEDURE Pageframe1.Page1.Item4.Text_item1.GotFocus
*
ENDPROC
PROCEDURE Pageframe1.Page1.Item4.Text_item1.When
*
ENDPROC
PROCEDURE Terminat1.Command1.Click
thisform.calcul_suprafata
thisform.Release
ENDPROC
ENDDEFINE

97
Ferestre/frm_schimbare_pret_tva.sc2 Normal file
View File

@@ -0,0 +1,97 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_schimbare_pret_tva.scx" CPID="1250" /> (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 = 0
Left = 0
Name = "Dataenvironment"
Top = 0
Width = 0
*</PropValue>
ENDDEFINE
DEFINE CLASS schimbpret_masa_tva1 AS schimbpret_masa_tva OF "..\comun\clase\oschimbare_pret.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
*<PropValue>
DoCreate = .T.
Name = "Schimbpret_masa_tva1"
_SHAPE1.Name = "_SHAPE1"
_SHAPE2.Name = "_SHAPE2"
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
BUT_TERMIN1.Name = "BUT_TERMIN1"
GRIDSORT1.Name = "GRIDSORT1"
grdPolitici.cAles.Check1.Alignment = 2
grdPolitici.cAles.Check1.Name = "Check1"
grdPolitici.cAles.HEADER1.Name = "HEADER1"
grdPolitici.cAles.Name = "cAles"
grdPolitici.cAles.TEXT1.Name = "TEXT1"
grdPolitici.cPolitica.HEADER1.Name = "HEADER1"
grdPolitici.cPolitica.Name = "cPolitica"
grdPolitici.cPolitica.TEXT1.Name = "TEXT1"
grdPolitici.cPretcuTVA.Check1.Alignment = 0
grdPolitici.cPretcuTVA.Check1.Name = "Check1"
grdPolitici.cPretcuTVA.HEADER1.Name = "HEADER1"
grdPolitici.cPretcuTVA.Name = "cPretcuTVA"
grdPolitici.cPretcuTVA.TEXT1.Name = "TEXT1"
grdPolitici.Name = "grdPolitici"
grdGestiuni.cAles.Check1.Alignment = 2
grdGestiuni.cAles.Check1.Name = "Check1"
grdGestiuni.cAles.HEADER1.Name = "HEADER1"
grdGestiuni.cAles.Name = "cAles"
grdGestiuni.cAles.TEXT1.Name = "TEXT1"
grdGestiuni.cGestiune.HEADER1.Name = "HEADER1"
grdGestiuni.cGestiune.Name = "cGestiune"
grdGestiuni.cGestiune.TEXT1.Name = "TEXT1"
grdGestiuni.Name = "grdGestiuni"
_label1.Name = "_label1"
_label2.Name = "_label2"
grdSubgrupe.cAles.Check1.Alignment = 2
grdSubgrupe.cAles.Check1.Name = "Check1"
grdSubgrupe.cAles.HEADER1.Name = "HEADER1"
grdSubgrupe.cAles.Name = "cAles"
grdSubgrupe.cAles.TEXT1.Name = "TEXT1"
grdSubgrupe.cGrupa.HEADER1.Name = "HEADER1"
grdSubgrupe.cGrupa.Name = "cGrupa"
grdSubgrupe.cGrupa.TEXT1.Name = "TEXT1"
grdSubgrupe.cSubgrupa.HEADER1.Name = "HEADER1"
grdSubgrupe.cSubgrupa.Name = "cSubgrupa"
grdSubgrupe.cSubgrupa.TEXT1.Name = "TEXT1"
grdSubgrupe.Name = "grdSubgrupe"
_label3.Name = "_label3"
_label4.Name = "_label4"
_label5.Name = "_label5"
txtCotaTVAVeche.Name = "txtCotaTVAVeche"
txtCotaTVANoua.Name = "txtCotaTVANoua"
_label6.Name = "_label6"
_label7.Name = "_label7"
Cmd_executa1.Name = "Cmd_executa1"
Cmd_executa2.Name = "Cmd_executa2"
lblInfo.Name = "lblInfo"
_label8.Name = "_label8"
_label9.Name = "_label9"
_label10.Name = "_label10"
txtDataActualizare.Name = "txtDataActualizare"
optPret.Name = "optPret"
optPret.OPTION1.Left = 5
optPret.OPTION1.Name = "OPTION1"
optPret.OPTION1.Top = 5
optPret.OPTION2.Left = 5
optPret.OPTION2.Name = "OPTION2"
optPret.OPTION2.Top = 24
_label11.Name = "_label11"
txtZecimale.Name = "txtZecimale"
cmdSelect1.Name = "cmdSelect1"
cmdSelect2.Name = "cmdSelect2"
cmdSelect3.Name = "cmdSelect3"
*</PropValue>
ENDDEFINE

96
Ferestre/fundal.sc2 Normal file
View File

@@ -0,0 +1,96 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="" />
*<DefinedPropArrayMethod>
*m: jurnal
*m: statusbarclick
*p: ostatusbar
*</DefinedPropArrayMethod>
*<PropValue>
AutoCenter = .T.
BackColor = 255,255,255
BorderStyle = 2
Caption = ""
Closable = .F.
ControlBox = .F.
DoCreate = .T.
Enabled = .T.
FillColor = 0,0,0
HalfHeightCaption = .F.
Height = 595
MaxButton = .F.
MinButton = .F.
Movable = .F.
Name = "FORM1"
ostatusbar =
Picture = ..\..\
Width = 795
WindowState = 2
*</PropValue>
PROCEDURE jurnal
ENDPROC
PROCEDURE KeyPress
LPARAMETERS nKeyCode, nShiftAltCtrl
if nkeycode==-1 &&F2
DO IESIRE
endif
ENDPROC
PROCEDURE RightClick
DO start_firma IN ostartfirma.prg
verifica_drepturi('oprinc','pagefr1')
ENDPROC
PROCEDURE Show
Lparameters nStyle
Local c
*!* IF primadata
This.AlwaysOnBottom = .T.
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="roastartmic.ico"
Thisform.oStatusBar.ctlMessage = _Screen.Caption
Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
Do start_firma In ostartfirma.prg
primadata = .F.
Do lansare_toolbar In oproceduri_comune.prg
Do lansare_help In oproceduri_comune.prg
oprinc=Crea('princ')
verifica_drepturi('oprinc','pagefr1')
*!* ENDIF
oprinc.Show()
ENDPROC
PROCEDURE statusbarclick
Thisform.oStatusBar.newtooltip()
ENDPROC
ENDDEFINE