Eroni

Não precisa agradecer, não fiz nada, apenas estou aprendendo também.

Oi João, segue o teu JIMMYSKI.PRG: // C:\FWH..\SAMPLES\JIMMYSKI.PRG #Include "FiveWin.ch" //STATIC oBar, oGrid, oWnd, nWidth := 50 STATIC oButton FUNCTION Main() LOCAL oWnd//,oButton LOCAL cSource := GetAppName() // LOCAL cSource := GetModuleFileName( GetInstance() ) // Name .EXE LOCAL cPath, cFile PUBLIC cDirPleno PUBLIC XRESOLUCAO, XSINALSONOR //= [S] // PUBLIC WFLAGCONTABIL // := .F. // PUBLIC WFLAGPLENO // := "" // PUBLIC WFILIAL // := .F. // IF PCOUNT() > 0 // ?? IF GetActive() == Nil SkinButtons() ENDIF cPath := Pathonly( cSource ) // // MsgInfo( GETCURDIR() ) cFile := Fileonly( cSource ) DEFINE WINDOW oWnd TITLE "FiveWin SkinButtons Demo" @ 10, 10 BUTTON oButton PROMPT "Property" SIZE 74, 42 PIXEL ACTION SHOWFILEPROPERTIES( oWnd:Hwnd, cPath, cFile ) ACTIVATE WINDOW oWnd CENTERED oButton := nil RETURN NIL FUNCTION GetAppName() RETURN GetModuleFileName( GetInstance() ) FUNCTION Pathonly( cFull ) LOCAL cRet := "" // // ERROR Chinese Char? LOCAL nPosi nPosi := RAT( "\", cFull ) IF nPosi > 0 cRet := SUBSTR( cFull, 1, nPosi - 1 ) ENDIF RETURN( cRet ) FUNCTION Fileonly( cFull ) LOCAL cRet := "" // // ERROR Chinese Char? LOCAL nPosi nPosi := RAT( "\", cFull ) IF nPosi > 0 cRet := SUBSTR( cFull, nPosi + 1 ) ENDIF RETURN cRet #pragma BEGINDUMP #include <windows.h> #include <commctrl.h> #include <dbt.h> #include <hbapi.h> #include <hbapiitm.h> #include <shellapi.h.> HB_FUNC( SHOWFILEPROPERTIES ) { #ifndef _WIN64 HWND hWnd = ( HWND ) hb_parnl( 1 ); #else HWND hWnd = ( HWND ) hb_parnll( 1 ); #endif SHELLEXECUTEINFO SHExecInfo; ZeroMemory(&SHExecInfo, sizeof(SHExecInfo)); SHExecInfo.cbSize = sizeof(SHExecInfo); SHExecInfo.fMask = SEE_MASK_INVOKEIDLIST; SHExecInfo.lpVerb = "Properties"; SHExecInfo.lpDirectory = hb_parc(2); SHExecInfo.lpFile = hb_parc(3); SHExecInfo.nShow = SW_SHOW; SHExecInfo.hwnd = hWnd; ShellExecuteEx(&SHExecInfo); } #pragma ENDDUMP // fin / end Compilado com xHarbour 1.3.0 Intl. (SimpLex) (Build 20231104) Regards

João, não foi isso que eu disse. você DEVE declarar TODAS as variáveis que vai usar. Com este flag não deixa atribuir AO FAZER a declaração. Regards.

Bom dia João, Qual o problema? Segue um exemplo: Harbour.Exe Source\CTRel17.prg /m /n /gc0 /w3 /es2 /iInclude;D:\Tools\FWH1709\include;D:\Tools\LIB\xHb123_Fwh1709\Include /iD:\Tools\xHarbour_123_BCC72\Include /qo /oObj\CTRel17.c Funciona bem. Acho que não tolera variáveis declaradas e não usadas e vice versa. Também não deve tolerar variáveis que foram declaradas já com valor e atribuídas mais tarde. Enfim, faz muitos anos (mais de 10) que fiz a mudança e na época tive que revisar todos os fontes. Mas valeu a pena. Abraço.

Neste caso, acredito que seja a sua dll desatualizada. Para evitar isso, geralmente, na instalação e configuração do mysql, ao invés de usar a forma de autenticação "Use Strong Password Encryption.........", use a outra opção "Use Legacy Authentication........" se não me engano. Não tenho como ter imagens agora porque só rodando a instalação. Mas é em "Authentication Method".

Bom dia. Não uso nenhuma destas versões nem Five nem Mysql, mas pelo que aprendi, não existe razão para qualquer versão de aplicativo feito em Fivewin não acessar qualquer versão do Mysql. Geralmente em instalação local a primeira coisa que incomoda é o firewall. Verifique também se o usuário do mysql está autorizado a se logar em localhost. Ou na conexão com o mysql ao invés de usar localhost use 127.0.0.1. Mas eu começaria pelo firewall. Abraço.

Boa tarde, Ressuscitando um tópico de 2014, alguém teria o DACTE feito com a tPrinter? Abraços

Em principio, funcionando redondinho. Até quando.............. Abraços.

Bom dia. A partir do dia 31/03/2022 aqui nem no 7 funciona mais. Recomendei a instalação do 10. Deve ser protocolo de segurança desativado por causa do encerramento do suporte pela Microsoft, ou algo do tipo, acho que nunca saberemos. Abraço.

Boa tarde, Eu também tive o mesmo problema ao migrar de um servidor que usava Windows para um Linux. O problema destes servidores com Linux é que sempre usam uma versão muito antiga do Mysql, pré Oracle. Eu tive que mudar bastante coisa no sistema por causa disso. O Mysql na versão 8 mudou muito e infelizmente não consegui nenhum serviço de nuvem que tivesse ele. A solução seria colocar a data atual ali, ou seja, mexer no fonte. Att. ERoni

Bom dia. Migrei faz um tempo para o FW MYSQL/MARIADB funciona tanto para Harbour como para xharbour foi a melhor coisa que já fiz. Continuo usando o MySql de forma nativa. http://fivetechsoft.com/forums/viewtopic.php?f=3&t=33286 Boa documentação e exemplos. Att. Eroni

Bom dia, já migrei para o 3.2, tive que mudar algumas pequenas coisas especificas, mas acho que nem 1%, variáveis globais, algum operador. Att. Eroni

txtprev.prg Boa tarde, segue a minha, não sei este post ainda interessa, mas se servir para alguém, ai está.

Boa tarde, eu adaptei para usar a tdosprn com visualização pelo tTxtPrev e funciona certinho, inclusive mantenho as duas opções de impressão.

Bom dia. Complicado, deu nó no cérebro.

Boa tarde, Pode debugar o próprio errsysw pois pode estar havendo um erro que não é tratado ali. No meu caso, mudei o nome da rotina de erro, se fizer isso tem que chamar no inicio do seu sua função Main(). Se precisar de mais ajuda, estamos ai.

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.

Bom dia, alguém conhece ou tem algum exemplo de arquivo de compilação para harbour 3.2 com MSVC2017? Vou migrar meu projeto, estou tentando montar o arquivo de compilação, são 654 fontes. Agradeço antecipadamente.

Neste caso, acho que deve implementar a store procedure descrita no link, o Sqlserver deve suportar este recurso.

Olá, por acaso o processamento é demorado, são muitos registros? Se sim, poderia interromper o timer e só verificar novamente após a conclusão do processo, isso iria diminuir as requisições ao banco.

Bom dia. Tenho uma rotina parecida, em que o sistema fica monitorando o banco de dados para verificar se é necessário desconectar o usuario. Criei um timer que é visivel na aplicação inteira. ( Minha janela principal é um objeto publico.. ) e em um determinado intervalo de tempo o select é executado. Se não me engano é a cada 30 segundos que o select é executado, sendo que o retorno é sempre de 1 registro. Espero ter ajudado, qualquer coisa estamos ao dispor. Abraço.

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

Bom dia, meus sentimentos a família, conversei com o Luiz cerca de dois meses atrás. Que Deus dê forças a família para superar este momento de dor.

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

Boa tarde, se tiver skype me adiciona: eroni_americo ou por e-mail. suporte.softway@gmail.com Abraço.