topic-27824

Board index FiveWin para Harbour/xHarbour xBROWSE .... SAY (Solucionado)

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

xBROWSE .... SAY (Solucionado)
Posted: Sat Dec 14, 2013 05:54 PM

Saludos Amigos

He buscado esto y es muy general, por lo que me disculpan si ya se ha discutido antes.

Tengo un XBROWSE que actualizara una serie de SAY, lo primero que pense es usar ON CHANGE, pero no lo hace como yo espero a cambiar de una linea del xBrowse a otra.

El Codigo que uso es el siguiente:

Code (fw): Select all Collapse

FUNCTION Contactos()

    DEFINE DIALOG oDCuenta RESOURCE DLG_CC_CAT TITLE cTitulo ;
           COLOR  0, CLR_WHITE TRANSPARENT

      REDEFINE XBROWSE oBrowse ; && Define la lista XBrowse
               ID 211 ALIAS "CC_CONTAC" ;
                COLUMNS "DETALLE", "CARGO" ;
                HEADERS "Contacto", "Cargo" ;
                COLSIZES 230, 170 ;
                ON CHANGE  ActualizaContacto( @cContact_Deta, @cContact_Cargo, @cContact_Direc, @cContact_Email, @cContact_Tel, @cContact_Movil, oGet ) ;
                FONT oFont ;
                OF oDCuenta ; Ajust_xBrws( oBrowse )

      REDEFINE SAY oSay[1] VAR cContact_Deta  MEMO ID 212 OF oDCuenta UPDATE
      REDEFINE SAY oGet[2] VAR cContact_Cargo MEMO ID 213 OF oDCuenta UPDATE
      REDEFINE SAY oGet[3] VAR cContact_Direc MEMO ID 214 OF oDCuenta UPDATE
      REDEFINE SAY oGet[4] VAR cContact_Email MEMO ID 215 OF oDCuenta UPDATE
      REDEFINE SAY oGet[5] VAR cContact_Tel   ID 216 OF oDCuenta UPDATE
      REDEFINE SAY oGet[6] VAR cContact_Movil ID 217 OF oDCuenta UPDATE

   ACTIVATE DIALOG oDCuenta CENTERED

RETURN NIL

/*
    FUNCION ESTATICA ActualizaContacto()
    Actualiza datos de contactos
*/
STATIC FUNCTION ActualizaContacto( cContact_Deta, cContact_Cargo, cContact_Direc, cContact_Email,;
                                   cContact_Tel, cContact_Movil, oSay )

    cContact_Deta  := CCMSCONTAC->DETALLE
    cContact_Cargo := CCMSCONTAC->CARGO
    cContact_Direc := CCMSCONTAC->DIRECCION
    cContact_Email := CCMSCONTAC->EMAIL
    cContact_Tel   := CCMSCONTAC->TELEFONO
    cContact_Movil := CCMSCONTAC->MOVIL

   IF oGet != NIL
      oSay[1]:Refresh() ; oSay[2]:Refresh() ; oSay[3]:Refresh()
      oSay[4]:Refresh() ; oSay[5]:Refresh() ; oSay[6]:Refresh()
   ENDIF

   RETURN NIL

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

Manuel Aranda

Posts: 610

Joined: Wed Oct 19, 2005 08:20 PM

Re: xBROWSE .... SAY
Posted: Sat Dec 14, 2013 06:11 PM

Has probado con bChange ? :

oBrowse:bChange:= {||ActualizaContacto( cContact_Deta, cContact_Cargo, cContact_Direc, cContact_Email,cContact_Tel, cContact_Movil, oSay ) }

Un saludo,

Manuel

xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: xBROWSE .... SAY
Posted: Sat Dec 14, 2013 07:09 PM

es mi idea o tienes un solo oSay y varios oGet, en los redefines y estas actualizando varios oSay en la funcion?
o el ejemplo lo tienes malo.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Blessed

Posts: 243

Joined: Wed Sep 19, 2007 04:32 PM

Re: xBROWSE .... SAY
Posted: Mon Dec 16, 2013 12:00 PM

Saludos

Gracias Manuel, con esa modificacion funciono.
Y si carlos tienes razon, en un principio la idea eran Get, pero al no funcionar los cambie a Say al pasar al post renombre algunas cosas y olvide colocar el mismo nombre a las variables

Gracias

Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06

FiveTech Support Forums

Continue the discussion