*       *********************************************************
*       *                                                         
*       * 29/12/2010            POSSCR3.SPR              21:32:52 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (c) 2010 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("possale") ;
	OR UPPER(WTITLE("POSSALE")) == "POSSALE.PJX" ;
	OR UPPER(WTITLE("POSSALE")) == "POSSALE.SCX" ;
	OR UPPER(WTITLE("POSSALE")) == "POSSALE.MNX" ;
	OR UPPER(WTITLE("POSSALE")) == "POSSALE.PRG" ;
	OR UPPER(WTITLE("POSSALE")) == "POSSALE.FRX" ;
	OR UPPER(WTITLE("POSSALE")) == "POSSALE.QPR"
	DEFINE WINDOW possale ;
		AT  0.000, 0.000  ;
		SIZE 40.923,110.333 ;
		FONT "MS Sans Serif", 8 ;
		NOFLOAT ;
		NOCLOSE ;
		NOMINIMIZE ;
		SYSTEM ;
		COLOR RGB(,,,192,192,192)
	MOVE WINDOW possale CENTER
ENDIF


*       *********************************************************
*       *                                                         
*       *         POSSCR3/Windows Setup Code - SECTION 2          
*       *                                                         
*       *********************************************************
*

#REGION 1
cfScr4Pos='POSSALE'
nfHelp_Pos = 0

*       *********************************************************
*       *                                                         
*       *              POSSCR3/Windows Screen Layout              
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("possale")
	ACTIVATE WINDOW possale SAME
ELSE
	ACTIVATE WINDOW possale NOSHOW
ENDIF
@ 0.923,29.000 SAY Iif(Empty(m.nfTotal),'',Transform(m.nfTotal,'99,999.99')) ;
	SIZE 1.000,9.796 ;
	FONT "Tahoma", 72 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(128,0,128,192,192,192)
@ 4.000,2.000 SAY Iif(m.plucount=1,'',Alltrim(Str(m.plucount))+'@') ;
	SIZE 1.000,5.464 ;
	FONT "Tahoma", 42 ;
	STYLE "B" ;
	COLOR RGB(0,0,255,192,192,192)
@ 8.769,51.500 SAY Iif(Empty(m.nfCash),'','รับเงินสด '+Transform(m.nfCash,'99,999.99')+'  บาท   ')+Iif(Empty(m.cfChange),'',Alltrim(m.cfChange)+' บาท') ;
	SIZE 1.000,37.667 ;
	FONT "MS Sans Serif", 12 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 9.154,2.667 SAY m.cfMemshow ;
	SIZE 1.000,40.714 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	COLOR RGB(128,0,128,192,192,192)
@ 13.154,1.333 SAY mId1 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 13.154,8.000 SAY Right(Alltrim(mPlucode1),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 13.154,25.000 SAY mpluname1 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 13.154,64.000 SAY Iif(Empty(mqty1),'',mqty1+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 13.154,76.167 SAY mUPrice1 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 13.154,92.667 SAY mPrice1 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 15.000,1.333 SAY mId2 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 15.000,8.000 SAY Right(Alltrim(mPlucode2),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 15.000,25.000 SAY mpluname2 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 15.000,64.000 SAY Iif(Empty(mqty2),'',mqty2+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 15.000,76.167 SAY mUPrice2 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 15.000,92.667 SAY mPrice2 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 16.846,1.333 SAY mId3 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 16.846,8.000 SAY Right(Alltrim(mPlucode2),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 16.846,25.000 SAY mpluname3 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 16.846,64.000 SAY Iif(Empty(mqty3),'',mqty3+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 16.846,76.167 SAY mUPrice3 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 16.846,92.667 SAY mPrice3 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 18.692,1.333 SAY mId4 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 18.692,8.000 SAY Right(Alltrim(mPlucode4),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 18.692,25.000 SAY mpluname4 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 18.692,64.000 SAY Iif(Empty(mqty4),'',mqty4+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 18.692,76.167 SAY mUPrice4 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 18.692,92.667 SAY mPrice4 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 20.538,1.333 SAY mId5 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 20.538,8.000 SAY Right(Alltrim(mPlucode5),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 20.538,25.000 SAY mpluname5 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 20.538,64.000 SAY Iif(Empty(mqty5),'',mqty5+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 20.538,76.167 SAY mUPrice5 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 20.538,92.667 SAY mPrice5 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 22.462,1.333 SAY mId6 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 22.462,8.000 SAY Right(Alltrim(mPlucode6),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 22.462,25.000 SAY mpluname6 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 22.462,64.000 SAY Iif(Empty(mqty6),'',mqty6+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 22.462,76.167 SAY mUPrice6 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 22.462,92.667 SAY mPrice6 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 24.308,1.333 SAY mId7 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 24.308,8.000 SAY Right(Alltrim(mPlucode7),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 24.308,25.000 SAY mpluname7 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 24.308,64.000 SAY Iif(Empty(mqty7),'',mqty7+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 24.308,76.167 SAY mUPrice7 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 24.308,92.667 SAY mPrice7 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 26.154,1.333 SAY mId8 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 26.154,8.000 SAY Right(Alltrim(mPlucode8),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 26.154,25.000 SAY mpluname8 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 26.154,64.000 SAY Iif(Empty(mqty8),'',mqty8+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 26.154,76.167 SAY mUPrice8 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 26.154,92.667 SAY mPrice8 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 28.000,1.333 SAY mId9 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 28.000,8.000 SAY Right(Alltrim(mPlucode9),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 28.000,25.000 SAY mpluname9 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 28.000,64.000 SAY Iif(Empty(mqty9),'',mqty9+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 28.000,76.167 SAY mUPrice9 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 28.000,92.667 SAY mPrice9 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 29.846,1.333 SAY mId10 ;
	SIZE 1.000,2.909 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "99." ;
	COLOR RGB(0,0,128,192,192,192)
@ 29.846,8.000 SAY Right(Alltrim(mPlucode10),7) ;
	SIZE 1.000,8.545 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(255,0,0,192,192,192)
@ 29.846,25.000 SAY mpluname10 ;
	SIZE 1.000,21.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 29.846,64.000 SAY Iif(Empty(mqty10),'',mqty10+'X') ;
	SIZE 1.000,6.636 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 29.846,76.167 SAY mUPrice10 ;
	SIZE 1.000,8.273 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(0,0,128,192,192,192)
@ 29.846,92.667 SAY mPrice10 ;
	SIZE 1.000,8.182 ;
	FONT "Tahoma", 16 ;
	STYLE "B" ;
	PICTURE "@J" ;
	COLOR RGB(255,0,0,192,192,192)
@ 33.231,2.500 SAY Iif(!Empty(m.cpCashier2),'Cashier:'+m.cpCashier2+'แทน',m.cfCashshow) ;
	SIZE 1.000,14.143 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	COLOR RGB(0,0,0,192,192,192)
@ 33.231,18.333 SAY 'Date:'+m.nfDateshow ;
	SIZE 1.000,14.714 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	COLOR RGB(0,0,0,192,192,192)
@ 33.231,37.500 SAY 'No:'+m.nfNoshow ;
	SIZE 1.000,13.714 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	COLOR RGB(0,0,128,192,192,192)
@ 33.231,60.333 SAY m.showword ;
	SIZE 1.000,21.429 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	PICTURE "@TJ" ;
	COLOR RGB(128,0,128,192,192,192)
@ 33.231,86.667 GET m.event_run ;
	SIZE 1.000,18.286 ;
	DEFAULT " " ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	PICTURE "@K XXXXXXXXXXXXXXXXXXXXXXXXX" ;
	WHEN m.mShow=0 .and. EventSet() ;
	VALID eventvalid() ;
	COLOR ,RGB(128,0,128,255,255,255)
@ 35.615,1.500 GET m.B_Possale ;
	PICTURE "@*BHN " + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) ;
	SIZE 3.231,8.833,0.167 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	WHEN m.mShow=1 ;
	VALID _3411a6nh5() ;
	DISABLE
@ 35.615,55.500 GET m.C_Possale ;
	PICTURE "@*BHN " + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) + ";" + ;
		(LOCFILE("empty.bmp","BMP|ICO|PCT|ICN","Where is empty?")) ;
	SIZE 3.231,8.833,0.167 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	WHEN m.mShow=1 ;
	VALID _3411a6nhc() ;
	DISABLE
@ 39.000,1.500 GET m.H1_Possale ;
	PICTURE "@*HN ENTER;F3;F4;F5;F6;SHF+F5" ;
	SIZE 1.154,7.571,0.143 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN .F.
@ 39.000,55.500 GET m.H2_Possale ;
	PICTURE "@*HN CTL+F8;CTL+F5;CTL+F9;F9;F10;F12" ;
	SIZE 1.154,7.571,0.143 ;
	DEFAULT 1 ;
	FONT "MS Sans Serif", 8 ;
	STYLE "B" ;
	WHEN .F.

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

READ CYCLE ;
	VALID ReadVaPos() ;
	WHEN WPossale() .and. SayTable() ;
	ACTIVATE EventAcPos() ;
	DEACTIVATE EventDec() ;
	SHOW _3411a6nhd()

RELEASE WINDOW possale
SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

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


*       *********************************************************
*       *                                                         
*       *              POSSCR3/Windows Cleanup Code               
*       *                                                         
*       *********************************************************
*

#REGION 1
Do SetEnterNr In \Pos\Security\Prog\Sec4Prog.Prg



*       *********************************************************
*       *                                                         
*       *  POSSCR3/Windows Supporting Procedures and Functions    
*       *                                                         
*       *********************************************************
*

#REGION 1
Function WPossale
Do WhenPosWin
Do BorderSay With 'Possale',''
Return


************
Procedure BorderSay &&  แสดง 2 กรอบ แบบนูน
Parameter cfWindow,cfMess2Win
************
Private nfWClrSay,nfWClrStp,nfPosiRow,nfPosiCol,nfPosi21
nfWClrSay = 0.5
nfWClrStp = 0.3
If WCols(cfWindow) > 80
	nfPosiRow =	Wrows(cfWindow)-3.00
Else
	nfPosiRow =	Wrows(cfWindow)-6.75
Endif
nfPosiCol = WCols(cfWindow)-13
nfPosi24  = 29.3
nfPosi23  = 28.3
nfPosi22  = 7.3
nfPosi21  = 5.3
nfPosi20  = 4.8

*** กรอบนอก
@ 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




*** กรอบใน-2
@ Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi24,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi24,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(255,255,255,255,255,255)  && 1
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi24,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi24,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(128,128,128,128,128,128)  && 1
*** ลบช่อง
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi24+0.1,nfWClrSay+nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi24,nfWClrSay+nfWClrStp+2
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi24+0.1,Wcols(cfWindow)-nfWClrSay-nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi24,Wcols(cfWindow)-nfWClrSay-nfWClrStp+0.1



*** กรอบใน-2
@ Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi23,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi23,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(255,255,255,255,255,255)  && 1
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi23,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi23,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(128,128,128,128,128,128)  && 1
*** ลบช่อง
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi23+0.1,nfWClrSay+nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi23,nfWClrSay+nfWClrStp+2
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi23+0.1,Wcols(cfWindow)-nfWClrSay-nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi23,Wcols(cfWindow)-nfWClrSay-nfWClrStp+0.1


*** กรอบใน-2
@ Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi22,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi22,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(128,128,128,128,128,128)  && 1
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi22,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi22,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(255,255,255,255,255,255)  && 1
*** ลบช่อง
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi22+0.1,nfWClrSay+nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi22,nfWClrSay+nfWClrStp+2
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi22+0.1,Wcols(cfWindow)-nfWClrSay-nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi22,Wcols(cfWindow)-nfWClrSay-nfWClrStp+0.1




*** กรอบใน-2
@ Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi21,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi21,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(128,128,128,128,128,128)  && 1
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi21,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi21,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(255,255,255,255,255,255)  && 1
*** ลบช่อง
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi21+0.1,nfWClrSay+nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi21,nfWClrSay+nfWClrStp+2
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi21+0.1,Wcols(cfWindow)-nfWClrSay-nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi21,Wcols(cfWindow)-nfWClrSay-nfWClrStp+0.1
*** กรอบใน-3
@ Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi20,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi20,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(128,128,128,128,128,128)  && 1
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi20,nfWClrSay+nfWClrStp TO Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi20,Wcols(cfWindow)-nfWClrSay-nfWClrStp PEN 1,8 COLOR RGB(255,255,255,255,255,255)  && 1
*** ลบช่อง
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi20+0.1,nfWClrSay+nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi20,nfWClrSay+nfWClrStp+2
@ Wrows(cfWindow)-nfWClrSay-(2*nfWClrStp)-nfPosi20+0.1,Wcols(cfWindow)-nfWClrSay-nfWClrStp Clear To Wrows(cfWindow)-nfWClrSay-nfWClrStp-nfPosi20,Wcols(cfWindow)-nfWClrSay-nfWClrStp+0.1
*** คำพูด
If !Empty(cfMess2Win)
	@ nfPosiRow,nfPosiCol TO nfPosiRow+1.984,nfPosiCol+10.857 PATTERN 1 PEN 2, 8 STYLE "16" COLOR RGB(255,255,255,0,0,255)
	@ nfPosiRow+0.154,nfPosiCol+2.000 SAY cfMess2Win FONT "MS Sans Serif", 14 STYLE "BT" COLOR RGB(255,255,255,,,,)
Endif
Return






*       *********************************************************
*       *                                                         
*       * _3411A6NH5           m.B_Possale VALID                  
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         POSSCR3,     Record Number:   71   
*       * Variable:            m.B_Possale                        
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      1                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _3411a6nh5     &&  m.B_Possale VALID
#REGION 1
Do BOTOfKey With 1,1 In SetBotPs.Prg

*       *********************************************************
*       *                                                         
*       * _3411A6NHC           m.C_Possale VALID                  
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         POSSCR3,     Record Number:   72   
*       * Variable:            m.C_Possale                        
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      2                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _3411a6nhc     &&  m.C_Possale VALID
#REGION 1
Do BOTOfKey With 1,2 In SetBotPs.Prg

*       *********************************************************
*       *                                                         
*       * _3411A6NHD           Read Level Show                    
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         POSSCR3                            
*       * Called By:           READ Statement                     
*       * Snippet Number:      3                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _3411a6nhd     && Read Level Show
PRIVATE currwind
STORE WOUTPUT() TO currwind
*
* Show Code from screen: POSSCR3
*
#REGION 1
IF SYS(2016) = "POSSALE" OR SYS(2016) = "*"
	ACTIVATE WINDOW possale SAME
	@ 0.923,29.000 SAY Iif(Empty(m.nfTotal),'',Transform(m.nfTotal,'99,999.99')) ;
		SIZE 1.000,9.796, 0.000 ;
		FONT "Tahoma", 72 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(128,0,128,192,192,192)
	@ 4.000,2.000 SAY Iif(m.plucount=1,'',Alltrim(Str(m.plucount))+'@') ;
		SIZE 1.000,5.464, 0.000 ;
		FONT "Tahoma", 42 ;
		STYLE "B" ;
		COLOR RGB(0,0,255,192,192,192)
	@ 8.769,51.500 SAY Iif(Empty(m.nfCash),'','รับเงินสด '+Transform(m.nfCash,'99,999.99')+'  บาท   ')+Iif(Empty(m.cfChange),'',Alltrim(m.cfChange)+' บาท') ;
		SIZE 1.000,37.667, 0.000 ;
		FONT "MS Sans Serif", 12 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 9.154,2.667 SAY m.cfMemshow ;
		SIZE 1.000,40.714, 0.000 ;
		FONT "MS Sans Serif", 8 ;
		STYLE "B" ;
		COLOR RGB(128,0,128,192,192,192)
	@ 13.154,1.333 SAY mId1 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 13.154,8.000 SAY Right(Alltrim(mPlucode1),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 13.154,25.000 SAY mpluname1 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 13.154,64.000 SAY Iif(Empty(mqty1),'',mqty1+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 13.154,76.167 SAY mUPrice1 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 13.154,92.667 SAY mPrice1 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 15.000,1.333 SAY mId2 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 15.000,8.000 SAY Right(Alltrim(mPlucode2),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 15.000,25.000 SAY mpluname2 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 15.000,64.000 SAY Iif(Empty(mqty2),'',mqty2+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 15.000,76.167 SAY mUPrice2 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 15.000,92.667 SAY mPrice2 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 16.846,1.333 SAY mId3 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 16.846,8.000 SAY Right(Alltrim(mPlucode2),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 16.846,25.000 SAY mpluname3 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 16.846,64.000 SAY Iif(Empty(mqty3),'',mqty3+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 16.846,76.167 SAY mUPrice3 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 16.846,92.667 SAY mPrice3 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 18.692,1.333 SAY mId4 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 18.692,8.000 SAY Right(Alltrim(mPlucode4),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 18.692,25.000 SAY mpluname4 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 18.692,64.000 SAY Iif(Empty(mqty4),'',mqty4+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 18.692,76.167 SAY mUPrice4 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 18.692,92.667 SAY mPrice4 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 20.538,1.333 SAY mId5 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 20.538,8.000 SAY Right(Alltrim(mPlucode5),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 20.538,25.000 SAY mpluname5 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 20.538,64.000 SAY Iif(Empty(mqty5),'',mqty5+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 20.538,76.167 SAY mUPrice5 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 20.538,92.667 SAY mPrice5 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 22.462,1.333 SAY mId6 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 22.462,8.000 SAY Right(Alltrim(mPlucode6),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 22.462,25.000 SAY mpluname6 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 22.462,64.000 SAY Iif(Empty(mqty6),'',mqty6+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 22.462,76.167 SAY mUPrice6 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 22.462,92.667 SAY mPrice6 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 24.308,1.333 SAY mId7 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 24.308,8.000 SAY Right(Alltrim(mPlucode7),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 24.308,25.000 SAY mpluname7 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 24.308,64.000 SAY Iif(Empty(mqty7),'',mqty7+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 24.308,76.167 SAY mUPrice7 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 24.308,92.667 SAY mPrice7 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 26.154,1.333 SAY mId8 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 26.154,8.000 SAY Right(Alltrim(mPlucode8),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 26.154,25.000 SAY mpluname8 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 26.154,64.000 SAY Iif(Empty(mqty8),'',mqty8+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 26.154,76.167 SAY mUPrice8 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 26.154,92.667 SAY mPrice8 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 28.000,1.333 SAY mId9 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 28.000,8.000 SAY Right(Alltrim(mPlucode9),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 28.000,25.000 SAY mpluname9 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 28.000,64.000 SAY Iif(Empty(mqty9),'',mqty9+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 28.000,76.167 SAY mUPrice9 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 28.000,92.667 SAY mPrice9 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 29.846,1.333 SAY mId10 ;
		SIZE 1.000,2.909, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "99." ;
		COLOR RGB(0,0,128,192,192,192)
	@ 29.846,8.000 SAY Right(Alltrim(mPlucode10),7) ;
		SIZE 1.000,8.545, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 29.846,25.000 SAY mpluname10 ;
		SIZE 1.000,21.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 29.846,64.000 SAY Iif(Empty(mqty10),'',mqty10+'X') ;
		SIZE 1.000,6.636, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 29.846,76.167 SAY mUPrice10 ;
		SIZE 1.000,8.273, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 29.846,92.667 SAY mPrice10 ;
		SIZE 1.000,8.182, 0.000 ;
		FONT "Tahoma", 16 ;
		STYLE "B" ;
		PICTURE "@J" ;
		COLOR RGB(255,0,0,192,192,192)
	@ 33.231,2.500 SAY Iif(!Empty(m.cpCashier2),'Cashier:'+m.cpCashier2+'แทน',m.cfCashshow) ;
		SIZE 1.000,14.143, 0.000 ;
		FONT "MS Sans Serif", 8 ;
		STYLE "B" ;
		COLOR RGB(0,0,0,192,192,192)
	@ 33.231,18.333 SAY 'Date:'+m.nfDateshow ;
		SIZE 1.000,14.714, 0.000 ;
		FONT "MS Sans Serif", 8 ;
		STYLE "B" ;
		COLOR RGB(0,0,0,192,192,192)
	@ 33.231,37.500 SAY 'No:'+m.nfNoshow ;
		SIZE 1.000,13.714, 0.000 ;
		FONT "MS Sans Serif", 8 ;
		STYLE "B" ;
		COLOR RGB(0,0,128,192,192,192)
	@ 33.231,60.333 SAY m.showword ;
		SIZE 1.000,21.429, 0.000 ;
		FONT "MS Sans Serif", 8 ;
		STYLE "B" ;
		PICTURE "@TJ" ;
		COLOR RGB(128,0,128,192,192,192)
ENDIF
IF NOT EMPTY(currwind)
	ACTIVATE WINDOW (currwind) SAME
ENDIF