HMGforum.com

Code: Select all

Procedure _ProcessInitProcedure(i)
*------------------------------------------------------------------------------*
if valtype(_HMG_SYSDATA [ 72  ] [i])=='B'
   DO EVENTS   // ProcessMessages()
   _PushEventInfo()
   _HMG_SYSDATA [ 232 ] := 'WINDOW_INIT'
   _HMG_SYSDATA [ 194 ] := i
   _HMG_SYSDATA [ 231 ] := 'W'
   _HMG_SYSDATA [ 203 ] := i
   _HMG_SYSDATA [ 316 ] :=  _HMG_SYSDATA [  66 ] [ _HMG_SYSDATA [ 194 ] ] 
   _HMG_SYSDATA [ 317 ] :=  ""
   Eval( _HMG_SYSDATA [ 72  ] [i] )
   _PopEventInfo()
EndIf
// added in hmg 3.0.43 - start
if valtype(_HMG_SYSDATA [ 80 ] [i])=='B' .OR.  HMG_LEN (_HMG_SYSDATA [ 102 ] [i]) > 0   
InvalidateRect (_HMG_SYSDATA [ 67 ] [i], NIL, .F.)
endif                                                                               
// end 
Return

Code: Select all

Date:01/12/2021 Time: 08:56:13
Error BASE/1004 Aucune methode exporte: EVAL (no export method) 
Called from (b)EVAL(0) 
Called from _PROCESSINITPROCEDURE(5876) 
Called from _ACTIVATEWINDOW(5704) 
Called from SHOW_FORM_WARN(4549) 

Code: Select all

FUNCTION Show_FORM_WARN(cEML, cADRES_OK, xMAILING, cSTRAAT, cHUIS, cPOSTNR, cWOON)
/*********************************************************************************/
LOCAL cTXT := ''

If !IsWIndowActive (Form_2) 
   IF EMPTY(cSTRAAT) .or. empty(cHUIS) .or. empty(cPOSTNR) .or. empty(cWOON)
      cTXT  += CRLF + CRLF + SPACE(3) + TAALOMS( "513", WZTAAL,"A") 
   ENDIF          

   IF EMPTY(cEML)
      cTXT  += CRLF + CRLF + SPACE(3) + TAALOMS( "380", WZTAAL,"A") 
   ENDIF          

   IF cADRES_OK # 'J'
      cTXT  += CRLF + CRLF + SPACE(3) + TAALOMS( "499", WZTAAL,"A")  
   ENDIF          

   IF xMAILING # 'J'   
      cTXT  += CRLF + CRLF + SPACE(3) + TAALOMS( "500", WZTAAL,"A")
   ENDIF   

   DEFINE WINDOW Form_2 ;
      AT  20,20 ;     
      WIDTH  450;  
      HEIGHT 450;  
      TITLE "Info" ;
      ICON  ""	;
      NOMINIMIZE ;
      NOMAXIMIZE ;
      NOSYSMENU ;
      TOPMOST ;
      NOCAPTION;
      ON INIT NIL ;
      BACKCOLOR {250,156,211} ;

      ON KEY ESCAPE  ACTION Form_2.Release  

      @ 1,1 LABEL VERSTUUR ;
         VALUE cTXT ;
         ACTION Form_2.Release; 
         WIDTH  448		;
         HEIGHT 448		;
         FONT 'Arial' SIZE 16		;
         BACKCOLOR {150,256,211} 	;
         FONTCOLOR {250,156,211} BOLD ;

      
      @ 400,10 BUTTON BT3 ;
         CAPTION TAALOMS( "217", WZTAAL,"A");
         WIDTH  430		;
         HEIGHT 30		;
         ON CLICK Form_2.Release; 

   END WINDOW
   CENTER WINDOW Form_2

   ACTIVATE WINDOW Form_2
ELSE
   Form_2.SetFocus
   RETURN
ENDIF
RETURN