VFP 中 PRODUCTION 是啥意思啊，怎么是蓝色的
一个小系统修改了好多天了，感谢版主的耐心解答，在这里谢谢版主了，在程序中，PRODUCTION 是一个变量，我想问的是这个变量要定义不，定义成LOCAL类型可以吗？
下面是我要修改的程序，乱码的部分是繁体汉字，好多字段都是根据上下去判断，还有临时表，数据库字段这些，
有些头大啊！不过现在快收尾了， 真的感谢版主的不吝赐教！
messageword = "╰??﹍箇︳, 叫?祔?, ????!"
DO FORM ╰??? WITH messageword
SELECT ("TPAGE1")
tableupdate(.T.)
GOTO TOP
SELECT ("TPAGE2")
tableupdate(.T.)
GOTO TOP
SELECT ("TPAGE3")
tableupdate(.T.)
GOTO TOP
SELECT ("TPAGE6")
tableupdate(.T.)
GOTO TOP
SELECT ("TPAGE7")
tableupdate(.T.)
GOTO TOP
SELECT ("TPAGE4")
tableupdate(.T.)
= cursorsetprop("BUFFERING", 1)
KEYBOARD ('{121}') CLEAR
ZAP
= cursorsetprop("BUFFERING", 5)
LOCAL x, a, b, i, , , , , , totlenum, yearnum, monthnum, worknum
SELECT ("TPAGE4")
tf = 100
i = 0
x = 0
la = 0
= space(0)
SELECT ("TPAGE3")
i = reccount()
totlenum = 0
yearnum = 0
monthnum = 0
FOR x = 1 TO i
SELECT ("TPAGE3")
GOTO x
IF <>alltrim(tpage3.)
= alltrim(tpage3.)
tf = 0
la = 0
b = 0
= 0
= 0
= 0
= 0
= 0
worknum = 0
yearnum = year(tpage3.)
monthnum = month(tpage3.)
SELECT tpage6., tpage6., tpage6. FROM TPAGE6 WHERE tpage6.=yearnum AND tpage6.=monthnum INTO CURSOR TEMP
dattotle = reccount()
USE IN temp
SELECT ("TPAGE6")
SET ORDER TO ???
m.name = ctod(alltrim(str(year(tpage3.)))+"/"+alltrim(str(month(tpage3.)))+"/"+alltrim(str(day(tpage3.))))
IF seek(m.name)
la = recno()
ELSE
= messagebox("禬??紅︽ㄆ句戈?郎?絛瞅, ╰??猭璸衡,叫??﹚?!")
EXIT
ENDIF
SELECT ("TPAGE3")
= day(tpage3.)
= 0
b = la-+1
totlenum = tpage3.
ELSE
totlenum = tpage3.
ENDIF
SELECT ("TPAGE4")
APPEND BLANK
REPLACE tpage4. WITH
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
DO WHILE totlenum>0
SELECT ("TPAGE6")
GOTO la+
worknum = iif(alltrim(tpage6.)=="??", 0, iif(alltrim(tpage6.)=="?痁", 1, 2))
= tpage6.
= tpage6.
SELECT ("TPAGE4")
REPLACE tpage4. WITH
REPLACE tpage4. WITH
SELECT * FROM TPAGE7 WHERE tpage7.=tpage3. INTO CURSOR TEMP99
IF reccount()==0
= messagebox("???? "+alltrim(tpage3.)+" ?戈?, ╰??氨?箇︳")
EXIT
ELSE
production = iif(worknum==0, 0, iif(worknum==1, temp99., temp99.))
ENDIF
IF int(production*1.05 )>=totlenum .AND. totlenum>=production
thisform.a41.f5(+-, totlenum)
totlenum = totlenum-totlenum
= +1
tf = 0
ELSE
IF tf=0
IF totlenum>=production
thisform.a41.f5(+-, production)
totlenum = totlenum-production
= +1
tf = 0
ELSE
thisform.a41.f5(+-, totlenum)
tf = 100-int((totlenum/production)*100)
totlenum = totlenum-totlenum
= +0
ENDIF
ELSE
IF totlenum>=int((production*tf)/100)
thisform.a41.f5(+-, int((production*tf)/100))
totlenum = totlenum-int((production*tf)/100)
= +1
tf = 0
ELSE
thisform.a41.f5(+-, totlenum)
tf = 100-int((totlenum/int((production*tf)/100))*100)
totlenum = totlenum-totlenum
= +0
ENDIF
ENDIF
ENDIF
IF totlenum<>0
SELECT ("TPAGE6")
GOTO la+
IF <>tpage6.
= +dattotle
yearnum = tpage6.
monthnum = tpage6.
SELECT tpage6., tpage6., tpage6. FROM TPAGE6 WHERE tpage6.=yearnum AND tpage6.=monthnum INTO CURSOR TEMP
dattotle = reccount()
USE IN temp
SELECT ("TPAGE4")
tableupdate()
APPEND BLANK
REPLACE tpage4. WITH
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
REPLACE tpage4. WITH tpage3.
ENDIF
ENDIF
ENDDO
SELECT ("TPAGE4")
tableupdate()
ENDFOR
SELECT ("TPAGE4")
GOTO TOP
RELEASE WINDOW
