Problemas con DBCOMBO con FWH 0804

[Biel EA6DD]

Al cambiar de version de FWH, los comandos REDEFINE DBCOMBO, han dejado de funcionar. Es como si el preprocesador no hiciera nada con la linea, a pesar de tener el include dbcombo.ch
El siguiente código con FWH marzo 2006 funciona ok, con la actual da el siguiente error

test.prg(7) Error E0030 Syntax error: "syntax error at 'DBCOMBO'"

Code: Select all  Expand view  RUN

#include "FiveWin.Ch"
#include "dbCombo.ch"

FUNCTION main()
   LOCAL oDlg,cDato:=''
   DEFINE DIALOG oDlg RESOURCE "DLG"
   REDEFINE DBCOMBO cDato ID 603 OF oDlg ITEMS {'1','2','3'} PROMPTS {'UNO','DOS','TES'}
   ACTIVATE DIALOG oDlg
RETURN NIL


Fichero RC

Code: Select all  Expand view  RUN

#include <windows.h>

LANGUAGE LANG_SPANISH,SUBLANG_SPANISH_MODERN

DLG DIALOGEX DISCARDABLE 6, 18, 297, 142
STYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Dialog"
FONT 8, "MS Sans Serif", 0, 0, 1
BEGIN
  CONTROL "", 603, "ComboBox", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 77, 14, 60, 40
END


PPO con FWH antiguo

Code: Select all  Expand view  RUN

...
FUNCTION main()
   LOCAL oDlg,cDato:=""
   oDlg = TDialog():New(,,,,,"DLG",,.F.,,,,,,.F.,,,,,,.F. )
    TDBCombo():ReDefine(603,{ | u | If(PCount()==0,cDato,cDato:= u ) },{"1","2","3"},oDlg,,,,,,,.F.,,,,,,,{"UNO","DOS","TES"} )
   oDlg:Activate(oDlg:bLClicked,oDlg:bMoved,oDlg:bPainted,.F.,,,,oDlg:bRClicked,,)
RETURN NIL


Con FWH 0804

Code: Select all  Expand view  RUN

...
FUNCTION main()
   LOCAL oDlg,cDato:=""
   oDlg = TDialog():New(,,,,, "DLG",, .F.,,,,,, .F.,,,,,, .F. )
   REDEFINE DBCOMBO cDato ID 603 OF oDlg ITEMS {"1","2","3"} PROMPTS {"UNO","DOS","TES"}
   oDlg:Activate( oDlg:bLClicked, oDlg:bMoved, oDlg:bPainted, .F.,,,, oDlg:bRClicked,, )
RETURN NIL

[Antonio Linares]

Biel,

Hay un error en dbcombo.ch que por lo visto antes no lo detectaba el preprocesador. La cláusula PROMPTS está duplicada. Hay que quitar la primera que aparece:

#xcommand REDEFINE DBCOMBO [ <oCbx> VAR ] <cVar> ;
[ <items: ITEMS , PROMPTS> <aItems> ] ;
[ ID <nId> ] ;
[ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ ON CHANGE <uChange> ] ;
[ VALID <uValid> ] ;
[ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
[ <update: UPDATE> ] ;
[ MESSAGE <cMsg> ] ;
[ WHEN <uWhen> ] ;
[ BITMAPS <acBitmaps> ] ;
[ ON DRAWITEM <uBmpSelect> ] ;
[ ALIAS <cAlias> ] ;
[ ITEMFIELD <cFldItem> ] ;
[ LISTFIELD <cFldList> ] ;
[ <list: LIST, PROMPTS> <aList> ] ;

[Biel EA6DD]

Ok, perfecto Antonio ya está solucionado. Gracias.

[jicorral]

¿Como quedaria? No se usar el preprocesador.

Biel,

Hay un error en dbcombo.ch que por lo visto antes no lo detectaba el preprocesador. La cláusula PROMPTS está duplicada. Hay que quitar la primera que aparece:

#xcommand REDEFINE DBCOMBO [ <oCbx> VAR ] <cVar> ;
[ <items: ITEMS , PROMPTS> <aItems> ] ;
[ ID <nId> ] ;
[ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ ON CHANGE <uChange> ] ;
[ VALID <uValid> ] ;
[ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
[ <update: UPDATE> ] ;
[ MESSAGE <cMsg> ] ;
[ WHEN <uWhen> ] ;
[ BITMAPS <acBitmaps> ] ;
[ ON DRAWITEM <uBmpSelect> ] ;
[ ALIAS <cAlias> ] ;
[ ITEMFIELD <cFldItem> ] ;
[ LISTFIELD <cFldList> ] ;
[ <list: LIST, PROMPTS> <aList> ] ;

[Antonio Linares]

JI,

Tienes que modificar fwh\include\dbcombo.ch

[jicorral]

Si, pero lo modifico y me sigue dando el error de sintaxis. El tema es que no se muy bien que tengo que quitar.

JI,

Tienes que modificar fwh\include\dbcombo.ch

[Antonio Linares]

Que error te da ?

[jicorral]

Aqui lo tienes:

Code: Select all  Expand view  RUN

D:\GASI\PRG\ENCARGOS.PRG(866) Error E0030  Syntax error: "parse error at 'DBCOMBO'"

El codigo es:

Code: Select all  Expand view  RUN

   REDEFINE DBCOMBO oCbx VAR oEnc:Estado ID 1005 OF oDlg;
      ALIAS oEnc:cAlias ;
      ITEMSFIELD 'Cod' ;
      LISTFIELD 'Descrip' ;
      UPDATE

[Kleyber]

Aqui lo tienes:

Code: Select all  Expand view  RUN

D:\GASI\PRG\ENCARGOS.PRG(866) Error E0030  Syntax error: "parse error at 'DBCOMBO'"

El codigo es:

Code: Select all  Expand view  RUN

   REDEFINE DBCOMBO oCbx VAR oEnc:Estado ID 1005 OF oDlg;
      ALIAS oEnc:cAlias ;
      ITEMSFIELD 'Cod' ;
      LISTFIELD 'Descrip' ;
      UPDATE

Disculpa la intromision, pero... no seria esto:
REDEFINE DBCOMBO oCbx VAR oEnc:Estado ID 1005 OF oDlg;
ALIAS oEnc:cAlias ;
ITEMFIELD 'Cod' ;
LISTFIELD 'Descrip' ;
UPDATE

Saludos,

[jicorral]

Solucionado. Gracias. Eran las 2 cosas, eso y modificar el .ch