Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored)
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_012P75yL9Fc9EcT33tMbuxcF
This commit is contained in:
105
.gitignore
vendored
Normal file
105
.gitignore
vendored
Normal file
@@ -0,0 +1,105 @@
|
|||||||
|
# =============================================================================
|
||||||
|
# Flux text FoxBin2Prg: git urmareste DOAR versiunile text .??2 (in arbore),
|
||||||
|
# nu binarele VFP. Binarele convertibile si indecsii regenerabili se ignora.
|
||||||
|
# SVN ramane sursa de adevar pentru binare (via global-ignores pe .??2).
|
||||||
|
# =============================================================================
|
||||||
|
|
||||||
|
# --- Binare VFP convertibile in text .??2 (ambele forme de caz) ---
|
||||||
|
*.vcx
|
||||||
|
*.VCX
|
||||||
|
*.vct
|
||||||
|
*.VCT
|
||||||
|
*.scx
|
||||||
|
*.SCX
|
||||||
|
*.sct
|
||||||
|
*.SCT
|
||||||
|
*.frx
|
||||||
|
*.FRX
|
||||||
|
*.frt
|
||||||
|
*.FRT
|
||||||
|
*.mnx
|
||||||
|
*.MNX
|
||||||
|
*.mnt
|
||||||
|
*.MNT
|
||||||
|
*.lbx
|
||||||
|
*.LBX
|
||||||
|
*.lbt
|
||||||
|
*.LBT
|
||||||
|
*.pjx
|
||||||
|
*.PJX
|
||||||
|
*.pjt
|
||||||
|
*.PJT
|
||||||
|
*.dbc
|
||||||
|
*.DBC
|
||||||
|
*.dct
|
||||||
|
*.DCT
|
||||||
|
|
||||||
|
# --- Indecsi regenerabili (nu se transporta in .db2/.dc2) ---
|
||||||
|
*.cdx
|
||||||
|
*.CDX
|
||||||
|
*.dcx
|
||||||
|
*.DCX
|
||||||
|
|
||||||
|
# --- Tabele .dbf convertite in .db2 (lista explicita; restul .dbf raman binare) ---
|
||||||
|
datemenu/Vechi/menu1.dbf
|
||||||
|
datemenu/Vechi/menu1.FPT
|
||||||
|
datemenu/Vechi/nom_meniu.dbf
|
||||||
|
datemenu/Vechi/refaceri.dbf
|
||||||
|
datemenu/Vechi/tabela_fisa_cont.dbf
|
||||||
|
datemenu/Vechi/tabela_fisa_cont.FPT
|
||||||
|
Grafice/DKCONTRL.DBF
|
||||||
|
Programe/Vechi/genhtml.dbf
|
||||||
|
Programe/Vechi/genhtml.fpt
|
||||||
|
|
||||||
|
# --- Fisiere generate/compilate Visual FoxPro ---
|
||||||
|
*.fxp
|
||||||
|
*.FXP
|
||||||
|
*.mpr
|
||||||
|
*.MPR
|
||||||
|
*.mpx
|
||||||
|
*.MPX
|
||||||
|
*.qpx
|
||||||
|
*.QPX
|
||||||
|
*.vcr
|
||||||
|
*.VCR
|
||||||
|
*.src
|
||||||
|
|
||||||
|
# --- Backup-uri si fisiere temporare create de editorul VFP ---
|
||||||
|
*.bak
|
||||||
|
*.BAK
|
||||||
|
*.TBK
|
||||||
|
*.tmp
|
||||||
|
*.TMP
|
||||||
|
*.err
|
||||||
|
*.ERR
|
||||||
|
*.Stats
|
||||||
|
*.stackdump
|
||||||
|
|
||||||
|
# --- Executabile compilate ---
|
||||||
|
*.exe
|
||||||
|
*.EXE
|
||||||
|
*.PreARM
|
||||||
|
|
||||||
|
# --- Stare locala / specifica masinii, nu proiectului ---
|
||||||
|
roaregistratura_ref.DBF
|
||||||
|
roaregistratura_ref.FPT
|
||||||
|
FOXUSER.DBF
|
||||||
|
FOXUSER.FPT
|
||||||
|
log.txt
|
||||||
|
LOG.txt
|
||||||
|
*.lnk
|
||||||
|
Thumbs.db
|
||||||
|
Desktop.ini
|
||||||
|
bash.exe.stackdump
|
||||||
|
|
||||||
|
# --- Setari locale Claude Code (specifice masinii, nu proiectului) ---
|
||||||
|
.claude/
|
||||||
|
|
||||||
|
# --- Notite locale neversionate (credentiale, specifice masinii) ---
|
||||||
|
docs/local/
|
||||||
|
|
||||||
|
# --- Subversion (working copy paralela) ---
|
||||||
|
.svn/
|
||||||
|
|
||||||
|
# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) ---
|
||||||
|
COMUN/
|
||||||
25
CLAUDE.md
Normal file
25
CLAUDE.md
Normal file
@@ -0,0 +1,25 @@
|
|||||||
|
# CLAUDE.md
|
||||||
|
|
||||||
|
This file provides guidance to Claude Code (claude.ai/code) when working with code in this repository.
|
||||||
|
|
||||||
|
## What this is
|
||||||
|
|
||||||
|
ROAREGISTRATURA este aplicația VFP9 de **registratură** din suita ROA (ROA Romfast SRL), frate cu ROAGEST/ROACONT/ROAACNPRO din `D:\ROA`. Proiectul propriu este `roaRegistratura.pjx`; framework-ul partajat este subfolderul `COMUN\` (svn:external, comun tuturor aplicațiilor ROA). Convențiile generale (build în VFP9 IDE, `.prg` = sursă / binare VFP editate prin fluxul text, changelog `changelog_roaRegistratura.txt`) sunt aceleași ca la ROAGEST — vezi `D:\ROA\ROAGEST\CLAUDE.md` ca referință de suită.
|
||||||
|
|
||||||
|
## Version control: git alongside SVN
|
||||||
|
|
||||||
|
Git rulează în paralel cu SVN-ul legacy, nu îl înlocuiește. SVN rămâne sursa "vie" (mai ales pentru `COMUN/`), sincronizat manual către git.
|
||||||
|
|
||||||
|
- Repo-ul principal (rădăcina acestui folder) e propriul lui `.git`, remote `git@gitea.romfast.ro:romfast/roaregistratura.git`. **Flux text FoxBin2Prg în-arbore**: git urmărește DOAR versiunile text `.??2` (`.vc2`/`.sc2`/`.fr2`/`.mn2`/`.pj2`/`.db2`…) generate lângă binare; binarele VFP sunt git-ignored, iar SVN le ignoră pe cele text (global-ignores pe `.??2`).
|
||||||
|
- `COMUN/` are propriul `.git` separat, remote `git@gitea.romfast.ro:romfast/comun.git` — **același repo partajat de toate aplicațiile ROA**. O modificare împinsă acolo afectează toate proiectele; fără `push --force` fără aprobare explicită.
|
||||||
|
- Refresh text înainte de orice căutare/editare/commit (și după orice sesiune VFP IDE):
|
||||||
|
|
||||||
|
```powershell
|
||||||
|
& 'D:\ROA\UTIL\foxbin2prg\git_sync.ps1' -ProjectRoot 'D:\ROA\ROAREGISTRATURA' -DbfList @('datemenu\Vechi\*.dbf','Grafice\DKCONTRL.DBF','Programe\Vechi\genhtml.dbf','COMUN\clase\Locale\*.dbf','COMUN\datemenu\*.dbf','COMUN\datemenu\xold\*.dbf','COMUN\Drepturi utilizatori\*\*.dbf','COMUN\utile\GridExtras\gridextras.dbf','COMUN\utile\ListProperty\lproperty.dbf','COMUN\utile\hpdf\*.dbf','COMUN\utile\hpdf\ReportOutput\*.dbf')
|
||||||
|
```
|
||||||
|
|
||||||
|
- Editare cod în `.vcx`/`.scx`: editezi textul `.vc2`/`.sc2` (format pozițional, byte-preserving — nu Edit/Write UTF-8, doar PowerShell CP1252/raw bytes), apoi write-back cu `txt2vcx.ps1 -TextFile <fișier> -ProjectRoot 'D:\ROA\ROAREGISTRATURA'`. `.frx/.mnx/.lbx/.pjx/.dbc/.dbf` rămân doar-citire (editare în IDE). Ținte sub `COMUN\` cer `-AllowComun` + aprobare explicită. Detalii: `D:\ROA\UTIL\foxbin2prg\CLAUDE.md` și `COMUN\docs\flux-editare-vfp-text.md`.
|
||||||
|
|
||||||
|
## Reguli de lucru si testare
|
||||||
|
|
||||||
|
Înainte de orice modificare de cod sau testare, citește `COMUN\docs\reguli_lucru.md` (obligatoriu — reguli de livrare, diff ca fișier + aprobare înainte de write-back, convenții per zonă). Fără commit fără review: Marius vede întâi diff-ul.
|
||||||
6809
Clase/Copy of ferestre_registratura.vc2
Normal file
6809
Clase/Copy of ferestre_registratura.vc2
Normal file
File diff suppressed because one or more lines are too long
675
Clase/Copy of ofundal_roaclienti.vc2
Normal file
675
Clase/Copy of ofundal_roaclienti.vc2
Normal 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
BIN
Clase/Outlook2003BarArrow.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 360 B |
BIN
Clase/Outlook2003BarSplitter.png
Normal file
BIN
Clase/Outlook2003BarSplitter.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 115 B |
147
Clase/_app.h
Normal file
147
Clase/_app.h
Normal 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
1928
Clase/_app.vc2
Normal file
File diff suppressed because it is too large
Load Diff
8214
Clase/_base.vc2
Normal file
8214
Clase/_base.vc2
Normal file
File diff suppressed because it is too large
Load Diff
176
Clase/_framewk.h
Normal file
176
Clase/_framewk.h
Normal 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
8955
Clase/_framewk.vc2
Normal file
File diff suppressed because it is too large
Load Diff
87
Clase/_reports.h
Normal file
87
Clase/_reports.h
Normal 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
2495
Clase/_reports.vc2
Normal file
File diff suppressed because it is too large
Load Diff
82
Clase/_table.h
Normal file
82
Clase/_table.h
Normal 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
3718
Clase/_table.vc2
Normal file
File diff suppressed because it is too large
Load Diff
49
Clase/_ui.h
Normal file
49
Clase/_ui.h
Normal 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
556
Clase/_ui.vc2
Normal 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
2166
Clase/ferestre_registratura.vc2
Normal file
File diff suppressed because one or more lines are too long
454
Clase/gdiplus.h
Normal file
454
Clase/gdiplus.h
Normal 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
1456
Clase/oOptiuni.vc2
Normal file
File diff suppressed because it is too large
Load Diff
47
Clase/ofundal.vc2
Normal file
47
Clase/ofundal.vc2
Normal 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
307
Clase/ofundal_registratura.vc2
Normal 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
3347
Clase/onom_clienti.vc2
Normal file
File diff suppressed because it is too large
Load Diff
1564
Clase/outlook2003bar.vc2
Normal file
1564
Clase/outlook2003bar.vc2
Normal file
File diff suppressed because it is too large
Load Diff
79
Clase/registry.h
Normal file
79
Clase/registry.h
Normal 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
218
Clase/roaclienti.vc2
Normal 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
98
Clase/roaregistratura.vc2
Normal 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
65
Clase/solution.vc2
Normal 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
83
Clase/utility.vc2
Normal 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
|
||||||
75
Ferestre/ATENTIE1.sc2
Normal file
75
Ferestre/ATENTIE1.sc2
Normal file
@@ -0,0 +1,75 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="atentie1.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS dataenvironment AS dataenvironment
|
||||||
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
Name = "Dataenvironment"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS fatentie1 AS fatentie OF "..\clase\ferestrebaza.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="CMDTERMIN1" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
BorderStyle = 3
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 84
|
||||||
|
Name = "Fatentie1"
|
||||||
|
Width = 353
|
||||||
|
WindowType = 0
|
||||||
|
Shape1.Height = 75
|
||||||
|
Shape1.Left = 4
|
||||||
|
Shape1.Name = "Shape1"
|
||||||
|
Shape1.Top = 4
|
||||||
|
Shape1.Width = 344
|
||||||
|
IMAGE1.Height = 32
|
||||||
|
IMAGE1.Left = 24
|
||||||
|
IMAGE1.Name = "IMAGE1"
|
||||||
|
IMAGE1.Top = 12
|
||||||
|
IMAGE1.Width = 32
|
||||||
|
Label1.Left = 64
|
||||||
|
Label1.Name = "Label1"
|
||||||
|
Label1.Top = 14
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'CMDTERMIN1' AS cmdtermin WITH ;
|
||||||
|
AutoSize = .F., ;
|
||||||
|
Caption = "\<OK", ;
|
||||||
|
Height = 24, ;
|
||||||
|
Left = 134, ;
|
||||||
|
Name = "CMDTERMIN1", ;
|
||||||
|
Top = 46, ;
|
||||||
|
Width = 84
|
||||||
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label2' AS label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
Caption = "Modificarile sunt ireversibile!", ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
Height = 21, ;
|
||||||
|
Left = 129, ;
|
||||||
|
Name = "Label2", ;
|
||||||
|
Top = 14, ;
|
||||||
|
Width = 200
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
PROCEDURE Deactivate
|
||||||
|
thisform.release
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE LostFocus
|
||||||
|
thisform.release
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
783
Ferestre/Vechi/startfirma.sc2
Normal file
783
Ferestre/Vechi/startfirma.sc2
Normal file
@@ -0,0 +1,783 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="startfirma.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS dataenvironment AS dataenvironment
|
||||||
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
Name = "Dataenvironment"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS ffergen1 AS ffergen OF "..\clase\ferestrebaza.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="Shape1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label9" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text4" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label10" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Shape2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label4" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label6" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label12" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Cmdtermin1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Cmdrenunt1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label11" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label5" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label7" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label8" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label13" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text6" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text9" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text3" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text5" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text7" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text8" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text10" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*m: seriadebaza
|
||||||
|
*p: ttanul
|
||||||
|
*p: ttfirma
|
||||||
|
*p: ttluna
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
AutoCenter = .T.
|
||||||
|
BackColor = 255,255,255
|
||||||
|
BorderStyle = 2
|
||||||
|
DoCreate = .T.
|
||||||
|
Height = 474
|
||||||
|
Name = "Ffergen1"
|
||||||
|
Picture =
|
||||||
|
Width = 500
|
||||||
|
WindowType = 1
|
||||||
|
Line1.Name = "Line1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT 'Cmdrenunt1' AS cmdrenunt WITH ;
|
||||||
|
Left = 305, ;
|
||||||
|
Name = "Cmdrenunt1", ;
|
||||||
|
TabIndex = 12, ;
|
||||||
|
Top = 432
|
||||||
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Cmdtermin1' AS cmdtermin WITH ;
|
||||||
|
Left = 396, ;
|
||||||
|
Name = "Cmdtermin1", ;
|
||||||
|
TabIndex = 11, ;
|
||||||
|
Top = 432
|
||||||
|
*< END OBJECT: ClassLib="..\clase\ferestrebaza.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label1' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 255,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Bun Venit! ", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontItalic = .T., ;
|
||||||
|
FontName = "Comic Sans MS", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 18, ;
|
||||||
|
ForeColor = 255,0,0, ;
|
||||||
|
Height = 37, ;
|
||||||
|
Left = 48, ;
|
||||||
|
Name = "Label1", ;
|
||||||
|
TabIndex = 24, ;
|
||||||
|
Top = 60, ;
|
||||||
|
Width = 128, ;
|
||||||
|
ZOrderSet = 1
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label10' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "CONT 2003", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 23, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 39, ;
|
||||||
|
Left = 21, ;
|
||||||
|
Name = "Label10", ;
|
||||||
|
TabIndex = 23, ;
|
||||||
|
Top = 20, ;
|
||||||
|
Width = 185, ;
|
||||||
|
ZOrderSet = 3
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label11' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Anul:", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 112, ;
|
||||||
|
Name = "Label11", ;
|
||||||
|
TabIndex = 16, ;
|
||||||
|
Top = 403, ;
|
||||||
|
Width = 44, ;
|
||||||
|
ZOrderSet = 20
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label12' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Strada:", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 94, ;
|
||||||
|
Name = "Label12", ;
|
||||||
|
TabIndex = 19, ;
|
||||||
|
Top = 296, ;
|
||||||
|
Width = 62, ;
|
||||||
|
ZOrderSet = 8
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label13' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Numarul:", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 80, ;
|
||||||
|
Name = "Label13", ;
|
||||||
|
TabIndex = 17, ;
|
||||||
|
Top = 321, ;
|
||||||
|
Width = 74, ;
|
||||||
|
ZOrderSet = 20
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label2' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "CONT 2003", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 23, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 39, ;
|
||||||
|
Left = 22, ;
|
||||||
|
Name = "Label2", ;
|
||||||
|
TabIndex = 13, ;
|
||||||
|
Top = 18, ;
|
||||||
|
Width = 185, ;
|
||||||
|
ZOrderSet = 4
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label3' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Luna contabila:", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 30, ;
|
||||||
|
Name = "Label3", ;
|
||||||
|
TabIndex = 20, ;
|
||||||
|
Top = 373, ;
|
||||||
|
Width = 126, ;
|
||||||
|
ZOrderSet = 8
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label4' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Cod fiscal:", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 71, ;
|
||||||
|
Name = "Label4", ;
|
||||||
|
TabIndex = 22, ;
|
||||||
|
Top = 150, ;
|
||||||
|
Width = 87, ;
|
||||||
|
ZOrderSet = 8
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label5' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Nr. Inreg. R.C.:", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 32, ;
|
||||||
|
Name = "Label5", ;
|
||||||
|
TabIndex = 14, ;
|
||||||
|
Top = 177, ;
|
||||||
|
Width = 123, ;
|
||||||
|
ZOrderSet = 20
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label6' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Banca:", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 97, ;
|
||||||
|
Name = "Label6", ;
|
||||||
|
TabIndex = 21, ;
|
||||||
|
Top = 204, ;
|
||||||
|
Width = 59, ;
|
||||||
|
ZOrderSet = 8
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label7' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Cont bancar:", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 49, ;
|
||||||
|
Name = "Label7", ;
|
||||||
|
TabIndex = 15, ;
|
||||||
|
Top = 230, ;
|
||||||
|
Width = 106, ;
|
||||||
|
ZOrderSet = 20
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label8' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Localitatea:", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 60, ;
|
||||||
|
Name = "Label8", ;
|
||||||
|
TabIndex = 18, ;
|
||||||
|
Top = 269, ;
|
||||||
|
Width = 97, ;
|
||||||
|
ZOrderSet = 20
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label9' AS label WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackColor = 0,0,0, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Numele firmei: ", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontShadow = .F., ;
|
||||||
|
FontSize = 12, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Height = 22, ;
|
||||||
|
Left = 42, ;
|
||||||
|
Name = "Label9", ;
|
||||||
|
TabIndex = 25, ;
|
||||||
|
Top = 122, ;
|
||||||
|
Width = 122, ;
|
||||||
|
ZOrderSet = 1
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Shape1' AS shape WITH ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Height = 458, ;
|
||||||
|
Left = 10, ;
|
||||||
|
Name = "Shape1", ;
|
||||||
|
SpecialEffect = 0, ;
|
||||||
|
Top = 8, ;
|
||||||
|
Width = 480, ;
|
||||||
|
ZOrderSet = 0
|
||||||
|
*< END OBJECT: BaseClass="shape" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Shape2' AS shape WITH ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Height = 0, ;
|
||||||
|
Left = 10, ;
|
||||||
|
Name = "Shape2", ;
|
||||||
|
SpecialEffect = 0, ;
|
||||||
|
Top = 356, ;
|
||||||
|
Width = 480, ;
|
||||||
|
ZOrderSet = 0
|
||||||
|
*< END OBJECT: BaseClass="shape" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.cod_fiscal", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 2, ;
|
||||||
|
Top = 148, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 225, ;
|
||||||
|
ZOrderSet = 25
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text10' AS textbox WITH ;
|
||||||
|
Alignment = 1, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.numar", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text10", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 8, ;
|
||||||
|
Top = 319, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 102, ;
|
||||||
|
ZOrderSet = 26
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.luU", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text2", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 9, ;
|
||||||
|
ToolTipText = "Introduceti (in cifre) numarul lunii contabile cu care doriti sa incepeti.", ;
|
||||||
|
Top = 371, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 102, ;
|
||||||
|
ZOrderSet = 25
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text3' AS textbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.an", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text3", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 10, ;
|
||||||
|
ToolTipText = "Introduceti anul (inclusiv secolul).", ;
|
||||||
|
Top = 401, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 102, ;
|
||||||
|
ZOrderSet = 26
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text4' AS textbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.flung", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K!", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text4", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
ToolTipText = "Introduceti numele complet al noii firme", ;
|
||||||
|
Top = 120, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 225, ;
|
||||||
|
ZOrderSet = 2
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text5' AS textbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.reg_com", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K!", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text5", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 3, ;
|
||||||
|
Top = 175, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 225, ;
|
||||||
|
ZOrderSet = 26
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text6' AS textbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.banca", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K!", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text6", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 202, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 225, ;
|
||||||
|
ZOrderSet = 25
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text7' AS textbox WITH ;
|
||||||
|
Alignment = 1, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.cont_banca", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text7", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 5, ;
|
||||||
|
Top = 228, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 225, ;
|
||||||
|
ZOrderSet = 26
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text8' AS textbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.localitate", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K!", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text8", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 6, ;
|
||||||
|
Top = 267, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 225, ;
|
||||||
|
ZOrderSet = 26
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text9' AS textbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
BackColor = 254,255,240, ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 1, ;
|
||||||
|
ControlSource = "m.strada", ;
|
||||||
|
FontName = "BankGothic Md BT", ;
|
||||||
|
FontSize = 11, ;
|
||||||
|
Format = "K!", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 192, ;
|
||||||
|
Name = "Text9", ;
|
||||||
|
ReadOnly = .F., ;
|
||||||
|
TabIndex = 7, ;
|
||||||
|
Top = 293, ;
|
||||||
|
Value = , ;
|
||||||
|
Width = 225, ;
|
||||||
|
ZOrderSet = 25
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
PROCEDURE Activate
|
||||||
|
*public m.luU,M.FSCURT
|
||||||
|
m.luU=alltrim(STR(MONTH(DATE())))
|
||||||
|
m.luu=right(alltrim('0'+m.luu),2)
|
||||||
|
|
||||||
|
*M.AN=ALLTRIM(STR(YEAR(DATE())))
|
||||||
|
M.AN=STR(YEAR(DATE()),4)
|
||||||
|
m.nl=m.luu
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE seriadebaza
|
||||||
|
LOCAL SB,SN,I,T,TIPAR
|
||||||
|
STORE '' TO SB,SN
|
||||||
|
T=RAND(-1)
|
||||||
|
*TIPAR='VOICUIONEMIL'
|
||||||
|
|
||||||
|
DO seriadebaza IN proceduri.prg
|
||||||
|
|
||||||
|
|
||||||
|
*!* FOR I=1 TO 5
|
||||||
|
*!* SB=SB+LITERA()
|
||||||
|
*!* NEXT
|
||||||
|
|
||||||
|
*!* SELE CUL
|
||||||
|
*!* REPL RED WITH SB
|
||||||
|
*!* SN=GREEN
|
||||||
|
|
||||||
|
|
||||||
|
*!* IF SUBSTR(SN,3,1)=SUBSTR(SB,1,1) AND;
|
||||||
|
*!* SUBSTR(SN,6,1)=SUBSTR(SB,2,1) AND;
|
||||||
|
*!* SUBSTR(SN,9,1)=SUBSTR(SB,3,1) AND;
|
||||||
|
*!* SUBSTR(SN,12,1)=SUBSTR(SB,4,1) AND;
|
||||||
|
*!* SUBSTR(SN,15,1)=SUBSTR(SB,5,1) AND;
|
||||||
|
*!* SUBSTR(SN,VAL(M.NL)+floor((VAL(M.NL)-1)/2),1)=SUBSTR(TIPAR,VAL(M.NL),1)
|
||||||
|
*!* *DO MESAJ WITH 'Seria este corecta',''
|
||||||
|
*!* RETURN
|
||||||
|
*!* ELSE
|
||||||
|
|
||||||
|
*!* FOR I=1 TO 17
|
||||||
|
*!* SN=SN+LITERA()
|
||||||
|
*!* NEXT
|
||||||
|
|
||||||
|
*!* FOR I=1 TO 5
|
||||||
|
*!* SN=STUFF(SN, I*3, 1, SUBSTR(SB,I,1))
|
||||||
|
*!* NEXT
|
||||||
|
*!* SN=STUFF(SN, VAL(M.NL)+floor((VAL(M.NL)-1)/2), 1, SUBSTR(TIPAR,VAL(M.NL),1))
|
||||||
|
|
||||||
|
*!* SELE CUL
|
||||||
|
*!* REPL GREEN WITH SN
|
||||||
|
*!* ENDIF
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Cmdtermin1.Click
|
||||||
|
*DO NOT RELEASE
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Cmdtermin1.Valid
|
||||||
|
PUBLIC LAN,LLUN
|
||||||
|
LOCAL I,J,NI
|
||||||
|
LAN='AN'+M.AN
|
||||||
|
LLUN='DATE'+M.NL
|
||||||
|
I=.F.
|
||||||
|
|
||||||
|
*SCRIE NUMELE SCURT AL FIRMEI___________________
|
||||||
|
sele firma
|
||||||
|
M.firma=upper(alltrim(m.flung))
|
||||||
|
M.FSCURT=M.FIRMA
|
||||||
|
M.fscurt=upper(alltrim(m.fSCURT))+space(7)
|
||||||
|
M.fscurt=ALLTRIM(LEFT(ALLTRIM(M.fscurt),8))
|
||||||
|
M.FSCURT=CHRTRAN(M.FSCURT,SPACE(8),'________')
|
||||||
|
|
||||||
|
tt='Numele noii firme nu trebuie sa coincida cu numele altor firme. '+;
|
||||||
|
'O firma al carui nume incepe cu <'+LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+;
|
||||||
|
'> exista deja! '+;
|
||||||
|
'Este important ca primele 8 caractere sa fie diferite de <'
|
||||||
|
IF LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)!=LEFT(m.fscurt+"________",8)
|
||||||
|
ttt=LEFT(STRTRAN(m.fscurt,'_',' ')+SPACE(8),8)+'> sau <'+LEFT(m.fscurt+"________",8)+'>.'
|
||||||
|
ELSE
|
||||||
|
ttt=LEFT(m.fscurt+"________",8)+'>.'
|
||||||
|
endif
|
||||||
|
|
||||||
|
*!* SCAN
|
||||||
|
*!* IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA)) OR UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt)) THEN
|
||||||
|
*!* I=.T.
|
||||||
|
*!* omm=crea('textmare')
|
||||||
|
*!* omm.label2.caption=tt+ttt
|
||||||
|
*!* omm.show(1)
|
||||||
|
*!* RETURN
|
||||||
|
*!* ENDIF
|
||||||
|
*!* ENDSCAN
|
||||||
|
SCAN
|
||||||
|
IF UPPER(ALLTRIM(FIRMA))==UPPER(ALLTRIM(M.FIRMA))
|
||||||
|
I=.T.
|
||||||
|
omm=crea('textmare')
|
||||||
|
omm.label2.caption='Numele noii firme nu trebuie sa coincida cu numele altor firme.'
|
||||||
|
omm.show(1)
|
||||||
|
RETURN
|
||||||
|
ENDIF
|
||||||
|
ENDSCAN
|
||||||
|
|
||||||
|
SCAN
|
||||||
|
IF UPPER(ALLTRIM(Fscurt))==UPPER(ALLTRIM(M.Fscurt))
|
||||||
|
I=.T.
|
||||||
|
m.fscurt=LEFT(m.fscurt,2)+LEFT(STRTRAN(TIME(),':',''),6)
|
||||||
|
exit
|
||||||
|
ENDIF
|
||||||
|
ENDSCAN
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
*DACA FIRMA NU EXISTA DEJA_______________
|
||||||
|
IF !I
|
||||||
|
appe blank
|
||||||
|
NFSCURT=M.FSCURT
|
||||||
|
m.calefirm=dirgen+'\'+nfscurt
|
||||||
|
calefirma=m.calefirm
|
||||||
|
*m.loctempo='C:\CONTAFIN\TEMP\'
|
||||||
|
GATHER MEMVAR
|
||||||
|
repl permis with '*'
|
||||||
|
REPL locTEMPO WITH '&DIRGEN\'
|
||||||
|
|
||||||
|
*CONSTRUIESC ARBORE FISIERE FIRMA NOUA______________________________
|
||||||
|
set defa to c:
|
||||||
|
if !directory('contafin')
|
||||||
|
md contafin
|
||||||
|
endif
|
||||||
|
set defa to c:\contafin
|
||||||
|
if !directory('temp')
|
||||||
|
md temp
|
||||||
|
endif
|
||||||
|
set defa to c:\contafin\temp
|
||||||
|
MD &NFSCURT
|
||||||
|
set defa to c:\contafin\temp\&nfscurt
|
||||||
|
md tempo
|
||||||
|
SET DEFA TO &DIRGEN
|
||||||
|
|
||||||
|
SET DEFA TO &DIRGEN
|
||||||
|
MD &NFSCURT
|
||||||
|
CD &NFSCURT
|
||||||
|
MD DATEAN
|
||||||
|
MD LUNA
|
||||||
|
MD TEMPO
|
||||||
|
MD &LAN
|
||||||
|
CD &LAN
|
||||||
|
MD &LLUN
|
||||||
|
*COPIEZ FISIERELE STANDARD__________________
|
||||||
|
close database
|
||||||
|
SET DEFA TO &DIRGEN
|
||||||
|
COPY FILE _ALFA\DATEAN\*.* TO &NFSCURT\DATEAN\*.*
|
||||||
|
COPY FILE _ALFA\LUNA\*.* TO &NFSCURT\LUNA\*.*
|
||||||
|
COPY FILE _ALFA\TEMPO\*.* TO &NFSCURT\TEMPO\*.*
|
||||||
|
COPY FILE _ALFA\AN0000\DATE00\*.* TO &NFSCURT\&LAN\&LLUN\*.*
|
||||||
|
COPY FILE _ALFA\TEMPO\*.* TO c:\contafin\temp\&NFSCURT\TEMPO\*.*
|
||||||
|
|
||||||
|
|
||||||
|
*SCRIU IN CALENDAR___________________
|
||||||
|
DIRFIRM=DIRGEN+NFSCURT
|
||||||
|
sele 0
|
||||||
|
USE &calefirma\DATEAN\CALENDAR alias cal
|
||||||
|
APPE BLANK
|
||||||
|
REPL NL WITH M.NL
|
||||||
|
REPL AN WITH M.AN
|
||||||
|
REPL SCONT WITH .T.
|
||||||
|
M.antet=ALLTRIM(M.FLUNG)
|
||||||
|
|
||||||
|
THISFORM.RELEASE
|
||||||
|
*____________
|
||||||
|
ENDIF
|
||||||
|
|
||||||
|
DO TOTV
|
||||||
|
|
||||||
|
THISFORM.SERIADEBAZA
|
||||||
|
|
||||||
|
SELE LUNILEAN
|
||||||
|
SEEK (M.NL)
|
||||||
|
M.LUNA=NUMELUNA
|
||||||
|
|
||||||
|
*schimb titlul__________________
|
||||||
|
capapl="CONT2000 Firma "+UPPER(rTRIM(m.flung))+"- Luna contabila: "+RTRIM(M.luna)+" "+M.AN
|
||||||
|
goApp.SetCaption(capapl)
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Text2.Valid
|
||||||
|
m.nl=RIGHT('0'+ALLTRIM(m.lUU),2)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Text3.Valid
|
||||||
|
M.AN=ALLTRIM(THIS.VALUE)
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Text4.MouseMove
|
||||||
|
LPARAMETERS nButton, nShift, nXCoord, nYCoord
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Text4.Valid
|
||||||
|
if alltrim(m.flung)=="" then
|
||||||
|
wait wind "Introduceti numele firmei!"
|
||||||
|
return 0
|
||||||
|
endif
|
||||||
|
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Text4.When
|
||||||
|
*thisform.label8.caption=thisform.ttFIRMA
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
43
Ferestre/frm_dg_date_generale.sc2
Normal file
43
Ferestre/frm_dg_date_generale.sc2
Normal file
@@ -0,0 +1,43 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_date_generale.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS dataenvironment AS dataenvironment
|
||||||
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DataSource = .NULL.
|
||||||
|
Height = 0
|
||||||
|
Left = 0
|
||||||
|
Name = "Dataenvironment"
|
||||||
|
Top = 0
|
||||||
|
Width = 0
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS frm_dg_date_generale1 AS frm_dg_date_generale OF "..\clase\ferestre_registratura.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Name = "Frm_dg_date_generale1"
|
||||||
|
Shape7.Name = "Shape7"
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
ck_semnat.Alignment = 0
|
||||||
|
ck_semnat.Name = "ck_semnat"
|
||||||
|
txtData_intern.Name = "txtData_intern"
|
||||||
|
LABEL4.Name = "LABEL4"
|
||||||
|
txtDescriere.Name = "txtDescriere"
|
||||||
|
Label6.Name = "Label6"
|
||||||
|
txtNumar_intern.Name = "txtNumar_intern"
|
||||||
|
LABEL9.Name = "LABEL9"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
47
Ferestre/frm_dg_link.sc2
Normal file
47
Ferestre/frm_dg_link.sc2
Normal 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="frm_dg_link.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS dataenvironment AS dataenvironment
|
||||||
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DataSource = .NULL.
|
||||||
|
Height = 0
|
||||||
|
Left = 0
|
||||||
|
Name = "Dataenvironment"
|
||||||
|
Top = 0
|
||||||
|
Width = 0
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS frm_dg_link1 AS frm_dg_link OF "..\clase\ferestre_registratura.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Name = "Frm_dg_link1"
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
grid_linkuri.COLUMN1.HEADER1.Name = "HEADER1"
|
||||||
|
grid_linkuri.COLUMN1.Name = "COLUMN1"
|
||||||
|
grid_linkuri.COLUMN1.Text1.Name = "Text1"
|
||||||
|
grid_linkuri.COLUMN2.HEADER1.Name = "HEADER1"
|
||||||
|
grid_linkuri.COLUMN2.Name = "COLUMN2"
|
||||||
|
grid_linkuri.COLUMN2.Text1.Name = "Text1"
|
||||||
|
grid_linkuri.COLUMN3.HEADER1.Name = "HEADER1"
|
||||||
|
grid_linkuri.COLUMN3.Name = "COLUMN3"
|
||||||
|
grid_linkuri.COLUMN3.Text1.Name = "Text1"
|
||||||
|
grid_linkuri.Name = "grid_linkuri"
|
||||||
|
BUT_NOU1.Name = "BUT_NOU1"
|
||||||
|
BUT_STERGE1.Name = "BUT_STERGE1"
|
||||||
|
But_edit1.Name = "But_edit1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
35
Ferestre/frm_dg_observatii.sc2
Normal file
35
Ferestre/frm_dg_observatii.sc2
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_observatii.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS dataenvironment AS dataenvironment
|
||||||
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DataSource = .NULL.
|
||||||
|
Height = 0
|
||||||
|
Left = 0
|
||||||
|
Name = "Dataenvironment"
|
||||||
|
Top = 0
|
||||||
|
Width = 0
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS frm_dg_observatii1 AS frm_dg_observatii OF "..\clase\ferestre_registratura.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Name = "Frm_dg_observatii1"
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
Edit1.Name = "Edit1"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
50
Ferestre/frm_dg_referinte.sc2
Normal file
50
Ferestre/frm_dg_referinte.sc2
Normal file
@@ -0,0 +1,50 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="frm_dg_referinte.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS dataenvironment AS dataenvironment
|
||||||
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DataSource = .NULL.
|
||||||
|
Height = 0
|
||||||
|
Left = 0
|
||||||
|
Name = "Dataenvironment"
|
||||||
|
Top = 0
|
||||||
|
Width = 0
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS frm_dg_obiectul1 AS frm_dg_referinte OF "..\clase\ferestre_registratura.vcx"
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DoCreate = .T.
|
||||||
|
Name = "Frm_dg_obiectul1"
|
||||||
|
_shape1.Name = "_shape1"
|
||||||
|
_shape2.Name = "_shape2"
|
||||||
|
_shape2.Visible = .F.
|
||||||
|
Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121"
|
||||||
|
BUT_TERMIN1.Name = "BUT_TERMIN1"
|
||||||
|
Gridsort1.Name = "Gridsort1"
|
||||||
|
BUT_NOU1.Name = "BUT_NOU1"
|
||||||
|
BUT_NOU1.Visible = .F.
|
||||||
|
BUT_STERGE1.Name = "BUT_STERGE1"
|
||||||
|
BUT_STERGE1.Visible = .F.
|
||||||
|
grid_referinte.COLUMN1.Header1.Name = "Header1"
|
||||||
|
grid_referinte.COLUMN1.Name = "COLUMN1"
|
||||||
|
grid_referinte.COLUMN1.Text1.Name = "Text1"
|
||||||
|
grid_referinte.COLUMN1.Text1.Visible = .T.
|
||||||
|
grid_referinte.COLUMN1.Visible = .T.
|
||||||
|
grid_referinte.Column2.Header1.Name = "Header1"
|
||||||
|
grid_referinte.Column2.Name = "Column2"
|
||||||
|
grid_referinte.Column2.Text1.Name = "Text1"
|
||||||
|
grid_referinte.Column2.Text1.Visible = .T.
|
||||||
|
grid_referinte.Column2.Visible = .T.
|
||||||
|
grid_referinte.Name = "grid_referinte"
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
410
Ferestre/fundal.sc2
Normal file
410
Ferestre/fundal.sc2
Normal file
@@ -0,0 +1,410 @@
|
|||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!!
|
||||||
|
*--------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||||
|
*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries)
|
||||||
|
*
|
||||||
|
*
|
||||||
|
DEFINE CLASS dataenvironment AS dataenvironment
|
||||||
|
*< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" />
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
DataSource = .NULL.
|
||||||
|
Height = 200
|
||||||
|
Left = 1
|
||||||
|
Name = "Dataenvironment"
|
||||||
|
Top = 220
|
||||||
|
Width = 520
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
|
|
||||||
|
DEFINE CLASS form1 AS form
|
||||||
|
*< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" />
|
||||||
|
|
||||||
|
*-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder
|
||||||
|
*< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" />
|
||||||
|
*< OBJECTDATA: ObjPath="Imagine01" UniqueID="" Timestamp="" />
|
||||||
|
|
||||||
|
*<DefinedPropArrayMethod>
|
||||||
|
*m: arata_meniu_fluna
|
||||||
|
*m: statusbarclick
|
||||||
|
*p: ostatusbar
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
*<PropValue>
|
||||||
|
AlwaysOnBottom = .T.
|
||||||
|
AutoCenter = .T.
|
||||||
|
BackColor = 255,255,255
|
||||||
|
BorderStyle = 0
|
||||||
|
Caption = ""
|
||||||
|
Closable = .F.
|
||||||
|
ControlBox = .F.
|
||||||
|
DoCreate = .T.
|
||||||
|
Enabled = .T.
|
||||||
|
FillColor = 0,0,0
|
||||||
|
HalfHeightCaption = .F.
|
||||||
|
Height = 429
|
||||||
|
MaxButton = .F.
|
||||||
|
MinButton = .F.
|
||||||
|
Movable = .F.
|
||||||
|
Name = "Form1"
|
||||||
|
ostatusbar =
|
||||||
|
Picture = ..\..\
|
||||||
|
ShowTips = .T.
|
||||||
|
Themes = .F.
|
||||||
|
Width = 797
|
||||||
|
WindowState = 2
|
||||||
|
*</PropValue>
|
||||||
|
|
||||||
|
ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ;
|
||||||
|
ErasePage = .T., ;
|
||||||
|
Height = 457, ;
|
||||||
|
Left = -2, ;
|
||||||
|
Name = "_pgfrmbase1", ;
|
||||||
|
Top = 61, ;
|
||||||
|
Page1.Cw1.Label_item1.Name = "Label_item1", ;
|
||||||
|
Page1.Cw1.Name = "Cw1", ;
|
||||||
|
Page1.Cw2.Label_item1.Name = "Label_item1", ;
|
||||||
|
Page1.Cw2.Name = "Cw2", ;
|
||||||
|
Page1.Cw4.Label_item1.Name = "Label_item1", ;
|
||||||
|
Page1.Cw4.Name = "Cw4", ;
|
||||||
|
Page1.Name = "Page1", ;
|
||||||
|
Page1.shape1.Name = "shape1", ;
|
||||||
|
Page2.Ct_registratura1.But_excel1.Name = "But_excel1", ;
|
||||||
|
Page2.Ct_registratura1.But_listare1.Name = "But_listare1", ;
|
||||||
|
Page2.Ct_registratura1.But_nou1.Name = "But_nou1", ;
|
||||||
|
Page2.Ct_registratura1.But_sterge1.Name = "But_sterge1", ;
|
||||||
|
Page2.Ct_registratura1.Ck_data.Alignment = 0, ;
|
||||||
|
Page2.Ct_registratura1.Ck_data.Name = "Ck_data", ;
|
||||||
|
Page2.Ct_registratura1.Ck_numar.Alignment = 0, ;
|
||||||
|
Page2.Ct_registratura1.Ck_numar.Name = "Ck_numar", ;
|
||||||
|
Page2.Ct_registratura1.Ck_nume.Alignment = 0, ;
|
||||||
|
Page2.Ct_registratura1.Ck_nume.Name = "Ck_nume", ;
|
||||||
|
Page2.Ct_registratura1.ck_sters.Alignment = 0, ;
|
||||||
|
Page2.Ct_registratura1.ck_sters.Name = "ck_sters", ;
|
||||||
|
Page2.Ct_registratura1.Ck_tipdoc.Alignment = 0, ;
|
||||||
|
Page2.Ct_registratura1.Ck_tipdoc.Name = "Ck_tipdoc", ;
|
||||||
|
Page2.Ct_registratura1.Clb_tx_simplu1.Lb_simplu1.Name = "Lb_simplu1", ;
|
||||||
|
Page2.Ct_registratura1.Clb_tx_simplu1.Name = "Clb_tx_simplu1", ;
|
||||||
|
Page2.Ct_registratura1.Clb_tx_simplu1.Text_simplu1.Name = "Text_simplu1", ;
|
||||||
|
Page2.Ct_registratura1.Cmd_cauta1.Name = "Cmd_cauta1", ;
|
||||||
|
Page2.Ct_registratura1.Cmd_reset1.Name = "Cmd_reset1", ;
|
||||||
|
Page2.Ct_registratura1.Gridsort1.Name = "Gridsort1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cAre_obs.Check1.Alignment = 0, ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cAre_obs.Check1.Name = "Check1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cAre_obs.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cAre_obs.Name = "cAre_obs", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cAvizat.Check1.Alignment = 0, ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cAvizat.Check1.Name = "Check1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cAvizat.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cAvizat.Name = "cAvizat", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cData_ctr.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cData_ctr.Name = "cData_ctr", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cData_ctr.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cData_intern.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cData_intern.Name = "cData_intern", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cData_intern.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cDescriere.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cDescriere.Name = "cDescriere", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cDescriere.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cFel_document.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cFel_document.Name = "cFel_document", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cFel_document.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cIE.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cIE.Name = "cIE", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cIE.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cMediu_transmisie.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cMediu_transmisie.Name = "cMediu_transmisie", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cMediu_transmisie.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNresp.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNresp.Name = "cNresp", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNresp.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNr_ctr.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNr_ctr.Name = "cNr_ctr", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNr_ctr.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNr_pag.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNr_pag.Name = "cNr_pag", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNr_pag.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNumar_intern.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNumar_intern.Name = "cNumar_intern", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNumar_intern.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNume.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNume.Name = "cNume", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cNume.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN12.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN12.Name = "COLUMN12", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN12.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN13.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN13.Name = "COLUMN13", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN13.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN14.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN14.Name = "COLUMN14", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN14.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN15.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN15.Name = "COLUMN15", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN15.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN16.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN16.Name = "COLUMN16", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN16.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN17.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN17.Name = "COLUMN17", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN17.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN22.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN22.Name = "COLUMN22", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.COLUMN22.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.Column23.Command1.Name = "Command1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.Column23.Command2.Name = "Command2", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.Column23.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.Column23.Name = "Column23", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.Column23.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cPers_contact.Header1.Name = "Header1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cPers_contact.Name = "cPers_contact", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.cPers_contact.Text1.Name = "Text1", ;
|
||||||
|
Page2.Ct_registratura1.grid_registratura.Name = "grid_registratura", ;
|
||||||
|
Page2.Ct_registratura1.Name = "Ct_registratura1", ;
|
||||||
|
Page2.Ct_registratura1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ;
|
||||||
|
Page2.Ct_registratura1._lbbase1.Name = "_lbbase1", ;
|
||||||
|
Page2.Ct_registratura1._shape1.Name = "_shape1", ;
|
||||||
|
Page2.Name = "Page2", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.Name = "CT_DATE_GENERALE1", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Name = "outlook2003bar1", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.imgPicture.Height = 16, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.imgPicture.Name = "imgPicture", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.imgPicture.Width = 16, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.MenuButton.Name = "MenuButton", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.overflowpanel.Name = "overflowpanel", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panel.Name = "Panel", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.ErasePage = .T., ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.Height = 328, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.Name = "Panes", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Name = "pane1", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Height = 328, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Left = 0, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Name = "Olecontrol1", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Top = 0, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol1.Width = 198, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol2.Height = 150, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol2.Name = "Olecontrol2", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane1.Olecontrol2.Width = 200, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane2.Name = "pane2", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane3.Name = "pane3", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.pane4.Name = "pane4", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Panes.Top = 33, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.imgSplitter.Height = 3, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.imgSplitter.Name = "imgSplitter", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.imgSplitter.Width = 35, ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.SplitBar.Name = "SplitBar", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Splitter.Name = "Splitter", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Title.lblCaption.Name = "lblCaption", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Title.linBorder.Name = "linBorder", ;
|
||||||
|
Page3.CT_DATE_GENERALE1.outlook2003bar1.Title.Name = "Title", ;
|
||||||
|
Page3.CT_PART_NR_DATA1.cmdDenumire.Name = "cmdDenumire", ;
|
||||||
|
Page3.CT_PART_NR_DATA1.Command2.Name = "Command2", ;
|
||||||
|
Page3.CT_PART_NR_DATA1.Label3.Name = "Label3", ;
|
||||||
|
Page3.CT_PART_NR_DATA1.Label4.Name = "Label4", ;
|
||||||
|
Page3.CT_PART_NR_DATA1.Label9.Name = "Label9", ;
|
||||||
|
Page3.CT_PART_NR_DATA1.Name = "CT_PART_NR_DATA1", ;
|
||||||
|
Page3.CT_PART_NR_DATA1.txtClient.Name = "txtClient", ;
|
||||||
|
Page3.CT_PART_NR_DATA1.txtData_ctr.Name = "txtData_ctr", ;
|
||||||
|
Page3.CT_PART_NR_DATA1.txtNumar.Name = "txtNumar", ;
|
||||||
|
Page3.Name = "Page3"
|
||||||
|
*< END OBJECT: ClassLib="..\clase\ofundal_registratura.vcx" BaseClass="pageframe" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Image1' AS image WITH ;
|
||||||
|
Anchor = 12, ;
|
||||||
|
Height = 220, ;
|
||||||
|
Left = 228, ;
|
||||||
|
Name = "Image1", ;
|
||||||
|
Picture = ..\grafice\roaregistratura.bmp, ;
|
||||||
|
Stretch = 0, ;
|
||||||
|
Top = 204, ;
|
||||||
|
Width = 556
|
||||||
|
*< END OBJECT: BaseClass="image" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Image2' AS image WITH ;
|
||||||
|
Anchor = 10, ;
|
||||||
|
Height = 64, ;
|
||||||
|
Left = -11, ;
|
||||||
|
Name = "Image2", ;
|
||||||
|
Picture = ..\comun\grafice\f1.jpg, ;
|
||||||
|
Stretch = 2, ;
|
||||||
|
Top = -1, ;
|
||||||
|
Width = 851
|
||||||
|
*< END OBJECT: BaseClass="image" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Imagine01' AS imagine WITH ;
|
||||||
|
ccod = A01, ;
|
||||||
|
Height = 48, ;
|
||||||
|
Left = 13, ;
|
||||||
|
Name = "Imagine01", ;
|
||||||
|
nid_img = 1, ;
|
||||||
|
ntip = 4, ;
|
||||||
|
picturedown = clie2.bmp, ;
|
||||||
|
pictureup = clie1.bmp, ;
|
||||||
|
ToolTipText = "Vizualizare parteneri", ;
|
||||||
|
Top = 0, ;
|
||||||
|
Width = 60
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label1' AS label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Operator:", ;
|
||||||
|
FontItalic = .T., ;
|
||||||
|
ForeColor = 0,0,128, ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 7, ;
|
||||||
|
Name = "Label1", ;
|
||||||
|
Top = 381, ;
|
||||||
|
Width = 53
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Label2' AS label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Nivel de acces:", ;
|
||||||
|
FontItalic = .T., ;
|
||||||
|
ForeColor = 0,0,128, ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 7, ;
|
||||||
|
Name = "Label2", ;
|
||||||
|
Top = 401, ;
|
||||||
|
Width = 85
|
||||||
|
*< END OBJECT: BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ;
|
||||||
|
Anchor = 4, ;
|
||||||
|
Caption = "Operator:", ;
|
||||||
|
FontItalic = .T., ;
|
||||||
|
ForeColor = 255,255,255, ;
|
||||||
|
Left = 571, ;
|
||||||
|
Name = "lb_utilizator", ;
|
||||||
|
Top = 8
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ;
|
||||||
|
Anchor = 4, ;
|
||||||
|
Caption = "nume_utilizator", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontItalic = .T., ;
|
||||||
|
ForeColor = 255,255,255, ;
|
||||||
|
Left = 625, ;
|
||||||
|
Name = "lb_utilizator1", ;
|
||||||
|
Top = 8, ;
|
||||||
|
Visible = .F.
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text1' AS textbox WITH ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ControlSource = "utilizator", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontItalic = .T., ;
|
||||||
|
ForeColor = 0,0,128, ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 62, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
TabStop = .F., ;
|
||||||
|
Top = 380, ;
|
||||||
|
Width = 147
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'Text2' AS textbox WITH ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ControlSource = "m.nivel", ;
|
||||||
|
FontBold = .T., ;
|
||||||
|
FontItalic = .T., ;
|
||||||
|
ForeColor = 0,0,128, ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 93, ;
|
||||||
|
Name = "Text2", ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
TabStop = .F., ;
|
||||||
|
Top = 400, ;
|
||||||
|
Width = 28
|
||||||
|
*< END OBJECT: BaseClass="textbox" />
|
||||||
|
|
||||||
|
PROCEDURE arata_meniu_fluna
|
||||||
|
Do start_firma In ostartfirma.prg
|
||||||
|
verifica_drepturi('gofundal','_pgfrmbase1')
|
||||||
|
With Thisform._pgfrmbase1.page2.ct_registratura1
|
||||||
|
.do_initializeaza_cursor()
|
||||||
|
.grid_registratura.SetFocus()
|
||||||
|
Endwith
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE RightClick
|
||||||
|
Thisform.arata_meniu_fluna()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Show
|
||||||
|
Lparameters nStyle
|
||||||
|
DoDefault(nStyle)
|
||||||
|
This.AlwaysOnBottom = .T.
|
||||||
|
|
||||||
|
Thisform.arata_meniu_fluna()
|
||||||
|
primadata = .F.
|
||||||
|
Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp)
|
||||||
|
Thisform.lb_utilizator1.Visible=.T.
|
||||||
|
Do lansare_toolbar In oproceduri_comune.prg
|
||||||
|
DO lansare_help IN oproceduri_comune.prg
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE statusbarclick
|
||||||
|
Thisform.oStatusBar.newtooltip()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Image1.RightClick
|
||||||
|
Thisform.arata_meniu_fluna()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Imagine01.do_actiune
|
||||||
|
Thisform._pgfrmbase1.page1.cw1.do_actiune()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE lb_utilizator.RightClick
|
||||||
|
Thisform.arata_meniu_fluna()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE lb_utilizator1.RightClick
|
||||||
|
Thisform.arata_meniu_fluna()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _pgfrmbase1.Page1.Activate
|
||||||
|
DODEFAULT()
|
||||||
|
Thisform.image1.Visible = .T.
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _pgfrmbase1.Page1.RightClick
|
||||||
|
Thisform.arata_meniu_fluna()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _pgfrmbase1.Page2.Activate
|
||||||
|
DODEFAULT()
|
||||||
|
Thisform.image1.Visible = .F.
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _pgfrmbase1.Page2.RightClick
|
||||||
|
Thisform.arata_meniu_fluna()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _pgfrmbase1.Page3.Activate
|
||||||
|
DODEFAULT()
|
||||||
|
Thisform.image1.Visible = .F.
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE _pgfrmbase1.Page3.RightClick
|
||||||
|
Thisform.arata_meniu_fluna()
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
BIN
Grafice/C.ico
Normal file
BIN
Grafice/C.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
BIN
Grafice/CHECKMRK.ICO
Normal file
BIN
Grafice/CHECKMRK.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/Calendar Multiweek 16.png
Normal file
BIN
Grafice/Calendar Multiweek 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 866 B |
BIN
Grafice/Calendar Multiweek 24.png
Normal file
BIN
Grafice/Calendar Multiweek 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.5 KiB |
BIN
Grafice/Cont12.ico
Normal file
BIN
Grafice/Cont12.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 766 B |
BIN
Grafice/Contacts 16.png
Normal file
BIN
Grafice/Contacts 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 870 B |
BIN
Grafice/Contacts 24.png
Normal file
BIN
Grafice/Contacts 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
BIN
Grafice/EXCLAM1.ICO
Normal file
BIN
Grafice/EXCLAM1.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/EXCLAM2.ICO
Normal file
BIN
Grafice/EXCLAM2.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/EXCLEM.ICO
Normal file
BIN
Grafice/EXCLEM.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.8 KiB |
BIN
Grafice/EYE.ICO
Normal file
BIN
Grafice/EYE.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/Email Envelope 16.png
Normal file
BIN
Grafice/Email Envelope 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 825 B |
BIN
Grafice/Email Envelope 24.png
Normal file
BIN
Grafice/Email Envelope 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.4 KiB |
BIN
Grafice/FIND.BMP
Normal file
BIN
Grafice/FIND.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 246 B |
BIN
Grafice/Favourites 16.png
Normal file
BIN
Grafice/Favourites 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 687 B |
BIN
Grafice/Favourites 24.png
Normal file
BIN
Grafice/Favourites 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/Games 16.png
Normal file
BIN
Grafice/Games 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 777 B |
BIN
Grafice/Games 24.png
Normal file
BIN
Grafice/Games 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.5 KiB |
BIN
Grafice/HLP.BMP
Normal file
BIN
Grafice/HLP.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 246 B |
BIN
Grafice/H_POINT.CUR
Normal file
BIN
Grafice/H_POINT.CUR
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 318 B |
BIN
Grafice/Help 2 16.png
Normal file
BIN
Grafice/Help 2 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 762 B |
BIN
Grafice/Help 2 24.png
Normal file
BIN
Grafice/Help 2 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.3 KiB |
BIN
Grafice/INFO_c.ICO
Normal file
BIN
Grafice/INFO_c.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.8 KiB |
BIN
Grafice/Intreb.ico
Normal file
BIN
Grafice/Intreb.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/Music Player 1 16.png
Normal file
BIN
Grafice/Music Player 1 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 857 B |
BIN
Grafice/Music Player 1 24.png
Normal file
BIN
Grafice/Music Player 1 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
BIN
Grafice/Pics 1 16.png
Normal file
BIN
Grafice/Pics 1 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 846 B |
BIN
Grafice/Pics 1 24.png
Normal file
BIN
Grafice/Pics 1 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.6 KiB |
BIN
Grafice/Security 1 16.png
Normal file
BIN
Grafice/Security 1 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 743 B |
BIN
Grafice/Security 1 24.png
Normal file
BIN
Grafice/Security 1 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.3 KiB |
BIN
Grafice/Tech Support 16.png
Normal file
BIN
Grafice/Tech Support 16.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 733 B |
BIN
Grafice/Tech Support 24.png
Normal file
BIN
Grafice/Tech Support 24.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.4 KiB |
BIN
Grafice/WZDELETE.BMP
Normal file
BIN
Grafice/WZDELETE.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 358 B |
BIN
Grafice/WZEDIT.BMP
Normal file
BIN
Grafice/WZEDIT.BMP
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 358 B |
36
Grafice/WZSETUP.INI
Normal file
36
Grafice/WZSETUP.INI
Normal file
@@ -0,0 +1,36 @@
|
|||||||
|
[Preferences]
|
||||||
|
DistributionDirectory=C:\VFP\DISTRIB\
|
||||||
|
DistributionSourceDirectory=C:\VFP\DISTRIB.SRC\
|
||||||
|
SourceDirectory=E:\CONT2000\CONTAB\GRAFICE\
|
||||||
|
InstallFoxProRuntime=Y
|
||||||
|
InstallGraph=N
|
||||||
|
InstallODBCDrivers=N
|
||||||
|
AccessDriver=Y
|
||||||
|
FoxPro2xDriver=Y
|
||||||
|
dBASEDriver=Y
|
||||||
|
ParadoxDriver=Y
|
||||||
|
SQLServerDriver=Y
|
||||||
|
ExcelDriver=Y
|
||||||
|
TextDriver=Y
|
||||||
|
OracleDriver=Y
|
||||||
|
Oracle7Driver=Y
|
||||||
|
BtrieveDriver=Y
|
||||||
|
VFPDriver=Y
|
||||||
|
InstallWindows95=N
|
||||||
|
InstallWindowsNT=N
|
||||||
|
DestinationDirectory=E:\CONTSETUP\
|
||||||
|
Make1.44MegDisks=N
|
||||||
|
Make1.2MegDisks=N
|
||||||
|
Make720KDisks=N
|
||||||
|
MakeNetsetup=Y
|
||||||
|
SetupBanner=gr
|
||||||
|
Copyright=gr
|
||||||
|
PostExecute=
|
||||||
|
UserDefaultDirectory=\GRAFICE\
|
||||||
|
ProgManGroup=Visual FoxPro Applications
|
||||||
|
UserCanModify=1
|
||||||
|
SplitSize=363520
|
||||||
|
FileCustomizationDelimiter=~
|
||||||
|
InstRemoteAuto=N
|
||||||
|
InstActiveX=N
|
||||||
|
|
||||||
BIN
Grafice/attach.bmp
Normal file
BIN
Grafice/attach.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.4 KiB |
BIN
Grafice/clienti_jos.bmp
Normal file
BIN
Grafice/clienti_jos.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
Grafice/clienti_sus.bmp
Normal file
BIN
Grafice/clienti_sus.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
Grafice/cont11.ICO
Normal file
BIN
Grafice/cont11.ICO
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/ctr_jos.bmp
Normal file
BIN
Grafice/ctr_jos.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
Grafice/ctr_sus.bmp
Normal file
BIN
Grafice/ctr_sus.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
Grafice/cump.bmp
Normal file
BIN
Grafice/cump.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.1 KiB |
BIN
Grafice/curs_jos.bmp
Normal file
BIN
Grafice/curs_jos.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
Grafice/curs_sus.bmp
Normal file
BIN
Grafice/curs_sus.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
4184
Grafice/dkcontrl.db2
Normal file
4184
Grafice/dkcontrl.db2
Normal file
File diff suppressed because it is too large
Load Diff
BIN
Grafice/entitati1.bmp
Normal file
BIN
Grafice/entitati1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 7.4 KiB |
BIN
Grafice/entitati2.bmp
Normal file
BIN
Grafice/entitati2.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 7.4 KiB |
BIN
Grafice/eye_jos.bmp
Normal file
BIN
Grafice/eye_jos.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 926 B |
BIN
Grafice/eye_sus.bmp
Normal file
BIN
Grafice/eye_sus.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 926 B |
BIN
Grafice/f1.jpg
Normal file
BIN
Grafice/f1.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.1 KiB |
BIN
Grafice/f2.jpg
Normal file
BIN
Grafice/f2.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 6.3 KiB |
BIN
Grafice/f3.jpg
Normal file
BIN
Grafice/f3.jpg
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.6 KiB |
BIN
Grafice/fact_jos.bmp
Normal file
BIN
Grafice/fact_jos.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.3 KiB |
BIN
Grafice/fact_sus.bmp
Normal file
BIN
Grafice/fact_sus.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.3 KiB |
BIN
Grafice/facturi_jos.bmp
Normal file
BIN
Grafice/facturi_jos.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
Grafice/facturi_sus.bmp
Normal file
BIN
Grafice/facturi_sus.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
Grafice/info_jos.bmp
Normal file
BIN
Grafice/info_jos.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
Grafice/info_sus.bmp
Normal file
BIN
Grafice/info_sus.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.0 KiB |
BIN
Grafice/lock.bmp
Normal file
BIN
Grafice/lock.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.2 KiB |
BIN
Grafice/open.bmp
Normal file
BIN
Grafice/open.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 246 B |
BIN
Grafice/outlook2003bar_1.bmp
Normal file
BIN
Grafice/outlook2003bar_1.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 182 B |
BIN
Grafice/outlook2003bar_2.bmp
Normal file
BIN
Grafice/outlook2003bar_2.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 182 B |
BIN
Grafice/outlook2003bar_3.bmp
Normal file
BIN
Grafice/outlook2003bar_3.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 182 B |
BIN
Grafice/outlook2003bar_4.bmp
Normal file
BIN
Grafice/outlook2003bar_4.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 182 B |
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user