Theotokos

tenta ai: oRadio::lTransparent := .T.

optei por fazer assim, porque no meu caso tinha usuário que abria uma venda, lança alguns produtos e sai para mostrar algo para o cliente, deixando tudo aberto... ai com tempo iria fechar o sistema e perder tudo que lançou, assim pede a senha novamente, o vendedor coloca a senha dele e segue a venda aberta...

Olá meu caro amigo... não conhecemos pessoalmente, mas com certeza vc é uma das pessoas que muito contribuiu e contribui por este fórum... que bom que chegou nesta fase de vida... realmente é uma decisão difícil... penso que não deve ser levado em conta apenas o financeiro, mas sim a saúde mental, familiar e de vida... eu tenho 52 anos... tenho trabalhado nesta área à 28 - 29 anos mais ou menos, e muitas vezes tenho este mesmo pensamento, "não esta fácil acompanhar as mudanças", fora que tempo trabalhando com varias pessoas (clientes, funcionários) e cada um com sua personalidade (chatice kkk); porem não estou ainda com o tempo para aposentadoria - pois hoje se eu pudesse aposentar, já aposentaria, pelo menos ter a paz de que não preciso correr atrás e então me dedicaria a alguns trabalhos que vale a pena... Um forte abraço, e que Deus ilumine sua decisão...

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42429&sid=4e043eeb6afc332310628e35560d3d7a

Static oTimerExit Static nInterval * Function Main() * Public nSecondsToOut:= 55 //(segundos) nInterval := 1*60000 //(1 x 60000 = 1 minuto) Acrescentar isso no fotnte principal e chamar a função no ON INIT

seria mais ou menos isso aqui: (peguei aqui no forum mesmo, mas não lembro de quem... acabei que não usei) Function Fnct_StartCounterTime () Define Timer oTimerExit of oWndMain Interval nInterval Action ( iif( sysIdleSecs()>nSecondsToOut, fExit(),)) oTimerExit:Activate() Return NIL function fExit() oTimerExit:Deactivate() //oTimerExit:End() MsgInfo( "Lembre de Fechar Sistema caso não vá mais usar","Sistema Inativo") oTimerExit:Activate() * MsgAlert('Sistema Será Fechado por Inatividade','SyS RlI') oWndMain:End() SET RESOURCES TO oImgFundo:End() oImgLogo:End() oFntMsg:End() FecharPrograma() * return .t. #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" #include <stdio.h> WINUSERAPI BOOL WINAPI GetLastInputInfo(PLASTINPUTINFO); typedef BOOL (WINAPI *GETLASTINPUTINFO_)(PLASTINPUTINFO); HB_FUNC( SYSIDLESECS ) { HINSTANCE handle= LoadLibrary("user32.dll"); if ( handle) { GETLASTINPUTINFO_ pFunc; pFunc = GetProcAddress( handle,"GetLastInputInfo" ); if (pFunc) { LASTINPUTINFO lpi; lpi.cbSize = sizeof(LASTINPUTINFO); if (!pFunc(&lpi)) { hb_retni(0); } else { hb_retnd( ( DOUBLE ) ( GetTickCount() - lpi.dwTime ) * 0.001 ); } } else { hb_retni(0); } } if (handle) { FreeLibrary( handle); } } #pragma ENDDUMP ***********************************************************************************************+

se é na compilação então vc não concluir a linha correto... esta linha tem um ? (exclamação) no inicio...

qual a novidade ou correção feitos em xharbour e bcc77 ? ou onde posso encontrar? vale a mudança?

eu não uso a copilação desta forma, eu utilizo xDev... mas verifica se isso: -LIBPATH:""

Verificando o sitem Word System... vc faz seu cadastro lá pode usar por 7 dias gratuito e depois assinar um dos planos... mas verificando lá as opções este codigo seu esta incompleto.. esta faltando opções para criar instancia, conexão, etc... só a função enviar não vai...

vê se é essa https://fivewin.com.br/index.php?/search/&q=Popular&type=downloads_file&quick=1&search_and_or=or&sortby=relevancy

Function VerString(cStr) Local cStrNova := "" Local nCt := 0 For n1 := 1 To Len(AllTrim(cStr)) If !IsAlpha( SubStr(cStr,n1,1) ) .And. !Empty(SubStr(cStr,n1,1)) nCt++ If nCt <= 3 cStrNova += SubStr(cStr,n1,1) EndIf Else cStrNova += SubStr(cStr,n1,1) EndIf Next n1 ? cStrNova Return(cStrNova) ? VerString("001432 DAIANE 5555 OLIVEIRA UBÁ")

tem sim!!! é que quero saber se alguem já fez alguma coisa para esta plataforma app... e pudesse me dizer o que usar para executar tmb serviço, tipo quais comandos, etc... que nunca fiz algo assim... estou zerado...

Olá pessoal, alguem conhece? um app para vendas produtos no instagram e facebook, meu cliente adquiriu e quer integre sistema (Estoque) com esse app... Alguem já fez pode me ajudar, que vi no site seria por rest algo assim.. mas estou bem cru nisso... https://cartpanda.com/

Alguém sabe se é possível criar um botão no FastReport? Na tela do Preview , onde tem os botões de exporta o relatório por exemplo...