FUNCTION MsgLog2( ... ) 
 //! все переменные выводятся как :  nVar  ->   "nVar", nVar 
 //! Не нужно писать по два раза имя , значение - достаточно только один раз 
 LOCAL i, k, aParams, nParams, xVal, cTp, cTx 
 LOCAL hFile, cFile:="_MsgLog.txt" 
  
  aParams  := hb_aParams() 
  nParams  := PCount() 
  
  IF nParams < 1 ; RETURN NIL 
  ENDIF 
  
  hFile := iif( File(cFile), FOpen(cFile,2) , FCreate(cFile) ) 
  
  FSeek( hFile, 0, 2) 
  
  k := nParams/2 
  
  FOR i := 1 TO k 
      FWrite(hFile, aParams[ i+k ] + Chr(9) + _uVal2Txt( aParams[ i ] ) + Chr(9) ) 
  NEXT 
  
  FWrite(hFile, Chr(13)+Chr(10), 2 ) 
  
  FClose( hFile ) 
  
 RETURN 
  
 FUNCTION MsgLog( ... ) 
 LOCAL i, k, aParams, nParams, xVal, cTp, cTx 
 LOCAL hFile, cFile:="_MsgLog.txt" 
  
  aParams  := hb_aParams() 
  nParams  := PCount() 
  
  IF nParams < 1 ; RETURN NIL 
  ENDIF 
  
  hFile := iif( File(cFile), FOpen(cFile,2) , FCreate(cFile) ) 
  
  FSeek( hFile, 0, 2) 
  
  FOR i := 1 TO nParams 
      FWrite(hFile, _uVal2Txt( aParams[ i ] ) + Chr(9) ) 
  NEXT 
  
  FWrite(hFile, Chr(13)+Chr(10), 2 ) 
  
  FClose( hFile ) 
  
 RETURN NIL 
  
 STATIC FUNCTION _uVal2Txt( xVal ) 
 LOCAL cTx, cTp:= ValType( xVal ) 
  
  IF     cTp=='C' ; cTx := AllTrim(xVal) ; RETURN iif(Empty(cTx), "'"+"'", cTx) 
  ELSEIF cTp=='N' ; RETURN LTrim(Str(xVal))  
  ELSEIF cTp=='L' ; RETURN iif(xVal, ".T.", ".F.") 
  ELSEIF cTp=='D' ; cTx := DToS( xVal ) ;  RETURN Right(cTx,2)+'.'+subs(cTx,5,2)+'.'+Left(cTx,4) 
  ELSEIF cTp=='A' ; RETURN "ARRAY["  + hb_NToS( Len(xVal) ) + "]"  
  ELSEIF cTp=='H' ; RETURN "HASH[" + hb_NToS(Len(xVal)) + "]" 
  ELSEIF cTp=='B' ; RETURN "{|| ... }" 
  ELSEIF cTp=='O' ; RETURN "O:"+xVal:ClassName 
  ELSEIF cTp=='T' ; RETURN hb_TSToStr( xVal, .T. ) 
  ELSEIF cTp=='U' ; RETURN 'NIL' 
  ENDIF    
  
 RETURN "'" + cTp + "'"