Combobox para llenar DBf

[Compuin]

Buenas tardes,

Alguno de ustedes me podria ayudar con esto: Necesito llenar un campo de una Dbf desde un Combobox. Ya intente usar el DBCombo pero debo crear una DBf para sus valores. La idea es cargar los valores del Combobox desde un array y tambien que permita visualizar el registro ya cargado al momento de modificar.

Atento a sus comentarios

[fernandomoralesdr]

local aMeses := {"Enero", "Febrero", "Marzo", ...}, oCbx, cMes := ""

REDEFINE COMBOBOX oCbx VAR cMes ITEMS aMeses ID ID_MES OF oDlg
...

if lSave
ARCHIVO->CAMPO := cMes

[Compuin]

MIl gracias!!!

[MarioG]

Compuin;
Si entiendo tu consulta, lo hago así:

Code: Select all  Expand view

   REDEFINE DBCOMBO aO[_CmbM2] VAR cIDDoc ID 101 OF aO[_DlgM] UPDATE ;
            ALIAS     ::oDbTDoc:cAlias ;
            ITEMFIELD "FDOC01"         ;
            LISTFIELD "FDOC02"         ;
            ON CHANGE ...

// Boton para agregar registros a la DBF que muestra el DBcombo
   REDEFINE BTNBMP aO[_BtDocs] ID 520 OF aO[_DlgM] NOBORDER ;
            RESOURCE "bmp_AbreTb1"  ;
            TOOLTIP  "Abre Tabla Tipo de Documentos" ;
            ACTION   if( !Empty( cDescAdic:= oSelf:TbAdicionales( _TBDOCTIPO ) ), aO[_CmbM2]:Update(), )   // Aca llamo a una rutina con un Browse q despliega las descripciones mostradas en el DBCombo
// Luego, con los botones "Agrega/Edita", de esta rutina, habro un Dlg donde agrego/edito, segun la necesidad, a la DBF.
// Al volver actualizo el DBCombo con aO[_CmbM2]:Update() y aO[_CmbM2]:Refresh()
 

y se vé así:

[Compuin]

Gracias MarioG,

[fernandomoralesdr]

Hola.
Vamos, a ver, en un entorno de tablas, el uso de dbCombo sólo es comprensible siempre y cuando mantengas un número pequeño de registros. ¿Por qué? Porque te los carga en un array. Si tengo 10 ó 20 registros en la tabla, pues bien, pero cuando tienes 800, 1000 o 5000 registros no es comprensible su uso. Además, siempre que añadas o elimines un registro debes borrar y recargar la tabla para que lo mostrado sea lo real.
En definitiva, si tienes que darle al usuario la opción a elegir, te creas una ventana con un browse de la tabla y santas pascuas.
Otra cosa que echo en falta es el uso de la notación húngara en los nombres de variables, funciones, etc.
Un saludo,
Fernando

[Compuin]

En el caso que me presentas el combobox agrega al campo de la dbf el valor del array (Seria la rutina de Incluir) . Como puedo cargar desde el dbf al combobox para actualizar?

[Patricio Avalos Aguirre]

Hola

para eso deberas modificar la Clase dbCombo

Code: Select all  Expand view

REDEFINE DBCOMBO aGet[id_tipot]                                                ;
        VAR _tipot                                                                              ;
        ID id_tipot OF PAGE1 UPDATE                                                     ;
        COLOR CLR_BLACK, RGB( 255,255,200)                                              ;
        ALIAS "TABLAS"                                                                          ;
        ITEMFIELD "COD_TABLA"                                                               ;
        LISTFIELD "NOM_TABLA"                                                   ;
        CONDICION ( Tablas->( OrdsetFocus( "NOMTABLA" ) ),;
                        Tablas->( OrdScope( 0, "OTE" ) ),;
                        Tablas->( OrdScope( 1, "OTE" ) ),;
                        Tablas->( AdsSetAof( "sucursal="+str(nSucursal,1) ) ) );
        FINCONDICION ( Tablas->( OrdScope( 0, NIL ) ),;
                        Tablas->( OrdScope( 1, NIL ) ), Tablas->( AdsClearAof() ),;
                        Tablas->( OrdsetFocus( "TIPTABLA" ) )                        )  ;
        FOR Tablas->Nom_Tabla = "Neumaticos";
        NOBLANK
 

si quieres actualizar el dbCombo, solo haces aGet[id_ot]:Update() y te refresca el combo con los datos actualizados