¿ La variable de REDEFINE GET cambia su tamaño ?

[wyerco613]

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

[Antonio Linares]

Waldemar,

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

[wyerco613]

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

[Antonio Linares]

Copia aqui tu fichero RC y el PRG, gracias

[Hector Pedro Lerda]

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

[wyerco613]

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

[Antonio Linares]

Waldemar,

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

[wyerco613]

Waldemar,

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

Disculpa Antonio no sabía pasar de res a rc paro ahora sí, aquí esta el código:

INGBEN DIALOG DISCARDABLE 74, 71, 302, 65
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU
CAPTION "Ingresar Beneficio"
FONT 8, "MS Sans Serif"
{
CONTROL "", -1, "Button", BS_GROUPBOX, 7, 5, 217, 52
CONTROL "Código", -1, "Static", WS_GROUP, 14, 21, 30, 8
CONTROL "Beneficio", -1, "Static", WS_GROUP, 14, 39, 30, 8
CONTROL "", 101, "Edit", ES_READONLY|WS_BORDER|WS_DISABLED, 48, 19, 45, 12
CONTROL "", 102, "Edit", WS_BORDER|WS_TABSTOP, 48, 36, 170, 12
CONTROL "&Grabar y Salir", 103, "Button", WS_TABSTOP, 236, 8, 54, 14
CONTROL "&Ingresar Otro", 104, "Button", WS_TABSTOP, 236, 24, 54, 14
CONTROL "&Cancelar", 105, "Button", WS_TABSTOP, 236, 40, 54, 14
CONTROL "Button", 200, "BorBtn", WS_TABSTOP|0x00008000, 98, 16, 15, 16
}

Saludos Waldemar

[nanoespinoza]

Estimados

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

Saludos

Fernando Espinoza A.

[armando.lagunas]

Code: Select all

INGBEN DIALOG DISCARDABLE 74, 71, 302, 65
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU
CAPTION "Ingresar Beneficio"
FONT 8, "MS Sans Serif"
{
CONTROL "", -1, "Button", BS_GROUPBOX, 7, 5, 217, 52
CONTROL "Código", -1, "Static", WS_GROUP, 14, 21, 30, 8
CONTROL "Beneficio", -1, "Static", WS_GROUP, 14, 39, 30, 8
CONTROL "", 101, "Edit", ES_READONLY|WS_BORDER|WS_DISABLED, 48, 19, 45, 12
CONTROL "", 102, "Edit", ES_MULTILINE|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 48, 36, 170, 12       <-- aqui la modificación
CONTROL "&Grabar y Salir", 103, "Button", WS_TABSTOP, 236, 8, 54, 14
CONTROL "&Ingresar Otro", 104, "Button", WS_TABSTOP, 236, 24, 54, 14
CONTROL "&Cancelar", 105, "Button", WS_TABSTOP, 236, 40, 54, 14
CONTROL "Button", 200, "BorBtn", WS_TABSTOP|0x00008000, 98, 16, 15, 16
}