** **********************************************************************************************************
** PRESENTATION MsgFrame
**
** **********************************************************************************************************
#include  "#SYSPATHMS4BI+\zInclude\IncludeSysMs4Windows.h"

INTEGER : Exit_TRANSFRAMMSGWAIT :=0,I;
	 
	Begin_Transaction : Trans1 Execute Transaction With Exit_TRANSFRAMMSGWAIT != 1
		Begin_Dialog
			BackgroundColor : Color(192,193,218) ** (0,174,174)  
			WinExtendstyle : :WS_EX_CLIENTEDGE
			WinStyle 		 : :Ws_DLGFRAME
			
			500, 10, 200,200, "MS4 SCRIPT : Message Frame wait ",UserDialog
			
		End_Dialog
Begin_Splash
		BackgroundColor : Color(192,193,218)
		WinExtendStyle : :Ws_Ex_DlgModalFrame
		WinStyle 	 : :Ws_POPUP & CenterDialog 0,0,250,100 ,"MS4 SCRIPT :  Wait APP ",Splash1
		
		Frame 10, 10,220,70, wtitleSplash Attribut :
		FillColor : 144,136,176		 FrameColor : 250,250,250
		ShadowText : 1,2 Color(0,0,0)	 SetColorText : 185,50,90
		DrawText : Dt_CENTER
		SetFonts :
		20,8,0,0,Fw_NORMAL,0,0,0,"Arial"
End_Splash
SetWinTxt(wtitleSplash:" WAIT ....................  MANDRAGORE PLANETE   ");
               ShowSplash(Splash1: 6500) ;
		 SetStatusDialog(UserDialog:Sw_HIDE);
		 
		Exit_TRANSFRAMMSGWAIT := 1 ;
		SetStatusDialog(UserDialog:Sw_HIDE);			 	
	End_Transaction ;