FiveTech Software tech support forums

... tengo: oBrw:lRecordSelector := .T. oBrw:oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROWMS Al salir de la edición del registro, y por una orden de: If lsalir sele sat SAT->(DBGOTOP()) obrw:refresh() obrw:setfocus() endif El puntero vuelve al principio, pero el color de fondo de la fila se queda ...

... ), oBrw:SetFocus(), .F. ) RETURN nil //***************** EDICION CON FOLDER--------------- FUNCTION editPro( oBrw, oDlg ) LOCAL oDlg1, oFld, oLbx, Lsalir:=.f. LOCAL nProve, oProve, cNombre, oNombre, cProvincia, oProvincia NProve := PROVE->CODIGO_PRO cNombre := PROVE->NOMBRE cProvincia := ...

... el obrw:cseek y se mostraran de nuevo todos los registros. Es decir, lo que está en rojo: FUNCTION editPro( oBrw ) LOCAL oDlg, oFld, oLbx, Lsalir:=.f. LOCAL nProve, oProve, cNombre, oNombre, cProvincia, oProvincia NProve := PROVE->CODIGO_PRO cNombre := PROVE->NOMBRE cProvincia := ...

... local cPassword:=SPACE(20),oSay local oBoton,oBoton2,cChave := 'AMFSOFT',cnombre:=space(33),lEncriDescri := .F.,lSalir := .F. DEFINE FONT oFont NAME "Tahoma" SIZE 0, -12 DEFINE DIALOG oDlg ; FROM 5, 5 TO 15, 60 ; TITLE "Por Favor Identifiquese" ...

... //----------------------------------------------------------// local oDlg1,oError,lNuevo:=.F.,cText := "" local oGet := ARRAY(10) LOCAL lSalir := .F. LOCAL lSalvar := .F. local oBoton1,oBoton2,oBr,vFECHALIMI :=space(12),vINTMORA:=0,vDESIMPTO:=0,vDESMORA:=0,vANOVIG:=space(4) local cServer ...

... */ #include "fivewin.ch" FUNCTION main() LOCAL oBmp LOCAL tCalc32 LOCAL oCalculator Local lIncrustar:=.f. //LOCAL this := Self LOCAL lSalir := .f. /* IF ::oCalculator:classname() == "TDIALOG" ::oCalculator:restore() ::oCalculator:setfocus() RETURN NIL ENDIF DEFINE DIALOG ...

... Function fWorkTime() local oDlgYesNo, oBNo, oBYes local lFin :=.f. local lTime :=.f. local lSalir :=.f. local oTimerT Do Case Case _nInterval2=(_nMinToInterval-1)*60000 // aca se cumple el primer timer y se le avisa al usuario que solo le ...

... // el _oTimerTabla2 es el mismo tiempo de _oTimerTabla1 menos 1 minuto. Define Timer _oTimerTabla1 Interval _nInterval1 Action iif(fWorkTime(),(lSalir:=.t.,oDlg:end()),) Activate Timer _oTimerTabla1 Define Timer _oTimerTabla2 Interval _nInterval2 Action iif(fWorkTime(),(lSalir:=.t.,oDlg:end()),) ...

... 1), ), oLbx:SetArray(aDetVen), oLbx:Refresh(), ; If(!lTicket,oTicket:Hide(),), ; nNumWin++, ; oDlg:Move( 0, 0 ) ) ; VALID (oWnd3:End(), If(lSalir,tFacBolGui:End(),), lSalir ) oWnd3:bGotFocus = { || oDlg:SetFocus() } ACTIVATE WINDOW oWnd3 ; ON INIT (oWnd3:Move(0,0), oWnd3:SetSize( oDlg:nWidth, ...

... cGet3 picture '@S20' etc... @ (nBot-nTop)-2,(nDer-nIzq)/2-71 SBUTTON oBtn[1] PROMPT '&Aceptar' RESOURCE 'GOSEMA','GOSEMV' OF oDLG(1); ACTION ( lSalir:=ValidaVent(aVent),; IF( lSalir,; ( _lSalvar:=.T.,; AfectaDBF(aVent,lBloquea,bProceso),; oDLG(1):End() ),; NIL) ); XP COLOR COLOR_ACEPTA; SIZE ...

... en el sbrowse 7.0 y si lo pudiera compartir. Caso. @ 11,10 SBUTTON oBtn[1] PROMPT '&Aceptar' RESOURCE 'GOSEMA','GOSEMV' OF oDLG(1); ACTION ( lSalir:=ValidaVent(aVent),; // valida que los gets se cumplan IF( lSalir,; ( _lSalvar:=.T.,; AfectaDBF(aVent,lBloquea,bProceso),; NIL) ); XP COLOR COLOR_ACEPTA; ...

... EN EL PUERTO * * * **************************************************************************** METHOD ReadPort (nTime) CLASS TRS232 LOCAL cBuffer,lSalir,oTimer // inicializa parametros por defecto DEFAULT nTime := 0 // tiempo en milisegundos intentando leer // inicializa variables lSalir := .F. ...

Puedes usar un VALID basado en una condición lógica:

lSalir := .F.

ACTIVATE WINDOW oWnd VALID lSalir

... nPosic, cDescrip, nPosic1, nPosic2 LOCAL nHandle, oFont, oFontMulti, oDlgEmp, nAlto, cTitle PRIVATE DirEmpresa := "", aCampos:={}, cDir, lSalir := FALSE, cDirCon PRIVATE Init32 := FALSE MsgInfo("DEBUG") SET HELPFILE TO ""

... Cambios?", "El texto ha cambiado" ), ; ( MemoWrit( cFileDisc, cText ), ; MsgWait( "Texto guardado .." , cFileDisc, 0.8 ), lSalir := .t. ), lSalir := .t. ), (lSalir) ) oImageList:End() oBmp1:End() oBmp2:End() return nil function MyClick( nRow, nCol, oTree, aItems, aFiles, ...