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

6809
Clase/Copy of ferestre_registratura.vc2 Normal file
View File

File diff suppressed because one or more lines are too long

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

BIN
Clase/Outlook2003BarArrow.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 360 B

BIN
Clase/Outlook2003BarSplitter.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 115 B

147
Clase/_app.h Normal file
View File

@@ -0,0 +1,147 @@
* _app.h
***********************************************************
localization strings and constants for _app.vcx
***********************************************************
* _datasession class
#DEFINE DATA_MESSAGEBOX_TITLE_LOC "Data Message"
#DEFINE DATA_OK_TO_SAVE_LOC "OK to save your edit?"
#DEFINE DATA_OK_TO_REVERT_LOC "OK to cancel your changes?"
#DEFINE DATA_UPDATE_CONFLICT_LOC "Records have been locked by another user. "+ ;
CHR(13)+CHR(13) +;
"You can't update these records until the other lock is cancelled."
#DEFINE DATA_HAS_BEEN_EDITED_LOC "Other people may have edited the data since you started editing. "+CHR(13)+CHR(13) +;
"OK to overwrite others' changes, "+CHR(13)+;
"or cancel your edit for the records in this table?"
#DEFINE DATA_SAVE_BEFORE_CLOSE_LOC "You have work in progress here."+CHR(13)+CHR(13)+;
"Do you want to save your changes before closing?"
#DEFINE DATA_CANCEL_UNFINISHED_LOC "You have work in progress here that cannot be saved yet."+CHR(13)+CHR(13)+;
"Do you want still want to close, cancelling your changes?"
* _error class
* error logging
#DEFINE ERROR_MESSAGEBOX_TITLE_LOC "Error Message"
#DEFINE ERROR_IN_ERROR_METHOD_LOC "Error in error handler"
#DEFINE ERROR_SERIOUS_CLASS_LOC "Serious error of class"
#DEFINE ERROR_CANNOT_BE_LOGGED_LOC "The application will exit, and cannot add information about this error to the error log."
#DEFINE ERROR_LOCK_LOC "A file or record is unavailable"
#DEFINE ERROR_PRINT_LOC "The printer or printer driver you require is not available"
#DEFINE ERROR_USER_FIX_LOC "Please handle this problem, or wait and try again."
#DEFINE ERROR_USER_NOTE_LOC "Please note this error information."
* error log display
#DEFINE ERROR_LOG_EMPTY_LOC "The error log has no records."
#DEFINE ERROR_LOG_UNAVAILABLE_LOC "The error log is not available."
* error continuation choices
#DEFINE ERROR_USER_CHOICES_LOC "Continue Executing Program?"
#DEFINE ERROR_DEVEND_LOC ERROR_USER_CHOICES_LOC+ ;
CHR(13)+CHR(13)+;
"Choose: "+CHR(13)+CHR(13)+ ;
"YES to Continue the program"+CHR(13)+;
"NO to Suspend "+CHR(13)+ ;
"CANCEL to Exit program completely."
#DEFINE ERROR_USEREND_LOC ERROR_USER_CHOICES_LOC+ ;
CHR(13)+CHR(13)+;
"Choose: "+CHR(13)+CHR(13)+ ;
"OK to Continue the program"+CHR(13)+;
"CANCEL to Exit program completely."
#DEFINE ERROR_OCCURRED_LOC "An error has occurred"
#DEFINE ERROR_LOG_LOC "Record details in error log files?"
***********************************************************
* Messagebox subset from FOXPRO.H
***********************************************************
#DEFINE MB_OK 0 && OK button only
#DEFINE MB_OKCANCEL 1 && OK and Cancel buttons
#DEFINE MB_ABORTRETRYIGNORE 2 && Abort, Retry, and Ignore buttons
#DEFINE MB_YESNOCANCEL 3 && Yes, No, and Cancel buttons
#DEFINE MB_YESNO 4 && Yes and No buttons
#DEFINE MB_RETRYCANCEL 5 && Retry and Cancel buttons
#DEFINE MB_ICONSTOP 16 && Critical message
#DEFINE MB_ICONQUESTION 32 && Warning query
#DEFINE MB_ICONEXCLAMATION 48 && Warning message
#DEFINE MB_ICONINFORMATION 64 && Information message
#DEFINE MB_APPLMODAL 0 && Application modal message box
#DEFINE MB_DEFBUTTON1 0 && First button is default
#DEFINE MB_DEFBUTTON2 256 && Second button is default
#DEFINE MB_DEFBUTTON3 512 && Third button is default
#DEFINE MB_SYSTEMMODAL 4096 && System Modal
*-- MsgBox return values
#DEFINE IDOK 1 && OK button pressed
#DEFINE IDCANCEL 2 && Cancel button pressed
#DEFINE IDABORT 3 && Abort button pressed
#DEFINE IDRETRY 4 && Retry button pressed
#DEFINE IDIGNORE 5 && Ignore button pressed
#DEFINE IDYES 6 && Yes button pressed
#DEFINE IDNO 7 && No button pressed
***********************************************************
* Data-handling subset from FOXPRO.H
***********************************************************
*-- Cursor buffering modes
#DEFINE DB_BUFOFF 1
#DEFINE DB_BUFLOCKRECORD 2
#DEFINE DB_BUFOPTRECORD 3
#DEFINE DB_BUFLOCKTABLE 4
#DEFINE DB_BUFOPTTABLE 5
*-- Update types for views/cursors
#DEFINE DB_UPDATE 1
#DEFINE DB_DELETEINSERT 2
*-- WHERE clause types for views/cursors
#DEFINE DB_KEY 1
#DEFINE DB_KEYANDUPDATABLE 2
#DEFINE DB_KEYANDMODIFIED 3
#DEFINE DB_KEYANDTIMESTAMP 4
*-- Remote connection login prompt options
#DEFINE DB_PROMPTCOMPLETE 1
#DEFINE DB_PROMPTALWAYS 2
#DEFINE DB_PROMPTNEVER 3
*-- Remote transaction modes
#DEFINE DB_TRANSAUTO 1
#DEFINE DB_TRANSMANUAL 2
*-- Source Types for CursorGetProp()
#DEFINE DB_SRCLOCALVIEW 1
#DEFINE DB_SRCREMOTEVIEW 2
#DEFINE DB_SRCTABLE 3
***********************************************************
* System Toolbar subset from FOXPRO.H, Tastrade STRINGS.H
***********************************************************
*-- Toolbar Positions
#DEFINE TOOL_NOTDOCKED -1
#DEFINE TOOL_TOP 0
#DEFINE TOOL_LEFT 1
#DEFINE TOOL_RIGHT 2
#DEFINE TOOL_BOTTOM 3
*-- Toolbar names
#DEFINE TB_FORMDESIGNER_LOC "Form Designer"
#DEFINE TB_STANDARD_LOC "Standard"
#DEFINE TB_LAYOUT_LOC "Layout"
#DEFINE TB_QUERY_LOC "Query Designer"
#DEFINE TB_VIEWDESIGNER_LOC "View Designer"
#DEFINE TB_COLORPALETTE_LOC "Color Palette"
#DEFINE TB_FORMCONTROLS_LOC "Form Controls"
#DEFINE TB_DATADESIGNER_LOC "Database Designer"
#DEFINE TB_REPODESIGNER_LOC "Report Designer"
#DEFINE TB_REPOCONTROLS_LOC "Report Controls"
#DEFINE TB_PRINTPREVIEW_LOC "Print Preview"

1928
Clase/_app.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

8214
Clase/_base.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

176
Clase/_framewk.h Normal file
View File

@@ -0,0 +1,176 @@
* _framewk.h
***********************************************************
* localization strings, constants,
* and tunable expressions for _framewk.vcx,
* framework-enabling header file for global template classes
***********************************************************
* _application class
#DEFINE APP_MEDIATOR_SUPERCLASS "_formmediator"
* note: don't use TRANSFORM() or trim below, need the padding spaces:
#DEFINE APP_META_FAVE_ID STR(RECNO())
#DEFINE APP_META_UNAVAILABLE_LOC "Metatable in use or unavailable:"
#DEFINE APP_META_WRONGFORMAT_LOC "Metatable has incorrect structure:"
#DEFINE APP_META_MISSINGINDEX_LOC "One or more of required indexes"+CHR(13)+ ;
"is missing from your metatable:"
#DEFINE PJX_META_DOC_FORM_TYPE "F"
#DEFINE PJX_META_DOC_REPORT_TYPE "R"
#DEFINE PJX_META_DOC_HEADER_TYPE "A"
#DEFINE APP_FEATURE_NOT_AVAILABLE_LOC "Feature not available."
#DEFINE APP_FILE_NOT_FOUND_LOC "File not found, or unavailable."+CHR(13)+;
"It may be in use."
#DEFINE APP_READY_TO_SHUTDOWN_LOC "Are you sure you want to quit?"
#DEFINE APP_LOADING_LOC "Loading..."
#DEFINE APP_PM_WIN_TITLE_LOC "Project Manager - "
#DEFINE APP_ALREADY_EXISTS_LOC "already exists"
#DEFINE APP_GO_PAD_LOC "\<Go"
#DEFINE APP_GO_PAD_HOTKEY_LOC ALT+G
#DEFINE APP_GO_MESSAGE_LOC "Navigates the currently selected table, cursor, or view"
#DEFINE APP_USER_FAVES_CLEAR_LOC "Do you want to clear your Favorites list now?"
#DEFINE APP_USER_FAVES_CORRUPT_LOC "Your Favorites entries appear corrupt, and will be cleared."
#DEFINE APP_META_TABLE_CHANGED_LOC "Document table for "+THIS.cCaption+ " has been changed. "+ CHR(13)+;
"Some of your Favorites may not run properly. "+ ;
CHR(13)+CHR(13)+ ;
APP_USER_FAVES_CLEAR_LOC
#DEFINE APP_MACRO_RESTORE_LOC "Restore"
#DEFINE APP_OUTPUT_ONE_REC_LOC "Current Record"
* _dialog fonts
#DEFINE DIALOG_SMALLFONT_NAME "MS Sans Serif"
#DEFINE DIALOG_LARGEFONT_NAME "Arial"
* _aboutbox class
#DEFINE ABOUT_LOC "About"
* _options class
#DEFINE OPTIONS_LOC "User Options"
#DEFINE OPTIONS_DEFAULTS_SAVED_LOC "User option defaults have been saved."
#DEFINE OPTIONS_APPLIED_LOC "User options have been applied."
#DEFINE OPTIONS_DEFAULTS_SHOWN_LOC "User option saved defaults are shown."
#DEFINE OPTIONS_NOT_STORED_LOC "User option defaults not yet saved!"
#DEFINE CHANGEPASSWORD_LOC "Change Password"
#DEFINE OPTIONS_CONFIRM_PASSWORD_LOC "Please retype your new password for confirmation."
#DEFINE OPTIONS_PASSWORD_UNCONFIRMED_LOC "Password not confirmed."+CHR(13)+"Please try again."
#DEFINE OPTIONS_PASSWORD_CONFIRMED_LOC "Your new password has been accepted. "
* _UserLogInClass
#DEFINE LOGIN_CAPTION_LOC "User Login"
#DEFINE LOGIN_ADD_USER_LOC "Would you like to add a new user?"
#DEFINE LOGIN_NEW_USER_INFO_LOC "Store a new password for this user now."+ CHR(13)+CHR(13)+;
"This new user will receive basic-level access."
#DEFINE LOGIN_USER_NOT_FOUND_LOC "User not listed."
#DEFINE LOGIN_WRONG_PASSWORD_LOC "Incorrect password for this user."
#DEFINE LOGIN_EMPTY_PASSWORD_LOC "Empty password not allowed."
#DEFINE LOGIN_TRIES_EXCEEDED_LOC "Attempts to log in exceed limit!"
* user permissions and levels are provided for, although
* not evaluated, in the basic framework
#DEFINE USER_PERMISSION_DENIED_LOC "Your user-level does not allow access to this function."
* _documentpicker and descendent classes
#DEFINE DOCUMENTPICKER_NO_DOCUMENTS_LOC "No registered documents available."
#DEFINE DOCUMENTPICKER_NO_APP_LOC "Must pass a reference to an object descended from _APPLICATION"
#DEFINE NEWOPEN_CAPTION_NEW_LOC "Choose a document to create"
#DEFINE NEWOPEN_CAPTION_OPEN_LOC "Choose a document to open"
#DEFINE REPORTPICKER_CAPTION_RUN_LOC "Choose a report to run"
* report editing may be offered at some point:
#DEFINE REPORTPICKER_CAPTION_MODIFY_LOC "Choose a report to modify"
#DEFINE REPORT_RUN_ERROR_LOC "The report you chose cannot run properly in the current environment or has created a problem for the current environment. You may need to re-start this application."
#DEFINE FAVORITEPICKER_CAPTION_ADD_LOC "Documents available for Favorites"
#DEFINE FAVORITEPICKER_ADDBUTTON_LOC "\<Add"
#DEFINE FAVORITEPICKER_CLOSEBUTTON_LOC "\<Close"
#DEFINE FAVORITEPICKER_CAPTION_START_LOC "Quick Start"
#DEFINE FAVORITEPICKER_DOC_ALREADY_LOC "has already been picked for Favorites."
#DEFINE FAVORITEPICKER_PICKED_LOC "* "
#DEFINE FAVORITEPICKER_PICKED_LEN LEN(FAVORITEPICKER_PICKED_LOC)
* _errorlogviewer class
#DEFINE ERRORVIEWER_CAPTION_LOC "Error Log Viewer"
#DEFINE ERRORVIEWER_EMPTY_LOC "The error log has no records."
#DEFINE ERRORVIEWER_UNAVAILABLE_LOC "The error log is not available."
#DEFINE ERRORVIEWER_IN_USE_LOC "The error log is in use, please close before continuing."
***********************************************************
* Messagebox subset from FOXPRO.H
***********************************************************
#DEFINE MB_OK 0 && OK button only
#DEFINE MB_OKCANCEL 1 && OK and Cancel buttons
#DEFINE MB_ABORTRETRYIGNORE 2 && Abort, Retry, and Ignore buttons
#DEFINE MB_YESNOCANCEL 3 && Yes, No, and Cancel buttons
#DEFINE MB_YESNO 4 && Yes and No buttons
#DEFINE MB_RETRYCANCEL 5 && Retry and Cancel buttons
#DEFINE MB_ICONSTOP 16 && Critical message
#DEFINE MB_ICONQUESTION 32 && Warning query
#DEFINE MB_ICONEXCLAMATION 48 && Warning message
#DEFINE MB_ICONINFORMATION 64 && Information message
#DEFINE MB_APPLMODAL 0 && Application modal message box
#DEFINE MB_DEFBUTTON1 0 && First button is default
#DEFINE MB_DEFBUTTON2 256 && Second button is default
#DEFINE MB_DEFBUTTON3 512 && Third button is default
#DEFINE MB_SYSTEMMODAL 4096 && System Modal
*-- MsgBox return values
#DEFINE IDOK 1 && OK button pressed
#DEFINE IDCANCEL 2 && Cancel button pressed
#DEFINE IDABORT 3 && Abort button pressed
#DEFINE IDRETRY 4 && Retry button pressed
#DEFINE IDIGNORE 5 && Ignore button pressed
#DEFINE IDYES 6 && Yes button pressed
#DEFINE IDNO 7 && No button pressed
***********************************************************
* Data-handling subset from FOXPRO.H
***********************************************************
*-- Cursor buffering modes
#DEFINE DB_BUFOFF 1
#DEFINE DB_BUFLOCKRECORD 2
#DEFINE DB_BUFOPTRECORD 3
#DEFINE DB_BUFLOCKTABLE 4
#DEFINE DB_BUFOPTTABLE 5
*-- Update types for views/cursors
#DEFINE DB_UPDATE 1
#DEFINE DB_DELETEINSERT 2
*-- WHERE clause types for views/cursors
#DEFINE DB_KEY 1
#DEFINE DB_KEYANDUPDATABLE 2
#DEFINE DB_KEYANDMODIFIED 3
#DEFINE DB_KEYANDTIMESTAMP 4
*-- Remote connection login prompt options
#DEFINE DB_PROMPTCOMPLETE 1
#DEFINE DB_PROMPTALWAYS 2
#DEFINE DB_PROMPTNEVER 3
*-- Remote transaction modes
#DEFINE DB_TRANSAUTO 1
#DEFINE DB_TRANSMANUAL 2
*-- Source Types for CursorGetProp()
#DEFINE DB_SRCLOCALVIEW 1
#DEFINE DB_SRCREMOTEVIEW 2
#DEFINE DB_SRCTABLE 3
#DEFINE WINDOWTYPE_MODELESS 0
#DEFINE WINDOWTYPE_MODAL 1
#DEFINE WINDOWTYPE_READ 2
#DEFINE WINDOWTYPE_READMODAL 3

8955
Clase/_framewk.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

87
Clase/_reports.h Normal file
View File

@@ -0,0 +1,87 @@
* _REPORTS.H
* Header file for _REPORTS.VCX classes
* common dialog flag constants and results for ShowFont:
#DEFINE cdlCFScreenFonts 0x1
#DEFINE cdlCFANSIOnly 0x400
#DEFINE cdlCFForceFontExist 0x10000
#DEFINE cdlCFNoStyleSel 0x100000
#DEFINE cdlCFFixedPitchOnly 0x4000
* common dialog constants for ShowOpen/ShowSave:
#DEFINE cdlOFNPathMustExist 0x800
#DEFINE cdlOFNNoChangeDir 0x8
#DEFINE cdlOFNHideReadOnly 0x4
#DEFINE cdlOFNExplorer 0x80000
#DEFINE cdlOFNFileMustExist 0x1000
#DEFINE cdlOFNOverwritePrompt 0x2
#DEFINE cdlOFNNoReadOnlyReturn 0x8000
#DEFINE VERTICAL_SCROLLBAR_WIDTH 5
#DEFINE SHOWTEXT_TEXT_EDITOR_LOC "Text Viewer"
#DEFINE WINDOWSTATE_MAXIMIZED 2
#DEFINE WINDOWSTATE_NORM 0
* _dialog fonts
#DEFINE SYSTEM_LARGEFONTS FONTMETRIC(1, 'MS Sans Serif', 8, '') # 13 OR ;
FONTMETRIC(4, 'MS Sans Serif', 8, '') # 2 OR ;
FONTMETRIC(6, 'MS Sans Serif', 8, '') # 5 OR ;
FONTMETRIC(7, 'MS Sans Serif', 8, '') # 11
#DEFINE DIALOG_SMALLFONT_NAME "MS Sans Serif"
#DEFINE DIALOG_LARGEFONT_NAME "Arial"
* destinations:
#DEFINE OUTPUT_PRINT_REPORT_LOC "Print report"
#DEFINE OUTPUT_PRINT_LIST_LOC "Print list from table"
#DEFINE OUTPUT_SCREEN_LOC "Preview"
#DEFINE OUTPUT_TEXTFILE_LOC "Text file"
#DEFINE OUTPUT_HTMLFILE_LOC "HTML file"
#DEFINE OUTPUT_PRINTFILE_LOC "Print-image file"
#DEFINE OUTPUT_EXPORT_LOC "Export table"
* screen options:
#DEFINE OUTPUT_SCREEN_PREVIEW_LOC "Report Preview"
#DEFINE OUTPUT_SCREEN_GRAPHICAL_LOC "Graphical report preview"
#DEFINE OUTPUT_SCREEN_ASCII_LOC "Text report preview"
#DEFINE OUTPUT_SCREEN_BROWSE_LOC "Browse view of table"
#DEFINE OUTPUT_SCREEN_LIST_LOC "Simple list view of table"
* HTML options:
#DEFINE OUTPUT_HTML_FILEONLY_LOC "Generate only, no display"
#DEFINE OUTPUT_HTML_VIEWSOURCE_LOC "View generated source"
#DEFINE OUTPUT_HTML_WEBVIEW_LOC "View output in web browser"
#DEFINE OUTPUT_KEY_FOR_TOOLBAR_LOC "Press Ctrl-R to retrieve Report Preview Toolbar if necessary..."
* print options:
#DEFINE OUTPUT_PRINT_OPTIONS_WINDEFAULT_LOC "Windows default printer"
#DEFINE OUTPUT_PRINT_OPTIONS_VFPDEFAULT_LOC "VFP default printer"
#DEFINE OUTPUT_PRINT_OPTIONS_SETVFPDEFAULT_LOC "Select and use new VFP default"
#DEFINE OUTPUT_DESTINATION_TEXTFILE_LOC "Pick a destination text filename"
#DEFINE OUTPUT_SOURCE_REPORT_LOC "Pick a report"
#DEFINE OUTPUT_REPORT_NOT_FOUND_LOC "Report not found!"
#DEFINE OUTPUT_REPORT_OR_DATASOURCE_REQUIRED_LOC "This dialog needs report or table datasource information."
#DEFINE MB_ICONEXCLAMATION 48
* export options
#DEFINE OUTPUT_EXPORT_EXCEL97 "Excel 97"
#DEFINE OUTPUT_EXPORT_EXCEL5 "Excel 5.0"
#DEFINE OUTPUT_EXPORT_EXCEL2 "Excel 2.0"
#DEFINE OUTPUT_EXPORT_FOX2X "Fox 2.X"
#DEFINE OUTPUT_EXPORT_FOXPLUS "Xbase"
#DEFINE OUTPUT_EXPORT_FIXEDLEN "Fixed Length"
#DEFINE OUTPUT_EXPORT_DELIMITED "Delimited"
#DEFINE OUTPUT_EXPORT_LOTUS2 "Lotus 2.x"
#DEFINE OUTPUT_EXPORT_DIF "Data Interchange Format"
#DEFINE OUTPUT_EXPORT_SYMPHONY "Symphony 1.10"
#DEFINE OUTPUT_EXPORT_CSV "Separated Values"

2495
Clase/_reports.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

82
Clase/_table.h Normal file
View File

@@ -0,0 +1,82 @@
* _TABLE.H
***********************************
* constants for _Table* classes
#DEFINE DB_BUFLOCKRECORD 2
#DEFINE DB_BUFOPTRECORD 3
#DEFINE FILTER_MAX_FILTER 255
#DEFINE MB_ICONEXCLAMATION 48
#DEFINE MB_YESNOCANCEL 3
#DEFINE IDYES 6
#DEFINE IDNO 7
***********************************
* localization for _Table* classes
* _TableFind* buttons and dialog class strings
#DEFINE FIND_LOOKFOR_LOC "\<Look for:"
#DEFINE FIND_LOOKIN_LOC "Look \<in:"
#DEFINE FIND_OPTIONS_LOC "Options"
#DEFINE FIND_WRAPAROUND_LOC "Wrap aroun\<d"
#DEFINE FIND_MATCHCASE_LOC "\<Match case"
#DEFINE FIND_SKIPMEMOS_LOC "\<Skip memos"
#DEFINE FIND_FIND_LOC "\<Find"
#DEFINE FIND_FINDNEXT_LOC "Find \<next"
#DEFINE FIND_CANCEL_LOC "\<Cancel"
#DEFINE FIND_NOFIND_LOC "Not found"
#DEFINE FIND_CAPTION_LOC "Find"
#DEFINE FIND_FINDIN_LOC "Find in"
***********************************
* _TableSetFilterDialog strings:
#DEFINE SETFILTER_CAPTION_LOC "\<Set filter"
#DEFINE SETFILTER_APPLY_LOC "\<Apply"
#DEFINE SETFILTER_MAXLENGTH_LOC "Filter must be <255 characters."
#DEFINE SETFILTER_INVALID_LOC "Filter must be logical in type."
#DEFINE SETFILTER_BUILDEXPR_LOC "\<Build expression"
#DEFINE SETFILTER_SIMPLE_LOC "Simple"
#DEFINE SETFILTER_COMPLEX_LOC "Complex"
#DEFINE SETFILTER_CANCEL_LOC "\<Cancel"
#DEFINE SETFILTER_EDIT_LOC "\<Edit"
#DEFINE SETFILTER_NEED_LIB_LOC "Need _TABLE.VCX library!"
**********************************
* _TableSimpleFilterDialog strings:
#DEFINE FILTER_CANCELLED_LOC "Cancelled"
#DEFINE FILTER_SECONDS_LOC "Seconds"
#DEFINE FILTER_TOO_LONG_LOC "Expression too long"
#DEFINE FILTER_RECORDS_LOC "Records"
#DEFINE FILTER_NUMERIC_REQUIRED_LOC "Numeric field; a number is expected"
#DEFINE FILTER_NUMERIC_NO_QUOTES_LOC "Numeric field; quotes are not allowed"
#DEFINE FILTER_MISSING_VALUE_LOC "Missing value"
#DEFINE FILTER_CHECKING_OPEN_TABLES_LOC "Checking open files.. "
#DEFINE FILTER_NO_SINGLE_QUOTES_LOC "Can't have single quote in value"
#DEFINE FILTER_QUERY_LIST_FULL_LOC "The query list is full."
***********************************
* _Table class strings:
#DEFINE TABLE_MESSAGE_TITLE_ROW_CHANGED_LOC "Data in this row has been changed."
#DEFINE TABLE_MESSAGE_ROW_CHANGED_LOC "Before moving to another record,"+CHR(13)+ ;
"do you wish to: "+CHR(13)+CHR(13)+;
" SAVE changes (Yes)"+CHR(13)+;
" REVERT changes (No) or"+CHR(13)+ ;
" REMAIN on the record (Cancel)?"
************************
* _dialog fonts
#DEFINE SYSTEM_LARGEFONTS FONTMETRIC(1, 'MS Sans Serif', 8, '') # 13 OR ;
FONTMETRIC(4, 'MS Sans Serif', 8, '') # 2 OR ;
FONTMETRIC(6, 'MS Sans Serif', 8, '') # 5 OR ;
FONTMETRIC(7, 'MS Sans Serif', 8, '') # 11
#DEFINE DIALOG_SMALLFONT_NAME "MS Sans Serif"
#DEFINE DIALOG_LARGEFONT_NAME "Arial"

3718
Clase/_table.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

49
Clase/_ui.h Normal file
View File

@@ -0,0 +1,49 @@
* _ui.h
***********************************************************
localization strings and constants for _ui.vcx
***********************************************************
* this one may be removed:
* _WindowHandler:
#DEFINE MENUPROMPT_MED_UNDO "\<Undo"
#DEFINE MENUKEY_MED_UNDO [KEY CTRL+Z, "Ctrl+Z"]
#DEFINE MENUPROMPT_MED_REDO "Re\<do"
#DEFINE MENUKEY_MED_REDO [KEY CTRL+R, "Ctrl+R"]
#DEFINE MENUPROMPT_MED_CUT "Cu\<t"
#DEFINE MENUKEY_MED_CUT [KEY CTRL+X, "Ctrl+X"]
#DEFINE MENUPROMPT_MED_COPY "\<Copy"
#DEFINE MENUKEY_MED_COPY [KEY CTRL+C, "Ctrl+C"]
#DEFINE MENUPROMPT_MED_PASTE "\<Paste"
#DEFINE MENUKEY_MED_PASTE [KEY CTRL+V, "Ctrl+V"]
#DEFINE MENUPROMPT_MED_CLEAR "Cle\<ar"
#DEFINE MENUKEY_MED_CLEAR []
#DEFINE MENUPROMPT_MED_SLCTA "Se\<lect All"
#DEFINE MENUKEY_MED_SLCTA [KEY CTRL+A, "Ctrl+A"]
#DEFINE MENUPROMPT_MED_FIND "\<Find..."
#DEFINE MENUKEY_MED_FIND [KEY CTRL+F, "Ctrl+F"]
#DEFINE MENUPROMPT_MED_FINDA "Find A\<gain"
#DEFINE MENUKEY_MED_FINDA [KEY CTRL+G, "Ctrl+G"]
#DEFINE MENUPROMPT_MED_REPL "R\<eplace..."
#DEFINE MENUKEY_MED_REPL [KEY CTRL+L, "Ctrl+L"]
#DEFINE MENUPROMPT_MED_PSTLK "Paste \<Special..."
#DEFINE MENUKEY_MED_PSTLK []
#DEFINE MENUPROMPT_MED_GOTO "Go to Li\<ne..."
#DEFINE MENUKEY_MED_GOTO []
#DEFINE MENUPROMPT_MED_INSOB "\<Insert Object..."
#DEFINE MENUKEY_MED_INSOB []
#DEFINE MENUPROMPT_MED_OBJ "\<Object..."
#DEFINE MENUKEY_MED_OBJ []
#DEFINE MENUPROMPT_MED_LINK "Lin\<ks..."
#DEFINE MENUKEY_MED_LINK []
#DEFINE MENUPROMPT_MED_PREF "Prope\<rties..."
#DEFINE MENUKEY_MED_PREF []
* #DEFINE MENUPROMPT_MED_... ""
* #DEFINE MENUKEY_MED_... []
* _ModalAwareToolbar:
#DEFINE WINDOWTYPE_MODELESS 0
#DEFINE WINDOWTYPE_MODAL 1
#DEFINE WINDOWTYPE_READ 2
#DEFINE WINDOWTYPE_READMODAL 3

556
Clase/_ui.vc2 Normal file
View File

@@ -0,0 +1,556 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="_ui.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS _modalawaretoolbar AS _toolbar OF "_base.vcx"
*< CLASSDATA: Baseclass="toolbar" Timestamp="" Scale="Pixels" Uniqueid="" />
#INCLUDE "_ui.h"
*<DefinedPropArrayMethod>
*m: checkformodalwindow && Checks for modal window and disables toolbar.
*m: ldisabledformodal_access
*p: ldisabledformodal && Whether to disable toolbar if modal window is present. Has corresponding access method.
*</DefinedPropArrayMethod>
*<PropValue>
Height = 22
Left = 0
Name = "_modalawaretoolbar"
ShowWindow = 1
Top = 0
Width = 33
*</PropValue>
PROCEDURE checkformodalwindow && Checks for modal window and disables toolbar.
RETURN THIS.lDisabledForModal
ENDPROC
PROCEDURE ldisabledformodal_access
LOCAL llDisableAll
DO CASE
CASE WONTOP() # WOUTPUT()
* browse or something...
llDisableAll = .F.
CASE TYPE("_SCREEN.ActiveForm") = "U"
llDisableAll = .F.
OTHERWISE
IF TYPE("_SCREEN.ActiveForm.Parent") = "O"
* formset
llDisableAll = (_SCREEN.ActiveForm.Parent.WindowType = WINDOWTYPE_MODAL)
ELSE
llDisableAll = (_SCREEN.ActiveForm.WindowType = WINDOWTYPE_MODAL)
ENDIF
ENDCASE
THIS.SetAll("Enabled", ;
NOT llDisableAll)
THIS.lDisabledForModal = llDisableAll
RETURN llDisableAll
ENDPROC
PROCEDURE Refresh
THIS.CheckForModalWindow()
ENDPROC
ENDDEFINE
DEFINE CLASS _mouseoverfx AS _custom OF "_base.vcx"
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: cancelhighlight && Cancels highlighting of object.
*m: highlightme && Called in mousemove event of object desiring coolbar highlighting.
*p: ihighlightcolor && Color code for highlight.
*p: ishadowcolor && Color code for shadow.
*p: lmouseoverhost && Whether mouse is over mousefx host.
*p: nhighlightwidth && Width of highlight.
*p: nmargin && Extra border between control and highlight.
*p: ocurrentcoolcontrol
*</DefinedPropArrayMethod>
PROTECTED ocurrentcoolcontrol,ohost
*<PropValue>
ihighlightcolor = 0
ishadowcolor = 0
lmouseoverhost = .T.
Name = "_mouseoverfx"
nhighlightwidth = 2
nmargin = 2
ocurrentcoolcontrol = (NULL)
*</PropValue>
PROCEDURE cancelhighlight && Cancels highlighting of object.
IF NOT THIS.lMouseOverHost
THIS.lMouseOverHost = .T.
THIS.oCurrentCoolControl = .NULL.
IF TYPE("THIS.oHost.Name") = "C"
* the form could be in the process of releasing...
THIS.oHost.Cls
ENDIF
RETURN .T.
ELSE
RETURN .F.
ENDIF
ENDPROC
PROCEDURE Destroy
DODEFAULT()
STORE .NULL. TO THIS.oCurrentCoolControl, THIS.oHost
ENDPROC
PROCEDURE highlightme && Called in mousemove event of object desiring coolbar highlighting.
LPARAMETERS toObject
ASSERT VARTYPE(toObject) = "O" AND UPPER(toObject.BaseClass) # "FORM"
* it won't actually hurt anything if it's called from the form,
* I guess
* but it doesn't make any sense either
IF TYPE("toObject.Name") # "C"
RETURN .F.
ENDIF
LOCAL llNewObject
THIS.lMouseOverHost = .F.
llNewObject = ISNULL(THIS.oCurrentCoolControl) OR ;
((NOT(ISNULL(THIS.oCurrentCoolControl))) AND ;
THIS.oCurrentCoolControl # toObject )
* we'd have to do this comparison differently in VFP5...
IF NOT llNewObject
RETURN .F.
ENDIF
LOCAL liDrawWidth, liDrawStyle, liDrawMode, liForeColor, liScaleMode, ;
lnOTCTop, lnOTCLeft, lnOTCWidth, lnOTCHeight
IF NOT ISNULL(THIS.oCurrentCoolControl)
THIS.oHost.Cls && get rid of old highlight
ENDIF
THIS.oCurrentCoolControl = toObject
WITH THIS.oHost
* save host properties:
liDrawWidth = .DrawWidth
liDrawStyle = .DrawStyle
liDrawMode = .DrawMode
liForeColor = .ForeColor
liScaleMode = .ScaleMode
* set host properties:
.DrawWidth = THIS.nHighlightWidth
.DrawStyle = 0 && solid
.DrawMode = 13 && copy
.ScaleMode = 3 && pixels
* get object positioning relative to host and
* leave some room for the highlight:
lnOTCTop = OBJTOCLIENT(toObject,1) - THIS.nMargin
lnOTCLeft = OBJTOCLIENT(toObject,2) - THIS.nMargin
lnOTCWidth = OBJTOCLIENT(toObject,3) + THIS.nMargin * 2
lnOTCHeight = OBJTOCLIENT(toObject,4) + THIS.nMargin * 2
* border the current control with four lines
* in the appropriate colors
.ForeColor = THIS.iHighlightColor
* left control border
.Line(lnOTCLeft,lnOTCTop,lnOTCLeft,lnOTCTop+lnOTCHeight)
* top control border
.Line(lnOTCLeft,lnOTCTop,lnOTCLeft+lnOTCWidth,lnOTCTop)
.ForeColor = THIS.iShadowColor
* bottom control border
.Line(lnOTCLeft,lnOTCTop+lnOTCHeight,lnOTCLeft+lnOTCWidth,lnOTCTop+lnOTCHeight)
* right control border
.Line(lnOTCLeft+lnOTCWidth,lnOTCTop,lnOTCLeft+lnOTCWidth,lnOTCTop+lnOTCHeight)
* restore host properties:
.DrawWidth = liDrawWidth
.DrawStyle = liDrawStyle
.DrawMode = liDrawMode
.ForeColor = liForeColor
.ScaleMode = liScaleMode
ENDWITH
ENDPROC
PROCEDURE Init
IF NOT DODEFAULT()
RETURN .F.
ENDIF
IF TYPE("THISFORM") = "O"
THIS.oHost = THISFORM
ELSE
THIS.oHost = _SCREEN
ENDIF
* get appropriate color information
DECLARE INTEGER GetSysColor in win32api integer
THIS.iHighlightColor = GetSysColor(20) && button highlight
THIS.iShadowColor = GetSysColor(16) && button shadow
ENDPROC
ENDDEFINE
DEFINE CLASS _windowhandler AS _custom OF "_base.vcx" && Grab bag of window-handling features.
*< CLASSDATA: Baseclass="custom" Timestamp="" Scale="Pixels" Uniqueid="" />
#INCLUDE "_ui.h"
*<DefinedPropArrayMethod>
*m: cascadeforminstances && Cascades current set of active forms.
*m: getcurrenttopformref && Returns current frame window -- primarily for top-level form applications, but will work in other cases, returning a reference to _SCREEN if appropriate.
*m: imdiworkspacecolor_access
*m: invokemenuiteminframe && Use to invoke menu item in top-level form applications.
*m: showcurrenttopform && not currently implemented
*m: showwindowinframe && not currently implemented
*p: imdiworkspacecolor && Returns appropriate Windows color for top-level frame window background.
*</DefinedPropArrayMethod>
*<PropValue>
imdiworkspacecolor = 0
Name = "_windowhandler"
*</PropValue>
PROCEDURE cascadeforminstances && Cascades current set of active forms.
* to stagger existing forms with current frame.
* Returns number of forms arranged.
LPARAMETERS tcFormName,tlOmitAutoCenteredForms,tnStartTop, tnStartLeft, tnStartColumn
#DEFINE WINDOW_STAGGER_FACTOR SYSMETRIC(9)
* window title height
ASSERT EMPTY(tcFormName) OR (VARTYPE(tcFormName) = "C" AND WEXIST(tcFormName))
LOCAL lnArranged, lnColumn, lnTop, lnLeft, loFormRef, ;
lnParentHeight, lnScaleMode, lnIndex, llAllForms, loFrame, llInScreen, ;
llRightFrame
loFrame = THIS.GetCurrentTopFormRef()
llInScreen = (loFrame.ShowWindow = 0)
lnScaleMode = loFrame.ScaleMode
loFrame.ScaleMode = 3
lnArranged = 0
lnTop = IIF(VARTYPE(tnStartTop) = "N", tnStartTop, 0)
lnLeft = IIF(VARTYPE(tnStartLeft) = "N", tnStartLeft,0)
lnColumn = IIF(VARTYPE(tnStartColumn) = "N" AND tnStartColumn > 0, ;
tnStartColumn, 1)
lnParentHeight = loFrame.Height
llAllForms = EMPTY(tcFormName)
FOR lnIndex = _SCREEN.FormCount TO 1 STEP -1
loFormRef = _SCREEN.Forms(lnIndex)
IF UPPER(loFormRef.BaseClass) == "TOOLBAR"
LOOP
ENDIF
DO CASE
CASE llInScreen AND ;
lnIndex = _SCREEN.FormCount AND ;
INLIST(loFormRef.ShowWindow,0,1)
llRightFrame = .T.
* go right ahead and process these windows
CASE llInScreen AND ;
loFormRef.ShowWindow = 0
llRightFrame = .T.
CASE llInScreen AND ;
loFormRef.ShowWindow = 2
LOOP
* the real problem is ShowWindow = 1
* where you are mixing them some in Screen
* and some in top forms. This has to be
* taken care of separately in 5, but in 6
* apparently these windows show up with ShowWindow = 0!!
CASE INLIST(loFormRef.ShowWindow,0,1) AND ;
NOT llRightFrame
* we haven't gotten to the right group of windows yet
LOOP
CASE llRightFrame AND loFormRef.ShowWindow = 2
* we've reached another frame
EXIT
CASE loFormRef.ShowWindow = 2 AND loFormRef # loFrame
* still wrong group
LOOP
CASE loFormRef.ShowWindow = 2
llRightFrame = .T.
LOOP
* now we can work on the window group
* we'll see next in the stack...
OTHERWISE
* we're in an appropriate window, cascade it
ENDCASE
IF (llAllForms OR UPPER(loFormRef.Name) == UPPER(tcFormName)) AND ;
loFormRef.WindowState = 0 AND loFormRef.Visible AND ;
(NOT (tlOmitAutoCenteredForms AND loFormRef.AutoCenter))
lnArranged = lnArranged + 1
loFormRef.Top = lnTop
loFormRef.Left = (lnLeft * lnColumn)
loFormRef.AutoCenter = .F.
IF lnTop > lnParentHeight - WINDOW_STAGGER_FACTOR
STORE WINDOW_STAGGER_FACTOR TO lnTop, lnLeft
lnColumn = lnColumn + 1
ENDIF
lnTop = lnTop + WINDOW_STAGGER_FACTOR
lnLeft = lnLeft + WINDOW_STAGGER_FACTOR
ELSE
* do nothing
ENDIF
ENDFOR
loFrame.ScaleMode = lnScaleMode
RETURN lnArranged
ENDPROC
PROCEDURE getcurrenttopformref && Returns current frame window -- primarily for top-level form applications, but will work in other cases, returning a reference to _SCREEN if appropriate.
LOCAL loForm, loTopForm
* first top form in the list
* will be the current top form.
* DON"T USE THIS METHOD in VFP 5 IF YOU MIX
* _SCREEN-owned forms with topform-Owned
* forms unless you use ShowWindow = 0 for
* all _screen-owned forms! In 6 it appears okay
ASSERT TYPE("_SCREEN.ActiveForm") # "O" OR ;
INLIST(_SCREEN.ActiveForm.ShowWindow, 0,1,2)
DO CASE
CASE _SCREEN.FormCount = 0 OR ;
(TYPE("_SCREEN.ActiveForm") = "O" AND ;
_SCREEN.ActiveForm.ShowWindow = 0 ) && ShowWindow In Screen
loTopForm = _SCREEN
CASE (TYPE("_SCREEN.ActiveForm") = "O" AND ;
_SCREEN.ActiveForm.ShowWindow = 2 ) && ShowWindow As Top Form
loTopForm = _SCREEN.ActiveForm
OTHERWISE
FOR EACH loForm IN _SCREEN.Forms && note: these may be toolbars
&& if undocked, but that's okay --
&& they are only ShowWIndow 0 or 1.
IF loForm.ShowWindow = 2 && the first one in the collection will
&& be "active top form"
loTopForm = loForm
EXIT
ENDIF
ENDFOR
IF VARTYPE(loTopForm) # "O"
loTopForm = _SCREEN
ENDIF
ENDCASE
RETURN loTopForm
ENDPROC
PROCEDURE imdiworkspacecolor_access
DECLARE INTEGER GetSysColor IN Win32API INTEGER nColorAspect
RETURN GetSysColor(12)
ENDPROC
PROCEDURE invokemenuiteminframe && Use to invoke menu item in top-level form applications.
LPARAMETERS tcAction
ASSERT VARTYPE(tcAction) = "C" AND (NOT EMPTY(tcAction))
* this method allows us to properly call the items whether the system menu
* exists or not, and whether we're calling from a top form or not, including
* from a context menu.
#DEFINE KNOWN_ACTIONS "UNDO","REDO","CUT","COPY", "PASTE", ;
"CLEAR","SELECTALL", "FIND","FINDAGAIN","REPLACE", ;
"GOTOLINE","INSERTOBJECT","OBJECT","LINKS"
#DEFINE ACTIONS_NEEDING_WINDOW "FIND","REPLACE", ;
"GOTOLINE", "PASTESPECIAL", ;
"INSERTOBJECT","OBJECT","LINKS" && , ;
&& "PROPERTIES"
LOCAL loTopWindow, lcWindowName, ;
lcAction, lnBarno, lcBarNo, lcPrompt, lcKey
* remove spaces and dots, in case somebody is passing
* the actual prompts as tokens...
lcAction = STRTRAN(UPPER(tcAction)," ","")
lcAction = STRTRAN(lcAction,".","")
STORE "" TO lcBarNo, lcPrompt, lcWindowName, lcKey
STORE 0 TO lnBarno
STORE NULL TO loTopWindow
ASSERT INLIST(lcAction,KNOWN_ACTIONS )
IF INLIST(lcAction,ACTIONS_NEEDING_WINDOW )
loTopWindow = THIS.GetCurrentTopFormRef()
lcWindowName = WONTOP()
ENDIF
IF CNTBAR("_MEDIT") = 0
DEFINE POPUP _MEDIT
ENDIF
DO CASE
CASE lcAction == "UNDO"
lcBarno = ["_med_undo"]
lcPrompt = MENUPROMPT_MED_UNDO
lcKey = MENUKEY_MED_UNDO
CASE lcAction == "REDO"
lcBarno = ["_med_redo"]
lcPrompt = MENUPROMPT_MED_REDO
lcKey = MENUKEY_MED_REDO
CASE lcAction == "CUT"
lcBarno = ["_med_cut"]
lcPrompt = MENUPROMPT_MED_CUT
lcKey = MENUKEY_MED_CUT
CASE lcAction == "COPY"
lcBarno = ["_med_copy"]
lcPrompt = MENUPROMPT_MED_COPY
lcKey = MENUKEY_MED_COPY
CASE lcAction == "PASTE"
lcBarno = ["_med_paste"]
lcPrompt = MENUPROMPT_MED_PASTE
lcKey = MENUKEY_MED_PASTE
CASE lcAction == "CLEAR"
lcBarno = ["_med_clear"]
lcPrompt = MENUPROMPT_MED_CLEAR
lcKey = MENUKEY_MED_CLEAR
CASE lcAction == "SELECTALL"
lcBarno = ["_med_slcta"]
lcPrompt = MENUPROMPT_MED_SLCTA
lcKey = MENUKEY_MED_SLCTA
CASE lcAction == "FIND"
lcBarno = ["_med_find"]
lcPrompt = MENUPROMPT_MED_FIND
lcKey = MENUKEY_MED_FIND
CASE lcAction == "FINDAGAIN"
lcBarno = ["_med_finda"]
lcPrompt = MENUPROMPT_MED_FINDA
lcKey = MENUKEY_MED_FINDA
CASE lcAction == "REPLACE"
lcBarno = ["_med_repl"]
lcPrompt = MENUPROMPT_MED_REPL
lcKey = MENUKEY_MED_REPL
CASE lcAction == "PASTESPECIAL"
lcBarno = ["_med_pstlk"]
lcPrompt = MENUPROMPT_MED_PSTLK
lcKey = MENUKEY_MED_PSTLK
CASE lcAction = "GOTOLINE"
lcBarno = ["_med_goto"]
lcPrompt = MENUPROMPT_MED_GOTO
lcKey = MENUKEY_MED_GOTO
CASE lcAction == "INSERTOBJECT"
lcBarno = ["_med_insob"]
lcPrompt = MENUPROMPT_MED_INSOB
lcKey = MENUKEY_MED_INSOB
CASE lcAction == "OBJECT"
lcBarno = ["_med_obj"]
lcPrompt = MENUPROMPT_MED_OBJ
lcKey = MENUKEY_MED_OBJ
CASE lcAction == "LINKS"
lcBarno = ["_med_link"]
lcPrompt = MENUPROMPT_MED_LINK
lcKey = MENUKEY_MED_LINK
*&* CASE lcAction ==
*&* lcBarno = [""]
*&* lcPrompt =
*&* lcKey = []
OTHERWISE
* we shouldn't have gotten through ASSERT!
RETURN .F.
ENDCASE
lnBarNo = STRTRAN(lcBarNo,["],[])
lnBarNo = INT(&lnBarNo)
IF TYPE("BARPROMPT(lnBarNo,[_MEDIT])") # "C"
DEFINE BAR lnBarNo OF _MEDIT PROMPT lcPrompt &lcKey
ENDIF
IF NOT ISNULL(loTopWindow)
ACTI WINDOW (loTopWindow.Name) SAME
IF NOT EMPTY(lcWindowName)
ACTI WINDOW (lcWindowName)
ENDIF
ENDIF
=SYS(1500,&lcBarNo,"_medit")
IF NOT EMPTY(lcWindowName)
* there's a faint possibility
* of problems if we have invoked
* a system dialog, otherwise --
* especially if the system dialog
* was modal or the previous window was modal
ACTI WINDOW (lcWindowName) && again
ENDIF
RETURN
ENDPROC
PROCEDURE showcurrenttopform && not currently implemented
ENDPROC
PROCEDURE showwindowinframe && not currently implemented
ENDPROC
ENDDEFINE

2166
Clase/ferestre_registratura.vc2 Normal file
View File

File diff suppressed because one or more lines are too long

454
Clase/gdiplus.h Normal file
View File

@@ -0,0 +1,454 @@
*
* GDI+ Class library for Visual Foxpro
*
#ifndef _GDIPLUS_H_INCLUDED
* Localisation
#include "gdiplus_locs.h"
* Modify_GDIPLUS.VCX behavior (recompile _GDIPLUS.VCX to take effect)
* Set these constants to .F. to bypass most parameter checking
* (Code will run faster, but more dangerously)
#define GDIPLUS_CHECK_PARAMS .T. && Check parameter types
#define GDIPLUS_CHECK_OBJECT .T. && Check GDI+ object handle
#define GDIPLUS_CHECK_GDIPLUSNOTINIT .T. && Throw error if GDI+ not initialised
* Classes instantiated from gdiplus.vcx
* If you subclass anything in _gdiplus.vcx, you MUST change at least
* GDIPLUS_CLASS_LIBRARY
#define GDIPLUS_CLASS_LIBRARY This.ClassLibrary
* #define GDIPLUS_CLASS_LIBRARY '_gdiplus.vcx'
#define GDIPLUS_CLASS_RECT 'GpRectangle'
#define GDIPLUS_CLASS_POINT 'GpPoint'
#define GDIPLUS_CLASS_SIZE 'GpSize'
#define GDIPLUS_CLASS_FONTFAMILY 'GpFontFamily'
#define GDIPLUS_CLASS_IMAGE 'GpImage'
#define GDIPLUS_CLASS_BITMAP 'GpBitmap'
#define GDIPLUS_CLASS_GRAPHICS 'GpGraphics'
* Control error handler behavior (default for all objects: you
* can also change this per-object)
* If you want to change these modes in the GpBase.Init() method
* then uncomment and adjust the following
*#define GDIPLUS_ERRHANDLER_ALLOWMODAL (inlist(_VFP.StartMode,0,4))
*#define GDIPLUS_ERRHANDLER_QUIET (not inlist(_VFP.StartMode,0,4))
*#define GDIPLUS_ERRHANDLER_IGNOREERRORS .F.
*#define GDIPLUS_ERRHANDLER_APPNAME "GDI+ FFC Library"
* Set to .T. to rethrow errors inside error handler (eg when debugging)
#define GDIPLUS_ERRHANDLER_RETHROW .F.
* Status enumeration
#define GDIPLUS_STATUS_OK 0
#define GDIPLUS_STATUS_GenericError 1
#define GDIPLUS_STATUS_InvalidParameter 2
#define GDIPLUS_STATUS_OutOfMemory 3
#define GDIPLUS_STATUS_ObjectBusy 4
#define GDIPLUS_STATUS_InsufficientBuffer 5
#define GDIPLUS_STATUS_NotImplemented 6
#define GDIPLUS_STATUS_Win32Error 7
#define GDIPLUS_STATUS_WrongState 8
#define GDIPLUS_STATUS_Aborted 9
#define GDIPLUS_STATUS_FileNotFound 10
#define GDIPLUS_STATUS_ValueOverflow 11
#define GDIPLUS_STATUS_AccessDenied 12
#define GDIPLUS_STATUS_UnknownImageFormat 13
#define GDIPLUS_STATUS_FontFamilyNotFound 14
#define GDIPLUS_STATUS_FontStyleNotFound 15
#define GDIPLUS_STATUS_NotTrueTypeFont 16
#define GDIPLUS_STATUS_UnsupportedGdiplusVersion 17
#define GDIPLUS_STATUS_GdiplusNotInitialized 18
#define GDIPLUS_STATUS_PropertyNotFound 19
#define GDIPLUS_STATUS_PropertyNotSupported 20
* Fill mode (how a closed path is filled)
#define GDIPLUS_FillMode_Alternate 0
#define GDIPLUS_FillMode_Winding 1
* Quality mode constants
#define GDIPLUS_QualityMode_Invalid -1
#define GDIPLUS_QualityMode_Default 0
#define GDIPLUS_QualityMode_Low 1 && Best performance
#define GDIPLUS_QualityMode_High 2 && Best rendering quality
* Alpha Compositing mode constants
#define GDIPLUS_CompositingMode_SourceOver 0
#define GDIPLUS_CompositingMode_SourceCopy 1
* Alpha Compositing quality constants
#define GDIPLUS_CompositingQuality_Invalid GDIPLUS_QualityMode_Invalid
#define GDIPLUS_CompositingQuality_Default GDIPLUS_QualityMode_Default
#define GDIPLUS_CompositingQuality_HighSpeed GDIPLUS_QualityMode_Low
#define GDIPLUS_CompositingQuality_HighQuality GDIPLUS_QualityMode_High
#define GDIPLUS_CompositingQuality_GammaCorrected 3
#define GDIPLUS_CompositingQuality_AssumeLinear 4
* Units
#define GDIPLUS_Unit_World 0 && World coordinate (non-physical unit)
#define GDIPLUS_Unit_Display 1 && Variable -- for PageTransform only
#define GDIPLUS_Unit_Pixel 2 && one device pixel.
#define GDIPLUS_Unit_Point 3 && 1/72 inch.
#define GDIPLUS_Unit_Inch 4 && 1 inch.
#define GDIPLUS_Unit_Document 5 && 1/300 inch.
#define GDIPLUS_Unit_Millimeter 6 && 1 millimeter.
#define GDIPLUS_MetafileFrameUnit_Pixel GDIPLUS_Unit_Pixel
#define GDIPLUS_MetafileFrameUnit_Point GDIPLUS_Unit_Point
#define GDIPLUS_MetafileFrameUnit_Inch GDIPLUS_Unit_Inch
#define GDIPLUS_MetafileFrameUnit_Document GDIPLUS_Unit_Document
#define GDIPLUS_MetafileFrameUnit_Millimeter GDIPLUS_Unit_Millimeter
#define GDIPLUS_MetafileFrameUnit_Gdi 7 && GDI compatible .01 MM units
* Coordinate Space
#define GDIPLUS_CoordinateSpace_World 0
#define GDIPLUS_CoordinateSpace_Page 1
#define GDIPLUS_CoordinateSpace_Device 2
* Wrap mode for brushes
#define GDIPLUS_WrapMode_Tile 0
#define GDIPLUS_WrapMode_TileFlipX 1
#define GDIPLUS_WrapMode_TileFlipY 2
#define GDIPLUS_WrapMode_TileFlipXY 3
#define GDIPLUS_WrapMode_Clamp 4
* HatchBrush styles
#define GDIPLUS_HatchStyle_Horizontal 0
#define GDIPLUS_HatchStyle_Vertical 1
#define GDIPLUS_HatchStyle_ForwardDiagonal 2
#define GDIPLUS_HatchStyle_BackwardDiagonal 3
#define GDIPLUS_HatchStyle_Cross 4
#define GDIPLUS_HatchStyle_DiagonalCross 5
#define GDIPLUS_HatchStyle_05Percent 6
#define GDIPLUS_HatchStyle_10Percent 7
#define GDIPLUS_HatchStyle_20Percent 8
#define GDIPLUS_HatchStyle_25Percent 9
#define GDIPLUS_HatchStyle_30Percent 10
#define GDIPLUS_HatchStyle_40Percent 11
#define GDIPLUS_HatchStyle_50Percent 12
#define GDIPLUS_HatchStyle_60Percent 13
#define GDIPLUS_HatchStyle_70Percent 14
#define GDIPLUS_HatchStyle_75Percent 15
#define GDIPLUS_HatchStyle_80Percent 16
#define GDIPLUS_HatchStyle_90Percent 17
#define GDIPLUS_HatchStyle_LightDownwardDiagonal 18
#define GDIPLUS_HatchStyle_LightUpwardDiagonal 19
#define GDIPLUS_HatchStyle_DarkDownwardDiagonal 20
#define GDIPLUS_HatchStyle_DarkUpwardDiagonal 21
#define GDIPLUS_HatchStyle_WideDownwardDiagonal 22
#define GDIPLUS_HatchStyle_WideUpwardDiagonal 23
#define GDIPLUS_HatchStyle_LightVertical 24
#define GDIPLUS_HatchStyle_LightHorizontal 25
#define GDIPLUS_HatchStyle_NarrowVertical 26
#define GDIPLUS_HatchStyle_NarrowHorizontal 27
#define GDIPLUS_HatchStyle_DarkVertical 28
#define GDIPLUS_HatchStyle_DarkHorizontal 29
#define GDIPLUS_HatchStyle_DashedDownwardDiagonal 30
#define GDIPLUS_HatchStyle_DashedUpwardDiagonal 31
#define GDIPLUS_HatchStyle_DashedHorizontal 32
#define GDIPLUS_HatchStyle_DashedVertical 33
#define GDIPLUS_HatchStyle_SmallConfetti 34
#define GDIPLUS_HatchStyle_LargeConfetti 35
#define GDIPLUS_HatchStyle_ZigZag 36
#define GDIPLUS_HatchStyle_Wave 37
#define GDIPLUS_HatchStyle_DiagonalBrick 38
#define GDIPLUS_HatchStyle_HorizontalBrick 39
#define GDIPLUS_HatchStyle_Weave 40
#define GDIPLUS_HatchStyle_Plaid 41
#define GDIPLUS_HatchStyle_Divot 42
#define GDIPLUS_HatchStyle_DottedGrid 43
#define GDIPLUS_HatchStyle_DottedDiamond 44
#define GDIPLUS_HatchStyle_Shingle 45
#define GDIPLUS_HatchStyle_Trellis 46
#define GDIPLUS_HatchStyle_Sphere 47
#define GDIPLUS_HatchStyle_SmallGrid 48
#define GDIPLUS_HatchStyle_SmallCheckerBoard 49
#define GDIPLUS_HatchStyle_LargeCheckerBoard 50
#define GDIPLUS_HatchStyle_OutlinedDiamond 51
#define GDIPLUS_HatchStyle_SolidDiamond 52
* Dash style constants
#define GDIPLUS_DashStyle_Solid 0
#define GDIPLUS_DashStyle_Dash 1
#define GDIPLUS_DashStyle_Dot 2
#define GDIPLUS_DashStyle_DashDot 3
#define GDIPLUS_DashStyle_DashDotDot 4
#define GDIPLUS_DashStyle_Custom 5
* Dash cap constants
#define GDIPLUS_DashCap_Flat 0
#define GDIPLUS_DashCap_Round 2
#define GDIPLUS_DashCap_Triangle 3
* LineCap
#define GDIPLUS_LineCap_Flat 0
#define GDIPLUS_LineCap_Square 1
#define GDIPLUS_LineCap_Round 2
#define GDIPLUS_LineCap_Triangle 3
#define GDIPLUS_LineCap_NoAnchor 0x10 && corresponds to flat cap
#define GDIPLUS_LineCap_SquareAnchor 0x11 && corresponds to square cap
#define GDIPLUS_LineCap_RoundAnchor 0x12 && corresponds to round cap
#define GDIPLUS_LineCap_DiamondAnchor 0x13 && corresponds to triangle cap
#define GDIPLUS_LineCap_ArrowAnchor 0x14 && no correspondence
#define GDIPLUS_LineCap_Custom 0xff && custom cap
#define GDIPLUS_LineCap_AnchorMask 0xf0 && mask to check for anchor or not.
* Custom Line cap type constants
#define GDIPLUS_CustomLineCapType_Default 0
#define GDIPLUS_CustomLineCapType_AdjustableArrow 1
* Line join constants
#define GDIPLUS_LineJoin_Miter 0
#define GDIPLUS_LineJoin_Bevel 1
#define GDIPLUS_LineJoin_Round 2
#define GDIPLUS_LineJoin_MiterClipped 3
* Path point types (only the lowest 8 bits are used.)
* The lowest 3 bits are interpreted as point type
* The higher 5 bits are reserved for flags.
#define GDIPLUS_PathPointType_Start 0 && move
#define GDIPLUS_PathPointType_Line 1 && line
#define GDIPLUS_PathPointType_Bezier 3 && default Bezier (= cubic Bezier)
#define GDIPLUS_PathPointType_PathTypeMask 0x07 && type mask (lowest 3 bits).
#define GDIPLUS_PathPointType_DashMode 0x10 && currently in dash mode.
#define GDIPLUS_PathPointType_PathMarker 0x20 && a marker for the path.
#define GDIPLUS_PathPointType_CloseSubpath 0x80 && closed flag
#define GDIPLUS_PathPointType_Bezier3 3 && cubic Bezier
* WarpMode constants
#define GDIPLUS_WarpMode_Perspective 0
#define GDIPLUS_WarpMode_Bilinear 1
* LinearGradient Mode
#define GDIPLUS_LinearGradientMode_Horizontal 0
#define GDIPLUS_LinearGradientMode_Vertical 1
#define GDIPLUS_LinearGradientMode_ForwardDiagonal 2
#define GDIPLUS_LinearGradientMode_BackwardDiagonal 3
* CombineMode (for regions)
#define GDIPLUS_CombineMode_Replace 0
#define GDIPLUS_CombineMode_Intersect 1
#define GDIPLUS_CombineMode_Union 2
#define GDIPLUS_CombineMode_Xor 3
#define GDIPLUS_CombineMode_Exclude 4
#define GDIPLUS_CombineMode_Complement 5
* Image types
#define GDIPLUS_ImageType_Unknown 0
#define GDIPLUS_ImageType_Bitmap 1
#define GDIPLUS_ImageType_Metafile 2
* StringAlignment enumeration
* Applies to GpStringFormat::Alignment, GpStringFormat::LineAlignment
#define GDIPLUS_STRINGALIGNMENT_Near 0 && in Left-To-Right locale, this is Left
#define GDIPLUS_STRINGALIGNMENT_Center 1
#define GDIPLUS_STRINGALIGNMENT_Far 2 && in Left-To-Right locale, this is Right
* StringFormatFlags enumeration
* applies to GpStringFormat::FormatFlags
#define GDIPLUS_STRINGFORMATFLAGS_DirectionRightToLeft 1
#define GDIPLUS_STRINGFORMATFLAGS_DirectionVertical 2
#define GDIPLUS_STRINGFORMATFLAGS_NoFitBlackBox 4
#define GDIPLUS_STRINGFORMATFLAGS_DisplayFormatControl 32
#define GDIPLUS_STRINGFORMATFLAGS_NoFontFallback 1024
#define GDIPLUS_STRINGFORMATFLAGS_MeasureTrailingSpaces 2048
#define GDIPLUS_STRINGFORMATFLAGS_NoWrap 4096
#define GDIPLUS_STRINGFORMATFLAGS_LineLimit 8192
#define GDIPLUS_STRINGFORMATFLAGS_NoClip 16384
* StringTrimming enumeration
#define GDIPLUS_STRINGTRIMMING_None 0 && no trimming.
#define GDIPLUS_STRINGTRIMMING_Character 1 && nearest character.
#define GDIPLUS_STRINGTRIMMING_Word 2 && nearest wor
#define GDIPLUS_STRINGTRIMMING_EllipsisCharacter 3 && nearest character, ellipsis at end
#define GDIPLUS_STRINGTRIMMING_EllipsisWord 4 && nearest word, ellipsis at end
#define GDIPLUS_STRINGTRIMMING_EllipsisPath 5 && ellipsis in center, favouring last slash-delimited segment
* StringDigitSubstitute
#define GDIPLUS_STRINGDIGITSUBSTITUTE_User 0
#define GDIPLUS_STRINGDIGITSUBSTITUTE_None 1
#define GDIPLUS_STRINGDIGITSUBSTITUTE_National 2
#define GDIPLUS_STRINGDIGITSUBSTITUTE_Traditional 3
* HotkeyPrefix enumeration
#define GDIPLUS_HOTKEYPREFIX_None 0 && No hot-key prefix.
#define GDIPLUS_HOTKEYPREFIX_Show 1 && display hot-key prefix
#define GDIPLUS_HOTKEYPREFIX_Hide 2 && Do not display the hot-key prefix.
* FontStyle: face types and common styles
#define GDIPLUS_FontStyle_Regular 0
#define GDIPLUS_FontStyle_Bold 1
#define GDIPLUS_FontStyle_Italic 2
#define GDIPLUS_FontStyle_BoldItalic 3
#define GDIPLUS_FontStyle_Underline 4
#define GDIPLUS_FontStyle_Strikeout 8
#define GDIPLUS_InterpolationMode_Invalid GDIPLUS_QualityMode_Invalid
#define GDIPLUS_InterpolationMode_Default GDIPLUS_QualityMode_Default
#define GDIPLUS_InterpolationMode_LowQuality GDIPLUS_QualityMode_Low
#define GDIPLUS_InterpolationMode_HighQuality GDIPLUS_QualityMode_High
#define GDIPLUS_InterpolationMode_Bilinear 3
#define GDIPLUS_InterpolationMode_Bicubic 4
#define GDIPLUS_InterpolationMode_NearestNeighbor 5
#define GDIPLUS_InterpolationMode_HighQualityBilinear 6
#define GDIPLUS_InterpolationMode_HighQualityBicubic 7
#define GDIPLUS_PenAlignment_Center 0
#define GDIPLUS_PenAlignment_Inset 1
* Brush types
#define GDIPLUS_BrushType_SolidColor 0
#define GDIPLUS_BrushType_HatchFill 1
#define GDIPLUS_BrushType_TextureFill 2
#define GDIPLUS_BrushType_PathGradient 3
#define GDIPLUS_BrushType_LinearGradient 4
* Pen's Fill types
#define GDIPLUS_PenType_SolidColor GDIPLUS_BrushType_SolidColor
#define GDIPLUS_PenType_HatchFill GDIPLUS_BrushType_HatchFill
#define GDIPLUS_PenType_TextureFill GDIPLUS_BrushType_TextureFill
#define GDIPLUS_PenType_PathGradient GDIPLUS_BrushType_PathGradient
#define GDIPLUS_PenType_LinearGradient GDIPLUS_BrushType_LinearGradient
#define GDIPLUS_PenType_Unknown -1
* Matrix Order
#define GDIPLUS_MatrixOrder_Prepend 0
#define GDIPLUS_MatrixOrder_Append 1
* SmoothingMode
#define GDIPLUS_SmoothingMode_Invalid GDIPLUS_QualityMode_Invalid
#define GDIPLUS_SmoothingMode_Default GDIPLUS_QualityMode_Default
#define GDIPLUS_SmoothingMode_HighSpeed GDIPLUS_QualityMode_Low,
#define GDIPLUS_SmoothingMode_HighQuality GDIPLUS_QualityMode_High
#define GDIPLUS_SmoothingMode_None 3
#define GDIPLUS_SmoothingMode_AntiAlias 4
* PixelOffsetMode
#define GDIPLUS_PixelOffsetMode_Invalid GDIPLUS_QualityMode_Invalid
#define GDIPLUS_PixelOffsetMode_Default GDIPLUS_QualityMode_Default
#define GDIPLUS_PixelOffsetMode_HighSpeed GDIPLUS_QualityMode_Low
#define GDIPLUS_PixelOffsetMode_HighQuality GDIPLUS_QualityMode_High
#define GDIPLUS_PixelOffsetMode_None 3
#define GDIPLUS_PixelOffsetMode_Half 4
* GpGraphics::Flush() modes
#define GDIPLUS_FlushIntention_Flush 0
#define GDIPLUS_FlushIntention_Sync 1
*---------------------------------------------------------------------------
* Image file format identifiers (GUIDs)
#define GDIPLUS_IMAGEFORMAT_Undefined 0hA93C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_MemoryBMP 0hAA3C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_BMP 0hAB3C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_EMF 0hAC3C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_WMF 0hAD3C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_JPEG 0hAE3C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_PNG 0hAF3C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_GIF 0hB03C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_TIFF 0hB13C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_EXIF 0hB23C6BB92807D3119D7B0000F81EF32E
#define GDIPLUS_IMAGEFORMAT_Icon 0hB53C6BB92807D3119D7B0000F81EF32E
* Pixel formats
#define GDIPLUS_PIXELFORMAT_Indexed 0x00010000 && Indexes into a palette
#define GDIPLUS_PIXELFORMAT_GDI 0x00020000 && Is a GDI-supported format
#define GDIPLUS_PIXELFORMAT_Alpha 0x00040000 && Has an alpha component
#define GDIPLUS_PIXELFORMAT_PAlpha 0x00080000 && Pre-multiplied alpha
#define GDIPLUS_PIXELFORMAT_Extended 0x00100000 && Extended color 16 bits/channel
#define GDIPLUS_PIXELFORMAT_Canonical 0x00200000
#define GDIPLUS_PIXELFORMAT_Undefined 0
#define GDIPLUS_PIXELFORMAT_DontCare 0
#define GDIPLUS_PIXELFORMAT_1bppIndexed 0x00030101
#define GDIPLUS_PIXELFORMAT_4bppIndexed 0x00030402
#define GDIPLUS_PIXELFORMAT_8bppIndexed 0x00030803
#define GDIPLUS_PIXELFORMAT_16bppGrayScale 0x00101004
#define GDIPLUS_PIXELFORMAT_16bppRGB555 0x00021005
#define GDIPLUS_PIXELFORMAT_16bppRGB565 0x00021006
#define GDIPLUS_PIXELFORMAT_16bppARGB1555 0x00061007
#define GDIPLUS_PIXELFORMAT_24bppRGB 0x00021808
#define GDIPLUS_PIXELFORMAT_32bppRGB 0x00022009
#define GDIPLUS_PIXELFORMAT_32bppARGB 0x0026200A
#define GDIPLUS_PIXELFORMAT_32bppPARGB 0x000E200B
#define GDIPLUS_PIXELFORMAT_48bppRGB 0x0010300C
#define GDIPLUS_PIXELFORMAT_64bppPARGB 0x001C400E
* --------------
* Image flags (see GpImage::Flags property)
#define GDIPLUS_ImageFlags_None 0
#define GDIPLUS_ImageFlags_Scalable 0x0001
#define GDIPLUS_ImageFlags_HasAlpha 0x0002
#define GDIPLUS_ImageFlags_HasTranslucent 0x0004
#define GDIPLUS_ImageFlags_PartiallyScalable 0x0008
#define GDIPLUS_ImageFlags_ColorSpaceRGB 0x0010
#define GDIPLUS_ImageFlags_ColorSpaceCMYK 0x0020
#define GDIPLUS_ImageFlags_ColorSpaceGRAY 0x0040
#define GDIPLUS_ImageFlags_ColorSpaceYCBCR 0x0080
#define GDIPLUS_ImageFlags_ColorSpaceYCCK 0x0100
#define GDIPLUS_ImageFlags_HasRealDPI 0x1000
#define GDIPLUS_ImageFlags_HasRealPixelSize 0x2000
#define GDIPLUS_ImageFlags_ReadOnly 0x00010000
#define GDIPLUS_ImageFlags_Caching 0x00020000
* -------------
* Encoder parameter type
#define GDIPLUS_ValueDataType_Byte 1 && 8-bit unsigned
#define GDIPLUS_ValueDataType_ASCII 2 && character string
#define GDIPLUS_ValueDataType_Short 3 && 16-bit unsigned
#define GDIPLUS_ValueDataType_Long 4 && 32-bit unsigned
#define GDIPLUS_ValueDataType_Rational 5 && fraction ulong/ulong
#define GDIPLUS_ValueDataType_LongRange 6 && Two ulongs (min,max)
#define GDIPLUS_ValueDataType_Undefined 7 && array of bytes
#define GDIPLUS_ValueDataType_RationalRange 8 && four ulongs
#define GDIPLUS_ValueDataType_Pointer 9 && pointer
#define GDIPLUS_ENCODER_Compression 0h9D739DE0D4CCEE448EBA3FBF8BE4FC58
#define GDIPLUS_ENCODER_ColorDepth 0h5570086666AD7C4C9A1838A2310B8337
#define GDIPLUS_ENCODER_ScanMethod 0h61264E3A0931564E853642C156E7DCFA
#define GDIPLUS_ENCODER_Version 0h768CD1244A81A441BF531C219CCCF797
#define GDIPLUS_ENCODER_RenderMethod 0h3AC5426D9A2225488BB75C99E2B9A8B8
#define GDIPLUS_ENCODER_Quality 0hB5E45B1D4AFA2D459CDD5DB35105E7EB
#define GDIPLUS_ENCODER_Transformation 0hD1B20E8D8EA5A84EAA14108074B7B6F9
#define GDIPLUS_ENCODER_LuminanceTable 0hCE3BB3ED6602774AB90427216099E717
#define GDIPLUS_ENCODER_ChrominanceTable 0hDC55E4F2B30916438260676ADA32481C
#define GDIPLUS_ENCODER_SaveFlag 0hFC66222940ACBF478CFCA85B89A655DE
* GpImage::RotateFlip() parameter
#define GDIPLUS_ROTATEFLIPTYPE_RotateNoneFlipNone 0
#define GDIPLUS_ROTATEFLIPTYPE_Rotate90FlipNone 1
#define GDIPLUS_ROTATEFLIPTYPE_Rotate180FlipNone 2
#define GDIPLUS_ROTATEFLIPTYPE_Rotate270FlipNone 3
#define GDIPLUS_ROTATEFLIPTYPE_RotateNoneFlipX 4
#define GDIPLUS_ROTATEFLIPTYPE_Rotate90FlipX 5
#define GDIPLUS_ROTATEFLIPTYPE_Rotate180FlipX 6
#define GDIPLUS_ROTATEFLIPTYPE_Rotate270FlipX 7
#define GDIPLUS_ROTATEFLIPTYPE_RotateNoneFlipY GDIPLUS_ROTATEFLIPTYPE_Rotate180FlipX
#define GDIPLUS_ROTATEFLIPTYPE_Rotate90FlipY GDIPLUS_ROTATEFLIPTYPE_Rotate270FlipX
#define GDIPLUS_ROTATEFLIPTYPE_Rotate180FlipY GDIPLUS_ROTATEFLIPTYPE_RotateNoneFlipX
#define GDIPLUS_ROTATEFLIPTYPE_Rotate270FlipY GDIPLUS_ROTATEFLIPTYPE_Rotate90FlipX
#define GDIPLUS_ROTATEFLIPTYPE_RotateNoneFlipXY GDIPLUS_ROTATEFLIPTYPE_Rotate180FlipNone
#define GDIPLUS_ROTATEFLIPTYPE_Rotate90FlipXY GDIPLUS_ROTATEFLIPTYPE_Rotate270FlipNone
#define GDIPLUS_ROTATEFLIPTYPE_Rotate180FlipXY GDIPLUS_ROTATEFLIPTYPE_RotateNoneFlipNone
#define GDIPLUS_ROTATEFLIPTYPE_Rotate270FlipXY GDIPLUS_ROTATEFLIPTYPE_Rotate90FlipNone
#endif && _GDIPLUS_H_INCLUDED

1456
Clase/oOptiuni.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

47
Clase/ofundal.vc2 Normal file
View File

@@ -0,0 +1,47 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS pg_meniu AS _pageframe OF "..\..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
ErasePage = .T.
Height = 173
Name = "pg_meniu"
TabStyle = 1
Page1.BackColor = 255,255,255
Page1.Name = "Page1"
Page2.BackColor = 255,255,255
Page2.Name = "Page2"
*</PropValue>
ENDDEFINE
DEFINE CLASS pict_liniuta AS _image OF "..\..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Height = 10
Name = "pict_liniuta"
Picture = ..\grafice\f3.jpg
Stretch = 2
Width = 120
*</PropValue>
ENDDEFINE
DEFINE CLASS pict_meniu AS _image OF "..\..\comun\clase\_baza.vcx"
*< CLASSDATA: Baseclass="image" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Height = 362
Name = "pict_meniu"
Picture = ..\grafice\f2.jpg
Stretch = 2
Width = 133
*</PropValue>
ENDDEFINE

307
Clase/ofundal_registratura.vc2 Normal file
View File

@@ -0,0 +1,307 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (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="" />
*<PropValue>
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"
*</PropValue>
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()
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
If !This.ct_part_nr_data1.llock
This.ct_part_nr_data1.llock = .T.
lnRaspuns = AMESSAGEBOX('Dori<72>i s<> salva<76>i modific<69>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

3347
Clase/onom_clienti.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

1564
Clase/outlook2003bar.vc2 Normal file
View File

File diff suppressed because it is too large Load Diff

79
Clase/registry.h Normal file
View File

@@ -0,0 +1,79 @@
*- Registry.h
*- Copyright (c) 1997 Microsoft Corporation
* Operating System codes
#DEFINE OS_W32S 1
#DEFINE OS_NT 2
#DEFINE OS_WIN95 3
#DEFINE OS_MAC 4
#DEFINE OS_DOS 5
#DEFINE OS_UNIX 6
* DLL Paths for various operating systems
#DEFINE DLLPATH_NT "\SYSTEM32\"
#DEFINE DLLPATH_WIN95 "\SYSTEM\"
* DLL files used to read INI files
#DEFINE DLL_KERNEL_NT "KERNEL32.DLL"
#DEFINE DLL_KERNEL_WIN95 "KERNEL32.DLL"
* DLL files used to read registry
#DEFINE DLL_ADVAPI_NT "ADVAPI32.DLL"
#DEFINE DLL_ADVAPI_WIN95 "ADVAPI32.DLL"
* DLL files used to read ODBC info
#DEFINE DLL_ODBC_NT "ODBC32.DLL"
#DEFINE DLL_ODBC_WIN95 "ODBC32.DLL"
* Registry roots
#DEFINE HKEY_CLASSES_ROOT -2147483648 && BITSET(0,31)
#DEFINE HKEY_CURRENT_USER -2147483647 && BITSET(0,31)+1
#DEFINE HKEY_LOCAL_MACHINE -2147483646 && BITSET(0,31)+2
#DEFINE HKEY_USERS -2147483645 && BITSET(0,31)+3
* Misc
#DEFINE APP_PATH_KEY "\Shell\Open\Command"
#DEFINE OLE_PATH_KEY "\Protocol\StdFileEditing\Server"
#DEFINE VFP_OPTIONS_KEY1 "Software\Microsoft\VisualFoxPro\"
#DEFINE VFP_OPTIONS_KEY2 "\Options"
#DEFINE CURVER_KEY "\CurVer"
#DEFINE ODBC_DATA_KEY "Software\ODBC\ODBC.INI\"
#DEFINE ODBC_DRVRS_KEY "Software\ODBC\ODBCINST.INI\"
#DEFINE SQL_FETCH_NEXT 1
#DEFINE SQL_NO_DATA 100
* Error Codes
#DEFINE ERROR_SUCCESS 0 && OK
#DEFINE ERROR_EOF 259 && no more entries in key
* Note these next error codes are specific to this Class, not DLL
#DEFINE ERROR_NOAPIFILE -101 && DLL file to check registry not found
#DEFINE ERROR_KEYNOREG -102 && key not registered
#DEFINE ERROR_BADPARM -103 && bad parameter passed
#DEFINE ERROR_NOENTRY -104 && entry not found
#DEFINE ERROR_BADKEY -105 && bad key passed
#DEFINE ERROR_NONSTR_DATA -106 && data type for value is not a data string
#DEFINE ERROR_BADPLAT -107 && platform not supported
#DEFINE ERROR_NOINIFILE -108 && DLL file to check INI not found
#DEFINE ERROR_NOINIENTRY -109 && No entry in INI file
#DEFINE ERROR_FAILINI -110 && failed to get INI entry
#DEFINE ERROR_NOPLAT -111 && call not supported on this platform
#DEFINE ERROR_NOODBCFILE -112 && DLL file to check ODBC not found
#DEFINE ERROR_ODBCFAIL -113 && failed to get ODBC environment
* Data types for keys
#DEFINE REG_SZ 1 && Data string
#DEFINE REG_EXPAND_SZ 2 && Unicode string
#DEFINE REG_BINARY 3 && Binary data in any form.
#DEFINE REG_DWORD 4 && A 32-bit number.
* Data types labels
#DEFINE REG_BINARY_LOC "*Binary*" && Binary data in any form.
#DEFINE REG_DWORD_LOC "*Dword*" && A 32-bit number.
#DEFINE REG_UNKNOWN_LOC "*Unknown type*" && unknown type
* FoxPro ODBC drivers
#DEFINE FOXODBC_25 "FoxPro Files (*.dbf)"
#DEFINE FOXODBC_26 "Microsoft FoxPro Driver (*.dbf)"
#DEFINE FOXODBC_30 "Microsoft Visual FoxPro Driver"

218
Clase/roaclienti.vc2 Normal file
View File

@@ -0,0 +1,218 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="roaclienti.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" && Application class.
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
clastcaption = Microsoft Visual FoxPro
clasticon =
Name = "capplication"
nformcount = 0
*</PropValue>
PROCEDURE doform
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
LOCAL lcFormName,lnFormCount
_screen.visible=.t.
lcFileName=UPPER(ALLTRIM(tcFileName))
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
ENDIF
IF NOT FILE(lcFileName)
this.FileNotFoundMsgBox(lcFileName)
RETURN .F.
ENDIF
lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
IF tlNoMultipleInstances
FOR lnCount = 1 TO this.nFormCount
IF this.aFormNames[lnCount]==lcFormName AND ;
TYPE("this.aForms[lnCount]")=="O" AND ;
NOT ISNULL(this.aForms[lnCount])
this.aForms[lnCount].Show
RETURN .F.
ENDIF
ENDFOR
ENDIF
this.RefreshFormsCollection
this.nFormCount=this.nFormCount+1
DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
this.aFormNames[this.nFormCount]=lcFormName
IF NOT EMPTY(lcClass)
SET CLASSLIB TO (lcFileName) ADDITIVE
this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
NOT ISNULL(this.aForms[this.nFormCount])
this.aForms[this.nFormCount].Show
ENDIF
ELSE
DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
ENDIF
lnFormCount=this.nFormCount
this.RefreshFormsCollection
IF this.lCascadeForms AND this.nFormCount>=lnFormCount
oForm=this.aForms[this.nFormCount]
lnTop=oForm.Top
lnLeft=oForm.Left
lcName=oForm.Name
IF WEXIST(lcName) AND oForm.WindowState#2
FOR lnCount = 1 TO (this.nFormCount-1)
oForm2=this.aForms[lnCount]
IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
LOOP
ENDIF
IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
WLCOL(lcName)=WLCOL(oForm2.Name)
lnTop=lnTop+this.nPixelOffset
lnLeft=lnLeft+this.nPixelOffset
ENDIF
ENDFOR
IF oForm.Top#lnTop
oForm.Top=lnTop
ENDIF
IF oForm.Left#lnLeft
oForm.Left=lnLeft
ENDIF
ENDIF
ENDIF
*!* modificat 14.12.2004
*!* liana
IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
this.aForms[this.nFormCount].Show
ENDIF
ENDPROC
ENDDEFINE
DEFINE CLASS pg_meniu_princ AS pg_meniu OF "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.Pict_meniu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Cw3" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page1.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Pict_liniuta1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" />
*<PropValue>
ActivePage = 1
ErasePage = .T.
Height = 422
Name = "pg_meniu_princ"
PageCount = 2
Width = 401
Page1.Caption = "Leasing"
Page1.Name = "Page1"
Page1.PageOrder = 1
Page2.Caption = "Furnizori"
Page2.Name = "Page2"
Page2.PageOrder = 2
*</PropValue>
ADD OBJECT 'Page1.Cw2' AS cw WITH ;
Height = 20, ;
Left = 11, ;
Name = "Cw2", ;
nid_cw = 1, ;
ntip = 1, ;
TabIndex = 1, ;
Top = 37, ;
Width = 113, ;
LABEL_ITEM1.Caption = "Contracte", ;
LABEL_ITEM1.Name = "LABEL_ITEM1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Cw3' AS cw WITH ;
Height = 20, ;
Left = 11, ;
Name = "Cw3", ;
nid_cw = 1, ;
ntip = 1, ;
TabIndex = 1, ;
Top = 75, ;
Width = 113, ;
LABEL_ITEM1.Caption = "Rapoarte", ;
LABEL_ITEM1.Name = "LABEL_ITEM1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page1.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 7, ;
Name = "Pict_liniuta1", ;
Picture = ..\..\comun\grafice\f3.jpg, ;
Top = 63
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ;
Left = 2, ;
Name = "Pict_meniu1", ;
Picture = ..\grafice\f2.jpg, ;
Top = 8
*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page2.Cw2' AS cw WITH ;
Height = 20, ;
Left = 11, ;
Name = "Cw2", ;
nid_cw = 1, ;
ntip = 1, ;
TabIndex = 1, ;
Top = 37, ;
Width = 113, ;
Label_item1.Caption = "Contracte", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Cw3' AS cw WITH ;
Height = 20, ;
Left = 11, ;
Name = "Cw3", ;
nid_cw = 1, ;
ntip = 1, ;
TabIndex = 1, ;
Top = 75, ;
Width = 113, ;
Label_item1.Caption = "Rapoarte", ;
Label_item1.Name = "Label_item1"
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" />
ADD OBJECT 'Page2.Pict_liniuta1' AS pict_liniuta WITH ;
Left = 7, ;
Name = "Pict_liniuta1", ;
Picture = ..\grafice\f3.jpg, ;
Top = 63
*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ;
Left = 2, ;
Name = "Pict_meniu1", ;
Picture = ..\grafice\f2.jpg, ;
Top = 8
*< END OBJECT: ClassLib="ofundal.vcx" BaseClass="image" />
PROCEDURE Page1.Cw3.Init
ENDPROC
PROCEDURE Page2.Cw3.Init
ENDPROC
ENDDEFINE

98
Clase/roaregistratura.vc2 Normal file
View File

@@ -0,0 +1,98 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="roaregistratura.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS capplication AS wzapplication OF "appwiz.vcx" && Application class.
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
clastcaption = Microsoft Visual FoxPro
clasticon =
Name = "capplication"
nformcount = 0
*</PropValue>
PROCEDURE doform
LPARAMETERS tcFileName,tcClass,tlNoMultipleInstances,tlNoShow
LOCAL lcFileName,lcClass,oForm,oForm2,lcName,lnCount,lnTop,lnLeft
LOCAL lcFormName,lnFormCount
_screen.visible=.t.
lcFileName=UPPER(ALLTRIM(tcFileName))
IF EMPTY(lcFileName)
RETURN .F.
ENDIF
lcClass=IIF(TYPE("tcClass")=="C",LOWER(ALLTRIM(tcClass)),"")
lcFileName=LOWER(FULLPATH(lcFileName))
IF NOT "."$lcFileName
lcFileName=lcFileName+IIF(EMPTY(lcClass),".scx",".vcx")
ENDIF
IF NOT FILE(lcFileName)
this.FileNotFoundMsgBox(lcFileName)
RETURN .F.
ENDIF
lcFormName=IIF(EMPTY(lcClass),lcFileName,lcFileName+","+lcClass)
IF tlNoMultipleInstances
FOR lnCount = 1 TO this.nFormCount
IF this.aFormNames[lnCount]==lcFormName AND ;
TYPE("this.aForms[lnCount]")=="O" AND ;
NOT ISNULL(this.aForms[lnCount])
this.aForms[lnCount].Show
RETURN .F.
ENDIF
ENDFOR
ENDIF
this.RefreshFormsCollection
this.nFormCount=this.nFormCount+1
DIMENSION this.aForms[this.nFormCount],this.aFormNames[this.nFormCount]
this.aFormNames[this.nFormCount]=lcFormName
IF NOT EMPTY(lcClass)
SET CLASSLIB TO (lcFileName) ADDITIVE
this.aForms[this.nFormCount]=CREATEOBJECT(lcClass)
IF NOT tlNoShow AND TYPE("this.aForms[this.nFormCount]")=="O" AND ;
NOT ISNULL(this.aForms[this.nFormCount])
this.aForms[this.nFormCount].Show
ENDIF
ELSE
DO FORM (lcFileName) NAME this.aForms[this.nFormCount] LINKED NOSHOW
ENDIF
lnFormCount=this.nFormCount
this.RefreshFormsCollection
IF this.lCascadeForms AND this.nFormCount>=lnFormCount
oForm=this.aForms[this.nFormCount]
lnTop=oForm.Top
lnLeft=oForm.Left
lcName=oForm.Name
IF WEXIST(lcName) AND oForm.WindowState#2
FOR lnCount = 1 TO (this.nFormCount-1)
oForm2=this.aForms[lnCount]
IF TYPE("oForm2")#"O" OR ISNULL(oForm2)
LOOP
ENDIF
IF lcName==oForm2.Name AND WLROW(lcName)=WLROW(oForm2.Name) AND ;
WLCOL(lcName)=WLCOL(oForm2.Name)
lnTop=lnTop+this.nPixelOffset
lnLeft=lnLeft+this.nPixelOffset
ENDIF
ENDFOR
IF oForm.Top#lnTop
oForm.Top=lnTop
ENDIF
IF oForm.Left#lnLeft
oForm.Left=lnLeft
ENDIF
ENDIF
ENDIF
*!* modificat 14.12.2004
*!* liana
IF !(tlNoShow OR ('LOGIN'$UPPER(lcFileName) and glParametri))
this.aForms[this.nFormCount].Show
ENDIF
ENDPROC
ENDDEFINE

65
Clase/solution.vc2 Normal file
View File

@@ -0,0 +1,65 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="solution.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS cmdclose AS commandbutton && Close button
*< CLASSDATA: Baseclass="commandbutton" Timestamp="" Scale="Pixels" Uniqueid="" />
*<PropValue>
Cancel = .T.
Caption = "Close"
FontBold = .F.
FontName = "MS Sans Serif"
FontSize = 8
Height = 23
Name = "cmdclose"
Width = 72
*</PropValue>
PROCEDURE Click
IF TYPE("THISFORM.Parent") = "O"
THISFORMSET.Release
ELSE
THISFORM.Release
ENDIF
ENDPROC
PROCEDURE Error
LPARAMETERS nError, cMethod, nLine
LOCAL lnChoice
#DEFINE CR CHR(13)
DO CASE
CASE nError = 1545 && Uncommitted changes
*------------------------------------
#DEFINE MSG1_LOC "Do you want to save your changes?"
#DEFINE MSG2_LOC "Uncommitted Changes"
lnChoice = MESSAGEBOX(MSG1_LOC, 4+48+0, MSG2_LOC)
DO CASE
CASE lnChoice = 6 && yes
=TABLEUPDATE(.T., .T.)
CASE lnChoice = 7 && no
=TABLEREVERT(.T.)
ENDCASE
OTHERWISE && Unanticipated error
*--------------------------------------
#DEFINE NUM_LOC "Error Number: "
#DEFINE PROG_LOC "Program: "
#DEFINE CAP_LOC "ERROR"
lcMsg = NUM_LOC + ALLTRIM(STR(nError)) + CR + CR + ;
MESSAGE()+ CR + CR + PROG_LOC + PROGRAM(1)
lnChoice = MESSAGEBOX(lcMsg, 2+48+512, CAP_LOC)
DO CASE
CASE lnChoice = 3 &&Abort
CANCEL
CASE lnChoice = 4 &&Retry
RETRY
CASE lnChoice = 5 &&Ignore
RETURN
ENDCASE
ENDCASE
ENDPROC
ENDDEFINE

83
Clase/utility.vc2 Normal file
View File

@@ -0,0 +1,83 @@
*--------------------------------------------------------------------------------------------------------------------------------------------------------
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
*--------------------------------------------------------------------------------------------------------------------------------------------------------
*< FOXBIN2PRG: Version="1.21" SourceFile="utility.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
*
*
DEFINE CLASS menulib AS container
*< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" />
*<DefinedPropArrayMethod>
*m: deactivatemenu
*m: showmenu
*</DefinedPropArrayMethod>
*<PropValue>
BackColor = 0,0,255
Height = 15
Name = "menulib"
Visible = .F.
Width = 50
*</PropValue>
PROCEDURE deactivatemenu
DEACTIVATE MENU _popShortcutMenu
ENDPROC
PROCEDURE Destroy
this.DeactivateMenu
ENDPROC
PROCEDURE showmenu
LPARAMETERS taMenu,tcOnSelection
LOCAL lcOnSelection,lnMenuCount,lnCount,llDoubleArray
LOCAL lcMenuItem,lcMenuSelection
EXTERNAL ARRAY taMenu
IF PARAMETERS()=0 OR TYPE("taMenu")#"C"
RETURN .F.
ENDIF
lnMenuCount=0
lnMenuCount=ALEN(taMenu,1)
IF lnMenuCount=0
RETURN .F.
ENDIF
llDoubleArray=(ALEN(taMenu,2)>0)
ACTIVATE SCREEN
DEACTIVATE POPUP _popShortcutMenu
DEFINE POPUP _popShortcutMenu ;
FROM MROW(),MCOL() ;
MARGIN ;
RELATIVE ;
SHORTCUT
FOR lnCount = 1 TO lnMenuCount
lcMenuItem=IIF(llDoubleArray,taMenu[lnCount,1],taMenu[lnCount])
DEFINE BAR lnCount OF _popShortcutMenu PROMPT (lcMenuItem)
ENDFOR
ON SELECTION POPUP _popShortcutMenu DEACTIVATE POPUP _popShortcutMenu
ACTIVATE POPUP _popShortcutMenu
RELEASE POPUP _popShortcutMenu
IF BAR()=0
RETURN .F.
ENDIF
IF llDoubleArray
lcMenuSelection=taMenu[BAR(),2]
IF NOT EMPTY(lcMenuSelection) AND TYPE("lcMenuSelection")=="C"
lcOnSelection=ALLTRIM(lcMenuSelection)
ENDIF
IF EMPTY(lcOnSelection)
lcOnSelection=ALLTRIM(IIF(EMPTY(tcOnSelection),"",tcOnSelection))
ENDIF
ELSE
lcOnSelection=ALLTRIM(IIF(EMPTY(tcOnSelection),"",tcOnSelection))
ENDIF
IF EMPTY(lcOnSelection)
RETURN .F.
ENDIF
&lcOnSelection
ENDPROC
ENDDEFINE