Page 1 of 1

Problema urgente por favor, estoy parado

Posted: Thu Nov 16, 2006 6:57 pm
by mjcc
Tengo el siguiente codigo RC:
************************************************************
#ifdef _CE
#include "c:\vce\include\arm\windows.h"
#include "c:\vce\include\arm\commctrl.h"
#endif

#define DIALOG_2 2
sub1 DIALOG 1, 2, 125, 99
STYLE WS_CHILD | 4
{
LTEXT "Fecha alta", 10, 82, 2, 26, 8
LTEXT "Codigo", 11, 4, 2, 26, 8
LTEXT "CIF/NIF", 13, 40, 2, 26, 8
EDITTEXT 210, 4, 16, 29, 12}


TestFld DIALOG 3, 6, 131, 124
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Ficha cliente"
FONT 8, "System"
{
CONTROL "", 800, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE, 1, 2, 128, 118
}
sub2 DIALOG 1, 2, 125, 99
STYLE WS_CHILD | 4
{
CONTROL "One", 110, "BUTTON", BS_AUTORADIOBUTTON | WS_GROUP | WS_TABSTOP, 4, 1, 28, 12
CONTROL "Two", 120, "BUTTON", BS_AUTORADIOBUTTON | WS_TABSTOP, 15, 12, 36, 12
CONTROL "Three", 130, "BUTTON", BS_AUTORADIOBUTTON | WS_TABSTOP, 4, 23, 36, 12
}
************************************************************
AHORA TENGO EL SIGUIENTE CODIGO EN UN FICHERO PRG
*************************************************************

FUNCTION ficha_cliente(numero_registro,obmpcli)
local oDlg, oFld, cValue

DEFINE DIALOG oDlg NAME "TestFld"

REDEFINE FOLDER oFld ID 800 OF oDlg;
PROMPTS "General", "Detalles" ;
DIALOGS "sub1", "sub2"

REDEFINE GET ID 210 OF oFld:aDialogs[ 1 ] PICTURE "XXXXXXX"

ACTIVATE DIALOG oDlg ;
ON INIT oFld:InitDialogs()
RETURN 0
*************************************************************
EL PROBLEMA QUE TENGO ES EN LA LINEA DEL REDEFINE, NO SOY CAPAZ DE REALIZAR EL REDEFINE DEL GET DEL FICHERO RC
*************************************************************
REDEFINE GET ID 210 OF oFld:aDialogs[ 1 ] PICTURE "XXXXXXX"


ALGUNO PUEDE AYUARME POR FAVOR ESTOY DESESPERADO.

Posted: Thu Nov 16, 2006 8:40 pm
by Antonio Linares
te falta especificar el nombre de la variable:

local cValue := Space( 20 )

...

REDEFINE GET cValue ID 210 OF oFld:aDialogs[ 1 ] PICTURE "XXXXXXX"

Gracias

Posted: Fri Nov 17, 2006 8:24 am
by mjcc
Gracias me ha ido perfectamente.

Como siempre estais ahi cuando os necesitamos
gracias