** ****************************************************************************************** *
** (ms4 script) - MS4 BI PROFESSIONAL for WINDOWS & WEB-
** *******************************************************************************************
 
#include  "#SYSPATHMS4BI+\zInclude\includeDisplay.h"

** *****************
** TYPE  QRCODE
** *****************
integer :   $MAIL     :=  1  ;    
integer :   $TEL     :=   2  ;     
integer :   $URL     :=   3  ; 
 
SetColorText (Hwdisplay:Pink,White) ; 	
	
SetColorText (Hwdisplay: black,green) ;
	
	Display "------------------------------------------------------------------------- " ;
	Display "    MS DESKTOP BI : CREATE QR CODE URL,TEL, MAIL     " ;
	Display "------------------------------------------------------------------------- " ;

	FormPlus : DrawQrCODE type : $URL ("http://www.mgplanete.com")  ;