Error: FWH2206 Parte2

[csincuir]

Hola de nuevo Antonio.
En el mensaje anterior mostraba el primero problema que tengo con la versión FWH2206
Tengo este segundo problema, que ya lo solucioné, pero tengo la duda porque se da el mismo.

El problema se presenta con este codigo:

Code: Select all  Expand view  RUN

DEFINE DIALOG oDlg RESOURCE "Acceso4"

   REDEFINE GET oPara:cHost ID 13 OF oDlg UPDATE WHEN !oPara:lWeb
   REDEFINE GET oPara:nPort ID 14 OF oDlg SPINNER MIN 3300 MAX 3320 PICTURE "99999" UPDATE

   REDEFINE CHECKBOX oPara:lWeb ID 16 OF oDlg UPDATE
   
    REDEFINE BUTTON ID 17 ACTION ParametrosWeb() When oPara:lWeb
   
   REDEFINE BUTTON ID 21 ACTION oDlg:End()  CANCEL
   REDEFINE BUTTON ID 22 ACTION oDlg:End() CANCEL

ACTIVATE DIALOG oDlg CENTER

Al ejecutar este código obtengo siguiente error:


Lo solucione agregado esta linea antes del Activate del dialogo:

Code: Select all  Expand view  RUN

 
   oDlg:lHtml := .f.

ACTIVATE DIALOG oDlg CENTER

Colocando .f. a esta variable lHtml ya no da el error, y como el error anterior, esto no sucede con la versión FWH2203

La pregunta sería: Porque se activa esta opción lHtml si el código descrito no tiene nada definido de HTML ??

Saludos cordiales.

Carlos Sincuir

[karinha]

Poste el código completo! Donde está el ARRAY()?

Regards, saludos.

[karinha]

Poste el ERROR.LOG no una imagen, por favor.

Regards, saludos.

[Antonio Linares]

Carlos,

Puedes proporcionar el fichero RC para probar el código ?

Es extraño que la DATA lHtml esté a .T.

[csincuir]

Poste el código completo! Donde está el ARRAY()?

Regards, saludos.

Hola Karinha,
El array esta en el archivo "WebApp.prg" de FiveWin, no lo tengo definido en mi código, por eso le preguntaba a Antonio porque se activaba esa DATA lHtml

Saludos Cordiales.

Carlos

[csincuir]

Carlos,

Puedes proporcionar el fichero RC para probar el código ?

Es extraño que la DATA lHtml esté a .T.

Antonio, este es el codigo del RC donde esta definido el dialogo:

Code: Select all  Expand view  RUN

LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
ACCESO4 DIALOG 100, 73, 267, 118
STYLE DS_3DLOOK | DS_MODALFRAME | DS_SETFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP
CAPTION " Acceso Servidor..."
FONT 8, "MS Sans Serif"
{
    COMBOBOX        15, 101, 217, 159, 19, WS_TABSTOP | CBS_DROPDOWNLIST, WS_EX_LEFT
    EDITTEXT        13, 94, 9, 159, 12, WS_GROUP | ES_AUTOHSCROLL | ES_WANTRETURN, WS_EX_LEFT
    EDITTEXT        14, 94, 42, 40, 12, WS_GROUP | WS_VSCROLL | ES_WANTRETURN, WS_EX_LEFT
    AUTOCHECKBOX    "Hosting Web:", 16, 194, 42, 57, 12, BS_LEFTTEXT, WS_EX_LEFT
    PUSHBUTTON      "Parametros / Hosting Web", 17, 94, 59, 158, 14, 0, WS_EX_LEFT
    COMBOBOX        11, 377, 87, 159, 19, WS_TABSTOP | CBS_DROPDOWNLIST, WS_EX_LEFT
    EDITTEXT        12, 377, 106, 159, 12, WS_GROUP | ES_AUTOHSCROLL | ES_WANTRETURN, WS_EX_LEFT
    PUSHBUTTON      "&Aceptar", 21, 112, 95, 70, 14, 0, WS_EX_LEFT
    PUSHBUTTON      "&Cancelar", 22, 182, 95, 70, 14, 0, WS_EX_LEFT
    LTEXT           "Nombre del Host / IP:", -1, 11, 11, 70, 9, SS_LEFT, WS_EX_LEFT
    CONTROL         "", -1, WC_STATIC, WS_GROUP | SS_GRAYFRAME, 5, 84, 253, 1, WS_EX_LEFT
    LTEXT           "Puerto", -1, 11, 44, 41, 8, SS_LEFT, WS_EX_LEFT
    CONTROL         "", -1, WC_STATIC, WS_GROUP | SS_GRAYFRAME, 5, 31, 253, 1, WS_EX_LEFT
    LTEXT           "Tipo de Servidor:", -1, 18, 219, 65, 8, SS_LEFT, WS_EX_LEFT
    LTEXT           "Tipo de Autenticación:", -1, 294, 91, 72, 9, SS_LEFT, WS_EX_LEFT
    LTEXT           "Nombre de DSN:", -1, 294, 108, 55, 9, SS_LEFT, WS_EX_LEFT
    CONTROL         "", -1, WC_STATIC, WS_GROUP | SS_GRAYFRAME, 288, 127, 253, 1, WS_EX_LEFT
}

 

Yo busque en el código de "WebApp.prg" la linea 420 donde da el error, y me pude dar cuenta de que la DATA lHtml estaba en .t., por eso antes de activar el diálogo lo cambie a .f.

Saludos cordiales.

Carlos