Conforme instruções deste maravilhoso fórum eu fiz com sucesso a migração de compilar uma aplicação muito antiga criada com o Gaspro 4.0 e Clipper 5.2 para o Harbour 3.0.
Mas estou com um BUG que esta atrapalhando. Meu cliente possui 4 terminais onde ficam digitando informações comuns muito rapidamente e que é mostrado em uma tela gerencial em um servidor, todos os computadores estão com o windows 7 instalados ( antes era XP na versão antiga da solução )
Os Ãndices estão em CDX.
O BUG: Acontece que nesta tela gerencial os valores estão se perdendo ( duplicando / triplicando ) ou seja os Ãndices não estão funcionando.
Segue parte do código do fonte principal:
#include "wvtwin.ch"
#include "hbgtinfo.ch"
#include "hbgtwvg.ch"
#include "wvgparts.ch"
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_GT_WVT_DEFAULT
REQUEST WVT_SETCODEPAGE
REQUEST HB_GT_WVG
REQUEST HB_GT_GUI
REQUEST DESCEND
REQUEST MTAB
REQUEST NMES
REQUEST LTOC
REQUEST DBFCDX
//***************************************************************************************************
Function Main()
//***************************************************************************************************
SET AUTOPEN OFF // Para evitar que o arquivo de Ãndice (CDX) seja aberto automaticamente (impedindo a reindexação)
SET OPTIMIZE ON
SET STRICTREAD ON
SET EXACT ON
SET CENTURY ON
SET BELL OFF
SET DATE BRITISH
SET EPOCH TO 2000
SET CONFIRM ON
SET DELETED ON
SET EXACT OFF
SET SCOREBOARD OFF
SET EXCLUSIVE OFF
//*** DBFCDX Nativo ***
RddSetDefault('DBFCDX')
DBSETDRIVER('DBFCDX')
HB_SETCODEPAGE('PT850')
HB_LANGSELECT('PT')
HB_GTINFO( HB_GTI_FONTNAME , 'Consolas' )
HB_GTINFO( HB_GTI_FONTWIDTH, 18 )
HB_GTINFO( HB_GTI_FONTSIZE , 24 )
HB_GTINFO( HB_GTI_FONTNAME, "Lucida Console" )
SetMode(35,80)
SetMode( MaxRow(), MaxCol() )
HB_GTINFO( HB_GTI_CLOSABLE, .F. )
HB_GTINFO( HB_GTI_MAXIMIZED, .F. )
HB_GTINFO( HB_GTI_ISFULLSCREEN, .F. )
HB_GTINFO( HB_GTI_ISFULLSCREEN, .T. ) // coloca tela cheia
HB_GTINFO(HB_GTI_MOUSESTATUS, .F. )
*** As funções de tratamento dos arquivos e Ãndices são as mesmas apenas recompiladas.
Agradeço de alguém tiver alguma idéia que possa me ajudar.
Obrigada.