Eroni

ADutheil, grato pela sua resposta, resolvi migrar o MSVC de 2017 para 2019 estou terminando de recompilar alguns pequenos projetos, a seguir vou continuar a migração do xHarbour para o Harbour. Sem dúvida sua postagem vai servir de guia para mim e para todos que optarem por este caminho. Vou tentar postar aqui meu progresso para que outros possam aproveitar também. Mais uma vez, obrigado.

Eu trabalho com prompt de comando e tenho um arquivo bat em cada pasta raiz de cada sistema que desenvolvo.
Como dependendo da máquina que utilizo tenho versões diferentes do MS-VC meu bat tem 2 opções.
Meu harbour é compilado por minha conta. Fica em D:\core-master. Meu FW fica em D:\fwh\
Todos os meus sistemas são desenvolvidos com a mesma estrutura de pastas;
D:\Projetos\nomedoprojeto onde fica o bat de compilaçao e um arquivo .hbm com os fontes e resources que quero compilar.
D:\Projetos\nomedoprojeto\sources ficam os prg
D:\Projetos\nomedoprojeto\res ficam o arquivos .rc com as telas do sistema
D:\Projetos\nomedoprojeto\includes ficam os arquivos .ch do sistema
No exemplo a seqguir o projeto se chama atalog  e o sistema ass 
arquivo bat
================================================================
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:\Projetos\ATAlog\Includes
SET PATH=%PATH%;D:\core-master\bin\win\msvc
:compila
del ATA.exe
del d:\xprojetos\atalog\ata.exe
del d:\xprojetos\atalog\hb_out.log
hbmk2 -ldflag=/NODEFAULTLIB:msvcrt ata.hbm D:\FWH\fwhc32.hbc hbmisc.hbc -inc
copy ata.exe D:\xprojetos\atalog /y
D:
cd\xprojetos\atalog
ata
cd\projetos\atalog
goto end
:problema
echo Compilador C nao encontrado
goto :end
:end
echo terminou
================================================================

arquivo hbm
================================================================
.\SOURCES\ATA.PRG
.\SOURCES\ATA_ARQ.PRG
.\SOURCES\ATA_ASS.PRG
.\SOURCES\ATA_BOL.PRG
.\SOURCES\ATA_CAR.PRG
.\SOURCES\ATA_CRE.PRG
.\SOURCES\ATA_CTO.PRG
.\SOURCES\ATA_ENT.PRG
.\SOURCES\ATA_ERR.PRG
.\SOURCES\ATA_FUN.PRG
.\SOURCES\ATA_GOO.PRG
.\SOURCES\ATA_GRF.PRG
.\SOURCES\ATA_HIS.PRG
.\SOURCES\ATA_IMP.PRG
.\SOURCES\ATA_IOS.PRG
.\SOURCES\ATA_LBC.PRG
.\SOURCES\ATA_LBF.PRG
.\SOURCES\ATA_LBI.PRG
.\SOURCES\ATA_LST.PRG
.\SOURCES\ATA_MOT.PRG
.\SOURCES\ATA_PRD.PRG
.\SOURCES\ATA_PRO.PRG
.\SOURCES\ATA_REC.PRG
.\SOURCES\ATA_TIR.PRG
.\SOURCES\ATA_ZON.PRG
#  // interior
.\SOURCES\ATA_INT.PRG
.\RES\ATA.RC
================================================================
Na pasta do FWH fica o arquivo fwhc32.hbc
================================================================
{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 
#HBSSL
#HBMISC
#HBTIPSSL LIBEAY32 SSLEAY32
libpaths=D:\FWH\LIB
libs=FIVEHC32 FIVEH32
================================================================
tem algumas libs comentada porque so uso em alguns projetos especificos
 

Retornar número da linha: oGetMemo:GetRow()
Retornar número da coluna: oGetMemo:GetCol()

Bom dia,
Segue o que eu uso, procure por "756" no código.
Abraço.
oboleto.prg

Bom dia,
Segue o que eu uso, procure por "756" no código.
Abraço.
oboleto.prg

A long long time ago. Achei que tinha perdido.... Aprendi pra kcte com este exemplo.
 
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=34392
 
Creio vá servir para outros iniciantes em Fivewin.
 
Abs.

My dear, una imagen habla por si solo.  kkkkkkkkkkkkkkkkkkkkk
 

 
Abs.

Bom dia, obrigado Kapiaba, você é o cara, mas... aqui deve ser problema de versão, o código não dá erro, mas não funciona, não mostra.

Bom dia, erro 2003 ou o servidor está off, ou as credenciais ( usuário, senha, porta, firewall... )
 

Bom dia, esta versão acessa mysql nativo sem precisar de outro rdd? Estou usando atualmente o SqlRdd mas to querendo mudar, mas só uso para conectar e rodar comandos, uma classe nativa seria melhor, não precisaria de tantas libs, além do mais tem o problema de a conexão cair e não conseguir gerenciar pelo sistema.

Tenho cliente que faz direto estas operações, posso pegar com ele se não for apenas assunto para o Toya.

/* // baseado em exemplo disponibilizado na Seção de Downloads pelo // Pablo César do PcToledo. */ #Include "FiveWin.ch" #Include "hbcompat.ch" Function Main()    LOCAL cRetHr    // Alert( STRTRAN( PegaDtHrBrasilia(), '*',';' )  )    cRetHr := MsgRun( "Verificando a Hora de Brasilia.", ;                      "Por Favor, Espere!"             , ;                      { || STRTRAN( PegaDtHrBrasilia(), '*',';' ) } )    ? "Hora de Brasilia: ", cRetHr RETURN NIL Function PegaDtHrBrasilia()    Local OOLE, CDIA, CMES, CANO, CDATA, CHORA    Local cRet := "", cPagina := ""    Local cTexto := "Local time in Brasilia"    IF ( oOle := Cria_OLE( "InternetExplorer.Application", , .T. ) ) == NIL       RETURN( .F. )    ENDIF    oOle:Visible   := .F. // Apresenta o Browser    oOle:ToolBar   := .F. // Desativa a barra de ferramentas    oOle:StatusBar := .F. // Desativa a barra de status    oOle:MenuBar   := .F. // desativa a barra de menu    oOle:Navigate("http://www.timeanddate.com/worldclock/fullscreen.html?n=45")        WHILE oOle:ReadyState() != 4  // Aguarda página ser carregada, mesmo q não seja visualizado no Navegador (opão Visible := F ou T)       SysWait( .5 )    ENDDO    *** Retrieve the entire HTML document as a string    cPagina := oOle:Document():Body:InnerText     oOle := NIL    If cTexto $ cPagina       cPagina := Substr(cPagina,At(cTexto,cPagina)+25)       cPagina := Substr(cPagina,At(",",cPagina)+1)       cPagina := Alltrim(Substr(cPagina,1,At(CRLF,cPagina)+11))       cDia := Strzero(Val(Substr(cPagina,1,At(" ",cPagina))),2,0)       cPagina := Substr(cPagina,At("de ",cPagina)+3)       cMes := VqMes(lower(Alltrim(Substr(cPagina,1,At(" ",cPagina)))))       cPagina := Substr(cPagina,At("de ",cPagina)+3)       cAno := Substr(cPagina,1,At(CRLF,cPagina)-1)       cPagina := Substr(cPagina,At(CRLF,cPagina)+2)       cData := cDia+"/"+cMes+"/"+cAno       cHora := Substr(cPagina,1,8)       cRet := cData+'*'+cHora    Else       cRet := "Ocorreu um Erro"    Endif Return( cRet ) ******************************************************************************** Function VqMes(cText)    Local cNMes    Do Case       Case cText=="janeiro"            cNMes := "01"       Case cText=="fevereiro"            cNMes := "02"       Case cText=="março"            cNMes := "03"       Case cText=="abril"            cNMes := "04"       Case cText=="maio"            cNMes := "05"       Case cText=="junho"            cNMes := "06"       Case cText=="julho"            cNMes := "07"       Case cText=="agosto"            cNMes := "08"       Case cText=="setembro"            cNMes := "09"       Case cText=="outubro"            cNMes := "10"       Case cText=="novembro"            cNMes := "11"       Case cText=="dezembro"            cNMes := "12"          EndCase Return( cNMes ) //------------------------------------------------------------------------------ FUNCTION Cria_OLE(cObj_OLE, cMsg, lGetActiveObj)    /* Cria objeto Ole */    LOCAL oObj_OLE := NIL    cMsg:='Erro ao tentar carregar objeto...Tente novamente'    lGetActiveObj:=.F.    IF lGetActiveObj       TRY          oObj_OLE := GetActiveObject( cObj_OLE )       CATCH          TRY             oObj_OLE := CREATEOBJECT(cObj_OLE)          CATCH             Alert(cMsg)             RETURN oObj_OLE          END       END    ELSE       TRY          oObj_OLE := CREATEOBJECT(cObj_OLE)       CATCH          Alert( cMsg )          RETURN oObj_OLE       END    ENDIF RETURN oObj_OLE // FIM

Bom dia, até a versão 1.8 eu sei que está funcionando, porque testei as funcionalidades, mas essa ai não sei ainda, vou ler e testar.

Bom dia pessoal, acredito que este assunto é de interesse publico, alguém já poderia postar aqui sua experiência, tipo acesso a banco de dados, etc?
Eu particularmente ainda estou a procura de uma solução, pois não quero iniciar em uma ferramenta para daqui a pouco sair dela, vou aguardar mais alguns meses para decidir.
Abraços a todos.

Boa tarde, alguem já usa? Estou começando a usar e já notei que o timer não funciona mais, além daquela lentidão que já experimentava no 8 devido aquele problema no banco do brasil. Será que vamos ter que atualizar as ferramentas?

Bom dia, da maneira como o seu projeto está, acredito ser dificil gerenciar base de dados grande. Eu uso uma tabela de movimento e uma tabela de saldos, esta ultima tem o codigo do produto, a data e o saldo. Os campos data e codigo do produto são chave primaria e possuem indices. Desta forma, qualquer pesquisa é instantânea independente da quantidade de registros.

Desculpe discordar, se o Liñares não faz, você reclama! Se o Liñares faz, você reclama! Afinal, podemos ou não tentar evoluir?
Dou um exemplo: Eu não gosto do PELLESC.EXE, então quando do projeto eu perguntei se na versão deste editor, ele colocaria o EDITOR DE RECURSOS no estilo WORKSHOP.EXE, e ele foi favorável ao meu pedido.
Só vou criticar, e vou fazer isto diretamente a ele via email, ou diretamente no Forum inter. Pois promessa é divida.
Em minha opinião, quanto mais ferramentas melhor. Oras, se eu não gosto e não sei usar o xDev.exe, porque não ter minha própria ferramenta em FIVEWIN e com um detalhe importante: FONTES EM FIVEWIN!!! Melhor que isso, só seu conseguisse desenvolver um WORKSHOP.EXE do meu jeito...
Em vez de ficarmos criticando, porque não ajudar a evoluir?
Obg. abs.

Bom dia, Scroll sempre foi motivo de incomodação para mim, já tentou usar abas? (folder)

Boa noite, acho que este ano, se tudo der certo, vou poder comparecer. Mas falando em ADS, apenas gostaria de dizer que não uso a sintaxe xBase para manipulação de banco de dados a uns 8 anos ou mais, decidi escrever algumas classes que manipulam banco de dados usando sql puro. Desta forma, trabalho com sistema acessando banco de dados na nuvem super tranquilo. Com estas classes, tenho formas automatizadas de criar cadastros, consultas e processos de forma extremamente otimizadas e de código enxuto. Vou tentar desta vez participar do encontro.
Abraços.

Obrigado Kapiaba, na real eu uso hoje o CutePDF Writer para imprimir o danfe, pela classe do Gilmer, que por sua vez usa a tprinter. A solução que eu preciso é que não tenha que abrir a tela para que o usuário tenha que informar o arquivo. Uso a versão 1209 do fivewin. Você tem nfe e imprime Danfe?

Ressucitando o assunto, este pdfMachine permite que vc gere o pdf sem abrir a tela solicitando o nome do arquivo pelo usuário?
Abraços.