在“保存”按钮的Click事件下添加如下代码：
STORE 0 TO yfje,sfje,wfje
a=messagebox("确定要保存信息吗？",32+4,"系统提示")
IF a=6
ON ERROR
bh=thisform.rainfunction1.autonumber("零售信息表","LS") &&产生自动编号
sj=thisform.text2.value
IF thisform.combo1.displayvalue="零售"
FOR m=1 TO thisform.msgrid.rows-1
SELECT * FROM 商品信息表 WHERE ;
名称=alltrim(thisform.msgrid.TextMatrix(m,4)) INTO CURSOR ls1
spbh=ls1.编号 &&取出商品编号
sl=val(thisform.msgrid.TextMatrix(m,6))
je=val(thisform.msgrid.TextMatrix(m,7))
lx=thisform.combo1.displayvalue
&&存入临时销售表中
INSERT INTO 零售信息表 (编号,时间,商品编号,数量,金额);
VALUES (bh,sj,spbh,sl,je)
&&更新库存表
UPDATE 库存信息表 SET 库存信息表.库存数量=库存信息表.库存数量-sl;
WHERE 库存信息表.商品编号=spbh
ENDFOR
ddh=bh &&订单号为零售编号
fkfs="现金"
zk=1
ELSE
**存入欠款**
&&判断是否有未付金额。如果未付金额小于应付的千分之一，则程序忽略未付金额
IF alltrim(thisform.combo3.value)="现金" OR ;
alltrim(thisform.combo3.value)="支票"
IF thisform.text11.value-thisform.text13.value> ;
thisform.text11.value*0.0001
a=messagebox("客户并没有付清应结款数！;
是否将未付清的款数作为欠款保存？",32+4,"系统提示")
IF a=6
bh=thisform.rainfunction1.autonumber("欠款信息表","QK")
SELECT * FROM 订单表 WHERE 编号;
=alltrim(thisform.combo2.displayvalue) INTO CURSOR lsddb
khbh=lsddb.客户编号
ddbh=alltrim(thisform.text1.value)
yfje=thisform.text11.value
sfje=thisform.text13.value
wfje=thisform.text14.value
INSERT INTO 欠款信息表 VALUES(;
bh,khbh,ddbh,yfje,sfje,wfje,date(),0,.f.,date()+20)
ENDIF
ENDIF
ELSE
bh=thisform.rainfunction1.autonumber("欠款信息表","QK")
SELECT * FROM 订单表 WHERE 编号=;
alltrim(thisform.combo2.displayvalue) INTO CURSOR lsddb
khbh=lsddb.客户编号
ddbh=alltrim(thisform.text1.value)
yfje=thisform.text11.value
wfje=thisform.text14.value
INSERT INTO 欠款信息表 ;
VALUES(bh,khbh,ddbh,yfje,sfje,wfje,date(),0,.f.,date()+20)
ENDIF
**更改库存**
sj=thisform.text2.value
ddh=alltrim(thisform.combo2.displayvalue)
fkfs=alltrim(thisform.combo3.displayvalue)
zk=val(thisform.combo4.displayvalue)
FOR m=1 TO thisform.msgrid.rows-1
SELECT * FROM 商品信息表 WHERE ;
名称=alltrim(thisform.msgrid.TextMatrix(m,4)) INTO CURSOR ls1
spbh=ls1.编号 &&取出商品编号
&&更新库存表
sl=val(thisform.msgrid.TextMatrix(m,6))
UPDATE 库存信息表 SET 库存信息表.库存数量=库存信息表.库存数量-sl;
WHERE 库存信息表.商品编号=SPBH
ENDFOR
UPDATE 订单表 SET 结款否=.t. WHERE 编号=ddh
ENDIF
*存入销售信息表
ph=thisform.text1.value
lx=thisform.combo1.value
hjpz=thisform.text12.value
hjje=thisform.text11.value
yfje=hjje*zk
sfje=thisform.text13.value
wfje=yfje-sfje
INSERT INTO 销售信息表 (编号,时间,销售类型,订单号,合计品种,合计金额,;
付款方式,折扣,应付金额,实付金额,未付金额,操作员);
VALUES(ph,sj,lx,ddh,hjpz,hjje,fkfs,zk,yfje,sfje,wfje,gly)
FOR m=1 TO 6
IF m<>3
textname="text"+alltrim(str(m))
thisform.&textname..value=""
ENDIF
ENDFOR
thisform.rainsupinput1.value=""
FOR m=8 TO 14
textname="text"+alltrim(str(m))
thisform.&textname..value=0
ENDFOR
thisform.combo1.displayvalue=''
thisform.combo2.rowsource=""
thisform.combo2.displayvalue=""
thisform.combo3.displayvalue=''
thisform.combo4.displayvalue="1.0"
thisform.text13.enabled=.f.
thisform.command2.enabled=.f. &&保存按钮失效
thisform.command1.enabled=.t. &&添加按钮有效
thisform.msgrid.rows=2
*清空表格
FOR m=1 TO thisform.msgrid.cols-1
thisform.msgrid.TextMatrix(1,m)=""
ENDFOR
ENDIF
在“实付金额”文本框的InterActiveChange事件下添加如下代码：
thisform.text14.value=thisform.text11.value-this.value
在“实付金额”文本框的KeyPress事件下添加如下代码：
IF nkeycode=13
IF thisform.combo1.displayvalue="零售"
IF thisform.text11.value-thisform.text13.value>thisform.text11.value/1000
messagebox("此客户并没有付清货款！",48,"系统提示")
ELSE
thisform.command2.click
ENDIF
ELSE
thisform.command2.click
thisform.text7.value=ls1.零售价
thisform.msgrid.TextMatrix(thisform.msgrid.rows-1,5)=thisform.text7.value
thisform.text8.setfocus
SELECT * FROM 库存信息表 WHERE 商品编号= ls1.编号 INTO CURSOR lskc
thisform.text10.value=lskc.库存数量
thisform.text8.enabled=.t.
thisform.msgrid.TextMatrix(thisform.msgrid.rows-1,8)=gly
<< 上一页 [11] [12] [13] [14] [15] [16] 下一页