ADutheil

Veja se isso ajuda: oExcel:ActiveWorkbook:CheckCompatibility := .F. oExcel:ActiveWorkbook:SaveAs( "nome do arquivo que quer salvar" )

se vc baixar o Harbour com git clone https://github.com/harbour/core harbour deve encontar os .HBC em cada pasta das contrib. Seu windows 7 tem o SP1? O powershell so veio a partir do SP1.

Vc tem que criar os arquivos para indicar onde ficam as LIBs que vai usar. Veja o exemplo que mandei acima.

Rapido é o cliente vavlog é um dos sistemas includes a pasta onde ficam os arquivos CH especificos do sistema.

Não sei o que é este go.bat. Peguei um PC velho que estava encostado no escritório e baixei o visual studio community: https://visualstudio.microsoft.com/pt-br/vs/community/?msclkid=9c4df97dc25d11ec9dc3034536b5bc50 Mandei instalar e só selecionei desenvolvimento para desktop com c++. Copiei meu velho harbour para msvc, o FWH, e uma pasta de prg de um cliente. Criei um novo BAT deve ser seu seu GO.BAT. if defined LIBPATH goto compila call "c:\Program Files\Microsoft Visual Studio\2022\Community\vc\Auxiliary\Build\vcvarsall.bat" x86 SET INCLUDE=%include%;C:\fwh\include;C:\Rapido\vavlog\Includes SET PATH=%PATH%;C:\core-master\bin\win\msvc :compila del vav.exe hbmk2 -ldflag=/NODEFAULTLIB:msvcrt vav.hbm C:\core-master\contrib\hbcurl\hbcurl.hbc C:\FWH\fwhc32.hbc hbmisc.hbc -inc echo terminou if defined LIBPATH goto compila call "c:\Program Files\Microsoft Visual Studio\2022\Community\vc\Auxiliary\Build\vcvarsall.bat" x86 SET INCLUDE=%include%;C:\fwh\include;C:\Rapido\vavlog\Includes SET PATH=%PATH%;C:\core-master\bin\win\msvc :compila del vav.exe hbmk2 -ldflag=/NODEFAULTLIB:msvcrt vav.hbm C:\core-master\contrib\hbcurl\hbcurl.hbc C:\FWH\fwhc32.hbc hbmisc.hbc -inc echo terminou No meu vav.hbm tem .\SOURCES\VAV.PRG #.\SOURCES\VAV_PRN.PRG .\SOURCES\VAV_FUN.PRG .\SOURCES\VAV_ARQ.PRG .\SOURCES\VAV_PDV.PRG .\SOURCES\VAV_MOV.PRG .\SOURCES\VAV_REL.PRG .\SOURCES\VAV_ROT.PRG .\SOURCES\VAV_ZON.PRG .\SOURCES\VAV_ENC.PRG .\SOURCES\VAV_RE2.PRG .\SOURCES\VAV_RE3.PRG .\SOURCES\VAV_RE4.PRG .\SOURCES\VAV_ITG.PRG .\SOURCES\VAV_BAR.PRG .\SOURCES\VAV_HOR.PRG .\RES\VAV.RC No fwhc32.hbc tem {win}gt=gtgui {win}libs=KERNEL32 USER32 GDI32 WINSPOOL COMCTL32 COMDLG32 ADVAPI32 SHELL32 OLE32 OLEAUT32 UUID ODBC32 ODBCCP32 IPHLPAPI MPR VERSION WSOCK32 MSIMG32 OLEDLG PSAPI GDIPLUS WINMM {win}libs=HBWIN HBCT HBMEMIO PNG HBTIP XHB HBMZIP HBZIPARC MINIZIP #HBCURL #HBSSL #MINIZIP HBZIPARC HBMZIP #HBMISC #HBTIPSSL LIBEAY32 SSLEAY32 libpaths=C:\FWH\LIB libs=FIVEHC32 FIVEH32 executei meu bat e listo el pollo.

se vc usar or vcvarsall e hbmk2 vc não precisa saber de mais nada a respeito dos arquivos do compilado. Funciona todo por si só.

Já faz um bom tempo que só uso ele e funciona muito bem. Sou das antigas então uso um editor de texto simples para os PRGs, nada de ferramenta especial, e um prompt de comando para compilar. O importante é vc preparar o ambiente e chamar o BAT vcvarsall que vem com o compilador. O meu é assim: if defined LIBPATH goto compila if exist "%ProgramFiles(x86)%\Microsoft Visual Studio\2017\Community\VC\Auxiliary\Build\vcvarsall.bat" goto setambiente2017 if exist "%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" goto setambiente2015 goto problema :setambiente2015 call "C:\Program Files (x86)\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" goto setresto :setambiente2017 call "%ProgramFiles(x86)%\Microsoft Visual Studio\2017\Community\VC\Auxiliary\Build\vcvarsall.bat" x86 goto setresto :setresto SET INCLUDE=%include%;D:\fwh\include;D:\Rapido\ASSlog\Includes SET PATH=%PATH%;D:\core-master\bin\win\msvc :compila hbmk2 -ldflag=/NODEFAULTLIB:msvcrt ass.hbm D:\FWH\fwhc32.hbc hbmisc.hbc -inc goto end :problema echo Compilador C nao encontrado goto :end :end echo terminou não atualizo o compilador há muito tempo mas acredito que deve ser bem parecido com versões mais recentes. Meu harbour fica em core-master porque eu compilo ele diretamente dos fontes.

Com xBrowse eu tentaria assim: oBrowse:aCols[ número da coluna que quer ]:nWidth

Salvo o SQLRdd é 6 por meia duzia. Os purista em C dizem que algumas partes do xHarbour poderiam ser melhoradas. O harbour ainda tem atualizações esporadicas.

O meu fica em C:\Program Files (x86)\Microsoft SDKs\Windows\v7.1A\Lib

Como falei so uso para controle de vencimento. Faço o upload do arquivo com a data atraves do filezila e depois a leitura é feita conforme a função que segue FUNCTION Vencido // TESTADO OK em 26/04/2017 LOCAL lRetu := .F. LOCAL oIE LOCAL cData LOCAL nI := 0 LOCAL nHndl LOCAL cChav := hb_blowfishKey( "Z$k8n&x2@KNoPtq.#-4" ) LOCAL cTemp := "" oIE := CREATEOBJECT( "InternetExplorer.Application" ) WITH OBJECT oIE :Visible := .F. :ToolBar := .F. :StatusBar := .F. :MenuBar := .F. :FullScreen := .F. :Left:=150 :Top:=150 END WITH oIE:Navigate2( "ftp://b33_28892872:minhasenhahobyehost@ftp.byethost33.com/htdocs/Vencimento_da_empresa_X.txt" ) WHILE oIE:busy SysRefresh() ENDDO oIE:Refresh() //Para não pegar no cache WHILE oIE:busy SysRefresh() ENDDO cData := oIE:Document:body:innerText() oIE:Quit() // limpa o internet explorer da memória IF !empty( cToD( cData ) ) // encontrou a data nHndl := fCreate( "SCREENS.DLL" ) // para disfarçar o arquivo local em DLL fWrite( nHndl, CarregaVariaveis( cData, cChav ) ) fClose( nHndl ) repa->( ordSetFocus( "DCOD" ), dbGoBottom() ) IF repa->DATA > cToD( cData ) dbCloseAll() msgStop( "PENDENCIA FINANCEIRA." + CRLF + "CONTATE O SUPORTE.", "Atenção" ) lRetu := .T. ENDIF ELSE IF file( "SCREENS.DLL" ) nHndl := fOpen( "SCREENS.DLL" ) WHILE hb_fReadLine( nHndl, @cTemp ) == 0 // CONTA TOTAL DE LINHAS ENDDO fClose( nHndl ) repa->( ordSetFocus( "DCOD" ), dbGoBottom() ) IF repa->DATA > cToD( subStr( hb_blowfishDecrypt( cChav, subStr( cTemp, 42 ) ), 1, 10 ) ) dbCloseAll() msgStop( "PENDENCIA FINANCEIRA." + CRLF + "CONTATE O SUPORTE.", "Atenção" ) lRetu := .T. ENDIF cToD( subStr( hb_blowfishDecrypt( cChav, subStr( cTemp, 42 ) ), 1, 10 ) ) ENDIF ENDIF RETURN lRetu STATIC FUNCTION CarregaVariaveis( cData, cChav ) LOCAL cPar1 := "MPZ !This program must be run under Win32" // para disfarçar o arquivo local em DLL LOCAL nI FOR nI := 1 TO 100 /// So para aumentar o tamanho do arquivo cData += "curl_easy_setopt( cUrl, HB_CURLOPT_DL_BUFF_SETUP )" cData += "cIpEx := curl_easy_dl_buff_get( cUrl )" cData += "IF !empty( cUrl := curl_easy_init() )" cData += [ curl_easy_setopt( cUrl, HB_CURLOPT_URL, "http://checkip.dyndns.org" ) ] NEXT RETURN cPar1 + hb_blowfishEncrypt( cChav, cData ) Funciona sem alteração desde 1997.

Uso para avisar os clientes e travar os sistemas caso não pagem em dia. Cada sistema meu quando entra carrega um arquivo local criptografado e verifica se a data escondida em uma posição especifica já chegou. Se já venceu vai para o FTP carrega um arquivo com a data de vencimento e compara com a data local. Se o local for menor que o FTP atualizo o arquivo local com a nova data, se for menor mando um dialog de aviso que está com pagamento atrasado e sai do sistema. Não pego a data do sistema operacional. Como todos os meus sistemas são utilizados para distribuição de produtos pego a maior data de um arquivo com movimento de produto. Tem funcionado perfeitamento há anos. Para atualizações uso o Onedrive e mando um link para nova versão.

Só precisa criar uma conta e Vc cria um domínio. Pode usar ftp e http. Se lembro bem tem que ter um mínimo de 25 acessos por mês para conservar a conta.

Tem alguns meses que uso https://byet.host/

Porque não é compatível? Tem muito tempo que não pego no workshop mas desconfio que pode ser porque ele pede alguns include ou path no cabeçalho.