FiveTech Software tech support forums

Saludso al forum
estoy usando xharbour_20130327

me d error en esta instruccion como lo puedo ejecutar
el error esta el el VALID bus_ve01_a( &Objto:m_venini,c_alias,Objto)
el nombre de la clase definida la paso por parametro es oBjto

de esta manera funciona @ A1+6,A2+2 SAY "Vendedor Desde :" get &Objto:m_venini
pero al aumentar un valid o un When me genera el error.

http://www.4shared.com/account/dir/gmVUxGXf/_online.html#dir=gmVUxGXf

Code: Select all  Expand view

FUNCTION COND_LIS200(coger,c_alias,Objto,df)  //pxp200
      @ A1+6,A2+2 SAY "Vendedor Desde    :" get &Objto:m_venini ;
        VALID bus_ve01_a( &Objto:m_venini,c_alias,Objto) message  "Ingrese codigo  "
 

¿Porque no pasas el objeto en lugar de la variable? sería mucho más fácil para manejar el objeto.

Otra forma que se me ocurre sería que lo intentaras así

Code: Select all  Expand view

FUNCTION COND_LIS200(coger,c_alias,Objto,df)  //pxp200
      @ A1+6,A2+2 SAY "Vendedor Desde    :" get &Objto:m_venini ;
        VALID bus_ve01_a( (&Objto):m_venini,c_alias,Objto) message  "Ingrese codigo  "
 

Esta sería otra ídea

Code: Select all  Expand view

FUNCTION COND_LIS200(coger,c_alias,Objto,df)  //pxp200
      local oObejto := &Objto
      @ A1+6,A2+2 SAY "Vendedor Desde    :" get oObejto:m_venini ;
        VALID bus_ve01_a( oObejto:m_venini,c_alias,Objto) message  "Ingrese codigo  "

Gracias por tu aporte me funciono

con la versión xharbour_20130327 devuelve error:
Error BASE/3101 : __OBJGETMSGFULLLIST
con la versión rev.9656 funciona bien
devuelto a version anterior

http://comments.gmane.org/gmane.comp.la ... devel/4746