Marius Mutu
7cc3bff358
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
130 lines
3.5 KiB
Plaintext
130 lines
3.5 KiB
Plaintext
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
* (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 = 429
|
|
KeyPreview = .T.
|
|
MaxButton = .F.
|
|
MinButton = .F.
|
|
Movable = .F.
|
|
Name = "Form1"
|
|
ostatusbar = .F.
|
|
Picture = ..\..\
|
|
Width = 797
|
|
WindowState = 2
|
|
*</PropValue>
|
|
|
|
PROCEDURE Activate
|
|
oprinc.SHOW()
|
|
ENDPROC
|
|
|
|
PROCEDURE jurnal
|
|
ENDPROC
|
|
|
|
PROCEDURE KeyPress
|
|
|
|
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE RightClick
|
|
*!* modificare v 2.0.39
|
|
*!* DO start_firma IN ostartfirma.prg
|
|
*!* verifica_drepturi('oprinc','pagefr1')
|
|
*!* actualizeaza_drepturi_roacontracte()
|
|
DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg
|
|
*!* modificare v 2.0.39 ^
|
|
ENDPROC
|
|
|
|
PROCEDURE Show
|
|
LPARAMETERS 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
|
|
Thisform.oStatusBar = _Screen.StatusBar
|
|
Thisform.oStatusBar.ctlIcon="roastartmic.ico"
|
|
Thisform.oStatusBar.ctlMessage = _Screen.Caption
|
|
BindEvent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick])
|
|
*!* end Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian
|
|
|
|
|
|
LOCAL c
|
|
IF primadata
|
|
primadata = .F.
|
|
|
|
*!* modificare v 2.0.39
|
|
*!* DO start_firma IN ostartfirma.prg
|
|
*!* **
|
|
*!* DO viz_contracte IN oproceduri_roacontracte.prg
|
|
*!* SELECT cContracte
|
|
*!* SCATTER NAME goContract BLANK
|
|
DO actualizari_schimbare_firma IN oproceduri_roacontracte.prg
|
|
*!* modificare v 2.0.39 ^
|
|
oprinc=CREA('princ')
|
|
verifica_drepturi('oprinc','pagefr1')
|
|
actualizeaza_drepturi_roacontracte()
|
|
oprinc.lb_utilizator1.CAPTION=ALLTRIM(gcUserNameApp)
|
|
oprinc.lb_utilizator1.VISIBLE=.T.
|
|
ENDIF
|
|
|
|
|
|
primadata=.F.
|
|
|
|
oprinc.SHOW()
|
|
|
|
DO lansare_toolbar IN oproceduri_comune.prg
|
|
DO lansare_help IN oproceduri_comune.prg
|
|
|
|
ENDPROC
|
|
|
|
PROCEDURE statusbarclick
|
|
Thisform.oStatusBar.newtooltip()
|
|
ENDPROC
|
|
|
|
ENDDEFINE
|