Capturar Valor

[LOUIS]

Hola Amigos:

En un TextBox ingreso un valor numerico
@ 125,475 TEXTBOX MM WIDTH 50 HEIGHT 40 FONT "TAHOMA" SIZE 24 BOLD FONTCOLOR BLACK NUMERIC INPUTMASK '99'
Luego quiero coger este valor en una variable, así :
QP = RETENCIONES.MM.VALUE

Pero en QP no tengo nada ...
Qué estoy haciendo mal ?

De antemano muchas gracias.

[danielmaximiliano]

podrias poner el codigo original , si es un FMG el codigo completo del archivo FMG.
para ello utiliza las herramientas de "Full Editor" asi no se hace extenso el codigo para verlo aqui

[LOUIS]

Gracias Daniel, aqui esta el codigo ...

Code: Select all

procedure COMPRUEBA

DEFINE WINDOW RETENCIONES;
   AT 0,0 ;
   WIDTH 1024 HEIGHT 732 BACKCOLOR BLUE NOCAPTION
   @ 000,000 LABEL Label_1 WIDTH 1024 HEIGHT 50 FONT "ARIAL" SIZE 36 BOLD FONTCOLOR WHITE VALUE "&CIA" TRANSPARENT
   @ 050,000 LABEL Label_2 WIDTH 1024 HEIGHT 50 FONT "MAGNETO" SIZE 30 FONTCOLOR WHITE VALUE "Verificando Retenciones :" TRANSPARENT
   @ 125,000 LABEL Label_3 WIDTH 1024 HEIGHT 36 FONT "TAHOMA" SIZE 24 FONTCOLOR WHITE VALUE "DIGITE EL NUMERO DEL MES" TRANSPARENT
   @ 125,475 TEXTBOX MM    WIDTH 50 HEIGHT 40 FONT "TAHOMA" SIZE 24 FONTCOLOR BLACK NUMERIC INPUTMASK '99'
   @ 125,550 BUTTON BUTTON_1 CAPTION "MOSTRAR !" ONCLICK MUESTRA()

   ON KEY ESCAPE ACTION SALIDA()
END WINDOW

ACTIVATE WINDOW RETENCIONES

*-----------------------
Procedure MUESTRA()

PRIVATE QP
QP=0
MM=0
ANO=YEAR(QFECHA_INI)

QP = RETENCIONES.MM.VALUE

Y es la última linea QP = RETENCIONES.MM.VALUE donde no logro capturar el valor ingresado en TEXTBOX

Además y disculpa la molestia, como puedo validar en el textbox sólo valores del 1 al 12 ?

Te agradezco nuevamente.

[luisvasquezcl]

Hola Louis
Te comento lo que encontré.
1. Falta el tipo de la ventana : Main, Child,etc.
2. El problema que no te funciona el botón es porque el label_3 cubre el botón por lo tanto no funciona el evento Action. Para corregir este problema acorta el largo del label.
Para validar el valor debes:
if qp < 1 .or. qp > 12
msginfo("error de periodo")
endif
Espero te sea de ayuda.
Saludos cordiales,
Luis Vasquez

[LOUIS]

Amigo Luis gracias por responder.

En verdad yo no tengo el problema de la label, talvez se deba a que su versión no es la que Yo uso (3.0.46)
En todo caso, encontré la solución; primero quité la palabra NUMERIC y ahí sí me capturó el valor, claro que en modo CHAR;
luego la variable QP la redefiní como VAL y listo, funcionó.

Gracias de todos modos.

[Carlos Britos]

Code: Select all

*-----------------------
Procedure MUESTRA()

PRIVATE QP
QP=0
MM=0
ANO=YEAR(QFECHA_INI)

QP = RETENCIONES.MM.VALUE

A la variable MM se le esta asignando el valor 0

MM es el nombre del control y de una variable en la misma funcion

[LOUIS]

Tiene razón amigo Carlos, suprimí esa linea MM=0 , pero si hubo necesidad también de quitar la palabra NUMERIC.

Sí funcionó, gracias por su acotación.