FiveTech Support Forums

Estimados

¿ Cambiaron los GETS ?

cNombre:=Space(40)

REDEFINE GET cNombre ID 102 OF oDlg

Pero cuando se abre la ventana solo me deja ingresar 23 caracteres, ¿Por qué no reconoce los 40?

Claro que si coloco:

REDEFINE GET cNombre ID 102 OF oDlg PICTURE replicate("!",40), aquí lo hace, pero ¿puede reconocer los 40 espacios sin colocar el picture?

Desde ya muchas gracias por la ayuda

Waldemar

Waldemar,

Aumenta el ancho del GET en el fichero de recursos ó añádele el estilo ES_AUTOSCROLL

Estimado Antonio

No me hice entender bien (debe ser el oxido) a la variable del REDEFINE GET le doy el tamaño con Space y no me acepta la misma cantidad de caracteres.
Me pasa tambien con los GET numéricos.
Egemplo

cVar:=Space(20)
REDEFINE GET cVar ID 102 OF oDlg Cuando abro esta ventana de dialogo y trato de ingresar los 20 caracteres en este GET solo me permite 13 y en todos los GET pasa lo mismo (Ya revise SP_SCROLL y el tamaño del control.

Atentamente,

Waldemar

Copia aqui tu fichero RC y el PRG, gracias

Buen dia Waldemar

trata de cambiar esto

cNombre:=Space(40)

REDEFINE GET cNombre ID 102 OF oDlg

coloca esto

REDEFINE GET nombre var cNombre ID 102 OF oDlg

Saludos Pedro

Estimado Hector

Ya hice lo que me mostraste.

Estimado Antonio ocupo Pelles, trate de subir un pantallaso pero no se como hacerlo, aquí el código:

      if nIngReg=1 .or. lPasar
         aIng:=array(2)
         aIng:={1,Space(30)}
         lPasar:=.F.
      endif

      if ContarReg(BEN)>0
         nInd:=Benefi->(Indexord())
         Benefi->(dbSetorder(1))
         Benefi->(dbGoBottom())
         aIng[1]:=Benefi->(Fieldget(2))+1
         Benefi->(dbSetorder(nInd))
      endif

      DEFINE DIALOG oDlg RESOURCE "INGBEN" FONT oLetra

      REDEFINE GET aIng[1] ID 101 OF oDlg READONLY//;

// WHEN (oG1:Setfocus(),.T.)

      REDEFINE GET oG1 VAR aIng[2] ID 102 OF oDlg


      REDEFINE BUTTON ID 103 OF oDlg;
               ACTION (lGrabar:=.T.,oDlg:end())
      REDEFINE BUTTON ID 104 OF oDlg;
               ACTION (lOtro:=.T.,lGrabar:=.T.,oDlg:end())
      REDEFINE BUTTON ID 105 OF oDlg;
               ACTION oDlg:End()


      ACTIVATE DIALOG oDlg CENTERED//;
               //ON INIT (oG1:Setfocus())

Saludos

Waldemar

Waldemar,

El contenido de RESOURCE "INGBEN" es que quisiera ver, gracias

Antonio Linares wrote:Waldemar,

El contenido de RESOURCE "INGBEN" es que quisiera ver, gracias

Estimados

Tengo el mismo problema, alguien que pueda detallar una solución.

Saludos

Fernando Espinoza A.