门店按照一个店增加经营范围

insert into s_busi_range
  (compid, busno, classcode, status, lastmodify, lasttime,notes)
  select 2,
         s.busno,
         CLASSCODE,
         1,
         168,
        sysdate,'自动生成'
    from s_busi_range cross join s_busi s where s.busno<> 1001

按照最后批次进价更新最新进价

INSERT INTO tmp_disable_trigger (table_name) VALUES ('t_ware');  

MERGE INTO t_ware a  
USING (SELECT wareid, purprice  
         FROM (SELECT wareid,  
                      purprice,  
                      ROW_NUMBER() OVER (PARTITION BY wareid ORDER BY batid DESC) AS rn  
                 FROM t_store_i) sub  
        WHERE sub.rn = 1) b  
ON (a.wareid = b.wareid)  
WHEN MATCHED THEN  
  UPDATE SET a.lastpurprice = b.purprice;  

DELETE FROM tmp_disable_trigger WHERE table_name = 't_ware';

按钮 调用存储过程 传参

String ls_err,ll_billno
Long ll_userid, ll_row, ll_compid,ll_busno
ll_row = dw_master.GetRow()
If ll_row < 1 Then
    MessageBox('提示！', '请选择您需要处理的订单')
    Return 0
End If

ll_compid = dw_master.GetItemNumber(ll_row, 'compid')
ll_busno = dw_master.GetItemNumber(ll_row, 'objbusno')
ll_userid = dw_master.GetItemNumber(ll_row, 'lastmodify')
ll_billno = dw_master.GetItemString(ll_row, 'distno')

str_DBParam lstr_dbp[]

lstr_dbp[1].Item[1].pname = 'p_compid'
lstr_dbp[1].Item[1].pvalue = ll_compid
lstr_dbp[1].Item[2].pname = 'p_busno'
lstr_dbp[1].Item[2].pvalue = ll_busno
lstr_dbp[1].Item[3].pname = 'p_userid'
lstr_dbp[1].Item[3].pvalue = String(ll_userid) 
lstr_dbp[1].Item[4].pname = 'p_billno'
lstr_dbp[1].Item[4].pvalue = String(ll_billno)

If Not gnvo_datasource.of_execproc({'cproc_baosundan1'}, Ref lstr_dbp, Ref ls_err) Then
    MessageBox("提示", '处理失败', ls_err, stopsign!, ok!, 1)
    Return 0
Else
    MessageBox("提示", "处理成功,请到<报损/报溢单>界面审核确认!")
End If
Return 0