eroare validare daca nu exista internet

programe/validare.prg

@@ -1761,8 +1761,9 @@ Endfunc && ANAF_SondaPorneste
 *** .T. daca sonda in curs si-a primit raspunsul (indiferent de rezultat) sau nu exista nicio sonda activa
 *************************************
 Function ANAF_SondaAuSositRaspunsul
-	Local loEx As Exception, llSosit
-
+	Local loEx As Exception, llSosit, llEroare
+	llEroare = .F.
+	
 	If Vartype(goANAF_SondaHTTP) <> 'O'
 		Return .T.
 	Endif
@@ -1771,8 +1772,11 @@ Function ANAF_SondaAuSositRaspunsul
 		llSosit = goANAF_SondaHTTP.WaitForResponse(0)
 	Catch To loEx
 		glANAF_SondaReusita = .F.
+		llEroare = .T.
+	ENDTRY
+	IF m.llEroare
 		Return .T.
-	Endtry
+	ENDIF 
 	If m.llSosit
 		glANAF_SondaReusita = .T.
 	Endif