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:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user