romfast/roaregistratura
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
b8a4f093faed69c6a17e59e5d6983d403eea9257
roaregistratura/Clase/Copy of ofundal_roaclienti.vc2

676 lines
22 KiB
Plaintext
Raw Blame History

*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="copy of ofundal_roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS pagefr 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="Page2.Ct_registratura1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page3.Ct_date_generale1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page3.Ct_part_nr_data1" UniqueID="" Timestamp="" />
*<PropValue>
ActivePage = 2
ErasePage = .T.
Height = 578
Name = "pagefr"
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"
*</PropValue>
ADD OBJECT 'Page2.Ct_registratura1' AS ct_registratura WITH ;
Left = -2, ;
Name = "Ct_registratura1", ;
Top = 0, ;
Gridsort1.Name = "Gridsort1", ;
_ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
grid_registratura.cData_ctr.Header1.Name = "Header1", ;
grid_registratura.cData_ctr.Name = "cData_ctr", ;
grid_registratura.cData_ctr.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.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.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.Name = "grid_registratura", ;
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_data_ctr.Alignment = 0, ;
Ck_data_ctr.Name = "Ck_data_ctr", ;
Ck_nume.Alignment = 0, ;
Ck_nume.Name = "Ck_nume", ;
Ck_nr_ctr.Alignment = 0, ;
Ck_nr_ctr.Name = "Ck_nr_ctr", ;
Cmd_reset1.Name = "Cmd_reset1", ;
Cmd_cauta1.Name = "Cmd_cauta1"
*< 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.Left = 1, ;
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.Pane5.Name = "Pane5", ;
outlook2003bar1.Panes.Pane6.Name = "Pane6", ;
outlook2003bar1.Panes.Pane7.Name = "Pane7", ;
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", ;
outlook2003bar1.Top = 1
*< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" />
ADD OBJECT 'Page3.Ct_part_nr_data1' AS ct_part_nr_data WITH ;
Anchor = 11, ;
Left = 201, ;
Name = "Ct_part_nr_data1", ;
Top = 0, ;
Shape1.Name = "Shape1", ;
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", ;
Line1.Name = "Line1", ;
lb_actAd.Name = "lb_actAd"
*< END OBJECT: ClassLib="ferestre_registratura.vcx" BaseClass="container" />
ENDDEFINE
DEFINE CLASS princ AS ffergen OF "..\comun\clase\_frm_base.vcx"
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" />
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.shape1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Pagefr1.Page1.Cw4" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_nivel" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="lb_nivel1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*p: cgridsortlist
*</DefinedPropArrayMethod>
*<PropValue>
AlwaysOnTop = .F.
BackColor = 255,255,255
BorderStyle = 0
Caption = ""
cgridsortlist = grid_registratura
Closable = .F.
ControlBox = .F.
DoCreate = .T.
Height = 584
Left = 0
MaxButton = .F.
MinButton = .F.
Movable = .F.
Name = "princ"
ShowTips = .T.
Top = 0
Width = 793
WindowState = 2
*</PropValue>
ADD OBJECT 'Image1' AS image WITH ;
Anchor = 12, ;
Height = 220, ;
Left = 226, ;
Name = "Image1", ;
Picture = ..\grafice\roaclienti.bmp, ;
Top = 235, ;
Width = 556, ;
ZOrderSet = 2
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Image2' AS image WITH ;
BackStyle = 1, ;
Height = 63, ;
Left = 0, ;
Name = "Image2", ;
Picture = ..\grafice\f1.jpg, ;
Stretch = 2, ;
Top = 0, ;
Width = 804, ;
ZOrderSet = 0
*< END OBJECT: BaseClass="image" />
ADD OBJECT 'Imagine01' AS imagine WITH ;
ccod = A01, ;
Height = 55, ;
Left = 6, ;
Name = "Imagine01", ;
nid_img = 1, ;
ntip = 4, ;
picturedown = clie2.bmp, ;
pictureup = clie1.bmp, ;
ToolTipText = "Vizualizare parteneri", ;
Top = 0, ;
Width = 42
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'lb_nivel' AS label WITH ;
Anchor = 6, ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "Nivel de acces:", ;
FontItalic = .T., ;
ForeColor = 0,0,128, ;
Height = 17, ;
Left = 216, ;
Name = "lb_nivel", ;
Top = 443, ;
Visible = .F., ;
Width = 85
*< END OBJECT: BaseClass="label" />
ADD OBJECT 'lb_nivel1' AS textbox WITH ;
Anchor = 6, ;
BackStyle = 0, ;
BorderStyle = 0, ;
ControlSource = "m.nivel", ;
FontBold = .T., ;
FontItalic = .T., ;
ForeColor = 0,0,128, ;
Height = 23, ;
Left = 307, ;
Name = "lb_nivel1", ;
ReadOnly = .T., ;
TabStop = .F., ;
Top = 442, ;
Visible = .F., ;
Width = 28
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
Anchor = 8, ;
Caption = "Operator:", ;
FontItalic = .T., ;
ForeColor = 255,255,255, ;
Left = 580, ;
Name = "lb_utilizator", ;
Top = 8, ;
ZOrderSet = 4
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
Anchor = 8, ;
Caption = "nume_utilizator", ;
FontBold = .T., ;
FontItalic = .T., ;
ForeColor = 255,255,255, ;
Left = 634, ;
Name = "lb_utilizator1", ;
Top = 8, ;
Visible = .F., ;
ZOrderSet = 5
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
ADD OBJECT 'Pagefr1' AS pagefr WITH ;
ErasePage = .T., ;
Height = 475, ;
Left = -1, ;
Name = "Pagefr1", ;
Top = 59, ;
Width = 804, ;
Page1.Name = "Page1", ;
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_ctr.Alignment = 0, ;
Page2.Ct_registratura1.Ck_data_ctr.Name = "Ck_data_ctr", ;
Page2.Ct_registratura1.Ck_nr_ctr.Alignment = 0, ;
Page2.Ct_registratura1.Ck_nr_ctr.Name = "Ck_nr_ctr", ;
Page2.Ct_registratura1.Ck_nume.Alignment = 0, ;
Page2.Ct_registratura1.Ck_nume.Name = "Ck_nume", ;
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.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.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.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.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.Name = "grid_registratura", ;
Page2.Ct_registratura1.Name = "Ct_registratura1", ;
Page2.Ct_registratura1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
Page2.Name = "Page2", ;
Page3.Ct_date_generale1.Left = 1, ;
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.PANE5.Name = "PANE5", ;
Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE6.Name = "PANE6", ;
Page3.Ct_date_generale1.outlook2003bar1.PANES.PANE7.Name = "PANE7", ;
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_date_generale1.Top = 7, ;
Page3.Ct_date_generale1.Width = 800, ;
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.lb_actAd.Name = "lb_actAd", ;
Page3.Ct_part_nr_data1.Left = 201, ;
Page3.Ct_part_nr_data1.Line1.Name = "Line1", ;
Page3.Ct_part_nr_data1.Name = "Ct_part_nr_data1", ;
Page3.Ct_part_nr_data1.Shape1.Name = "Shape1", ;
Page3.Ct_part_nr_data1.Top = 7, ;
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.Enabled = .F., ;
Page3.Name = "Page3"
*< END OBJECT: ClassLib="ofundal_roaclienti.vcx" BaseClass="pageframe" />
ADD OBJECT 'Pagefr1.Page1.Cw1' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw1", ;
nid_cw = 1, ;
ntip = 4, ;
Top = 21, ;
Width = 142, ;
LABEL_ITEM1.Caption = "Parteneri", ;
LABEL_ITEM1.Name = "LABEL_ITEM1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page1.Cw2' AS cw WITH ;
Height = 20, ;
Left = 4, ;
Name = "Cw2", ;
nid_cw = 5, ;
ntip = 4, ;
Top = 70, ;
Width = 142, ;
LABEL_ITEM1.Caption = "Optiuni", ;
LABEL_ITEM1.Name = "LABEL_ITEM1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Pagefr1.Page1.Cw4' AS cw WITH ;
Left = 4, ;
Name = "Cw4", ;
nid_cw = 2, ;
ntip = 2, ;
TabIndex = 2, ;
Top = 45, ;
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 'Pagefr1.Page1.shape1' AS pict_meniu WITH ;
Height = 362, ;
Left = 0, ;
Name = "shape1", ;
Picture = ..\grafice\f2.jpg, ;
Top = 7, ;
Width = 160
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
PROCEDURE Init
thisform.imagine01.Init()
ENDPROC
PROCEDURE Show
Lparameters nStyle
LOCAL lnPornire
verifica_drepturi('oprinc','pagefr1')
Local w,h
w=_Screen.Width
h=_Screen.Height
This.Width=w
This.Height=h
This.image1.Left=w-This.image1.Width-25
This.image1.Top=h-This.image1.Height-25
*!* This.lb_utilizator.Top=h-This.lb_utilizator.Height
*!* This.lb_utilizator1.Top=h-This.lb_utilizator1.Height
This.image2.Width = w + 180
With This.pagefr1
.Width=w
.Height=h
.page1.shape1.Height=h
ENDWITH
SELECT cRegistratura
GO TOP
this.pagefr1.page2.ct_registratura1.grid_registratura.SetFocus()
ENDPROC
PROCEDURE Image1.RightClick
Do start_firma In ostartfirma.prg
** Initializez gnRon corespunzator lunii in care am intrat
Local lcLunaRon, lcAnulRon, lnValue, lcExec, lnSucces, lcTextEroare
lcLunaRon = Substr(gcDataRon,1,2)
lcAnulRon = Substr(gcDataRon,4,4)
If gnAn * 12 + gnLuna < Val(lcAnulRon) * 12 + Val(lcLunaRon)
lnValue = 2
Else
lnValue = 1
Endif
lcExec = [update optiuni set varvalue = ] + Alltrim(Str(lnValue)) + [ where varname = 'RON']
lnSucces = goExecutor.oExecute(lcExec)
If lnSucces < 0
lcTextEroare = goExecutor.cEroare
Messagebox(lcTextEroare,48,"Eroare")
Return
Endif
Do oinit_optiuni.prg
**
verifica_drepturi('oprinc','pagefr1')
ENDPROC
PROCEDURE Imagine01.do_actiune
thisform.pagefr1.pAGE1.cw1.do_actiune
ENDPROC
PROCEDURE lb_utilizator.RightClick
thisform.rightclick
ENDPROC
PROCEDURE lb_utilizator1.RightClick
thisform.rightclick
ENDPROC
PROCEDURE Pagefr1.Page1.Click
IF TYPE('podg_dg.but_termin1') <> 'U'
podg_dg.but_termin1.CLICK()
ENDIF
IF TYPE('podg_ob.but_termin1') <> 'U'
podg_ob.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tf.but_termin1') <> 'U'
podg_tf.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tl.but_termin1') <> 'U'
podg_tl.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
IF TYPE('podg_fact.but_termin1') <> 'U'
podg_fact.but_termin1.CLICK()
ENDIF
ENDPROC
PROCEDURE Pagefr1.Page1.Cw1.do_actiune
* DO viz_clienti IN onom_clienti.prg
DO viz_parteneri IN onomenclatoare.prg
ENDPROC
PROCEDURE Pagefr1.Page1.Cw1.LABEL_ITEM1.Init
this.Caption = iif(gnParametru_prog=1,'Clienti',iif(gnParametru_prog=2,'Furnizori','Parteneri'))
ENDPROC
PROCEDURE Pagefr1.Page1.Cw2.do_actiune
*
ENDPROC
PROCEDURE Pagefr1.Page1.Cw4.do_actiune
Do vizualizare_agenti In onomenclatoare.prg
ENDPROC
PROCEDURE Pagefr1.Page2.Activate
thisform.image1.Visible = .F.
ENDPROC
PROCEDURE Pagefr1.Page2.Click
IF TYPE('podg_dg.but_termin1') <> 'U'
podg_dg.but_termin1.CLICK()
ENDIF
IF TYPE('podg_ob.but_termin1') <> 'U'
podg_ob.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tf.but_termin1') <> 'U'
podg_tf.but_termin1.CLICK()
ENDIF
IF TYPE('podg_tl.but_termin1') <> 'U'
podg_tl.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
IF TYPE('podg_fact.but_termin1') <> 'U'
podg_fact.but_termin1.CLICK()
ENDIF
IF TYPE('podg_garantii.but_termin1') <> 'U'
podg_garantii.but_termin1.CLICK()
ENDIF
this.ct_contracte1.do_cauta()
ENDPROC
PROCEDURE Pagefr1.Page2.Deactivate
thisform.image1.Visible = .T.
*!* thisform.lb_nivel.Visible = .T.
*!* thisform.lb_nivel1.Visible = .T.
*!* thisform.lb_utilizator.Visible = .T.
*!* thisform.lb_utilizator1.Visible = .T.
IF EMPTY(goContract.id_ctr)
AMESSAGEBOX('Nu este selectat nici un contract!',0+48,_SCREEN.CAPTION)
this.Parent.paGE3.Enabled = .F.
_screen.LockScreen= .T.
ELSE
this.Parent.paGE3.Enabled = .T.
ENDIF
ENDPROC
PROCEDURE Pagefr1.Page3.Activate
IF EMPTY(goContract.id_ctr)
this.Parent.ActivePage=2
ENDIF
IF ALLTRIM(gocontract.tip_istoric) = 'A'
this.ct_part_nr_data1.lb_actAd.Visible = .T.
this.ct_part_nr_data1.lb_actAd.Caption = ALLTRIM(gocontract.numar_aa)
ELSE
this.ct_part_nr_data1.lb_actAd.Visible = .F.
ENDIF
thisform.image1.Visible = .F.
*!* thisform.lb_nivel.Visible = .F.
*!* thisform.lb_nivel1.Visible = .F.
*!* thisform.lb_utilizator.Visible = .F.
*!* thisform.lb_utilizator1.Visible = .F.
ENDPROC
PROCEDURE Pagefr1.Page3.Click
DO make_cursoare_ctr IN oproceduri_roacontracte.prg && imi creeaza cursoarele
this.ct_part_nr_data1.Refresh
this.ct_date_generale1.outlook2003bar1.panel.button1.Click
ENDPROC
PROCEDURE Pagefr1.Page3.Deactivate
THISFORM.image1.VISIBLE = .T.
*!* THISFORM.lb_nivel.VISIBLE = .T.
*!* THISFORM.lb_nivel1.VISIBLE = .T.
*!* THISFORM.lb_utilizator.VISIBLE = .T.
*!* THISFORM.lb_utilizator1.VISIBLE = .T.
LOCAL lnRaspuns
IF !THIS.ct_part_nr_data1.llock
THIS.ct_part_nr_data1.llock = .T.
lnRaspuns = AMESSAGEBOX('Doriti sa salvati modificari facute?',4+32,'Atentie')
THIS.ct_part_nr_data1.REFRESH()
IF lnRaspuns = 7
RETURN
ELSE
DO modifica_ctr_dg WITH goContract IN oproceduri_roacontracte.prg
ENDIF
ENDIF
IF USED('cCtrScadentar')
USE IN cCtrScadentar
ENDIF
IF USED('cCtrLink')
USE IN cCtrLink
ENDIF
IF USED('cCtrArt')
USE IN cCtrArt
ENDIF
If Used('cCtrFactGarant')
Use In cCtrFactGarant
Endif
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink