PB9 一个奇怪的问题 高手帮忙解决下 谢谢

[xiaoyi5520]

2个窗口 在第二个窗口里面建了几个按钮 只在一个按扭中加入代码 没有问题 如果再在其他按钮中加入代码能保存 然后打开第一个界面就提示提示出错 打不开界面
第二个界面没问题 再在第3个按钮中加代码 也能保存 但随便打开哪个窗口都有这个提示出错 打不开界面

按钮代码
integer net
g_nrx=""
long row_count1
string cpljh,orderno,ljh,pz,eco,cell,cell1,cpljh1,orderno1,cpljh2,cpljh3,cx,shuom,nrx,jh
real ddts,shul,wcts,dyts
int xs
string riqi,yemei,fyemei,yejiao,barcode,fenpai
datetime riqitime
riqi=string(today(),'yyyy-mm-dd')
riqitime=datetime(date(riqi),time(today()))

cpljh=trim(w_wxbq.dw_1.getitemstring(1,"产品零件号"))
orderno=trim(w_wxbq.dw_1.getitemstring(1,"订单号"))
ddts=w_wxbq.dw_1.getitemdecimal(1,"订单套数")
wcts=w_wxbq.dw_1.getitemdecimal(1,"一排靠")
eco=w_wxbq.dw_1.getitemstring(1,"ECO")
cell=w_wxbq.dw_1.getitemstring(1,"单元")
cpljh1=trim(w_wxbq.dw_1.getitemstring(1,"产品零件号1"))
orderno1=trim(w_wxbq.dw_1.getitemstring(1,"订单号1"))
cell1=w_wxbq.dw_1.getitemstring(1,"单元1")
if isnull(wcts) then wcts=0
fenpai="一排靠"
net=messagebox("确定:","打印: "+orderno+" " + fenpai +"的外箱标签?",question!,yesno!,10)
if net=1 then

SELECT DISTINCT item,pd into :cx,:pz FROM t_cpmx WHERE 产品零件号=:cpljh ;
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","在产品明细表中未找到该产品零件号"+cpljh+"对应的车型配置!",stopsign!)
return
end if

if isnull(cx) then cx=""
if isnull(pz) then pz=""
if cx="" or pz="" then
rollback;
MessageBox("错误","在产品明细表中未找到该产品零件号"+cpljh+"对应的车型配置!!",stopsign!)
return
end if

string ls_oldselect,ls_newselect,ls_oldselect2
w_wxbq.dw_1.SetTransObject(SQLCA)
ls_oldselect =w_wxbq.dw_2.Describe("DataWindow.Table.Select")//保存原始的SQL SELECT 语句
ls_newselect = ls_oldselect + "Where 产品零件号 = " +"'" +cpljh +"' and 分排 = " +"'" + fenpai +"'"
w_wxbq.dw_2.Modify("datawindow.table.select = ~"" + ls_newselect + "~"")
w_wxbq.dw_2.retrieve()
w_wxbq.dw_2.Modify("datawindow.table.select = ~"" + ls_oldselect + "~"")
if w_wxbq.dw_2.rowcount()=0 then
rollback;
messagebox("查询失败","外箱标签字典中没有"+cpljh+"这个产品零件号的" + fenpai +"记录!")
return
else
commit;
end if

//生成条形码
string cutplan_id,car_id,factory
long ls_maxno
string ls_max,ls_maxdate,ls_date
factory=g_factory

ls_date = string(today(),'yymmdd')
//取当天日期（左边6位）最大值，查询数据库中有无条形码记录
SELECT max(left(barcode,6)) INTO :ls_maxdate FROM 外箱标签记录表 WHERE barcode > :ls_date;
if sqlca.sqlcode=0 then
commit;
else
rollback;
MessageBox("错误","未成功找到当日barcode!")
return
end if
//数据库中无单据
if ls_maxdate = "" or IsNull(ls_maxdate) then
//生成数据库中第一 张单编号
ls_max = string(now(),'yymmdd') + factory + 'WL'+'2001'
else
//如果数据库中有条形码记录 右边取4位最大值111214NT012 左边6位111214=111214
SELECT max(right(barcode,4)) INTO :ls_maxno FROM 外箱标签记录表 WHERE left(barcode,6)= :ls_date and 工厂=:factory;
if sqlca.sqlcode=0 then
commit;
else
rollback;
end if
//判断R如果ls_maxno为空意味着无当日小车标识单号
if isnull(ls_maxno) then
//生成当日第一张小车标识
ls_max = string(now(),'yymmdd') + factory + 'WL'+'2001'
else
//生成小车标识为最大值加1
ls_max = string(now(),'yymmdd') +factory+ 'WL'+ string(ls_maxno + 1)
end if
end if





int i=0
for i=1 to w_wxbq.dw_2.rowcount()

//给w_wxbq.dw_3数据窗口里的文本框赋值
ljh=trim(w_wxbq.dw_2.getitemstring(i,"零件号"))
shuom=trim(w_wxbq.dw_2.getitemstring(i,"说明"))
shul=w_wxbq.dw_2.getitemdecimal(i,"数量")
dyts=real(ddts)-real(wcts)
nrx=trim(w_wxbq.dw_2.getitemstring(i,"纳入先"))
jh=trim(w_wxbq.dw_2.getitemstring(i,"记号"))

if wcts = ddts then
messagebox("提示:","订单号:"+orderno+" " + fenpai +"的外箱标签已经全部打完?")
RETURN
END IF

if wcts=0 then xs=1
if wcts>0 then
xs=wcts/shul+1
end if
yemei="YFJC"+"/"+cx+"/"+pz+" SEAT COVERS "
fyemei=cx+"/"+pz+" 座椅面套 "
yejiao=orderno+" "+string(xs)+" "+g_username+"("+g_team +")"+" "+ riqi
if dyts<shul then
w_wxbq.dw_4.insertrow(i) //添加一行
w_wxbq.dw_4.setitem(i,'页眉',yemei)
w_wxbq.dw_4.setitem(i,'副页眉',fyemei)
w_wxbq.dw_4.setitem(i,'页脚',yejiao)
w_wxbq.dw_4.setitem(i,'产品零件号',cpljh)
w_wxbq.dw_4.setitem(i,'订单号',orderno)
w_wxbq.dw_4.setitem(i,'车型',cx)
w_wxbq.dw_4.setitem(i,'配置',pz)
w_wxbq.dw_4.setitem(i,'零件号',ljh)
w_wxbq.dw_4.setitem(i,'说明',shuom)
w_wxbq.dw_4.setitem(i,'数量',dyts)
w_wxbq.dw_4.setitem(i,'bartype','code39')
w_wxbq.dw_4.setitem(i,'打印日期',riqitime)
w_wxbq.dw_4.setitem(i,'箱号',xs)

insert into 外箱标签记录表 (订单号,产品零件号,车型,配置,零件号,说明,数量,纳入先,记号,小组,员工,barcode,页眉,副页眉,页脚,日期,时间,箱号,工厂,分排)
values(:orderno,:cpljh,:cx,:pz,:ljh,:shuom,:dyts,:nrx,:jh,:g_team,:g_username,:ls_max,:yemei,:fyemei,:yejiao,:riqi,:riqitime,:xs,:factory,:fenpai);
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","写入外箱标签记录表出错，请联系IT!",stopsign!)
return
end if
else
w_wxbq.dw_4.insertrow(i) //添加一行
w_wxbq.dw_4.setitem(i,'页眉',yemei)
w_wxbq.dw_4.setitem(i,'副页眉',fyemei)
w_wxbq.dw_4.setitem(i,'页脚',yejiao)
w_wxbq.dw_4.setitem(i,'产品零件号',cpljh)
w_wxbq.dw_4.setitem(i,'订单号',orderno)
w_wxbq.dw_4.setitem(i,'车型',cx)
w_wxbq.dw_4.setitem(i,'配置',pz)
w_wxbq.dw_4.setitem(i,'零件号',ljh)
w_wxbq.dw_4.setitem(i,'说明',shuom)
w_wxbq.dw_4.setitem(i,'数量',shul)
w_wxbq.dw_4.setitem(i,'bartype','code39')
w_wxbq.dw_4.setitem(i,'打印日期',riqitime)
w_wxbq.dw_4.setitem(i,'箱号',xs)
insert into 外箱标签记录表 (订单号,产品零件号,车型,配置,零件号,说明,数量,纳入先,记号,小组,员工,barcode,页眉,副页眉,页脚,日期,时间,箱号,工厂,分排)
values(:orderno,:cpljh,:cx,:pz,:ljh,:shuom,:shul,:nrx,:jh,:g_team,:g_username,:ls_max,:yemei,:fyemei,:yejiao,:riqi,:riqitime,:xs,:factory,:fenpai);
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","写入外箱标签记录表出错，请联系IT!!!",stopsign!)
return
end if
end if
next
if dyts<shul then
insert into 外箱标签汇总表 (订单号,产品零件号,车型,配置,订单套数,面套数量,小组,员工,barcode,日期,时间,箱号,工厂,分排)
values(:orderno,:cpljh,:cx,:pz,:ddts,:dyts,:g_team,:g_username,:ls_max,:riqi,:riqitime,:xs,:factory,:fenpai);
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","写入外箱标签汇总表出错，请联系IT!",stopsign!)
return
end if
else
insert into 外箱标签汇总表 (订单号,产品零件号,车型,配置,订单套数,面套数量,小组,员工,barcode,日期,时间,箱号,工厂,分排)
values(:orderno,:cpljh,:cx,:pz,:ddts,:shul,:g_team,:g_username,:ls_max,:riqi,:riqitime,:xs,:factory,:fenpai);
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","写入外箱标签记汇总出错，请联系IT!!",stopsign!)
return
end if
end if
int row=0
for row=1 to w_wxbq.dw_4.rowcount()
w_wxbq.dw_4.setitem(row,'barcode',ls_max)
next

if dyts<shul then
w_wxbq.dw_5.insertrow(i) //添加一行
w_wxbq.dw_5.setitem(1,'纳入先',nrx)
w_wxbq.dw_5.setitem(1,'产品零件号',cpljh)
w_wxbq.dw_5.setitem(1,'订单号',orderno)
w_wxbq.dw_5.setitem(1,'记号',jh)
w_wxbq.dw_5.setitem(1,'数量',dyts)

w_wxbq.dw_6.insertrow(i) //添加一行
w_wxbq.dw_6.setitem(1,'纳入先',nrx)
w_wxbq.dw_6.setitem(1,'产品零件号',cpljh)
w_wxbq.dw_6.setitem(1,'订单号',orderno)
w_wxbq.dw_6.setitem(1,'记号',jh)
w_wxbq.dw_6.setitem(1,'数量',dyts)
else
w_wxbq.dw_5.insertrow(i) //添加一行
w_wxbq.dw_5.setitem(1,'纳入先',nrx)
w_wxbq.dw_5.setitem(1,'产品零件号',cpljh)
w_wxbq.dw_5.setitem(1,'订单号',orderno)
w_wxbq.dw_5.setitem(1,'记号',jh)
w_wxbq.dw_5.setitem(1,'数量',shul)

w_wxbq.dw_6.insertrow(i) //添加一行
w_wxbq.dw_6.setitem(1,'纳入先',nrx)
w_wxbq.dw_6.setitem(1,'产品零件号',cpljh)
w_wxbq.dw_6.setitem(1,'订单号',orderno)
w_wxbq.dw_6.setitem(1,'记号',jh)
w_wxbq.dw_6.setitem(1,'数量',shul)
end if
w_wxbq.dw_3.object.t_2.text=yejiao
w_wxbq.dw_3.object.barcode.text=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))
w_wxbq.dw_3.object.ole_1.object.style=7
w_wxbq.dw_3.object.ole_1.object.value=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))

w_wxbq.dw_rows7.object.t_2.text=yejiao
w_wxbq.dw_rows7.object.barcode.text=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))
w_wxbq.dw_rows7.object.ole_1.object.style=7
w_wxbq.dw_rows7.object.ole_1.object.value=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))

w_wxbq.dw_rows13.object.t_2.text=yejiao
w_wxbq.dw_rows13.object.barcode.text=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))
w_wxbq.dw_rows13.object.ole_1.object.style=7
w_wxbq.dw_rows13.object.ole_1.object.value=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))



delete from 外箱标签打印缓存表;
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","外箱标签打印缓存表清空失败，请联系IT!",stopsign!)
return
end if

if w_wxbq.dw_4.update()=1 then
commit;
else
rollback;
MessageBox("错误","外箱标签写入数据库外箱标签打印缓存表错误!",stopsign!)
return
end if
w_wxbq.dw_3.retrieve(cpljh)

//更新生产计划表中的一排靠
int sort1_new=0
if dyts<shul then
sort1_new=integer(wcts) + dyts
UPDATE 生产计划表
SET 一排靠 = :sort1_new
where 订单号=:orderno and 一排靠=:wcts ;
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","更新生产计划表失败!",stopsign!)
return
end if
else
sort1_new=integer(wcts) + shul
UPDATE 生产计划表
SET 一排靠 = :sort1_new
where 订单号=:orderno and 一排靠=:wcts ;
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","更新生产计划表失败!",stopsign!)
return
end if
end if

else
return
end if

w_wxbq.dw_4.reset()
w_wxbq.dw_7.retrieve()
w_wxbq.dw_rows7.retrieve(cpljh)
w_wxbq.dw_13.retrieve()
w_wxbq.dw_rows13.retrieve(cpljh)
g_nrx=nrx
w_wxbq.cb_1.triggerevent(clicked!)

[xuam]

看的晕。
图太小，看不清.

[xiaoyi5520]

按钮代码如下
integer net
g_nrx=""
long row_count1
string cpljh,orderno,ljh,pz,eco,cell,cell1,cpljh1,orderno1,cpljh2,cpljh3,cx,shuom,nrx,jh
real ddts,shul,wcts,dyts
int xs
string riqi,yemei,fyemei,yejiao,barcode,fenpai
datetime riqitime
riqi=string(today(),'yyyy-mm-dd')
riqitime=datetime(date(riqi),time(today()))

cpljh=trim(w_wxbq.dw_1.getitemstring(1,"产品零件号"))
orderno=trim(w_wxbq.dw_1.getitemstring(1,"订单号"))
ddts=w_wxbq.dw_1.getitemdecimal(1,"订单套数")
wcts=w_wxbq.dw_1.getitemdecimal(1,"一排靠")
eco=w_wxbq.dw_1.getitemstring(1,"ECO")
cell=w_wxbq.dw_1.getitemstring(1,"单元")
cpljh1=trim(w_wxbq.dw_1.getitemstring(1,"产品零件号1"))
orderno1=trim(w_wxbq.dw_1.getitemstring(1,"订单号1"))
cell1=w_wxbq.dw_1.getitemstring(1,"单元1")
if isnull(wcts) then wcts=0
fenpai="一排靠"
net=messagebox("确定:","打印: "+orderno+" " + fenpai +"的外箱标签?",question!,yesno!,10)
if net=1 then

SELECT DISTINCT item,pd into :cx,:pz FROM t_cpmx WHERE 产品零件号=:cpljh ;
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","在产品明细表中未找到该产品零件号"+cpljh+"对应的车型配置!",stopsign!)
return
end if

if isnull(cx) then cx=""
if isnull(pz) then pz=""
if cx="" or pz="" then
rollback;
MessageBox("错误","在产品明细表中未找到该产品零件号"+cpljh+"对应的车型配置!!",stopsign!)
return
end if

string ls_oldselect,ls_newselect,ls_oldselect2
w_wxbq.dw_1.SetTransObject(SQLCA)
ls_oldselect =w_wxbq.dw_2.Describe("DataWindow.Table.Select")//保存原始的SQL SELECT 语句
ls_newselect = ls_oldselect + "Where 产品零件号 = " +"'" +cpljh +"' and 分排 = " +"'" + fenpai +"'"
w_wxbq.dw_2.Modify("datawindow.table.select = ~"" + ls_newselect + "~"")
w_wxbq.dw_2.retrieve()
w_wxbq.dw_2.Modify("datawindow.table.select = ~"" + ls_oldselect + "~"")
if w_wxbq.dw_2.rowcount()=0 then
rollback;
messagebox("查询失败","外箱标签字典中没有"+cpljh+"这个产品零件号的" + fenpai +"记录!")
return
else
commit;
end if

//生成条形码
string cutplan_id,car_id,factory
long ls_maxno
string ls_max,ls_maxdate,ls_date
factory=g_factory

ls_date = string(today(),'yymmdd')
//取当天日期（左边6位）最大值，查询数据库中有无条形码记录
SELECT max(left(barcode,6)) INTO :ls_maxdate FROM 外箱标签记录表 WHERE barcode > :ls_date;
if sqlca.sqlcode=0 then
commit;
else
rollback;
MessageBox("错误","未成功找到当日barcode!")
return
end if
//数据库中无单据
if ls_maxdate = "" or IsNull(ls_maxdate) then
//生成数据库中第一 张单编号
ls_max = string(now(),'yymmdd') + factory + 'WL'+'2001'
else
//如果数据库中有条形码记录 右边取4位最大值111214NT012 左边6位111214=111214
SELECT max(right(barcode,4)) INTO :ls_maxno FROM 外箱标签记录表 WHERE left(barcode,6)= :ls_date and 工厂=:factory;
if sqlca.sqlcode=0 then
commit;
else
rollback;
end if
//判断R如果ls_maxno为空意味着无当日小车标识单号
if isnull(ls_maxno) then
//生成当日第一张小车标识
ls_max = string(now(),'yymmdd') + factory + 'WL'+'2001'
else
//生成小车标识为最大值加1
ls_max = string(now(),'yymmdd') +factory+ 'WL'+ string(ls_maxno + 1)
end if
end if





int i=0
for i=1 to w_wxbq.dw_2.rowcount()

//给w_wxbq.dw_3数据窗口里的文本框赋值
ljh=trim(w_wxbq.dw_2.getitemstring(i,"零件号"))
shuom=trim(w_wxbq.dw_2.getitemstring(i,"说明"))
shul=w_wxbq.dw_2.getitemdecimal(i,"数量")
dyts=real(ddts)-real(wcts)
nrx=trim(w_wxbq.dw_2.getitemstring(i,"纳入先"))
jh=trim(w_wxbq.dw_2.getitemstring(i,"记号"))

if wcts = ddts then
messagebox("提示:","订单号:"+orderno+" " + fenpai +"的外箱标签已经全部打完?")
RETURN
END IF

if wcts=0 then xs=1
if wcts>0 then
xs=wcts/shul+1
end if
yemei="YFJC"+"/"+cx+"/"+pz+" SEAT COVERS "
fyemei=cx+"/"+pz+" 座椅面套 "
yejiao=orderno+" "+string(xs)+" "+g_username+"("+g_team +")"+" "+ riqi
if dyts<shul then
w_wxbq.dw_4.insertrow(i) //添加一行
w_wxbq.dw_4.setitem(i,'页眉',yemei)
w_wxbq.dw_4.setitem(i,'副页眉',fyemei)
w_wxbq.dw_4.setitem(i,'页脚',yejiao)
w_wxbq.dw_4.setitem(i,'产品零件号',cpljh)
w_wxbq.dw_4.setitem(i,'订单号',orderno)
w_wxbq.dw_4.setitem(i,'车型',cx)
w_wxbq.dw_4.setitem(i,'配置',pz)
w_wxbq.dw_4.setitem(i,'零件号',ljh)
w_wxbq.dw_4.setitem(i,'说明',shuom)
w_wxbq.dw_4.setitem(i,'数量',dyts)
w_wxbq.dw_4.setitem(i,'bartype','code39')
w_wxbq.dw_4.setitem(i,'打印日期',riqitime)
w_wxbq.dw_4.setitem(i,'箱号',xs)

insert into 外箱标签记录表 (订单号,产品零件号,车型,配置,零件号,说明,数量,纳入先,记号,小组,员工,barcode,页眉,副页眉,页脚,日期,时间,箱号,工厂,分排)
values(:orderno,:cpljh,:cx,:pz,:ljh,:shuom,:dyts,:nrx,:jh,:g_team,:g_username,:ls_max,:yemei,:fyemei,:yejiao,:riqi,:riqitime,:xs,:factory,:fenpai);
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","写入外箱标签记录表出错，请联系IT!",stopsign!)
return
end if
else
w_wxbq.dw_4.insertrow(i) //添加一行
w_wxbq.dw_4.setitem(i,'页眉',yemei)
w_wxbq.dw_4.setitem(i,'副页眉',fyemei)
w_wxbq.dw_4.setitem(i,'页脚',yejiao)
w_wxbq.dw_4.setitem(i,'产品零件号',cpljh)
w_wxbq.dw_4.setitem(i,'订单号',orderno)
w_wxbq.dw_4.setitem(i,'车型',cx)
w_wxbq.dw_4.setitem(i,'配置',pz)
w_wxbq.dw_4.setitem(i,'零件号',ljh)
w_wxbq.dw_4.setitem(i,'说明',shuom)
w_wxbq.dw_4.setitem(i,'数量',shul)
w_wxbq.dw_4.setitem(i,'bartype','code39')
w_wxbq.dw_4.setitem(i,'打印日期',riqitime)
w_wxbq.dw_4.setitem(i,'箱号',xs)
insert into 外箱标签记录表 (订单号,产品零件号,车型,配置,零件号,说明,数量,纳入先,记号,小组,员工,barcode,页眉,副页眉,页脚,日期,时间,箱号,工厂,分排)
values(:orderno,:cpljh,:cx,:pz,:ljh,:shuom,:shul,:nrx,:jh,:g_team,:g_username,:ls_max,:yemei,:fyemei,:yejiao,:riqi,:riqitime,:xs,:factory,:fenpai);
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","写入外箱标签记录表出错，请联系IT!!!",stopsign!)
return
end if
end if
next
if dyts<shul then
insert into 外箱标签汇总表 (订单号,产品零件号,车型,配置,订单套数,面套数量,小组,员工,barcode,日期,时间,箱号,工厂,分排)
values(:orderno,:cpljh,:cx,:pz,:ddts,:dyts,:g_team,:g_username,:ls_max,:riqi,:riqitime,:xs,:factory,:fenpai);
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","写入外箱标签汇总表出错，请联系IT!",stopsign!)
return
end if
else
insert into 外箱标签汇总表 (订单号,产品零件号,车型,配置,订单套数,面套数量,小组,员工,barcode,日期,时间,箱号,工厂,分排)
values(:orderno,:cpljh,:cx,:pz,:ddts,:shul,:g_team,:g_username,:ls_max,:riqi,:riqitime,:xs,:factory,:fenpai);
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","写入外箱标签记汇总出错，请联系IT!!",stopsign!)
return
end if
end if
int row=0
for row=1 to w_wxbq.dw_4.rowcount()
w_wxbq.dw_4.setitem(row,'barcode',ls_max)
next

if dyts<shul then
w_wxbq.dw_5.insertrow(i) //添加一行
w_wxbq.dw_5.setitem(1,'纳入先',nrx)
w_wxbq.dw_5.setitem(1,'产品零件号',cpljh)
w_wxbq.dw_5.setitem(1,'订单号',orderno)
w_wxbq.dw_5.setitem(1,'记号',jh)
w_wxbq.dw_5.setitem(1,'数量',dyts)

w_wxbq.dw_6.insertrow(i) //添加一行
w_wxbq.dw_6.setitem(1,'纳入先',nrx)
w_wxbq.dw_6.setitem(1,'产品零件号',cpljh)
w_wxbq.dw_6.setitem(1,'订单号',orderno)
w_wxbq.dw_6.setitem(1,'记号',jh)
w_wxbq.dw_6.setitem(1,'数量',dyts)
else
w_wxbq.dw_5.insertrow(i) //添加一行
w_wxbq.dw_5.setitem(1,'纳入先',nrx)
w_wxbq.dw_5.setitem(1,'产品零件号',cpljh)
w_wxbq.dw_5.setitem(1,'订单号',orderno)
w_wxbq.dw_5.setitem(1,'记号',jh)
w_wxbq.dw_5.setitem(1,'数量',shul)

w_wxbq.dw_6.insertrow(i) //添加一行
w_wxbq.dw_6.setitem(1,'纳入先',nrx)
w_wxbq.dw_6.setitem(1,'产品零件号',cpljh)
w_wxbq.dw_6.setitem(1,'订单号',orderno)
w_wxbq.dw_6.setitem(1,'记号',jh)
w_wxbq.dw_6.setitem(1,'数量',shul)
end if
w_wxbq.dw_3.object.t_2.text=yejiao
w_wxbq.dw_3.object.barcode.text=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))
w_wxbq.dw_3.object.ole_1.object.style=7
w_wxbq.dw_3.object.ole_1.object.value=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))

w_wxbq.dw_rows7.object.t_2.text=yejiao
w_wxbq.dw_rows7.object.barcode.text=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))
w_wxbq.dw_rows7.object.ole_1.object.style=7
w_wxbq.dw_rows7.object.ole_1.object.value=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))

w_wxbq.dw_rows13.object.t_2.text=yejiao
w_wxbq.dw_rows13.object.barcode.text=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))
w_wxbq.dw_rows13.object.ole_1.object.style=7
w_wxbq.dw_rows13.object.ole_1.object.value=trim(w_wxbq.dw_4.getitemstring(1,"barcode"))



delete from 外箱标签打印缓存表;
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","外箱标签打印缓存表清空失败，请联系IT!",stopsign!)
return
end if

if w_wxbq.dw_4.update()=1 then
commit;
else
rollback;
MessageBox("错误","外箱标签写入数据库外箱标签打印缓存表错误!",stopsign!)
return
end if
w_wxbq.dw_3.retrieve(cpljh)

//更新生产计划表中的一排靠
int sort1_new=0
if dyts<shul then
sort1_new=integer(wcts) + dyts
UPDATE 生产计划表
SET 一排靠 = :sort1_new
where 订单号=:orderno and 一排靠=:wcts ;
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","更新生产计划表失败!",stopsign!)
return
end if
else
sort1_new=integer(wcts) + shul
UPDATE 生产计划表
SET 一排靠 = :sort1_new
where 订单号=:orderno and 一排靠=:wcts ;
if sqlca.sqlcode=0 then
commit ;
else
rollback;
MessageBox("错误","更新生产计划表失败!",stopsign!)
return
end if
end if

else
return
end if

w_wxbq.dw_4.reset()
w_wxbq.dw_7.retrieve()
w_wxbq.dw_rows7.retrieve(cpljh)
w_wxbq.dw_13.retrieve()
w_wxbq.dw_rows13.retrieve(cpljh)
g_nrx=nrx
w_wxbq.cb_1.triggerevent(clicked!)