FiveTech Software tech support forums

Amigos

Estoy usando, por vez primera, un folder que pertenece a un modulo1 para rellenar datos provenientes de un un browse perteneciente a un modulo2. El inconveniente es que los datos procedentes del browse no aparecen en el Folder sino hasta que vuelva a clickar en el GET que ha solicitado el dato.

Por fa' ¿hay manera de refrescar el get del folder de una manera simple?

Este es el trozo de codigo:
Function CtaBco()

DEFINE DIALOG oDlg1 ;
RESOURCE "MiFolder" ;
of oWndBCO

oDlg1:cCaption := Title
oDlg1:lHelpIcon := .f.
oDlg1:bGotfocus := {|| oNombre:Setfocus(), oFld:refresh()}

REDEFINE FOLDER oFld ID 333 OF oDlg1 ;
PROMPT "Datos Generales", ;
"Observaciones";
DIALOGS "Dlg_1", "Dlg_2" ;
UPDATE

oFld:lWin95Look := .T.

REDEFINE GET oCuenta VAR CTABCO ;
OF oFld:aDialogs[1] ;
ID 336 PICTURE "@ !" ;
VALID (IIF(EMPTY(CTABCO), ; // para mostrar el dato recibido se tiene que clickar nuevamente en este GET
( CatchCta(oCuenta, CTABCO), oFld:refresh(), oCuenta:Setfocus(), oCuenta:refresh(), .T. ), .F.)) ;
UPDATE

ACTIVATE DIALOG oDlg1 CENTERED


oFont:end()
oFont1:end()
SELECT(cAlias)
DBGOTO(nRec)

RETURN NIL

FUNCTION CatchCta( oCuenta, cCTABCO )
*
LOCAL oDlg, oBrw, oBtn1, oBtn2, oBtn3, oBtn4, oBtn5
LOCAL nRec, lOk := .F.
LOCAL cAlias := ALIAS()
* ---Initialize database file.
SELECT Cta
DBGOTOP()
*
* ---Main execution loop.
DEFINE DIALOG oDlg RESOURCE "BrwABMP" ;
TITLE "Cuentas Contables"
oDlg:lhelpicon:= .F.

REDEFINE LISTBOX oBrw ;
ALIAS Cta ;
FIELDS ;
Cta->CTA_CODIGO, ;
Cta->CTA_DESCRI ;
HEADERS ;
"Código", ;
"Cuenta Contable" ;
ID 101 ;
ON DBLCLICK (lOk := .T., oDlg:end() ) ;
OF oDlg UPDATE

oBrw:UpStable()

REDEFINE BUTTON oBtn3 ;
ID 104 ;
OF oDlg ;
ACTION (lOk := .T., oDlg:end() ) ;
MESSAGE "Este es el boton 3 - Seleccionar"
oBtn3:cCaption := "&Seleccionar"

REDEFINE BUTTON oBtn5 ;
ID 106 ;
OF oDlg ;
ACTION ( oDlg:end() ) ;
MESSAGE "Este es el boton 5 - sALIR" CANCEL

ACTIVATE DIALOG oDlg CENTERED
*
IF lOk
cCTABCO := ALLTRIM(Cta->CTA_CODIGO)
oCuenta:cText(cCTABCO)
oCuenta:refresh()
ENDIF
*
SELECT(cAlias)
RETURN(.T.)[color=#0000FF][color=#0000FF][color=#0000FF][/color][/color][/color]

Hola Armando,
Prueba así:

Code: Select all  Expand view

*
IF lOk
   cCTABCO := ALLTRIM(Cta->CTA_CODIGO)
   oCuenta:VarPut(cCTABCO)
   oCuenta:EditUpdate()
   oCuenta:Refresh()
ENDIF
*
 

Manuel

El get contenido en el folder no se refresca. Continúa necesitando clickar en el Get. ¿Otra sugerencia?

Armando;
a ver si esto funciona

Code: Select all  Expand view

VALID (IIF(EMPTY(CTABCO), ; // para mostrar el dato recibido se tiene que clickar nuevamente en este GET
( CatchCta(oCuenta, @CTABCO), oFld:refresh(), oCuenta:Setfocus(), oCuenta:refresh(), .T. )

...

IF lOk
   cCTABCO := ALLTRIM(Cta->CTA_CODIGO)
ENDIF
 

Me resulta raro que no funcione con VarPut()
Saludos

Mario

Tampoco funca. Sigue necesitando darle al click nuevamente. Es como si algo faltara en el manejo del objeto folder para que pudiera refrescar el Get. Se continúa aceptando sugerencias...

Se me ocurre una trampa

...( CatchCta(oCuenta, CTABCO), oFld:refresh(), oCuenta:Setfocus(), oCuenta:Click(), oCuenta:refresh(), .T. )

,...ya que es el click lo que lo refresca

Ni el truco funca.

También probe:
IF lOk
cCTABCO := ALLTRIM(Cta->CTA_CODIGO) + CHR(13) // para incluir un Return
ENDIF

¡Uffff! ¡Esta "macana" de folder si que se ha vuelto más arisca que "mujer coqueta"!

Armando,

Intenta esto y me comentas:

Code: Select all  Expand view

...( CatchCta(oCuenta, CTABCO), xSetfocus(oCuenta), oCuenta:refresh(), oFld:refresh(), .T. )
 

Code: Select all  Expand view

//----------------------------------------------------------------------------//
function xSetFocus( oObx )
// Atualizacao da tela
//----------------------------------------------------------------------------//
local oTempo:=""

define timer oTempo interval 10 of oObx:oWnd ;
  action (oObx:SetFocus(), oObx:SetPos(0), oTempo:Deactivate() )

activate timer oTempo

return nil
 

Armando,

Al final de la rutina donde tomas los nuevos valores, bastaria que mandaras un oFld:aDialogs[1]:update()


Saludos

Kleyber, Mario, Manuel

Ya está solucionado. Tuve que utilizar los metodos del Folder y del Get para que funcione bien. Aunque la solución propuesta, al final, por Raymundo también es otra mejor y más simple.

Raymundo

Tu solución también funciona y es más simple que el que encontré... Al final, las soluciones fueron más simples de lo esperado.

Esta fue mi solucion usando metodos del Folder y del Get

REDEFINE GET oCuenta VAR CTABCO ;
OF oFld:aDialogs[1] ;
ID 336 PICTURE "@!" ;
VALID (IIF(EMPTY(CTABCO), ;
( CatchCta(oCuenta, CTABCO), oFld:Update(),.T.), .F.) )

oCuenta:lUpdate=.t.