romfast/roaregistratura
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)

Browse Source 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
This commit is contained in:
Marius Mutu
2026-07-23 17:08:56 +03:00
commit 63f3828d5e
141 changed files with 77057 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

675
Clase/Copy of ofundal_roaclienti.vc2 Normal file
View File

@@ -0,0 +1,675 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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