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 0c0bef5435
commit e54c230af6
4 changed files with 47 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