bio green planet:请各位朋友检查以下代码有什么问题

local OK
OK=.T.
DO CASE
CASE EMPTY(THISFORM.TXT出车日期.VALUE)
MESSAGEBOX("出车日期不能为空",48,"警告信息")
THISFORM.TXT出车日期.SETFOCUS
OK=.F.

CASE EMPTY(THISFORM.TXT供货单位.VALUE)
MESSAGEBOX("供货单位不能为空",48,"警告信息")
THISFORM.TXT供货单位.SETFOCUS
OK=.F.

CASE EMPTY(THISFORM.TXT车号.VALUE)
MESSAGEBOX("车号不能为空",48,"警告信息")
THISFORM.TXT车号.SETFOCUS
OK=.F.
CASE EMPTY(THISFORM.TXT品种.VALUE)
MESSAGEBOX("品种不能为空",48,"警告信息")
THISFORM.TXT品种.SETFOCUS
OK=.F.
CASE EMPTY(THISFORM.TXT单价.VALUE)
MESSAGEBOX("单价不能为空",48,"警告信息")
THISFORM.TXT单价.SETFOCUS
OK=.F.
CASE EMPTY(THISFORM.TXT毛重.VALUE)
MESSAGEBOX("毛重不能为空",48,"警告信息")
THISFORM.TXT毛重.SETFOCUS
OK=.F.
CASE EMPTY(THISFORM.TXT皮重.VALUE)
MESSAGEBOX("皮重不能为空",48,"警告信息")
THISFORM.TXT皮重.SETFOCUS
OK=.F.
CASE EMPTY(THISFORM.TXT验收人.VALUE)
MESSAGEBOX("验收人不能为空",48,"警告信息")
THISFORM.TXT验收人.SETFOCUS
OK=.F.
CASE EMPTY(THISFORM.TXT过磅人.vaLUE)
MESSAGEBOX("过磅人不能为空",48,"警告信息")
THISFORM.TXT过磅人.SETFOCUS
OK=.F.
CASE EMPTY(THISFORM.TXT开票人.VALUE)
MESSAGEBOX("开票人不能为空",48,"警告信息")
THISFORM.TXT开票人.SETFOCUS
OK=.F.
ENDCASE
*IF OK=.T.
*jq=(thisform.txt单价.value)*(thisform.txt实收吨.value)
*yf=(thisform.txt运价.value)*(thisform.txt实收吨.value)
insert into ghxx values( thisform.txt出车日期.value , thisform.txt供货单位.value, thisform.txt车号.value ,thisform.txt品种.value ,thisform.txt单价.value, thisform.txt毛重.value,thisform.txt皮重.value , thisform.txt净重.value,thisform.txt扣杂.value,thisform.txt奖罚.value,thisform.txt金额.value,thisform.txt验收人.value, thisform.txt过磅人.value, thisform.txt开票人.value)
thisform.txt出车日期.value=""
thisform.txt供货单位.value=""
thisform.txt车号.value=""
thisform.txt单价.value=""
thisform.txt毛重.value=""
thisform.txt皮重.value=""
thisform.txt净重.value=""
thisform.txt金额.value=""
thisform.txt扣杂.value=""
thisform.txt奖罚.value=""
thisform.txt验收人.value=""
thisform.txt过磅人.value=""
thisform.txt开票人.value=""
thisform.txt品种.value=""

*sele 矿价 ;
*from kdxx;
*where 矿点 =thisform.txt矿点.value and 品名=thisform.txt品名.value;
*into cursor aa
*jq=(thisform.txt实收吨.value) * (thisform.txt单价.value)
*inse into jkxx(日期,矿点,金额) values(thisform.txt返回日期.value ,thisform.txt矿点.value ,jq)

*inse into yfk(日期,矿点,金额) values(thisform.txt返回日期.value ,thisform.txt矿点.value ,jq*(-1))

*YN=messagebox("是否输入调度单",4+32,"提示信息")
*IF YN=6
*do form tydd.scx
*messagebox("保存成功",64,"提示信息")
*ENDIF