Problema urgente por favor, estoy parado
Posted: Thu Nov 16, 2006 6:57 pm
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.
************************************************************
#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.