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:
36
docs/diff_runda2_mesaj_cautare_firma_goala.patch
Normal file
36
docs/diff_runda2_mesaj_cautare_firma_goala.patch
Normal file
@@ -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
|
||||
Reference in New Issue
Block a user