Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. OpenWithParm(w_asit27s_ap, ob_arg)
  2. ob_arg = Message.PowerObjectParm
  3. IF ob_arg.is_string[1] = 'Y' THEN    
  4.     ls_old_sql = dw_main.getsqlselect()
  5.     ll_n = pos(upper(ls_old_sql),'WHERE')
  6.     ls_date_time = string(ob_arg.idt_datetime[1],'yyyy/mm/dd hh:mm:ss')
  7.     // 只顯示批次匯入資料(不管之前下什麼條件)
  8.     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 + "') "
  9.     ls_new_sql = left(ls_old_sql,ll_n - 1) + ls_sql1
  10.    
  11.     dw_main.setfocus()
  12.     gdw_data.Reset()
  13.     gdw_data.ShareData(gdw_main)
  14.  
  15.     string ls_UpdateTable,ls_UpdateWhere
  16.     ls_UpdateTable=gdw_data.Describe("DataWindow.Table.UpdateTable")
  17.     ls_UpdateWhere=gdw_data.Describe("DataWindow.Table.UpdateWhere")
  18.  
  19.     gdw_main.SetSqlSelect(ls_new_sql)
  20.  
  21.     gdw_data.Modify("DataWindow.Table.UpdateTable='"+ls_UpdateTable+"'")
  22.     gdw_data.Modify("DataWindow.Table.UpdateWhere='"+ls_UpdateWhere+"'")
  23.  
  24.     gdw_data.Retrieve()
  25. END IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement