-
单一记录号（准备数量）
intbilltotal =请求。形式（亿）
intbilltotal = tonum（intbilltotal，10）
intbilltype = getopertype（）
intbillvalue = getopervalue（）
dtatoday =日期（）
REM ###############################################################################################
REM # #操作项目
昏暗的dtabilldate，strbilluser，strbillcheckuser，strbillcontent
昏暗的curbillcost，curbillcostasp，intcustid，strcustname，strpaytype，inttotalnum
昏暗的dtabillyear，intbillid，intbillplanid，strbillplannum
REM dtabilldate # #单日期，strbilluser表，strbillcheckuser交货，intbillid ID
REM strbillcontent # #单注，strbillcode序号，curbillcost（JS），总curbillcostasp价值（ASP）
REM intcustid ID strcustname # #客户，客户名称，strpaytype付款，单inttotalnum数
REM # # intbilltype型，intbillvalue型单描述intbillplanid ID strbillplannum计划，计划数
REM # #手术日期
dtabilldate =取代（TRIM（要求表单（billdate 、））。
如果Not IsDate（dtabilldate）然后
ouser.gs_addmessage 操作单日期是空的
其他的
dtabilldate = CDate（dtabilldate）
dtabillyear =年（dtabilldate）
如果（osys.checkyearout（dtabillyear））然后
ouser.gs_addmessage 操作单日期（dtabillyear）超出范围
最后如果
最后如果
REM # #信息
strbilluser =装饰（形式的要求。（billuser ））
如果strbilluser =
ouser.gs_addmessage填写表人工
最后如果
REM # #交货
strbillcheckuser =装饰（形式的要求。（billcheckuser ））
如果strbillcheckuser =
ouser.gs_addmessage 空货
最后如果
REM # #转向误差
ouser.gs_showmessage 1
REM # #其他项目
curbillcost = tocur（要求表单（总价）
curbillcostasp = 0
intcustid = tonum（要求表单（custId ）
strcustname =请求。形式（custname ）
strpaytype =请求。形式（paytype ）
strbillcontent =请求。形式（billcontent ）
intbillplanid = tonum（要求表单（brefer ）
strbillplannum = getbillnuber（intbillplanid）
REM ###############################################################################################
REM ###############################################################################################
REM # #获取用户输入的数据
昏暗的arrrecordinfo（）
昏暗的inttempid，curtempprice，curtemptotal，curtempcost，curtempaspc
昏暗的inttempcode，inttempname，inttempspec，inttempunit，inttempout
REM # #临时inttempid产品ID，curtempprice价格，curtemptotal数、总curtempcost（JS）
REM curtempaspc # #产品价格（ASP），inttempcode编码，inttempname名字，inttempspec规格
REM inttempunit # #单元
ReDim arrRecordInfo（9, 0）
REM单# #初始化数为0，过滤掉的行数是0
inttotalnum = 0
inttempout = 0
响应。写（UBound（arrrecordinfo，2））
由客户端REM # #初始化提交有用的数据
我intbilltotal = 1
inttempid = tonum（要求表单（控制我），0）
curtempprice = tocur（要求表单（fpprice 我），0）
curtemptotal = tocur（要求表单（fptotal 我），0）
curtempcost = tocur（要求表单（fpcost 我），0）
curtempaspc = curtempprice * curtemptotal
如果（（curtempprice > 0）和（0 curtemptotal）和（inttempid > 0））然后
REM # #可用数据
inttotalnum = inttotalnum + 1
curbillcostasp = curbillcostasp + curtempaspc
inttempcode =装饰（要求表单（fpmodel 我））
inttempname =装饰（要求表单（fpvalue 我））
inttempspec =装饰（要求表单（fpspec 我））
inttempunit =装饰（要求表单（fpunit 我））
ReDim Preserve arrRecordInfo（9，inttotalnum）
ArrRecordInfo（0，inttotalnum）= inttempid
ArrRecordInfo（1，inttotalnum）= inttempname
ArrRecordInfo（2，inttotalnum）= inttempcode
ArrRecordInfo（3，inttotalnum）= inttempspec
ArrRecordInfo（4，inttotalnum）= inttempunit
ArrRecordInfo（5，inttotalnum）= curtempprice
ArrRecordInfo（6，inttotalnum）= curtemptotal
ArrRecordInfo（7，inttotalnum）= curtempcost
ArrRecordInfo（8，inttotalnum）= curtempaspc
写（inttempunit反应。
）
（inttempid > 0）然后
inttempout = inttempout + 1
最后如果
下一个
如果inttotalnum ouser.gs_addmessage 没有产品数据在操作列表
ouser.gs_addmessage 共享inttempout栏数据（产品单价0，空负，0或空）过滤。
ouser.gs_showmessage 1
最后如果
REM ###############################################################################################
响应。写（UBound（arrrecordinfo，2））
response.end（）
REM # #打开连接
f__openconn
REM ###############################################################################################
REM # #检测仪存在的
昏暗的tbltablename
tbltablename = ouser.getbilltable（dtabillyear）
REM ###############################################################################################
REM ###############################################################################################
REM # #单独的SQL语句并保存项目结构
strbillcode = getopebill（）
SQL =SELECT * FROM {gbl__str_tab_inf_bill}
集= server.createobject（ADODB。记录集）
rs.open sql，Conn，1, 3
rs.addnew
RS（CustomerID）= intcustid
RS（客）= strcustname
RS（bitplanid ）= intbillplanid
RS（bitplannum ）= strbillplannum
RS（bittype ）= intbilltype
RS（比特名称）= intbillvalue
RS（可以）= strbillcode
RS（bitnum ）= inttotalnum
RS（bitprice ）= curbillcost
RS（bitpriceasp ）= curbillcostasp
RS（bitdate ）= dtabilldate
RS（BitPay ）= strpaytype
RS（bitcontent ）= strbillcontent
RS（filluser ）= strbilluser
RS（sureuser ）= strbillcheckuser
RS（用户名）= ouser.uid
RS（用户名）= ouser.username
rs.update
intbillid = RS（ID）
strbillcode = getbillnuber（intbillid）
RS（可以）= strbillcode
rs.update
关闭
REM ###############################################################################################
REM ###############################################################################################
REM # #行SQL语句和存储数据结构
我inttotalnum = 1
SQL =插入{ }_ tbltablename
（BitType，BitValue，BitID，BitCode，产品编号，产品名称，产品代号_
价值观（_
_ intbilltype
，tosqlr _（intbillvalue）
_ intbillid
，tosqlr _（strbillcode）
tosqlr （arrrecordinfo（1，i））_
tosqlr （arrrecordinfo（2，i））_
tosqlr （arrrecordinfo（3，i））_
tosqlr （arrrecordinfo（4，i））_
# #_ dtabilldate
conn.execute（SQL）
下一个
REM ###############################################################################################
REM # #紧密联系
f__closeconn
REM ###############################################################################################
REM # #输出消息
ouser.gs_addmessage 共享inttempout栏数据（产品单价0，空负，0或空）过滤。
ouser.gs_addmessage 共享inttotalnum项目数据存储和存储，而总价formatnumber（curbillcost，2，真）（formatnumber（curbillcostasp，2，真））。
ouser.gs_addmessage
ouser.gs_addmessage
ouser.gs_showmessage 0
REM ###############################################################################################
%>