*       *********************************************************
*       *                                                         
*       * 04/05/2008            AMPSHOW.SPR              19:44:02 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (c) 2008 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This program was automatically generated by GENSCRN.    
*       *                                                         
*       *********************************************************


#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"
	SET TALK OFF
	m.talkstat = "ON"
ELSE
	m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")
SET READBORDER ON

m.currarea = SELECT()


*       *********************************************************
*       *                                                         
*       *               Windows Window definitions                
*       *                                                         
*       *********************************************************
*

IF NOT WEXIST("compshow") ;
	OR UPPER(WTITLE("COMPSHOW")) == "COMPSHOW.PJX" ;
	OR UPPER(WTITLE("COMPSHOW")) == "COMPSHOW.SCX" ;
	OR UPPER(WTITLE("COMPSHOW")) == "COMPSHOW.MNX" ;
	OR UPPER(WTITLE("COMPSHOW")) == "COMPSHOW.PRG" ;
	OR UPPER(WTITLE("COMPSHOW")) == "COMPSHOW.FRX" ;
	OR UPPER(WTITLE("COMPSHOW")) == "COMPSHOW.QPR"
	DEFINE WINDOW compshow ;
		AT  0.000, 0.000  ;
		SIZE 15.692,53.000 ;
		FONT "MS Sans Serif", 8 ;
		STYLE "B" ;
		NOFLOAT ;
		NOCLOSE ;
		NOMINIMIZE ;
		SYSTEM ;
		COLOR RGB(,,,192,192,192)
	MOVE WINDOW compshow CENTER
ENDIF


*       *********************************************************
*       *                                                         
*       *              AMPSHOW/Windows Screen Layout              
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("compshow")
	ACTIVATE WINDOW compshow SAME
ELSE
	ACTIVATE WINDOW compshow NOSHOW
ENDIF
@ 2.000,7.000 SAY "Amphan Software" ;
	FONT "MS Sans Serif", 24 ;
	STYLE "BT" ;
	COLOR RGB(255,255,255,255,255,255)
@ 4.692,6.714 SAY "บริษัท อำพัน เทคโนโลยี(2002) จำกัด" ;
	FONT "MS Sans Serif", 8 ;
	STYLE "BT" ;
	COLOR RGB(0,0,128,,,,)
@ 6.154,11.714 SAY "69/121 หมู่ 1 ถ.ศรีสมาน ต.บ้านใหม่" ;
	FONT "MS Sans Serif", 8 ;
	STYLE "BT" ;
	COLOR RGB(0,0,128,,,,)
@ 7.462,12.000 SAY "อ.ปากเกร็ด นนทบุรี 11120" ;
	FONT "MS Sans Serif", 8 ;
	STYLE "BT" ;
	COLOR RGB(0,0,128,,,,)
@ 8.923,12.000 SAY "Tel. 0-2961-7516-9" ;
	FONT "MS Sans Serif", 8 ;
	STYLE "BT" ;
	COLOR RGB(0,0,128,,,,)
@ 10.462,12.000 SAY "http://www.amphan.com" ;
	FONT "MS Sans Serif", 8 ;
	STYLE "BT" ;
	COLOR RGB(0,0,128,,,,)
@ 12.308,19.429 GET m.nfOK ;
	PICTURE "@*HN OK" ;
	SIZE 2.231,14.000,0.571 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	VALID _2d116aobw()
@ 1.769,6.714 SAY "Amphan Software" ;
	FONT "MS Sans Serif", 24 ;
	STYLE "BT" ;
	COLOR RGB(0,0,255,255,255,255)

IF NOT WVISIBLE("compshow")
	ACTIVATE WINDOW compshow
ENDIF

READ CYCLE ;
	WHEN WCompShow() Modal

RELEASE WINDOW compshow
SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"
	SET TALK ON
ENDIF
IF m.compstat = "ON"
	SET COMPATIBLE ON
ENDIF


*       *********************************************************
*       *                                                         
*       *              AMPSHOW/Windows Cleanup Code               
*       *                                                         
*       *********************************************************
*

#REGION 1






*       *********************************************************
*       *                                                         
*       *  AMPSHOW/Windows Supporting Procedures and Functions    
*       *                                                         
*       *********************************************************
*

#REGION 1
Function WCompShow
Do StSWinInit With 'CompShow'
Return







Procedure StSWinInit  &&  แสดงกรอบ 1 กรอบแบบลึก
Parameter cfWindow
********
Private nfWClrSay,nfWClrStp,nfPosiRow,nfPosiCol,nfPosi21
nfWClrSay = 0.5
nfWClrStp = 0.3

*** กรอบนอก
@ nfWClrSay,nfWClrSay TO nfWClrSay,Wcols(cfWindow)-nfWClrSay PEN 1,8 STYLE "1" COLOR RGB(128,128,128,128,128,128)  && 1
@ nfWClrSay,nfWClrSay TO Wrows(cfWindow)-nfWClrSay,nfWClrSay PEN 1,8 COLOR RGB(128,128,128,128,128,128)  && 1
@ nfWClrSay,Wcols(cfWindow)-nfWClrSay TO Wrows(cfWindow)-nfWClrSay,Wcols(cfWindow)-nfWClrSay PEN 1,8 STYLE "1" 	COLOR RGB(255,255,255,255,255,255)  && 2
@ Wrows(cfWindow)-nfWClrSay,nfWClrSay TO Wrows(cfWindow)-nfWClrSay,Wcols(cfWindow)-nfWClrSay PEN 1,8 COLOR RGB(255,255,255,255,255,255)  && 2
*** กรอบใน
@ nfWClrSay+nfWClrStp,nfWClrSay+nfWClrStp TO nfWClrSay+nfWClrStp,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 STYLE "1" COLOR RGB(255,255,255,255,255,255)  && 2
@ nfWClrSay+nfWClrStp,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-nfWClrStp,nfWClrSay+nfWClrStp PEN 1,8 COLOR RGB(255,255,255,255,255,255)  && 2
@ nfWClrSay+nfWClrStp,Wcols(cfWindow)-nfWClrSay-nfWClrStp TO Wrows(cfWindow)-nfWClrSay-nfWClrStp,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 STYLE "1" COLOR RGB(128,128,128,128,128,128)  && 1
@ Wrows(cfWindow)-nfWClrSay-nfWClrStp,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-nfWClrStp,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(128,128,128,128,128,128)  && 1
Return



Procedure ExpOfAmp
Do Fox_Mess With 'โปรแกรมยังไม่ลงทะเบียน กรุณาติดต่อผู้จำหน่าย'	
Return



Procedure fAmOpenCom
fAmOpenCom=.T.
If !CfRepExpDT
	fAmOpenCom=.F.
	Do Fox_Mess With 'โปรแกรมยังไม่ลงทะเบียน กรุณาติดต่อผู้จำหน่าย'	
Endif
Return





*       *********************************************************
*       *                                                         
*       * _2D116AOBW           m.nfOK VALID                       
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         AMPSHOW,     Record Number:    8   
*       * Variable:            m.nfOK                             
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      1                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _2d116aobw     &&  m.nfOK VALID
#REGION 1
Clear read