Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- OpenWithParm(w_asit27s_ap, ob_arg)
- ob_arg = Message.PowerObjectParm
- IF ob_arg.is_string[1] = 'Y' THEN
- ls_old_sql = dw_main.getsqlselect()
- ll_n = pos(upper(ls_old_sql),'WHERE')
- ls_date_time = string(ob_arg.idt_datetime[1],'yyyy/mm/dd hh:mm:ss')
- // 只顯示批次匯入資料(不管之前下什麼條件)
- ls_sql1 = " WHERE ( TRIT10.IT10_STORE = ASIT27.IT27_STORE ) and ( asit27.it27_user = '" + gs_usrid + "' ) AND ( to_char(asit27.it27_create,'yyyy/mm/dd hh24:mi:ss') >= '" + ls_date_time + "') "
- ls_new_sql = left(ls_old_sql,ll_n - 1) + ls_sql1
- dw_main.setfocus()
- gdw_data.Reset()
- gdw_data.ShareData(gdw_main)
- string ls_UpdateTable,ls_UpdateWhere
- ls_UpdateTable=gdw_data.Describe("DataWindow.Table.UpdateTable")
- ls_UpdateWhere=gdw_data.Describe("DataWindow.Table.UpdateWhere")
- gdw_main.SetSqlSelect(ls_new_sql)
- gdw_data.Modify("DataWindow.Table.UpdateTable='"+ls_UpdateTable+"'")
- gdw_data.Modify("DataWindow.Table.UpdateWhere='"+ls_UpdateWhere+"'")
- gdw_data.Retrieve()
- END IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement