FiveTech Software tech support forums

Code: Select all

 REDEFINE XBrowse olbm id 101 of odlg ;
      CELL LINES NOBORDER  AUTOSORT



   olbm:bkeydown :=  {| nkey, nflags| iif( nKey = VK_RETURN, ( (lacepto := .T. ),odlg:end() ), ) }  

   olbm:refresh()

   WITH OBJECT olbm
      :SetArray( aMaeclie )
      :aCols[ 1 ]:cHeader  := "Código"
      :aCols[ 2 ]:cHeader  := ("NAPE","PRODUCTO")
      :aCols[ 1 ]:nWidth := 60
      :lFlatStyle    := .T.
      :nMarqueeStyle := 5
      :lIncrFilter   := .T.
      :lseekwild := .t.
      :cFilterFld    := "NAPE"
     
   END

   REDEFINE BUTTON nbut ID 102 ACTION ( lacepto := .T., odlg:end() )


   // REDEFINE BUTTON ID 103 ACTION( clientes( oMae, .t.),olbm:refresh())

   ACTIVATE DIALOG odlg ON INIT ( olbm:goRight(), olbm:aCols[ 2 ]:Setorder(), olbm:gotop(), olbm:setfocus() )

   IF lacepto
      odbf:setorder( 2 )
      odbf:seek( aMaeclie[ olbm:nat, 2 ]  )
      iif( !Empty( olbx ), ( olbx:refresh(),olbx:setfocus() ), )
      RETURN odbf
   ENDIF

RETURN NIL

Code: Select all

   local cSeek := nil

   REDEFINE XBrowse olbm id 101 of odlg ;
      DATASOURCE aMaeclie COLUMNS 1,2 ;
      HEADERS "Código", "NAPE" ;
      CELL LINES NOBORDER AUTOSORT

   WITH OBJECT olbm
      :aCols[ 1 ]:nWidth := 60
      :lFlatStyle    := .T.
      :nMarqueeStyle := 5
      :lIncrFilter   := .T.
      :lseekwild     := .t.
      :cFilterFld    := "NAPE"
      //
      :bkeydown      := { | nkey, nflags| iif( nKey = VK_RETURN, ( cSeek := olbm:aRow[ 2 ], odlg:end(), 0 ), nil ) }  
      :bLDblClick    := { || cSeek := olbm:aRow[ 2 ], odlg:end() }  
   END

   REDEFINE BUTTON nbut ID 102 ACTION ( cSeek := olbm:aRow[ 2 ], odlg:end() )

   ACTIVATE DIALOG odlg ON INIT ( olbm:goRight(), olbm:aCols[ 2 ]:Setorder(), olbm:gotop(), olbm:setfocus() )

   IF !Empty( cSeek )
      odbf:setorder( 2 )
      odbf:seek( cSeek  )
      iif( !Empty( olbx ), ( olbx:refresh(),olbx:setfocus() ), )
      RETURN odbf
   ENDIF

RETURN NIL

Code: Select all

cSeek := ( oBrw:cAlias )->fieldname
 

Code: Select all

cSeek := oBrw:oCol( nCol ):Value