SET OOP ON 
  
 Function ... 
     LOCAL oBrw, cFileIni, cBasePath 
  
     cFileIni := .... 
    cBasePath := ... 
  
    DEFINE WINDOW Form_Card .....   ; 
        .... 
       (This.Object):Cargo           := oKeyData() // создает объект без переменных (условно пустой) используем ниже по коду 
       (This.Object):Cargo:cAlias    := Alias()    // на окне запомнили, текущую базу  
       (This.Object):Cargo:cFileIni  := cFileIni   // на окне запомнили, ini-конфиг 
       (This.Object):Cargo:cBasePath := cBasePath  // на окне запомнили, путь и имя базы 
       ..... 
    END WINDOW 
  
 RETURN 
  
 // ------ в этом же модуле  
 FUNCTION myCardBtn()   // <- нет параметров 
    LOCAL oCargo    := This.Cargo 
    LOCAL cFileIni  := oCargo:cFileIni          // какой ini-конфиг 
    LOCAL cAlias    := oCargo:cAlias            // какая текущая база 
    LOCAL cBasePath := oCargo:cBasePath         // какой путь и имя базы 
    .... 
 RETURN Nil 
   
 // ------ в другом модуле, другой .prg  
 FUNCTION myExternReport()    // <- нет параметров 
    LOCAL oCargo    := GetProperty("Form_Card", "Cargo") 
    LOCAL cFileIni  := oCargo:cFileIni          // какой ini-конфиг 
    LOCAL cAlias    := oCargo:cAlias            // какая текущая база 
    LOCAL cBasePath := oCargo:cBasePath         // какой путь и имя базы 
    .... 
 RETURN Nil 

(This.Object):Cargo:oBrw := Nil   // понял, чтобы не забыть  
 потом идет  
       DEFINE TBROWSE oBrw ; 
       .... 
      END TBROWSE  
 .... 
 FUNCTION myTest()    
     LOCAL oCargo  := This.Cargo  
     LOCAL oBrw     := oCargo:oBrw          // так можно ???    
   
 ? oBrw:cAlias  
    oBrw:Setfocus()  // так можно ???    

 
        DEFINE TBROWSE oBrw ;  
        (This.Object):oBrw := oBrw // тут 
        ....  
        END TBROWSE   
        (This.Object):oBrw := oBrw // тут 
 где доступна oBrw и ThisWindow 
 

(This.Object):Cargo:oBrw := Nil   // понял, чтобы не забыть   
  потом идет   
        DEFINE TBROWSE oBrw ;  
        .... 

Которую объявили ранее. 

 
       @ nY, nX CHECKLABEL Check_2 ...  
          ACTION  {|| lChk2 := ! This.Checked , This.Checked := lChk2  ,; 
                           This.Cargo:lCheck  ?????                                        }  // вот здесь ? 

 
 Добустим в чеклабеле 
   
        @ nY, nX CHECKLABEL Check_2 ...   
           ACTION  {|chk| chk := ! This.Checked , This.Checked := chk  ,;  
                            ThisWindow.Cargo:lCheck := chk  }  // вот здесь ? action контрола 
 

 
    LOCAL oCargo     := This.Cargo 
    LOCAL cFontName  := oCargo:cFontName   
    LOCAL nFontSize  := oCargo:nFontSize 
    LOCAL aBackColor := oCargo:aBackColor   
  
        @ nY, nX CHECKLABEL Check_2 ...   
           ACTION  {|| lChk2 := ! This.Checked ,  ,;  
                              oCargo:lChk2 := lChk2     }   

   DEFINE WINDOW .... 
    ... 
      (This.Object):Cargo            := oKeyData() // создает объект без переменных (условно пустой) используем ниже по коду 
   ... 
       (This.Object):Cargo:nFilter    := nFilter    // фильтр по базе 
 ... 
       @ ... COMBOBOXEX ComboEx_Filter ... 
           ON CHANGE { || nFilter := This.ComboEx_Filter.Value ,; 
                                    This.Cargo:nFilter := nFilter  , MsgDebug(This.Cargo:nFilter) }

 
 Error BASE/1005 Переменная не экспортирована: NFILTER Args: [1] = C [2] = N 3 
 --------------------------------- Stack Trace --------------------------------- 
 Called from _NFILTER(0) 
 Called from (b)FORMCARDDBFSHOW(100) in module: cardcomp.prg 
 Called from _DOCONTROLEVENTPROCEDURE(1887) in module: h_windows.prg 
 Called from EVENTS(2137) in module: h_events.prg 
 Called from DOMESSAGELOOP(0) 
 Called from _ACTIVATEWINDOW(1500) in module: h_windows.prg 
 Called from FORMCARDDBFSHOW(175) in module: cardcomp.prg 
 Called from TESTSTART(86) in module: 9test.prg 

ThisWindow.Cargo:nFilter := nFilter  , MsgDebug(ThisWindow.Cargo:nFilter) }