*****************************************************
FUNCTION  check_id
*****************************************************
LPARAMETERS  m.id							&&  Ҧr
LOCAL  i, rvalue, sum
DIMENSION   weight[10]     						&& [vv
IF  LEN(ALLTRIM(m.id)) <> 0
	weight[1] = 1
	weight[2] = 9
	weight[3] = 8
	weight[4] = 7
	weight[5] = 6
	weight[6] = 5
	weight[7] = 4
	weight[8] = 3
	weight[9] = 2
	weight[10] = 1
	sum = 0								
	rvalue = .F.										&&  Ǧ^
	m.id = check_id1(LEFT(m.id, 1)) + RIGHT(m.id, 9)	&&  NĤ@X

	FOR  i = 1 TO  10						&& NC@XW[vvơAå[`
		sum = sum + VAL(SUBSTR(m.id, i, 1)) * weight[i] 
	ENDFOR

	IF  SUBSTR(m.id, 11, 1) = RIGHT(STR(10 - MOD(sum, 10)), 1)
		rvalue = .T.
	ENDIF
ELSE
	rvalue = .T.
ENDIF

RETURN  rvalue


*****************************************************
FUNCTION  check_id1
*****************************************************
LPARAMETERS  m.id1				&&  ҦrĤ@X
LOCAL   rvalue
rvalue = "10"						&&  Ǧ^

DO  CASE							&&  NҦrĤ@X
	CASE  m.id1 = "A"
		rvalue = "10"
	CASE  m.id1 = "B"
		rvalue = "11"
	CASE  m.id1 = "C"
		rvalue = "12"
	CASE  m.id1 = "D"
		rvalue = "13"
	CASE  m.id1 = "E"
		rvalue = "14"
	CASE  m.id1 = "F"
		rvalue = "15"
	CASE  m.id1 = "G"
		rvalue = "16"
	CASE  m.id1 = "H"
		rvalue = "17"
	CASE  m.id1 = "J"
		rvalue = "18"
	CASE  m.id1 = "K"
		rvalue = "19"
	CASE  m.id1 = "L"
		rvalue = "20"
	CASE  m.id1 = "M"
		rvalue = "21"
	CASE  m.id1 = "N"
		rvalue = "22"
	CASE  m.id1 = "P"
		rvalue = "23"
	CASE  m.id1 = "Q"
		rvalue = "24"
	CASE  m.id1 = "R"
		rvalue = "25"
	CASE  m.id1 = "S"
		rvalue = "26"
	CASE  m.id1 = "T"
		rvalue = "27"
	CASE  m.id1 = "U"
		rvalue = "28"
	CASE  m.id1 = "V"
		rvalue = "29"
	CASE  m.id1 = "X"
		rvalue = "30"
	CASE  m.id1 = "Y"
		rvalue = "31"
ENDCASE

RETURN  rvalue

=========================================================================================+

cmdTop...Click
GO TOP
Thisform.istop = .T.	   &&  OЦbĤ@
Thisform.isbottom = .F.  &&  OФb̥
Thisform.Refresh()	   &&  sܪWU󤧸

*---------------------------
cmdPrev...Click  W
SKIP -1
IF BOF()
	=MESSAGEBOX("wܲĤ@!",48,"T")
	Thisform.istop = .T.	&&  OЦbĤ@
	GO TOP
ENDIF
Thisform.isbottom = .F.   	&&  OФb̥
Thisform.Refresh()		&&  sܪWU󤧸					
*----------------------------------
cmdNext....Click
SKIP 
IF EOF()
	=MESSAGEBOX("w̥ܳ!",48,"T")
	Thisform.isbottom = .T.	&&  OЦb̥
	GO BOTTOM
ENDIF
Thisform.istop = .F.         &&  OФbĤ@
Thisform.Refresh()	   &&  sܪWU󤧸

*----------------------------
cmdBottom...Click
GO BOTTOM
Thisform.istop = .F.		&&  OФbĤ@
Thisform.isbottom = .T.	&&  OЦb̥
Thisform.Refresh()		&&  sܪWU󤧸

*-----------------------------
cmdFind....Click
DO FORM find		&&  IsjM
Thisform.ck_position()	&&  sP_O_bƪ椧Ĥ@γ̥
Thisform.Refresh()		&&  sܪWU󤧸

*-----------------------------
cmdFindb......Click
DO FORM findb		   &&  IsjM
*  sP_O_bƪ椧Ĥ@γ̥
SKIP -1
IF BOF()
	Thisform.istop = .T.	    &&  OЦbĤ@
	GO TOP
ELSE
	Thisform.istop = .F.	     &&  OФbĤ@
	SKIP	
ENDIF

SKIP
IF EOF()
	Thisform.isbottom = .T.      &&  OЦb̥
	GO BOTTOM
ELSE
	Thisform.isbottom = .F.      &&  OФb̥
	SKIP -1
ENDIF
Thisform.Refresh()		        &&  sܪWU󤧸


***k  Click**********
*carwk2.dbf  װODBF
*carwkwk.dbf ñbDBF()
*cardtb.dbf  yDBF
*wkwk.dbf  {DBF 
yn = MESSAGEBOX("*- - - - -Twkɶ  ? - - - - -*"+CHR(13);
        +"*- - - - -RTwF ?- - - - -* ",4+32,"T ( Twk )")
IF yn = 6				      &&  yn = 6 F<O>s

Sele wkwk
    if Thisform.pgf_1.page1.txtInman.Value=" "
=MESSAGEBOX("*- - - - -RSTw !- - - - -*"+CHR(13)+"*- - -( ñbJ -  ),- - - - -*"+CHR(13)+"*;
 - - - - -( IJ + [ )- - - - -*" +CHR(13)+"*- - - - -( ΥXt ť )- - - - -*",48,"T ( k )")
        
        Thisform.pgf_1.page1.cmdA6.SetFocus()	 &&NJI txtnum W
    else
 
 Sele carwk2     &&װODBF
      Append Blank
        repl num with wkwk->num
        repl make with wkwk->make
        repl name with wkwk->name
        repl cc with wkwk->cc
        repl datee with wkwk->datee
        repl km with wkwk->km
        repl worke with wkwk->worke
        repl worke_1 with wkwk->worke_1
        
        repl aa1 with wkwk->aa1
        repl qty_1 with wkwk->qty_1
        repl nta_1 with wkwk->nta_1
        repl ntb_1 with wkwk->ntb_1
        
        repl aa2 with wkwk->aa2
        repl qty_2 with wkwk->qty_2
        repl nta_2 with wkwk->nta_2
        repl ntb_2 with wkwk->ntb_2
        
        repl aa3 with wkwk->aa3
        repl qty_3 with wkwk->qty_3
        repl nta_3 with wkwk->nta_3
        repl ntb_3 with wkwk->ntb_3
        
        repl aa4 with wkwk->aa4
        repl qty_4 with wkwk->qty_4
        repl nta_4 with wkwk->nta_4
        repl ntb_4 with wkwk->ntb_4
        
        repl aa5 with wkwk->aa5
        repl qty_5 with wkwk->qty_5
        repl nta_5 with wkwk->nta_5
        repl ntb_5 with wkwk->ntb_5
        
        repl aa6 with wkwk->aa1
        repl qty_6 with wkwk->qty_6
        repl nta_6 with wkwk->nta_6
        repl ntb_6 with wkwk->ntb_6
        
        repl aa7 with wkwk->aa7
        repl qty_7 with wkwk->qty_7
        repl nta_7 with wkwk->nta_7
        repl ntb_7 with wkwk->ntb_7
        
        repl aa8 with wkwk->aa8
        repl qty_8 with wkwk->qty_8
        repl nta_8 with wkwk->nta_8
        repl ntb_8 with wkwk->ntb_8
        
        repl aa9 with wkwk->aa9
        repl qty_9 with wkwk->qty_9
        repl nta_9 with wkwk->nta_9
        repl ntb_9 with wkwk->ntb_9
        repl ab1 with wkwk->ab1
        repl lees with wkwk->lees 
        repl inman with wkwk->inman  &&R( + - )
     * repl end with wkwk->end    &&( + - ) 
   
        repl ntt with wkwk->ntt         &&Xp
        repl nnt with wkwk->nnt       &&
        repl nt with wkwk->nt           &&
        repl intt with wkwk->intt       &&J
        repl insm with wkwk->insm  &&|
 
 *sele wkwk
 *      if Thisform.pgf_1.page1.txtinsm.Value<>0

   sele carwkwk  &&ñbDBF()   
    Append Blank
        repl num with wkwk->num
        repl make with wkwk->make
        repl name with wkwk->name
        repl cc with wkwk->cc
        repl datee with wkwk->datee
        repl worke with wkwk->worke
        repl worke_1 with wkwk->worke_1
        repl ab1 with wkwk->ab1
        repl lees with wkwk->lees 
      
        repl inman with wkwk->inman  &&R( + - )
        repl nt with wkwk->ntt         &&NTTbwkwk.dbfOXp  scarwkwk.dbfnt
                                                     *ntbwkwk.dbfO   
     * repl nnt with wkwk->nnt       &&
     * repl nt with wkwk->nt           &&
        repl intt with wkwk->intt       &&J
        repl insm with wkwk->insm  &&|
 * else     
  
  Sele wkwk
   dele 
   pack
   reindex 
  
      Count  To jtxt3  &&έp
      Thisform.pgf_1.page1.text3.Value=jtxt3
  
      go top
      =MESSAGEBOX(" *- - - - - kɧ  - - - - *  ",64,"T ( kɧ )") 
 Endif
* endif
    *  Thisform.Refresh()					&&  sܪWU󤧸
 Endif 
 Thisform.Refresh()					&&  sܪWU󤧸


