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

Compare commits

base: romfast:e54c230af6c685897a4b9d999ed6bd8d3126b77a
Branches Tags
romfast:main
..
compare: romfast:b3b41a81e51ca99588bc0f065573ee69071bf6e1
Branches Tags
romfast:main

6 Commits
e54c230af6 ... b3b41a81e5

Author SHA1 Message Date
Marius Mutu
b3b41a81e5 Rezolvat: fereastra principala nu mai pornea maximizata 
fundal.scx forteaza WindowState=2 la finalul Show si arata_meniu_fluna (lantul complet de pornire ruleaza abia acum, dupa fix-ul buclei de mesaje; EXE-ul precedent era din 2021).

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
 2026-07-23 20:48:15 +03:00
Marius Mutu
5ed7bd3e61 Diff-urile de audit raman locale (intermediare de review, nu se versioneaza) 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
 2026-07-23 20:35:43 +03:00
Marius Mutu
55471e6168 Rezolvat: grid registratura decuplat de cursor la intrarea pe firma fara inregistrari 
do_initializeaza_cursor detaseaza/reataseaza gridul (save/restore_grid_tag) in jurul recrearii cursorului, ca in actualizeaza_grid1. .pj2: versiune 2.0.5 + chatbot.bmp (din rebuild IDE).

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
 2026-07-23 20:32:45 +03:00
Marius Mutu
f216485177 Rezolvat: mesajul "Cautarea nu a intors rezultate!" reaparea la nesfarsit pe firma fara inregistrari 
do_cauta primeste plQuiet; apelul automat din Page2.Activate e silentios, mesajul ramane doar la cautarea explicita. Changelog 2.0.5 rescris minimal.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
 2026-07-23 20:16:50 +03:00
Marius Mutu
f1abe5d3c5 Repathing .pjx (FFC pe copii locale clase\, ctl32 pe comun\utile\ctl32) + SET PATH include-uri in build_registratura 
Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
 2026-07-23 20:06:41 +03:00
Marius Mutu
6769eb61d1 Registratura: adaugare/editare fara erori la partener NULL, lista doar ultimul document, fonturi Arial 10 (M1-M5) 
M1 modifica_reg_dg: garda id_part NULL/empty (mesaj + Return .F.), NVL pe id_part/nr_pag, functia intoarce succes.
M2 validare partener in toate cele 3 puncte de salvare, INAINTE de blocarea campurilor (Command2.Click salveaza inainte sa blocheze; bara laterala si Page3.Deactivate nu mai salveaza/prompteaza cu partener NULL).
M3 do_adauga: documentul nou intra direct in editare (llock=.F., focus cmdDenumire); eliminat mesajul fals "Toate modificarile au efect imediat!".
M4 viz_registratura + do_cauta: filtru initial "doar ultimul document" (subquery max(id_reg)); fara criterii de cautare se pastreaza filtrul, nu se incarca toata baza.
M5 fonturi: eliminate 154 suprascrieri "Arial Narrow" si rebazate 96 controale baseclass pe COMUN _baza.vcx (textbox/label/checkbox/commandbutton/optiongroup); Init de grid propaga fontul la coloane si headere (fara asta raman Arial 9 - verificat empiric).

Teste: harness headless (init env dedicat, form, adaugare+editare cu verificare in baza) + test UI vizual cu screenshots pe fluxul real (19 PASS / 0 FAIL). Diff-uri de audit in docs/diff_runda1_*.patch.

M6 (build EXE) BLOCAT headless: roaRegistratura.pjx refera 48 fisiere hardcodate pe "c:\program files\...\vfp 9" (masina 32-bit din 2021) + COMUN\utile\hpdf\ReportOutput\ctl32_progressbar.vcx redenumit _old; necesita repathing o data in VFP9 IDE.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
 2026-07-23 18:53:12 +03:00
11 changed files with 86 additions and 2126 deletions
Expand all files Collapse all files

1
.gitignore vendored
View File

@@ -103,3 +103,4 @@ 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

2
Clase/ferestre_registratura.vc2
View File

@@ -1226,7 +1226,9 @@ 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

2
Ferestre/fundal.sc2
View File

@@ -341,6 +341,7 @@ 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
@@ -358,6 +359,7 @@ 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

79
Teste/test_repro_grid_firma_goala.prg Normal file
View File

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

1105
docs/diff_runda1_ferestre_M2_M3_M4_M5.patch
View File

File diff suppressed because it is too large Load Diff

17
docs/diff_runda1_ofundal_M2.patch
View File

@@ -1,17 +0,0 @@
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
View File

@@ -1,894 +0,0 @@
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
View File

@@ -1,50 +0,0 @@
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
View File

@@ -1,23 +0,0 @@
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
View File

@@ -1,36 +0,0 @@
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

3
roaRegistratura.pj2
View File

@@ -25,7 +25,7 @@ _LegalTrademark = ""
_ProductName = " ROA - Registratura" _ProductName = " ROA - Registratura"
_MajorVer = "2" _MajorVer = "2"
_MinorVer = "0" _MinorVer = "0"
_Revision = "4" _Revision = "5"
_LanguageID = "Romana" _LanguageID = "Romana"
_AutoIncrement = "0" _AutoIncrement = "0"
*</DevInfo> *</DevInfo>
@@ -125,6 +125,7 @@ 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="" />