Application: D:\Sklad4.Client\Sklad4win.exe 
  Date: 03.04.2019 Time: 14:42:37 
  Time from start: 0 days 0 hours 0 mins 1 secs 
  Error MGERROR/0 Window: unrecognized property 'MESSAGE'. Program terminated. 
  
  Called from MSGMINIGUIERROR(99) in module: h_error.prg  
  Called from SETPROPERTY(3785) in module: h_controlmisc.prg  
  Called from (b)WAIT_WINDOW_MY(266) in module: Source\WaitWin.prg  
  Called from _PROCESSINITPROCEDURE(1672) in module: h_windows.prg  
  Called from _ACTIVATEWINDOW(1487) in module: h_windows.prg  
  Called from WAIT_WINDOW_MY(315) in module: Source\WaitWin.prg  
  Called from WAITWINDOWERROR(157) in module: Source\WaitWin.prg  
  Called from COPYSERVERCLIENT(209) in module: Source\Copy2file.prg  
  Called from MYCOPYFILE(412) in module: Source\main_check.prg  
  Called from (b)HB_MACROBLOCK(0) 

STATIC PROCEDURE OnRelease() 
    ThisWindow.Release 
    DO MESSAGE LOOP 
    RETURN

      OTHERWISE 
  
          MsgMiniGuiError( "Window: unrecognized property '" + Arg2 + "'." ) 
  
       END CASE 
 

Time from start: 0 days 0 hours 28 mins 54 secs 
 Error BASE/1003 Переменная не существует: KTARIF 
 --------------------------------- Stack Trace --------------------------------- 
 Called from ASK_TARIF(29) in module: Source\form_dogovor.prg 
 Called from (b)HB_MACROBLOCK(0) 
 Called from DIM_WRT_DBTYPEJ(3636) in module: Source\Tbrw_fCard.prg  
 ..... 
  --------------------- Internal Error Handling Information --------------------- 
 Subsystem Call ....: BASE 
 System Code .......: 1003 
 Default Status ....: .F. 
 Description .......: Переменная не существует 
 Operation .........: KTARIF 
 Involved File .....: 
 Dos Error Code ....: 0 
 

SaveAs Method      
   Save Control or Window as BitMap file. 
   SYNTAX 
   METHOD 
   <WindowName>.SaveAs( <BitMap> ) 
   <ParentWindowName>.<ControlName>.SaveAs( <BitMap> )

Error MGERROR/0 Control: Say_02 Of oDlg Not defined. Program terminated. 
 --------------------------------- Stack Trace --------------------------------- 
 Called from MSGMINIGUIERROR(0) 
 Called from VERIFYCONTROLDEFINED(0) 
 Called from SETPROPERTY(0) 
 Called from (b)SHOWERROR(254) in module: errorsys2.prg 
 Called from DO_WINDOWEVENTPROCEDURE(0) 
 Called from FILLDLG(0) 
 Called from HMG_ALERT(0) 
 Called from SHOWERROR(267) in module: errorsys2.prg 
 Called from DEFERROR(150) in module: errorsys2.prg 
 Called from (b)ERRORSYS(66) in module: errorsys2.prg 
 Called from MYPRINTCARD(3064) in module: tbrw_fcard.prg 
 Called from (b)MYMENUBUTTONCARD(2912) in module: tbrw_fcard.prg 
 Called from (b)METRO3BUTTON(53) in module: metro3button.prg  
 ......

   SET MSGALERT FONTCOLOR TO WHITE 
       IF Hb_LangSelect() == "ru.RU1251"  
          aOptions := { '&Просмотр ошибки', '&Выход' } 
          cMsg     := "****** Произошла ошибка в программе ! ******;" 
          cMsg     += "*** НЕОБХОДИМО СВЯЗАТЬСЯ С ПРОГРАММИСТОМ ***;;"  
          IF M->nProgLang == 3  // укр. 
             aOptions := {'&Перегляд помилки', '&Вихід'} 
             cMsg     := " Сталася помилка в програмі ! ;" 
             cMsg     += "*** НЕОБХІДНО КОНТАКТИ З програмістів ***;;"           
          ENDIF 
       ELSE    
          aOptions := { '&View error', '&Exit'} 
          cMsg     := "A Run-Time Error Has Occured !;"                
          cMsg     += "*** IT IS NECESSARY TO CONTACT THE PROGRAMMER ***;;" 
       ENDIF 
  
       bInit   := {|| SetProperty("oDlg", "Say_01" , "FontColor", YELLOW   ) ,; 
                      SetProperty("oDlg", "Say_01" , "Alignment", "CENTER" ) ,; 
                      SetProperty("oDlg", "Say_02" , "FontColor", YELLOW   ) ,; 
                      SetProperty("oDlg", "Say_02" , "Alignment", "CENTER" ) ,; 
                      This.TopMost := .T. }  
       ............ 
       HMG_Alert_MaxLines( 35 )   // это Григорий добавил ! 
  
       IF HMG_Alert( cMsg, aOptions, "Program Error", nDefBtn, "iStop64", 64, aColors, bInit, .T. ) == 1 
         ShellExecute( , 'open', _HMG_ErrorLogFile, , , SW_SHOWNORMAL) 
       ENDIF    
       ....

bInit   := {|| SetProperty("oDlg", "Say_01" , "FontColor", YELLOW   ) ,; 
                      SetProperty("oDlg", "Say_01" , "Alignment", "CENTER" ) ,; 
                      This.TopMost := .T. } 

      bInit := {|| iif( GetControlType( "Say_01", "oDlg" ) == "EDIT", , ( ; 
          SetProperty( "oDlg", "Say_01", "FontColor", YELLOW ), ; 
          SetProperty( "oDlg", "Say_01", "Alignment", "CENTER" ), ; 
          SetProperty( "oDlg", "Say_02", "FontColor", YELLOW ), ; 
          SetProperty( "oDlg", "Say_02", "Alignment", "CENTER" ) ) ), ; 
          This.TopMost := .T. } 
 

 
             cMsg     := " Сталася помилка в програмі ! " + CRLF 
             cMsg     += "*** НЕОБХІДНО КОНТАКТИ З програмістів ***" + CRLF + CRLF           
             cMsg    += iif( _lShowDetailError(), cErrorMessage, ErrorMessage( oError ) )