Ayuda DBCOMBO

[remtec]

Hola Amigos

Tengo un problema.

Estoy usando un DBCOMBO, siempre que ingreso a el, este se poseciona con un registro en blanco al inicio de la lista.

Siempre la variable trae un valor que corresponde a un registro de la base, quiero saber si existe la posibilidad de que la lista del DbCombobox se encuentre ubicada el registro que corresponde al valor que trae la variable.

Desde ya muchas gracias.

Saludos

Antonio

Codigo:

Code: Select all | Expand

        Abre_dbf("especia",2,.f.,"Espe")
        Set Inde To especia
        DbSetOrder(1) // 
        Database oEspe

** Por Ejemplo la variable Get33 = "MEDI"
        @ 82,300 DBCOMBO oGet33 var Get33 FONT oFont7 of oDlg2;
      alias oEspe:cAlias;
      size 200,210 pixel;
      itemfield "Cod_Esp";
      listfield "Nom_Esp";
      update  ON CHANGE   (Tipo_Espe(Get33),oNom_Esp3:VARPUT( Espe->Nom_Esp ),Nom_Esp:=Espe->Nom_Esp,Get3:=Get33,oGet3:Refresh(),oNom_Esp3:Show(),oGet33:Hide(), oGet33:Refresh(),oNom_Esp3:Refresh())

 

[carlos vargas]

please add the NOBLANK clause, first chek in dbcombo.ch if this version of class have the clause NOBLANK.

[JoseAlvarez]

Asegurate que la variable get33 tenga la misma longuitud que el campo nom_esp

[remtec]

Asegurate que la variable get33 tenga la misma longuitud que el campo nom_esp

Hola Jose

Muchas gracias por responder.

El Get33 del DbCombo, contiene el codigo de la especialidad, que es el que uso para guardar, mientras que la lista que muestra corresponde a la descripcion.
itemfield "Cod_Esp";
listfield "Nom_Esp";

Muchas gracias.

Saludos.

Antonio

[remtec]

please add the NOBLANK clause, first chek in dbcombo.ch if this version of class have the clause NOBLANK.

Hola Carlos

Muchas gracias por responder.

La version que tengo de FWH es la 22.10 y este es el DbCombo.ch que trae.

Muchas gracias

Saludos
Antonio

DbCombo.ch

Code: Select all | Expand

*********************************************************************
* File Name:    DBCombo.ch
* Author:   Elliott Whitticar
* Created:  04/23/96
* Description:  Preprocessor directives for TDBCombo class.
*********************************************************************
#ifndef _DBCOMBO_CH
#define _DBCOMBO_CH

/*----------------------------------------------------------------------------//
!short: DBCOMBO */

#xcommand @ <nRow>, <nCol> DBCOMBO [ <oCbx> VAR ] <cVar> ;
             [ ITEMS <aItems> ] ;
             [ SIZE <nWidth>, <nHeight> ] ;
             [ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ;
             [ <help:HELPID, HELP ID> <nHelpId> ] ;
             [ ON CHANGE <uChange> ] ;
             [ VALID <uValid> ] ;
             [ <color: COLOR,COLORS> <nClrText> [,<nClrBack>] ] ;
             [ <pixel: PIXEL> ] ;
             [ FONT <oFont> ] ;
             [ <update: UPDATE> ] ;
             [ MESSAGE <cMsg> ] ;
             [ WHEN <uWhen> ] ;
             [ <design: DESIGN> ] ;
             [ BITMAPS <acBitmaps> ] ;
             [ ON DRAWITEM <uBmpSelect> ] ;
             [ ALIAS <cAlias> ] ;
             [ ITEMFIELD <cFldItem> ] ;
             [ LISTFIELD <cFldList> ] ;
             [ <list: LIST, PROMPTS> <aList> ] ;
             [ <noblank: NOBLANK>] ;
             [ HEIGHTGET <nHGet> ] ;
       => ;
          [ <oCbx> := ] TDBCombo():New( <nRow>, <nCol>, bSETGET(<cVar>),;
             <aItems>, <nWidth>, <nHeight>, <oWnd>, <nHelpId>,;
             [{|Self|<uChange>}], <{uValid}>, <nClrText>, <nClrBack>,;
             <.pixel.>, <oFont>, <cMsg>, <.update.>, <{uWhen}>,;
             <.design.>, <acBitmaps>, [{|nItem|<uBmpSelect>}], ;
             <cAlias>, <(cFldItem)>, <(cFldList)>, <aList>, <nHGet> )

#xcommand REDEFINE DBCOMBO [ <oCbx> VAR ] <cVar> ;
             [ <items: ITEMS> <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> ] ;
       => ;
          [ <oCbx> := ] TDBCombo():ReDefine( <nId>, bSETGET(<cVar>),;
             <aItems>, <oWnd>, <nHelpId>, <{uValid}>, [{|Self|<uChange>}],;
             <nClrText>, <nClrBack>, <cMsg>, <.update.>, <{uWhen}>,;
             <acBitmaps>, [{|nItem|<uBmpSelect>}], ;
             <cAlias>, <(cFldItem)>, <(cFldList)>, <aList> )

#endif

 

[karinha]

https://forums.fivetechsupport.com/view ... =3&t=16285

ó

Code: Select all | Expand

   oDbc:Del(1)
 

Regards, saludos.

[remtec]

Hola João

Muchas gracias por responder.

Trate de aplicar su solucion, pero no di con un resultado positivo.

Saludos.

Antonio

[karinha]

Haga un ejemplo práctico con el .DBF y .RAR todo para pruebas, ok?

Regardsm saludos.