Fix refresh method

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

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