FiveTech Software tech support forums

... with a lookup value .... Great, then something like this will work: REDEFINE DBCOMBO oCbx VAR oDept:deptCode ID 101 OF oDlg ; ALIAS oDept:cAlias ; ITEMFIELD 'DEPTCODE' ; LISTFIELD 'DEPTNAME'; UPDATE This will display the field DEPTNAME and post the oDept:deptCode var back into the DEPTCODE field. ...

... the value, then just display the description and DBCombo returns the value. REDEFINE DBCOMBO oCbx VAR cDeptCode ID 101 OF oDlg ; ALIAS 'DEPT' ; ITEMFIELD 'DEPTCODE' ; LISTFIELD 'DEPTNAME' Otherwise, if you really must display the value, then create two arrays, one containing both the value and ...

... <cMsg> ] ; [ WHEN <uWhen> ] ; [ BITMAPS <acBitmaps> ] ; [ ON DRAWITEM <uBmpSelect> ] ; [ ALIAS <cAlias> ] ; [ ITEMFIELD <cFldItem> ] ; [ LISTFIELD <cFldList> ] ; [ <list: LIST, PROMPTS> <aList> ] ; [ RECORDSET <oDbrs> ] ; => ...

... funcionando perfectamente con el siguiente DbCombo: REDEFINE DbCombo oCbx[1] VAR oDbf[1]:idProd ID 104 OF oPage:aDialogs[1] ; ALIAS "CBOPROD" Itemfield "idProdtxt" ListField "Nombre" ; ON CHANGE ( PRODTOR->(DbSeek( oDbf[1]:aBuffer[5], .f. ) ), ; oSay[21]:SetText(PRODTOR->Dicose), ; oPage:aDialogs[1]:Update() ...

En Whats New dice: Previamente, ambos, itemField y listField tienen que ser de tipo carácter; ahora itemField (o array) puede ser numérico. Mira el nuevo ejemplo: samples\TESTDBC1.PRG. Gracias a James Bott. 1. Cuando itemsfield es numerico da ...

Antonio, Que estoy haciendo mal con este dbcombo? REDEFINE DbCombo oCbx[1] VAR oDbf[1]:idProd ID 104 OF oPage:aDialogs[1] ; ALIAS "CBOPROD" Itemfield "idProd" ListField "Nombre" ; ON CHANGE ( PRODTOR->(DbSeek( oDbf[1]:aBuffer[1], .f. ) ), ; oSay[21]:SetText(PRODTOR->Dicose), oPage:aDialogs[1]:Update() ...

... de areglos "arrays" usando los métodos New() y Redefine() no estaba funcionando, está corregido. Añadida busqueda incremental. Previamente, ambos, itemField y listField tienen que ser de tipo carácter; ahora itemField (o array) puede ser numérico. Mira el nuevo ejemplo: samples\TESTDBC1.PRG. Gracias ...

... the data from the file. Passing arrays using New() or Redefine() methods wasn't working--fixed. Added incremental searching. Previously, both the itemField and listField had to be character type; now the itemField (or array) can be numeric. See new sample program, samples\TESTDBC1.PRG for a working ...

... REDEFINE DBCOMBO oPackCode VAR oInv:aItem[nItem, 4] ID CBINVTRPACKTYPE OF oDlgItem UPDATE; ALIAS 'PACK' ; ITEMFIELD 'PACKCODE' ; LISTFIELD 'PACKNAME' ; VALID !Empty(oInv:aItem[nItem, 4]) REDEFINE BUTTON ID PBINVTRPACKNEW ACTION Ins_Pack (oDlgItem, 'Add'), ...

... "NUMGPO" ) ) ) si te da 0 es por que esta colocando un campo que no existe.. REDEFINE DBCOMBO oGetArt VAR GruArt ID 103 OF oDLG; ALIAS "GRUPOS" ITEMFIELD "NUMGPO" LISTFIELD "NOMGPO y ademas yo lo utilizo igual y me funciona ok espero que te sirva Saludos Patricio

... "La clase " + AllTrim( Clase ) + ; " no existe" ), .f. ))) OF oDlg UPDATE REDEFINE DBCOMBO oGetArt VAR GruArt ID 103 OF oDLG; ALIAS "GRUPOS" ITEMFIELD "NUMGPO" LISTFIELD "NOMGPO" /* REDEFINE DBCOMBO SubGArt ID 104 OF oDLG; ALIAS "subgrupos" ITEMFIELD "NumSubGpo" LISTFIELD "NomSubGpo" REDEFINE ...

Hello, Should the table being used be set to any specific active index tag ? If yes, to ListField index or ItemField Index ? I am gettig quite strange result with it. Here is the small example demonstrating the same. In this example, selecting 'ABC' should return 1 instead it ...

... "La clase " + AllTrim( Clase ) + ; " no existe" ), .f. ))) OF oDlg UPDATE REDEFINE DBCOMBO oGetArt VAR GruArt ID 103 OF oDLG; ALIAS "GRUPOS" ITEMFIELD "NUMGPO" LISTFIELD "NOMGPO" /* REDEFINE DBCOMBO SubGArt ID 104 OF oDLG; ALIAS "subgrupos" ITEMFIELD "NumSubGpo" LISTFIELD "NomSubGpo" REDEFINE ...

... <cMsg> ] ; [ WHEN <uWhen> ] ; [ BITMAPS <acBitmaps> ] ; [ ON DRAWITEM <uBmpSelect> ] ; [ ALIAS <cAlias> ] ; [ ITEMFIELD <cFldItem> ] ; [ LISTFIELD <cFldList> ] ; [ <list: LIST, PROMPTS> <aList> ] ; => ; [ <oCbx> := ] TDBCombo():ReDefine( ...