*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (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" /> * DataSource = .NULL. Height = 200 Left = 1 Name = "Dataenvironment" Top = 220 Width = 520 * 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="" /> * *m: arata_meniu_fluna *m: statusbarclick *p: ostatusbar * * 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 * 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 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 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