romfast/roaregistratura
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
roaregistratura/Ferestre/fundal.sc2
Marius Mutu b3b41a81e5 Rezolvat: fereastra principala nu mai pornea maximizata 
fundal.scx forteaza WindowState=2 la finalul Show si arata_meniu_fluna (lantul complet de pornire ruleaza abia acum, dupa fix-ul buclei de mesaje; EXE-ul precedent era din 2021).

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
2026-07-23 20:48:15 +03:00

413 lines
16 KiB
Plaintext
Raw Permalink Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="" />
*<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 = 61, ;
Page1.Cw1.Label_item1.Name = "Label_item1", ;
Page1.Cw1.Name = "Cw1", ;
Page1.Cw2.Label_item1.Name = "Label_item1", ;
Page1.Cw2.Name = "Cw2", ;
Page1.Cw4.Label_item1.Name = "Label_item1", ;
Page1.Cw4.Name = "Cw4", ;
Page1.Name = "Page1", ;
Page1.shape1.Name = "shape1", ;
Page2.Ct_registratura1.But_excel1.Name = "But_excel1", ;
Page2.Ct_registratura1.But_listare1.Name = "But_listare1", ;
Page2.Ct_registratura1.But_nou1.Name = "But_nou1", ;
Page2.Ct_registratura1.But_sterge1.Name = "But_sterge1", ;
Page2.Ct_registratura1.Ck_data.Alignment = 0, ;
Page2.Ct_registratura1.Ck_data.Name = "Ck_data", ;
Page2.Ct_registratura1.Ck_numar.Alignment = 0, ;
Page2.Ct_registratura1.Ck_numar.Name = "Ck_numar", ;
Page2.Ct_registratura1.Ck_nume.Alignment = 0, ;
Page2.Ct_registratura1.Ck_nume.Name = "Ck_nume", ;
Page2.Ct_registratura1.ck_sters.Alignment = 0, ;
Page2.Ct_registratura1.ck_sters.Name = "ck_sters", ;
Page2.Ct_registratura1.Ck_tipdoc.Alignment = 0, ;
Page2.Ct_registratura1.Ck_tipdoc.Name = "Ck_tipdoc", ;
Page2.Ct_registratura1.Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ;
Page2.Ct_registratura1.Clb_tx_simplu1.Name = "Clb_tx_simplu1", ;
Page2.Ct_registratura1.Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ;
Page2.Ct_registratura1.Cmd_cauta1.Name = "Cmd_cauta1", ;
Page2.Ct_registratura1.Cmd_reset1.Name = "Cmd_reset1", ;
Page2.Ct_registratura1.Gridsort1.Name = "Gridsort1", ;
Page2.Ct_registratura1.grid_registratura.cAre_obs.Check1.Alignment = 0, ;
Page2.Ct_registratura1.grid_registratura.cAre_obs.Check1.Name = "Check1", ;
Page2.Ct_registratura1.grid_registratura.cAre_obs.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cAre_obs.Name = "cAre_obs", ;
Page2.Ct_registratura1.grid_registratura.cAvizat.Check1.Alignment = 0, ;
Page2.Ct_registratura1.grid_registratura.cAvizat.Check1.Name = "Check1", ;
Page2.Ct_registratura1.grid_registratura.cAvizat.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cAvizat.Name = "cAvizat", ;
Page2.Ct_registratura1.grid_registratura.cData_ctr.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cData_ctr.Name = "cData_ctr", ;
Page2.Ct_registratura1.grid_registratura.cData_ctr.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cData_intern.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cData_intern.Name = "cData_intern", ;
Page2.Ct_registratura1.grid_registratura.cData_intern.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cDescriere.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cDescriere.Name = "cDescriere", ;
Page2.Ct_registratura1.grid_registratura.cDescriere.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cFel_document.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cFel_document.Name = "cFel_document", ;
Page2.Ct_registratura1.grid_registratura.cFel_document.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cIE.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cIE.Name = "cIE", ;
Page2.Ct_registratura1.grid_registratura.cIE.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cMediu_transmisie.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cMediu_transmisie.Name = "cMediu_transmisie", ;
Page2.Ct_registratura1.grid_registratura.cMediu_transmisie.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cNresp.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cNresp.Name = "cNresp", ;
Page2.Ct_registratura1.grid_registratura.cNresp.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cNr_ctr.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cNr_ctr.Name = "cNr_ctr", ;
Page2.Ct_registratura1.grid_registratura.cNr_ctr.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cNr_pag.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cNr_pag.Name = "cNr_pag", ;
Page2.Ct_registratura1.grid_registratura.cNr_pag.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cNumar_intern.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cNumar_intern.Name = "cNumar_intern", ;
Page2.Ct_registratura1.grid_registratura.cNumar_intern.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cNume.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cNume.Name = "cNume", ;
Page2.Ct_registratura1.grid_registratura.cNume.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN12.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN12.Name = "COLUMN12", ;
Page2.Ct_registratura1.grid_registratura.COLUMN12.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN13.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN13.Name = "COLUMN13", ;
Page2.Ct_registratura1.grid_registratura.COLUMN13.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN14.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN14.Name = "COLUMN14", ;
Page2.Ct_registratura1.grid_registratura.COLUMN14.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN15.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN15.Name = "COLUMN15", ;
Page2.Ct_registratura1.grid_registratura.COLUMN15.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN16.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN16.Name = "COLUMN16", ;
Page2.Ct_registratura1.grid_registratura.COLUMN16.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN17.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN17.Name = "COLUMN17", ;
Page2.Ct_registratura1.grid_registratura.COLUMN17.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN22.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.COLUMN22.Name = "COLUMN22", ;
Page2.Ct_registratura1.grid_registratura.COLUMN22.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.Column23.Command1.Name = "Command1", ;
Page2.Ct_registratura1.grid_registratura.Column23.Command2.Name = "Command2", ;
Page2.Ct_registratura1.grid_registratura.Column23.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.Column23.Name = "Column23", ;
Page2.Ct_registratura1.grid_registratura.Column23.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.cPers_contact.Header1.Name = "Header1", ;
Page2.Ct_registratura1.grid_registratura.cPers_contact.Name = "cPers_contact", ;
Page2.Ct_registratura1.grid_registratura.cPers_contact.Text1.Name = "Text1", ;
Page2.Ct_registratura1.grid_registratura.Name = "grid_registratura", ;
Page2.Ct_registratura1.Name = "Ct_registratura1", ;
Page2.Ct_registratura1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
Page2.Ct_registratura1._lbbase1.Name = "_lbbase1", ;
Page2.Ct_registratura1._shape1.Name = "_shape1", ;
Page2.Name = "Page2", ;
Page3.CT_DATE_GENERALE1.Name = "CT_DATE_GENERALE1", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Name = "outlook2003bar1", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.imgPicture.Height = 16, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.imgPicture.Name = "imgPicture", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.imgPicture.Width = 16, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.Name = "MenuButton", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.Name = "overflowpanel", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panel.Name = "Panel", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.ErasePage = .T., ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.Height = 328, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.Name = "Panes", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Name = "pane1", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Height = 328, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Left = 0, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Name = "Olecontrol1", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Top = 0, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Width = 198, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol2.Height = 150, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol2.Name = "Olecontrol2", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol2.Width = 200, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane2.Name = "pane2", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane3.Name = "pane3", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane4.Name = "pane4", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.Top = 33, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.imgSplitter.Height = 3, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.imgSplitter.Name = "imgSplitter", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.imgSplitter.Width = 35, ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.Name = "SplitBar", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Splitter.Name = "Splitter", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Title.lblCaption.Name = "lblCaption", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Title.linBorder.Name = "linBorder", ;
Page3.CT_DATE_GENERALE1.outlook2003bar1.Title.Name = "Title", ;
Page3.CT_PART_NR_DATA1.cmdDenumire.Name = "cmdDenumire", ;
Page3.CT_PART_NR_DATA1.Command2.Name = "Command2", ;
Page3.CT_PART_NR_DATA1.Label3.Name = "Label3", ;
Page3.CT_PART_NR_DATA1.Label4.Name = "Label4", ;
Page3.CT_PART_NR_DATA1.Label9.Name = "Label9", ;
Page3.CT_PART_NR_DATA1.Name = "CT_PART_NR_DATA1", ;
Page3.CT_PART_NR_DATA1.txtClient.Name = "txtClient", ;
Page3.CT_PART_NR_DATA1.txtData_ctr.Name = "txtData_ctr", ;
Page3.CT_PART_NR_DATA1.txtNumar.Name = "txtNumar", ;
Page3.Name = "Page3"
*< END OBJECT: ClassLib="..\clase\ofundal_registratura.vcx" BaseClass="pageframe" />
ADD OBJECT 'Image1' AS image WITH ;
Anchor = 12, ;
Height = 220, ;
Left = 228, ;
Name = "Image1", ;
Picture = ..\grafice\roaregistratura.bmp, ;
Stretch = 0, ;
Top = 204, ;
Width = 556
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Image2' AS image WITH ;
Anchor = 10, ;
Height = 64, ;
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 = 4, ;
picturedown = clie2.bmp, ;
pictureup = clie1.bmp, ;
ToolTipText = "Vizualizare parteneri", ;
Top = 0, ;
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 = 255,255,255, ;
Left = 571, ;
Name = "lb_utilizator", ;
Top = 8
*< 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 = 255,255,255, ;
Left = 625, ;
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 arata_meniu_fluna
Do start_firma In ostartfirma.prg
verifica_drepturi('gofundal','_pgfrmbase1')
With Thisform._pgfrmbase1.page2.ct_registratura1
.do_initializeaza_cursor()
.grid_registratura.SetFocus()
Endwith
Thisform.WindowState = 2
ENDPROC
PROCEDURE RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Show
Lparameters nStyle
DoDefault(nStyle)
This.AlwaysOnBottom = .T.
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
This.WindowState = 2
ENDPROC
PROCEDURE statusbarclick
Thisform.oStatusBar.newtooltip()
ENDPROC
PROCEDURE Image1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE Imagine01.do_actiune
Thisform._pgfrmbase1.page1.cw1.do_actiune()
ENDPROC
PROCEDURE lb_utilizator.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE lb_utilizator1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE _pgfrmbase1.Page1.Activate
DODEFAULT()
Thisform.image1.Visible = .T.
ENDPROC
PROCEDURE _pgfrmbase1.Page1.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE _pgfrmbase1.Page2.Activate
DODEFAULT()
Thisform.image1.Visible = .F.
ENDPROC
PROCEDURE _pgfrmbase1.Page2.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
PROCEDURE _pgfrmbase1.Page3.Activate
DODEFAULT()
Thisform.image1.Visible = .F.
ENDPROC
PROCEDURE _pgfrmbase1.Page3.RightClick
Thisform.arata_meniu_fluna()
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink