topic-17549

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

DBCombo - Posicionar en Item
Posted: Fri Dec 04, 2009 10:17 PM

Estimados;
tengo un DBCombo, el cual actualizo desde un BtnBmp.
Luego, la intención es que, al retomar el foco el DBCombo, el Item visualizado se el recien agregado
Hago lo siguiente sin exito (para ambos casos):

Code (fw): Select all Collapse

   aO[_CmbM2]:Update(), ;
   aO[_CmbM2]:Set( RTrim(cDescAdic) ), ;
   aO[_CmbM2]:Refresh(), ;
   aO[_CmbM2]:SetFocus()

y,

Code (fw): Select all Collapse

   aO[_CmbM2]:Update(), ;
   aO[_CmbM2]:nAt:= aScan( aO[_CmbM2]:aList, cDescAdic ), ;
   aO[_CmbM2]:Refresh(), ;
   aO[_CmbM2]:SetFocus()

cual es la forma correcta?

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

MarioG

Posts: 1380

Joined: Fri Oct 14, 2005 01:28 PM

Re: DBCombo - Posicionar en Item
Posted: Wed Dec 09, 2009 10:11 AM

La solución sencilla que encontré es:
llamada el DBCombo

Code (fw): Select all Collapse

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

llamada al metodo desde donde agrego Items

Code (fw): Select all Collapse

   REDEFINE BTNBMP aO[_BtDocs] ID 520 OF aO[_DlgM] NOBORDER ;
            RESOURCE "bmp_AbreTb1"  ;
            TOOLTIP  "Abre Tabla Tipo de Documentos" ;
            ACTION   oSelf:TbAdicionales( _TBDOCTIPO ) ), ;
                          aO[_CmbM2]:Update(), ;
                          cIDDoc:= oSelf:oDbTDoc:FieldGet( 1 ), ;  // <------- Le asigno el nuevo valor, agregado a la DBF
                          aO[_CmbM2]:Refresh(), ;
                          aO[_CmbM2]:SetFocus()

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Antonio Linares

Posts: 44162