From 35e2d76d792bedeab0fa6e860c99ac197fc99791 Mon Sep 17 00:00:00 2001
From: Marco Aurelio <marcoprodata@gmail.com>
Date: Thu, 1 Apr 2021 16:00:25 -0300
Subject: [PATCH] Fix refresh method

---
 ChangeLog.txt                | 5 +++++
 contrib/hbpgsql/tpostgre.prg | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog.txt b/ChangeLog.txt
index 10edf6acec..391d8abe8c 100644
--- a/ChangeLog.txt
+++ b/ChangeLog.txt
@@ -7,6 +7,11 @@
    Entries may not always be in chronological/commit order.
    See license at the end of file. */
 
+2021-04-01 15:55 UTC-0300 Marco Aurelio V (marcoprodata/at/gmail.com)
+  * contrib/hbpgsql/tpostgre.prg
+    ! corrected buggy in refresh method when execute commands to change
+      struct 
+
 2021-03-31 23:43 UTC+0200 Aleksander Czajczynski (hb fki.pl)
   * contrib/hbpgsql/postgres.c
     ! guard PQEXECPARAMS() wrapper from generating unrecoverable error
diff --git a/contrib/hbpgsql/tpostgre.prg b/contrib/hbpgsql/tpostgre.prg
index a3a0df73e8..fb80e765fc 100644
--- a/contrib/hbpgsql/tpostgre.prg
+++ b/contrib/hbpgsql/tpostgre.prg
@@ -697,7 +697,7 @@ METHOD Refresh( lQuery, lMeta ) CLASS TPQquery
       ENDIF
 
    ELSE
-      IF ( ::lError := ::nResultStatus == PGRES_COMMAND_OK )
+      IF ( ::lError := ::nResultStatus != PGRES_COMMAND_OK )
          ::cError := ""
          ::rows   := Val( PQcmdTuples( res ) )
       ELSE