kapiaba

Forum novo. Testando o código fonte. Jesuis acende a luz.

Veja se ajuda. Você pode ir mostrando o tempo de espera no Botão com o Refresh(), eu acho... [code] // tinativo.prg - By William Adami // exemplo do uso da classe Tinativo // Apos um tempo de inatividade do mouse // e do teclado chama uma funcao qualquer. #include "fivewin.ch" STATIC oWnd //************ FUNCTION Main() LOCAL nTempo_espera, cNome_funcao, lTimercontinua // Tempo a ser esperado ate chamar a funcao // -> 1 hora tem 3600 segundos. nTempo_espera := 10 // segundos. // nome da funcao a ser chamada quando // chegar no tempo de espera cNome_funcao := "LOGOFF()" // se apos executar a funcao , continua // monitorando a inatividade do mouse e teclado. lTimercontinua := .F. define window oWnd title "Teste de teclado e mouse" activate window oWnd ; ON INIT tinativo():new( nTempo_espera, cNome_funcao, lTimerContinua ) RETURN NIL FUNCTION LOGOFF() // msgalert( "AQUI ENTRA SUA FUNCAO DE LOGOFF !", "AVISO" ) IF MsgYesNo( OemToAnsi( "ATEN€ÇO USUµRIO: " )+CRLF+ ; OemToAnsi( "PROTEJA OS BANCOS DE DADOS DO PROGRAMA." )+CRLF+ ; OemToAnsi( "SE NÇO ESTIVER USANDO O WINORCAM.EXE, " )+CRLF+ ; OemToAnsi( "DESLIGUE-O PARA NÇO CORRER RISCOS. " )+CRLF+ ; OemToAnsi( "POSSO DESLIGAR O PROGRAMA? <S> ou <N>??" ), ; OemToAnsi( "AVISO PARA DESLIGAR O WINORCAM.EXE... " ) ) //--Fecha o Programa Definitivamente LIBERA_TUDO() // ESTA EM WINORCAM.PRG // QUIT ENDIF RETURN NIL // tinativo.prg #include "fivewin.ch" CLASS TINATIVO DATA nTimeInpAntes DATA nTimeInpDepois DATA cTimeAtu DATA nTempo DATA oTimerTime DATA cFunc DATA lContinuar METHOD NEW( nTime, cFuncao, lContinua ) CONSTRUCTOR METHOD ver_tempo() ENDCLASS METHOD new( ntime, cFuncao, lContinua ) CLASS TINATIVO ::cfunc := cfuncao ::ntempo := ntime ::lContinuar := lContinua ::oTimerTime := TTimer():New( 1000, { || ::VER_TEMPO() } ) ::oTimerTime:Activate() ::cTimeAtu := time() ::nTimeInpAntes := getInputState() // 0 = erro RETURN self METHOD VER_TEMPO CLASS TINATIVO LOCAL AUX ::nTimeInpDepois := getInputState() IF ( ::nTimeInpDepois - ::nTimeInpAntes ) > 0 ::nTimeInpAntes := getInputState() ::cTimeAtu := time() ENDIF IF ( CONVTIME( time() ) - CONVTIME( ::cTimeAtu ) ) > ::ntempo ::oTimerTime:DeActivate() aux := ::cfunc // aqui executa a funcao &aux if ::lContinuar ::oTimerTime:Activate() ::cTimeAtu := time() ENDIF ENDIF RETURN NIL FUNCTION CONVTIME( ZZ ) LOCAL Z Z := ( VAL( LEFT(ZZ,2 ) ) * 360 ) + ( VAL( SUBSTR(ZZ,4,2 ) ) * 60 ) + ; VAL( RIGHT( ZZ,2 ) ) RETURN Z //*---------------------------------------------------------------------- #pragma BEGINDUMP #define _WIN32_WINNT 0x0500 #define WINVER 0x0500 #include "windows.h" #include "hbapi.h" HB_FUNC( GETINPUTSTATE ) { LASTINPUTINFO lpi; lpi.cbSize = sizeof(LASTINPUTINFO); if (!GetLastInputInfo(&lpi)) { hb_retni(0); } hb_retni(lpi.dwTime); } #pragma ENDDUMP // FIN / END [/code] Regards, saludos.

Rapaz... Não entendi muito bem, e essa mensagem: " depois que terminasse libera o botão..." não me caiu muito bem... kkkkkkkkkkkkkkkk Eu num rô naum!!! kkkkkkkkkkkkkk Vou estudar melhor... Abs.

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=44003&sid=4ffc8a1e244e2b038b38f640da6ab48e Inserting a string with CRLF into a single-line TGet. [code] // C:\FWH/SAMPLES\CSTRING2.PRG By Mister Nages. #include "FiveWin.ch" #Define CLR_MSPURPLE nRGB( 0, 120, 215 ) FUNCTION Main() LOCAL oDlg, oGet, oFont, oFnt, cText1, cVar := SPACE(300) LOCAL oSay, cSayGet, oSalida SkinButtons() cText1 := "Teste1 " + Chr( 10 ) + " Teste2" + Chr( 9 ) + " Teste3 " + ; Chr( 25 ) + Chr( 13 ) + Chr( 10 ) cVar := cText1 cSayGet := [USE CTRL+V PARA COPIAR O TEXTO OCULTO...] DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -16 BOLD DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 00, -14 BOLD DEFINE DIALOG oDlg SIZE 400, 400 PIXEL TRUEPIXEL oDlg:lHelpIcon := .F. // ASI, ES MEJOR: @ 50, 20 GET oGet VAR cVar SIZE 350, 50 PIXEL OF oDlg MEMO FONT oFont UPDATE // CTRL+V oGet:bKeyDown := {| k | If( k == Asc( "V" ) .AND. ; GetKeyState( VK_CONTROL ), CheckCRLF(), ) } // other code @ 120, 20 SAY oSay VAR cSayGet OF oDlg PIXEL FONT oFnt UPDATE SIZE 350, 20 ; COLORS CLR_BLACK, CLR_MSPURPLE @ 320, 160 BUTTON oSalida PROMPT "&Salida" SIZE 70, 30 OF oDlg PIXEL ; ACTION( oDlg:End() ) CANCEL SET FONT OF oSalida TO oFnt ACTIVATE DIALOG oDlg CENTERED oFont:End() oFnt:End() RETURN NIL FUNCTION CheckCRLF() // LOCAL cText := FW_GetClipboardData() //???? DEFINE DIALOG?? LOCAL cText := SPACE(300) cText := [TEXTO A COPIAR PARA O GET EM DESTAQUE... ] IF ValType( cText ) == "C" cText := StrTran( StrTran( cText, CRLF, " " ), Chr( 10 ), " " ) ENDIF FW_CopyToClipboard( cText ) RETURN NIL // FIN / END [/code] Regards, saludos.

Ah, muleke!!! kkkkkk Thanks. abs.

meu .PRG aqui Não funciona?

coloque o CODE/CODE para identar o fonte. assim fica horrível para ler. abs.

https://fivetechsupport.com/forums/viewtopic.php?f=3&t=41759&start=0 https://forums.fivetechsupport.com/viewtopic.php?f=3&t=40326 Regards, saludos.

Tente assim. Troque os dados da emagsoftware pelos seus. #include "Fivewin.ch" FUNCTION Main() LOCAL cUrl := "ftp://myuser@aruba.it:mypassword@ftp.emagsoftware.it" LOCAL oUrl := TUrl():New( cUrl ) LOCAL oFtp := TIpClientFtp():New( oUrl, .T. ) oFtp:Open( cUrl ) ? oFtp:CWD( "/emagsoftware.it" ) ? oFtp:DownloadFile( "email.gif" ) oFtp:Close() RETURN NIL Regards, saludos.

Veja se ajuda: https://forums.fivetechsupport.com/~fivetec1/forums/viewtopic.php?f=3&t=40437&start=0

Mano, nem para escrever XAILER corretamente? kkkkkkkkkkkkkkkkkkk https://download.xailer.com/?en&cat=1 Abs.

Veja essa resposta. Posto morreu e ninguém respondeu. http://www.pctoledo.com.br/forum/viewtopic.php?f=39&t=26641&p=157846&hilit=banco+inter#p157846 Abs.

https://fivetechsupport.com/forums/viewtopic.php?f=3&t=28921&start=0 Regards, saludos.

Você está linkando a TIP.LIB e SHELL32.lib no projeto? C:\FWH2104\lib\FiveHX.lib + C:\FWH2104\lib\FiveHC.lib + C:\XHBBCC76\lib\vm.Lib + C:\XHBBCC76\lib\rdd.Lib + C:\XHBBCC76\lib\common.Lib + C:\XHBBCC76\lib\rtl.Lib + C:\XHBBCC76\lib\lang.Lib + C:\XHBBCC76\lib\macro.Lib + C:\XHBBCC76\lib\hbsix.Lib + C:\XHBBCC76\lib\dbfntx.Lib + C:\XHBBCC76\lib\PcRepos.Lib + C:\XHBBCC76\lib\dbffpt.Lib + C:\XHBBCC76\lib\dbfcdx.Lib + C:\XHBBCC76\lib\hbzip.Lib + C:\XHBBCC76\lib\hbmzip.Lib + C:\XHBBCC76\lib\zlib.Lib + C:\XHBBCC76\lib\ct.Lib + C:\XHBBCC76\lib\gtgui.Lib + C:\XHBBCC76\lib\hbzebra.Lib + C:\XHBBCC76\lib\codepage.Lib + C:\XHBBCC76\lib\png.Lib + C:\XHBBCC76\lib\pp.Lib + C:\XHBBCC76\lib\tipssl.lib + C:\XHBBCC76\lib\libssl.lib + C:\XHBBCC76\lib\libcrypto.lib + C:\XHBBCC76\lib\tip.Lib + C:\BCC76\lib\cw32.Lib + C:\BCC76\lib\uuid.lib + C:\BCC76\lib\ws2_32.lib + C:\BCC76\lib\import32.lib + C:\BCC76\lib\psdk\msimg32.Lib + C:\BCC76\lib\psdk\odbc32.Lib + C:\BCC76\lib\psdk\rasapi32.Lib + C:\BCC76\lib\psdk\nddeapi.Lib + C:\BCC76\lib\psdk\psapi.Lib + C:\BCC76\lib\psdk\gdiplus.lib + C:\BCC76\lib\psdk\iphlpapi.Lib + C:\BCC76\lib\psdk\shell32.lib + C:\BCC76\lib\psdk\wininet.Lib + C:\BCC76\lib\import32.Lib Abs. Regards, saludos.

Veja se ajuda: https://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=25918&start=15 https://github.com/harbour/core/blob/master/contrib/hbhpdf/tests/harupdf.prg http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=25918 http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=25945 https://vouch.info/harbour/index.html?hbhpdf.htm https://libharu.sourceforge.net/page_operator.html Te dou o "peixe" a VARA você vai ter que pegar e pescar! kkkkkkkkkkkkkkkkkkkkkkkkkkk Abraços. Regards, saludos.

kkkkkkkkkk, em meu windows 7 de 32 bits não funciona nem a PAU Juvenal. dá APPCRASH.

Bom dia. Alguém que tenha windows 7 de 32 bits, poderia testar essa nova versão, para eu ter certeza que o problema é em minha máquina? https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43785&sid=e61bd35fb455357746e2368ce70d2783 Gracias, obrigado. Regards, saludos.

https://www.oobj.com.br/bc/article/rejeição-854-unidade-tributável-tag-utrib-incompatível-com-produto-informado-como-resolver-758.html https://aprendo.iob.com.br/ajudaonline/artigo.aspx?artigo=16425 https://www.projetoacbr.com.br/forum/topic/73093-rejeicao-obrigatorio-o-preenchimento-do-indice-de-mistura-do-biodiesel/

Ficando cada vez mais moderno para quem usa WhatsApp. https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43787&sid=89acea383b6def529c8d8ec7a8d2126d&start=30 Regards, saludos.

PAAAAAAAARRRRAAAAAAAAAAAAAAAAAA.... KKKKKKKKKKKKKKKKKK

Jorge, novidades sobre isto? Este problema foi passado com quem usa ACBR? Regards, saludos.

Boa tarde, alguém me indicou para um PET-SHOP em Osasco/SP de nome: CASA DOS CÃES. Porém eu não tenho tudo o que o dono: Eduardo necessita, além da área financeira Contas a Pagar/Receber/estoque do sistema e cadastros, etc,. ele necessita que o sistema controle o HOTELZINHO(Hospedagem do animal) e também, a área de CRECHE(não faço nem ideia). Então, se alguém tiver pronto ou disposto a desenvolver, por favor entrar em contato com ele, ou se souber de alguém que tenha um programa COMPLETO que atenda HOSPEDAGEM/ESTÉTICA/ADESTRAMENTO/BANHO/TOSA/CRECHE, FINANCEIRO, NOTA FISCAL ELETRÔNICA, sei lá mais o que... kkkkkkk Gentileza entrar em contato com o senhor Eduardo(super simpático). CASA DOS CÃES: Endereço: R. Paulo Lício Rizzo, 328 - Centro, Osasco - SP, 06018-010. Celular: +55 (11) 9. 8976-7667 - Eduardo, Horário comercial. Obg. abs. Regards, saludos.

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43787&sid=0f464580d5ab9ec3c61103fa30d34ea7 "amarrando"... Regards, saludos.

https://www.teamviewer.com/pt-br/ Xato pra kralho para configurar. É pago também, más tem a parte grátis para usar de vez em quando. Bem melhor que este que falastes. Outro pohha xato do kcte. kkkkkkkkkkkkkkkkkkkkk Abs. Regards, saludos.

Preste atenção ao forum: Regards, saludos.