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
This commit is contained in:
2026-07-23 20:16:50 +03:00
parent f1abe5d3c5
commit f216485177
3 changed files with 11 additions and 15 deletions

View File

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

View File

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