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

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
+			If !plQuiet
 				aMessagebox("Cautarea nu a intors rezultate!",0+48,"Info cautare")
+			Endif
 		
 			Select cRegistratura
 			Scatter Name goRegistratura Memo Blank

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

changelog_roaRegistratura.txt

@@ -3,23 +3,16 @@
 ROAREGISTRATURA - 2.0.5
 
 :modificare:
-  Registratura - adaugare/editare documente:
+  Dupa "Adauga", documentul nou intra direct in editare.
-  - Dupa "Adauga", documentul nou intra DIRECT in editare (butonul arata "Salveaza"),
-    fara pasul suplimentar "Modifica"; s-a eliminat mesajul eronat "Toate modificarile au efect imediat!".
-  - Salvarea unui document fara partener ales nu mai produce eroare: apare mesajul
-    "Alegeti partenerul!" iar campurile raman deblocate pentru completare.
-  - Navigarea in bara laterala (Date generale / Referinte / Observatii / Documente atasate)
-    nu mai declanseaza promptul "Doriti sa salvati modificarile facute?" cand documentul nou
-    nu are inca partener; se ramane in editare.
-  - Butonul "Salveaza" valideaza partenerul si salveaza INAINTE de blocarea campurilor.
 
 :modificare:
-  Lista documentelor se deschide pozitionata pe ULTIMUL document inregistrat (nu se mai
+  Lista documentelor se deschide pe ultimul document inregistrat; lista completa se incarca la cautare.
-  incarca toata baza la deschidere); incarcarea completa se face doar la cautare explicita.
 
 :modificare:
-  Fonturile din lista documentelor, datele documentului si nomenclatorul de parteneri au fost
+  Fonturi uniformizate in lista documentelor, datele documentului si nomenclatorul de parteneri.
-  uniformizate la Arial 10 (rebazare pe clasele comune; eliminat "Arial Narrow").
+
+:eroare:
+  Erori la salvarea unui document fara partener ales.
 -->
 <!-- 
 27/02/2014

docs/diff_runda2_mesaj_cautare_firma_goala.patch

@@ -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