*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_registratura.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * * DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx" *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder *< OBJECTDATA: ObjPath="Page1.shape1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page1.Cw4" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page2.Ct_registratura1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page3.CT_DATE_GENERALE1" UniqueID="" Timestamp="" /> *< OBJECTDATA: ObjPath="Page3.CT_PART_NR_DATA1" UniqueID="" Timestamp="" /> * ActivePage = 2 Anchor = 15 ErasePage = .T. Height = 431 Name = "pg_meniu_princ" PageCount = 3 Width = 800 Page1.Caption = "Definire" Page1.Name = "Page1" Page2.Caption = "Lista documentelor" Page2.Name = "Page2" Page3.BackColor = 255,255,255 Page3.Caption = "Datele documentului" Page3.Name = "Page3" * ADD OBJECT 'Page1.Cw1' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw1", ; nid_cw = 1, ; ntip = 4, ; Top = 12, ; Width = 142, ; Label_item1.Caption = "Parteneri", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw2' AS cw WITH ; Height = 20, ; Left = 4, ; Name = "Cw2", ; nid_cw = 5, ; ntip = 4, ; Top = 61, ; Width = 142, ; Label_item1.Caption = "Optiuni", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.Cw4' AS cw WITH ; Left = 4, ; linactiv = .T., ; Name = "Cw4", ; nid_cw = 2, ; ntip = 2, ; TabIndex = 2, ; Top = 36, ; Width = 142, ; Label_item1.Caption = "Modele de COVER PAGE", ; Label_item1.Name = "Label_item1" *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> ADD OBJECT 'Page1.shape1' AS pict_meniu WITH ; Anchor = 7, ; Height = 406, ; Left = 0, ; Name = "shape1", ; Picture = ..\grafice\f2.jpg, ; Top = -2, ; Width = 160 *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> ADD OBJECT 'Page2.Ct_registratura1' AS ct_registratura WITH ; Anchor = 15, ; Height = 356, ; Left = -2, ; Name = "Ct_registratura1", ; Top = 0, ; Width = 800, ; _shape1.Name = "_shape1", ; Gridsort1.Name = "Gridsort1", ; _ct_controller_keypress1.Name = "_ct_controller_keypress1", ; grid_registratura.cAre_obs.Check1.Alignment = 0, ; grid_registratura.cAre_obs.Check1.Name = "Check1", ; grid_registratura.cAre_obs.Header1.Name = "Header1", ; grid_registratura.cAre_obs.Name = "cAre_obs", ; grid_registratura.cAvizat.Check1.Alignment = 0, ; grid_registratura.cAvizat.Check1.Name = "Check1", ; grid_registratura.cAvizat.Header1.Name = "Header1", ; grid_registratura.cAvizat.Name = "cAvizat", ; grid_registratura.cData_ctr.Header1.Name = "Header1", ; grid_registratura.cData_ctr.Name = "cData_ctr", ; grid_registratura.cData_ctr.Text1.Name = "Text1", ; grid_registratura.cData_intern.Header1.Name = "Header1", ; grid_registratura.cData_intern.Name = "cData_intern", ; grid_registratura.cData_intern.Text1.Name = "Text1", ; grid_registratura.cDescriere.Header1.Name = "Header1", ; grid_registratura.cDescriere.Name = "cDescriere", ; grid_registratura.cDescriere.Text1.Name = "Text1", ; grid_registratura.cFel_document.Header1.Name = "Header1", ; grid_registratura.cFel_document.Name = "cFel_document", ; grid_registratura.cFel_document.Text1.Name = "Text1", ; grid_registratura.cIE.Header1.Name = "Header1", ; grid_registratura.cIE.Name = "cIE", ; grid_registratura.cIE.Text1.Name = "Text1", ; grid_registratura.cMediu_transmisie.Header1.Name = "Header1", ; grid_registratura.cMediu_transmisie.Name = "cMediu_transmisie", ; grid_registratura.cMediu_transmisie.Text1.Name = "Text1", ; grid_registratura.cNresp.Header1.Name = "Header1", ; grid_registratura.cNresp.Name = "cNresp", ; grid_registratura.cNresp.Text1.Name = "Text1", ; grid_registratura.cNr_ctr.Header1.Name = "Header1", ; grid_registratura.cNr_ctr.Name = "cNr_ctr", ; grid_registratura.cNr_ctr.Text1.Name = "Text1", ; grid_registratura.cNr_pag.Header1.Name = "Header1", ; grid_registratura.cNr_pag.Name = "cNr_pag", ; grid_registratura.cNr_pag.Text1.Name = "Text1", ; grid_registratura.cNumar_intern.Header1.Name = "Header1", ; grid_registratura.cNumar_intern.Name = "cNumar_intern", ; grid_registratura.cNumar_intern.Text1.Name = "Text1", ; grid_registratura.cNume.Header1.Name = "Header1", ; grid_registratura.cNume.Name = "cNume", ; grid_registratura.cNume.Text1.Name = "Text1", ; grid_registratura.Column12.Header1.Name = "Header1", ; grid_registratura.Column12.Name = "Column12", ; grid_registratura.Column12.Text1.Name = "Text1", ; grid_registratura.COLUMN13.Header1.Name = "Header1", ; grid_registratura.COLUMN13.Name = "COLUMN13", ; grid_registratura.COLUMN13.Text1.Name = "Text1", ; grid_registratura.Column14.Header1.Name = "Header1", ; grid_registratura.Column14.Name = "Column14", ; grid_registratura.Column14.Text1.Name = "Text1", ; grid_registratura.Column15.Header1.Name = "Header1", ; grid_registratura.Column15.Name = "Column15", ; grid_registratura.Column15.Text1.Name = "Text1", ; grid_registratura.COLUMN16.Header1.Name = "Header1", ; grid_registratura.COLUMN16.Name = "COLUMN16", ; grid_registratura.COLUMN16.Text1.Name = "Text1", ; grid_registratura.COLUMN17.Header1.Name = "Header1", ; grid_registratura.COLUMN17.Name = "COLUMN17", ; grid_registratura.COLUMN17.Text1.Name = "Text1", ; grid_registratura.COLUMN22.Header1.Name = "Header1", ; grid_registratura.COLUMN22.Name = "COLUMN22", ; grid_registratura.COLUMN22.Text1.Name = "Text1", ; grid_registratura.Column23.Command1.Name = "Command1", ; grid_registratura.Column23.Command2.Name = "Command2", ; grid_registratura.Column23.Header1.Name = "Header1", ; grid_registratura.Column23.Name = "Column23", ; grid_registratura.Column23.Text1.Name = "Text1", ; grid_registratura.cPers_contact.Header1.Name = "Header1", ; grid_registratura.cPers_contact.Name = "cPers_contact", ; grid_registratura.cPers_contact.Text1.Name = "Text1", ; grid_registratura.Name = "grid_registratura", ; Ck_data.Alignment = 0, ; Ck_data.Name = "Ck_data", ; But_nou1.Name = "But_nou1", ; But_sterge1.Name = "But_sterge1", ; Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ; Clb_tx_simplu1.Name = "Clb_tx_simplu1", ; Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ; But_listare1.Name = "But_listare1", ; But_excel1.Name = "But_excel1", ; Ck_nume.Alignment = 0, ; Ck_nume.Name = "Ck_nume", ; Ck_numar.Alignment = 0, ; Ck_numar.Name = "Ck_numar", ; Cmd_reset1.Name = "Cmd_reset1", ; Cmd_cauta1.Name = "Cmd_cauta1", ; _lbbase1.Name = "_lbbase1", ; Ck_tipdoc.Alignment = 0, ; Ck_tipdoc.Name = "Ck_tipdoc", ; Ck_sters.Alignment = 0, ; Ck_sters.Name = "Ck_sters" *< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" /> ADD OBJECT 'Page3.CT_DATE_GENERALE1' AS ct_date_generale WITH ; Anchor = 15, ; Left = -1, ; Name = "CT_DATE_GENERALE1", ; Top = 0, ; OUTLOOK2003BAR1.Name = "OUTLOOK2003BAR1", ; OUTLOOK2003BAR1.OVERFLOWPANEL.MENUBUTTON.IMGPICTURE.Height = 16, ; OUTLOOK2003BAR1.OVERFLOWPANEL.MENUBUTTON.IMGPICTURE.Name = "IMGPICTURE", ; OUTLOOK2003BAR1.OVERFLOWPANEL.MENUBUTTON.IMGPICTURE.Width = 16, ; OUTLOOK2003BAR1.OVERFLOWPANEL.MENUBUTTON.Name = "MENUBUTTON", ; OUTLOOK2003BAR1.OVERFLOWPANEL.Name = "OVERFLOWPANEL", ; OUTLOOK2003BAR1.Panel.Name = "Panel", ; OUTLOOK2003BAR1.PANES.ErasePage = .T., ; OUTLOOK2003BAR1.PANES.Height = 328, ; OUTLOOK2003BAR1.PANES.Name = "PANES", ; OUTLOOK2003BAR1.PANES.PANE1.Name = "PANE1", ; OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Height = 328, ; OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Left = 0, ; OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Name = "OLECONTROL1", ; OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Top = 0, ; OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL1.Width = 198, ; OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL2.Height = 150, ; OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL2.Name = "OLECONTROL2", ; OUTLOOK2003BAR1.PANES.PANE1.OLECONTROL2.Width = 200, ; OUTLOOK2003BAR1.PANES.PANE2.Name = "PANE2", ; OUTLOOK2003BAR1.PANES.PANE3.Name = "PANE3", ; OUTLOOK2003BAR1.PANES.PANE4.Name = "PANE4", ; OUTLOOK2003BAR1.PANES.Top = 33, ; OUTLOOK2003BAR1.SplitBar.IMGSPLITTER.Height = 3, ; OUTLOOK2003BAR1.SplitBar.IMGSPLITTER.Name = "IMGSPLITTER", ; OUTLOOK2003BAR1.SplitBar.IMGSPLITTER.Width = 35, ; OUTLOOK2003BAR1.SplitBar.Name = "SplitBar", ; OUTLOOK2003BAR1.SPLITTER.Name = "SPLITTER", ; OUTLOOK2003BAR1.TITLE.LBLCAPTION.Name = "LBLCAPTION", ; OUTLOOK2003BAR1.TITLE.LINBORDER.Name = "LINBORDER", ; OUTLOOK2003BAR1.TITLE.Name = "TITLE" *< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" /> ADD OBJECT 'Page3.CT_PART_NR_DATA1' AS ct_part_nr_data WITH ; Anchor = 11, ; Left = 203, ; Name = "CT_PART_NR_DATA1", ; Top = 0, ; cmdDenumire.Name = "cmdDenumire", ; Label3.Name = "Label3", ; txtClient.Name = "txtClient", ; Label4.Name = "Label4", ; txtNumar.Name = "txtNumar", ; Label9.Name = "Label9", ; txtData_ctr.Name = "txtData_ctr", ; Command2.Name = "Command2" *< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" /> PROCEDURE Page1.Activate If Type('podg_dg.but_termin1') <> 'U' podg_dg.but_termin1.Click() Endif If Type('podg_referinte.but_termin1') <> 'U' podg_referinte.but_termin1.Click() Endif If Type('podg_obs.but_termin1') <> 'U' podg_obs.but_termin1.Click() Endif If Type('podg_link.but_termin1') <> 'U' podg_link.but_termin1.Click() Endif ENDPROC PROCEDURE Page1.Cw1.do_actiune DO viz_parteneri IN onomenclatoare.prg ENDPROC PROCEDURE Page2.Activate If Type('podg_dg.but_termin1') <> 'U' podg_dg.but_termin1.Click() Endif If Type('podg_referinte.but_termin1') <> 'U' podg_referinte.but_termin1.Click() Endif If Type('podg_obs.but_termin1') <> 'U' podg_obs.but_termin1.Click() Endif If Type('podg_link.but_termin1') <> 'U' podg_link.but_termin1.Click() Endif This.ct_registratura1.do_cauta(.T.) ENDPROC PROCEDURE Page3.Activate If Empty(goRegistratura.id_reg) AMESSAGEBOX('Nu este selectat niciun document!',0+48,'Atentie') This.Parent.ActivePage = 2 Else Do make_cursoare_reg In oproceduri_roaregistratura.prg && imi creeaza cursoarele This.ct_part_nr_data1.Refresh This.ct_date_generale1.outlook2003bar1.Panel.button1.Click Endif ENDPROC PROCEDURE Page3.Deactivate Local lnRaspuns *!* 23.07.2026 MM - partener NULL: nu se salveaza, se renunta explicit (P1/P2) If !This.ct_part_nr_data1.llock And (Isnull(goRegistratura.id_part) Or Empty(goRegistratura.id_part)) This.ct_part_nr_data1.llock = .T. AMESSAGEBOX('Alegeti partenerul! Modificarile nu au fost salvate.',0+48,'Atentie') This.ct_part_nr_data1.Refresh() Endif If !This.ct_part_nr_data1.llock This.ct_part_nr_data1.llock = .T. lnRaspuns = AMESSAGEBOX('Doriți să salvați modificările făcute?',4+32,'Confirmare') This.ct_part_nr_data1.Refresh() If lnRaspuns = 7 Return Else Do modifica_reg_dg With goRegistratura In oproceduri_roaregistratura.prg Endif Endif If Used('cRegLink') Use In cRegLink Endif If Used('cRegReferinte') Use In cRegReferinte Endif ENDPROC ENDDEFINE