небольшие изменения для тестов: 
 leto2016.prg 
 ============ 
 METHOD New() CLASS HApp 
 ... 
 msglog(procname(),"leto_SetAppOptions(...)")                       // !!! сработал вызов 
  
    leto_SetAppOptions( iif( Empty(::DataPath ),Nil,::DataPath ), ; //  1 
                        ::nDriver, ;                                //  2 
                        ::lFileFunc, ;                              //  3 
                        ::lAnyExt, ;                                //  4 
                        ::lPass4L, ;                                //  5 
                        ::lPass4M, ;                                //  6 
                        ::lPass4D, ;                                //  7 
                        ::cPassName, ;                              //  8 
                        ::lCryptTraffic, ;                          //  9 
                        ::lShare, ;                                 // 10 
                        ::lNoSaveWA, ;                              // 11 
                        nMaxVars, ;                                 // 12 
                        nMaxVarSize, ;                              // 13 
                        nCacheRecords, ;                            // 14 
                        nTables_max, ;                              // 15 
                        nUsers_max, ;                               // 16 
                        nDebugMode, ;                               // 17 
                        lOptimize, ;                                // 18 
                        nAutOrder, ;                                // 19 
                        nMemoType, ;                                // 20 
                        lForceOpt, ;                                // 21 
                        ::cTrigger, ;                               // 22 
                        ::cPendingTrigger, ;                        // 23 
                        lSetTrigger )                               // 24 
  
    RETURN Self 
 ... 
  
 FUNCTION MsgLog( ... ) 
 LOCAL i, nParams := pCount(), aParams := hb_aParams() 
 LOCAL hFile, cFile := "_MsgLog.txt", xVal, cTp 
  
  hFile := iif( File(cFile), FOpen(cFile, 2) , FCreate(cFile) ) 
  IF hFile < 1 
     RETURN .F. 
  ENDIF 
  FSeek( hFile, 0, 2) 
  IF nParams > 0 
     FOR i := 1 TO nParams 
         xVal := aParams[ i ] 
         cTp  := ValType( xVal ) 
         IF     cTp == 'C' ; xVal := iif(Empty(xVal), "'"+"'", trim(xVal)) 
         ELSEIF cTp == 'N' ; xVal := hb_ntos(xVal) 
         ELSEIF cTp == 'L' ; xVal := iif(xVal, ".T.", ".F.") 
         ELSEIF cTp == 'D' ; xVal := hb_DtoC(xVal, 'DD.MM.YYYY') 
         ELSEIF cTp == 'A' ; xVal := "ARRAY["  + hb_NToS( Len(xVal) ) + "]"  
         ELSEIF cTp == 'H' ; xVal :=  "HASH["  + hb_NToS( Len(xVal) ) + "]"  
         ELSEIF cTp == 'B' ; xVal := "'" + "B" + "'" 
         ELSEIF cTp == "T" ; xVal := hb_TSToStr( xVal, .T. ) 
         ELSEIF cTp == 'U' ; xVal := 'NIL' 
         ELSE              ; xVal := "'" + cTp + "'" 
         ENDIF    
         FWrite(hFile, xVal + Chr(9) ) 
     NEXT 
  ENDIF 
  FWrite( hFile, Chr(13)+Chr(10), 2 ) 
  FClose( hFile ) 
  
 RETURN .T. 
  
 letoudf.prg 
 =========== 
 #include "rddleto.ch" 
 ... 
 FUNCTION UDF_Init 
 /* 
  * This function called immediately after loading letoudf.hrb, if exist 
  */ 
    LOCAL aVar := {}, nUserStru := NIL, cGroupName := "letodb.ini", aIni 
    SET AUTORDER TO 1 
 msglog("-----------------------------------------") 
    aIni := rdIni(hb_dirBase()+"letodb.ini") 
 msglog("rdIni(...) :") 
 msglog(hb_valtoexp(aIni)) 
 msglog("Is variable PUBLIC oApp :", __MVEXIST("oApp")) 
    aAdd(aVar, { 'lFileFunc'    , leto_GetAppOptions( 3) }) 
    aAdd(aVar, { 'lAnyExt'      , leto_GetAppOptions( 4) }) 
    aAdd(aVar, { 'lPass4L'      , leto_GetAppOptions( 5) }) 
    aAdd(aVar, { 'lPass4M'      , leto_GetAppOptions( 6) }) 
    aAdd(aVar, { 'lPass4D'      , leto_GetAppOptions( 7) }) 
    aAdd(aVar, { 'nCacheRecords', leto_GetAppOptions(14) }) 
    aAdd(aVar, { 'nDebugMode'   , leto_GetAppOptions(17) }) 
    aAdd(aVar, { 'lOptimize'    , leto_GetAppOptions(18) }) 
    aAdd(aVar, { 'nAutOrder'    , leto_GetAppOptions(19) }) 
    aAdd(aVar, { 'nMemoType'    , leto_GetAppOptions(20) }) 
    aAdd(aVar, { 'lForceOpt'    , leto_GetAppOptions(21) }) 
       If !empty(leto_GetAppOptions(22)) .or. !empty(leto_GetAppOptions(23)) 
    aAdd(aVar, { 'lSetTrigger'  , leto_GetAppOptions(24) }) 
       EndIf 
    LETO_VARSET(nUserStru, cGroupName, "Options", hb_valtoexp(aVar),  ; 
                                          LETO_VCREAT+LETO_VDENYWR) 
 msglog("leto_GetAppOptions(...) :") 
 aEval(aVar, {|x,y| msglog(y, x[1], x[2]) }) 
 msglog("-----------------------------------------") 
  
    RETURN Nil 
  
 полученный протокол: 
 _MsgLog.txt 
 =========== 
 ----------------------------------------- Run: leto2016.exe TEST 
 HAPP:NEW	leto_SetAppOptions(...)	 
 -----------------------------------------	 
 rdIni(...) : 
 {{"MAIN", {{"PORT", "2812"}, {"DATAPATH", "."}, {"ENABLEFILEFUNC", "1"}}}}	 
 Is variable PUBLIC oApp :	.T.	 
 leto_GetAppOptions(...) : 
 1	lFileFunc	NIL	 
 2	lAnyExt	.F.	 
 3	lPass4L	NIL	 
 4	lPass4M	NIL	 
 5	lPass4D	NIL	 
 6	nCacheRecords	NIL	 
 7	nDebugMode	NIL	 
 8	lOptimize	.F.	 
 9	nAutOrder	0	 
 10	nMemoType	0	 
 11	lForceOpt	.F.	 
 -----------------------------------------Run: leto2016.exe RELOAD 
 HAPP:NEW	leto_SetAppOptions(...)	 
 -----------------------------------------	 
 rdIni(...) : 
 {{"MAIN", {{"PORT", "2812"}, {"DATAPATH", "."}, {"ENABLEFILEFUNC", "1"}}}}	 
 Is variable PUBLIC oApp :	.F.	 
 leto_GetAppOptions(...) : 
 1	lFileFunc	NIL	 
 2	lAnyExt	.F.	 
 3	lPass4L	NIL	 
 4	lPass4M	NIL	 
 5	lPass4D	NIL	 
 6	nCacheRecords	NIL	 
 7	nDebugMode	NIL	 
 8	lOptimize	.F.	 
 9	nAutOrder	0	 
 10	nMemoType	0	 
 11	lForceOpt	.F.	 
 -----------------------------------------