SET EXCLUSIVE ON
Private aa,bb,bianhao
DIMENSION a(1)

SCAN
aa="00"
APPEND BLANK
replace lysmy.应收金额 WITH lysmy.单价*lysmy.吨位
replace lysmy.运杂费合计 WITH lysmy.装卸费用+lysmy.汽运费用+lysmy.铁轮费用+lysmy.其他杂费
replace lysmy.运杂费单价 WITH lysmy.运杂费合计/lysmy.吨位
replace lysmy.税费单价 WITH (lysmy.单价*0.17)/1.17
replace lysmy.税费合计 WITH lysmy.税费单价*lysmy.吨位
replace lysmy.不含税厂价 WITH lysmy.单价-lysmy.税费单价-lysmy.运杂费单价
replace lysmy.不含税金额 WITH lysmy.不含税厂价* lysmy.吨位
IF EMPTY(lysmy.编号)
replace lysmy.编号 WITH LEFT(ALLTRIM(lysmy.部门),2)+"液"+"C"+ALLTRIM(SUBSTR(lysmy.日期,4,3))+"01"
ELSE
SELECT MAX(lysmy.编号) FROM lysmy INTO ARRAY a &&取表中最大的数值
bianhao=VAL(SUBSTR(a(1),1,3))+1 &&自动增加编号
replace lysmy.编号 WITH LEFT(ALLTRIM(lysmy.部门),2)+"液"+"C"+ALLTRIM(SUBSTR(lysmy.日期,4,3))+&bianhao &&将替换新的数据
ENDIF
ENDSCAN
RETURN
为什么红色区域提示数据益处，请大家帮忙检查一下！谢谢

检查字段类型、长度及小数位设置

replace lysmy.运杂费单价 WITH IIF(lysmy.吨位=0,0,lysmy.运杂费合计/lysmy.吨位)

还是老虎考虑周到，可能就是分母为 0 的情况吧。

谢谢了

请问一下
我的这个自动编号
第一个可以实现
后面的就不能实现
不知道怎么该这里面的代码
谢谢了！

IF EMPTY(lysmy.编号)
replace lysmy.编号 WITH LEFT(ALLTRIM(lysmy.部门),2)+"液"+"C"+ALLTRIM(SUBSTR(lysmy.日期,4,3))+"01"
这段不要


下面是我用的代码你可以参考下，“txt入库编号” 是个变量，别被名字骗了。
SELECT 入库清单
CALCULATE MAX(VAL(SUBSTR(入库编号,9,4))) TO I
CALCULATE MAX(VAL(SUBSTR(入库编号,2,6))) TO j
IF CHRTRAN(STR(j,6)," ","0")=alltrim(str(YEAR(DATE()),4)+CHRTRAN(str(MONTH(DATE()),2)," ","0"))
c=alltrim("R"+str(YEAR(DATE()),4)+CHRTRAN(str(MONTH(DATE()),2)," ","0")+"-"+CHRTRAN(STR(i+1,4)," ","0"))
ELSE
c=alltrim("R"+str(YEAR(DATE()),4)+CHRTRAN(str(MONTH(DATE()),2)," ","0")+"-"+"0001")
endif
txt入库编号=c
输出格式为 R2006090001
判断编号最大年月是否为当前年月，不是的话编号重新计算。

[此贴子已经被作者于2006-9-6 12:17:27编辑过]