FiveTech Software tech support forums

RESOLVIDO ASSIM: METHOD CreateButton() CLASS TGet ... // Passei a controlar em GOTFOCUS/LOSTFOCUS //::oBtn:lCancel = .T. // so the GET VALID is not fired when the button is focused METHOD LostFocus( hCtlFocus ) CLASS TGet if ::oBtn != nil ::oBtn:lCancel = .F. // so the GET VALID ...

... no botão do GET[2], o VALID do GET[1] não é executado. Acredito que o problema ocorre porque no: METHOD CreateButton() CLASS TGet ... ::oBtn:lCancel = .T. // so the GET VALID is not fired when the button is focused Porem se eu comentar o código, ex: //::oBtn:lCancel = .T. O VALID do GET[1] ...

Luis, Supongo que oQry es el Recordset que contiene la tabla si ese es el caso debes hacer lo siguiente : En esta parte : If !lCancel oQry:informe := cDato oQry:Update() // si no actualiza no graba // si hay modificaciones debes incluir : oQry:Requery() endif Saludes desde Managua, Nicaragua ...

... oThis:bAction, oThis ) , oThis:SetFocus() ) }, ; nBmpWidth, ::nHeight - 3,,,,.t.,,,,,,,::cBmpName ) endif DeleteObject( hBitmap ) endif ::oBtn:lCancel = .T. // .T. so the GET VALID is not fired when the button is focused if Upper( ::oWnd:ClassName() ) == "TDIALOG" .and. ::oWnd:lResize16 ...

Hola

prueba asi

REDEFINE BTNBMP oBtn .....

oBtn:lCancel := .T.


saludos

... := TRIM(cli->colon) cCiudad := TRIM(cli->ciudad) cEstado := TRIM(cli->estado) cCodPos := cli->codpos oPrn:= TDosPrn():New() IF ! oPrn:lCancel oPrn:StartPage() Enc_Rep(mCliNum, mCliNom, cCliAte, cDirec, cColon, ; cCiudad, cEstado, cCodPos) SELECT cli DO WHILE cli->(!EOF()) // Inicializa ...

... = "P" cMone := " Pesos " ELSE cMone := " Dólares " ENDIF dftmp->(DBGOTOP()) oPrn:= TDosPrn():New() IF ! oPrn:lCancel begin sequence oPrn:StartPage() oPrn:Command("27","64") oPrn:Command( oPrn:cCompress ) While Empty( oPrn:hDC ) MsgStop( ...

... RecNo() ), SysRefresh(), ! lEnd ) RETURN NIL function MsgMeter( bAction, cMsg, cTitle ) local oDlg, oMeter, oText, oBtn, oFont local lEnd := .f., lCancel := .f. local nVal := 5 DEFAULT bAction := { || nil },; cMsg := "Processing...", cTitle := "Please, wait" DEFINE FONT oFont ...

... ::nResult ) == "O" // latest control which had focus // There is a pending Valid, it is not a clicked button if oWnd != nil if ! oWnd:lCancel if ::nResult:nID != nID .and. ! ::nResult:lValid() return nil endif endif else if ::nResult:nID != nID .and. ! ::nResult:lValid() return nil ...

Es que estas llamando cada vez a la creación del dialogo. Lo que tienes que hacer es lo siguiente, seudo codigo a piñon; STATIC oProgressBar // Porque la función PASA va a actualizartelo. FUNCTION DlgMio() Local oDlg DEFINE DIALOG oDlg @1,1 PROGRESSBAR oProgressBar @2,1 BUTTON CopyDlg() @3,1 BUTTON ...

... DEFINE BUTTON OF oBar ACTION oClient:SendData( "Hello from server!" ) TOOLTIP "Talk to client" * Mejora: La clase TGet está asignado la DATA lCancel a .T. cuando se crea la nueva clausula ... GET ... ACTION ..., por lo que el valid del GET no se dispara cuando el botón obtienen el foco. * ...

... DEFINE BUTTON OF oBar ACTION oClient:SendData( "Hello from server!" ) TOOLTIP "Talk to client" * Enhancement: Class TGet is assigning the DATA lCancel to true to the button created when the new clause ... GET ... ACTION ... is created, so the GET valid is not fired when the button gets the ...

... que publicaremos posiblemente este mismo fin de semana, el botón que usa el GET cuando se usa la claúsula ACTION ... ya tiene asignado la DATA lCancel como .T. para que no se dispare el VALID. Antonio, Agregué a la clase la línea que mencionabas en este hilo: http://67.222.39.232/forums/viewtopic.php?t=12994&highlight=get+action ...

David,

En FWH 8.10 que publicaremos posiblemente este mismo fin de semana, el botón que usa el GET cuando se usa la claúsula ACTION ... ya tiene asignado la DATA lCancel como .T. para que no se dispare el VALID.

usa esto oGetArticulo:lCancel = .T. Gracias mcfox, había leído los hilos donde se trató el mismo tema: http://67.222.39.232/forums/viewtopic.php?t=12832&highlight=get+boton http://67.222.39.232/forums/viewtopic.php?t=12994&highlight=get+action ...