end if
next
//如果删除空行后总行数为0，则停止操作
r_rowcount=dw_item.rowcount()
if r_rowcount<1 then
messagebox('提示','无数据！')
wf_fill_row() //让行数填满数据窗口
return
end if
//判断收、付、转凭证的科目对应正确性
r_pzlx_code=dw_main.getitemstring(1,'pzlx_code')
CHOOSE CASE r_pzlx_code
CASE '收'
r = dw_item.Find( "(left(km_code,3)='101' or left(km_code,3)='102') and jfje<>0", 1, r_rowcount)
IF r < 1 THEN
messagebox('提示','收款凭证借方必须有现金或银行存款科目！')
wf_fill_row()
return 1
END IF
CASE '付'
r = dw_item.Find( "(left(km_code,3)='101' or left(km_code,3)='102')and dfje<>0", 1, r_rowcount)
IF r < 1 THEN
messagebox('提示','付款凭证贷方必须有现金或银行存款科目！')
wf_fill_row()
return 1
END IF
CASE ELSE
r = dw_item.Find( "left(km_code,3) = '101' or left(km_code,3) = '102'", 1, r_rowcount)
IF r > 0 THEN
messagebox('提示','转账凭证不能有现金或银行存款科目！')
wf_fill_row()
return 1
END IF
END CHOOSE
//取出凭证号
r_pzh=dw_main.getitemstring(1,'pzh')
//为主表设置指定的值
dw_main.setitem(1,'zth',g_zth)
dw_main.setitem(1,'nkjqj',g_nkjqj)
dw_main.setitem(1,'ykjqj',g_ykjqj)
dw_main.setitem(1,'shbj','N')
//为明细表设置指定的值
for i=1 to r_rowcount
dw_item.setitem(i,'zth',g_zth)
dw_item.setitem(i,'nkjqj',g_nkjqj)
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
账务处理系统凭证录入模块 第7页下载如图片无法显示或论文不完整，请联系qq752018766
