合同评审取消并无控制

合同评审全部取消中，未对合同的进行状态加以控制。

 

贸易原一合同币种登记错误， 取消合同全部评审， OS中修改单位为USD， 能保存，但合同评审时仍旧为RMB。

 

贸易管理  OS信息登记：  insert TEA010T

　　　　  OS内容登记：  insert TEA020T、SCA010T、SCA020T、SCA030T

 

因合同评审取消后，只在OS信息登记中(TEA010T)修改币种， TEA010T与SCA010T中无触发器，SCA010T中并未改变，所以还要UPDATE SCA010T.CRNC_UNIT

 

另： 出库申请扣款、出库时都是调用SCA010T中币种，因此只需调整SCA010T.CRNC_UNIT

 

 

-----------------------合同全部取消 ue_save()--------------------------

IF dw_sheet1.AcceptText() <> 1 THEN
   accept_err_flag = -1
   Message.ReturnValue = 1
   dw_sheet1.SetFocus()
   RETURN
END IF

IF dw_head.AcceptText() <> 1 THEN
 dw_head.SetFocus()
 RETURN
END IF

dw_head.Enabled = TRUE

row = dw_sheet1.rowcount()

li_ret = messagebox("合同评审全部取消" , "你确定合同评审全部取销吗？" , Exclamation! , YesNo!)
if li_ret = 2 then return

setnull(ls_con_prsn_null)
setnull(ldt_con_dt_null)

for i = 1 to row
 
 if dw_sheet1.object.chk[i] = "Y" then

  dw_sheet1.object.con1_flag[i] = "N"
  dw_sheet1.object.con1_dt[i] = ldt_con_dt_null
  dw_sheet1.object.con1_prsn[i] = ls_con_prsn_null
  dw_sheet1.object.con2_flag[i] = "N"
  dw_sheet1.object.con2_dt[i] = ldt_con_dt_null
  dw_sheet1.object.con2_prsn[i] = ls_con_prsn_null
  dw_sheet1.object.con3_flag[i] = "N"
  dw_sheet1.object.con3_dt[i] = ldt_con_dt_null
  dw_sheet1.object.con3_prsn[i] = ls_con_prsn_null
  dw_sheet1.object.con4_flag[i] = "N"
  dw_sheet1.object.con4_dt[i] = ldt_con_dt_null
  dw_sheet1.object.con4_prsn[i] = ls_con_prsn_null

 end if
next

// DB UPDATE
IF dw_sheet1.Update(TRUE, FALSE) = 1 THEN
   COMMIT USING SQLCA ;

  IF SQLCA.SQLCode <> 0  THEN
  ll_errcode   = SQLCA.sqldbcode
  ls_errtext   = SQLCA.sqlerrtext
  ROLLBACK USING SQLCA;
  dw_sheet1.Event dberror(ll_errcode, ls_errtext, "", Primary!, 0)
  RETURN
 END IF
end if 

本文出自 “槠树下” 博客，谢绝转载！