Error al usar cToolTip en un get

Post Reply
User avatar
noe aburto
Posts: 420
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Error al usar cToolTip en un get

Post by noe aburto »

Saludos Foro.

Al declarar un get y querer asignarle al cToolTip me manda error:

Time from start: 0 hours 0 mins 18 secs
Error occurred at: 26/01/2021, 18:25:51
Error description: Error BASE/1005 No exported variable: CTOOLTIP
Args:
[ 1] = C W
[ 2] = C A=Concesionario iniciado por empleados

Stack Calls
===========
Called from: => _CTOOLTIP( 0 )
Called from: MAUFUNC.PRG => WSDATOSVAR( 5928 )
Called from: SERMOGR.PRG => CITASWS( 1124 )

El codigo es:

Code: Select all

@ 1,2 get xWS1 picture '!' valid {||Solo(xWS1,{'A','I','P','S','W','U'})} of bPant
xWS1:cToolTip:='A=Concesionario iniciado por empleados'

 @ 2,2 get xWS2 picture '!' valid {||Solo(xWS2,{'C','K','M','N','U'})} of bPant
 xWS2:cToolTip:='C=Se canceló la cita'
 
Agradezco soluciones.
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
Posts: 420
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: Error al usar cToolTip en un get

Post by noe aburto »

Arreglado

No estaba usando el objeto get

deberia ser:

get xGet var cGet
xGet:cToolTip:=',,,,,,,'
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Error al usar cToolTip en un get

Post by karinha »

I love FiveWin the best!!

Code: Select all

// Testing GETs - \SAMPLES\ABURTO.PRG

#include "FiveWin.ch"

function Main()

   LOCAL bPant, oGet, oGet2, oGet3, oOk, oSalida
   LOCAL cCad := "Testing    "
   LOCAL nNum := 0
   LOCAL dDat := Date()
   LOCAL xWS1 := SPACE(01)
   LOCAL xWS2 := SPACE(01)

   Set century On
   Set Date Ansi
   Set Date format "mm/dd/yyyy"

   SET _3DLOOK ON

   DEFINE DIALOG bPant TITLE "TGet from " + FWDESCRIPTION

   @ 1,    2 SAY "Text..:" OF bPant

   // @ 1,2 get VAR xWS1 picture '!'  of bPant //??
   @ 1,    6 GET oGet VAR xWS1 OF bPant SIZE 30, 10 PICTURE "@K!" CENTER ;
      COLOR "W/G"                                                        ;
      VALID {||Solo(xWS1,{'A','I','P','S','W','U'})}

   oGet:cToolTip := "A=Concesionario iniciado por empleados"

   @ 1.8,  2 SAY "Number:" OF bPant

   //@ 2,2 get xWS2 picture '!' valid {||Solo(xWS2,{'C','K','M','N','U'})} of bPant
   @ 2,    6 GET oGet2 VAR xWS2 OF bPant SIZE 30, 10  PICTURE "@K!" CENTER ;
      VALID {||Solo(xWS2,{'C','K','M','N','U'})}

   oGet2:cToolTip := "C=Se canceló la cita"

   @ 2.6,  2 SAY "Date:" OF bPant

   @ 3,    6 GET oGet3 VAR dDat PICTURE "@E" OF bPant SIZE 60, 10 CENTER

   oGet3:cToolTip := OemToAnsi( "FiveWin ‚s mi Amorecito Lindo" )

   @ 3,    7 BUTTON oOk PROMPT "&Ok" OF bPant SIZE 30, 12         ;
      ACTION bPant:End()

   oOk:cToolTip := "Click OK"

   @ 3,   16 BUTTON oSalida PROMPT "&Cancel" SIZE 30, 12 OF bPant ;
      ACTION bPant:End() CANCEL

   // Moderno ToolTip:
   oSalida:cTooltip := { "Salida - Exit - Cancelar", ;
                         "Salida - Exit - Cancelar", 1, CLR_WHITE, CLR_HBLUE }
   
   ACTIVATE DIALOG bPant CENTERED

return nil

FUNCTION SOLO( xWS1 )

RETURN( .T. )

// fin - kapiabafwh@gmail.com - Covid-19.
 
João Santos - São Paulo - Brasil
Post Reply