FiveTech Software tech support forums

CLASS TBancos DATA cCodigo As OBJECT INIT NIL DATA oNombre As OBJECT INIT NIL DATA oNumero As OBJECT INIT NIL DATA oWnd As OBJECT INIT NIL DATA oFont As OBJECT INIT NIL DATA oFld As OBJECT INIT NIL DATA oBtn As OBJECT INIT NIL DATA cTitle AS CHARACTER INIT NIL METHOD ...

... un archivo MAIN.prg PUBLIC TBancos := TApplication() . . . . . CLASS TBancos DATA cCodigo As OBJECT INIT NIL DATA oNombre As OBJECT INIT NIL DATA oNumero As OBJECT INIT NIL DATA oWnd As OBJECT INIT NIL DATA oFont As OBJECT INIT NIL DATA oFld As OBJECT INIT NIL DATA oBtn As OBJECT INIT NIL DATA ...

... el codigo del mismo. Como puedo evitar esto haciendo uso de la tecla Esc?? Atento a sus comentarios Mira si te funciona este ejemplo: @ 3,1 GET oNumero VAR CTABCO OF oDlg SIZE 60, 10 ; VALID CtaContab(@CTABCO,oNumero) //------------------------------------------- Function CtaContab(CTABCO,oNumero) ...

te falta un parentesis el valid

VALID( IIF( EMPTY( CTABCO ), ( CTABCO := CtaContab(CTABCO), oNumero:Refresh(), .T.), .F. )

aca

VALID( IIF( EMPTY( CTABCO ), ( CTABCO := CtaContab(CTABCO), oNumero:Refresh(), .T.), .F. ) )

Es la variable la que debes validar, no el objeto...

@ 3,1 GET oNumero VAR CTABCO OF oDlg SIZE 60, 10 ;
VALID( IIF( EMPTY( CTABCO ), ( CTABCO := CtaContab(CTABCO), .T.), .F. )

@ 3,1 GET oNumero VAR CTABCO OF oDlg SIZE 60, 10 ;
VALID( IIF( EMPTY( CTABCO ), ( CTABCO := CtaContab(CTABCO), oNumero:Refresh(), .T.), .F. )

Hice los cambios sugeridos por ti, pero no funciona. Aca el codigo del GET para ingresar Cuenta Contable @ 3,1 GET oNumero VAR CTABCO OF oDlg SIZE 60, 10 ; VALID( IIF( EMPTY( oNumero ), ( oNumero := CtaContab(CTABCO), .T.), .F. ) cambia por esto @ 3,1 GET oNumero VAR CTABCO OF oDlg ...

Compubrion, Hice los cambios sugeridos por ti, pero no funciona. Aca el codigo del GET para ingresar Cuenta Contable @ 3,1 GET oNumero VAR CTABCO OF oDlg SIZE 60, 10 ; VALID( IIF( EMPTY( oNumero ), ( oNumero := CtaContab(CTABCO), .T.), .F. ) y Aca la funcion que invoca el Get para seleccionar ...

... oWnd:oClient := oBrw ACTIVATE WINDOW oWnd ; ON INIT oBrw:SetFocus() RETURN (.T.) FUNCTION CBANCO(TNUEVO) STATIC oDlg, oGet, oCodigo, oNombre, oNumero, oCuenta, oBtn SetGetColorFocus() // change GET colors when focused SET 3DLook OFF IIF(TNUEVO, BCONUEVO(.T.), BCONUEVO(.F.)) DEFINE DIALOG oDlg ...

... oWnd:oClient := oBrw ACTIVATE WINDOW oWnd ; ON INIT oBrw:SetFocus() RETURN NIL FUNCTION CBANCO(TNUEVO) STATIC oDlg, oGet, oCodigo, oNombre, oNumero, oCuenta, oBtn SET _3DLOOK ON SetGetColorFocus() // change GET colors when focused IIF(TNUEVO, BCONUEVO(tnuevo), BCONUEVO(tnuevo)) DEFINE DIALOG ...

... oWnd:oClient := oBrw ACTIVATE WINDOW oWnd ; ON INIT oBrw:SetFocus() RETURN (.T.) FUNCTION CBANCO(TNUEVO) STATIC oDlg, oGet, oCodigo, oNombre, oNumero, oCuenta, oBtn SET _3DLOOK ON SetGetColorFocus() // change GET colors when focused IIF(TNUEVO, BCONUEVO(.T.), BCONUEVO(.F.)) DEFINE DIALOG oDlg ...

... := oBrw ACTIVATE WINDOW oWnd ; ON INIT oBrw:SetFocus() RETURN (.T.) FUNCTION CBANCO(oBrw, TNUEVO) STATIC oDlg, oGet, oCodigo, oNombre, oNumero, oCuenta, oBtn SET _3DLOOK ON SetGetColorFocus() // change GET colors when focused DEFINE DIALOG oDlg ; @ 1,1 GET oCodigo VAR CODBCO OF oDlg ...

... oWnd:oClient := oBrw ACTIVATE WINDOW oWnd ; ON INIT oBrw:SetFocus() RETURN NIL FUNCTION CBANCO(TNUEVO) STATIC oDlg, oGet, oCodigo, oNombre, oNumero, oCuenta, oBtn SET _3DLOOK ON SetGetColorFocus() // change GET colors when focused DEFINE DIALOG oDlg ; @ 1,1 GET oCodigo VAR CODBCO OF oDlg ...

... FUNCTION Entalba(cTitulo,cQueHago,reconduc,aAlias)   local oBmp   local cCodProTem   local cCodconTem   LOCAL cCodartTem   local oboton   local onumero   local oDlg,oGet   local ocodprou   local ti:=.F.   local cestado   local titulo   local valor:='S'   local lOldConfirm := Set( _SET_CONFIRM ...

... Static mGrabar,mBorrar, mAnular, mNvoDoc,mTotalcos,mTotaligv,mTotalReg,mNomcli,oNomcli static mNumero,mCod,mDesc1,mFecha,mMts,mObser1,mObser2,oNumero,oCod,oDesc1,oFecha,oMts,oObser1,oObser2 static oProf,mProf,oCli,mCli,mMedProf,mConsumo,oMedProf,oConsumo,FilMovi, FilNtx, oSay1,oBrw,oBtagre,oBtborra,oBtmodi ...