FiveTech Software tech support forums

... funcion que me diga si se puede o no acceder a una maquina en concreto... Yo estoy utilizando este codigo... FUNCTION estado_conexion(oTmr) oTmr:DeActivate() &&se desactiva el temporizador para poder hacer las acciones pertinentes use("\\maquina\ruta\articulos.dbf") IF used("\\maquina\ruta\articulos.dbf") ...

... nil //----------------------------------------------------------------------------// function CheckFile(oTmr) if file ("c:\pruebras.txt") oTmr:Deactivate waitrun("apertura.exe") <--Este programa no tarda nada en ejecutarse ferase("C:\pruebas.txt") oTmr:Activate endif return nil //Como podeis ...

Amigo, si, el timer esta en funcionamiento, lo activo desde aca: ACTIVATE DIALOG oDlg CENTERED ON init (; BuildTimer( @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, oTimer, oDlg ),; oBrw: SetFocus(),; oBrw: ResetBarPos(),; oBrw: UpStable()...

Amigo, si, el timer esta en funcionamiento, lo activo desde aca: ACTIVATE DIALOG oDlg CENTERED ON init (; BuildTimer( @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, oTimer, oDlg ),; oBrw: SetFocus(),; oBrw: ResetBarPos(),; oBrw: UpStable()...

Goos, Parece ser que oTimer no está iniciado, al no iniciarse no hay metodo activate() o deactivate(); hay que checar si se activa el timer o no. Will Morales Amigos, Tengo esto: oDlg:= oDlgEnlace( @oBrw, oTextos, oBtns, oBmp ) //----------( Acción del ...

... @oBrw, oTextos, oBtns, oBmp ) //----------( Acción del botón )---------- oBtns[1]: bAction:={|| oTimer:deactivate() } oBtns[2]: bAction:={|| oTimer:activate() } ACTIVATE DIALOG oDlg CENTERED ON init (; ...

... endif ACTIVATE WINDOW oWnd CloseHandle( hPort ) return nil function ReadGPS( hPort, oTimer ) local nChr := 1 local cText := "" local n := 1 oTimer:DeActivate() // stops timer - waits for data do while nChr > 0 .and. n < 21 nChr := ReadByte( hPort ) cText := cText + Chr( nChr ) n++ end do ...

Raymond,
Thanks to Enrico for his suggestion! - see Enrico's post 'Serial Port' of 16 January for some nice code samples. Use 'activate' and 'deactivate' methods to start and stop the timer and hence the serial read function. Let me know if you need a fully working sample...
hth

Hi Antonio,
which is the fwh module where you call these functions ?
I need to deactivate them only if a Win95 OS is running.

Marco

Intenta esto a ver que tal va: Function CheckFile(oTmr) Select 1 Go 1 iF aRetiros->Ventas >= 15000 oTmr:DeActivate() <--------------------- MsgAlert("Favor de Retirar Efectivo de Caja","Advertencia") oTnr:Activate() <--------------------- Endif Return Nil Si no te ...

... BCOND ) IF !lExit .AND. EVAL( BCOND ) EXIT ELSE IF ( GetTickCount() - ANCMILLI ) >= NOUVDELAI EXIT ELSE lExit := .F. ENDIF ENDIF ENDDO oTmr:DeActivate() ENDIF RETURN NIL ******************* FUNCTION WINATTEND2(ETATPRECG, ETATPRECD) ******************* RETURN ( lExit ; .OR. GGMSTATE("LEFT") ...

... Completo. Mismo asi, Gracias. Lo resolvi asi: SEPARATOR MENUITEM "CDPlay - Entretenimentos " ; RESOURCE "COMPUTADOR" ; ACTION( ( Click(), oTimer:DeActivate(), ; WinExec("C:\Arquivos de Programas\Windows Media Player\wmplayer.exe" ) ), ; oTimer:Activate() ) ; MESSAGE ( "Chamar o Windows Media ...

... SALIR:=99 IF cProcesando ELSE RET:=.T. ENDIF if oMysql # nil .and. ret oMysql:Close() endif if ret TaskDelIcon( oTray ) IF oTmr # nil oTmr:Deactivate() ENDIF endif RETURN RET Saludos,