FiveTech Software tech support forums

Code: Select all  Expand view

  REDEFINE XBROWSE oBrw Id 10  DATASOURCE oArticulos             ;
                                FIELDS     oArticulos:descripcion ;
                                HEADERS    "Descripcion"          ;
                                FIELDSIZES  350                   ;
                                JUSTIFY     AL_LEFT               ;
                                CELL LINES                        ;
                                of oDlg_Articulos  
                                WITH object oBrw
                                        oBrw :l2007           := .t.                        
                                        oBrw :lRecordSelector := .t.                        
                                        oBrw :aCols[1]        :nHeadStrAlign := AL_CENTER  
                                        oBrw :aCols[1]        :oHeaderFont   := oFontHeader  
                                        oBrw :oDataFonts      :=oFontData                    
                                END
                                oArticulos:Gotop()
                                oBrw:Refresh()
 

Code: Select all  Expand view

     oCol:nEditType := EDIT_GET
 

Code: Select all  Expand view

REDEFINE XBROWSE oBrw Id 10 ;
   OF oDlg_Articulos ;
   DATASOURCE oArticulos ;
   COLUMNS "Descripcion" ; //FIELDS oArticulos:descripcion HEADERS "Descripcion"          ;
   FIELDSIZES  350 ; // JUSTIFY AL_LEFT
   FONT oFontData ;
   CELL LINES ;
   FASTEDIT // optional

   WITH object oBrw
      // :l2007            := .t.
      // :lRecordSelector  := .t.
      WITH OBJECT :aCols[ 1 ]
         :nHeadStrAlign := AL_CENTER
         :oHeaderFont   := oFontHeader
         :nEditType     := EDIT_GET   //
      END
   END
   oArticulos:Gotop()
   // oBrw:Refresh() // remove this line
   ACTIVATE DIALOG oDlg_Atriculos
 

Quiero poder Editar y Cambiar el Valor de cualquier celda de esa columna,
¿Que debo Hacer?

English:
I want to be able to Edit and Change the Value of any cell in that column, What should I do?

Code: Select all  Expand view

oBrw:aCols[ 1 ]:nEditType := EDIT_GET
 

¿ese cambio afecta la tabla directamente o actua sobre el arreglo resultado de la consulta?
ENGLISH
Does this change affect the table directly or does it act on the array resulting from the query?

Spanish
Necesito que NO afecte la tabla directamente.

ENGLISH
I need it to NOT affect the table directly.

Code: Select all  Expand view

REDEFINE XBROWSE oBrw Id 10 ;
   OF oDlg_Articulos ;
   DATASOURCE aArray ;
   COLUMNS 1 ;
   HEADERS "Descripcion" ;
   <...other clauses...>
 

Code: Select all  Expand view

oArticulos:SetBatchMode( .t. )