Compare commits
3 Commits
main
...
e54c230af6
| Author | SHA1 | Date | |
|---|---|---|---|
| e54c230af6 | |||
| 0c0bef5435 | |||
| d2e87327a4 |
1
.gitignore
vendored
1
.gitignore
vendored
@@ -103,4 +103,3 @@ docs/local/
|
|||||||
|
|
||||||
# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) ---
|
# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) ---
|
||||||
COMUN/
|
COMUN/
|
||||||
docs/diff_runda*.patch
|
|
||||||
|
|||||||
13
CLAUDE.md
13
CLAUDE.md
@@ -20,19 +20,6 @@ Git rulează în paralel cu SVN-ul legacy, nu îl înlocuiește. SVN rămâne su
|
|||||||
|
|
||||||
- Eșec cunoscut `git_sync`: `Clase\registry.vcx` (copie FFC din 2008, memo `.vct` corupt — Error 41 la bin→text). Nereferențiat de proiect (`.pj2` folosește `comun\clase\registry.vcx`); rămâne binar netracked, doar `registry.h` e în git.
|
- Eșec cunoscut `git_sync`: `Clase\registry.vcx` (copie FFC din 2008, memo `.vct` corupt — Error 41 la bin→text). Nereferențiat de proiect (`.pj2` folosește `comun\clase\registry.vcx`); rămâne binar netracked, doar `registry.h` e în git.
|
||||||
- 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`.
|
- 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`.
|
||||||
- **Cine deține un hit**: Grep nu poate spune din ce clasă/metodă vine un hit din `.vc2` (header-ul clasei poate fi la mii de linii deasupra, iar ~2/3 din fișier e proprietăți/metadate). `vfp_symbols.ps1` indexează intervalul de linii al fiecărei clase/metode/proceduri și etichetează hit-urile cu proprietarul — folosește-l înainte de orice editare `txt2vcx.ps1` ca să afli intervalul exact al metodei pe care o modifici. Valorile implicite țintesc ROAACNPRO, deci trimite mereu căile acestui proiect:
|
|
||||||
|
|
||||||
```powershell
|
|
||||||
$s = 'D:\ROA\UTIL\foxbin2prg\vfp_symbols.ps1'
|
|
||||||
$c = @('-CacheRoot', 'D:\ROA\ROAREGISTRATURA', '-ProjectRoot', 'D:\ROA\ROAREGISTRATURA', '-IndexFile', 'D:\ROA\_vfp_textcache\roaregistratura\_symbols.tsv')
|
|
||||||
|
|
||||||
powershell -ExecutionPolicy Bypass -File $s @c -Grep '<expresie>' -CodeOnly # hit-uri etichetate clasa.metoda, doar cod
|
|
||||||
powershell -ExecutionPolicy Bypass -File $s @c -Where '<fisier>.vc2:<linie>' # cine deține această linie
|
|
||||||
powershell -ExecutionPolicy Bypass -File $s @c -Find '<nume>' # unde e DEFINIT
|
|
||||||
powershell -ExecutionPolicy Bypass -File $s @c -Class '<nume_clasa>' # lanțul de moștenire + metode
|
|
||||||
```
|
|
||||||
|
|
||||||
Indexul (`_symbols.tsv`) se reconstruiește singur când textul e mai nou, deci reîmprospătează textul întâi — nu vede editările din IDE neconvertite. Ghid complet: `COMUN\docs\cautare_vcx_vct.md`.
|
|
||||||
|
|
||||||
## Reguli de lucru si testare
|
## Reguli de lucru si testare
|
||||||
|
|
||||||
|
|||||||
@@ -1226,9 +1226,7 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx"
|
|||||||
ENDPROC
|
ENDPROC
|
||||||
|
|
||||||
PROCEDURE do_initializeaza_cursor
|
PROCEDURE do_initializeaza_cursor
|
||||||
save_grid_tag(This.grid_registratura)
|
|
||||||
Do viz_registratura In oproceduri_roaregistratura.prg
|
Do viz_registratura In oproceduri_roaregistratura.prg
|
||||||
restore_grid_tag(This.grid_registratura)
|
|
||||||
Select cRegistratura
|
Select cRegistratura
|
||||||
Go Top
|
Go Top
|
||||||
Scatter Name goRegistratura Blank
|
Scatter Name goRegistratura Blank
|
||||||
|
|||||||
@@ -341,7 +341,6 @@ DEFINE CLASS form1 AS form
|
|||||||
.do_initializeaza_cursor()
|
.do_initializeaza_cursor()
|
||||||
.grid_registratura.SetFocus()
|
.grid_registratura.SetFocus()
|
||||||
Endwith
|
Endwith
|
||||||
Thisform.WindowState = 2
|
|
||||||
ENDPROC
|
ENDPROC
|
||||||
|
|
||||||
PROCEDURE RightClick
|
PROCEDURE RightClick
|
||||||
@@ -359,7 +358,6 @@ DEFINE CLASS form1 AS form
|
|||||||
Thisform.lb_utilizator1.Visible=.T.
|
Thisform.lb_utilizator1.Visible=.T.
|
||||||
Do lansare_toolbar In oproceduri_comune.prg
|
Do lansare_toolbar In oproceduri_comune.prg
|
||||||
DO lansare_help IN oproceduri_comune.prg
|
DO lansare_help IN oproceduri_comune.prg
|
||||||
This.WindowState = 2
|
|
||||||
ENDPROC
|
ENDPROC
|
||||||
|
|
||||||
PROCEDURE statusbarclick
|
PROCEDURE statusbarclick
|
||||||
|
|||||||
@@ -1,79 +0,0 @@
|
|||||||
* test_repro_grid_firma_goala.prg - repro headless: cursor cRegistratura pe firma goala
|
|
||||||
* Rulare: vfp9.exe -A -T "D:\ROA\ROAREGISTRATURA\Teste\test_repro_grid_firma_goala.prg"
|
|
||||||
LPARAMETERS tcParam
|
|
||||||
PUBLIC gcLog
|
|
||||||
gcLog = 'D:\ROA\ROAREGISTRATURA\Teste\log_repro_grid.txt'
|
|
||||||
STRTOFILE('=== repro grid firma goala ' + TTOC(DATETIME()) + CHR(13)+CHR(10), gcLog)
|
|
||||||
|
|
||||||
ON ERROR DO tlog WITH '*** EROARE ' + TRANSFORM(ERROR()) + ': ' + MESSAGE() + ;
|
|
||||||
' | prg=' + PROGRAM() + ' lin=' + TRANSFORM(LINENO())
|
|
||||||
|
|
||||||
DO D:\ROA\ROAREGISTRATURA\Teste\test_init_env_registratura.prg
|
|
||||||
IF TYPE('gnHandle') <> 'N' OR gnHandle <= 0
|
|
||||||
DO tlog WITH 'FAIL conectare'
|
|
||||||
QUIT
|
|
||||||
ENDIF
|
|
||||||
DO tlog WITH 'Conectat, handle=' + TRANSFORM(gnHandle)
|
|
||||||
|
|
||||||
* faza 1: exact filtrul initial din viz_registratura, dar fortat GOL (simulare firma fara inregistrari)
|
|
||||||
DO fa_cursor WITH [1=0], 'FAZA1(gol)'
|
|
||||||
|
|
||||||
* faza 2: firma cu inregistrari (filtrul real initial)
|
|
||||||
DO fa_cursor WITH [sters=0 and id_reg=(select max(id_reg) from vregistratura where sters=0)], 'FAZA2(plin)'
|
|
||||||
|
|
||||||
* faza 3: din nou gol, apoi iar plin - stabilitate
|
|
||||||
DO fa_cursor WITH [1=0], 'FAZA3(gol)'
|
|
||||||
DO fa_cursor WITH [sters=0], 'FAZA4(toate)'
|
|
||||||
|
|
||||||
ON ERROR
|
|
||||||
QUIT
|
|
||||||
|
|
||||||
PROCEDURE fa_cursor
|
|
||||||
LPARAMETERS tcFiltru, tcEticheta
|
|
||||||
DO tlog WITH '--- ' + tcEticheta + ' filtru: ' + tcFiltru
|
|
||||||
DO viz_registratura_test WITH tcFiltru
|
|
||||||
DO tlog WITH tcEticheta + ' USED=' + TRANSFORM(USED('cRegistratura')) + ;
|
|
||||||
' RECC=' + TRANSFORM(IIF(USED('cRegistratura'), RECCOUNT('cRegistratura'), -1)) + ;
|
|
||||||
' DBF=' + IIF(USED('cRegistratura'), DBF('cRegistratura'), '<inchis>')
|
|
||||||
IF USED('cRegistratura')
|
|
||||||
* capcana USE DBF() AGAIN pe cursor gol (folosita in decabaza.afisare)
|
|
||||||
LOCAL lcTmp
|
|
||||||
lcTmp = SYS(2015)
|
|
||||||
USE DBF('cRegistratura') IN 0 AGAIN SHARED ALIAS (lcTmp)
|
|
||||||
DO tlog WITH tcEticheta + ' USE-AGAIN=' + TRANSFORM(USED(lcTmp))
|
|
||||||
IF USED(lcTmp)
|
|
||||||
USE IN (lcTmp)
|
|
||||||
ENDIF
|
|
||||||
ENDIF
|
|
||||||
DO tlog WITH tcEticheta + ' poReg=' + TYPE('poReg')
|
|
||||||
ENDPROC
|
|
||||||
|
|
||||||
PROCEDURE viz_registratura_test
|
|
||||||
* copia lui viz_registratura cu filtru parametrizat
|
|
||||||
LPARAMETERS tcFiltru
|
|
||||||
LOCAL lcSchema, lcSelect, lcOrder, lcFiltru, lcFiltruOriginal, llAfiseaza, lcgroup, llModParam
|
|
||||||
lcSchema = [id_reg n(8), id_part n(10), denumire c(70), id_pers n(10), pers_contact c(70), data d, numar c(20), numar_intern c(20), data_intern d, ]+;
|
|
||||||
[descriere c(100), ie N(1), observatii M, ]+;
|
|
||||||
[id_fdoc n(5), fel_document c(30), id_mediu n(5), mediu_transmisie c(30), avizat n(1), ]+;
|
|
||||||
[util c(30), dataora t , ]+;
|
|
||||||
[utils c(30), dataoras t , ]+;
|
|
||||||
[util_avizat c(30), dataora_avizat t, are_obs N(1), are_link n(1), ]+;
|
|
||||||
[id_responsabil n(10), nresp c(70), nr_pag N(4), sters n(1),id_proiect n(10),proiect v(200)]
|
|
||||||
lcSelect = [select id_reg, id_part, denumire, id_pers, pers_contact, data, numar, numar_intern, data_intern, ]+;
|
|
||||||
[ descriere, ie, observatii, id_fdoc, fel_document, id_mediu, mediu_transmisie, avizat, ]+;
|
|
||||||
[ util, dataora, utils, dataoras, util_avizat, dataora_avizat, are_obs, are_link, id_responsabil, nresp, nr_pag, sters,id_proiect,proiect ]+;
|
|
||||||
[from vregistratura]
|
|
||||||
lcOrder = []
|
|
||||||
lcgroup = []
|
|
||||||
lcFiltru = tcFiltru
|
|
||||||
lcFiltruOriginal = []
|
|
||||||
llModParam = .T.
|
|
||||||
llAfiseaza = .F.
|
|
||||||
gencursor('poReg','cRegistratura', lcSelect, lcFiltru, lcSchema, lcOrder, llAfiseaza, lcgroup, llModParam, lcFiltruOriginal)
|
|
||||||
poReg.ca_baza1.afisare()
|
|
||||||
ENDPROC
|
|
||||||
|
|
||||||
PROCEDURE tlog
|
|
||||||
LPARAMETERS tcMsg
|
|
||||||
STRTOFILE(TRANSFORM(tcMsg) + CHR(13)+CHR(10), gcLog, 1)
|
|
||||||
ENDPROC
|
|
||||||
@@ -12,7 +12,7 @@ ROAREGISTRATURA - 2.0.5
|
|||||||
Fonturi uniformizate in lista documentelor, datele documentului si nomenclatorul de parteneri.
|
Fonturi uniformizate in lista documentelor, datele documentului si nomenclatorul de parteneri.
|
||||||
|
|
||||||
:eroare:
|
:eroare:
|
||||||
Corectare erori la salvarea unui document fara partener ales.
|
Erori la salvarea unui document fara partener ales.
|
||||||
-->
|
-->
|
||||||
<!--
|
<!--
|
||||||
27/02/2014
|
27/02/2014
|
||||||
|
|||||||
1105
docs/diff_runda1_ferestre_M2_M3_M4_M5.patch
Normal file
1105
docs/diff_runda1_ferestre_M2_M3_M4_M5.patch
Normal file
File diff suppressed because it is too large
Load Diff
17
docs/diff_runda1_ofundal_M2.patch
Normal file
17
docs/diff_runda1_ofundal_M2.patch
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
diff --git "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\ofundal_registratura.vc2.pre_runda1.bak" "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\ofundal_registratura.vc2"
|
||||||
|
index a58ab1a..0fdd7a9 100644
|
||||||
|
--- "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\ofundal_registratura.vc2.pre_runda1.bak"
|
||||||
|
+++ "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\ofundal_registratura.vc2"
|
||||||
|
@@ -285,6 +285,12 @@ DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx"
|
||||||
|
|
||||||
|
PROCEDURE Page3.Deactivate
|
||||||
|
Local lnRaspuns
|
||||||
|
+ *!* 23.07.2026 MM - partener NULL: nu se salveaza, se renunta explicit (P1/P2)
|
||||||
|
+ If !This.ct_part_nr_data1.llock And (Isnull(goRegistratura.id_part) Or Empty(goRegistratura.id_part))
|
||||||
|
+ This.ct_part_nr_data1.llock = .T.
|
||||||
|
+ AMESSAGEBOX('Alegeti partenerul! Modificarile nu au fost salvate.',0+48,'Atentie')
|
||||||
|
+ This.ct_part_nr_data1.Refresh()
|
||||||
|
+ Endif
|
||||||
|
If !This.ct_part_nr_data1.llock
|
||||||
|
This.ct_part_nr_data1.llock = .T.
|
||||||
|
lnRaspuns = AMESSAGEBOX('Dori<72>i s<> salva<76>i modific<69>rile f<>cute?',4+32,'Confirmare')
|
||||||
894
docs/diff_runda1_onom_M5.patch
Normal file
894
docs/diff_runda1_onom_M5.patch
Normal file
@@ -0,0 +1,894 @@
|
|||||||
|
diff --git "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\onom_clienti.vc2.pre_runda1.bak" "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\onom_clienti.vc2"
|
||||||
|
index 6cfc6a8..3c30eb1 100644
|
||||||
|
--- "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\onom_clienti.vc2.pre_runda1.bak"
|
||||||
|
+++ "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\onom_clienti.vc2"
|
||||||
|
@@ -449,7 +449,6 @@ DEFINE CLASS frm_agenti AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Anchor = 15, ;
|
||||||
|
ColumnCount = 5, ;
|
||||||
|
DeleteMark = .F., ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Height = 336, ;
|
||||||
|
Left = 15, ;
|
||||||
|
Name = "grd_agenti", ;
|
||||||
|
@@ -461,27 +460,22 @@ DEFINE CLASS frm_agenti AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
ZOrderSet = 6, ;
|
||||||
|
Column1.ColumnOrder = 3, ;
|
||||||
|
Column1.ControlSource = "zona", ;
|
||||||
|
- Column1.FontName = "Arial Narrow", ;
|
||||||
|
Column1.Name = "cZona", ;
|
||||||
|
Column1.Width = 172, ;
|
||||||
|
Column2.ColumnOrder = 1, ;
|
||||||
|
Column2.ControlSource = "nume_agent", ;
|
||||||
|
- Column2.FontName = "Arial Narrow", ;
|
||||||
|
Column2.Name = "cNume", ;
|
||||||
|
Column2.Width = 205, ;
|
||||||
|
Column3.ColumnOrder = 4, ;
|
||||||
|
Column3.ControlSource = "telefon1", ;
|
||||||
|
- Column3.FontName = "Arial Narrow", ;
|
||||||
|
Column3.Name = "cTelefon1", ;
|
||||||
|
Column3.Width = 116, ;
|
||||||
|
Column4.ColumnOrder = 2, ;
|
||||||
|
Column4.ControlSource = "functie", ;
|
||||||
|
- Column4.FontName = "Arial Narrow", ;
|
||||||
|
Column4.Name = "cFunctia", ;
|
||||||
|
Column4.Width = 127, ;
|
||||||
|
Column5.ColumnOrder = 5, ;
|
||||||
|
Column5.ControlSource = "telefon2", ;
|
||||||
|
- Column5.FontName = "Arial Narrow", ;
|
||||||
|
Column5.Name = "cTelefon2", ;
|
||||||
|
Column5.Width = 116
|
||||||
|
*< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||||
|
@@ -489,81 +483,72 @@ DEFINE CLASS frm_agenti AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
ADD OBJECT 'grd_agenti.cFunctia.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Functie", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_agenti.cFunctia.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_agenti.cFunctia.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_agenti.cNume.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Nume", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_agenti.cNume.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_agenti.cNume.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_agenti.cTelefon1.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Telefon 1", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_agenti.cTelefon1.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_agenti.cTelefon1.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_agenti.cTelefon2.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Telefon 2", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_agenti.cTelefon2.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_agenti.cTelefon2.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_agenti.cZona.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Zona", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_agenti.cZona.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_agenti.cZona.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
PROCEDURE actualizeaza_grid1
|
||||||
|
Lparameters lcFiltru
|
||||||
|
@@ -1006,7 +991,6 @@ DEFINE CLASS frm_clienti AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||||||
|
ADD OBJECT 'grd_clienti' AS _grdrow WITH ;
|
||||||
|
ColumnCount = 9, ;
|
||||||
|
DeleteMark = .F., ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Height = 366, ;
|
||||||
|
Left = 15, ;
|
||||||
|
Name = "grd_clienti", ;
|
||||||
|
@@ -1017,41 +1001,32 @@ DEFINE CLASS frm_clienti AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||||||
|
Width = 636, ;
|
||||||
|
ZOrderSet = 6, ;
|
||||||
|
Column1.ControlSource = "nume", ;
|
||||||
|
- Column1.FontName = "Arial Narrow", ;
|
||||||
|
Column1.Name = "cNume", ;
|
||||||
|
Column1.Width = 172, ;
|
||||||
|
Column2.ControlSource = "cod_fiscal", ;
|
||||||
|
- Column2.FontName = "Arial Narrow", ;
|
||||||
|
Column2.Name = "cCod_fiscal", ;
|
||||||
|
Column2.Width = 91, ;
|
||||||
|
Column3.ControlSource = "telefon", ;
|
||||||
|
- Column3.FontName = "Arial Narrow", ;
|
||||||
|
Column3.Name = "cTelefon", ;
|
||||||
|
Column4.ControlSource = "adresa", ;
|
||||||
|
- Column4.FontName = "Arial Narrow", ;
|
||||||
|
Column4.Name = "cAdresa", ;
|
||||||
|
Column4.Width = 270, ;
|
||||||
|
Column5.ControlSource = "banca", ;
|
||||||
|
- Column5.FontName = "Arial Narrow", ;
|
||||||
|
Column5.Name = "cBanca", ;
|
||||||
|
Column5.Width = 114, ;
|
||||||
|
Column6.ControlSource = "cont_banca", ;
|
||||||
|
- Column6.FontName = "Arial Narrow", ;
|
||||||
|
Column6.Name = "cCont_banca", ;
|
||||||
|
Column6.Width = 52, ;
|
||||||
|
Column7.ControlSource = "reg_comert", ;
|
||||||
|
- Column7.FontName = "Arial Narrow", ;
|
||||||
|
Column7.Name = "cReg_comert", ;
|
||||||
|
Column7.Width = 133, ;
|
||||||
|
Column8.ColumnOrder = 9, ;
|
||||||
|
Column8.ControlSource = "judet", ;
|
||||||
|
- Column8.FontName = "Arial Narrow", ;
|
||||||
|
Column8.Name = "cJudet", ;
|
||||||
|
Column8.Visible = .T., ;
|
||||||
|
Column8.Width = 68, ;
|
||||||
|
Column9.ColumnOrder = 8, ;
|
||||||
|
Column9.ControlSource = "localitate", ;
|
||||||
|
- Column9.FontName = "Arial Narrow", ;
|
||||||
|
Column9.Name = "cLocalitate", ;
|
||||||
|
Column9.Width = 127
|
||||||
|
*< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||||
|
@@ -1059,147 +1034,129 @@ DEFINE CLASS frm_clienti AS _frmbase OF "..\comun\clase\_frm_base.vcx"
|
||||||
|
ADD OBJECT 'grd_clienti.cAdresa.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Adresa", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_clienti.cAdresa.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_clienti.cAdresa.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_clienti.cBanca.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Banca", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_clienti.cBanca.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_clienti.cBanca.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_clienti.cCod_fiscal.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Cod fiscal", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_clienti.cCod_fiscal.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_clienti.cCod_fiscal.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_clienti.cCont_banca.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Cont", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_clienti.cCont_banca.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_clienti.cCont_banca.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_clienti.cJudet.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Judet", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_clienti.cJudet.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_clienti.cJudet.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
Visible = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_clienti.cLocalitate.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Localitate", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_clienti.cLocalitate.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_clienti.cLocalitate.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_clienti.cNume.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Nume client", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_clienti.cNume.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_clienti.cNume.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_clienti.cReg_comert.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Nr.Reg.Com.", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_clienti.cReg_comert.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_clienti.cReg_comert.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grd_clienti.cTelefon.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Telefon", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grd_clienti.cTelefon.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grd_clienti.cTelefon.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
PROCEDURE actualizeaza_grid1
|
||||||
|
Lparameters lcFiltru
|
||||||
|
@@ -1709,7 +1666,6 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
AutoSize = .T., ;
|
||||||
|
camp_nume = data, ;
|
||||||
|
Caption = "Data", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Left = 54, ;
|
||||||
|
Name = "Ck_data", ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
@@ -1723,7 +1679,6 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
AutoSize = .T., ;
|
||||||
|
camp_nume = data2, ;
|
||||||
|
Caption = "Data2", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Left = 99, ;
|
||||||
|
Name = "Ck_data2", ;
|
||||||
|
TabIndex = 1, ;
|
||||||
|
@@ -1738,7 +1693,6 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
camp_nume = nume_val, ;
|
||||||
|
Caption = "Valuta", ;
|
||||||
|
Comment = "*:OnResize=LT", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Left = 6, ;
|
||||||
|
Name = "Ck_numeval", ;
|
||||||
|
TabIndex = 19, ;
|
||||||
|
@@ -1774,7 +1728,6 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Anchor = 15, ;
|
||||||
|
ColumnCount = 4, ;
|
||||||
|
DeleteMark = .F., ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Height = 341, ;
|
||||||
|
Left = 8, ;
|
||||||
|
Name = "grid_curs", ;
|
||||||
|
@@ -1784,21 +1737,17 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Top = 68, ;
|
||||||
|
Width = 258, ;
|
||||||
|
Column1.ControlSource = "nume_val", ;
|
||||||
|
- Column1.FontName = "Arial Narrow", ;
|
||||||
|
Column1.Name = "Column1", ;
|
||||||
|
Column1.Width = 74, ;
|
||||||
|
Column2.ControlSource = "curs", ;
|
||||||
|
- Column2.FontName = "Arial Narrow", ;
|
||||||
|
Column2.Format = "rk", ;
|
||||||
|
Column2.InputMask = (get_mask(10,gnPCurs)), ;
|
||||||
|
Column2.Name = "Column2", ;
|
||||||
|
Column2.Width = 58, ;
|
||||||
|
Column3.ControlSource = "data", ;
|
||||||
|
- Column3.FontName = "Arial Narrow", ;
|
||||||
|
Column3.Name = "Column3", ;
|
||||||
|
Column3.Width = 49, ;
|
||||||
|
Column4.ControlSource = "data2", ;
|
||||||
|
- Column4.FontName = "Arial Narrow", ;
|
||||||
|
Column4.Name = "Column4", ;
|
||||||
|
Column4.Width = 51
|
||||||
|
*< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" />
|
||||||
|
@@ -1806,66 +1755,58 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
ADD OBJECT 'grid_curs.Column1.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Nume valuta", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grid_curs.Column1.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grid_curs.Column1.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid_curs.Column2.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Curs", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grid_curs.Column2.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grid_curs.Column2.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid_curs.Column3.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Data", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grid_curs.Column3.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grid_curs.Column3.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'grid_curs.Column4.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Data2", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'grid_curs.Column4.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'grid_curs.Column4.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
PROCEDURE actualizeaza_grid1
|
||||||
|
LPARAMETERS pcFiltru
|
||||||
|
@@ -2007,9 +1948,8 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Top = 1
|
||||||
|
*< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'Command2' AS commandbutton WITH ;
|
||||||
|
+ ADD OBJECT 'Command2' AS _commandbutton WITH ;
|
||||||
|
Caption = "", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Height = 25, ;
|
||||||
|
Left = 168, ;
|
||||||
|
Name = "Command2", ;
|
||||||
|
@@ -2017,7 +1957,7 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
TabIndex = 1, ;
|
||||||
|
Top = 36, ;
|
||||||
|
Width = 28
|
||||||
|
- *< END OBJECT: BaseClass="commandbutton" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="commandbutton" />
|
||||||
|
|
||||||
|
ADD OBJECT 'CUS_ODATA_CURS1' AS cus_odata_curs WITH ;
|
||||||
|
Left = 102, ;
|
||||||
|
@@ -2025,7 +1965,7 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Top = 8
|
||||||
|
*< END OBJECT: ClassLib="onom_clienti.vcx" BaseClass="custom" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'Label1' AS label WITH ;
|
||||||
|
+ ADD OBJECT 'Label1' AS _label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Nume valuta", ;
|
||||||
|
@@ -2035,9 +1975,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
TabIndex = 8, ;
|
||||||
|
Top = 41, ;
|
||||||
|
Width = 71
|
||||||
|
- *< END OBJECT: BaseClass="label" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'Label2' AS label WITH ;
|
||||||
|
+ ADD OBJECT 'Label2' AS _label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Curs", ;
|
||||||
|
@@ -2047,9 +1987,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
TabIndex = 9, ;
|
||||||
|
Top = 66, ;
|
||||||
|
Width = 29
|
||||||
|
- *< END OBJECT: BaseClass="label" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'Label3' AS label WITH ;
|
||||||
|
+ ADD OBJECT 'Label3' AS _label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Data 1", ;
|
||||||
|
@@ -2059,9 +1999,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
TabIndex = 10, ;
|
||||||
|
Top = 91, ;
|
||||||
|
Width = 38
|
||||||
|
- *< END OBJECT: BaseClass="label" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'Label4' AS label WITH ;
|
||||||
|
+ ADD OBJECT 'Label4' AS _label WITH ;
|
||||||
|
AutoSize = .T., ;
|
||||||
|
BackStyle = 0, ;
|
||||||
|
Caption = "Data 2", ;
|
||||||
|
@@ -2071,9 +2011,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
TabIndex = 11, ;
|
||||||
|
Top = 117, ;
|
||||||
|
Width = 38
|
||||||
|
- *< END OBJECT: BaseClass="label" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'txtCurs' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'txtCurs' AS _textbox WITH ;
|
||||||
|
ControlSource = "porec.curs", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 91, ;
|
||||||
|
@@ -2081,9 +2021,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
TabIndex = 2, ;
|
||||||
|
Top = 63, ;
|
||||||
|
Width = 100
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'txtData1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'txtData1' AS _textbox WITH ;
|
||||||
|
ControlSource = "porec.data", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 91, ;
|
||||||
|
@@ -2091,9 +2031,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
TabIndex = 3, ;
|
||||||
|
Top = 88, ;
|
||||||
|
Width = 100
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'txtData2' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'txtData2' AS _textbox WITH ;
|
||||||
|
ControlSource = "porec.data2", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 91, ;
|
||||||
|
@@ -2101,9 +2041,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
TabIndex = 4, ;
|
||||||
|
Top = 114, ;
|
||||||
|
Width = 100
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'txtValuta' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'txtValuta' AS _textbox WITH ;
|
||||||
|
ControlSource = "porec.nume_val", ;
|
||||||
|
Height = 23, ;
|
||||||
|
Left = 91, ;
|
||||||
|
@@ -2111,7 +2051,7 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
TabIndex = 12, ;
|
||||||
|
Top = 36, ;
|
||||||
|
Width = 75
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
PROCEDURE inainte_de_do_termin
|
||||||
|
Private pnIdCursNou
|
||||||
|
@@ -2294,7 +2234,6 @@ DEFINE CLASS frm_delegati AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
ADD OBJECT 'gdelegati' AS _grdrow WITH ;
|
||||||
|
ColumnCount = 6, ;
|
||||||
|
DeleteMark = .F., ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Height = 300, ;
|
||||||
|
Left = 12, ;
|
||||||
|
Name = "gdelegati", ;
|
||||||
|
@@ -2305,36 +2244,30 @@ DEFINE CLASS frm_delegati AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Top = 72, ;
|
||||||
|
Width = 565, ;
|
||||||
|
Column1.ControlSource = "nume_part", ;
|
||||||
|
- Column1.FontName = "Arial Narrow", ;
|
||||||
|
Column1.Name = "Column1", ;
|
||||||
|
Column1.ReadOnly = .T., ;
|
||||||
|
Column1.Width = 168, ;
|
||||||
|
Column2.ControlSource = "nume", ;
|
||||||
|
- Column2.FontName = "Arial Narrow", ;
|
||||||
|
Column2.Name = "Column2", ;
|
||||||
|
Column2.ReadOnly = .T., ;
|
||||||
|
Column2.Width = 169, ;
|
||||||
|
Column3.ControlSource = "bi_seria", ;
|
||||||
|
- Column3.FontName = "Arial Narrow", ;
|
||||||
|
Column3.Name = "Column3", ;
|
||||||
|
Column3.ReadOnly = .T., ;
|
||||||
|
Column3.Width = 49, ;
|
||||||
|
Column4.ColumnOrder = 5, ;
|
||||||
|
Column4.ControlSource = "eliberatde", ;
|
||||||
|
- Column4.FontName = "Arial Narrow", ;
|
||||||
|
Column4.Name = "Column4", ;
|
||||||
|
Column4.ReadOnly = .T., ;
|
||||||
|
Column4.Width = 77, ;
|
||||||
|
Column5.ColumnOrder = 6, ;
|
||||||
|
Column5.ControlSource = "inactiv", ;
|
||||||
|
- Column5.FontName = "Arial Narrow", ;
|
||||||
|
Column5.Name = "Column5", ;
|
||||||
|
Column5.ReadOnly = .T., ;
|
||||||
|
Column5.Sparse = .F., ;
|
||||||
|
Column5.Width = 48, ;
|
||||||
|
Column6.ColumnOrder = 4, ;
|
||||||
|
Column6.ControlSource = "bi_numar", ;
|
||||||
|
- Column6.FontName = "Arial Narrow", ;
|
||||||
|
Column6.Name = "Column6", ;
|
||||||
|
Column6.ReadOnly = .T., ;
|
||||||
|
Column6.Width = 66
|
||||||
|
@@ -2343,106 +2276,94 @@ DEFINE CLASS frm_delegati AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
ADD OBJECT 'gdelegati.Column1.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Client", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'gdelegati.Column1.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'gdelegati.Column1.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'gdelegati.Column2.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Delegat", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'gdelegati.Column2.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'gdelegati.Column2.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'gdelegati.Column3.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "BI_seria", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'gdelegati.Column3.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'gdelegati.Column3.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'gdelegati.Column4.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Eliberat de..", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'gdelegati.Column4.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'gdelegati.Column4.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'gdelegati.Column5.Check1' AS checkbox WITH ;
|
||||||
|
+ ADD OBJECT 'gdelegati.Column5.Check1' AS _checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
Caption = "", ;
|
||||||
|
Centered = .T., ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Height = 17, ;
|
||||||
|
Left = 16, ;
|
||||||
|
Name = "Check1", ;
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
Top = 71, ;
|
||||||
|
Width = 60
|
||||||
|
- *< END OBJECT: BaseClass="checkbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'gdelegati.Column5.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "Inactiv", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
ADD OBJECT 'gdelegati.Column6.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
Caption = "BI_numar", ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT 'gdelegati.Column6.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT 'gdelegati.Column6.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
- FontName = "Arial Narrow", ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1"
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
PROCEDURE actualizeaza_grid1
|
||||||
|
LPARAMETERS pcFiltru
|
||||||
|
@@ -2874,14 +2795,14 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Name = "Responsabill"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT '_gnom_responsabili.Column1.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT '_gnom_responsabili.Column1.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_gnom_responsabili.Column2.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
@@ -2889,16 +2810,16 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT '_gnom_responsabili.Column2.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT '_gnom_responsabili.Column2.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
- ADD OBJECT '_gnom_responsabili.Column3.Check1' AS checkbox WITH ;
|
||||||
|
+ ADD OBJECT '_gnom_responsabili.Column3.Check1' AS _checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
Caption = "", ;
|
||||||
|
Centered = .T., ;
|
||||||
|
@@ -2908,7 +2829,7 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
Top = 30, ;
|
||||||
|
Width = 60
|
||||||
|
- *< END OBJECT: BaseClass="checkbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_gnom_responsabili.Column3.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
@@ -2916,7 +2837,7 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT '_gnom_responsabili.Column4.Check1' AS checkbox WITH ;
|
||||||
|
+ ADD OBJECT '_gnom_responsabili.Column4.Check1' AS _checkbox WITH ;
|
||||||
|
Alignment = 0, ;
|
||||||
|
Caption = "", ;
|
||||||
|
Centered = .T., ;
|
||||||
|
@@ -2926,7 +2847,7 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
ReadOnly = .T., ;
|
||||||
|
Top = 30, ;
|
||||||
|
Width = 60
|
||||||
|
- *< END OBJECT: BaseClass="checkbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_gnom_responsabili.Column4.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
@@ -2940,14 +2861,14 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT '_gnom_responsabili.Column5.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT '_gnom_responsabili.Column5.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT 'But_modifica1' AS but_modifica WITH ;
|
||||||
|
Left = 415, ;
|
||||||
|
@@ -3305,14 +3226,14 @@ DEFINE CLASS frm_tipc AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT '_grdrow1.Column1.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
@@ -3320,14 +3241,14 @@ DEFINE CLASS frm_tipc AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT '_grdrow1.Column2.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ;
|
||||||
|
Alignment = 2, ;
|
||||||
|
@@ -3335,13 +3256,13 @@ DEFINE CLASS frm_tipc AS _frmbase OF "..\..\comun\clase\_frm_base.vcx"
|
||||||
|
Name = "Header1"
|
||||||
|
*< END OBJECT: BaseClass="header" />
|
||||||
|
|
||||||
|
- ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ;
|
||||||
|
+ ADD OBJECT '_grdrow1.Column3.Text1' AS _textbox WITH ;
|
||||||
|
BackColor = 255,255,255, ;
|
||||||
|
BorderStyle = 0, ;
|
||||||
|
ForeColor = 0,0,0, ;
|
||||||
|
Margin = 0, ;
|
||||||
|
Name = "Text1", ;
|
||||||
|
ReadOnly = .T.
|
||||||
|
- *< END OBJECT: BaseClass="textbox" />
|
||||||
|
+ *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" />
|
||||||
|
|
||||||
|
ENDDEFINE
|
||||||
50
docs/diff_runda1_oproceduri_M1_M4.patch
Normal file
50
docs/diff_runda1_oproceduri_M1_M4.patch
Normal file
@@ -0,0 +1,50 @@
|
|||||||
|
diff --git "a/D:\\ROA\\ROAREGISTRATURA\\Programe\\oproceduri_roaregistratura.prg.pre_runda1.bak" "b/D:\\ROA\\ROAREGISTRATURA\\Programe\\oproceduri_roaregistratura.prg"
|
||||||
|
index a6462e9..e4b8274 100644
|
||||||
|
--- "a/D:\\ROA\\ROAREGISTRATURA\\Programe\\oproceduri_roaregistratura.prg.pre_runda1.bak"
|
||||||
|
+++ "b/D:\\ROA\\ROAREGISTRATURA\\Programe\\oproceduri_roaregistratura.prg"
|
||||||
|
@@ -16,7 +16,7 @@ lcSelect = [select id_reg, id_part, denumire, id_pers, pers_contact, data, numar
|
||||||
|
|
||||||
|
lcOrder = []
|
||||||
|
lcgroup = []
|
||||||
|
-lcFiltru = [sters=0]
|
||||||
|
+lcFiltru = [sters=0 and id_reg=(select max(id_reg) from vregistratura where sters=0)] && *!* 23.07.2026 MM - initial doar ultimul document (P4)
|
||||||
|
lcFiltruOriginal = []
|
||||||
|
llModParam = .T.
|
||||||
|
llAfiseaza = .F.
|
||||||
|
@@ -103,12 +103,18 @@ Parameters toRegistratura
|
||||||
|
Local loRegistratura
|
||||||
|
loRegistratura = toRegistratura
|
||||||
|
|
||||||
|
+*!* 23.07.2026 MM - garda partener NULL/empty (P2), functia intoarce .T./.F.
|
||||||
|
+If Isnull(loRegistratura.id_part) Or Empty(loRegistratura.id_part)
|
||||||
|
+ AMESSAGEBOX("Alegeti partenerul inainte de salvare!",0+48,"Atentie")
|
||||||
|
+ Return .F.
|
||||||
|
+Endif
|
||||||
|
+
|
||||||
|
Local lcId_reg, lcId_part, lcId_pers, lcData, lcNumar, lcData_intern, lcNumar_intern, lcDescriere, lcObservatii, lcIdUtil
|
||||||
|
Local lnSucces
|
||||||
|
lnSucces = -1
|
||||||
|
|
||||||
|
lcId_reg = Alltrim(Str(loRegistratura.id_reg))
|
||||||
|
-lcId_part = Alltrim(Str(loRegistratura.id_part))
|
||||||
|
+lcId_part = Nvl(Alltrim(Str(loRegistratura.id_part)),'NULL')
|
||||||
|
lcId_pers = Nvl(Alltrim(Str(loRegistratura.id_pers)),'NULL')
|
||||||
|
lcId_responsabil = Nvl(Alltrim(Str(loRegistratura.id_responsabil)),'NULL')
|
||||||
|
lcData = Dtos(loRegistratura.Data)
|
||||||
|
@@ -120,7 +126,7 @@ lcDescriere = Nvl(Alltrim(loRegistratura.descriere),"")
|
||||||
|
lcObservatii = Nvl(Alltrim(loRegistratura.observatii)," ")
|
||||||
|
lcId_fdoc = Nvl(Alltrim(Str(loRegistratura.id_fdoc)),'NULL')
|
||||||
|
lcId_mediu = Nvl(Alltrim(Str(loRegistratura.id_mediu)),'NULL')
|
||||||
|
-lcNr_pag = Alltrim(Str(loRegistratura.nr_pag))
|
||||||
|
+lcNr_pag = Nvl(Alltrim(Str(loRegistratura.nr_pag)),'NULL')
|
||||||
|
lcIdUtil = Alltrim(Str(gnIdUtil))
|
||||||
|
|
||||||
|
lcSql = [begin pack_registratura.modifica_registratura(] + lcId_reg + [,] + lcId_part + [,] + lcId_pers + [,] + lcId_responsabil + ;
|
||||||
|
@@ -134,6 +140,7 @@ If lnSucces < 0
|
||||||
|
AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare")
|
||||||
|
Endif
|
||||||
|
|
||||||
|
+Return (lnSucces >= 0)
|
||||||
|
Endproc && modifica_reg_dg
|
||||||
|
***-----------------------------------------------------------------------------------------------------------------------------
|
||||||
|
|
||||||
23
docs/diff_runda1_outlook_M2.patch
Normal file
23
docs/diff_runda1_outlook_M2.patch
Normal file
@@ -0,0 +1,23 @@
|
|||||||
|
diff --git "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\outlook2003bar.vc2.pre_runda1.bak" "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\outlook2003bar.vc2"
|
||||||
|
index 1edf6f1..acf200b 100644
|
||||||
|
--- "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\outlook2003bar.vc2.pre_runda1.bak"
|
||||||
|
+++ "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\outlook2003bar.vc2"
|
||||||
|
@@ -1009,7 +1009,8 @@ DEFINE CLASS panelbutton AS container
|
||||||
|
PROCEDURE do_arata_formular
|
||||||
|
LOCAL loPagina
|
||||||
|
loPagina = goFundal._pgfrmbase1.page3
|
||||||
|
- IF !loPagina.ct_part_nr_data1.llock
|
||||||
|
+ *!* 23.07.2026 MM - partener NULL: fara prompt/salvare, raman in editare (P1/P2)
|
||||||
|
+ IF !loPagina.ct_part_nr_data1.llock AND !(ISNULL(goRegistratura.id_part) OR EMPTY(goRegistratura.id_part))
|
||||||
|
LOCAL lnRaspuns
|
||||||
|
loPagina.ct_part_nr_data1.llock = .T.
|
||||||
|
|
||||||
|
@@ -1134,7 +1135,7 @@ DEFINE CLASS splitter2 AS shape && Up-Down Splitter class. Support ActiveX con
|
||||||
|
*</DefinedPropArrayMethod>
|
||||||
|
|
||||||
|
HIDDEN hiddencontrols
|
||||||
|
- PROTECTED Init,MouseDown
|
||||||
|
+ PROTECTED Init,mousedown
|
||||||
|
*<PropValue>
|
||||||
|
Height = 4
|
||||||
|
MousePointer = 7
|
||||||
36
docs/diff_runda2_mesaj_cautare_firma_goala.patch
Normal file
36
docs/diff_runda2_mesaj_cautare_firma_goala.patch
Normal file
@@ -0,0 +1,36 @@
|
|||||||
|
diff --git a/Clase/ferestre_registratura.vc2.pre_runda2.bak b/Clase/ferestre_registratura.vc2
|
||||||
|
index d38ff69..3c34fd1 100644
|
||||||
|
--- a/Clase/ferestre_registratura.vc2.pre_runda2.bak
|
||||||
|
+++ b/Clase/ferestre_registratura.vc2
|
||||||
|
@@ -1170,6 +1170,7 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx"
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE do_cauta
|
||||||
|
+ Lparameters plQuiet
|
||||||
|
Local lcFiltru
|
||||||
|
lcFiltru = ""
|
||||||
|
|
||||||
|
@@ -1212,7 +1213,9 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx"
|
||||||
|
|
||||||
|
This.actualizeaza_grid1(lcFiltru)
|
||||||
|
If Reccount('cRegistratura')=0
|
||||||
|
- aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
|
||||||
|
+ If !plQuiet
|
||||||
|
+ aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
|
||||||
|
+ Endif
|
||||||
|
|
||||||
|
Select cRegistratura
|
||||||
|
Scatter Name goRegistratura Memo Blank
|
||||||
|
diff --git a/Clase/ofundal_registratura.vc2.pre_runda2.bak b/Clase/ofundal_registratura.vc2
|
||||||
|
index 0fdd7a9..d76c20f 100644
|
||||||
|
--- a/Clase/ofundal_registratura.vc2.pre_runda2.bak
|
||||||
|
+++ b/Clase/ofundal_registratura.vc2
|
||||||
|
@@ -269,7 +269,7 @@ DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx"
|
||||||
|
podg_link.but_termin1.Click()
|
||||||
|
Endif
|
||||||
|
|
||||||
|
- This.ct_registratura1.do_cauta()
|
||||||
|
+ This.ct_registratura1.do_cauta(.T.)
|
||||||
|
ENDPROC
|
||||||
|
|
||||||
|
PROCEDURE Page3.Activate
|
||||||
@@ -25,7 +25,7 @@ _LegalTrademark = ""
|
|||||||
_ProductName = " ROA - Registratura"
|
_ProductName = " ROA - Registratura"
|
||||||
_MajorVer = "2"
|
_MajorVer = "2"
|
||||||
_MinorVer = "0"
|
_MinorVer = "0"
|
||||||
_Revision = "5"
|
_Revision = "4"
|
||||||
_LanguageID = "Romana"
|
_LanguageID = "Romana"
|
||||||
_AutoIncrement = "0"
|
_AutoIncrement = "0"
|
||||||
*</DevInfo>
|
*</DevInfo>
|
||||||
@@ -125,7 +125,6 @@ WITH loProject.FILES
|
|||||||
.ADD('comun\clase\caut_ora.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
.ADD('comun\clase\caut_ora.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
.ADD('comun\clase\cauta_alfa_forms.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
.ADD('comun\clase\cauta_alfa_forms.vcx') && *< FileMetadata: Type="V" Cpid="1252" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
.ADD('comun\clase\cautare.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
.ADD('comun\clase\cautare.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
.ADD('comun\clase\chatbot.bmp') && *< FileMetadata: Type="x" Cpid="0" Timestamp="0" ID="0" ObjRev="0" User="" />
|
|
||||||
.ADD('comun\clase\cmd_butoane.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
.ADD('comun\clase\cmd_butoane.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
.ADD('comun\clase\crypto.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
.ADD('comun\clase\crypto.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
.ADD('comun\clase\decabaza.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
.ADD('comun\clase\decabaza.vcx') && *< FileMetadata: Type="V" Cpid="0" Timestamp="0" ID="0" ObjRev="544" User="" />
|
||||||
|
|||||||
Reference in New Issue
Block a user