FiveTech Software tech 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

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

Estimados

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

Saludos

Fernando Espinoza A.