kapiaba

https://www.fivetechsupport.com/forums/viewtopic.php?f=6&t=28688&p=160857&hilit=timediff&sid=13ee23a12d144608d38c49336622a6f4#p160857

sistema de Mercado Autônomo, com seus periféricos. WHAT IS THIS? Regards, saludos.

É com muito pesar que venho aqui noticiar que o nosso mestre e, querido Paulo Toledo veio a falecer agora pouco perto das 20:00 Que Deus conforte o coração da família. http://www.pctoledo.com.br/forum/viewtopic.php?f=5&t=27382 Abs.

Meu amigo, não perca tempo com isso não, contrate um plano de página/email aqui: https://acheperto.com.br/contato/ Pessoal nota 10. Abs Regards, saludos.

Eu gravaria em BANCO DE DADOS em modo texto e editaria em GETs usando FOLDEREX, fica bem legal também, pois o cliente EDITA somente o GET que ele quiser no FOLDER que ele quiser... Somente uma ideia. E usa a PRINTER.prg para imprimir a gosto e de várias formas via escolha nos botôes, entende? Abs. Regards, saludos.

Use a TWORD ou RICHEDIT do fivewin: https://forums.fivetechsupport.com/viewtopic.php?f=6&t=41784&hilit=contrato&sid=81703d2a4a8d1735bb1ae6dde40169dc#p250539 Regards, saludos.

https://forums.fivetechsupport.com/viewtopic.php?f=16&t=33542&p=266929&sid=b354abadd3f9447e4ba3b0c9c6ebb477#p266783

https://imgur.com/orL63a7 [img]https://i.imgur.com/orL63a7.png[/img]

Very good.

Provável uma instabilidade temporária da impressora. Monitore. Regards, saludos.

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=42954

Edutek, faça isso funcionar corretamente, PSL. Seu exemplo não está nada bom... [code] #include "fivewin.ch" FUNCTION Main() LOCAL mLat, mLong // Latitude e longitude e: -22.63458 , -47,30005 mLat := "-22.63458" mLong := "-47,30005" orion_jornada_AchaEndereco( mLat, mLong ) RETURN NIL FUNCTION orion_jornada_AchaEndereco( mLat, mLong ) LOCAL CDOCXML, MRODOVIA, MCIDADE, MAREA, MESTADO, MREGIAO, CTXT1, ; MREGISTRO, NI, CTEMP LOCAL cGoogleURL := "https://nominatim.openstreetmap.org/reverse?format=xml&" LOCAL cAddress := "lat=" + AllTrim( mLat ) + "&lon=" + AllTrim( mLong ) LOCAL aReturn, i, cTxt := "" IF Empty( mLat ) mLat := jornada->latitudegps mLong := Jornada->longitudegps cAddress := "lat=" + AllTrim( mLat ) + "&lon=" + AllTrim( mLong ) ENDIF // aReturn := hb_jsonDecode( WebPageContents( cGoogleURL + cAddress) ) // *** Change this *** cDocXML := WebPageContents( cGoogleURL + cAddress ) // hb_jsondecode( aReturn, @aReturn ) && se lá na URL vc colocar format "json" - eu uso "XML" IF .NOT. Empty( cDocXML ) ? cDocXML // NAO RETORNOU POHHA NENHUMA. kkkkkk mRodovia := LerTag( cDocxml, "road" ) mCidade := LerTag( cDocxml, "town" ) mArea := LerTag( cDocxml, "municipality" ) mEstado := LerTag( cDocxml, "state" ) mRegiao := LerTag( cDocxml, "region" ) mRodovia := iif( Len( RTrim( mrodovia ) ) > 0, mRodovia + ", ", "" ) mCidade := iif( Len( RTrim( mCidade ) ) > 0, mCidade + ", ", "" ) mestado := iif( Len( RTrim( mEstado ) ) > 0, mEstado + ", ", "" ) mRegiao := iif( Len( RTrim( mRegiao ) ) > 0, mRegiao + ", ", "" ) cTxt1 := mRodovia + mcidade + mEstado + mRegiao + mArea // QUE POHHA E ESSA? // cTXT := U8ToUni( cTXT1, "UTYPE_ANSI" ) IF Len( AllTrim( ctxt ) ) < 10 cTxt := "Localização não Encontrada" ENDIF ELSE cTxt := "Localização não Encontrada" ENDIF /* QUAL A ESTRUTURA DESTE BANCO DE DADOS? dbSelectArea( "jornada" ) mregistro := jornada->( RecNo() ) */ grava_dados( "A", "jornada", { "local" }, { cTxt }, Alias(), "S" ) XBROWSE( cTxt1 ) RETURN NI FUNCTION LERTAG( MsgRetWs, cNode ) // ESTA CORRETO? LOCAL cData:="" LOCAL nPos,nPos1,cTempo, CTEMP WHILE( .T. ) SYSREFRESH() nPos := At("<"+cNode+">",MsgRetWs) cTemp:=Substr(MsgRetWs,nPos+len(cNode)+2) If At("<"+cNode+">",cTemp)!=0 nPos1 := At("</"+cNode+">",cTemp) cTemp := Substr(cTemp,nPos1+len(cNode)+3) MsgRetWs := cTemp Else Exit Endif SysRefresh() ENDDO nPos1 := At("</"+cNode+">",MsgRetWs) If nPos!=-0.and.nPos1!=0 cData := Substr(MsgRetWs,nPos+Len(cNode)+2,nPos1-(nPos+Len(cNode)+2)) Endif RETURN( cData ) FUNCTION GRAVA_DADOS() // PONHA A ORIGINAL RETURN NIL // FIN / END [/code] Regards, saludos.

Good, que eu informo aqui: mLat, mLong ???

https://www.fivetechsoft.com/forums/viewtopic.php?t=36454

Mostre como está fazendo. a é PUBLIC?

Consegue proporcionar um exemplo funcional? .RC ou código? Como está o seu MENU PRINCIPAL, ASSIM? // EM: AMBIENTY.CH SetGetColorFocus( CLR_LGREEN ) // COR EM TODOS OS GETS DOS DIALOGOS. tGet():lDisColors := .F. // WHEN( .F. ) COR. tGet():nClrTextDis := CLR_HBLUE tGet():nClrPaneDis := CLR_SOFTYELLOW

Olá, você não está usando um TGET.PRG modificada de outra versão?

Fivewin é FANTÁSTICO! https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43759&p=264262&hilit=pdf&sid=2d5683357612547c42facb2af25149b1#p264262 Regards, saludos.

Mostre o código FINAL.

Já tentou com a Elgin? http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=27112&p=161508&hilit=CFE#p161508 Regards, saludos.

Tente copiar as funções e incorporar. O que você quer fazer exatamente? Ou é só um teste? https://github.com/harbour/core/blob/master/src/rtl/hbini.prg Regards, saludos.

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=44024&sid=6e0dcec9c9df018acd11798db21a4d8e Regards, saludos.

Veja se ajuda: https://forums.fivetechsupport.com/viewtopic.php?f=3&t=41277&p=247238&hilit=+PID+&sid=dc9c4257f56752edf4b5d0fd711f8921#p247238 Regards, saludos.

Pode ser via .BAT? e você chama via WINEXEC()? https://superuser.com/questions/1776533/wmic-processid-does-not-get-parsed-within-the-same-command-instance abs. Regards, saludos.

Entendi o funcionamento do novo forum? Veja se ajuda. Você pode ir mostrando o tempo de espera no Botão com o Refresh(), eu acho... // 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 Regards, saludos.