煤场存煤计算(powerbuilder+oracle)代码

最新推荐文章于 2024-10-17 12:13:24 发布

原创

最新推荐文章于 2024-10-17 12:13:24 发布 · 2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#date #subroutine #string #up

该代码段展示了如何使用PowerBuilder结合Oracle数据库计算煤场的存煤情况。通过查询处理来煤、盘煤和入炉数据，计算每日库存差异，并将结果插入到数据窗口dw_2中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//public subroutine uf_caculator (date startday, date endday);

string dt_s,dt_e,dt_cur ,dt_cm,dt_pm ,ls_month
//盘煤
Decimal l_pnum1,l_pnum2,l_pnum3,l_pnum4,l_pnum5,l_pnum6,l_pnum7
Decimal l_pnum8,l_pnum9,l_pnum0,l_pnum11,l_pnum12,l_pnum13,l_pnum14,l_psum
//来煤合计值
Decimal l_num1,l_num2,l_num3,l_num4,l_num5,l_num6,l_num7
Decimal l_num8,l_num9,l_num0,l_num11,l_num12,l_num13,l_num14,l_sum
//入炉合计值
Decimal l_rnum1,l_rnum2,l_rnum3,l_rnum4,l_rnum5,l_rnum6,l_rnum7
Decimal l_rnum8,l_rnum9,l_rnum0,l_rnum11,l_rnum12,l_rnum13,l_rnum14,l_rsum
long row
string ls_s ,ls_e
dw_2.reset( )
if isnull(startday) then
startday = relativedate(date(f_sysdate()),-60)
end if
if isnull(endday) then
endday = date(f_sysdate())
end if
ls_s = string(startday,'yyyy-mm-dd')
ls_e = string(endday,'yyyy-mm-dd')
declare cur_m cursor for
select distinct to_char(down