| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1225 人关注过本帖
标题:[求助]关于set multilocks on的问题
取消只看楼主 加入收藏
btchongzi
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2006-8-22
收藏
 问题点数:0 回复次数:1 
[求助]关于set multilocks on的问题

我在命令窗口或用程序执行set multilocks on以后表单都无效,必须要在表单里来set multilocks on才有效,请问各位知道出现这种情况原因吗?怎么解决?


***********************我的代码如下******************************
CURSORSETPROP("Buffering", 5,"入库单据")

******************************************************************************
lnMsg = MESSAGEBOX([是否保存当前入库单?],3+64+512,[保存提示])

IF lnMsg = 2 &&忽略
NODEFAULT && 返回到入库单输入界面
RETURN
ENDIF

IF lnMsg = 7 && 不保存
TABLEREVERT(.t.,[入库单据]) &&将前面添加的一条记录撤消
RETURN
ENDIF

IF lnMsg = 6 && 保存
* 1 保存入库单数据
TABLEUPDATE(1,.t.,[入库单据])
* 提取库存编号
SELECT 库存明细
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"))
i=0
endif
CALCULATE MAX(VAL(SUBSTR(编号,9,4))) TO I
c=alltrim("R"+CHRTRAN(str(year(DATE()),4)," ","0")+CHRTRAN(str(MONTH(DATE()),2)," ","0")+"-"+CHRTRAN(STR(i+1,4)," ","0"))
* 2 保存入库单明细
SELECT temp
SCAN FOR 数量>0 AND !EMPTY(货物名称)&&把数量不为0且品名不为空的添加到入库明细表
INSERT into 入库明细(入库单号,流水号,分类,货物名称,规格型号,生产厂家,计量单位,数量,单价)values(入库单据.入库单号, temp.流水号,temp.分类,temp.货物名称,temp.规格型号,temp.生产厂家,temp.计量单位,temp.数量,temp.单价)
UPDATE 库存明细 set 数量=数量+temp.数量 where(分类=temp.分类 AND 货物名称=temp.货物名称 AND 规格型号=temp.规格型号 AND 生产厂家=temp.生产厂家 AND 计量单位=temp.计量单位)&& 更新库存表
IF _tally = 0 &&如果更新库存的记录数为0,则库存中未建立该商品的账目,需要插入一条记录
INSERT into 库存明细(编号,分类,货物名称,规格型号,生产厂家,计量单位,数量)values(c,temp.分类,temp.货物名称,temp.规格型号,temp.生产厂家,temp.计量单位,temp.数量)
ENDIF
ENDSCAN
ENDIF

搜索更多相关主题的帖子: set multilocks 
2006-09-20 09:15
btchongzi
Rank: 1
等 级:新手上路
帖 子:72
专家分:0
注 册:2006-8-22
收藏
得分:0 
  这样啊,谢谢啸凡
2006-09-20 09:41
快速回复:[求助]关于set multilocks on的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.057058 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved