topic-10754

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Problemas con DBCOMBO con FWH 0804
Posted: Thu Apr 17, 2008 07:25 AM

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 Collapse

#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 Collapse

#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 Collapse

...
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 Collapse

...
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

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Problemas con DBCOMBO con FWH 0804
Posted: Thu Apr 17, 2008 08:17 AM

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> ] ;

regards, saludos

Antonio Linares
www.fivetechsoft.com

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Problemas con DBCOMBO con FWH 0804
Posted: Thu Apr 17, 2008 08:58 AM

Ok, perfecto Antonio ya está solucionado. Gracias.

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

jicorral

Posts: 47

Joined: Thu Jul 10, 2008 07:33 AM

Problemas con DBCOMBO con FWH 0804
Posted: Thu Oct 30, 2008 10:11 AM

¿Como quedaria? No se usar el preprocesador.

Antonio Linares wrote: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> ] ;

Jorge Ignacio Corral
Enjoy it :)

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Problemas con DBCOMBO con FWH 0804
Posted: Thu Oct 30, 2008 11:15 AM

JI,

Tienes que modificar fwh\include\dbcombo.ch

regards, saludos

Antonio Linares
www.fivetechsoft.com

jicorral

Posts: 47

Joined: Thu Jul 10, 2008 07:33 AM

Problemas con DBCOMBO con FWH 0804
Posted: Thu Oct 30, 2008 12:47 PM

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

Antonio Linares wrote:JI,

Tienes que modificar fwh\include\dbcombo.ch

Jorge Ignacio Corral
Enjoy it :)

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Problemas con DBCOMBO con FWH 0804
Posted: Thu Oct 30, 2008 01:44 PM

Que error te da ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

jicorral

Posts: 47

Joined: Thu Jul 10, 2008 07:33 AM

Problemas con DBCOMBO con FWH 0804
Posted: Thu Oct 30, 2008 02:07 PM

Aqui lo tienes:

Code: Select all Collapse

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

El codigo es:

Code: Select all Collapse

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

Jorge Ignacio Corral
Enjoy it :)

Kleyber

Posts: 581

Joined: Tue Oct 11, 2005 11:28 AM

Problemas con DBCOMBO con FWH 0804
Posted: Thu Oct 30, 2008 06:07 PM

jicorral wrote:Aqui lo tienes:

Code: Select all Collapse

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

El codigo es:

Code: Select all Collapse

	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,

Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB

jicorral

Posts: 47

Joined: Thu Jul 10, 2008 07:33 AM

Problemas con DBCOMBO con FWH 0804
Posted: Fri Oct 31, 2008 08:03 AM

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

Jorge Ignacio Corral
Enjoy it :)

FiveTech Support Forums

Continue the discussion